WOLFRAM NOTEBOOK

In[]:=
cg=WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{0,0},{0,0}},12,"LayeredCausalGraph"];
In[]:=
cnv=GraphNeighborhoodVolumes[cg];
In[]:=
cnv[1]
Out[]=
{1,3,8,19,44,99,222,500,1050,1544,1644,1650}
In[]:=
ListLinePlot[LogDifferences[cnv[1]]]
Out[]=
2
4
6
8
10
1
2
3
4
5
6
In[]:=
cg17=WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{0,0},{0,0}},17,"LayeredCausalGraph"];
In[]:=
cnv17=GraphNeighborhoodVolumes[cg17];
In[]:=
cnv17[1]
Out[]=
{1,3,8,19,44,99,222,504,1143,2603,5927,13093,24614,32714,34821,35020,35031}
In[]:=
Ratios[%]//N
Out[]=
{3.,2.66667,2.375,2.31579,2.25,2.24242,2.27027,2.26786,2.27734,2.27699,2.20904,1.87994,1.32908,1.06441,1.00571,1.00031}
In[]:=
ListLinePlot[%]
Out[]=
5
10
15
0.5
1.0
1.5
2.0
2.5
3.0
In[]:=
cnv17[1000]
Out[]=
{1,4,14,41,90,103}
In[]:=
Ratios[%]//N
Out[]=
{4.,3.5,2.92857,2.19512,1.14444}
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.