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

Sign of morphisms of even columns changed for building a bicomplex

Browse Source
This commit is contained in:
Ana Romero 2019-09-25 18:36:58 +02:00
parent 8616ed1968
commit 78d226dc17
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/anromero/bicomplexes.lisp
View File

@ -314,10 +314,12 @@
(declare (type fixnum degr1 degr2) (declare (type fixnum degr1 degr2)
(type gnrt gnrt)) (type gnrt gnrt))
(if (and (> degr1 0) (<= degr1 (length l))) (if (and (> degr1 0) (<= degr1 (length l)))
(let ((mrph (nth (1- degr1) l))) (let* ((mrph (nth (1- degr1) l)))
(cmbn-list (? (sorc mrph) degr2 gnrt))) (if (= 0 (mod degr1 2))
(cmbn-list (cmbn-opps (? (sorc mrph) degr2 gnrt)))
(cmbn-list (? (sorc mrph) degr2 gnrt))))
(if (= degr1 0) (if (= degr1 0)
(cmbn-list (? (trgt (first l)) degr2 gnrt)) (cmbn-list (cmbn-opps (? (trgt (first l)) degr2 gnrt)))
nil)))) nil))))
(the function #'dffr2))) (the function #'dffr2)))
@ -366,7 +368,7 @@
(build-chcm (build-chcm
:cmpr (list-of-mrph-BC-CMPR l) :cmpr (list-of-mrph-BC-CMPR l)
:basis (BC-BASIS (list-of-mrph-bcbasis l)) :basis (BC-BASIS (list-of-mrph-bcbasis l))
:intr-dffr (BC-INTR-DFFR (list-of-mrph-dffr1 l) (list-of-mrph-dffr2 l)) :intr-dffr (bc-intr-dffr (list-of-mrph-dffr1 l) (list-of-mrph-dffr2 l))
:strt :gnrt :strt :gnrt
:orgn `(BiCmpl from list ,l)))) :orgn `(BiCmpl from list ,l))))
(declare (type chain-complex chcm)) (declare (type chain-complex chcm))
@ -416,11 +418,11 @@
(terpri) (terpri)
)))) ))))
(SPSQ-DFFR-OF-ONE-ELEMENT bc 1 1 1 '(1)) (spsq-dffr-of-one-element bc 1 1 1 '(1))
(SPSQ-DFFR-OF-ONE-ELEMENT bc 2 2 0 '(1 0)) (spsq-dffr-of-one-element bc 2 2 0 '(1 0))
(SPSQ-DFFR-OF-ONE-ELEMENT bc 2 2 0 '(0 1)) (spsq-dffr-of-one-element bc 2 2 0 '(0 1))
(spsq-cnvg bc 4) (spsq-cnvg bc 4)