In[]:=
RulePlot[WolframModel[{{1,2},{2,3}}{{2,1},{3,1}}]]
Out[]=
In[]:=
FindCanonicalHypergraph/@WolframModel[{{1,2},{2,3}}{{2,1},{3,1}},Table[{i,i+1},{i,2}],50,"StatesList"]
Out[]=
{{{1,2},{2,3}},{{1,2},{3,2}}}
In[]:=
FindTransientRepeat[%%,2]
Out[]=
In[]:=
data=ParallelTable[Length/@FindTransientRepeat[FindCanonicalHypergraph/@WolframModel[{{1,2},{2,3}}{{2,1},{3,1}},Table[{i,i+1},{i,n}],50,"StatesList"],2],{n,5}]
Out[]=
{{1,0},{2,0},{2,0},{4,0},{4,3}}
In[]:=
data=ParallelTable[Length/@FindTransientRepeat[FindCanonicalHypergraph/@WolframModel[{{1,2},{2,3}}{{2,1},{3,1}},Table[{i,i+1},{i,n}],50,"StatesList"],2],{n,10}]
Out[]=
$Aborted
In[]:=
fch[data_]:=fch[data]=[data]
In[]:=
WolframModel[{{1,2},{2,3}}{{2,1},{3,1}},Table[{i,i+1},{i,5}],50,"StatesPlotsList"]
Out[]=
In[]:=
WolframModel[{{1,2},{2,3}}{{2,1},{3,1}},Table[{i,i+1},{i,6}],50,"StatesPlotsList"]
Out[]=
In[]:=
WolframModel[{{1,2},{2,3}}{{2,1},{3,1}},Table[{i,i+1},{i,7}],50,"StatesPlotsList"]
Out[]=
Undirected
Undirected