2,3 3,3
2,3 3,3
In[]:=
rules=Parallelize[Select[Table[RandomWolframModelRule[{{2,3}}{{3,3}}],10000],FullyConnectedRuleQ]];
In[]:=
Length[%]
Out[]=
3134
In[]:=
res=ParallelMapMonitored[WolframModelTest[#,{{0,0,0},{0,0,0}}]&,rules];
In[]:=
cres=FilterConnected[res];
In[]:=
Counts[#["EvolutionObject"]["TerminationReason"]&/@cres]
Out[]=
MaxVertices169,MaxVertexDegree220,FixedPoint409,MaxEdges9,MaxGenerations22
In[]:=
MakePictures[Select[cres,#["EvolutionObject"]["TerminationReason"]==="MaxEdges"&]]
Out[]=
In[]:=
MakeDirectPictures[{{{{1,2,3},{4,3,5}}{{6,5,6},{5,4,1},{3,2,5}},{{0,0,0},{0,0,0}},15},{{{1,2,3},{2,4,5}}{{5,5,6},{4,5,4},{6,3,4}},{{0,0,0},{0,0,0}},16},{{{1,2,3},{2,4,5}}{{6,5,1},{1,5,4},{3,2,6}},{{0,0,0},{0,0,0}},52},{{{1,2,3},{4,3,5}}{{6,3,1},{1,4,3},{2,6,5}},{{0,0,0},{0,0,0}},23}},2]
Out[]=
In[]:=
MakePictures[Select[cres,#["EvolutionObject"]["TerminationReason"]==="MaxGenerations"&]]
Out[]=
2,3 4,3
2,3 4,3
Gets larger....