Previous Stuff
Previous Stuff
ParallelMapMonitored[(GraphPlot3D[HypergraphToGraph@WolframModel[#,Join[Table[0,3,2],Table[0,2,3]],10,"FinalState"]])&,Take[newrules,{2}]]
In[]:=
MakeDirectPictures[{{{{1,2,3},{4,5,6},{1,4}}{{2,7,8},{10,3,9},{5,11,12},{6,13,14},{12,10},{7,9},{8,14},{13,11}},{{0,0},{0,0},{0,0},{0,0,0},{0,0,0}},9},{{{1,2,3},{4,5,6},{1,4}}{{2,8,7},{3,10,9},{5,12,11},{6,14,13},{14,8},{12,9},{7,11},{13,10}},{{0,0},{0,0},{0,0},{0,0,0},{0,0,0}},6},{{{1,2,3},{4,5,6},{1,4}}{{2,7,8},{9,10,3},{11,12,5},{6,13,14},{14,12},{13,8},{10,11},{7,9}},{{0,0},{0,0},{0,0},{0,0,0},{0,0,0}},32},{{{1,2,3},{4,5,6},{1,4}}{{7,8,2},{9,3,10},{5,11,12},{6,13,14},{11,8},{9,13},{7,14},{10,12}},{{0,0},{0,0},{0,0},{0,0,0},{0,0,0}},17}},2]
Out[]=
In[]:=
MakeDirectPictures[{{{{1,2,3},{4,5,6},{1,4}}{{7,8,2},{3,9,10},{11,5,12},{13,6,14},{14,11},{10,12},{9,8},{7,13}},{{0,0},{0,0},{0,0},{0,0,0},{0,0,0}},11},{{{1,2,3},{4,5,6},{1,4}}{{7,2,8},{3,10,9},{12,5,11},{6,13,14},{7,13},{9,12},{11,14},{8,10}},{{0,0},{0,0},{0,0},{0,0,0},{0,0,0}},12},{{{1,2,3},{4,5,6},{1,4}}{{8,7,2},{9,3,10},{5,11,12},{13,14,6},{7,11},{8,9},{12,13},{14,10}},{{0,0},{0,0},{0,0},{0,0,0},{0,0,0}},9},{{{1,2,3},{4,5,6},{1,4}}{{7,8,2},{3,10,9},{12,11,5},{6,14,13},{13,7},{12,10},{11,14},{8,9}},{{0,0},{0,0},{0,0},{0,0,0},{0,0,0}},9},{{{1,2,3},{4,5,6},{1,4}}{{2,7,8},{9,3,10},{5,11,12},{13,14,6},{7,14},{9,11},{8,12},{13,10}},{{0,0},{0,0},{0,0},{0,0,0},{0,0,0}},14}},2]
Out[]=
In[]:=
MakeDirectPictures[{{{{1,2,3},{4,5,6},{1,4}}{{2,8,7},{9,3,10},{11,5,12},{6,13,14},{9,7},{14,12},{13,10},{8,11}},{{0,0},{0,0},{0,0},{0,0,0},{0,0,0}},22},{{{1,2,3},{4,5,6},{1,4}}{{8,2,7},{3,10,9},{11,5,12},{14,6,13},{14,11},{12,8},{9,13},{7,10}},{{0,0},{0,0},{0,0},{0,0,0},{0,0,0}},32},{{{1,2,3},{4,5,6},{1,4}}{{7,2,8},{3,9,10},{5,11,12},{13,6,14},{13,9},{12,14},{7,10},{8,11}},{{0,0},{0,0},{0,0},{0,0,0},{0,0,0}},22},{{{1,2,3},{4,5,6},{1,4}}{{7,2,8},{3,9,10},{11,12,5},{13,14,6},{9,12},{13,8},{11,7},{14,10}},{{0,0},{0,0},{0,0},{0,0,0},{0,0,0}},10},{{{1,2,3},{4,5,6},{1,4}}{{2,8,7},{9,3,10},{5,11,12},{6,13,14},{10,13},{7,9},{11,8},{12,14}},{{0,0},{0,0},{0,0},{0,0,0},{0,0,0}},11}},3]
Out[]=
New Stuff
New Stuff
In[]:=
In[]:=
Out[]=
In[]:=
wm=WolframModel[{{1,2,3},{4,5,6},{1,4}}{{2,7,8},{10,3,9},{5,11,12},{6,13,14},{12,10},{7,9},{8,14},{13,11}},{{0,0},{0,0},{0,0},{0,0,0},{0,0,0}},15,"FinalState"];
In[]:=
ReconstructedSurface[wm,8]
Out[]=
In[]:=
wm=WolframModel[{{1,2,3},{4,5,6},{1,4}}{{2,7,8},{10,3,9},{5,11,12},{6,13,14},{12,10},{7,9},{8,14},{13,11}},{{0,0},{0,0},{0,0},{0,0,0},{0,0,0}},12,"FinalState"];
In[]:=
ReconstructedSurface[wm,8]
Out[]=
{{}}
In[]:=
ParallelMapMonitored[Show[ReconstructedSurface[WolframModel[#1,#2,Ceiling[1.3#3],"FinalState"]&@@#,5],ImageSize700]&,newrules]
Out[]=