1
1
,
,,,,,
ListLinePlot[LeafCount/@CombinatorFixedPointList[s[s[s][s][s[s]][s][s]],"MaxSize"200000,"MaxSteps"1000]]
In[]:=
ListLinePlot[Differences[LeafCount/@CombinatorFixedPointList[s[s[s][s][s[s]][s][s]],"MaxSize"5000,"MaxSteps"1000]],PlotRangeAll]
Out[]=
2
2
,
,,,,,
ListLinePlot[LeafCount/@CombinatorFixedPointList[s[s[s[s][s]]][s][s[s]],"MaxSize"200000,"MaxSteps"1000]]
3
3
,
,,,,,
ListLinePlot[LeafCount/@CombinatorFixedPointList[s[s[s][s]][s][s[s[s]]],"MaxSize"200000,"MaxSteps"1000]]
4
4
,
,,,,,
ListLinePlot[LeafCount/@CombinatorFixedPointList[s[s[s][s]][s][s[s][s]],"MaxSize"200000,"MaxSteps"1000]]
5
5
,
,,,,,
In[]:=
ListLinePlot[LeafCount/@CombinatorFixedPointList[s[s[s[s]][s]][s][s[s]],"MaxSize"5000,"MaxSteps"1000]]
Out[]=
In[]:=
ListLinePlot[LeafCount/@CombinatorFixedPointList[s[s[s[s]][s]][s][s[s]],"MaxSize"10000,"MaxSteps"1000],ScalingFunctions{"Log","Log"}]
Out[]=
In[]:=
ListStepPlot[Differences[LeafCount/@CombinatorFixedPointList[s[s[s[s]][s]][s][s[s]],"MaxSize"25000,"MaxSteps"1000]]]
Out[]=
6
6
7
7
8
8
9
9
10
10
11
11
12
12
13
13
14
14
15
15
16
16
17
17
18
18
19
19
20
20
21
21
22
22
23
23
This is like
24
24
25
25
26
26
27
27
28
28
29
29
30
30
31
31
32 [halts]
32 [halts]
33
33
34
34
35 [repetitive]
35 [repetitive]
36 [halts]
36 [halts]
37 [halts]
37 [halts]
38
38
39
39
40
40
41
41
42
42
43
43
44 [? irregular]
44 [? irregular]
45 [halts]
45 [halts]
46 [quite regular]
46 [quite regular]
All together
All together