WOLFRAM NOTEBOOK

1,23,2

In[]:=
rules=Import["/Users/sw/Dropbox/Physics/Data/RuleEnumerations-max/12-32c.wxf"];
In[]:=
sres=ParallelMapMonitored[{#,WolframModelTest[#,{{0,0}},3]["Sizes"]}&,rules];
In[]:=
First/@GroupBy[sres,Last]
Out[]=
In[]:=
FindLinearRecurrence/@Keys[%]
Out[]=
{{3},{3,-2},{2,-1},{3,-2},{2,-1},{1},{2,-1},{3},{3}}
In[]:=
FindSequenceFunction[#,n]&/@Keys[%%]
Out[]=
{
-1+n
3
,-1+
n
2
,-1+2n,-1+
n
2
,-1+2n,FindSequenceFunction[{1},n],-1+2n,
-1+n
3
,
-1+n
3
}

1,24,2

Feature Space Plots

In[]:=
rules=Import["/Users/sw/Dropbox/Physics/Data/RuleEnumerations/12-42c.wxf"];
In[]:=
Length[rules]
Out[]=
653
In[]:=
res=ParallelMapMonitored[Graph[Rule@@@WolframModel[#,{{0,0}},4,"FinalState"],GraphLayout"SpringElectricalEmbedding"]&,rules];
In[]:=
res2=Select[res,ConnectedGraphQ[UndirectedGraph[#]]&];
In[]:=
Length[res2]
Out[]=
551
In[]:=
ires=ParallelMapMonitored[Rasterize[GraphPlot[#,EdgeStyleThick]]&,res2];
In[]:=
FeatureSpacePlot[ires]
Out[]=
In[]:=
FeatureSpacePlot[ires,LabelingFunction(#1&),LabelingSize30]
Out[]=
In[]:=
FeatureSpacePlot[ires,LabelingFunction(#1&),LabelingSize50]
Out[]=

Growth Rates

1,25,2

1,32,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.