WOLFRAM NOTEBOOK

In[]:=
WolframModel[{{1,2},{2,3}}{{3,2},{2,3},{3,4},{1,4}},{{0,0},{0,0}},10,"FinalState"]//HypergraphPlot
Out[]=
In[]:=
RulePlot[WolframModel[{{1,2},{2,3}}{{3,2},{2,3},{3,4},{1,4}}]]
Out[]=
In[]:=
HypergraphPlot/@WolframModel[{{1,2},{2,3}}{{3,2},{2,3},{3,4},{1,4}},{{0,0},{0,0}},6,"StatesList"]
Out[]=
In[]:=
HypergraphPlot/@WolframModel[{{x,y},{y,z}}{{z,y},{y,z},{z,w},{x,w}},{{0,0},{0,0}},6,"StatesList"]
Out[]=
In[]:=
HypergraphPlot[Map[Hash,#,{2}],ImageSizeTiny]&/@NestList[SubsetReplace[#,w:{{x_,y_},{y_,z_}}->Sequence[{z,y},{y,z},{z,w},{x,w}]]&,{{1,2},{2,3}},4]
Out[]=
In[]:=
HypergraphPlot[Map[Hash,#,{2}],ImageSizeTiny]&/@NestList[SubsetReplace[#,{{x_,y_},{y_,z_}}:>Sequence@@Module[{w},{{z,y},{y,z},{z,w},{x,w}}]]&,{{1,1},{1,1}},8]
Out[]=
In[]:=
WolframModel[{{1,2},{2,3}}{{3,2},{2,3},{3,4},{1,4}},{{0,0},{0,0}},12,"FinalState"]//HypergraphPlot
Out[]=
In[]:=
HypergraphDimensionEstimateList[WolframModel[{{1,2},{2,3}}{{3,2},{2,3},{3,4},{1,4}},{{0,0},{0,0}},12,"FinalState"]]
Out[]=
{1.989
±
0.013
,2.559
±
0.028
,2.637
±
0.030
,2.558
±
0.032
,2.60
±
0.04
,2.70
±
0.04
,2.74
±
0.04
,2.76
±
0.05
,2.76
±
0.05
,2.77
±
0.06
,2.70
±
0.06
,2.54
±
0.07
,2.35
±
0.07
,2.16
±
0.07
,1.96
±
0.07
,1.72
±
0.07
,1.44
±
0.07
}
In[]:=
ListLinePlot[%]
Out[]=
In[]:=
RulePlot[WolframModel[{{1,2},{2,3}}{{3,2},{2,3},{3,4},{1,4}}]]
Out[]=
In[]:=
WolframModel[{{1,2},{2,3}}{{1,1},{3,1},{3,4},{2,4}},{{0,0},{0,0}},13,"FinalState"]//HypergraphPlot
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.