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

Fixed issue #123 in Chapter 11.

Browse Source
This commit is contained in:
gheber 2016-04-23 17:16:42 -05:00
parent c30df8f2f6
commit 30ff3bc32a
1 changed files with 16 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
examples/11_Simplicial_Groups.ipynb
View File

@ -1103,14 +1103,6 @@
"collapsed": false "collapsed": false
}, },
"outputs": [ "outputs": [
{
"name": "stderr",
"output_type": "stream",
"text": [
"SIMPLE-STYLE-WARNING: \n",
" #<SB-INT:SIMPLE-STYLE-WARNING \"The variable ~S is defined but never used.\" {10067FD4A3}>\n"
]
},
{ {
"data": { "data": {
"text/plain": [ "text/plain": [
@ -1124,20 +1116,20 @@
], ],
"source": [ "source": [
"(def assoc1 (build-mrph\n", "(def assoc1 (build-mrph\n",
" :sorc 3-left\n", " :sorc 3-left\n",
" :trgt 3-right\n", " :trgt 3-right\n",
" :degr 0\n", " :degr 0\n",
" :intr #'(lambda (degr a2-a)\n", " :intr #'(lambda (degr a2-a)\n",
" (declare (ignore degr))\n", " (declare (ignore degr))\n",
" (with-tnpr (degra2 gnrta2 degra gnrta) a2-a\n", " (with-tnpr (degra2 gnrta2 degra gnrta) a2-a\n",
" (with-tnpr (degr1 gnrt1 degr2 gnrt2) gnrta2\n", " (declare (ignore degra2))\n",
" (cmbn (+ degr1 degr2 degra) \n", " (with-tnpr (degr1 gnrt1 degr2 gnrt2) gnrta2\n",
" 1 (tnpr degr1 \n", " (cmbn (+ degr1 degr2 degra) \n",
" gnrt1 \n", " 1 (tnpr degr1 gnrt1 \n",
" (+ degr2 degra) \n", " (+ degr2 degra) \n",
" (tnpr degr2 gnrt2 degra gnrta))))))\n", " (tnpr degr2 gnrt2 degra gnrta))))))\n",
" :strt :gnrt\n", " :strt :gnrt\n",
" :orgn '(assoc-double-tensor-product)))" " :orgn '(assoc-double-tensor-product)))"
] ]
}, },
{ {
@ -1508,7 +1500,7 @@
{ {
"data": { "data": {
"text/plain": [ "text/plain": [
"#<CLOSURE (LAMBDA (DEGR ABAR) :IN BAR-INTR-VRTC-DFFR) {1006FEDBBB}>" "#<CLOSURE (LAMBDA (DEGR ABAR) :IN BAR-INTR-VRTC-DFFR) {1006FD5A6B}>"
] ]
}, },
"execution_count": 52, "execution_count": 52,
@ -1609,7 +1601,7 @@
{ {
"data": { "data": {
"text/plain": [ "text/plain": [
"#<CLOSURE (LAMBDA (DEGR ABAR) :IN BAR-INTR-HRZN-DFFR) {10071670DB}>" "#<CLOSURE (LAMBDA (DEGR ABAR) :IN BAR-INTR-HRZN-DFFR) {100714F0DB}>"
] ]
}, },
"execution_count": 56, "execution_count": 56,