WOLFRAM NOTEBOOK

Prize Specimens for Binary-Edge Rules

(All with {{0,0}} initial conditions)

1 edge 2 edges

In[]:=
Labeled[OrderedHypergraphPlot[WolframModel[#,{{0,0}},6,"FinalState"]],RulePlot[WolframModel[#]]]&/@{{{1,2}}{{1,1},{2,3}},{{1,2}}{{1,2},{2,3}},{{1,2}}{{1,2},{3,1}},{{1,2}}{{1,3},{2,1}},{{1,2}}{{1,3},{2,3}},{{1,2}}{{2,1},{2,3}},{{1,2}}{{2,1},{3,1}},{{1,2}}{{2,1},{3,2}}}
Out[]=

Causal graphs

In[]:=
WolframModel[#,{{0,0}},6,"CausalGraph"]&/@{{{1,2}}{{1,1},{2,3}},{{1,2}}{{1,2},{2,3}},{{1,2}}{{1,2},{3,1}},{{1,2}}{{1,3},{2,1}},{{1,2}}{{1,3},{2,3}},{{1,2}}{{2,1},{2,3}},{{1,2}}{{2,1},{3,1}},{{1,2}}{{2,1},{3,2}}}
Out[]=

A specific case

In[]:=
ParallelMap[OrderedHypergraphPlot,WolframModel[{{1,2}}{{1,2},{2,3}},{{0,0}},8,"StatesList"]]
Out[]=
In[]:=
ParallelMap[LayeredGraphPlot[Rule@@@#,AspectRatio1]&,WolframModel[{{1,2}}{{1,2},{2,3}},{{0,0}},8,"StatesList"]]
Out[]=
In[]:=
ParallelMap[LayeredGraphPlot[Rule@@@#,AspectRatio1,VertexLabelsAutomatic]&,WolframModel[{{1,2}}{{1,2},{2,3}},{{0,0}},5,"StatesList"]]
Out[]=
In[]:=
RulePlot[WolframModel[{{1,2}}{{1,2},{2,3}}]]
Out[]=

2 edges 3 edges

In[]:=
Labeled[OrderedHypergraphPlot[WolframModel[#,{{0,0}},6,"FinalState"]],RulePlot[WolframModel[#]]]&/@{{{1,2}}{{1,2},{1,3},{3,2}},{{1,2}}{{1,3},{1,3},{2,3}},{{1,2}}{{1,3},{2,2},{2,3}},{{1,2}}{{3,1},{3,1},{3,2}}}
Out[]=
In[]:=
ParallelMap[Labeled[Map[OrderedHypergraphPlot,WolframModel[#,{{0,0}},6,"StatesList"]],RulePlot[WolframModel[#]],Left]&,{{{1,2}}{{1,2},{1,3},{3,2}},{{1,2}}{{1,3},{1,3},{2,3}},{{1,2}}{{1,3},{2,2},{2,3}},{{1,2}}{{3,1},{3,1},{3,2}}}]
Out[]=
In[]:=
%14[[2]]
Out[]=
In[]:=
#[[1]]&/@%14
Out[]=

Causal graphs

Wolfram Cloud

You are using a browser not supported by the Wolfram Cloud

Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.


I understand and wish to continue anyway »

You are using a browser not supported by the Wolfram Cloud. Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.