In[]:=
<<CombinatorEvolve`
In[]:=
all8=Import["/Users/sw/Dropbox/Physics/Data/Combinators/S-NT1e4-8.wxf"];
In[]:=
ResourceFunction["InteractiveListSelector"][Monitor[Table[ListLinePlot[Differences[SKCombinatorLeftmostOutermostLeafCounts[#,1000]],PlotRangeAll]#&@all8[[i]],{i,Length[all8]}],i]]
Out[]=

Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
0
200
400
600
800
1000
0
50
100
150
200
Add
,
0
200
400
600
800
1000
0
10
20
30
40
50
60
70
Add
,
0
200
400
600
800
1000
0
50
100
150
200
Add
,
0
200
400
600
800
1000
0
50
100
150
Add
,
0
200
400
600
800
1000
0
50
100
150
200
250
Add
,
0
200
400
600
800
1000
0
50
100
150
200
250
300
350
Add

Clear
Copy
In[]:=
ResourceFunction["InteractiveListSelector"][ListStepPlot[Differences[SKCombinatorLeftmostOutermostLeafCounts[#,10000]],ImageSize500,PlotRangeAll]#&/@{s[s[s[s][s]]][s][s][s],s[s[s]][s][s[s]][s][s],s[s[s][s]][s][s[s]][s]}]
Out[]=

2000
4000
6000
8000
10000
-1.5e+19
-1.0e+19
-5.0e+18
Add
,
2000
4000
6000
8000
10000
-2.0e+19
-1.5e+19
-1.0e+19
-5.0e+18
5.0e+18
1.0e+19
1.5e+19
Add
,
2000
4000
6000
8000
10000
-1.5e+19
-1.0e+19
-5.0e+18
Add

Clear
Copy
In[]:=
ResourceFunction["InteractiveListSelector"][ListStepPlot[Differences[SKCombinatorLeftmostOutermostLeafCounts[#,2000]],ImageSize500,PlotRangeAll]#&/@{s[s[s[s][s]]][s][s][s],s[s[s]][s][s[s]][s][s],s[s[s][s]][s][s[s]][s]}]
Out[]=

500
1000
1500
2000
2.0e+6
4.0e+6
6.0e+6
8.0e+6
1.0e+7
1.2e+7
1.4e+7
Add
,
500
1000
1500
2000
2.0e+9
4.0e+9
6.0e+9
8.0e+9
1.0e+10
1.2e+10
1.4e+10
Add
,
500
1000
1500
2000
2.0e+6
4.0e+6
6.0e+6
8.0e+6
1.0e+7
1.2e+7
1.4e+7
Add

Clear
Copy
In[]:=
ResourceFunction["InteractiveListSelector"][ListStepPlot[Differences[SKCombinatorLeftmostOutermostLeafCounts[#,2000]],ImageSize500,PlotRangeAll,ScalingFunctions"Log"]#&/@{s[s[s[s][s]]][s][s][s],s[s[s]][s][s[s]][s][s]}]

Size 11