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

In[]:=
res=WolframRuleTestW1[{{{{1,3}}{{5,3}},5}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
Out[]=
DiedFast35,FewEvents15
In[]:=
res=WolframRuleTestW1[{{{{1,3}}{{5,3}},4}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
Out[]=
DiedFast27,FewEvents23
In[]:=
res=WolframRuleTestW1[{{{{1,3}}{{5,3}},3}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
Out[]=
FewEvents28,DiedFast22
In[]:=
res=WolframRuleTestW1[{{{{1,3}}{{5,3}},2}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
Out[]=
DiedFast41,FewEvents9
In[]:=
res=WolframRuleTestW1[{{{{1,3}}{{3,3}},4}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
Out[]=
TooMuchOfAVertex15,BoringDifferences11,TooMuchOfAnEdge9,DiedFast9,MaybeInteresting3,FlowerOnly2,PureExponential1
In[]:=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
Out[]=
In[]:=
res=WolframRuleTestW1[{{{{1,3}}{{3,3}},4}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
Out[]=
DiedFast15,TooMuchOfAVertex15,TooMuchOfAnEdge6,MaybeInteresting6,BoringDifferences3,BoringDifferencesAfterTransient2,FlowerOnly2,PureExponential1
In[]:=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
Out[]=
In[]:=
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]]
Out[]=
TooMuchOfAVertex21,DiedFast10,BoringDifferences8,TooMuchOfAnEdge6,FlowerOnly2,MaybeInteresting2,PureExponential1
In[]:=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
Out[]=
In[]:=
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}}
{{{{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}
Out[]=
{Null,Null}
In[]:=
MakePictures[Select[res,WMFilter1[#]==="PureExponential"&]]
Out[]=
{{{{{1,2,3}}{{3,1,4},{3,4,4},{4,4,3}}},{{0,0,0}},5}}
In[]:=
res=WolframRuleTestW1[{{{{1,3}}{{3,3}},4}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
Out[]=
TooMuchOfAVertex18,DiedFast15,BoringDifferences7,TooMuchOfAnEdge6,MaybeInteresting3,BoringDifferencesAfterTransient1
In[]:=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
Out[]=
In[]:=
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}}
{{{{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}
Out[]=
{Null,Null}
In[]:=
res=WolframRuleTestW1[{{{{1,3}}{{3,3}},4}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
I.e. second rule doesn’t matter....
OSZAR »