WOLFRAM NOTEBOOK

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

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

Code

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[]=
2
4
6
8
10
50
100
150
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

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[]=
{},
Clear
Copy
In[]:=
int1[[1]]
Out[]=
In[]:=
InteractiveListSelector[Labeled[HypergraphPlot[#FinalState],#Sizes]{#Rule,#Init,Length[#Sizes]}&/@int1]
Out[]=

Try 3

Wolfram Cloud

You are using a browser not supported by the Wolfram Cloud

Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.


I understand and wish to continue anyway »

You are using a browser not supported by the Wolfram Cloud. Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.