In[]:=
WolframModel[{{{1,2},{2,3}}{{1,5},{5,2},{5,3},{2,1}}},{{1,2},{2,3}},12]
Out[]=
In[]:=
Graph[Rule@@@%["FinalState"]]
Out[]=
In[]:=
GraphPlot3D[Rule@@@WolframModel[{{{1,2},{2,3}}{{1,5},{5,2},{5,3},{2,1}}},{{1,2},{2,3}},12,"FinalState"]]
Out[]=
In[]:=
GraphPlot3D[Rule@@@WolframModel[{{{1,2},{2,3}}{{1,5},{5,2},{5,3},{2,1}}},{{1,2},{2,3}},14,"FinalState"]]
Out[]=
GraphPlot3D[Rule@@@WolframModel[{{{1,2},{2,3}}{{1,5},{5,2},{5,3},{2,1}}},{{0,0},{0,0}},14,"FinalState"]]