WOLFRAM NOTEBOOK

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[]=
Wolfram Cloud

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 »

You are using a browser not supported by the Wolfram Cloud. Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.