{{{1,3}}{{2,3}},9}
{{{1,3}}{{2,3}},9}
In[]:=
EchoFunction[Length]@Select[EnumerateWolframModelRules[{{1,3}}{{2,3}},3],BiConnectedRuleQ];
»
1613
In[]:=
WolframModelTest[#,Automatic]&/@%;
In[]:=
res=%;
In[]:=
ReverseSort[Counts[WMFilter4/@res]]
»
{3,-3,1}
»
{3,-3,1}
»
{3,-3,1}
»
{3,-3,1}
»
{2,0,-1}
»
{2,0,-1}
»
{3,-3,1}
»
{3,-3,1}
»
{3,-3,1}
»
{3,-3,1}
»
{2,0,-1}
»
{2,0,-1}
»
{3,-3,1}
»
{3,-3,1}
»
{3,-3,1}
»
{3,-3,1}
»
{2,0,-1}
»
{2,0,-1}
»
{3,-3,1}
»
{3,-3,1}
»
{3,-3,1}
»
{3,-3,1}
»
{2,0,-1}
»
{2,0,-1}
»
{2,0,-1}
»
{2,0,-1}
»
{3,-3,1}
»
{3,-3,1}
»
{3,-3,1}
»
{3,-3,1}
»
{3,-3,1}
»
{3,-3,1}
»
{3,-3,1}
»
{3,-3,1}
»
{2,0,-1}
»
{2,0,-1}
Out[]=
FewEvents886,DiedFast471,BoringDifferences150,PureExponential52,LinearRecurrenceGrowth36,BoringDifferencesAfterTransient12,TooMuchOfAVertex6
In[]:=
MakePictures[First/@Values[GroupBy[Select[res,WMFilter4[#]==="LinearRecurrenceGrowth"&],#FinalState&]]]
Out[]=
In[]:=
PrintCells@{{{{1,1,2}}{{1,2,2},{2,2,3}},{{0,0,0}},19},{{{1,1,2}}{{1,2,3},{2,2,2}},{{0,0,0}},10},{{{1,1,2}}{{1,2,3},{3,3,3}},{{0,0,0}},10},{{{1,2,1}}{{2,3,1},{3,3,3}},{{0,0,0}},10}};
In[]:=
MakePictures[First/@Values[GroupBy[Select[res,WMFilter4[#]==="BoringDifferencesAfterTransient"&],#FinalState&]]]
»
{2,0,-1}
Out[]=
Random Case
Random Case
In[]:=
res=ParallelMapMonitored[RandomWolframModelTestConnected[{{{{1,3}}{{2,3}},7}}]&,Range[500]];
In[]:=
ReverseSort[Counts[WMFilter4/@res]]
{{{1,2}}{{4,2}},10}
{{{1,2}}{{4,2}},10}
Random Case
Random Case
{{{2,2}}{{3,2}},10}
{{{2,2}}{{3,2}},10}
Random
Random
Chasing the circle:
{{{1,2}}{{5,2}},12}
{{{1,2}}{{5,2}},12}
{{{1,3}}{{3,3}},12}
{{{1,3}}{{3,3}},12}
{{{2,2}}{{4,2}},12}
{{{2,2}}{{4,2}},12}
{{{2,2}}{{5,2}},14}
{{{2,2}}{{5,2}},14}
{{{3,2}}{{4,2}},14}
{{{3,2}}{{4,2}},14}