You are using a browser not supported by the Wolfram Cloud
Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.
I understand and wish to continue anyway »
WOLFRAM NOTEBOOK
In[]:=
randomrulemutation=;
In[]:=
ParallelTable[Module[{ru,ca,lt,pcas,fitness},SeedRandom[826778+i];NestList[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[PerturbCA[{ca,ru},"Random"->1],Ceiling[lt/20]];fitness=Min[Join[{lt},TestCALifeTime/@pcas]];If[fitness>=Last[#],{ru,fitness},#]]]&,{{0,4,1},0},2000]]//Last,{i,200}]
Out[]=
In[]:=
ResourceFunction["InteractiveListSelector"]PlotCA[First[#],"steps"->140,"init"->{{1},0}]->First[#]&/@Select,#[[2]]>100&
Out[]=
{{129394083852257874070100539595535549840,4,1},{144729370602329288854627065187434439480,4,1},{109151113611824779467688877590036116024,4,1},{319179722551268932850712554882090884748,4,1}}
In[]:=
PlotCA[#]->GraphicsRow[Table[PlotCA@PerturbCA[{getca[#,300],#},"NRandom"->1],10]]&/@{{129394083852257874070100539595535549840,4,1},{144729370602329288854627065187434439480,4,1},{109151113611824779467688877590036116024,4,1},{319179722551268932850712554882090884748,4,1}}
Out[]=
,
,
,