GraphNeighborhoodVolumes

In[]:=
MultiwaySystem[WolframModel[{{x,y}}{{x,y},{y,z}}],{{0,0}},8,"StatesGraphStructure"];
In[]:=
$Aborted
Out[]=
ListLogPlot[{1,2,4,8,17,37,85,200}]
In[]:=
Out[]=
Ratios[{1,2,4,8,17,37,85,200}]//N
In[]:=
{2.,2.,2.,2.125,2.17647,2.2973,2.35294}
Out[]=
ListLinePlot[Table[RaggedMeanAround[Values[GraphNeighborhoodVolumes[MultiwaySystem[WolframModel[{{x,y}}{{x,y},{y,z}}],{{0,0}},t,"BranchialGraphStructure"]]]],{t,4,7}],FrameTrue,FrameTicks{Automatic,None}]
In[]:=
Out[]=
RaggedMeanAround[Values[%197]]
In[]:=
{1,8.9±0.5,26.0±1.1,40.9±1.1,47.1±0.4,48}
Out[]=
ListLinePlot[%]
In[]:=
Out[]=