mmarco/kenzo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Differential matrix order changed

Browse Source
This commit is contained in:
Ana Romero 2019-09-27 12:17:02 +02:00
parent 78d226dc17
commit 6143c1c63b
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/anromero/spectral-sequences.lisp
View File

@ -1599,9 +1599,18 @@
))))) )))))
(the list (the list
(if pos (fourth (nth pos rslts)) (if pos (fourth (nth pos rslts))
(let ((l (spsq-dffr-mtrx fltrcm r p q ))) (let* ((aux (spsq-dffr-mtrx fltrcm r p q ))
(declare (type list l)) (l nil)
(nrow (length (first aux)))
(ncol (length aux)))
(declare (type list aux l)
(fixnum nrow ncol))
(progn (progn
(dotimes (i nrow)
(let ((rowi nil))
(dotimes (j ncol)
(push (nth (1- (- nrow i)) (nth (1- (- ncol j)) aux)) rowi))
(push rowi l)))
(push (list r p q l) rslts) (push (list r p q l) rslts)
(setf (slot-value ss 'dffr-rslts) rslts) (setf (slot-value ss 'dffr-rslts) rslts)
l)))))) l))))))