{{x,y}}{{x,z},{x,z},{z,y}}
In[]:=
HypergraphPlot/@WolframModel[{{x,y}}{{x,z},{x,z},{z,y}},{{1,1}},5,"StatesList"]
Out[]=
In[]:=
ListLinePlot[HypergraphDimensionEstimateList/@Drop[WolframModel[{{x,y}}{{x,z},{x,z},{z,y}},{{1,1}},7,"StatesList"],3],FrameTrue,IntervalMarkers->"Fences"]
Out[]=
ListLinePlot[HypergraphDimensionEstimateList@WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{1,2},{1,3}},13,"FinalState"],FrameTrue]
In[]:=
HypergraphPlot/@WolframModel[{{x,y}}{{x,y},{y,z},{z,x}},{{1,1}},5,"StatesList"]
Out[]=
In[]:=
ListLinePlot[HypergraphDimensionEstimateList/@Drop[WolframModel[{{x,y}}{{x,y},{y,z},{z,x}},{{1,1}},8,"StatesList"],3],FrameTrue,IntervalMarkers->"Fences"]
Out[]=
In[]:=
Graph[Rule@@@WolframModel[{{x,y}}{{z,w},{w,z},{z,x},{z,y}},{{0,0}},6,"FinalState"]]
Out[]=
In[]:=
ListLinePlot[HypergraphDimensionEstimateList/@Drop[WolframModel[{{x,y}}{{z,w},{w,z},{z,x},{z,y}},{{0,0}},6,"StatesList"],3],FrameTrue,IntervalMarkers->"Fences"]
Out[]=
In[]:=
Graph[Rule@@@WolframModel[{{x,y}}{{y,z},{y,w},{z,w},{z,x}},{{0,0}},6,"FinalState"]]
Out[]=
In[]:=
ListLinePlot[HypergraphDimensionEstimateList/@Drop[WolframModel[{{x,y}}{{y,z},{y,w},{z,w},{z,x}},{{0,0}},6,"StatesList"],3],FrameTrue,IntervalMarkers->"Fences"]
Out[]=
In[]:=
Graph[Rule@@@WolframModel[{{x,y}}{{x,z},{x,w},{z,w},{z,y}},{{0,0}},6,"FinalState"]]
Out[]=
In[]:=
ListLinePlot[HypergraphDimensionEstimateList/@Drop[WolframModel[{{x,y}}{{x,z},{x,w},{z,w},{z,y}},{{0,0}},6,"StatesList"],3],FrameTrue,IntervalMarkers->"Fences"]
Out[]=
If log differences is linear ....