2,23,2
2,23,2
In[]:=
rules=Import["/Users/sw/Dropbox/Physics/Data/RuleEnumerations-max/22-32c.wxf"];
In[]:=
Length[rules]
Out[]=
4702
In[]:=
res=ParallelMapMonitored[WolframModelTest[#,{{0,0},{0,0}}]&,rules];
In[]:=
res2=DeleteDuplicates[Select[res,ConnectedHypergraphQ[#FinalState]&]];
In[]:=
Length[res2]
Out[]=
1796
In[]:=
res3=First/@GroupBy[res2,#FinalState&];
In[]:=
Length[res3]
Out[]=
617
In[]:=
146
Out[]=
84
In[]:=
#Rule&/@RandomSample[Values[res3],148]
Out[]=
In[]:=
MakePictures2[Values[res3]]
Out[]=
In[]:=
MakeDirectPictures2[{{{{1,2},{1,3}}{{2,3},{3,1},{1,4}},{{0,0},{0,0}},20},{{{1,2},{1,3}}{{1,2},{2,3},{3,4}},{{0,0},{0,0}},16},{{{1,2},{1,3}}{{1,2},{2,3},{3,4}},{{0,0},{0,0}},16},{{{1,2},{1,3}}{{2,1},{2,4},{3,2}},{{0,0},{0,0}},23},{{{1,2},{1,3}}{{2,3},{3,4},{1,4}},{{0,0},{0,0}},26},{{{1,2},{2,3}}{{1,4},{4,3},{3,1}},{{0,0},{0,0}},8},{{{1,2},{2,3}}{{1,4},{1,3},{4,3}},{{0,0},{0,0}},9}},2]
Out[]=
In[]:=
{{{{1,2},{1,3}}{{2,3},{3,1},{1,4}},{{0,0},{0,0}},20},{{{1,2},{1,3}}{{1,2},{2,3},{3,4}},{{0,0},{0,0}},16},{{{1,2},{1,3}}{{1,2},{2,3},{3,4}},{{0,0},{0,0}},16},{{{1,2},{1,3}}{{2,1},{2,4},{3,2}},{{0,0},{0,0}},23},{{{1,2},{1,3}}{{2,3},{3,4},{1,4}},{{0,0},{0,0}},26},{{{1,2},{2,3}}{{1,4},{4,3},{3,1}},{{0,0},{0,0}},8},{{{1,2},{2,3}}{{1,4},{1,3},{4,3}},{{0,0},{0,0}},9}}[[-2]]
Out[]=
{{{1,2},{2,3}}{{1,4},{4,3},{3,1}},{{0,0},{0,0}},8}
In[]:=
MakeDirectPictures2[{%},4]
Out[]=
Alternate initial condition
Alternate initial condition
In[]:=
res=ParallelMapMonitored[WolframModelTest[#,{{1,2},{2,3},{3,4},{4,1}}]&,rules];
In[]:=
res2=DeleteDuplicates[Select[res,ConnectedHypergraphQ[#FinalState]&]];
In[]:=
Length[res2]
Out[]=
235
In[]:=
res3=First/@GroupBy[res2,#FinalState&];
In[]:=
Length[res3]
Out[]=
235
In[]:=
MakePictures2[Values[res3]]
Out[]=
Copy of LHS initial condition
Copy of LHS initial condition