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

143
kenzo.asd
View File

@ -1,72 +1,71 @@
;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -* ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
(in-package :cl-user) (in-package :cl-user)
(defpackage :kenzo-asd (defpackage :kenzo-asd
(:use :cl :asdf)) (:use :cl :asdf))
(in-package :kenzo-asd) (in-package :kenzo-asd)
(asdf:defsystem #:kenzo (asdf:defsystem #:kenzo
:description "A Symbolic Software for Effective Homology Computation by Francis Sergeraert" :description "A Symbolic Software for Effective Homology Computation by Francis Sergeraert"
:version "1.1.7" :version "1.1.7"
:author "Francis Sergeraert <Francis.Sergeraert@ujf-grenoble.fr>" :author "Francis Sergeraert <Francis.Sergeraert@ujf-grenoble.fr>"
:license "GPLv3" :license "GPLv3"
:serial t :serial t
:components :components
((:file "package") ((:file "package")
(:module "src" (:module "src"
:components :components
( (
(:file "kenzo") (:file "kenzo")
(:file "abbreviations") (:file "abbreviations")
(:file "macros") (:file "macros")
(:file "various") (:file "various")
(:file "classes") (:file "classes")
(:file "combinations") (:file "combinations")
(:file "chain-complexes") (:file "chain-complexes")
(:file "chcm-elementary-op") (:file "chcm-elementary-op")
(:file "effective-homology") (:file "effective-homology")
(:file "homology-groups") (:file "homology-groups")
(:file "searching-homology") (:file "searching-homology")
(:file "cones") (:file "cones")
(:file "bicones") (:file "bicones")
(:file "tensor-products") (:file "tensor-products")
(:file "coalgebras") (:file "coalgebras")
(:file "cobar") (:file "cobar")
(:file "algebras") (:file "algebras")
(:file "bar") (:file "bar")
(:file "simplicial-sets") (:file "simplicial-sets")
(:file "simplicial-mrphs") (:file "simplicial-mrphs")
(:file "delta") (:file "delta")
(:file "special-smsts") (:file "special-smsts")
(:file "suspensions") (:file "suspensions")
(:file "disk-pasting") (:file "disk-pasting")
(:file "cartesian-products") (:file "cartesian-products")
(:file "eilenberg-zilber") (:file "eilenberg-zilber")
(:file "kan") (:file "kan")
(:file "simplicial-groups") (:file "simplicial-groups")
(:file "fibrations") (:file "fibrations")
(:file "loop-spaces") (:file "loop-spaces")
(:file "ls-twisted-products") (:file "ls-twisted-products")
(:file "lp-space-efhm") (:file "lp-space-efhm")
(:file "classifying-spaces") (:file "classifying-spaces")
(:file "k-pi-n") (:file "k-pi-n")
(:file "serre") (:file "serre")
(:file "cs-twisted-products") (:file "cs-twisted-products")
(:file "cl-space-efhm") (:file "cl-space-efhm")
(:file "whitehead") (:file "whitehead")
(:file "smith") (:file "smith")
(:module "anromero" (:file "sage-interface")
:components (:module "anromero"
((:file "resolutions") :components
(:file "cylinders") ((:file "resolutions")
(:file "fundamental-classes") (:file "cylinders")
(:file "homotopy") (:file "fundamental-classes")
(:file "bicomplexes"))) (:file "homotopy")
#| (: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)))

1756
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

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

File diff suppressed because it is too large Load Diff

199
src/cat-init.lisp
View File

@ -1,95 +1,104 @@
;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -* ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
;;; FILES FILES FILES FILES FILES FILES FILES FILES FILES FILES ;;; FILES FILES FILES FILES FILES FILES FILES FILES FILES FILES
;;; FILES FILES FILES FILES FILES FILES FILES FILES FILES FILES ;;; FILES FILES FILES FILES FILES FILES FILES FILES FILES FILES
;;; FILES FILES FILES FILES FILES FILES FILES FILES FILES FILES ;;; FILES FILES FILES FILES FILES FILES FILES FILES FILES FILES
(DEFPACKAGE :CAT (DEFPACKAGE :CAT
(:USE CL)) (:USE CL))
(IN-PACKAGE "COMMON-LISP-USER") (IN-PACKAGE "COMMON-LISP-USER")
(DEFUN KENZO-VERSION () (DEFUN KENZO-VERSION ()
(format t "~%*** Kenzo-Version 1.1.7 ***~2%") (format t "~%*** Kenzo-Version 1.1.7 ***~2%")
(values)) (values))
(PROCLAIM '(OPTIMIZE (speed 3) (safety 1) (space 0) (debug 0))) (PROCLAIM '(OPTIMIZE (speed 3) (safety 1) (space 0) (debug 0)))
(DEFCONSTANT +FILE-LIST+ (DEFCONSTANT +FILE-LIST+
'("kenzo" '("kenzo"
"macros" "macros"
"various" "various"
"classes" "classes"
"combinations" "combinations"
"chain-complexes" "chain-complexes"
"chcm-elementary-op" "chcm-elementary-op"
"effective-homology" "effective-homology"
"homology-groups" "homology-groups"
"searching-homology" "searching-homology"
"cones" "cones"
"bicones" "bicones"
"tensor-products" "tensor-products"
"coalgebras" "coalgebras"
"cobar" "cobar"
"algebras" "algebras"
"bar" "bar"
"simplicial-sets" "simplicial-sets"
"simplicial-mrphs" "simplicial-mrphs"
"delta" "delta"
"special-smsts" "special-smsts"
"suspensions" "suspensions"
"disk-pasting" "disk-pasting"
"cartesian-products" "cartesian-products"
"eilenberg-zilber" "eilenberg-zilber"
"kan" "kan"
"simplicial-groups" "simplicial-groups"
"fibrations" "fibrations"
"loop-spaces" "loop-spaces"
"ls-twisted-products" "ls-twisted-products"
"lp-space-efhm" "lp-space-efhm"
"classifying-spaces" "classifying-spaces"
"k-pi-n" "k-pi-n"
"serre" "serre"
"cs-twisted-products" "cs-twisted-products"
"cl-space-efhm" "cl-space-efhm"
"whitehead" "whitehead"
"smith")) "smith"
"anromero\\resolutions"
(DO ((i 1 (1+ i)) "anromero\\cylinders"
(mark +file-list+ (cdr mark))) "anromero\\fundamental-classes"
((endp mark) (terpri)) "anromero\\homotopy"
(format t "~% FILE ~2D: ~A" i (car mark))) "anromero\\bicomplexes"
"anromero\\filtered-complexes"
(DEFCONSTANT +SOURCE-EXTENSION+ "anromero\\spectral-sequences"
#+(or allegro lispworks) "cl" "anromero\\persistent-homology"
#+(or clisp ccl ecl sbcl) "lisp" ))
#-(or allegro ccl clisp ecl lispworks sbcl)
(error "Not an Allegro or CCL or CLisp or LispWorks or SBCL environment.")) (DO ((i 1 (1+ i))
(mark +file-list+ (cdr mark)))
(DEFCONSTANT +COMPILED-EXTENSION+ ((endp mark) (terpri))
#+(or allegro sbcl) "fasl" (format t "~% FILE ~2D: ~A" i (car mark)))
#+ccl "lafsl"
#+ (or clisp ecl) "fas" (DEFCONSTANT +SOURCE-EXTENSION+
#+lispworks "ofasl") #+(or lispworks) "cl"
#+(or allegro clisp ccl ecl sbcl) "lisp"
(DEFUN LOAD-SFILES () #-(or allegro ccl clisp ecl lispworks sbcl)
(mapc #'(lambda (file-name) (error "Not an Allegro or CCL or CLisp or LispWorks or SBCL environment."))
(load (concatenate 'string file-name "." +source-extension+)))
+file-list+)) (DEFCONSTANT +COMPILED-EXTENSION+
#+(or allegro sbcl) "fasl"
(DEFVAR *CMBN-CONTROL*) #+ccl "lafsl"
(SETF *CMBN-CONTROL* T) #+ (or clisp ecl) "fas"
#+lispworks "ofasl")
#+SBCL (DECLAIM (SB-EXT:MUFFLE-CONDITIONS style-warning compiler-note))
(DEFUN LOAD-SFILES ()
(DEFUN COMPILE-FILES () (mapc #'(lambda (file-name)
(format t "~%*CMBN-CONTROL* = ~A~2%" *cmbn-control*) (load (concatenate 'string file-name "." +source-extension+)))
(mapc #'(lambda (file-name) +file-list+))
(compile-file (concatenate 'string file-name "." +source-extension+))
(load (concatenate 'string file-name "." +compiled-extension+))) (DEFVAR *CMBN-CONTROL*)
+file-list+)) (SETF *CMBN-CONTROL* T)
(DEFUN LOAD-CFILES () #+SBCL (DECLAIM (SB-EXT:MUFFLE-CONDITIONS style-warning compiler-note))
(mapc #'(lambda (file-name)
(load (concatenate 'string file-name "." +compiled-extension+))) (DEFUN COMPILE-FILES ()
+file-list+)) (format t "~%*CMBN-CONTROL* = ~A~2%" *cmbn-control*)
(mapc #'(lambda (file-name)
(compile-file (concatenate 'string file-name "." +source-extension+))
(load (concatenate 'string file-name "." +compiled-extension+)))
+file-list+))
(DEFUN LOAD-CFILES ()
(mapc #'(lambda (file-name)
(load (concatenate 'string file-name "." +compiled-extension+)))
+file-list+))