In[]:=
Grid[Table[{RuleSignatureForm[{{i,2}}{{j,2}}],Length[Union[EnumerateWolframModelRules[{{i,2}}{{j,2}},2]]]},{j,4},{i,4}],FrameAll]
Out[]=
In[]:=
Grid[Monitor[Table[{RuleSignatureForm[{{i,3}}{{j,3}}],Length[Union[EnumerateWolframModelRules[{{i,3}}{{j,3}},2]]]},{j,4},{i,4}],{i,j}],FrameAll]
Out[]=
Systematic Testing
Systematic Testing
[[[ NOTE: code moved to SWInit-02.nb ]]]
Code
Code
Try 1
Try 1
In[]:=
int1=Select[%34,WMFilter1[#]==="MaybeInteresting"&];
In[]:=
#Sizes&/@int1
Out[]=
{{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}}
In[]:=
int1[[1]]
Out[]=
In[]:=
InteractiveListSelector[Labeled[HypergraphPlot[#FinalState],#Sizes]{#Rule,#Init,Length[#Sizes]}&/@int1]
Out[]=
In[]:=
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]
Out[]=
In[]:=
%63["EventsCount"]
Out[]=
19
In[]:=
ListPlot[{2,4,8,14,22,34,50,70,98,130,174}]
Out[]=
In[]:=
Differences[{2,4,8,14,22,34,50,70,98,130,174}]
Out[]=
{2,4,6,8,12,16,20,28,32,44}
In[]:=
Differences[%]
Out[]=
{2,2,2,4,4,4,8,4,12}
Try 2
Try 2
In[]:=
WolframRuleTestW1[{{{{2,3}}{{4,3}},4}},20]
Out[]=
In[]:=
WMFilter1/@%
Out[]=
{FlowerOnly,BoringDifferences,DiedFast,FlowerOnly,DiedFast,FlowerOnly,MaybeInteresting,BoringDifferences,BoringDifferences,DiedFast,FlowerOnly,FlowerOnly,FlowerOnly,FlowerOnly,DiedFast,DiedFast,DiedFast,FlowerOnly,FlowerOnly}
In[]:=
int1=Select[%%,WMFilter1[#]==="MaybeInteresting"&];
In[]:=
InteractiveListSelector[Labeled[HypergraphPlot[#FinalState],#Sizes]{#Rule,#Init,Length[#Sizes]}&/@int1]
Out[]=
In[]:=
WolframRuleTestW1[{{{{2,3}}{{4,3}},4}},50];
In[]:=
WMFilter1/@%
Out[]=
{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}
In[]:=
int1=Select[%%,WMFilter1[#]==="MaybeInteresting"&];
In[]:=
int1=Select[%79,WMFilter1[#]==="MaybeInteresting"&];
In[]:=
MakePictures[%]
Out[]=
{},
In[]:=
int1[[1]]
Out[]=
Try 3
Try 3