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[]:=
LaunchKernels["Local"];
Ideal AWS search code for finding quality CAs:
Ideal AWS search code for finding quality CAs:
In[]:=
promisingevoobjects=Select[ParallelTable[SeedRandom[121100+i];AdaptCA[{0,4,1},300][[-1]],{i,2}],#fitness>=10&];
In[]:=
promisingevoobjects
Out[]=
{rule{327857668968522441878400571376710514956,4,1},fitness12}
In[]:=
evos=ParallelTable[SeedRandom[121100+i];AdaptCA[Append[promisingevoobjects[[i]],"cas"->{}],500,"PerturbationFunction"->(PerturbCA[#,RandomInteger[{10,40}]->1]&),"NPerturbations"->5],{i,Length[promisingevoobjects]}];
In[]:=
GraphicsRow[PlotCA[#[[1,"rule"]]]&/@GatherBy[#,#fitness&]]&/@evos
Out[]=
In[]:=
promisingevoobjects=Select[ParallelTable[SeedRandom[121100+i];AdaptCA[{0,4,1},300][[-1]],{i,100}],#fitness>=10&];
In[]:=
evos=ParallelTable[SeedRandom[121100+i];AdaptCA[promisingevoobjects[[i]],500,"PerturbationFunction"->(PerturbCA[#,RandomInteger[{10,40}]->1]&),"NPerturbations"->5],{i,Length[promisingevoobjects]}];
In[]:=
GraphicsRow[PlotCA[#[[1,"rule"]]]&/@GatherBy[#,#fitness&]]&/@evos
Out[]=
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,