UndirectedGraph[Rule@@@#]&/@WolframModel[{{x,y},{y,z}}{{w,x},{w,y},{x,y},{y,z}},{{0,0},{0,0}},6,"StatesList"]
In[]:=
Out[]=
VertexOutDegree/@%
In[]:=
Out[]=
Counts/@%
In[]:=
{21,11,31,22,31,51,24,42,51,71,28,44,62,71,91,216,48,64,82,91,111,232,416,68,84,102,111,131}
Out[]=
UndirectedGraph[Rule@@@#]&@WolframModel[{{x,y},{y,z}}{{w,x},{w,y},{x,y},{y,z}},{{0,0},{0,0}},8,"FinalState"]
In[]:=
Out[]=
GraphEmbedding[%]
In[]:=
Out[]=
Graphics[Point[%156]]
In[]:=
Out[]=
VoronoiMesh[%156]
In[]:=
Out[]=
MeshConnectivityGraph[%]
In[]:=
Out[]=
MeshConnectivityGraph[%159,2]
In[]:=
Out[]=
GraphCenter[%]
In[]:=
{{2,49},{2,60},{2,92},{2,158},{2,191},{2,219},{2,234}}
Out[]=
HighlightGraph[%161,%]
In[]:=
Out[]=
GraphNeighborhoodVolumes[%161,GraphCenter[%161],Automatic]
In[]:=
Out[]=
MeanAround/@Transpose[Values[%164]]
In[]:=
{1,7.1±0.5,22.4±1.4,55.0±2.8,115.±5.,192.±6.,243.9±3.4,256}
Out[]=
LogDifferences[%]
In[]:=
{2.84±0.09,2.82±0.22,3.12±0.28,3.29±0.30,2.83±0.29,1.55±0.22,0.36±0.10}
Out[]=
ListLinePlot[%]
In[]:=
Out[]=
HypergraphDimensionEstimateList[List@@@EdgeList[%]]
Graph[Rule@@@#,GraphLayout{"SpringEmbedding","Space""Hyperbolic"}]&@WolframModel[{{x,y},{y,z}}{{w,x},{w,y},{x,y},{y,z}},{{0,0},{0,0}},8,"FinalState"]
In[]:=
Out[]=