1,23,2
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+,-1+2n,-1+,-1+2n,FindSequenceFunction[{1},n],-1+2n,,}
-1+n
3
n
2
n
2
-1+n
3
-1+n
3
1,24,2
1,24,2
Feature Space Plots
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
Growth Rates
1,25,2
1,25,2
1,32,3
1,32,3