WOLFRAM NOTEBOOK

Larger Signatures + Structured Initial Conditions

In[]:=
res=WolframRuleTestW1[{{{{1,3}}{{3,3}},4}},10];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]
Out[]=
TooMuchOfAVertex3,DiedFast3,TooMuchOfAnEdge2,BoringDifferences2
In[]:=
res=WolframRuleTestW1[{{{{1,3}}{{3,3}},4}},10];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]
Out[]=
DiedFast4,TooMuchOfAVertex4,MaybeInteresting1,TooMuchOfAnEdge1
In[]:=
res=WolframRuleTestW1[{{{{3,2}}{{10,2}},7}},10];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]
Out[]=
DiedFast5,FewEvents5
Probably incorrectly classified by WMFilter2
In[]:=
res=WolframRuleTestW1[{{{{3,2}}{{10,2}},5}},10];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]
Out[]=
FewEvents5,DiedFast5
In[]:=
res=WolframRuleTestW1[{{{{3,2}}{{10,2}},5}},10];
In[]:=
ReverseSort[Counts[WMFilter3/@res]]
Out[]=
DiedFast5,FewEvents5
In[]:=
res=WolframRuleTestW1[{{{{3,2}}{{10,2}},5}},15];
In[]:=
ReverseSort[Counts[WMFilter3/@res]]
Out[]=
DiedFast11,FewEvents4
In[]:=
MakePictures[res]
Out[]=
In[]:=
res=WolframRuleTestW1[{{{{3,2}}{{10,2}},5}},15];
In[]:=
ReverseSort[Counts[WMFilter3/@res]]
Out[]=
FewEvents7,TooMuchOfAVertex6,TooMuchOfAnEdge2
In[]:=
res=WolframRuleTestW1[{{{{3,2}}{{10,2}},5}},15];
In[]:=
ReverseSort[Counts[WMFilter3/@res]]
Out[]=
FewEvents9,TooMuchOfAnEdge4,TooMuchOfAVertex2
In[]:=
res=WolframRuleTestW1[{{{{3,2}}{{10,2}},5}},20];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]
Out[]=
DiedFast11,FewEvents9
In[]:=
res=WolframRuleTestW1[{{{{3,2}}{{11,2}},6}},20];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]
Out[]=
DiedFast15,FewEvents5
In[]:=
res=WolframRuleTestW1[{{{{2,2}}{{8,2}},8}},20];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]
Out[]=
DiedFast13,FewEvents7
In[]:=
res=WolframRuleTestW1[{{{{2,2}}{{8,2}},8}},20];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]
Out[]=
DiedFast13,FewEvents7

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

In[]:=
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|>,TimeConstraint5],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]]
Out[]=
DiedFast10
In[]:=
res=WolframRuleTestWSpec1[3,10,6,10];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]
Out[]=
FewEvents8,DiedFast2
In[]:=
res=WolframRuleTestWSpec1[3,10,8,30];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]
Out[]=
FewEvents25,DiedFast5
In[]:=
res=WolframRuleTestWSpec1[3,6,6,30];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]
Out[]=
TooMuchOfAVertex13,Disconnected8,FewEvents3,DiedFast3,BoringDifferencesAfterTransient2,BoringDifferences1
In[]:=
res=WolframRuleTestWSpec1[3,6,6,50];
In[]:=
ReverseSort[Counts[WMFilter2/@res]]
Out[]=
TooMuchOfAVertex19,Disconnected18,FewEvents5,BoringDifferences4,MaybeInteresting2,DiedFast2
In[]:=
MakePictures[Select[res,WMFilter2[#]==="MaybeInteresting"&]]
$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[]=
In[]:=
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}};

Sierpinski-ism

Wolfram Cloud

You are using a browser not supported by the Wolfram Cloud

Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.


I understand and wish to continue anyway »

You are using a browser not supported by the Wolfram Cloud. Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.