In[]:=
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"]]]
Out[]=
In[]:=
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"]]]
Out[]=
In[]:=
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"]]]
Out[]=
In[]:=
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"]]]
Out[]=
In[]:=
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"]]]
Out[]=
In[]:=
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"]
Out[]=
{5,10,15,20,25,30,40,55,65,70}
{{{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}
In[]:=
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"]
Original Colored Networks
Original Colored Networks