2,33,3
rules=Select[Table[RandomWolframModelRule[{{2,3}}{{3,3}}],10000],FullyConnectedRuleQ];
In[]:=
Length[%]
In[]:=
3140
Out[]=
res=ParallelMapMonitored[WolframModelTest[#,Table[{0,0,0},2]]&,rules];
In[]:=
cres=FilterConnected[res];
In[]:=
Length[cres]
In[]:=
794
Out[]=
Counts[#["EvolutionObject"]["TerminationReason"]&/@cres]
In[]:=
MaxVertexDegree207,MaxGenerations19,FixedPoint401,MaxVertices161,MaxEdges6
Out[]=
MakePictures[Select[cres,#["EvolutionObject"]["TerminationReason"]==="MaxEdges"&]]
In[]:=
Out[]=
MakePictures[Select[cres,#["EvolutionObject"]["TerminationReason"]==="MaxGenerations"&]]
In[]:=
Out[]=
MakePictures[Take[Select[cres,#["EvolutionObject"]["TerminationReason"]==="MaxVertices"&],20]]
In[]:=
Out[]=
GraphicsGrid[Partition[ParallelMapMonitored[Labeled[HypergraphPlot[WolframModel[#[[1]],#[[2]],#[[3]],"FinalState"]],RulePlot[WolframModel[#[[1]]],ImageSize80]]&,{{{{1,2,3},{4,2,5}}{{6,3,4},{6,2,4},{3,4,5}},{{0,0,0},{0,0,0}},20},{{{1,2,3},{4,3,5}}{{3,5,2},{5,2,4},{2,1,6}},{{0,0,0},{0,0,0}},18},{{{1,2,3},{2,4,5}}{{6,5,1},{1,5,4},{3,2,6}},{{0,0,0},{0,0,0}},80},{{{1,2,3},{4,3,5}}{{6,3,1},{1,4,3},{2,6,5}},{{0,0,0},{0,0,0}},35}}],UpTo[4]],ImageSizeFull]
In[]:=
Out[]=
$PhysicsDataDirectory
In[]:=
arules=Import["/Users/sw/Dropbox/Physics/Data/RuleEnumerations/23-33c.wxf"];
In[]:=
Length[arules]
In[]:=
79359764
Out[]=
res=ParallelMapMonitored[WolframModelTest[#,Table[{0,0,0},2]]&,RandomSample[arules,1000]];
In[]:=
cres=FilterConnected[res];
In[]:=
Length[cres]
In[]:=
431
Out[]=
Counts[#["EvolutionObject"]["TerminationReason"]&/@cres]
In[]:=
MaxVertexDegree187,FixedPoint195,MaxGenerations20,MaxVertices19,MaxEdges10
Out[]=
MakePictures[Select[cres,#["EvolutionObject"]["TerminationReason"]==="MaxEdges"&]]
In[]:=
Out[]=
MakeDirectPictures[{{{{1,2,3},{2,4,5}}{{3,6,4},{4,6,5},{5,1,4}},{{0,0,0},{0,0,0}},20},{{{1,2,3},{1,4,5}}{{2,5,6},{5,1,3},{3,4,6}},{{0,0,0},{0,0,0}},16},{{{1,2,3},{4,3,5}}{{6,5,6},{6,4,3},{2,1,6}},{{0,0,0},{0,0,0}},19}},3]
In[]:=
,
,
,
MakePictures[Select[cres,#["EvolutionObject"]["TerminationReason"]==="MaxGenerations"&]]
In[]:=
Out[]=
MakeDirectPictures[{{{{1,2,1},{3,2,4}}{{2,3,2},{5,2,4},{1,5,2}},{{0,0,0},{0,0,0}},100}},500]
In[]:=
Out[]=
res=ParallelMapMonitored[WolframModelTest[#,Table[{0,0,0},2]]&,RandomSample[arules,3000]];
In[]:=
cres=FilterConnected[res];
In[]:=
Length[cres]
In[]:=
1358
Out[]=
Counts[#["EvolutionObject"]["TerminationReason"]&/@cres]
In[]:=
MaxVertexDegree565,FixedPoint589,MaxGenerations68,MaxEdges35,MaxVertices101
Out[]=
MakePictures[Select[cres,#["EvolutionObject"]["TerminationReason"]==="MaxEdges"&]]
In[]:=
Out[]=
MakeDirectPictures[{{{{1,2,3},{4,2,5}}{{2,6,3},{6,1,2},{1,4,2}},{{0,0,0},{0,0,0}},19},{{{1,2,3},{4,2,5}}{{2,6,3},{6,1,2},{1,4,2}},{{0,0,0},{0,0,0}},19},{{{1,2,3},{2,4,5}}{{3,6,3},{2,4,6},{4,1,5}},{{0,0,0},{0,0,0}},14},{{{1,1,2},{3,2,4}}{{3,3,3},{2,3,4},{4,1,5}},{{0,0,0},{0,0,0}},54},{{{1,2,3},{4,5,3}}{{3,1,5},{1,6,5},{3,6,4}},{{0,0,0},{0,0,0}},13},{{{1,2,3},{3,4,5}}{{3,6,2},{6,1,4},{1,5,3}},{{0,0,0},{0,0,0}},15}},5]
In[]:=
Out[]=
MakeDirectPictures[{{{{1,1,2},{3,2,4}}{{3,3,3},{2,3,4},{4,1,5}},{{0,0,0},{0,0,0}},54}},20]
In[]:=
Out[]=
MakeDirectPictures[{{{{1,1,2},{3,2,4}}{{3,3,3},{2,3,4},{4,1,5}},{{0,0,0},{0,0,0}},54}},60]
In[]:=
Out[]=
MakeDirectPictures[{{{{1,1,2},{3,2,4}}{{3,3,3},{2,3,4},{4,1,5}},Table[{0,0,0},4],54}},0]
In[]:=
Out[]=
MakePictures[Take[Select[cres,#["EvolutionObject"]["TerminationReason"]==="MaxVertices"&],30]]
In[]:=
Out[]=
{{{{1,2,3},{3,4,5}}{{4,3,6},{3,2,5},{7,5,4}},{{0,0,0},{0,0,0}},21}}
MakePictures[Take[Select[cres,#["EvolutionObject"]["TerminationReason"]==="MaxGenerations"&],30]]
In[]:=
Out[]=
MakeDirectPictures[{{{{1,2,3},{1,4,5}}{{3,3,6},{6,6,5},{4,5,6}},{{0,0,0},{0,0,0}},100},{{{1,2,2},{2,3,4}}{{4,3,3},{4,1,5},{2,4,5}},{{0,0,0},{0,0,0}},100}},50]
In[]:=
Out[]=
MakeDirectPictures[{{{{1,2,3},{1,4,5}}{{3,3,6},{6,6,5},{4,5,6}},{{0,0,0},{0,0,0}},100},{{{1,2,2},{2,3,4}}{{4,3,3},{4,1,5},{2,4,5}},{{0,0,0},{0,0,0}},100}},150]
In[]:=
Out[]=
Graph3D[HypergraphToGraph[WolframModel[{{1,2,2},{2,3,4}}{{4,3,3},{4,1,5},{2,4,5}},{{0,0,0},{0,0,0}},100,"FinalState"]]]
In[]:=
Out[]=
Graph3D[HypergraphToGraph[WolframModel[{{1,2,3},{1,4,5}}{{3,3,6},{6,6,5},{4,5,6}},{{0,0,0},{0,0,0}},200,"FinalState"]]]
In[]:=
Out[]=
MakePictures[Drop[Select[cres,#["EvolutionObject"]["TerminationReason"]==="MaxGenerations"&],30]]
In[]:=
Out[]=
MakeDirectPictures[{{{{1,2,3},{1,4,5}}{{2,3,6},{2,3,6},{5,2,6}},{{0,0,0},{0,0,0}},100},{{{1,2,3},{4,2,5}}{{1,6,5},{6,2,1},{3,4,1}},{{0,0,0},{0,0,0}},100}},50]
In[]:=
Out[]=
res=ParallelMapMonitored[WolframModelTest[#,Table[{0,0,0},2]]&,RandomSample[arules,5000]];
In[]:=
cres=FilterConnected[res];
In[]:=
Length[cres]
In[]:=
2156
Out[]=
Counts[#["EvolutionObject"]["TerminationReason"]&/@cres]
In[]:=
MaxVertexDegree899,FixedPoint940,MaxGenerations88,MaxVertices162,MaxEdges67
Out[]=
MakePictures[Select[cres,#["EvolutionObject"]["TerminationReason"]==="MaxEdges"&]]
In[]:=
Out[]=
MakeDirectPictures[{{{{1,2,3},{4,3,5}}{{6,2,5},{6,5,3},{1,6,4}},{{0,0,0},{0,0,0}},15},{{{1,2,3},{2,4,5}}{{1,3,3},{3,4,6},{2,5,6}},{{0,0,0},{0,0,0}},15},{{{1,2,3},{3,4,5}}{{2,5,3},{3,5,2},{4,1,6}},{{0,0,0},{0,0,0}},14},{{{1,2,3},{4,5,3}}{{2,6,3},{2,6,4},{1,5,2}},{{0,0,0},{0,0,0}},16},{{{1,2,3},{4,3,5}}{{6,1,3},{3,5,1},{4,5,6}},{{0,0,0},{0,0,0}},17},{{{1,2,3},{3,4,5}}{{6,3,5},{3,1,6},{6,2,4}},{{0,0,0},{0,0,0}},15},{{{1,2,3},{4,3,5}}{{5,2,5},{5,1,6},{4,5,6}},{{0,0,0},{0,0,0}},19},{{{1,2,3},{4,5,3}}{{6,2,3},{3,2,4},{1,6,5}},{{0,0,0},{0,0,0}},19},{{{1,2,3},{3,4,5}}{{2,6,2},{3,2,4},{5,6,1}},{{0,0,0},{0,0,0}},15}},4]
In[]:=
Out[]=
MakePictures[Select[cres,#["EvolutionObject"]["TerminationReason"]==="MaxGenerations"&]]
In[]:=
Out[]=
MakeDirectPictures[{{{{1,2,3},{4,2,5}}{{6,3,4},{6,3,1},{6,4,2}},{{0,0,0},{0,0,0}},100},{{{1,2,3},{1,4,5}}{{2,6,1},{6,4,1},{2,4,3}},{{0,0,0},{0,0,0}},100},{{{1,2,3},{4,2,5}}{{6,1,6},{3,6,5},{4,2,1}},{{0,0,0},{0,0,0}},100},{{{1,2,2},{3,4,1}}{{2,4,4},{4,5,1},{3,2,5}},{{0,0,0},{0,0,0}},100},{{{1,2,3},{4,5,3}}{{2,5,5},{5,6,1},{5,6,1}},{{0,0,0},{0,0,0}},100}},50]
In[]:=
Out[]=
res=ParallelMapMonitored[WolframModelTest[#,Table[{0,0,0},2]]&,RandomSample[arules,10000]];
In[]:=
cres=FilterConnected[res];
In[]:=
Length[cres]
In[]:=
4299
Out[]=
Counts[#["EvolutionObject"]["TerminationReason"]&/@cres]
In[]:=
MaxVertexDegree1871,FixedPoint1819,MaxVertices314,MaxGenerations191,MaxEdges104
Out[]=
MakePictures[Select[cres,#["EvolutionObject"]["TerminationReason"]==="MaxGenerations"&]]
In[]:=
Out[]=
MakeDirectPictures[{{{{1,2,1},{2,3,4}}{{1,1,3},{2,1,5},{5,4,5}},{{0,0,0},{0,0,0}},100},{{{1,2,3},{4,5,3}}{{6,6,2},{6,4,6},{5,1,2}},{{0,0,0},{0,0,0}},100},{{{1,1,2},{3,1,4}}{{2,2,4},{2,1,5},{3,5,2}},{{0,0,0},{0,0,0}},100},{{{1,2,3},{4,2,5}}{{6,3,1},{3,6,4},{1,2,6}},{{0,0,0},{0,0,0}},100},{{{1,1,2},{3,4,1}}{{4,4,3},{5,4,5},{5,2,1}},{{0,0,0},{0,0,0}},100},{{{1,2,3},{4,2,5}}{{6,1,3},{6,1,4},{3,6,4}},{{0,0,0},{0,0,0}},100},{{{1,2,3},{4,2,5}}{{6,3,1},{3,6,4},{1,2,6}},{{0,0,0},{0,0,0}},100},{{{1,2,3},{4,5,3}}{{6,6,2},{6,4,6},{5,1,2}},{{0,0,0},{0,0,0}},100}},50]
In[]:=
Out[]=
MakePictures[Select[cres,#["EvolutionObject"]["TerminationReason"]==="MaxEdges"&]]
In[]:=
Out[]=
MakeDirectPictures[{{{{1,2,3},{2,4,5}}{{1,4,6},{6,4,3},{2,1,5}},{{0,0,0},{0,0,0}},16},{{{1,2,3},{2,4,5}}{{4,5,4},{5,6,1},{3,2,6}},{{0,0,0},{0,0,0}},15},{{{1,2,3},{2,4,5}}{{5,2,6},{5,3,6},{5,1,4}},{{0,0,0},{0,0,0}},18},{{{1,2,3},{2,4,5}}{{2,3,6},{2,5,6},{6,4,3}},{{0,0,0},{0,0,0}},18},{{{1,2,3},{2,4,5}}{{2,3,6},{2,5,6},{6,4,3}},{{0,0,0},{0,0,0}},18},{{{1,2,3},{4,3,5}}{{1,5,6},{6,5,4},{3,2,6}},{{0,0,0},{0,0,0}},19},{{{1,2,3},{2,4,5}}{{6,5,6},{5,1,4},{5,2,3}},{{0,0,0},{0,0,0}},13},{{{1,2,3},{4,5,3}}{{2,6,4},{6,1,2},{4,2,1}},{{0,0,0},{0,0,0}},17}},3]
In[]:=
Out[]=