Recovering Evolution Sequences

In[]:=
ParallelTable[Module[{ru,ca,lt,pcas,fitness},SeedRandom[7896778+i];​​Nest[CompoundExpression[ru=RandomRuleMutation[First[#]],ca=CellularAutomaton[ru,{{1},0},{200,All}];​​lt=TestCALifeTime[ca];​​If[lt==-Infinity,#,(*pcas=Table[PerturbCA[{ca,ru}],Ceiling[lt/20]];*)pcas=Table[PerturbedCellularAutomaton[ru,{{1},0},{200,{-200,200}},1,"ReturnPerturbations"->False],Ceiling[lt/10]];​​fitness=Min[Join[{lt},TestCALifeTime/@pcas]];​​If[fitness>=Last[#],{ru,fitness},#]]]&,{{0,4,1},0},2000]],{i,5000}];
KernelObject
:Timeout for macpro-basement.wolfram.com//usr/local/bin/wolfram 8. Received only 11 of 20 connections.
LinkObject
:Unable to communicate with closed link LinkObject[ParentLink,6376,95].
LinkObject
:Argument LinkObject[ParentLink,6376,95] in LinkRead[LinkObject[ParentLink,6376,95],Hold] has an invalid LinkObject number; the link may be closed.
Parallel`Developer`ConnectKernel
::failinit
:1 of 195 kernels failed to initialize.
​
In[]:=
Select[%,#[[2]]>100&]
Out[]=
In[]:=
Select[%119,#[[2]]>100&->"Index"]
Out[]=
{17,29,240,264,352,417,444,885,1123,1214,1537,1666,1679,1726,2423,2445,2505,2525,2529,2578,2737,2774,2845,3212,3497,3624,3800,3830,3925,4038,4060,4143,4668,4714,4838,4896,4906}

THIS FOR ALL:

In[]:=
Select[%119,#[[2]]>100&->{"Index","Element"}]
Out[]=
In[]:=
NotebookSave[]
In[]:=
Now
Out[]=
Thu 23 Jan 2025 02:57:57GMT-5
In[]:=
ParallelTable[Module[{ru,ca,lt,pcas,fitness},SeedRandom[7726778+i];​​Nest[CompoundExpression[ru=RandomRuleMutation[First[#]],ca=CellularAutomaton[ru,{{1},0},{200,All}];​​lt=TestCALifeTime[ca];​​If[lt==-Infinity,#,(*pcas=Table[PerturbCA[{ca,ru}],Ceiling[lt/20]];*)pcas=Table[PerturbedCellularAutomaton[ru,{{1},0},{200,{-200,200}},1,"ReturnPerturbations"->False],Ceiling[lt/10]];​​fitness=Min[Join[{lt},TestCALifeTime/@pcas]];​​If[fitness>=Last[#],{ru,fitness},#]]]&,{{0,4,1},0},2000]],{i,5000}];
In[]:=
Select[%,#[[2]]>100&]
Out[]=
In[]:=
Select
,#[[2]]>100&->{"Index","Element"}
Out[]=
In[]:=
NotebookSave[]
In[]:=
Now
Out[]=
Thu 23 Jan 2025 03:05:04GMT-5
In[]:=
ParallelTable[Module[{ru,ca,lt,pcas,fitness},SeedRandom[9896778+i];​​Nest[CompoundExpression[ru=RandomRuleMutation[First[#]],ca=CellularAutomaton[ru,{{1},0},{200,All}];​​lt=TestCALifeTime[ca];​​If[lt==-Infinity,#,(*pcas=Table[PerturbCA[{ca,ru}],Ceiling[lt/20]];*)pcas=Table[PerturbedCellularAutomaton[ru,{{1},0},{200,{-200,200}},1,"ReturnPerturbations"->False],Ceiling[lt/10]];​​fitness=Min[Join[{lt},TestCALifeTime/@pcas]];​​If[fitness>=Last[#],{ru,fitness},#]]]&,{{0,4,1},0},2000]],{i,10000}];
In[]:=
Select[%,#[[2]]>100&]
Out[]=
In[]:=
Select
,#[[2]]>100&->{"Index","Element"}
Out[]=
In[]:=
NotebookSave[]
In[]:=
Now
Out[]=
Thu 23 Jan 2025 03:16:52GMT-5

Treatment from Symptoms

In[]:=
awh=Module[{ru={299459058088077823758143088095350287424,4,1},init={{1},0},txspec={200,{-110,110}},aps,pca,ca},(If[#=={},0,#[[2]]-#[[1]]+1]&[nonzeroRange[#]]&/@PerturbedCellularAutomaton[ru,init,txspec,#,"ReturnPerturbations"->False]&/@allperts[ru,init,txspec])];
In[]:=
awh
Out[]=
In[]:=
awh[[3]]
Out[]=
In[]:=
rh=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"]&,Select[allperts[ru,init,txspec],Keys[#][[1,1]]<=50&]]];

Width History Prognosis

Clustering Trees

Genetic Diversity

For a single perturbation, what is variation of lifetimes...

Unrobust case