1,21,3+1,2
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,21,3+2,2
1,22,3+2,2
1,22,3+2,2
1,32,3+1,2
1,32,3+1,2