2,2 3,2
2,2 3,2
In[]:=
Select[Table[RandomWolframModelRule[{{2,2}}{{3,2}},6],100],BiConnectedRuleQ]
Out[]=
In[]:=
res=ParallelMapMonitored[WolframModelTest[#,Table[{0,0},4]]&,Select[Table[RandomWolframModelRule[{{2,2}}{{3,2}},6],100],BiConnectedRuleQ]];
In[]:=
Counts[WMFilter4/@res]
Out[]=
BoringDifferences4,DiedFast11,Disconnected4,FewEvents3,MaybeInteresting1
In[]:=
MakePictures2[Select[res,WMFilter4[#]==="MaybeInteresting"&]]
Out[]=
In[]:=
res=ParallelMapMonitored[WolframModelTest[#,Table[{0,0},4]]&,Select[Table[RandomWolframModelRule[{{2,2}}{{3,2}},6],500],BiConnectedRuleQ]];
In[]:=
Counts[WMFilter4/@res]
Out[]=
Disconnected13,BoringDifferences33,DiedFast33,FewEvents18,TooMuchOfAVertex1,BoringDifferencesAfterTransient5,MaybeInteresting3
In[]:=
MakePictures2[Select[res,WMFilter4[#]==="MaybeInteresting"&]]
Out[]=
In[]:=
res=ParallelMapMonitored[WolframModelTest[#,Table[{0,0},8]]&,Select[Table[RandomWolframModelRule[{{2,2}}{{3,2}},6],500],BiConnectedRuleQ]];
In[]:=
Counts[WMFilter4/@res]
»
{0,2}
Out[]=
DiedFast73,BoringDifferences31,FewEvents3,Disconnected19,MaybeInteresting5,LinearRecurrenceGrowth1,BoringDifferencesAfterTransient8
In[]:=
MakePictures2[Select[res,MatchQ[WMFilter4[#],"MaybeInteresting"|"LinearRecurrenceGrowth"]&]]
»
{0,2}
Out[]=
In[]:=
Graph[Rule@@@WolframModel[{{1,2},{2,3}}{{1,4},{2,3},{4,3}},{{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0}},12,"FinalState"]]
Out[]=
2,2 4,2
2,2 4,2
In[]:=
res=ParallelMapMonitored[WolframModelTest[#,Table[{0,0},8]]&,Select[Table[RandomWolframModelRule[{{2,2}}{{4,2}},6],500],BiConnectedRuleQ]];
In[]:=
Counts[WMFilter4/@res]
Out[]=
Disconnected12,DiedFast72,PureExponential6,MaybeInteresting5,BoringDifferences16,TooMuchOfAVertex1,BoringDifferencesAfterTransient1,FewEvents2
In[]:=
MakePictures2[Select[res,MatchQ[WMFilter4[#],"MaybeInteresting"|"LinearRecurrenceGrowth"|"PureExponential"]&]]
Out[]=
In[]:=
MakeDirectPictures2[{{{{1,2},{3,2}}{{2,3},{4,1},{4,3},{5,3}},{{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0}},5}},5]
Out[]=
In[]:=
res=ParallelMapMonitored[WolframModelTest[#,Table[{0,0},8]]&,Select[Table[RandomWolframModelRule[{{2,2}}{{4,2}},6],500],BiConnectedRuleQ]];
In[]:=
Counts[WMFilter4/@res]
Out[]=
DiedFast59,Disconnected19,BoringDifferences18,BoringDifferencesAfterTransient5,FewEvents4,TooMuchOfAVertex2,PureExponential12,MaybeInteresting2
In[]:=
MakePictures2[Select[res,MatchQ[WMFilter4[#],"MaybeInteresting"|"LinearRecurrenceGrowth"|"PureExponential"]&]]
Out[]=
2,3 3,3
2,3 3,3
[ none interesting ]