2,2 3,2
2,2 3,2
rules=Select[Table[RandomWolframModelRule[{{2,2}}{{3,2}}],1000],FullyConnectedRuleQ];
In[]:=
Length[%]
In[]:=
205
Out[]=
res=ParallelMapMonitored[WolframModelTest[#,{{0,0},{0,0}}]&,rules];
In[]:=
cres=FilterConnected[res];
In[]:=
Length[cres]
In[]:=
64
Out[]=
MakePictures2[Select[cres,#["EvolutionObject"]["TerminationReason"]==="MaxVertices"&]]
In[]:=
{},
Out[]=
MakePictures2[Select[cres,#["EvolutionObject"]["TerminationReason"]==="MaxEdges"&]]
In[]:=
Out[]=
rules=Select[Table[RandomWolframModelRule[{{2,2}}{{3,2}}],10000],FullyConnectedRuleQ];
In[]:=
Length[%]
In[]:=
2097
Out[]=
res=ParallelMapMonitored[WolframModelTest[#,{{0,0},{0,0}}]&,rules];
In[]:=
cres=FilterConnected[res];
In[]:=
Length[cres]
In[]:=
715
Out[]=
MakePictures2[Select[cres,#["EvolutionObject"]["TerminationReason"]==="MaxVertices"&]]
In[]:=
Out[]=
MakePictures2[Select[cres,#["EvolutionObject"]["TerminationReason"]==="MaxEdges"&]]
In[]:=
Out[]=
Different initial conditions
Different initial conditions
rules=Select[Table[RandomWolframModelRule[{{2,2}}{{3,2}}],10000],FullyConnectedRuleQ];
In[]:=
Length[%]
In[]:=
2119
Out[]=
res=ParallelMapMonitored[WolframModelTest[#,Table[{0,0},6]]&,rules];
In[]:=
cres=FilterConnected[res];
In[]:=
Length[cres]
In[]:=
759
Out[]=
MakePictures2[Select[cres,#["EvolutionObject"]["TerminationReason"]==="MaxEdges"&]]
In[]:=
Out[]=
MakePictures2[Take[Select[cres,#["EvolutionObject"]["TerminationReason"]==="MaxVertices"&],5]]
In[]:=
Out[]=
2,2 4,2
2,2 4,2
rules=Select[Table[RandomWolframModelRule[{{2,2}}{{4,2}}],10000],FullyConnectedRuleQ];
In[]:=
Length[%]
In[]:=
1656
Out[]=
res=ParallelMapMonitored[WolframModelTest[#,{{0,0},{0,0}}]&,rules];
In[]:=
cres=FilterConnected[res];
In[]:=
Length[cres]
In[]:=
514
Out[]=
MakePictures2[Select[cres,#["EvolutionObject"]["TerminationReason"]==="MaxVertices"&]]
In[]:=
Out[]=
MakePictures2[Select[cres,#["EvolutionObject"]["TerminationReason"]==="MaxEdges"&]]
In[]:=
Out[]=
Alternative Initial Conditions
Alternative Initial Conditions
res=ParallelMapMonitored[WolframModelTest[#,{{0,0},{0,0},{0,0},{0,0}}]&,rules];
In[]:=
cres=FilterConnected[res];
In[]:=
514 to 547 stay connected....
Length[cres]
In[]:=
547
Out[]=
MakePictures2[Select[cres,#["EvolutionObject"]["TerminationReason"]==="MaxEdges"&]]
In[]:=
Out[]=
MakePictures2[Select[cres,#["EvolutionObject"]["TerminationReason"]==="MaxVertices"&]]
In[]:=
Out[]=
res=ParallelMapMonitored[WolframModelTest[#,{{1,2},{2,3},{3,4},{4,1}}]&,rules];
In[]:=
cres=FilterConnected[res];
In[]:=
Many fewer stay connected....
Length[cres]
In[]:=
127
Out[]=
MakePictures2[Select[cres,#["EvolutionObject"]["TerminationReason"]==="MaxEdges"&]]
In[]:=
Out[]=
EvolutionPicture2[{{1,2},{2,3}}{{4,2},{4,1},{2,1},{3,4}},{{1,2},{2,3},{3,4},{4,1}},8]
In[]:=
Out[]=
EvolutionPicture2[{{1,2},{2,3}}{{4,2},{4,1},{2,1},{3,4}},{{0,0},{0,0}},6]
In[]:=
Out[]=
FinalPicture2[{{1,2},{2,3}}{{4,2},{4,1},{2,1},{3,4}},{{0,0},{0,0}},10]
In[]:=
Out[]=
res=ParallelMapMonitored[WolframModelTest[#,Table[{0,0},6]]&,rules];
In[]:=
cres=FilterConnected[res];
In[]:=
514 to 547 stay connected....
Length[cres]
In[]:=
603
Out[]=
MakePictures2[Select[cres,#["EvolutionObject"]["TerminationReason"]==="MaxEdges"&]]
In[]:=
Out[]=
MakeDirectPictures2[{{{{1,2},{2,3}}{{4,4},{4,2},{1,4},{3,4}},{{0,0},{0,0},{0,0},{0,0},{0,0},{0,0}},6},{{{1,2},{1,3}}{{2,4},{2,5},{4,3},{1,5}},{{0,0},{0,0},{0,0},{0,0},{0,0},{0,0}},8}},2]
In[]:=
Out[]=
MakeDirectPictures2[{{{{1,2},{2,3}}{{4,4},{4,2},{1,4},{3,4}},{{0,0},{0,0},{0,0},{0,0},{0,0},{0,0}},6},{{{1,2},{1,3}}{{2,4},{2,5},{4,3},{1,5}},{{0,0},{0,0},{0,0},{0,0},{0,0},{0,0}},8}},4]
In[]:=
Out[]=