Wolfram Language Paclet Repository
Community-contributed installable additions to the Wolfram Language
Introduction to Diagrammatic Computation
The first diagram:
In[2]:=
 | Diagram |
Out[2]=
In[3]:=
 | DiagramFunction |
 | Diagram |
Out[3]//InputForm=
(Sequence @@ {Indexed[#1, {1}]} & ) @* HoldForm[Plus]
In[4]:=
| DiagramTensor |
| Diagram |
Out[4]=
3
Plus
In[5]:=
| DiagramNetwork |
| Diagram |
| Diagram |
| Diagram |
Out[5]=
In[6]:=
f=
[Annotation["(2*)","Function"({2#,#+1}&)],x,{"2x","x+1"}]
| Diagram |
Out[6]=
In[7]:=
| DiagramFunction |
Out[7]=
Sequence[2x,1+x]
In[8]:=
g=
[Annotation["+","Function"({#1+#2,#1/#2}&)],{x,y},{"x+y","x/y"}]
| Diagram |
Out[8]=
In[9]:=
| DiagramFunction |
Out[9]=
Sequence5,
2
3
In[10]:=
fg=
[{y,x}],g,
[f,"x+y",{"2(x+y)","1+x+y"}]
| ColumnDiagram |
 | PermutationDiagram |
| Diagram |
Out[10]=
In[11]:=
| DiagramFunction |
Out[11]=
Apply[Sequence][{(Sequence@@{,}&@*({2#1,#1+1}&))[#1],(Sequence@@{}&@*({#1}&))[#2]}]&@*(Sequence@@{,}&)@*#1+#2,&@*(Sequence@@{,}&)@*(Permute[#1,Cycles[{{1,2}}]]&)@*({#1,#2}&)
#1
1
#1
2
#1
1
#1
1
#1
2
#1
#2
#1
1
#1
2
In[12]:=
egg=
["Crack Egg","egg",{"white","yolk"}],beat=
["Beat",{"yolk","yolk","sugar"},"yolky paste"],whisk=
["Whisk",{"white","white"},"whisked whites"],stir=
["Stir",{"yolky paste","mascarpone"},"thick paste"],fold=
["Fold",{"whisked whites","thick paste"},"crema di mascarpone"]
 | Diagram |
| Diagram |
| Diagram |
| Diagram |
| Diagram |
Out[12]=
,
,
,
,
In[13]:=
| ColumnDiagram |
| RowDiagram |
 | IdentityDiagram |
| RowDiagram |
Out[13]=
In[14]:=
| ColumnDiagram |
| RowDiagram |
| RowDiagram |
Out[14]=
""