In[]:=
{ru, init, txspec} = {{299459058088077823758143088095350287424,4,1}, {{1}, 0},{200, {-110, 110}}};

Width history prediction

Getting training data


Training


Testing


TCAAASTWA

In[]:=
With[{aps=Select[allperts[ru,init,txspec],30<Keys[#][[1,1]]<60&],res=p/@alltrain[[All,1]]},KeyValueMap[Labeled[Show@@{ListStepPlot[#1,PlotHighlighting->None],​​Graphics[​​Join[{Green},​​Line[{{Keys[First[rh[[#]]]][[1,1]],0},{Keys[First[rh[[#]]]][[1,1]],30}}]&/@#2,​​{Red},​​Line[{{res[[#]],0},{res[[#]],30}}]&/@#2]​​]},Text[Length[#2]]]&,​​ReverseSortBy[GroupBy[ti,(If[#=={},0,#[[2]]-#[[1]]+1]&[nonzeroRange[#]]&/@PerturbedCellularAutomaton[ru,init,txspec,aps[[#]],"ReturnPerturbations"->False]&)],Length]][[;;20]]]
Out[]=

50
100
150
200
5
10
15
20
25
9
,
50
100
150
200
5
10
15
20
2
,
50
100
150
200
5
10
15
20
25
2
,
50
100
150
200
5
10
15
20
25
2
,
50
100
150
200
5
10
15
20
25
30
2
,
50
100
150
200
5
10
15
20
25
30
2
,
50
100
150
200
5
10
15
20
25
2
,
50
100
150
200
5
10
15
20
25
2
,
50
100
150
200
5
10
15
20
25
30
2
,
50
100
150
200
5
10
15
20
25
2
,
50
100
150
200
5
10
15
20
25
2
,
50
100
150
200
5
10
15
2
,
50
100
150
200
10
20
30
40
50
2
,
50
100
150
200
5
10
15
1
,
50
100
150
200
5
10
15
20
25
1
,
50
100
150
200
5
10
15
1
,
50
100
150
200
5
10
15
20
25
30
35
1
,
50
100
150
200
5
10
15
20
25
1
,
50
100
150
200
5
10
15
20
1
,
50
100
150
200
5
10
15
20
1


Evolution history for main rule