In[]:=
UndirectedGraph[Rule@@@#]&/@WolframModel[{{x,y},{y,z}}{{w,x},{w,y},{x,y},{y,z}},{{0,0},{0,0}},6,"StatesList"]
Out[]=
In[]:=
VertexOutDegree/@%
Out[]=
In[]:=
Counts/@%
Out[]=
{21,11,31,22,31,51,24,42,51,71,28,44,62,71,91,216,48,64,82,91,111,232,416,68,84,102,111,131}
In[]:=
UndirectedGraph[Rule@@@#]&@WolframModel[{{x,y},{y,z}}{{w,x},{w,y},{x,y},{y,z}},{{0,0},{0,0}},8,"FinalState"]
Out[]=
In[]:=
GraphEmbedding[%]
Out[]=
In[]:=
Graphics[Point[%156]]
Out[]=
In[]:=
VoronoiMesh[%156]
Out[]=
In[]:=
MeshConnectivityGraph[%]
Out[]=