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 »
WOLFRAM NOTEBOOK
[Based on RuleEnumeration-53-2333search.nb]
[Based on RuleEnumeration-53-2333search.nb]
In[]:=
pix@{{{1,1,2},{3,4,5}}{{6,6,7},{7,2,1},{4,5,1}},{{1,2,1},{3,4,5}}{{6,1,6},{6,7,8},{1,8,3}}}
Out[]=
In[]:=
pix@{{{1,1,2},{3,4,5}}{{2,2,6},{6,4,5},{1,5,7}},{{1,1,2},{3,4,5}}{{3,3,4},{2,4,6},{5,6,7}},{{1,2,2},{3,4,5}}{{3,6,6},{5,2,6},{7,5,2}}}
Out[]=
In[]:=
pix@{{{1,2,2},{3,4,5}}{{6,7,7},{8,5,7},{9,5,2}},{{1,2,2},{3,4,5}}{{6,7,7},{8,5,7},{9,5,2}},{{1,2,1},{3,4,5}}{{2,6,2},{5,7,6},{3,1,5}},{{1,2,1},{3,4,5}}{{2,6,2},{5,7,6},{3,1,5}},{{1,2,3},{3,4,5}}{{4,2,2},{2,1,6},{7,1,3}},{{1,2,3},{3,4,5}}{{4,2,2},{2,1,6},{7,1,3}},{{1,2,1},{3,4,5}}{{2,5,2},{1,6,2},{4,7,6}},{{1,2,3},{4,2,5}}{{3,2,6},{3,6,5},{4,5,1}},{{1,1,2},{3,4,5}}{{3,3,6},{2,3,6},{4,2,6}},{{1,2,1},{3,4,5}}{{3,6,3},{1,6,5},{7,1,3}},{{1,2,1},{3,4,5}}{{6,7,6},{6,1,4},{3,5,6}},{{1,1,2},{3,4,5}}{{6,6,1},{6,3,7},{2,4,6}},{{1,2,3},{3,4,5}}{{3,4,3},{4,6,5},{7,2,4}},{{1,1,2},{3,4,4}}{{2,2,5},{1,2,2},{4,2,5}},{{1,1,2},{3,4,5}}{{6,6,3},{6,5,1},{5,7,2}},{{1,2,2},{3,4,5}}{{1,4,4},{6,1,3},{5,7,6}},{{1,2,2},{3,4,5}}{{4,6,6},{7,8,6},{8,5,2}},{{1,2,1},{3,4,5}}{{6,7,6},{7,2,3},{4,3,7}},{{1,2,2},{3,4,5}}{{6,1,1},{7,6,8},{7,1,4}}}
Out[]=
In[]:=
pix@{{{1,1,2},{3,4,5}}{{6,6,3},{4,1,6},{1,2,7}}}
Out[]=
In[]:=
Graph3D[HypergraphToGraph[WolframModel[{{1,1,2},{3,4,5}}{{6,6,3},{4,1,6},{1,2,7}},{{0,0,0},{0,0,0}},200,"FinalState"]]]
Out[]=
In[]:=
Graph3D[HypergraphToGraph[WolframModel[#,{{0,0,0},{0,0,0}},100,"FinalState"]]]&/@{{{1,1,2},{3,4,5}}{{6,6,7},{7,2,1},{4,5,1}},{{1,2,1},{3,4,5}}{{6,1,6},{6,7,8},{1,8,3}}}
Out[]=
$Aborted
In[]:=
ParallelMapMonitored[Graph3D[HypergraphToGraph[WolframModel[#,{{0,0,0},{0,0,0}},50,"FinalState"]]]&,{{{1,1,2},{3,4,5}}{{6,6,7},{7,2,1},{4,5,1}},{{1,2,1},{3,4,5}}{{6,1,6},{6,7,8},{1,8,3}}}]
Out[]=