In[]:=
alls=ParallelTable[Module[{ru,ca,lt,pcas,fitness},​​SeedRandom[7896778+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/10]];​​fitness=Min[Join[{lt},TestCALifeTime/@pcas]];​​If[fitness>=Last[#],{ru,fitness},#]​​]]&,{{0,4,1},0},2000]​​]//Last,{i,5000}];
KernelObject
:Timeout for epsilon.wolfram.com//usr/local/bin/wolfram 8. Received only 23 of 24 connections.
In[]:=
Select[%,#[[2]]>100&][[23]]
Out[]=
{{299459058088077823758143088095350287424,4,1},101}
In[]:=
Position[alls,%]
Out[]=
{{2845}}
In[]:=
PlotCA[{299459058088077823758143088095350287424,4,1},"Trim"->{1,5}]
Out[]=
In[]:=
RulePlot[CellularAutomaton[{299459058088077823758143088095350287424,4,1}]]
Out[]=
In[]:=
seq=Module[{ru,ca,lt,pcas,fitness},​​SeedRandom[7896778+2845];​​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/10]];​​fitness=Min[Join[{lt},TestCALifeTime/@pcas]];​​If[fitness>=Last[#],{ru,fitness},#]​​]]&,{{0,4,1},0},2000]​​];
In[]:=
seq
Out[]=
{{{0,4,1},0},{{633825300114114700748351602688,4,1},1},{{633825300114114700761236504576,4,1},1},{{633825300704410511119942156288,4,1},1},{{81763463715311092206908947300352,4,1},1},{{81763463715311092206908980854784,4,1},1},{{81763463715311092206908980854784,4,1},1},{{81763463720033458689778626068480,4,1},2},{{81763463720033458689779699810304,4,1},2},{{81763463720033458694177746321408,4,1},2},{{81763463720033458694315185274880,4,1},3},
⋯1979⋯
,{{299459058088077823758143088095350287424,4,1},101},{{299459058088077823758143088095350287424,4,1},101},{{299459058088077823758143088095350287424,4,1},101},{{299459058088077823758143088095350287424,4,1},101},{{299459058088077823758143088095350287424,4,1},101},{{299459058088077823758143088095350287424,4,1},101},{{299459058088077823758143088095350287424,4,1},101},{{299459058088077823758143088095350287424,4,1},101},{{299459058088077823758143088095350287424,4,1},101},{{299459058088077823758143088095350287424,4,1},101},{{299459058088077823758143088095350287424,4,1},101}}
Stored in notebook:
464.6 kB
Show more
|
Show all
|
Iconize
In[]:=
First/@SplitBy[%,Last]
Out[]=
{{{0,4,1},0},{{633825300114114700748351602688,4,1},1},{{81763463720033458689778626068480,4,1},2},{{81763463720033458694315185274880,4,1},3},{{81931838076027891908402867077120,4,1},4},{{25967407559121214387661469853159531584,4,1},5},{{25967732077674872814392756608807478336,4,1},6},{{27320406588562325247900243404649442368,4,1},7},{{107074019143647262706119627567490706496,4,1},9},{{128341667036591835415448371735208438848,4,1},12},{{128341667026688315101165329536015445056,4,1},14},{{44247419788783520337962930866412350528,4,1},15},{{44247419788783520337962930866680785984,4,1},37},{{44247257529506691124599539288670497856,4,1},38},{{44247262600109092037517145275483319360,4,1},40},{{44247262614964372508941708574272810048,4,1},49},{{44247282897373976160612132521524096064,4,1},60},{{214388466357843207892299436237408201792,4,1},68},{{214388466357843207892299436237408234560,4,1},84},{{299459058088077823758143088095350287424,4,1},101}}
In[]:=
PlotCA[First[#],"Trim"->{1,5}]&/@
244
Out[]=

,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,


Over Perturbed