2,33,3
In[]:=
rules=Select[Table[RandomWolframModelRule[{{2,3}}{{3,3}}],10000],FullyConnectedRuleQ];
In[]:=
Length[%]
Out[]=
3140
In[]:=
res=ParallelMapMonitored[WolframModelTest[#,Table[{0,0,0},2]]&,rules];
In[]:=
cres=FilterConnected[res];
In[]:=
Length[cres]
Out[]=
794
In[]:=
Counts[#["EvolutionObject"]["TerminationReason"]&/@cres]
Out[]=
MaxVertexDegree207,MaxGenerations19,FixedPoint401,MaxVertices161,MaxEdges6
In[]:=
MakePictures[Select[cres,#["EvolutionObject"]["TerminationReason"]==="MaxEdges"&]]
Out[]=
In[]:=
MakePictures[Select[cres,#["EvolutionObject"]["TerminationReason"]==="MaxGenerations"&]]
Out[]=
In[]:=
MakePictures[Take[Select[cres,#["EvolutionObject"]["TerminationReason"]==="MaxVertices"&],20]]
Out[]=