res=WolframRuleTestW1[{{{{1,2}}{{1,3},{2,2}},4}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
MaybeInteresting24,DiedFast14,TooMuchOfAVertex10,TooMuchOfAnEdge2
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
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}};
In[]:=
{{{{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}
res=WolframRuleTestW1[{{{{1,2}}{{1,3}},4}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
DiedFast50
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
{},
Clear
Copy

Out[]=
res=WolframRuleTestW1[{{{{1,2}}{{1,3},{1,2}},4}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
BoringDifferences28,TooMuchOfAVertex10,DiedFast9,TooMuchOfAnEdge3
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
{},
Clear
Copy

Out[]=
res=WolframRuleTestW1[{{{{1,2}}{{1,3},{1,2}},3}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
TooMuchOfAVertex21,DiedFast12,BoringDifferences12,TooMuchOfAnEdge5
Out[]=
res=WolframRuleTestW1[{{{{1,2}}{{1,3},{1,2}},4}},150];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
BoringDifferences76,TooMuchOfAVertex45,DiedFast27,TooMuchOfAnEdge2
Out[]=
res=WolframRuleTestW1[{{{{1,2}}{{1,3},{2,2}},3}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
MaybeInteresting16,TooMuchOfAVertex11,DiedFast10,TooMuchOfAnEdge9,BoringDifferences4
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
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}};
In[]:=
{{{{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}
res=WolframRuleTestW1[{{{{1,2}}{{3,2}},3}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
TooMuchOfAVertex15,TooMuchOfAnEdge12,DiedFast10,BoringDifferences5,PureExponential4,FlowerOnly3,MaybeInteresting1
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
WolframModel[{{{1,1}}{{1,2},{2,2}}},{{0,0}},5,"FinalState"]//HypergraphPlot
In[]:=
Out[]=
res=WolframRuleTestW1[{{{{1,2}}{{4,2}},5}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
DiedFast46,BoringDifferences2,MaybeInteresting1,TooMuchOfAVertex1
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
{{{{{1,1}}{{2,1},{2,2},{3,2},{3,3}}},{{0,0}},7}}
res=WolframRuleTestW1[{{{{1,2}}{{2,2}},3},{{{2,2}}{{1,2}},3}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
PureExponential18,TooMuchOfAVertex9,DiedFast6,BoringDifferences5,TooMuchOfAnEdge2
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
{},
Clear
Copy

Out[]=
res=WolframRuleTestW1[{{{{1,2}}{{2,2}},4},{{{2,2}}{{1,2}},4}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
PureExponential31,DiedFast10,TooMuchOfAVertex4,TooMuchOfAnEdge1,BoringDifferences1
Out[]=
res=WolframRuleTestW1[{{{{1,2}}{{3,2}},4},{{{2,2}}{{1,2}},4}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
PureExponential19,TooMuchOfAVertex11,DiedFast10,BoringDifferences5,MaybeInteresting2,TooMuchOfAnEdge2,FlowerOnly1
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
ListPlot[{1,3,2,4,3,5,4,6,5,7,6,8,7,9,8,10,9,11,10,12,11,13,12,14,13,15,14,16,15,17,16,18,17,19,18,20,19,21,20,22,21,23,22,24,23,25,24,26,25,27,26,28,27,29,28,30,29,31,30,32,31,33,32,34,33,35,34,36,35,37,36,38,37,39,38,40,39,41,40,42,41,43,42,44,43,45,44,46,45,47,46,48,47,49,48,50,49,51,50,52,51,53,52,54,53,55,54,56,55,57,56,58,57,59,58,60,59,61,60,62,61,63,62,64,63,65,64,66,65,67,66,68,67,69,68,70,69,71,70,72,71,73,72,74,73,75,74,76,75,77,76,78,77,79,78,80,79,81,80,82,81,83,82,84,83,85,84,86,85,87,86,88,87,89,88,90,89,91,90,92,91,93,92,94,93,95,94,96,95,97,96,98,97,99,98,100,99,101}]
In[]:=
Out[]=
res=WolframRuleTestW1[{{{{1,2}}{{2,2}},4},{{{2,2}}{{1,2}},4}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
PureExponential29,DiedFast7,BoringDifferences4,TooMuchOfAnEdge3,MaybeInteresting1,TooMuchOfAVertex1
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
res=WolframRuleTestW1[{{{{2,2}}{{3,2}},4},{{{2,2}}{{1,2}},4}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
DiedFast24,MaybeInteresting9,BoringDifferencesAfterTransient3,BoringDifferences3,TooMuchOfAVertex3,FewEvents2
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
PrintCells@{{{{{1,2},{2,3}}{{1,3},{2,4},{4,3}},{{1,1},{2,1}}{{1,1}}},{{0,0},{0,0}},18},{{{{1,2},{3,2}}{{3,2},{4,2},{4,3}},{{1,2},{2,1}}{{3,3}}},{{0,0},{0,0}},15}};
In[]:=
res=WolframRuleTestW1[{{{{2,2}}{{3,2}},3},{{{2,2}}{{1,2}},3}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
DiedFast18,TooMuchOfAVertex4,BoringDifferencesAfterTransient1,BoringDifferences1,MaybeInteresting1
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
res=WolframRuleTestW1[{{{{2,2}}{{3,2}},5},{{{2,2}}{{1,2}},3}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
DiedFast19,MaybeInteresting10,BoringDifferences8,TooMuchOfAVertex4,BoringDifferencesAfterTransient1
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
res=WolframRuleTestW1[{{{{2,3}}{{3,3}},5}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
DiedFast31,TooMuchOfAVertex9,FewEvents2,BoringDifferences2,BoringDifferencesAfterTransient1,TooMuchOfAnEdge1
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
{},
Clear
Copy

Out[]=
res=WolframRuleTestW1[{{{{2,3}}{{3,3}},4}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
DiedFast18,TooMuchOfAVertex10,BoringDifferencesAfterTransient1
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
{},
Clear
Copy

Out[]=
res=WolframRuleTestW1[{{{{2,3}}{{3,3}},6}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
DiedFast26,TooMuchOfAVertex12,MaybeInteresting4,BoringDifferences3
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
Select[res,WMFilter1[#]==="MaybeInteresting"&][[1]]["EvolutionObject"]
In[]:=
Out[]=
%["CausalGraph"]
In[]:=
Out[]=
res=WolframRuleTestW1[{{{{2,3}}{{3,3}},6}},100];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
DiedFast60,TooMuchOfAVertex19,MaybeInteresting7,BoringDifferences4,TooMuchOfAnEdge3,FewEvents1,BoringDifferencesAfterTransient1
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
PrintCells@{{{{{1,2,3},{2,3,4}}{{3,1,5},{3,5,3},{4,3,5}}},{{0,0,0},{0,0,0}},38},{{{{1,2,3},{4,3,5}}{{4,1,3},{4,5,1},{6,2,1}}},{{0,0,0},{0,0,0}},14},{{{{1,2,3},{1,4,5}}{{3,5,2},{3,6,6},{5,1,2}}},{{0,0,0},{0,0,0}},19},{{{{1,2,3},{3,4,5}}{{2,4,3},{2,6,1},{4,4,5}}},{{0,0,0},{0,0,0}},17}};
In[]:=
res=WolframRuleTestW1[{{{{2,3}}{{3,3}},4}},100];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
DiedFast43,TooMuchOfAVertex16,BoringDifferences3,MaybeInteresting1,FewEvents1
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
res=WolframRuleTestW1[{{{{2,3}}{{3,3}},8}},100];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
DiedFast58,TooMuchOfAVertex14,MaybeInteresting13,BoringDifferences10,BoringDifferencesAfterTransient3
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
PrintCells@{{{{{1,2,3},{4,3,5}}{{1,1,2},{2,6,4},{5,6,2}}},{{0,0,0},{0,0,0}},29},{{{{1,2,3},{4,5,3}}{{3,1,6},{6,2,1},{7,5,6}}},{{0,0,0},{0,0,0}},23},{{{{1,2,3},{4,2,5}}{{4,3,1},{4,3,4},{6,3,2}}},{{0,0,0},{0,0,0}},14}};
In[]:=
res=WolframRuleTestW1[{{{{2,3}}{{3,3}},10}},100];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
DiedFast68,BoringDifferences16,MaybeInteresting8,TooMuchOfAVertex6,FewEvents2
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
PrintCells@{{{{{1,2,3},{4,3,5}}{{3,4,1},{6,1,2},{6,3,7}}},{{0,0,0},{0,0,0}},17},{{{{1,2,3},{2,4,5}}{{2,1,5},{3,2,6},{7,1,4}}},{{0,0,0},{0,0,0}},22},{{{{1,2,3},{4,3,5}}{{1,5,4},{2,6,5},{6,4,5}}},{{0,0,0},{0,0,0}},14}};
In[]:=
res=WolframRuleTestW1[{{{{2,3}}{{3,3}},12}},100];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
DiedFast75,BoringDifferences18,TooMuchOfAVertex4,BoringDifferencesAfterTransient2,MaybeInteresting1
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
res=WolframRuleTestW1[{{{{2,3}}{{3,3}},6}},100];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
DiedFast61,TooMuchOfAVertex13,MaybeInteresting9,FewEvents6,BoringDifferences3,TooMuchOfAnEdge1
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=

4-edges

res=WolframRuleTestW1[{{{{1,4}}{{2,4}},6}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
DiedFast20,TooMuchOfAVertex15,PureExponential9,BoringDifferences3,TooMuchOfAnEdge2,FlowerOnly1
Out[]=
res=WolframRuleTestW1[{{{{1,4}}{{2,4}},6}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
DiedFast25,TooMuchOfAVertex13,PureExponential6,BoringDifferences2,MaybeInteresting2,BoringDifferencesAfterTransient1,TooMuchOfAnEdge1
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
res=WolframRuleTestW1[{{{{1,4}}{{2,4}},6}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
DiedFast29,TooMuchOfAVertex8,PureExponential8,BoringDifferences3,MaybeInteresting1,TooMuchOfAnEdge1
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
res=WolframRuleTestW1[{{{{1,4}}{{2,4}},6}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
DiedFast18,TooMuchOfAVertex15,PureExponential9,BoringDifferences3,TooMuchOfAnEdge3,FlowerOnly1,BoringDifferencesAfterTransient1
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
{},
Clear
Copy

Out[]=
res=WolframRuleTestW1[{{{{1,4}}{{3,4}},6}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
TooMuchOfAVertex23,DiedFast18,BoringDifferences3,TooMuchOfAnEdge2,FewEvents1,BoringDifferencesAfterTransient1,PureExponential1,MaybeInteresting1
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
res=WolframRuleTestW1[{{{{1,4}}{{3,4}},6}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
DiedFast24,TooMuchOfAVertex12,MaybeInteresting4,BoringDifferences4,TooMuchOfAnEdge3,PureExponential2,BoringDifferencesAfterTransient1
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
res=WolframRuleTestW1[{{{{1,4}}{{3,4}},4}},50];
In[]:=
ReverseSort[Counts[WMFilter1/@res]]
In[]:=
TooMuchOfAVertex18,DiedFast11,TooMuchOfAnEdge10,FlowerOnly6,MaybeInteresting3,BoringDifferencesAfterTransient1,BoringDifferences1
Out[]=
MakePictures[Select[res,WMFilter1[#]==="MaybeInteresting"&]]
In[]:=
Out[]=
res=WolframRuleTestW1[{{{{1,<