WOLFRAM NOTEBOOK

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

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,25,2

Old version:

1,32,3

Wolfram Cloud

You are using a browser not supported by the Wolfram Cloud

Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.


I understand and wish to continue anyway »

You are using a browser not supported by the Wolfram Cloud. Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.