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

Extracted test from simplicial-mrphs.lisp.

Browse Source
This commit is contained in:
Gerd Heber 2015-07-25 21:04:59 -05:00
parent f3cde5d076
commit bbffb8fb87
1 changed files with 0 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/simplicial-mrphs.lisp
View File

@ -89,21 +89,6 @@
(push rslt *smmr-list*) (push rslt *smmr-list*)
rslt)))) rslt))))
#|
(setf d (delta 3))
(setf m (build-smmr
:sorc d :trgt d :degr 0
:sintr #'(lambda (dmns gmsm)
(absm 0 gmsm))
:orgn '(identity delta-3)))
(setf m2 (build-smmr
:sorc d :trgt d :degr 0
:sintr #'(lambda (dmns gmsm)
(absm (mask dmns) 1))
:orgn '(null delta-3)))
(? m2 2 7)
;; (s? m2 2 7)
|#
#| ???? #| ????
(DEFUN IA-SINTR3 (sintr dmns iabsm) (DEFUN IA-SINTR3 (sintr dmns iabsm)