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
(if pos (fourth (nth pos rslts))
(let ((l (spsq-dffr-mtrx fltrcm r p q )))
(declare (type list l))
(let* ((aux (spsq-dffr-mtrx fltrcm r p q ))
(l nil)
(nrow (length (first aux)))
(ncol (length aux)))
(declare (type list aux l)
(fixnum nrow ncol))
(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)
(setf (slot-value ss 'dffr-rslts) rslts)
l))))))