In[]:=
Take
,10
Out[]=
{{{81.0088,121.829},{79,127}},{{33.2039,113.213},{33,114}},{{73.764,120.658},{77,128}},{{43.697,118.351},{50,115}},{{72.9421,122.223},{68,126}},{{81.8953,122.28},{85,115}},{{52.7127,116.093},{55,115}},{{93.3488,108.957},{99,109}},{{86.9595,120.89},{85,110}},{{69.4722,121.797},{61,122}}}
PlotCA[]
SeedRandom[444666];
SeedRandom[24234];
In[]:=
SeedRandom[24234];RandomSample[Module[​​{ru={299459058088077823758143088095350287424,4,1},​​init={{1},0},txspec={200,{-110,110}},aps,pca,ca},allperts[CellularAutomaton[ru,init,txspec]]],2000];
In[]:=
Take[%,5]
Out[]=
{{11,109}1,{68,125}0,{41,112}2,{78,125}3,{46,121}2}

ML

In[]:=
rhmr=Module[​​{ru={299459058088077823758143088095350287424,4,1},​​init={{1},0},txspec={200,{-110,110}},aps,pca,ca},​​SeedRandom[444666];​​ParallelMap[#->HealCA[ru,init,txspec,#,1,#==101&,"Order"->"Random"]&,allperts[CellularAutomaton[ru,init,txspec]]]];
LinkObject
:Unable to communicate with closed link LinkObject[ParentLink,11869,121].
LinkObject
:Argument LinkObject[ParentLink,11869,121] in LinkRead[LinkObject[ParentLink,11869,121],Hold] has an invalid LinkObject number; the link may be closed.
Parallel`Developer`ConnectKernel
::failinit
:1 of 204 kernels failed to initialize.
​
In[]:=
alltrainr=With[{ru={299459058088077823758143088095350287424,4,1},​​init={{1},0},txspec={200,{-110,110}}},(If[#=={},0,#[[2]]-#[[1]]+1]&[nonzeroRange[#]]&/@First[PerturbedCellularAutomaton[ru,init,{Keys[First[#]][[1,1]],{-110,110}}]])->If[Last[#]==={},{},Keys[Last[#][[1]]][[1]]]]&/@rhmr
In[]:=
alltrainr=With[{ru={299459058088077823758143088095350287424,4,1},​​init={{1},0},txspec={200,{-110,110}}},(If[#=={},0,#[[2]]-#[[1]]+1]&[nonzeroRange[#]]&/@First[PerturbedCellularAutomaton[ru,init,{Keys[First[#]][[1,1]],{-110,110}}]])->If[Last[#]==={},{},First@Last[#]]]&/@rhmr
Out[]=
{{1}{},{0}{},{1}{52,122}0,{1,0}{},
⋯4376⋯
,{1,1,3,2,3,4,3,4,4,4,6,7,8,9,10,9,9,10,11,10,8,9,9,11,12,12,13,11,8,9,8,8,9,10,10,11,13,13,14,15,14,15,9,9,10,12,12,14,15,15,14,15,16,18,18,20,21,21,20,20,19,20,21,22,22,23,24,24,25,26,26,27,28,27,26,25,24,23,23,24,25,25,26,27,27,28,29,29,30,31,30,31,30,30,31,32,32,33,34,34,35}{},{1,1,3,2,3,4,3,4,4,4,6,7,8,9,10,9,9,10,11,10,8,9,9,11,12,12,13,11,8,9,8,8,9,10,10,11,13,13,14,15,14,15,9,9,10,12,12,13,14,13,12,12,13,14,13,14,13,14,15,14,15,14,9,8,7,6,5,4,3,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}{101,108}0,{1,1,3,2,3,4,3,4,4,4,6,7,8,9,10,9,9,10,11,10,8,9,9,11,12,12,13,11,8,9,8,8,9,10,10,11,13,13,14,15,14,15,9,9,10,12,12,14,15,15,14,15,16,18,18,20,21,21,20,20,19,18,18,20,21,22,23,24,23,22,21,20,19,19,20,21,21,22,23,23,24,25,25,26,27,26,25,24,23,24,23,22,23,22,23,23,24,25,24,23,23}{}}
Full expression not available
(
original memory size:
8.2 MB)
In[]:=
alltrain2r=Discard[alltrainr,Last[#]==={}&];
In[]:=
Iconize[%]
Out[]=
In[]:=
Length[%246]
Out[]=
4383
Original perturbations
In[]:=
perts=Module[​​{ru={299459058088077823758143088095350287424,4,1},​​init={{1},0},txspec={200,{-110,110}}},allperts[CellularAutomaton[ru,init,txspec]]][[Discard[alltrainr,Last[#]==={}&->"Index"]]];
In[]:=
casemap=
;
In[]:=
pertlist=perts[[casemap[[2]]]];

From Biomedicine-24.nb

In[]:=
predslist=
;
In[]:=
pertlist[[5]]
Out[]=
{66,107}3
In[]:=
Table[With[{ru={299459058088077823758143088095350287424,4,1},​​init={{1},0},txspec={200,{-110,110}}},PlotCA[PerturbedCellularAutomaton[ru,init,txspec,Join[pertlist[[i]],Association[Take[#,2]->Last[#]]]&[Round[#]]]]&/@predslist[[i]]],{i,5}]
Out[]=

,
,
,
,
,
,
,
,
,

In[]:=
GraphicsRow[Table[With[{ru={299459058088077823758143088095350287424,4,1},​​init={{1},0},txspec={200,{-110,110}}},GraphicsRow[ReplacePart[PlotCA[PerturbedCellularAutomaton[ru,init,txspec,Join[pertlist[[i]],Association[Take[#,2]->Last[#]]]&[Round[#]]]]&/@Reverse[predslist[[i]]],{{2,2,2,2,2,1}->Haloing[Lighter[Red,.8],2],{2,2,2,2,2,2}->Red}],Spacings->0]],{i,6}],Spacings->20]
Out[]=
In[]:=
ResourceFunction["InteractiveListSelector"][Table[With[{ru={299459058088077823758143088095350287424,4,1},​​init={{1},0},txspec={200,{-110,110}}},GraphicsRow[ReplacePart[PlotCA[PerturbedCellularAutomaton[ru,init,txspec,Join[pertlist[[i]],Association[Take[#,2]->Last[#]]]&[Round[#]]]]&/@Reverse[predslist[[i]]],{{2,2,2,2,2,1}->Haloing[Lighter[Red,.8],2],{2,2,2,2,2,2}->Red}],Spacings->0]]->i,{i,RandomSample[Range[2018],20]}]]
Out[]=

Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add
,
Add

Clear
Copy
Out[]//InputForm=
Haloing[RGBColor[0.85, 1., 1.], 2]