New AdaptCA function for larger search

With support for perturbation specifications
In[]:=
SeedRandom[333768];​​evo=AdaptCA[{0,4,1},500,"ReturnCAs"->True,"Perturbation"->True,"NPerturbations"->2,"ReturnPerturbations"->True];
And support for drawing arrows
In[]:=
GraphicsGrid[Partition[GraphicsRow[#]&/@(PlotCA[#(*,"Trim"->{1,10}*)]&/@#[[1,"cas"]]&/@GatherBy[evo,#fitness&]),5],ImageSize->1000]
Out[]=

TODO: Magnification

Larger Search

In[]:=
ParallelTable[SeedRandom[3337+i];​​Last[AdaptCA[{0,4,1},500,"ReturnCAs"->True,"Perturbation"->True,"NPerturbations"->2,"ReturnPerturbations"->True]],{i,200}]
KernelObject
:Timeout for lambda.wolfram.com//usr/local/bin/wolfram 6. Received only 19 of 20 connections.
LinkObject
:Unable to communicate with closed link LinkObject[ParentLink,146112,107].
LinkObject
:Argument LinkObject[ParentLink,146112,107] in LinkRead[LinkObject[ParentLink,146112,107],Hold] has an invalid LinkObject number; the link may be closed.
Parallel`Developer`ConnectKernel
::failinit
:1 of 223 kernels failed to initialize.
​
TerminatedEvaluation[RecursionLimit]
Out[]=
TerminatedEvaluation[RecursionLimit]
ParallelTable[SeedRandom[3337+i];​​Last[AdaptCA[{0,4,1},2000,"Perturbation"->True,"NPerturbations"->2,"ReturnPerturbations"->True]],{i,200}]
TerminatedEvaluation[RecursionLimit]
Out[]=
TerminatedEvaluation[RecursionLimit]
In[]:=
Last[AdaptCA[{0,4,1},500,"ReturnCAs"->True,"Perturbation"->True,"NPerturbations"->2,"ReturnPerturbations"->True]]
Out[]=
rule{309337821990556504329036877565605182728,4,1},fitness13,cas{{{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,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,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,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,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,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,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,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,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,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,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,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,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,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0},
⋯200⋯
},{{
⋯1⋯
},{rowidx9,colidxs{200},values{2}}},{{
⋯1⋯
},{rowidx12,colidxs{197},values{2}}}}
Full expression not available
(
original memory size:
1.9 MB)
In[]:=
Last[AdaptCA[{0,4,1},2000,"Perturbation"->True,"NPerturbations"->2,"ReturnPerturbations"->True]]
Out[]=
rule{228228359156133070728403114292030268480,4,1},fitness1
In[]:=
ParallelTable[SeedRandom[3337+i];​​Last[AdaptCA[{0,4,1},2000,"Perturbation"->True,"NPerturbations"->2,"ReturnPerturbations"->True]],{i,200}]
TerminatedEvaluation[RecursionLimit]
Out[]=
TerminatedEvaluation[RecursionLimit]
In[]:=
Last[AdaptCA[{0,4,1},2000,"Perturbation"->True,"NPerturbations"->2,"ReturnPerturbations"->True]]
Out[]=
rule{119044614412558383560396241529614488076,4,1},fitness68
In[]:=
PlotCA
["rule"]
»
False
Out[]=
Local
Go to the following URL in your browser:
Local
https://account.wolfram.com/auth/confirm-access?oauth_token=6bb899c0-85b8-4951-b37f-b927953b63a7&appType=terminal&language=en
Local
​
Sign in to your account, then enter the verification code from your browser\

> below:

Genetic Diseases