GraphPlot3D[HypergraphToGraph[WolframModel[{{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}},16,"FinalState"]]]
In[]:=
Out[]=
GraphPlot3D[HypergraphToGraph[WolframModel[{{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}},100,"FinalState"]]]
In[]:=
Out[]=
GraphPlot3D[HypergraphToGraph[WolframModel[{{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}},{{1,2,3},{4,5,6},{1,4},{1,2,3},{4,5,6},{1,4}},100,"FinalState"]]]
In[]:=
Out[]=
GraphPlot3D[HypergraphToGraph[WolframModel[{{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}},100,"FinalState"]]]
In[]:=
Out[]=
GraphPlot3D[HypergraphToGraph[WolframModel[{{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,0,0}},40,"FinalState"]]]
In[]:=
Out[]=
Length/@WolframModel[{{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}},100,"StatesList"]
In[]:=
{5,10,15,20,25,30,40,55,65,70}
Out[]=
{{{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}
Length/@WolframModel[{{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}},30,"StatesList"]
In[]:=
{5,10,15,20,30,35,45,50,60,65,75,80,90,95,105,110,120,125,135,140,150,155,165,170,180,185,195,200,210,215,225}
Out[]=
Differences[%]
In[]:=
{5,5,5,10,5,10,5,10,5,10,5,10,5,10,5,10,5,10,5,10,5,10,5,10,5,10,5,10,5,10}
Out[]=
wm=WolframModel[{{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}},50,"FinalState"];
In[]:=
HypergraphPlot[wm]
In[]:=
Out[]=
ReconstructedSurface[wm,2.5]
In[]:=
Out[]=

Original Colored Networks

init={{p1r,p1y,p1g},{p2r,p2y,p2g},{p1r,p2r},{p2r,p1r},{p1y,p2y},{p2y,p1y},{p1g,p2g},{p2g,p1g}};
In[]:=
GraphPlot3D[HypergraphToGraph[WolframModel[{{p1r,p1y,p1g},{p2r,p2y,p2g},{p1r,p2r},{p2r,p1r}}{{p1g,p3y,p3g},{p1y,p4y,p4g},{p2g,p5y,p5g},{p2y,p6y,p6g},{p3y,p6g},{p3g,p4y},{p4y,p3g},{p4g,p5y},{p5y,p4g},{p5g,p6y},{p6y,p5g},{p6g,p3y}},init,8,"FinalState"]]]
In[]:=
Out[]=
ReconstructedSurface[WolframModel[{{p1r,p1y,p1g},{p2r,p2y,p2g},{p1r,p2r},{p2r,p1r}}{{p1g,p3y,p3g},{p1y,p4y,p4g},{p2g,p5y,p5g},{p2y,p6y,p6g},{p3y,p6g},{p3g,p4y},{p4y,p3g},{p4g,p5y},{p5y,p4g},{p5g,p6y},{p6y,p5g},{p6g,p3y}},init,9,"FinalState"],5]
In[]:=
Out[]=
ReconstructedSurface[WolframModel[{{p1r,p1y,p1g},{p2r,p2y,p2g},{p1r,p2r},{p2r,p1r}}{{p1g,p3y,p3g},{p1y,p4y,p4g},{p2g,p5y,p5g},{p2y,p6y,p6g},{p3y,p6g},{p3g,p4y},{p4y,p3g},{p4g,p5y},{p5y,p4g},{p5g,p6y},{p6y,p5g},{p6g,p3y}},init,10,"FinalState"],5]
In[]:=
Out[]=
ReconstructedSurface[WolframModel[{{p1r,p1y,p1g},{p2r,p2y,p2g},{p1r,p2r},{p2r,p1r}}{{p1g,p3y,p3g},{p1y,p4y,p4g},{p2g,p5y,p5g},{p2y,p6y,p6g},{p3y,p5y},{p3g,p4y},{p4y,p3g},{p4g,p6g},{p5y,p3y},{p5g,p6y},{p6y,p5g},{p6g,p4g}},init,10,"FinalState"],5]
In[]:=
Out[]=
ReconstructedSurface[WolframModel[{{p1r,p1y,p1g},{p2r,p2y,p2g},{p1r,p2r},{p2r,p1r}}{{p1g,p3y,p3g},{p1y,p4y,p4g},{p2g,p5y,p5g},{p2y,p6y,p6g},{p3y,p5y},{p3g,p4y},{p4y,p3g},{p4g,p6g},{p5y,p3y},{p5g,p6y},{p6y,p5g},{p6g,p4g}},init,12,"FinalState"],5]
In[]:=
Out[]=
ReconstructedSurface[WolframModel[{{p1r,p1y,p1g},{p2r,p2y,p2g},{p1r,p2r},{p2r,p1r}}{{p1g,p3y,p3g},{p4r,p4y,p1y},{p2g,p5y,p5g},{p6r,p6y,p2y},{p3y,p6y},{p3g,p4r},{p4r,p3g},{p4y,p5y},{p5y,p4y},{p5g,p6r},{p6r,p5g},{p6y,p3y}},init,16,"FinalState"],5]
In[]:=
Out[]=