WOLFRAM NOTEBOOK

2,2 3,2

1 step:
Out[]=
True96,False4606
In[]:=
FinalPicture2[#,7]&/@{{{1,2},{1,3}}{{4,1},{4,2},{4,3}},{{1,2},{3,2}}{{1,4},{2,4},{3,4}},{{1,2},{3,2}}{{1,3},{2,3},{4,3}},{{1,2},{1,2}}{{3,3},{3,3},{2,3}}}
Out[]=
In[]:=
WolframModel[#,{{0,0},{0,0}},9,"CausalGraph"]&/@{{{1,2},{1,3}}{{4,1},{4,2},{4,3}},{{1,2},{3,2}}{{1,4},{2,4},{3,4}},{{1,2},{3,2}}{{1,3},{2,3},{4,3}},{{1,2},{1,2}}{{3,3},{3,3},{2,3}}}
Out[]=
In[]:=
WolframModel[#,{{0,0},{0,0}},20,"CausalGraph"]&/@{{{1,2},{1,3}}{{4,1},{4,2},{4,3}},{{1,2},{3,2}}{{1,4},{2,4},{3,4}},{{1,2},{3,2}}{{1,3},{2,3},{4,3}},{{1,2},{1,2}}{{3,3},{3,3},{2,3}}}
Out[]=
(Consider multiway-equivalent rules)
In[]:=
ParallelMapMonitored[Graph[MultiwaySystem[WolframModel[#],{{0,0},{0,0}},4,"StatesGraph"],VertexSize1]&,{{{1,2},{1,3}}{{4,1},{4,2},{4,3}},{{1,2},{3,2}}{{1,4},{2,4},{3,4}},{{1,2},{3,2}}{{1,3},{2,3},{4,3}},{{1,2},{1,2}}{{3,3},{3,3},{2,3}}}]
Out[]=
2 steps:
False4485,True121
In[]:=
FinalPicture2[#,7]&/@{{{1,2},{1,3}}{{2,1},{2,1},{2,4}},{{1,2},{3,2}}{{1,1},{1,2},{4,1}}}
Out[]=
3 steps:
False4253,$Aborted220,True12
{{{1,2},{1,3}}{{2,4},{2,3},{4,1}}}
In[]:=
FinalPicture2[{{{1,2},{1,3}}{{2,4},{2,3},{4,1}}},20]
Out[]=
In[]:=
Graph[MultiwaySystem[WolframModel[{{1,2},{1,3}}{{2,4},{2,3},{4,1}}],{{0,0},{0,0}},4,"StatesGraph"],VertexSize1]
Out[]=
In[]:=
Graph[MultiwaySystem[WolframModel[{{1,2},{1,3}}{{2,4},{2,3},{4,1}}],{{0,0},{0,0}},5,"StatesGraph"],VertexSize1]
Out[]=

Prize Rule

RERUN WITHOUT RESOLVED!!!

Interesting Rules

2,2 3,2 rule

Takes 3 steps:

1-ary case

Single LHS rules

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.