{{{{1,2},{1,3}}{{4,1},{1,4},{4,2},{3,4}},{{0,0},{0,0}},9},{{{1,2},{3,2}}{{2,4},{2,4},{4,1},{3,4}},{{0,0},{0,0}},12}}
In[]:=
Graph[Rule@@@#]&/@WolframModel[{{1,2},{1,3}}{{4,1},{1,4},{4,2},{3,4}},{{0,0},{0,0}},9,"StatesList"]
Out[]=
In[]:=
GraphPlot3D[Last[%]]
Out[]=
In[]:=
Graph[Rule@@@#]&@WolframModel[{{1,2},{1,3}}{{4,1},{1,4},{4,2},{3,4}},{{0,0},{0,0}},14,"FinalState"]
Out[]=
In[]:=
GraphPlot[%]
Out[]=
In[]:=
GraphPlot3D[%%]
Out[]=
