2,34,3

rules=Table[RandomWolframModelRule[{{2,3}}{{4,3}}],5000];
In[]:=
Select[rules,LeftConnectedRuleQ];
In[]:=
Length[%]
In[]:=
2618
Out[]=
res=ParallelMapMonitored[WolframModelTest[#,Table[{0,0,0},2]]&,%372];
In[]:=
cres=FilterConnected[res];
In[]:=
Length[cres]
In[]:=
495
Out[]=
495/2618.
In[]:=
0.189076
Out[]=
263/495.
In[]:=
0.531313
Out[]=
Counts[#["EvolutionObject"]["TerminationReason"]&/@cres]
In[]:=
MaxVertices135,FixedPoint263,MaxVertexDegree97
Out[]=
MakePicturesGS[Select[cres,#["EvolutionObject"]["TerminationReason"]=!="FixedPoint"&]]
In[]:=
Out[]=
MakeDirectPictures[{{{{1,2,3},{4,3,5}}{{3,2,6},{3,6,4},{1,7,2},{5,7,1}},{{0,0,0},{0,0,0}},12},{{{1,2,3},{4,3,5}}{{3,2,6},{3,6,4},{1,7,2},{5,7,1}},{{0,0,0},{0,0,0}},12},{{{1,2,3},{2,4,5}}{{4,6,7},{6,1,5},{7,8,1},{5,3,9}},{{0,0,0},{0,0,0}},7},{{{1,2,3},{4,3,5}}{{3,6,1},{4,1,6},{6,7,2},{7,8,4}},{{0,0,0},{0,0,0}},35},{{{1,2,3},{3,4,5}}{{2,3,4},{3,6,4},{7,6,2},{2,8,9}},{{0,0,0},{0,0,0}},8},{{{1,1,2},{2,3,4}}{{5,5,4},{6,5,5},{1,7,6},{7,1,3}},{{0,0,0},{0,0,0}},79},{{{1,2,3},{2,4,5}}{{3,5,3},{6,5,4},{4,7,5},{2,8,7}},{{0,0,0},{0,0,0}},10}},2]
In[]:=
Out[]=
MakeDirectPictures[{{{{1,1,2},{2,3,4}}{{5,5,4},{6,5,5},{1,7,6},{7,1,3}},{{0,0,0},{0,0,0}},79}},40]
In[]:=
Out[]=
rules=Table[RandomWolframModelRule[{{2,3}}{{4,3}}],10000];
In[]:=
Select[rules,LeftConnectedRuleQ];
In[]:=
res=ParallelMapMonitored[WolframModelTest[#,Table[{0,0,0},2]]&,%];
In[]:=
cres=FilterConnected[res];
In[]:=
Counts[#["EvolutionObject"]["TerminationReason"]&/@cres]
In[]:=
FixedPoint499,MaxVertexDegree194,MaxVertices263,MaxEdges1
Out[]=
MakePicturesGS[Select[cres,#["EvolutionObject"]["TerminationReason"]=!="FixedPoint"&]]
In[]:=
Out[]=
MakeDirectPictures[{{{{1,2,3},{2,4,5}}{{5,2,2},{6,2,3},{6,7,8},{3,1,8}},{{0,0,0},{0,0,0}},14},{{{1,2,3},{3,4,5}}{{4,6,3},{6,3,7},{7,1,8},{2,7,8}},{{0,0,0},{0,0,0}},8},{{{1,2,3},{3,4,5}}{{4,6,1},{6,3,1},{7,3,4},{5,8,6}},{{0,0,0},{0,0,0}},7},{{{1,2,3},{4,2,5}}{{3,3,4},{6,3,4},{1,7,6},{7,2,8}},{{0,0,0},{0,0,0}},11},{{{1,2,3},{2,4,5}}{{6,1,6},{7,6,8},{5,7,8},{4,8,6}},{{0,0,0},{0,0,0}},10},{{{1,2,3},{3,4,5}}{{4,6,1},{4,6,1},{7,6,8},{8,5,2}},{{0,0,0},{0,0,0}},11},{{{1,2,3},{3,4,5}}{{4,6,1},{4,6,1},{7,6,8},{8,5,2}},{{0,0,0},{0,0,0}},11}},2]
In[]:=
Out[]=
MakeDirectPictures[{{{{1,2,3},{1,4,5}}{{3,2,6},{2,5,6},{7,4,3},{1,8,7}},{{0,0,0},{0,0,0}},15},{{{1,2,3},{2,4,5}}{{1,6,1},{3,6,4},{7,3,5},{7,8,1}},{{0,0,0},{0,0,0}},76},{{{1,2,3},{2,4,5}}{{6,7,2},{5,7,8},{4,2,8},{9,3,5}},{{0,0,0},{0,0,0}},14},{{{1,2,3},{2,4,5}}{{6,7,2},{5,7,8},{4,2,8},{9,3,5}},{{0,0,0},{0,0,0}},14}},4]
In[]:=
Out[]=
{{{{1,2,3},{2,4,5}}{{6,7,2},{5,7,8},{4,2,8},{9,3,5}},{{0,0,0},{0,0,0}},18},{{{1,2,3},{1,4,5}}{{3,2,6},{2,5,6},{7,4,3},{1,8,7}},{{0,0,0},{0,0,0}},19},{{{1,1,2},{2,3,4}}{{5,5,4},{6,5,5},{1,7,6},{7,1,3}},{{0,0,0},{0,0,0}},79},{{{1,2,3},{3,4,5}}{{4,6,1},{4,6,1},{7,6,8},{8,5,2}},{{0,0,0},{0,0,0}},13}}
{{{{1,2,3},{3,4,5}}{{4,6,1},{4,6,1},{7,6,8},{8,5,2}},{{0,0,0},{0,0,0}},13}}
14×8
In[]:=
112
Out[]=

3,34,3

rules=Table[RandomWolframModelRule[{{3,3}}{{4,3}}],10000];
In[]:=
Select[rules,LeftConnectedRuleQ];
In[]:=
res=ParallelMapMonitored[WolframModelTest[#,Table[{0,0,0},3]]&,%];
In[]:=
cres=FilterConnected[res];
In[]:=
Counts[#["EvolutionObject"]["TerminationReason"]&/@cres]
In[]:=
FixedPoint644,MaxVertexDegree40,MaxVertices25,MaxEdges3,MaxGenerations3
Out[]=
MakePicturesGS[Select[cres,#["EvolutionObject"]["TerminationReason"]=!="FixedPoint"&]]
In[]:=
Out[]=
MakeDirectPictures[{{{{1,2,3},{3,4,5},{6,2,7}}{{8,7,9},{5,7,9},{8,10,6},{1,10,7}},{{0,0,0},{0,0,0},{0,0,0}},35},{{{1,2,3},{2,4,5},{3,6,7}}{{2,6,1},{1,8,6},{4,8,6},{5,1,3}},{{0,0,0},{0,0,0},{0,0,0}},27}},10]
In[]:=
Out[]=
rules=Table[RandomWolframModelRule[{{3,3}}{{4,3}}],10000];
In[]:=
Select[rules,LeftConnectedRuleQ];
In[]:=
Length[%413]
In[]:=
3905
Out[]=
res=ParallelMapMonitored[WolframModelTest[#,Table[{0,0,0},3]]&,%];
In[]:=
cres=FilterConnected[res];
In[]:=
Length[cres]
In[]:=
757
Out[]=
%/3905.
In[]:=
0.193854
Out[]=
Counts[#["EvolutionObject"]["TerminationReason"]&/@cres]
In[]:=
FixedPoint683,MaxVertexDegree45,MaxVertices24,MaxEdges3,MaxGenerations2
Out[]=
MakePicturesGS[Select[cres,#["EvolutionObject"]["TerminationReason"]=!="FixedPoint"&]]
In[]:=
Out[]=

3,35,3

rules=Table[RandomWolframModelRule[{{3,3}}{{5,3}}],10000];
In[]:=
Select[rules,LeftConnectedRuleQ];
In[]:=
res=ParallelMapMonitored[WolframModelTest[#,Table[{0,0,0},3]]&,%];
In[]:=
cres=FilterConnected[res];
In[]:=
Counts[#["EvolutionObject"]["TerminationReason"]&/@cres]
In[]:=
FixedPoint614,MaxVertexDegree45,MaxVertices68,MaxEdges1
Out[]=
MakePicturesGS[Select[cres,#["EvolutionObject"]["TerminationReason"]=!="FixedPoint"&]]
In[]:=
Out[]=
MakeDirectPictures[{{{{1,2,3},{3,4,5},{6,5,7}}{{8,8,9},{6,8,10},{6,7,9},{9,3,1},{4,10,3}},{{0,0,0},{0,0,0},{0,0,0}},15},{{{1,2,3},{2,4,5},{6,7,2}}{{4,4,4},{5,4,8},{8,6,3},{9,10,6},{7,1,10}},{{0,0,0},{0,0,0},{0,0,0}},19}},2]
In[]:=
Out[]=
RulePlot[WolframModel[{{1,2,3},{2,4,5},{6,7,2}}{{4,4,4},{5,4,8},{8,6,3},{9,10,6},{7,1,10}}]]
In[]:=
Out[]=
MakeDirectPictures[{{{{1,2,3},{2,4,5},{6,7,2}}{{4,4,4},{5,4,8},{8,6,3},{9,10,6},{7,1,10}},{{0,0,0},{0,0,0},{0,0,0}},19}},10]
In[]:=
Out[]=
MakeDirectPictures[{{{{1,2,3},{2,4,5},{6,7,2}}{{4,4,4},{5,4,8},{8,6,3},{9,10,6},{7,1,10}},{{0,0,0},{0,0,0},{0,0,0}},19}},25]
In[]:=
Out[]=
MakeDirectPictures[{{{{1,2,3},{2,4,5},{6,7,2}}{{4,4,4},{5,4,8},{8,6,3},{9,10,6},{7,1,10}},{{0,0,0},{0,0,0},{0,0,0}},19}},40]
In[]:=
Out[]=
HypergraphPlot/@Take[WolframModel[{{1,2,3},{2,4,5},{6,7,2}}{{4,4,4},{5,4,8},{8,6,3},{9,10,6},{7,1,10}},{{0,0,0},{0,0,0},{0,0,0}},60,"StatesList"],10;;-1;;10]
In[]:=
Out[]=

2,43,4

rules=Table[RandomWolframModelRule[{{2,4}}{{3,4}}],10000];
In[]:=
Select[rules,LeftConnectedRuleQ];
In[]:=
res=ParallelMapMonitored[WolframModelTest[#,Table[{0,0,0,0},2]]&,%];
In[]:=
cres=FilterConnected[res];
In[]:=
Counts[#["EvolutionObject"]["TerminationReason"]&/@cres]
In[]:=
FixedPoint935,MaxVertices193,MaxVertexDegree157,MaxGenerations4
Out[]=
MakePicturesGS[Select[cres,#["EvolutionObject"]["TerminationReason"]=!="FixedPoint"&]]
In[]:=
Out[]=
MakeDirectPictures[{{{{1,2,3,4},{2,5,6,7}}{{5,1,6,6},{4,6,8,5},{2,9,5,10}},{{0,0,0,0},{0,0,0,0}},20},{{{1,2,3,4},{4,5,6,7}}{{7,7,2,4},{6,8,4,8},{1,5,9,5}},{{0,0,0,0},{0,0,0,0}},20},{{{1,2,3,4},{5,3,6,7}}{{8,8,6,9},{5,7,8,8},{3,8,2,1}},{{0,0,0,0},{0,0,0,0}},13},{{{1,2,3,4},{5,6,7,4}}{{3,6,8,8},{6,8,9,4},{10,8,1,2}},{{0,0,0,0},{0,0,0,0}},100}},10]
In[]:=
Out[]=