2,23,2
2,23,2
In[]:=
res=ParallelMapMonitored[RandomWolframModelTestConnected[{{{{2,2}}{{3,2}},6}}]&,Range[500]];
In[]:=
ReverseSort[Counts[WMFilter4/@res]]
»
{2,-1,1,-1}
»
{2,0,-2,1}
»
{0,2}
»
{2,-1,1,-1}
»
{2,0,-2,1}
»
{0,2}
»
{0,2}
»
{0,2}
»
{1,0,1}
»
{0,2}
Out[]=
DiedFast187,BoringDifferences151,FewEvents77,Disconnected52,MaybeInteresting17,LinearRecurrenceGrowth10,BoringDifferencesAfterTransient4,TooMuchOfAVertex2
In[]:=
MakePictures2[Select[res,MatchQ[WMFilter4[#],"MaybeInteresting"|"LinearRecurrenceGrowth"|"PureExponential"]&]]
»
{2,-1,1,-1}
»
{2,0,-2,1}
»
{0,2}
»
{2,-1,1,-1}
»
{2,0,-2,1}
»
{0,2}
»
{0,2}
»
{0,2}
»
{1,0,1}
»
{0,2}
Out[]=
In[]:=
res=ParallelMapMonitored[RandomWolframModelTestConnected[{{{{2,2}}{{3,2}},6}}]&,Range[500]];
In[]:=
ReverseSort[Counts[WMFilter4/@res]]
»
{2,0,-2,1}
»
{1,-1,2}
»
{1,0,1}
»
{0,1,1}
»
{1,-1,2}
»
{0,2}
»
{1,-1,2}
Out[]=
DiedFast185,BoringDifferences147,FewEvents75,Disconnected59,MaybeInteresting15,LinearRecurrenceGrowth7,TooMuchOfAVertex6,BoringDifferencesAfterTransient6
In[]:=
MakePictures2[Select[res,MatchQ[WMFilter4[#],"MaybeInteresting"|"LinearRecurrenceGrowth"|"PureExponential"]&]]
»
{2,0,-2,1}
»
{1,-1,2}
»
{1,0,1}
»
{0,1,1}
»
{1,-1,2}
»
{0,2}
»
{1,-1,2}
Out[]=
Different initial condition
Different initial condition
In[]:=
res=ParallelMapMonitored[WolframModelTest[{#},{{1,2},{2,3}}]&,Select[Table[{{1,2},{2,3}}->RandomInteger[{1,6},{3,2}],50],BiConnectedRuleQ]];
In[]:=
ReverseSort[Counts[WMFilter4/@res]]
»
{1,0,1}
»
{1,0,1}
»
{0,2}
»
{0,2}
Out[]=
FewEvents8,BoringDifferences7,LinearRecurrenceGrowth4,Disconnected4,DiedFast3,BoringDifferencesAfterTransient1
In[]:=
MakePictures2[Select[res,MatchQ[WMFilter4[#],"MaybeInteresting"|"LinearRecurrenceGrowth"|"PureExponential"]&]]
»
{1,0,1}
»
{1,0,1}
»
{0,2}
»
{0,2}
Out[]=
2,24,2
2,24,2
Undirected connections
Undirected connections
3,24,2 [special case rules]
3,24,2 [special case rules]
3,25,2 [special case rules]
3,25,2 [special case rules]