In[]:=
LeafCount/@SKEvolveList[s[s][s][s[s]][s][s],1000];
In[]:=
ListLinePlot[%]
Out[]=
In[]:=
FindFit[Transpose[{Range[Length@%85],%85}],a+bx,{a,b},x]
Out[]=
{a-2903.8,b40.5306}
In[]:=
FindFit[Transpose[{Range[Length@%85],%85}],bx,{b},x]
Out[]=
{b36.1814}
In[]:=
Show[Plot[36x,{x,0,1000}],%86]
Out[]=
In[]:=
dd2000=LeafCount/@SKEvolveList[s[s][s][s[s]][s][s],2000];
In[]:=
ListLinePlot[%]
Out[]=
Contents cannot be rendered at this time; please try again later
In[]:=
FindFit[Transpose[{Range[Length@dd2000],dd2000}],a+bx+cx^2,{a,b,c},x]
Out[]=
{a-1510.34,b32.6861,c0.00742859}
In[]:=
ListLinePlot[Depth/@SKEvolveList[s[s][s][s[s]][s][s],1000]]
Out[]=
In[]:=
ListLinePlot[Differences[dd2000],AspectRatio1/5]
Out[]=
Contents cannot be rendered at this time; please try again later
In[]:=
Histogram[Differences[dd2000],{1}]
Out[]=
In[]:=
ListLinePlot[MovingAverage[Differences[dd2000],10],AspectRatio1/5]
Out[]=
Contents cannot be rendered at this time; please try again later
In[]:=
ListLinePlot[MovingAverage[Differences[dd2000],20],AspectRatio1/5]
Out[]=
Contents cannot be rendered at this time; please try again later
In[]:=
dd5000=LeafCount/@SKEvolveList[s[s][s][s[s]][s][s],5000];
In[]:=
ListLinePlot[dd5000]
Out[]=
Contents cannot be rendered at this time; please try again later
In[]:=
ListLinePlot[MovingAverage[Differences[dd5000],20],AspectRatio1/5]
Out[]=
Contents cannot be rendered at this time; please try again later
In[]:=
ListLinePlot[Differences[dd5000],AspectRatio1/5,PlotRangeAll]
Out[]=
In[]:=
Length[First[Sort[SKMatches[#]]]]&/@SKEvolveList[s[s][s][s[s]][s][s],1000]
Out[]=
In[]:=
ListLinePlot[%]
Out[]=
Contents cannot be rendered at this time; please try again later
In[]:=
Length[First[Sort[SKMatches[#]]]]&/@SKEvolveList[s[s][s][s[s]][s][s],2000];
In[]:=
ListLinePlot[%]
Out[]=
In[]:=
ListLinePlot[FoldList[Max,%122]]
Out[]=
In[]:=
With[{q=FoldList[Max,%122]},Table[FirstPosition[q,i],{i,13}]]
Out[]=
{Missing[NotFound],{1},{17},{18},{23},{39},{58},{107},{188},{361},{673},{1189},Missing[NotFound]}
In[]:=
Take[%,{2,-2}]//Flatten
Out[]=
{1,17,18,23,39,58,107,188,361,673,1189}
In[]:=
ListLinePlot[%]
Out[]=
In[]:=
FindSequenceFunction[%%,n]
Out[]=
FindSequenceFunction[{1,17,18,23,39,58,107,188,361,673,1189},n]
In[]:=
Differences[%%%]
Out[]=
{16,1,5,16,19,49,81,173,312,516}
In[]:=
Ratios[%126]//N
Out[]=
{17.,1.05882,1.27778,1.69565,1.48718,1.84483,1.75701,1.92021,1.86427,1.76672}
In[]:=
ListLinePlot[%]
A terminating example:

Multiway