In[]:=
res=WolframRuleTestW1[{{{{1,2}}{{1,3},{2,2}},4}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
Out[]=
MaybeInteresting24,DiedFast14,TooMuchOfAVertex10,TooMuchOfAnEdge2
In[]:=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
Out[]=
In[]:=
PrintCells@{{{{{1,2}}{{2,3,4},{1,3},{3,4}}},{{0,0}},7},{{{{1,2}}{{3,4,1},{1,4},{4,2}}},{{0,0}},7},{{{{1,2}}{{1,3,4},{3,3},{4,2}}},{{0,0}},7},{{{{1,2}}{{3,2,4},{1,3},{4,2}}},{{0,0}},7}};
{{{{1,2}}{{2,3,4},{1,3},{3,4}}},{{0,0}},7}
{{{{1,2}}{{3,4,1},{1,4},{4,2}}},{{0,0}},7}
{{{{1,2}}{{1,3,4},{3,3},{4,2}}},{{0,0}},7}
{{{{1,2}}{{3,2,4},{1,3},{4,2}}},{{0,0}},7}
In[]:=
res=WolframRuleTestW1[{{{{1,2}}{{1,3}},4}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
Out[]=
DiedFast50
In[]:=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
Out[]=
{},
Clear
Copy

In[]:=
res=WolframRuleTestW1[{{{{1,2}}{{1,3},{1,2}},4}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
Out[]=
BoringDifferences28,TooMuchOfAVertex10,DiedFast9,TooMuchOfAnEdge3
In[]:=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
Out[]=
{},
Clear
Copy

In[]:=
res=WolframRuleTestW1[{{{{1,2}}{{1,3},{1,2}},3}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
Out[]=
TooMuchOfAVertex21,DiedFast12,BoringDifferences12,TooMuchOfAnEdge5
In[]:=
res=WolframRuleTestW1[{{{{1,2}}{{1,3},{1,2}},4}},150];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
Out[]=
BoringDifferences76,TooMuchOfAVertex45,DiedFast27,TooMuchOfAnEdge2
In[]:=
res=WolframRuleTestW1[{{{{1,2}}{{1,3},{2,2}},3}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
Out[]=
MaybeInteresting16,TooMuchOfAVertex11,DiedFast10,TooMuchOfAnEdge9,BoringDifferences4
In[]:=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
Out[]=
In[]:=
PrintCells@{{{{{1,2}}{{2,2,3},{1,3},{3,1}}},{{0,0}},7},{{{{1,2}}{{3,2,1},{1,3},{3,2}}},{{0,0}},7},{{{{1,2}}{{1,3,2},{1,3},{3,1}}},{{0,0}},7}};
{{{{1,2}}{{2,2,3},{1,3},{3,1}}},{{0,0}},7}
{{{{1,2}}{{3,2,1},{1,3},{3,2}}},{{0,0}},7}
{{{{1,2}}{{1,3,2},{1,3},{3,1}}},{{0,0}},7}
In[]:=
res=WolframRuleTestW1[{{{{1,2}}{{3,2}},3}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
Out[]=
TooMuchOfAVertex15,TooMuchOfAnEdge12,DiedFast10,BoringDifferences5,PureExponential4,FlowerOnly3,MaybeInteresting1
In[]:=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]

4-edges

2-edges again