In[]:=
HypergraphDimensionEstimateList/@WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{1,2},{1,3}},16,"StatesList"]
Out[]=
In[]:=
HypergraphDimensionEstimateList/@WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{1,2},{1,3}},20,"StatesList"]
Out[]=
$Aborted
Now
In[]:=
Length/@WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{1,2},{1,3}},15,"StatesList"]
Out[]=
{2,4,6,10,18,32,56,104,188,350,642,1174,2160,3966,7286,13404}
In[]:=
Ratios[%]//N
Out[]=
{2.,1.5,1.66667,1.8,1.77778,1.75,1.85714,1.80769,1.8617,1.83429,1.82866,1.83986,1.83611,1.83712,1.83969}