Larger Signatures + Structured Initial Conditions

res=WolframRuleTestW1[{{{{1,3}}{{3,3}},4}},10];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]
In[]:=
TooMuchOfAVertex3,DiedFast3,TooMuchOfAnEdge2,BoringDifferences2
Out[]=
res=WolframRuleTestW1[{{{{1,3}}{{3,3}},4}},10];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]
In[]:=
DiedFast4,TooMuchOfAVertex4,MaybeInteresting1,TooMuchOfAnEdge1
Out[]=
res=WolframRuleTestW1[{{{{3,2}}{{10,2}},7}},10];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]
In[]:=
DiedFast5,FewEvents5
Out[]=
Probably incorrectly classified by WMFilter2
res=WolframRuleTestW1[{{{{3,2}}{{10,2}},5}},10];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]
In[]:=
FewEvents5,DiedFast5
Out[]=
res=WolframRuleTestW1[{{{{3,2}}{{10,2}},5}},10];
In[]:=
ReverseSort[Counts[WMFilter3/@res]]
In[]:=
DiedFast5,FewEvents5
Out[]=
res=WolframRuleTestW1[{{{{3,2}}{{10,2}},5}},15];
In[]:=
ReverseSort[Counts[WMFilter3/@res]]
In[]:=
DiedFast11,FewEvents4
Out[]=
MakePictures[res]
In[]:=
Out[]=
res=WolframRuleTestW1[{{{{3,2}}{{10,2}},5}},15];
In[]:=
ReverseSort[Counts[WMFilter3/@res]]
In[]:=
FewEvents7,TooMuchOfAVertex6,TooMuchOfAnEdge2
Out[]=
res=WolframRuleTestW1[{{{{3,2}}{{10,2}},5}},15];
In[]:=
ReverseSort[Counts[WMFilter3/@res]]
In[]:=
FewEvents9,TooMuchOfAnEdge4,TooMuchOfAVertex2
Out[]=
res=WolframRuleTestW1[{{{{3,2}}{{10,2}},5}},20];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]
In[]:=
DiedFast11,FewEvents9
Out[]=
res=WolframRuleTestW1[{{{{3,2}}{{11,2}},6}},20];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]
In[]:=
DiedFast15,FewEvents5
Out[]=
res=WolframRuleTestW1[{{{{2,2}}{{8,2}},8}},20];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]
In[]:=
DiedFast13,FewEvents7
Out[]=
res=WolframRuleTestW1[{{{{2,2}}{{8,2}},8}},20];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]
In[]:=
DiedFast13,FewEvents7
Out[]=

Special rules: {{0,1},{0,2},...}  ....

WolframRuleTestWSpec[lhslen_Integer,rhslen_Integer,s_]:=Module[{rules=RandomWolframModelRule[{{1,1}}{{rhslen,2}},s],eo,init},While[!BiConnectedRuleQ[rules],rules=RandomWolframModelRule[{{1,1}}{{rhslen,2}},s]];​​rules=ReplacePart[rules,{1}Table[{0,i},{i,lhslen}]];​​init=Table[{0,0},lhslen];eo=TimeConstrained[WolframModel[rules,init,<|"MaxVertices"200,"MaxEdges"200,"MaxEvents"5000,"MaxGenerations"100|>,TimeConstraint5],6];If[eo===$Aborted,Return[$Aborted]];<|"Rule"rules,"Init"init,"Sizes"Length/@Most[eo["StatesList"]],"FinalState"eo[-2],"EvolutionObject"eo|>]
In[]:=
WolframRuleTestWSpec1[lhslen_Integer,rhslen_Integer,s_,n_]:=DeleteCases[ParallelMapMonitored[WolframRuleTestWSpec[lhslen,rhslen,s]&,Range[n]],$Aborted]
In[]:=
res=WolframRuleTestWSpec1[3,10,4,10];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]
In[]:=
DiedFast10
Out[]=
res=WolframRuleTestWSpec1[3,10,6,10];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]
In[]:=
FewEvents8,DiedFast2
Out[]=
res=WolframRuleTestWSpec1[3,10,8,30];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]
In[]:=
FewEvents25,DiedFast5
Out[]=
res=WolframRuleTestWSpec1[3,6,6,30];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]
In[]:=
TooMuchOfAVertex13,Disconnected8,FewEvents3,DiedFast3,BoringDifferencesAfterTransient2,BoringDifferences1
Out[]=
res=WolframRuleTestWSpec1[3,6,6,50];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]
In[]:=
TooMuchOfAVertex19,Disconnected18,FewEvents5,BoringDifferences4,MaybeInteresting2,DiedFast2
Out[]=
MakePictures[Select[res,WMFilter2[#]==="MaybeInteresting"&]]
In[]:=
$RecursionLimit
:Recursion depth of 1024 exceeded during evaluation of
[◼]
InteractiveListSelector
.
$RecursionLimit
:Recursion depth of 1024 exceeded during evaluation of ResourceSystemClient`Private`loaded$64321=Quiet[Check[ResourceSystemClient`Private`loadResourceType[Function],$Failed,ResourceObject::unkrt],ResourceObject::unkrt].
$RecursionLimit
:Recursion depth of 1024 exceeded during evaluation of ResourceSystemClient`Private`success$64321=TrueQ[!FailureQ[ResourceSystemClient`Private`loaded$64321]].
General
:Further output of $RecursionLimit::reclim2 will be suppressed during this calculation.
Hold[Update::sym:Argument Hold[RuleCondition[$ConditionHold[$ConditionHold[ResourceFunction]],ResourceSystemClient`Private`success$64321]] at position 1 is expected to be a symbol.]
Out[]=
PrintCells@{{{{0,1},{0,2},{0,3}}{{2,1},{2,3},{3,4},{3,5},{4,1},{5,3}},{{0,0},{0,0},{0,0}},10},{{{0,1},{0,2},{0,3}}{{1,1},{1,2},{1,3},{2,4},{3,4},{5,1}},{{0,0},{0,0},{0,0}},10}};
In[]:=
{{{0,1},{0,2},{0,3}}{{2,1},{2,3},{3,4},{3,5},{4,1},{5,3}},{{0,0},{0,0},{0,0}},10}
{{{0,1},{0,2},{0,3}}{{1,1},{1,2},{1,3},{2,4},{3,4},{5,1}},{{0,0},{0,0},{0,0}},10}
res=WolframRuleTestWSpec1[3,6,6,50];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]
In[]:=
TooMuchOfAVertex20,Disconnected11,DiedFast7,FewEvents7,MaybeInteresting3,BoringDifferencesAfterTransient1,BoringDifferences1
Out[]=
MakePictures[Select[res,WMFilter2[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
PrintCells@{{{{0,1},{0,2},{0,3}}{{1,2},{2,3},{3,4},{4,1},{4,4},{5,4}},{{0,0},{0,0},{0,0}},14},{{{0,1},{0,2},{0,3}}{{1,2},{1,3},{2,4},{3,5},{4,2},{5,3}},{{0,0},{0,0},{0,0}},13},{{{0,1},{0,2},{0,3}}{{1,2},{2,3},{2,4},{3,5},{4,5},{5,2}},{{0,0},{0,0},{0,0}},13}};
In[]:=
res=WolframRuleTestWSpec1[3,4,5,50];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]
In[]:=
DiedFast18,FewEvents13,TooMuchOfAVertex12,Disconnected3,BoringDifferences2,TooMuchOfAnEdge1,BoringDifferencesAfterTransient1
Out[]=
MakePictures[Select[res,WMFilter2[#]==="MaybeInteresting"&]]
In[]:=
{},
Clear
Copy

Out[]=
res=WolframRuleTestWSpec1[3,4,5,50];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]
In[]:=
DiedFast22,FewEvents13,TooMuchOfAVertex9,BoringDifferences3,Disconnected2,BoringDifferencesAfterTransient1
Out[]=
MakePictures[Select[res,WMFilter2[#]==="MaybeInteresting"&]]
In[]:=
{},
Clear
Copy

Out[]=
res=WolframRuleTestWSpec1[3,4,4,50];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]
In[]:=
TooMuchOfAVertex19,FewEvents19,DiedFast6,BoringDifferences3,Disconnected2,MaybeInteresting1
Out[]=
MakePictures[Select[res,WMFilter2[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
Differences[{3,4,5,6,7,8,9,11,12,13,14,15,17,18,19,20,21,23,24,25,26,27,29,30,31,32,33,35,36,37,38,39,41,42,43,44,45,47,48,49,50,51,53,54,55,56,57,59,60,61,62,63,65,66,67,68,69,71,72,73,74,75,77,78,79,80,81,83,84,85,86,87,89,90,91,92,93,95,96,97,98,99,101,102,103,104,105,107,108,109,110,111,113,114,115,116,117,119,120,121}]
In[]:=
{1,1,1,1,1,1,2,1,1,1,1,2,1,1,1,1,2,1,1,1,1,2,1,1,1,1,2,1,1,1,1,2,1,1,1,1,2,1,1,1,1,2,1,1,1,1,2,1,1,1,1,2,1,1,1,1,2,1,1,1,1,2,1,1,1,1,2,1,1,1,1,2,1,1,1,1,2,1,1,1,1,2,1,1,1,1,2,1,1,1,1,2,1,1,1,1,2,1,1}
Out[]=
ListLinePlot[%]
In[]:=
Out[]=
res=WolframRuleTestWSpec1[3,4,5,50];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]
In[]:=
DiedFast21,TooMuchOfAVertex14,FewEvents10,Disconnected3,BoringDifferencesAfterTransient2
Out[]=
MakePictures[Select[res,WMFilter2[#]==="MaybeInteresting"&]]
In[]:=
{},
Clear
Copy

Out[]=
res=WolframRuleTestWSpec1[3,5,5,50];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]
In[]:=
TooMuchOfAVertex18,DiedFast11,FewEvents10,Disconnected5,BoringDifferences3,MaybeInteresting1,TooMuchOfAnEdge1,BoringDifferencesAfterTransient1
Out[]=
MakePictures[Select[res,WMFilter2[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
res=WolframRuleTestWSpec1[3,5,5,50];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]
In[]:=
MakePictures[Select[res,WMFilter2[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
res=WolframRuleTestWSpec1[2,3,4,50];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]
In[]:=
TooMuchOfAVertex13,BoringDifferences12,DiedFast10,Disconnected6,FlowerOnly4,TooMuchOfAnEdge4,BoringDifferencesAfterTransient1
Out[]=
MakePictures[Select[res,WMFilter2[#]==="MaybeInteresting"&]]
In[]:=
{},
Clear
Copy

Out[]=
res=WolframRuleTestWSpec1[2,3,4,100];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]
In[]:=
BoringDifferences30,TooMuchOfAVertex24,Disconnected20,DiedFast17,TooMuchOfAnEdge5,FlowerOnly4
Out[]=
MakePictures[Select[res,WMFilter2[#]==="MaybeInteresting"&]]
In[]:=
{},
Clear
Copy

Out[]=
res=WolframRuleTestWSpec1[2,3,6,100];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]
In[]:=
BoringDifferences45,DiedFast27,TooMuchOfAVertex13,Disconnected12,BoringDifferencesAfterTransient1,TooMuchOfAnEdge1,FlowerOnly1
Out[]=
MakePictures[Select[res,WMFilter2[#]==="MaybeInteresting"&]]
In[]:=
{},
Clear
Copy

Out[]=
res=WolframRuleTestWSpec1[2,4,6,100];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]
In[]:=
BoringDifferences28,Disconnected25,DiedFast18,TooMuchOfAVertex13,PureExponential10,BoringDifferencesAfterTransient3,TooMuchOfAnEdge2,FewEvents1
Out[]=
MakePictures[Select[res,WMFilter2[#]==="MaybeInteresting"&]]
In[]:=
{},
Clear
Copy

Out[]=
res=WolframRuleTestWSpec1[2,5,7,100];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]
In[]:=
Disconnected56,FewEvents14,BoringDifferences8,TooMuchOfAVertex8,DiedFast7,MaybeInteresting4,BoringDifferencesAfterTransient2,TooMuchOfAnEdge1
Out[]=
MakePictures[Select[res,WMFilter2[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
PrintCells@{{{{0,1},{0,2}}{{2,1},{2,3},{3,3},{4,1},{4,3}},{{0,0},{0,0}},7},{{{0,1},{0,2}}{{2,1},{3,1},{4,2},{4,5},{5,3}},{{0,0},{0,0}},8},{{{0,1},{0,2}}{{1,1},{2,1},{3,2},{4,3},{4,5}},{{0,0},{0,0}},7},{{{0,1},{0,2}}{{1,2},{2,3},{2,4},{3,5},{4,5}},{{0,0},{0,0}},9}};
In[]:=
res=WolframRuleTestWSpec1[2,5,8,100];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]
In[]:=
Disconnected57,FewEvents22,TooMuchOfAVertex7,BoringDifferences6,DiedFast5,MaybeInteresting2,BoringDifferencesAfterTransient1
Out[]=
MakePictures[Select[res,WMFilter2[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
res=WolframRuleTestWSpec1[2,5,8,100];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]
In[]:=
Disconnected43,FewEvents24,TooMuchOfAVertex12,DiedFast8,BoringDifferences7,MaybeInteresting4,TooMuchOfAnEdge1,BoringDifferencesAfterTransient1
Out[]=
MakePictures[Select[res,WMFilter2[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
res=WolframRuleTestWSpec1[2,5,8,100];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]
In[]:=
Disconnected52,FewEvents19,TooMuchOfAVertex9,DiedFast8,BoringDifferences7,MaybeInteresting4,BoringDifferencesAfterTransient1
Out[]=
MakePictures[Select[res,WMFilter2[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
res=WolframRuleTestWSpec1[2,5,8,100];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]
In[]:=
Disconnected49,FewEvents24,BoringDifferences10,TooMuchOfAVertex6,BoringDifferencesAfterTransient4,DiedFast3,MaybeInteresting3,TooMuchOfAnEdge1
Out[]=
MakePictures[Select[res,WMFilter2[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
res=WolframRuleTestWSpec1[2,5,8,100];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]
In[]:=
Disconnected60,FewEvents18,TooMuchOfAVertex8,BoringDifferences8,MaybeInteresting3,DiedFast3
Out[]=
MakePictures[Select[res,WMFilter2[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
res=WolframRuleTestWSpec1[1,3,4,50];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]
In[]:=
PureExponential41,TooMuchOfAVertex8,TooMuchOfAnEdge1
Out[]=
MakePictures[Select[res,WMFilter2[#]==="MaybeInteresting"&]]
In[]:=
res=WolframRuleTestWSpec1[1,3,4,50];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]