WOLFRAM NOTEBOOK

1,21,3+1,2

In[]:=
allrules=EnumerateWolframModelRules[{{1,2}}{{1,3},{1,2}}];
In[]:=
Length[allrules]
Out[]=
634
In[]:=
res=ParallelMapMonitored[WolframModelTest[#,Table[{0,0},1]]&,allrules];
In[]:=
cres=FilterConnected[res];
In[]:=
Counts[#["EvolutionObject"]["TerminationReason"]&/@cres]
Out[]=
MaxVertexDegree218,MaxGenerations96,MaxVertices102
In[]:=
MakePicturesGS[Select[cres,#["EvolutionObject"]["TerminationReason"]==="MaxGenerations"&]]
Out[]=
In[]:=
MakePicturesGS[First/@GatherBy[Select[cres,#["EvolutionObject"]["TerminationReason"]==="MaxVertices"&],#FinalState&]]
Out[]=

1,21,3+2,2

1,22,3+2,2

1,32,3+1,2

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.