In[]:=
FindTransientRepeat[WolframModel[{{1,2},{2,3}}{{2,1},{3,1}},Table[{i,i+1},{i,5}],20,"StatesList"],2]
Out[]=
In[]:=
Length/@%
Out[]=
{5,6}
In[]:=
Length/@FindTransientRepeat[WolframModel[{{1,2},{2,3}}{{2,1},{3,1}},Table[{i,i+1},{i,5}],50,"StatesList"],3]
Out[]=
{5,6}
In[]:=
Table[Length/@FindTransientRepeat[CanonicalGraph[Rule@@@#]&/@WolframModel[{{1,2},{2,3}}{{2,1},{3,1}},Table[{i,i+1},{i,n}],50,"StatesList"],3],{n,10}]
Out[]=
{{1,0},{2,0},{2,0},{4,0},{4,3},{2,4},{4,7},{6,0},{5,7},{2,6}}
Table[Length/@FindTransientRepeat[WolframModel[{{1,2},{2,3}}{{2,1},{3,1}},Table[{i,i+1},{i,n}],50,"StatesList"],3],{n,10}]
In[]:=
CanonicalGraph[Rule@@@#]&/@WolframModel[{{1,2},{2,3}}{{2,1},{3,1}},Table[{i,i+1},{i,4}],20,"StatesList"]
Out[]=
In[]:=
Table[Length/@FindTransientRepeat[CanonicalGraph[Rule@@@#]&/@WolframModel[{{1,2},{2,3}}{{2,1},{3,1}},Table[{i,i+1},{i,n}],50,"StatesList"],3],{n,10}]
CanonicalGraph[Rule@@@#]&/@WolframModel[{{1,2},{2,3}}{{2,1},{3,1}},Table[{i,i+1},{i,n}],50,"StatesList"]
In[]:=
TestPeriod[rule_,n_,tmax_:50,rpt_:3]:=If[Length[#]<tmax,{Length[#]-1,1},FindTransientRepeat[#,rpt]]&@(CanonicalGraph[Rule@@@#]&/@WolframModel[rule,Table[{i,i+1},{i,n}],tmax,"StatesList"])
In[]:=
TestPeriodX[rule_,n_,tmax_:50,rpt_:3]:=If[Length[#]<tmax,{Length[#]-1,1},FindTransientRepeat[#,rpt]]&@(FindCanonicalHypergraph/@WolframModel[rule,Table[{i,i+1},{i,n}],tmax,"StatesList"])
In[]:=
ParallelMapMonitored[Function[n,Echo[n->TestPeriod[{{1,2},{2,3}}{{2,1},{3,1}},n,50]]],Range[20]]
(kernel 68)
>> 1{0,1}
(kernel 67)
>> 2{1,1}
(kernel 66)
>> 3{1,1}
(kernel 65)
>> 4{3,1}
(kernel 61)
>> 8{5,1}
(kernel 64)
>> 5
,
,
,
,
,
,
(kernel 63)
>> 6
,
,
,
,
,
(kernel 62)
>> 7
,
,
,
,
,
,
,
,
,
,
(kernel 60)
>> 9
,
,
,
,
,
,
,
,
,
,
,
(kernel 59)
>> 10
,
,
,
,
,
,
,
(kernel 58)
>> 11
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,{}
(kernel 57)
>> 12
,
,
,
,
,
,
,
,
,
,
,
,
,
,
(kernel 56)
>> 13
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,{}
State Transition Diagram
State Transition Diagram
Graph Enumeration
Graph Enumeration