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