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

Homotopy groups of Eilenberg-MacLane spaces

Browse Source
This commit is contained in:
Ana Romero 2019-05-08 19:35:36 +02:00
parent 4ffed16284
commit 10ec7deeaa
2 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/anromero/homotopy.lisp
View File

@ -57,7 +57,7 @@
(result (homology-format (eval ft) (1+ indx)))) (result (homology-format (eval ft) (1+ indx))))
(if (= (1+ indx) n-hom) (if (= (1+ indx) n-hom)
(homology-format (eval ft) n-hom) (homology-format (eval ft) n-hom)
(if (string= "NIL" result) result (if (string= "NIL" result) nil
(if (string= "Z " result) (if (string= "Z " result)
(compute-homotopy-z-xslt n-hom ft (1+ indx)) (compute-homotopy-z-xslt n-hom ft (1+ indx))
(if (string= "Z/2Z " result) (if (string= "Z/2Z " result)
@ -74,7 +74,7 @@
(result (homology-format (eval ft) (1+ indx)))) (result (homology-format (eval ft) (1+ indx))))
(if (= (1+ indx) n-hom) (if (= (1+ indx) n-hom)
(homology-format (eval ft) n-hom) (homology-format (eval ft) n-hom)
(if (string= "NIL" result) result (if (string= "NIL" result) nil
(if (string= "Z " result) (if (string= "Z " result)
(compute-homotopy-z-xslt n-hom ft (1+ indx)) (compute-homotopy-z-xslt n-hom ft (1+ indx))
(if (string= "Z/2Z " result) (if (string= "Z/2Z " result)
@ -91,7 +91,7 @@
(result (homology-format (eval ft) (1+ indx)))) (result (homology-format (eval ft) (1+ indx))))
(if (= (1+ indx) n-hom) (if (= (1+ indx) n-hom)
(homology-format (eval ft) n-hom) (homology-format (eval ft) n-hom)
(if (string= "NIL" result) result (if (string= "NIL" result) nil
(if (string= "Z " result) (if (string= "Z " result)
(compute-homotopy-z-xslt n-hom ft (1+ indx)) (compute-homotopy-z-xslt n-hom ft (1+ indx))
(if (string= "Z/2Z " result) (if (string= "Z/2Z " result)
@ -103,7 +103,7 @@
(DEFUN SPLIT-COMPONENTS (string) (DEFUN SPLIT-COMPONENTS (string)
(let ((term (if (string= string "") "" (let ((term (if (string= string "") ""
(if (string= string "NIL") NIL (if (string= string "NIL") nil
(subseq string 0 2))))) (subseq string 0 2)))))
(if (string= term "Z ") (if (string= term "Z ")
(cons 1 (split-components (subseq string 2))) (cons 1 (split-components (subseq string 2)))
@ -136,7 +136,7 @@
(result (homology-format ft (1+ indx)))) (result (homology-format ft (1+ indx))))
(if (= (1+ indx) n-hom) (if (= (1+ indx) n-hom)
(homology-format (eval ft) n-hom) (homology-format (eval ft) n-hom)
(if (string= "NIL" result) result (if (string= "NIL" result) nil
(if (string= "Z " result) (if (string= "Z " result)
(compute-homotopy-z-xslt n-hom ft (1+ indx)) (compute-homotopy-z-xslt n-hom ft (1+ indx))
(if (string= "Z/2Z " result) (if (string= "Z/2Z " result)

11
src/anromero/resolutions.lisp
View File

@ -426,7 +426,8 @@
(type cmprf grcmpr zgcmpr) (type cmprf grcmpr zgcmpr)
(type function grmult) (type function grmult)
(type intr-zgmrph intr) (type intr-zgmrph intr)
(type zgcmbn zgcmbn)) ;;(type zgcmbn zgcmbn)
)
(the cmbn (the cmbn
(with-cmbn (degr list) zgcmbn (with-cmbn (degr list) zgcmbn
(if list (if list
@ -456,7 +457,8 @@
(declare (declare
(type intr-zgmrph intr) (type intr-zgmrph intr)
(type cmprf grcmpr zgcmpr) (type cmprf grcmpr zgcmpr)
(type zgcmbn zgcmbn)) ;;(type zgcmbn zgcmbn)
)
(the cmbn (the cmbn
(with-cmbn (degr list) zgcmbn (with-cmbn (degr list) zgcmbn
@ -533,7 +535,8 @@
(DEFUN ZGMRPH-ZGCMBN-? (ZGmrph zgcmbn) (DEFUN ZGMRPH-ZGCMBN-? (ZGmrph zgcmbn)
(declare (declare
(type zg-morphism zgmrph) (type zg-morphism zgmrph)
(type zgcmbn zgcmbn)) ;;(type zgcmbn zgcmbn)
)
(the cmbn (the cmbn
(with-slots (trgt zgintr zgstrt ) zgmrph (with-slots (trgt zgintr zgstrt ) zgmrph
(declare (declare
@ -648,7 +651,7 @@
(DEFUN ZGCMBN-TWI (zgcmpr zgcmbn) (DEFUN ZGCMBN-TWI (zgcmpr zgcmbn)
(declare (type zgcmbn zgcmbn)) ;;(declare (type zgcmbn zgcmbn))
(with-cmbn (degr list) zgcmbn (with-cmbn (degr list) zgcmbn
(if list (if list
(let* ((cmbn-list +empty-list+)) (let* ((cmbn-list +empty-list+))