In[]:=
ParallelMapMonitored[WolframModelTest[#,Automatic]&,RandomSample[rules,100]];
In[]:=
res=ParallelMapMonitored[WolframModelTest[#,{{1,2},{2,3},{3,1}}]&,rules];
In[]:=
res2=DeleteDuplicates[Select[res,ConnectedGraphQ[UndirectedGraph[Rule@@@#FinalState]]&]];
In[]:=
Length[res2]
Out[]=
1935
In[]:=
res3=First/@GroupBy[res2,#FinalState&];
In[]:=
Length[res3]
Out[]=
1398
MakePictures2[Values[res3]]
1,23,2
1,23,2
In[]:=
rules=Import["/Users/sw/Dropbox/Physics/Data/RuleEnumerations-max/12-32c.wxf"];
In[]:=
Length[rules]
Out[]=
506
In[]:=
res=ParallelMapMonitored[WolframModelTest[#,{{0,0}}]&,rules];
In[]:=
res2=DeleteDuplicates[Select[res,ConnectedGraphQ[UndirectedGraph[Rule@@@#FinalState]]&]];
In[]:=
Length[res2]
Out[]=
264
In[]:=
res3=First/@GroupBy[res2,#FinalState&];
In[]:=
Length[res3]
Out[]=
193
In[]:=
MakePictures2[Values[res3]]
Out[]=
1,24,2
1,24,2
1,25,2
1,25,2
Old version:
Old version:
1,32,3
1,32,3