LeafCount/@SKEvolveList[s[s][s][s[s]][s][s],1000];
In[]:=
ListLinePlot[%]
In[]:=
Out[]=
FindFit[Transpose[{Range[Length@%85],%85}],a+bx,{a,b},x]
In[]:=
{a-2903.8,b40.5306}
Out[]=
FindFit[Transpose[{Range[Length@%85],%85}],bx,{b},x]
In[]:=
{b36.1814}
Out[]=
Show[Plot[36x,{x,0,1000}],%86]
In[]:=
Out[]=
dd2000=LeafCount/@SKEvolveList[s[s][s][s[s]][s][s],2000];
In[]:=
ListLinePlot[%]
In[]:=
Out[]=
FindFit[Transpose[{Range[Length@dd2000],dd2000}],a+bx+cx^2,{a,b,c},x]
In[]:=
{a-1510.34,b32.6861,c0.00742859}
Out[]=
ListLinePlot[Depth/@SKEvolveList[s[s][s][s[s]][s][s],1000]]
In[]:=
Out[]=
ListLinePlot[Differences[dd2000],AspectRatio1/5]
In[]:=
Out[]=
Histogram[Differences[dd2000],{1}]
In[]:=
Out[]=
ListLinePlot[MovingAverage[Differences[dd2000],10],AspectRatio1/5]
In[]:=
Out[]=
ListLinePlot[MovingAverage[Differences[dd2000],20],AspectRatio1/5]
In[]:=
Out[]=
dd5000=LeafCount/@SKEvolveList[s[s][s][s[s]][s][s],5000];
In[]:=
ListLinePlot[dd5000]
In[]:=
Out[]=
ListLinePlot[MovingAverage[Differences[dd5000],20],AspectRatio1/5]
In[]:=
Out[]=
ListLinePlot[Differences[dd5000],AspectRatio1/5,PlotRangeAll]
In[]:=
Out[]=
Length[First[Sort[SKMatches[#]]]]&/@SKEvolveList[s[s][s][s[s]][s][s],1000]
In[]:=
Out[]=
A terminating example:
Multiway
Multiway