{1,3}->{n,3}

res=WolframRuleTestW1[{{{{1,3}}{{5,3}},5}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
DiedFast35,FewEvents15
Out[]=
res=WolframRuleTestW1[{{{{1,3}}{{5,3}},4}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
DiedFast27,FewEvents23
Out[]=
res=WolframRuleTestW1[{{{{1,3}}{{5,3}},3}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
FewEvents28,DiedFast22
Out[]=
res=WolframRuleTestW1[{{{{1,3}}{{5,3}},2}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
DiedFast41,FewEvents9
Out[]=
res=WolframRuleTestW1[{{{{1,3}}{{3,3}},4}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
TooMuchOfAVertex15,BoringDifferences11,TooMuchOfAnEdge9,DiedFast9,MaybeInteresting3,FlowerOnly2,PureExponential1
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
res=WolframRuleTestW1[{{{{1,3}}{{3,3}},4}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
DiedFast15,TooMuchOfAVertex15,TooMuchOfAnEdge6,MaybeInteresting6,BoringDifferences3,BoringDifferencesAfterTransient2,FlowerOnly2,PureExponential1
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
PrintCells@{{{{{1,2,2}}{{2,3,3},{3,1,1},{3,1,2}}},{{0,0,0}},7},{{{{1,1,2}}{{1,1,3},{2,2,4},{4,1,1}}},{{0,0,0}},7},{{{{1,2,2}}{{1,3,3},{2,1,2},{3,3,3}}},{{0,0,0}},6},{{{{1,1,2}}{{3,1,4},{4,4,1},{4,4,2}}},{{0,0,0}},7},{{{{1,1,2}}{{1,3,2},{3,3,4},{4,4,1}}},{{0,0,0}},7},{{{{1,1,2}}{{3,2,2},{3,3,3},{3,3,4}}},{{0,0,0}},7}}
In[]:=
res=WolframRuleTestW1[{{{{1,3}}{{3,3}},4}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
TooMuchOfAVertex21,DiedFast10,BoringDifferences8,TooMuchOfAnEdge6,FlowerOnly2,MaybeInteresting2,PureExponential1
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
PrintCells@{{{{{1,2,2}}{{1,3,4},{3,4,4},{4,3,3}}},{{0,0,0}},7},{{{{1,1,2}}{{2,2,3},{4,3,2},{4,4,1}}},{{0,0,0}},7}}
In[]:=
{{{{1,2,2}}{{1,3,4},{3,4,4},{4,3,3}}},{{0,0,0}},7}
{{{{1,1,2}}{{2,2,3},{4,3,2},{4,4,1}}},{{0,0,0}},7}
{Null,Null}
Out[]=
MakePictures[Select[res,WMFilter1[#]==="PureExponential"&]]
In[]:=
Out[]=
{{{{{1,2,3}}{{3,1,4},{3,4,4},{4,4,3}}},{{0,0,0}},5}}
res=WolframRuleTestW1[{{{{1,3}}{{3,3}},4}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
TooMuchOfAVertex18,DiedFast15,BoringDifferences7,TooMuchOfAnEdge6,MaybeInteresting3,BoringDifferencesAfterTransient1
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
PrintCells@{{{{{1,2,2}}{{1,3,4},{2,3,3},{3,2,2}}},{{0,0,0}},7},{{{{1,1,2}}{{2,2,3},{3,3,3},{3,4,2}}},{{0,0,0}},7}}
In[]:=
{{{{1,2,2}}{{1,3,4},{2,3,3},{3,2,2}}},{{0,0,0}},7}
{{{{1,1,2}}{{2,2,3},{3,3,3},{3,4,2}}},{{0,0,0}},7}
{Null,Null}
Out[]=
res=WolframRuleTestW1[{{{{1,3}}{{3,3}},4}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
TooMuchOfAVertex22,DiedFast12,MaybeInteresting5,TooMuchOfAnEdge5,BoringDifferences3,BoringDifferencesAfterTransient2,FlowerOnly1
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
{{{{{1,2,2}}{{1,3,3},{4,1,2},{4,3,3}}},{{0,0,0}},7}}
res=WolframRuleTestW1[{{{{1,3}}{{3,3}},5}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
TooMuchOfAVertex16,DiedFast15,PureExponential7,BoringDifferences6,MaybeInteresting2,FlowerOnly2,TooMuchOfAnEdge2
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
res=WolframRuleTestW1[{{{{1,3}}{{3,3}},5}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
TooMuchOfAVertex16,DiedFast15,PureExponential9,TooMuchOfAnEdge6,FlowerOnly1,MaybeInteresting1,BoringDifferencesAfterTransient1,BoringDifferences1
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
Differences[{1,3,7,13,21,31,43,57,73,91,111}]
In[]:=
{2,4,6,8,10,12,14,16,18,20}
Out[]=
Differences[%]
In[]:=
{2,2,2,2,2,2,2,2,2}
Out[]=
res=WolframRuleTestW1[{{{{1,3}}{{3,3}},5}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
DiedFast14,TooMuchOfAVertex13,BoringDifferences10,PureExponential8,TooMuchOfAnEdge3,BoringDifferencesAfterTransient1,MaybeInteresting1
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
res=WolframRuleTestW1[{{{{1,3}}{{3,3}},6}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
DiedFast19,PureExponential17,TooMuchOfAVertex8,BoringDifferences3,MaybeInteresting1,FewEvents1,TooMuchOfAnEdge1
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
res=WolframRuleTestW1[{{{{1,3}}{{3,3}},8}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
PureExponential28,DiedFast11,FewEvents5,TooMuchOfAVertex3,BoringDifferences3
Out[]=
res=WolframRuleTestW1[{{{{1,3}}{{3,3}},7}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
PureExponential24,DiedFast11,TooMuchOfAVertex8,FewEvents4,MaybeInteresting1,BoringDifferences1,TooMuchOfAnEdge1
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
res=WolframRuleTestW1[{{{{1,3}}{{4,3}},5}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
DiedFast37,MaybeInteresting6,TooMuchOfAVertex3,BoringDifferences3,TooMuchOfAnEdge1
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
res=WolframRuleTestW1[{{{{1,3}}{{4,3}},5}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
DiedFast38,TooMuchOfAVertex5,MaybeInteresting3,BoringDifferences3,BoringDifferencesAfterTransient1
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
res=WolframRuleTestW1[{{{{1,3}}{{4,3}},5}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
DiedFast36,TooMuchOfAVertex6,MaybeInteresting4,BoringDifferences3,BoringDifferencesAfterTransient1
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
PrintCells@{{{{{1,1,2}}{{2,1,3},{3,4,2},{4,4,4},{4,5,3}}},{{0,0,0}},8},{{{{1,2,1}}{{1,3,1},{2,1,4},{4,2,2},{4,2,4}}},{{0,0,0}},7}};
In[]:=
{{{{1,1,2}}{{2,1,3},{3,4,2},{4,4,4},{4,5,3}}},{{0,0,0}},8}
{{{{1,2,1}}{{1,3,1},{2,1,4},{4,2,2},{4,2,4}}},{{0,0,0}},7}
res=WolframRuleTestW1[{{{{1,3}}{{4,3}},3}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
TooMuchOfAVertex25,DiedFast14,TooMuchOfAnEdge7,BoringDifferences3,MaybeInteresting1
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
res=WolframRuleTestW1[{{{{1,3}}{{4,3}},3}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
DiedFast21,TooMuchOfAVertex20,TooMuchOfAnEdge7,BoringDifferences1,MaybeInteresting1
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
res=WolframRuleTestW1[{{{{1,3}}{{4,3}},3}},150];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
DiedFast61,TooMuchOfAVertex54,TooMuchOfAnEdge23,BoringDifferences6,MaybeInteresting5,BoringDifferencesAfterTransient1
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
res=WolframRuleTestW1[{{{{1,3}}{{4,3}},3}},150];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
DiedFast66,TooMuchOfAVertex60,TooMuchOfAnEdge19,BoringDifferences3,MaybeInteresting2
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
res=WolframRuleTestW1[{{{{1,3}}{{4,3}},5}},150];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
DiedFast102,TooMuchOfAVertex17,BoringDifferences14,MaybeInteresting13,BoringDifferencesAfterTransient4
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
PrintCells@{{{{{1,2,2}}{{1,3,3},{2,4,4},{3,5,1},{4,1,2}}},{{0,0,0}},6},{{{{1,2,1}}{{1,3,1},{3,1,3},{4,2,1},{5,4,5}}},{{0,0,0}},5},{{{{1,2,2}}{{1,1,1},{1,3,4},{3,2,1},{5,4,2}}},{{0,0,0}},8},{{{{1,2,2}}{{1,3,3},{3,1,3},{4,1,2},{4,2,2}}},{{0,0,0}},6}};
In[]:=
{{{{1,2,2}}{{1,3,3},{2,4,4},{3,5,1},{4,1,2}}},{{0,0,0}},6}
{{{{1,2,1}}{{1,3,1},{3,1,3},{4,2,1},{5,4,5}}},{{0,0,0}},5}
{{{{1,2,2}}{{1,1,1},{1,3,4},{3,2,1},{5,4,2}}},{{0,0,0}},8}
{{{{1,2,2}}{{1,3,3},{3,1,3},{4,1,2},{4,2,2}}},{{0,0,0}},6}
res=WolframRuleTestW1[{{{{1,3}}{{3,3}},5}},150];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
TooMuchOfAVertex58,DiedFast33,PureExponential21,BoringDifferences20,TooMuchOfAnEdge12,MaybeInteresting4,BoringDifferencesAfterTransient2
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
res=WolframRuleTestW1[{{{{1,3}}{{2,3}},4}},150];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
DiedFast62,TooMuchOfAVertex40,PureExponential18,FlowerOnly16,BoringDifferences10,TooMuchOfAnEdge3,MaybeInteresting1
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
res=WolframRuleTestW1[{{{{1,3}}{{2,3}},4}},150];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
DiedFast65,TooMuchOfAVertex34,PureExponential22,BoringDifferences13,FlowerOnly12,TooMuchOfAnEdge3,MaybeInteresting1
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
res=WolframRuleTestW1[{{{{1,3}}{{2,3}},4}},150];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
DiedFast55,TooMuchOfAVertex36,PureExponential27,BoringDifferences19,FlowerOnly11,TooMuchOfAnEdge2
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
{},
Clear
Copy

Out[]=
res=WolframRuleTestW1[{{{{1,3}}{{4,2}},4}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
DiedFast50
Out[]=
res=WolframRuleTestW1[{{{{1,3}}{{2,3},{1,2}},4}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
TooMuchOfAVertex17,DiedFast14,TooMuchOfAnEdge8,BoringDifferences7,MaybeInteresting4
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
res=WolframRuleTestW1[{{{{1,3}}{{2,3},{1,2}},4}},150];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
TooMuchOfAVertex51,DiedFast44,TooMuchOfAnEdge20,MaybeInteresting19,BoringDifferences14,BoringDifferencesAfterTransient2
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
{{{{{1,2,3}}{{1,2,4},{2,4,3},{4,2}}},{{0,0,0}},7},{{{{1,2,3}}{{4,1,2},{4,3,1},{4,3}}},{{0,0,0}},7}}
WolframModel[{{{1,2,3}}{{1,2,4},{2,4,3}}},{{0,0,0}},7]["FinalState"]//HypergraphPlot
In[]:=
Out[]=
I.e. second rule doesn’t matter....