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

Computation of spectral sequences added.

Browse Source
This commit is contained in:
Ana Romero 2019-06-27 17:29:55 +02:00
parent 10ec7deeaa
commit f3ed77bd9c
6 changed files with 2237 additions and 2021 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
kenzo.asd
View File

@ -57,16 +57,15 @@
(:file "cl-space-efhm") (:file "cl-space-efhm")
(:file "whitehead") (:file "whitehead")
(:file "smith") (:file "smith")
(:file "sage-interface")
(:module "anromero" (:module "anromero"
:components :components
((:file "resolutions") ((:file "resolutions")
(:file "cylinders") (:file "cylinders")
(:file "fundamental-classes") (:file "fundamental-classes")
(:file "homotopy") (:file "homotopy")
(:file "bicomplexes"))) (:file "bicomplexes")
#|
((:file "bicomplexes")
(:file "filtered-complexes") (:file "filtered-complexes")
(:file "spectral-sequences"))) (:file "spectral-sequences")
|# (:file "persistent-homology")
)))) ))))))

2
src/anromero/bicomplexes.lisp
View File

@ -250,7 +250,7 @@
chcm))) chcm)))
#| #|
(setf bc (Build-Bicm :bcbasis #'bas :dffr1 #'dif1 :dffr2 #'dif2 :cmpr 's-cmpr (setf bc (Build-Bicm :bcbasis #'bas :dffr1 #'dif1 :dffr2 #'dif2 :cmpr #'s-cmpr
:orgn '(BC-test))) :orgn '(BC-test)))
(dotimes (i 5) (dotimes (i 5)
(print (basis bc i))) (print (basis bc i)))

1102
src/anromero/filtered-complexes.lisp
View File

File diff suppressed because it is too large Load Diff

2
src/anromero/resolutions.lisp
View File

@ -650,6 +650,8 @@
(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

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

File diff suppressed because it is too large Load Diff

15
src/cat-init.lisp
View File

@ -53,7 +53,16 @@
"cs-twisted-products" "cs-twisted-products"
"cl-space-efhm" "cl-space-efhm"
"whitehead" "whitehead"
"smith")) "smith"
"anromero\\resolutions"
"anromero\\cylinders"
"anromero\\fundamental-classes"
"anromero\\homotopy"
"anromero\\bicomplexes"
"anromero\\filtered-complexes"
"anromero\\spectral-sequences"
"anromero\\persistent-homology"
))
(DO ((i 1 (1+ i)) (DO ((i 1 (1+ i))
(mark +file-list+ (cdr mark))) (mark +file-list+ (cdr mark)))
@ -61,8 +70,8 @@
(format t "~% FILE ~2D: ~A" i (car mark))) (format t "~% FILE ~2D: ~A" i (car mark)))
(DEFCONSTANT +SOURCE-EXTENSION+ (DEFCONSTANT +SOURCE-EXTENSION+
#+(or allegro lispworks) "cl" #+(or lispworks) "cl"
#+(or clisp ccl ecl sbcl) "lisp" #+(or allegro clisp ccl ecl sbcl) "lisp"
#-(or allegro ccl clisp ecl lispworks sbcl) #-(or allegro ccl clisp ecl lispworks sbcl)
(error "Not an Allegro or CCL or CLisp or LispWorks or SBCL environment.")) (error "Not an Allegro or CCL or CLisp or LispWorks or SBCL environment."))