2,2->4,2 ; 2,2->1,2
2,2->4,2 ; 2,2->1,2
In[]:=
res=ParallelMapMonitored[RandomWolframModelTestConnected[{{{{2,2}}{{4,2}},8},{{{2,2}}{{1,2}},3}}]&,Range[1000]];
In[]:=
ReverseSort[Counts[WMFilter4/@res]]
»
{1,1}
»
{1,2,-1}
»
{2,0,-2,1}
»
{0,1,3}
»
{1,0,2}
Out[]=
DiedFast290,Disconnected196,BoringDifferences182,FewEvents126,PureExponential110,BoringDifferencesAfterTransient56,MaybeInteresting25,TooMuchOfAVertex5,LinearRecurrenceGrowth5,TooMuchOfAnEdge5
In[]:=
MakePictures[Select[res,WMFilter4[#]==="MaybeInteresting"&]]
»
{1,1}
»
{1,2,-1}
»
{2,0,-2,1}
»
{0,1,3}
»
{1,0,2}
Out[]=
2,2->3,3 ; 1,3->1,2
2,2->3,3 ; 1,3->1,2
In[]:=
res=ParallelMapMonitored[RandomWolframModelTestConnected[{{{{2,2}}{{3,3}},9},{{{1,3}}{{1,2}},3}}]&,Range[1000]];
In[]:=
ReverseSort[Counts[WMFilter4/@res]]
»
{0,0,0,1,0,1}
Out[]=
DiedFast885,Disconnected100,TooMuchOfAVertex7,FewEvents4,LinearRecurrenceGrowth1,MaybeInteresting1,TooMuchOfAnEdge1,FlowerOnly1
In[]:=
MakePictures[Select[res,WMFilter4[#]==="MaybeInteresting"&]]
»
{0,0,0,1,0,1}
Out[]=
In[]:=
res=ParallelMapMonitored[RandomWolframModelTestConnected[{{{{2,2}}{{3,3}},9},{{{1,3}}{{1,2}},3}}]&,Range[1000]];
In[]:=
ReverseSort[Counts[WMFilter4/@res]]
»
{1,1,-1}
»
{1,1,-1}
»
{0,0,0,2}
»
{1,1,-1}
Out[]=
DiedFast867,Disconnected113,TooMuchOfAVertex9,LinearRecurrenceGrowth4,FlowerOnly3,FewEvents3,MaybeInteresting1
In[]:=
MakePictures[Select[res,WMFilter4[#]==="MaybeInteresting"&]]
»
{1,1,-1}
»
{1,1,-1}
»
{0,0,0,2}
»
{1,1,-1}
Out[]=
In[]:=
MakePictures[Select[res,WMFilter4[#]==="LinearRecurrenceGrowth"&]]
»
{1,1,-1}
»
{1,1,-1}
»
{0,0,0,2}
»
{1,1,-1}
Out[]=
CORRECTED SYMBOLS COUNT:
2,2->2,3 ; 1,3->1,2
2,2->2,3 ; 1,3->1,2
2,2->4,3 ; 2,3->2,2
2,2->4,3 ; 2,3->2,2
4,2->5,2 ; 4,2->5,2
4,2->5,2 ; 4,2->5,2