In[]:=
LeafCount/@SKEvolveList[s[s][s][s[s]][s][s],1000];
In[]:=
ListLinePlot[%]
Out[]=
200
400
600
800
1000
10000
20000
30000
40000
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[]=
200
400
600
800
1000
5000
10000
15000
20000
25000
30000
35000
In[]:=
dd2000=LeafCount/@SKEvolveList[s[s][s][s[s]][s][s],2000];
In[]:=
ListLinePlot[%]
Out[]=
500
1000
1500
2000
20000
40000
60000
80000
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[]=
200
400
600
800
1000
2
4
6
8
10
12
14
In[]:=
ListLinePlot[Differences[dd2000],AspectRatio1/5]
Out[]=
0
500
1000
1500
2000
50
100
150
In[]:=
Histogram[Differences[dd2000],{1}]
Out[]=
0
50
100
150
0
50
100
150
200
250
300
In[]:=
ListLinePlot[MovingAverage[Differences[dd2000],10],AspectRatio1/5]
Out[]=
0
500
1000
1500
2000
50
100
150
In[]:=
ListLinePlot[MovingAverage[Differences[dd2000],20],AspectRatio1/5]
Out[]=
0
500
1000
1500
2000
20
40
60
80
100
120
In[]:=
dd5000=LeafCount/@SKEvolveList[s[s][s][s[s]][s][s],5000];
In[]:=
ListLinePlot[dd5000]
Out[]=
1000
2000
3000
4000
5000
50000
100000
150000
200000
250000
In[]:=
ListLinePlot[MovingAverage[Differences[dd5000],20],AspectRatio1/5]
Out[]=
0
1000
2000
3000
4000
5000
20
40
60
80
100
120
140
In[]:=
ListLinePlot[Differences[dd5000],AspectRatio1/5,PlotRangeAll]
Out[]=