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
},
"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": {
"text/plain": [
@ -1124,20 +1116,20 @@
],
"source": [
"(def assoc1 (build-mrph\n",
" :sorc 3-left\n",
" :trgt 3-right\n",
" :degr 0\n",
" :intr #'(lambda (degr a2-a)\n",
" (declare (ignore degr))\n",
" (with-tnpr (degra2 gnrta2 degra gnrta) a2-a\n",
" (with-tnpr (degr1 gnrt1 degr2 gnrt2) gnrta2\n",
" (cmbn (+ degr1 degr2 degra) \n",
" 1 (tnpr degr1 \n",
" gnrt1 \n",
" (+ degr2 degra) \n",
" (tnpr degr2 gnrt2 degra gnrta))))))\n",
" :strt :gnrt\n",
" :orgn '(assoc-double-tensor-product)))"
" :sorc 3-left\n",
" :trgt 3-right\n",
" :degr 0\n",
" :intr #'(lambda (degr a2-a)\n",
" (declare (ignore degr))\n",
" (with-tnpr (degra2 gnrta2 degra gnrta) a2-a\n",
" (declare (ignore degra2))\n",
" (with-tnpr (degr1 gnrt1 degr2 gnrt2) gnrta2\n",
" (cmbn (+ degr1 degr2 degra) \n",
" 1 (tnpr degr1 gnrt1 \n",
" (+ degr2 degra) \n",
" (tnpr degr2 gnrt2 degra gnrta))))))\n",
" :strt :gnrt\n",
" :orgn '(assoc-double-tensor-product)))"
]
},
{
@ -1508,7 +1500,7 @@
{
"data": {
"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,
@ -1609,7 +1601,7 @@
{
"data": {
"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,