Wolfram Language Paclet Repository
Community-contributed installable additions to the Wolfram Language
MultiwaySystem in depth
Make a string multiway system:
In[427]:=
multi=
[{"BB""AB","A""BA"},{"A","AA"}]
 | MultiwaySystem |
Out[427]=
MultiwaySystem
 |
|
In[428]:=
multi["Expression"]
Out[428]=
{{{1,A,0}},{{1,A,2},{2,A,0}}}
In[429]:=
ApplyStringRules[multi["Expression"]〚1〛,{"BB""AB","A""BA"}]
Out[429]=
Input{1},Output1,c.$1775786,Rule2,Position{{1}}1,B,c.$1775786,c.$1775786,A,0
In[430]:=
multi["Rules"]
Out[430]=
H._ApplyStringRules[H.,{BBAB,ABA}]
In[431]:=
multi["Properties"]
Out[431]=
{AllStatesBranchialGraph,BranchialGraph,CausalBranchialGraph,CausalEvolutionGraph,CausalGraph,CausalStatesGraph,EvolutionCausalGraph,EvolutionEventsGraph,EvolutionGraph,Graph,Multi,Properties,StatesGraph,TokenEventGraph,Type}
In[432]:=
multi["Multi"]
Out[432]=
Multi
|
In[433]:=
multi["Multi"]["Properties"]
Out[433]=
{Expression,HoldExpression,Data,Placeholders,Bindings,ListValues,HoldListValues,EvaluateList,HoldEvaluateList,EvaluateListOnce,HoldEvaluateListOnce,Evaluate,HoldEvaluate,EvaluateOnce,HoldEvaluateOnce,MultiList,ListEvaluate,HoldListEvaluate,MultiListEvaluate,HoldMultiListEvaluate,MultiEvaluate,HoldMultiEvaluate,Edges,HoldEdges,Graph,HoldGraph}
In[434]:=
multi["Multi"]["Events"]
Out[434]=
{{1}},Rule,1,H._{{1,A,0}},Input{1},Output1,c.$1776262,Rule2,Position{{1}}1,B,c.$1776262,c.$1776262,A,0,{{2}},Rule,1,H._{{1,A,2},{2,A,0}},Input{1},Output1,c.$1776526,Rule2,Position{{1}},Input{2},Output2,c.$1776527,Rule2,Position{{2}}1,B,c.$1776526,c.$1776526,A,2,{2,A,0},{1,A,2},2,B,c.$1776527,c.$1776527,A,0
In[435]:=
multi["Multi"]["Graph",4]
Out[435]=
In[436]:=
multi["StatesGraph",3,AspectRatio1/2]
Out[436]=
In[437]:=
cg=multi["CausalGraph",3,"IncludeInitialEvent"True]
Out[437]=
In[439]:=
multi["EvolutionCausalGraph",3]
Out[439]=
Make an expression multiway system:
In[444]:=
multi=
[{x_∘y_(y∘x)∘y,(y_∘x_)∘y_x∘y},(a∘b)∘a]
| MultiwaySystem |
Out[444]=
MultiwaySystem
|
|
In[445]:=
multi["StatesGraph",3,GraphLayout"SpringElectricalEmbedding"]
Out[445]=
In[446]:=
cg=multi["CausalGraph",2,"IncludeInitialEvent"True,AspectRatio1/2]
Out[446]=
Make a combinator multiway system:
Make a function multiway system:
Make a WolframModel multiway system: