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