Computation of spectral sequences added.
This commit is contained in:
parent
10ec7deeaa
commit
f3ed77bd9c
143
kenzo.asd
143
kenzo.asd
@ -1,72 +1,71 @@
|
||||
;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
|
||||
|
||||
(in-package :cl-user)
|
||||
|
||||
(defpackage :kenzo-asd
|
||||
(:use :cl :asdf))
|
||||
|
||||
(in-package :kenzo-asd)
|
||||
|
||||
(asdf:defsystem #:kenzo
|
||||
:description "A Symbolic Software for Effective Homology Computation by Francis Sergeraert"
|
||||
:version "1.1.7"
|
||||
:author "Francis Sergeraert <Francis.Sergeraert@ujf-grenoble.fr>"
|
||||
:license "GPLv3"
|
||||
:serial t
|
||||
:components
|
||||
((:file "package")
|
||||
(:module "src"
|
||||
:components
|
||||
(
|
||||
(:file "kenzo")
|
||||
(:file "abbreviations")
|
||||
(:file "macros")
|
||||
(:file "various")
|
||||
(:file "classes")
|
||||
(:file "combinations")
|
||||
(:file "chain-complexes")
|
||||
(:file "chcm-elementary-op")
|
||||
(:file "effective-homology")
|
||||
(:file "homology-groups")
|
||||
(:file "searching-homology")
|
||||
(:file "cones")
|
||||
(:file "bicones")
|
||||
(:file "tensor-products")
|
||||
(:file "coalgebras")
|
||||
(:file "cobar")
|
||||
(:file "algebras")
|
||||
(:file "bar")
|
||||
(:file "simplicial-sets")
|
||||
(:file "simplicial-mrphs")
|
||||
(:file "delta")
|
||||
(:file "special-smsts")
|
||||
(:file "suspensions")
|
||||
(:file "disk-pasting")
|
||||
(:file "cartesian-products")
|
||||
(:file "eilenberg-zilber")
|
||||
(:file "kan")
|
||||
(:file "simplicial-groups")
|
||||
(:file "fibrations")
|
||||
(:file "loop-spaces")
|
||||
(:file "ls-twisted-products")
|
||||
(:file "lp-space-efhm")
|
||||
(:file "classifying-spaces")
|
||||
(:file "k-pi-n")
|
||||
(:file "serre")
|
||||
(:file "cs-twisted-products")
|
||||
(:file "cl-space-efhm")
|
||||
(:file "whitehead")
|
||||
(:file "smith")
|
||||
(:module "anromero"
|
||||
:components
|
||||
((:file "resolutions")
|
||||
(:file "cylinders")
|
||||
(:file "fundamental-classes")
|
||||
(:file "homotopy")
|
||||
(:file "bicomplexes")))
|
||||
#|
|
||||
((:file "bicomplexes")
|
||||
(:file "filtered-complexes")
|
||||
(:file "spectral-sequences")))
|
||||
|#
|
||||
))))
|
||||
;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*
|
||||
|
||||
(in-package :cl-user)
|
||||
|
||||
(defpackage :kenzo-asd
|
||||
(:use :cl :asdf))
|
||||
|
||||
(in-package :kenzo-asd)
|
||||
|
||||
(asdf:defsystem #:kenzo
|
||||
:description "A Symbolic Software for Effective Homology Computation by Francis Sergeraert"
|
||||
:version "1.1.7"
|
||||
:author "Francis Sergeraert <Francis.Sergeraert@ujf-grenoble.fr>"
|
||||
:license "GPLv3"
|
||||
:serial t
|
||||
:components
|
||||
((:file "package")
|
||||
(:module "src"
|
||||
:components
|
||||
(
|
||||
(:file "kenzo")
|
||||
(:file "abbreviations")
|
||||
(:file "macros")
|
||||
(:file "various")
|
||||
(:file "classes")
|
||||
(:file "combinations")
|
||||
(:file "chain-complexes")
|
||||
(:file "chcm-elementary-op")
|
||||
(:file "effective-homology")
|
||||
(:file "homology-groups")
|
||||
(:file "searching-homology")
|
||||
(:file "cones")
|
||||
(:file "bicones")
|
||||
(:file "tensor-products")
|
||||
(:file "coalgebras")
|
||||
(:file "cobar")
|
||||
(:file "algebras")
|
||||
(:file "bar")
|
||||
(:file "simplicial-sets")
|
||||
(:file "simplicial-mrphs")
|
||||
(:file "delta")
|
||||
(:file "special-smsts")
|
||||
(:file "suspensions")
|
||||
(:file "disk-pasting")
|
||||
(:file "cartesian-products")
|
||||
(:file "eilenberg-zilber")
|
||||
(:file "kan")
|
||||
(:file "simplicial-groups")
|
||||
(:file "fibrations")
|
||||
(:file "loop-spaces")
|
||||
(:file "ls-twisted-products")
|
||||
(:file "lp-space-efhm")
|
||||
(:file "classifying-spaces")
|
||||
(:file "k-pi-n")
|
||||
(:file "serre")
|
||||
(:file "cs-twisted-products")
|
||||
(:file "cl-space-efhm")
|
||||
(:file "whitehead")
|
||||
(:file "smith")
|
||||
(:file "sage-interface")
|
||||
(:module "anromero"
|
||||
:components
|
||||
((:file "resolutions")
|
||||
(:file "cylinders")
|
||||
(:file "fundamental-classes")
|
||||
(:file "homotopy")
|
||||
(:file "bicomplexes")
|
||||
(:file "filtered-complexes")
|
||||
(:file "spectral-sequences")
|
||||
(:file "persistent-homology")
|
||||
))))))
|
||||
|
||||
@ -250,7 +250,7 @@
|
||||
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)))
|
||||
(dotimes (i 5)
|
||||
(print (basis bc i)))
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -650,6 +650,8 @@
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
(DEFUN ZGCMBN-TWI (zgcmpr zgcmbn)
|
||||
;;(declare (type zgcmbn zgcmbn))
|
||||
(with-cmbn (degr list) zgcmbn
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -1,95 +1,104 @@
|
||||
;;;; -*- 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
|
||||
|
||||
(DEFPACKAGE :CAT
|
||||
(:USE CL))
|
||||
|
||||
(IN-PACKAGE "COMMON-LISP-USER")
|
||||
|
||||
(DEFUN KENZO-VERSION ()
|
||||
(format t "~%*** Kenzo-Version 1.1.7 ***~2%")
|
||||
(values))
|
||||
|
||||
(PROCLAIM '(OPTIMIZE (speed 3) (safety 1) (space 0) (debug 0)))
|
||||
|
||||
(DEFCONSTANT +FILE-LIST+
|
||||
'("kenzo"
|
||||
"macros"
|
||||
"various"
|
||||
"classes"
|
||||
"combinations"
|
||||
"chain-complexes"
|
||||
"chcm-elementary-op"
|
||||
"effective-homology"
|
||||
"homology-groups"
|
||||
"searching-homology"
|
||||
"cones"
|
||||
"bicones"
|
||||
"tensor-products"
|
||||
"coalgebras"
|
||||
"cobar"
|
||||
"algebras"
|
||||
"bar"
|
||||
"simplicial-sets"
|
||||
"simplicial-mrphs"
|
||||
"delta"
|
||||
"special-smsts"
|
||||
"suspensions"
|
||||
"disk-pasting"
|
||||
"cartesian-products"
|
||||
"eilenberg-zilber"
|
||||
"kan"
|
||||
"simplicial-groups"
|
||||
"fibrations"
|
||||
"loop-spaces"
|
||||
"ls-twisted-products"
|
||||
"lp-space-efhm"
|
||||
"classifying-spaces"
|
||||
"k-pi-n"
|
||||
"serre"
|
||||
"cs-twisted-products"
|
||||
"cl-space-efhm"
|
||||
"whitehead"
|
||||
"smith"))
|
||||
|
||||
(DO ((i 1 (1+ i))
|
||||
(mark +file-list+ (cdr mark)))
|
||||
((endp mark) (terpri))
|
||||
(format t "~% FILE ~2D: ~A" i (car mark)))
|
||||
|
||||
(DEFCONSTANT +SOURCE-EXTENSION+
|
||||
#+(or allegro lispworks) "cl"
|
||||
#+(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."))
|
||||
|
||||
(DEFCONSTANT +COMPILED-EXTENSION+
|
||||
#+(or allegro sbcl) "fasl"
|
||||
#+ccl "lafsl"
|
||||
#+ (or clisp ecl) "fas"
|
||||
#+lispworks "ofasl")
|
||||
|
||||
(DEFUN LOAD-SFILES ()
|
||||
(mapc #'(lambda (file-name)
|
||||
(load (concatenate 'string file-name "." +source-extension+)))
|
||||
+file-list+))
|
||||
|
||||
(DEFVAR *CMBN-CONTROL*)
|
||||
(SETF *CMBN-CONTROL* T)
|
||||
|
||||
#+SBCL (DECLAIM (SB-EXT:MUFFLE-CONDITIONS style-warning compiler-note))
|
||||
|
||||
(DEFUN COMPILE-FILES ()
|
||||
(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+))
|
||||
;;;; -*- 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
|
||||
|
||||
(DEFPACKAGE :CAT
|
||||
(:USE CL))
|
||||
|
||||
(IN-PACKAGE "COMMON-LISP-USER")
|
||||
|
||||
(DEFUN KENZO-VERSION ()
|
||||
(format t "~%*** Kenzo-Version 1.1.7 ***~2%")
|
||||
(values))
|
||||
|
||||
(PROCLAIM '(OPTIMIZE (speed 3) (safety 1) (space 0) (debug 0)))
|
||||
|
||||
(DEFCONSTANT +FILE-LIST+
|
||||
'("kenzo"
|
||||
"macros"
|
||||
"various"
|
||||
"classes"
|
||||
"combinations"
|
||||
"chain-complexes"
|
||||
"chcm-elementary-op"
|
||||
"effective-homology"
|
||||
"homology-groups"
|
||||
"searching-homology"
|
||||
"cones"
|
||||
"bicones"
|
||||
"tensor-products"
|
||||
"coalgebras"
|
||||
"cobar"
|
||||
"algebras"
|
||||
"bar"
|
||||
"simplicial-sets"
|
||||
"simplicial-mrphs"
|
||||
"delta"
|
||||
"special-smsts"
|
||||
"suspensions"
|
||||
"disk-pasting"
|
||||
"cartesian-products"
|
||||
"eilenberg-zilber"
|
||||
"kan"
|
||||
"simplicial-groups"
|
||||
"fibrations"
|
||||
"loop-spaces"
|
||||
"ls-twisted-products"
|
||||
"lp-space-efhm"
|
||||
"classifying-spaces"
|
||||
"k-pi-n"
|
||||
"serre"
|
||||
"cs-twisted-products"
|
||||
"cl-space-efhm"
|
||||
"whitehead"
|
||||
"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))
|
||||
(mark +file-list+ (cdr mark)))
|
||||
((endp mark) (terpri))
|
||||
(format t "~% FILE ~2D: ~A" i (car mark)))
|
||||
|
||||
(DEFCONSTANT +SOURCE-EXTENSION+
|
||||
#+(or lispworks) "cl"
|
||||
#+(or allegro 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."))
|
||||
|
||||
(DEFCONSTANT +COMPILED-EXTENSION+
|
||||
#+(or allegro sbcl) "fasl"
|
||||
#+ccl "lafsl"
|
||||
#+ (or clisp ecl) "fas"
|
||||
#+lispworks "ofasl")
|
||||
|
||||
(DEFUN LOAD-SFILES ()
|
||||
(mapc #'(lambda (file-name)
|
||||
(load (concatenate 'string file-name "." +source-extension+)))
|
||||
+file-list+))
|
||||
|
||||
(DEFVAR *CMBN-CONTROL*)
|
||||
(SETF *CMBN-CONTROL* T)
|
||||
|
||||
#+SBCL (DECLAIM (SB-EXT:MUFFLE-CONDITIONS style-warning compiler-note))
|
||||
|
||||
(DEFUN COMPILE-FILES ()
|
||||
(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+))
|
||||
|
||||
Loading…
Reference in New Issue
Block a user