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
In[]:=
WolframModel[{{{2,2,2},{2,1,3}}{{2,3,4},{4,4,4},{1,1,3},{3,1,1}}},Table[{0,0,0},2],30]
Out[]=
In[]:=
WolframModel[{{{2,2,2},{2,1,3}}{{2,3,4},{4,4,4},{1,1,3},{3,1,1}}},Table[{0,0,0},2],100]
Out[]=
In[]:=
WolframModel[{{{2,2,2},{2,1,3}}{{2,3,4},{4,4,4},{1,1,3},{3,1,1}}},Table[{0,0,0},2],100,TimeConstraint4]
Out[]=
In[]:=
HypergraphPlot[%["FinalState"]]
Out[]=
$Aborted[]
In[]:=
WolframModel[{{{2,2,2},{2,1,3}}{{2,3,4},{4,4,4},{1,1,3},{3,1,1}}},Table[{0,0,0},2],20]["FinalState"]//HypergraphPlot
Out[]=
In[]:=
WolframModel[{{{2,2,2},{2,1,3}}{{2,3,4},{4,4,4},{1,1,3},{3,1,1}}},Table[{0,0,0},2],30]["FinalState"]//HypergraphPlot
Out[]=
In[]:=
GraphPlot3D[Catenate[(Rule@@@Partition[#,2,1])&/@(WolframModel[{{{2,2,2},{2,1,3}}{{2,3,4},{4,4,4},{1,1,3},{3,1,1}}},Table[{0,0,0},2],30]["FinalState"])]]
Out[]=
In[]:=
GraphPlot3D[SimpleGraph@Catenate[(Rule@@@Partition[#,2,1])&/@(WolframModel[{{{2,2,2},{2,1,3}}{{2,3,4},{4,4,4},{1,1,3},{3,1,1}}},Table[{0,0,0},2],30]["FinalState"])]]
Out[]=