2,34,3

ALL THE FOLLOWING RESULTS ARE INCORRECT; INCLUDE LEFT-DISCONNECTED RULES

In[]:=
rules=Table[RandomWolframModelRule[{{2,3}}{{4,3}}],1000];
In[]:=
Length[%]
Out[]=
3140
In[]:=
res=ParallelMapMonitored[WolframModelTest[#,Table[{0,0,0},2]]&,rules];
In[]:=
cres=FilterConnected[res];
In[]:=
Length[cres]
Out[]=
221
In[]:=
Counts[#["EvolutionObject"]["TerminationReason"]&/@cres]
Out[]=
MaxVertices67,MaxVertexDegree62,FixedPoint91,MaxEdges1
In[]:=
MakePictures[Select[cres,#["EvolutionObject"]["TerminationReason"]==="MaxEdges"&]]
Out[]=
In[]:=
MakePictures[Take[Select[cres,#["EvolutionObject"]["TerminationReason"]==="MaxVertices"&],30]]
Out[]=
In[]:=
MakeDirectPictures[{{{{1,2,3},{3,4,5}}{{4,6,7},{6,5,7},{8,5,7},{6,2,8}},{{0,0,0},{0,0,0}},12},{{{1,2,2},{3,4,5}}{{5,6,6},{5,6,2},{4,6,7},{3,4,1}},{{0,0,0},{0,0,0}},35}},2]
Out[]=
In[]:=
Graph3D[HypergraphToGraph[WolframModel[{{1,2,2},{3,4,5}}{{5,6,6},{5,6,2},{4,6,7},{3,4,1}},{{0,0,0},{0,0,0}},35,"FinalState"]]]
Out[]=
In[]:=
HypergraphAdjacencyMatrix[WolframModel[{{1,2,2},{3,4,5}}{{5,6,6},{5,6,2},{4,6,7},{3,4,1}},{{0,0,0},{0,0,0}},35,"FinalState"]]//MatrixPlot
Out[]=