53 lines
730 B
Plaintext
53 lines
730 B
Plaintext
|
|
(load "file-list.lisp")
|
|
|
|
(load-cfiles)
|
|
|
|
(load "resolutions.lisp")
|
|
|
|
(load "cylinders.lisp")
|
|
|
|
|
|
;;
|
|
|
|
|
|
(setf kz22 (k-zp 2 2))
|
|
(setf kz23 (k-zp 2 3))
|
|
(setf kz32 (k-zp 3 2))
|
|
(setf kz33 (k-zp 3 3))
|
|
(setf kz42 (k-zp 4 2))
|
|
(setf kz43 (k-zp 4 3))
|
|
(setf kz52 (k-zp 5 2))
|
|
(setf kz53 (k-zp 5 3))
|
|
|
|
|
|
(print "homology of kz22")
|
|
(time (homology kz22 0 7))
|
|
|
|
(print "homology of kz23")
|
|
(time (homology kz23 0 7))
|
|
|
|
(print "homology of kz32")
|
|
(time (homology kz32 0 7))
|
|
|
|
(print "homology of kz33")
|
|
(time (homology kz33 0 7))
|
|
|
|
(print "homology of kz42")
|
|
(time (homology kz42 0 7))
|
|
|
|
(print "homology of kz43")
|
|
(time (homology kz43 0 7))
|
|
|
|
(print "homology of kz52")
|
|
(time (homology kz52 0 7))
|
|
|
|
(print "homology of kz53")
|
|
(time (homology kz53 0 7))
|
|
|
|
|
|
|
|
|
|
|
|
|