In[]:=
rules=Import["/Users/sw/Dropbox/Physics/Data/RuleEnumerations/22-42c.wxf"];
In[]:=
Length[rules]
Out[]=
40405
In[]:=
frules=First/@Values[First/@GroupBy[Select[ParallelMapMonitored[#->WolframModel[#,{{0,0},{0,0}},8,"FinalState"]&,RandomSample[rules,1000]],Length[#[[2]]]>10&&ResourceFunction["ConnectedHypergraphQ"][#[[2]]]&],Last]]
Out[]=
In[]:=
Length[%]
Out[]=
251
Previous Trawls
Previous Trawls
In[]:=
MakeDirectPictures2[{{{{1,2},{1,3}}{{2,3},{2,4},{3,4},{4,1}},{{0,0},{0,0}},10},{{{1,2},{2,3}}{{2,3},{2,4},{3,4},{1,3}},{{0,0},{0,0}},9},{{{1,2},{1,3}}{{1,4},{1,4},{4,2},{3,4}},{{0,0},{0,0}},10},{{{1,2},{1,3}}{{4,1},{1,4},{4,2},{4,3}},{{0,0},{0,0}},10},{{{1,2},{1,3}}{{4,1},{4,2},{1,2},{4,3}},{{0,0},{0,0}},10},{{{1,2},{1,3}}{{4,4},{4,2},{4,3},{1,4}},{{0,0},{0,0}},10},{{{1,2},{2,3}}{{4,1},{4,2},{1,2},{4,3}},{{0,0},{0,0}},11},{{{1,2},{1,3}}{{4,5},{4,2},{5,3},{3,2}},{{0,0},{0,0}},10},{{{1,2},{3,2}}{{1,4},{1,4},{4,3},{2,4}},{{0,0},{0,0}},9}},2]
Out[]=
Notable Cases
Notable Cases
Almost grid
Almost grid
In[]:=
Graph[Rule@@@#]&/@WolframModel[{{1,2},{2,3}}{{4,3},{4,3},{1,4},{2,3}},{{0,0},{0,0}},8,"StatesList"]
Out[]=
In[]:=
Graph[Rule@@@#]&/@WolframModel[{{1,2},{2,3}}{{4,3},{4,3},{1,4},{2,3}},{{1,2},{2,3},{3,4},{4,1}},10,"StatesList"]
Out[]=
The following autofeeding the initial condition:
In[]:=
Graph[Rule@@@#]&/@WolframModel[{{1,2},{2,3}}{{4,3},{4,3},{1,4},{2,3}},{{1,2},{2,3}},10,"StatesList"]
Out[]=
In[]:=
Graph[Rule@@@#]&/@WolframModel[{{1,2},{2,3}}{{4,3},{4,3},{1,4},{2,3}},{{1,2},{2,3},{3,1}},10,"StatesList"]
Out[]=
In[]:=
Graph[Rule@@@#]&/@WolframModel[{{1,2},{2,3}}{{4,3},{4,3},{1,4},{2,3}},Table[{0,0},4],10,"StatesList"]
Out[]=
Another Almost Grid
Another Almost Grid
Sierpinski-like
Sierpinski-like
Cage
Cage