Grid[Table[{RuleSignatureForm[{{i,2}}{{j,2}}],Length[Union[EnumerateWolframModelRules[{{i,2}}{{j,2}},2]]]},{j,4},{i,4}],FrameAll]
In[]:=
Out[]=
Grid[Monitor[Table[{RuleSignatureForm[{{i,3}}{{j,3}}],Length[Union[EnumerateWolframModelRules[{{i,3}}{{j,3}},2]]]},{j,4},{i,4}],{i,j}],FrameAll]
In[]:=
Out[]=

Systematic Testing

[[[ NOTE: code moved to SWInit-02.nb ]]]

Code


Try 1

int1=Select[%34,WMFilter1[#]==="MaybeInteresting"&];
In[]:=
#Sizes&/@int1
In[]:=
{{2,4,8,14,20,26,34},{2,4,6,10,16,24,36,54,82,124,186},{2,4,8,12,18,26,36,50,70,98,136,188},{2,4,8,14,22,34,50,70,98,130,174},{2,4,6,10,16,24,36,54,82,124,186},{2,4,6,10,14,18}}
Out[]=
int1[[1]]
In[]:=
Out[]=
InteractiveListSelector[Labeled[HypergraphPlot[#FinalState],#Sizes]{#Rule,#Init,Length[#Sizes]}&/@int1]
In[]:=
Out[]=
WolframModel[{{{1,2,2},{3,2,1}}{{2,1,3},{2,3,1},{3,1,2},{4,3,3}}},{{0,0,0},{0,0,0}},7]
In[]:=
Out[]=
%63["EventsCount"]
In[]:=
19
Out[]=
ListPlot[{2,4,8,14,22,34,50,70,98,130,174}]
In[]:=
Out[]=
Differences[{2,4,8,14,22,34,50,70,98,130,174}]
In[]:=
{2,4,6,8,12,16,20,28,32,44}
Out[]=
Differences[%]
In[]:=
{2,2,2,4,4,4,8,4,12}
Out[]=

Try 2

WolframRuleTestW1[{{{{2,3}}{{4,3}},4}},20]
In[]:=
Out[]=
WMFilter1/@%
In[]:=
{FlowerOnly,BoringDifferences,DiedFast,FlowerOnly,DiedFast,FlowerOnly,MaybeInteresting,BoringDifferences,BoringDifferences,DiedFast,FlowerOnly,FlowerOnly,FlowerOnly,FlowerOnly,DiedFast,DiedFast,DiedFast,FlowerOnly,FlowerOnly}
Out[]=
int1=Select[%%,WMFilter1[#]==="MaybeInteresting"&];
In[]:=
InteractiveListSelector[Labeled[HypergraphPlot[#FinalState],#Sizes]{#Rule,#Init,Length[#Sizes]}&/@int1]
In[]:=
Out[]=
WolframRuleTestW1[{{{{2,3}}{{4,3}},4}},50];
In[]:=
WMFilter1/@%
In[]:=
{BoringDifferences,DiedFast,BoringDifferences,BoringDifferences,MaybeInteresting,BoringDifferences,MaybeInteresting,BoringDifferences,MaybeInteresting,BoringDifferences,DiedFast,BoringDifferences,DiedFast,BoringDifferences,BoringDifferencesAfterTransient,MaybeInteresting,MaybeInteresting,BoringDifferencesAfterTransient,DiedFast,DiedFast,MaybeInteresting,BoringDifferences,FlowerOnly,FewEvents,DiedFast,MaybeInteresting,DiedFast,MaybeInteresting,FlowerOnly,DiedFast,MaybeInteresting,BoringDifferences}
Out[]=
int1=Select[%%,WMFilter1[#]==="MaybeInteresting"&];
In[]:=
int1=Select[%79,WMFilter1[#]==="MaybeInteresting"&];
In[]:=
MakePictures[%]
In[]:=
{},
Clear
Copy

Out[]=
int1[[1]]
In[]:=
Out[]=
InteractiveListSelector[Labeled[HypergraphPlot[#FinalState],#Sizes]{#Rule,#Init,Length[#Sizes]}&/@int1]
In[]:=
Out[]=
int1[[-1]]
In[]:=
Out[]=
Counts[{{0,1,0},{0,2,0},{0,3,0},{0,4,0},{0,5,0},{0,6,0},{0,7,0},{0,8,0},{0,9,0},{0,10,0},{0,11,0},{0,12,0},{0,13,0},{0,14,0},{0,15,0},{0,16,0},{0,17,0},{0,18,0},{0,19,0},{0,20,0},{0,21,0},{0,22,0},{0,23,0},{0,24,0},{0,25,0},{0,26,0},{0,27,0},{0,28,0},{0,29,0},{0,30,0},{0,31,0},{0,32,0},{0,33,0},{0,34,0},{0,35,0},{0,36,0},{0,37,0},{0,38,0},{0,39,0},{0,40,0},{0,41,0},{0,42,0},{0,43,0},{0,44,0},{0,45,0},{0,46,0},{0,47,0},{0,48,0},{0,49,0},{0,50,0},{0,51,0},{0,52,0},{0,53,0},{0,54,0},{0,55,0},{0,56,0},{0,57,0},{0,58,0},{0,59,0},{0,60,0},{0,61,0},{0,0,0},{0,0,0},{0,62,0},{0,0,0},{0,0,0},{0,0,0},{0,63,0},{0,0,0},{0,0,0},{0,0,0},{0,64,0},{0,0,0},{0,0,0},{0,0,0},{0,65,0},{0,0,0},{0,0,0},{0,0,0},{0,66,0},{0,0,0},{0,0,0},{0,0,0},{0,67,0},{0,0,0},{0,0,0},{0,0,0},{0,68,0},{0,0,0},{0,0,0},{0,0,0},{0,69,0},{0,0,0},{0,0,0},{0,0,0},{0,70,0},{0,0,0},{0,0,0},{0,0,0},{0,71,0},{0,0,0},{0,0,0},{0,0,0},{0,72,0},{0,0,0},{0,0,0},{0,0,0},{0,73,0},{0,0,0},{0,0,0},{0,0,0},{0,74,0},{0,0,0},{0,0,0},{0,0,0},{0,75,0},{0,0,0},{0,0,0},{0,0,0},{0,76,0},{0,0,0},{0,0,0},{0,0,0},{0,77,0},{0,0,0},{0,0,0},{0,0,0},{0,78,0},{0,0,0},{0,0,0},{0,0,0},{0,79,0},{0,0,0},{0,0,0},{0,0,0},{0,80,0},{0,0,0},{0,0,0},{0,0,0},{0,81,0},{0,0,0},{0,0,0},{0,0,0},{0,82,0},{0,0,0},{0,0,0},{0,0,0},{0,83,0},{0,0,0},{0,0,0},{0,0,0},{0,84,0},{0,0,0},{0,0,0},{0,0,0},{0,85,0},{0,0,0},{0,0,0},{0,0,0},{0,86,0},{0,0,0},{0,0,0},{0,0,0},{0,87,0},{0,0,0},{0,0,0},{0,0,0},{0,88,0},{0,0,0},{0,0,0},{0,0,0},{0,89,0},{0,0,0},{0,0,0},{0,0,0},{0,90,0},{0,0,0},{0,0,0},{0,0,0},{0,91,0},{0,0,0},{0,0,0},{0,0,0},{0,92,0},{0,0,0},{0,0,0}}]
In[]:=
Out[]=
Max[%]
In[]:=
94
Out[]=

Try 3

WolframRuleTestW1[{{{{2,3}}{{4,3}},4}},50];
In[]:=
WMFilter1/@%
In[]:=
{FlowerOnly,TooMuchOfAVertex,FlowerOnly,FlowerOnly,FewEvents,TooMuchOfAnEdge,TooMuchOfAVertex,TooMuchOfAVertex,DiedFast,TooMuchOfAnEdge,TooMuchOfAVertex,TooMuchOfAVertex,TooMuchOfAVertex,DiedFast,TooMuchOfAVertex,DiedFast,DiedFast,DiedFast,DiedFast,TooMuchOfAVertex,DiedFast,DiedFast,FlowerOnly,TooMuchOfAnEdge,TooMuchOfAnEdge,DiedFast,DiedFast,DiedFast,FlowerOnly,DiedFast,DiedFast,FlowerOnly,FlowerOnly,DiedFast,FlowerOnly,DiedFast}
Out[]=
ReverseSort[Counts[%]]
In[]:=
DiedFast15,TooMuchOfAVertex8,FlowerOnly8,TooMuchOfAnEdge4,FewEvents1
Out[]=
WolframRuleTestW1[{{{{2,3}}{{4,3}},4},{{{3,2}}{{1,3}},4}},50];
In[]:=
WMFilter1/@%
In[]:=
{TooMuchOfAVertex,DiedFast,DiedFast,TooMuchOfAVertex,DiedFast,DiedFast,DiedFast,TooMuchOfAVertex,DiedFast,DiedFast,DiedFast,TooMuchOfAVertex,TooMuchOfAVertex,TooMuchOfAVertex,TooMuchOfAVertex,FlowerOnly,DiedFast,TooMuchOfAVertex,DiedFast,TooMuchOfAVertex,DiedFast,FlowerOnly,FlowerOnly,FlowerOnly,TooMuchOfAVertex,BoringDifferences,FlowerOnly}
Out[]=
ReverseSort[Counts[%]]
In[]:=
DiedFast11,TooMuchOfAVertex10,FlowerOnly5,BoringDifferences1
Out[]=