In[]:=
SeedRandom[42342];NestList[First[MinimalBy[Append[Table[CARuleMutation[#],5],#],DeathLossFunction[#,200]&]]&,{0,3,1},100];
In[]:=
ListLinePlot[DeathLossFunction[#,200]&/@%]
Out[]=
In[]:=
SeedRandom[42342];NestList[First[MinimalBy[Append[Table[CARuleMutation[#],5],#],DeathLossFunction[#,200]&]]&,{0,4,1},100];
In[]:=
ListLinePlot[DeathLossFunction[#,200]&/@%]
Out[]=
In[]:=
capix[#,100]&/@(First/@Split[%53])
Out[]=
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
In[]:=
First/@(First/@SplitBy[{#,DeathLossFunction[#,200]}&/@%53,Last])
Out[]=
{{0,4,1},{13958643712,4,1},{1059243771219110559140866144667209984,4,1},{1059243771219110559141006882424000816,4,1},{1313666317296988228959982749029012016,4,1},{829484635626076287009374722396821040,4,1},{64632428433302038186392113667392968240,4,1},{234846307852741953726657241507408680496,4,1},{234845009798489103139391807760792589872,4,1},{234843935147692759657916685906993255984,4,1},{149773340882156943482611723992260974128,4,1},{149773340882156943483764645496867821104,4,1},{149773340882156942303173024780258694704,4,1},{149773340882157848997537735752139724336,4,1}}
In[]:=
capix[#,100]&/@%
Out[]=
,
,
,
,
,
,
,
,
,
,
,
,
,
In[]:=
First/@(First/@SplitBy[{#,DeathLossFunction[#,200]}&/@(SeedRandom[42342];NestList[First[MinimalBy[Append[Table[CARuleMutation[#],5],#],DeathLossFunction[#,200]&]]&,{0,4,1},1000]),Last])
Out[]=
{{0,4,1},{13958643712,4,1},{1059243771219110559140866144667209984,4,1},{1059243771219110559141006882424000816,4,1},{1313666317296988228959982749029012016,4,1},{829484635626076287009374722396821040,4,1},{64632428433302038186392113667392968240,4,1},{234846307852741953726657241507408680496,4,1},{234845009798489103139391807760792589872,4,1},{234843935147692759657916685906993255984,4,1},{149773340882156943482611723992260974128,4,1},{149773340882156943483764645496867821104,4,1},{149773340882156942303173024780258694704,4,1},{149773340882157848997537735752139724336,4,1},{149773340882158075671128913495112078896,4,1},{149773340882158075671146927893621560880,4,1},{149773340882158075671146927893621528112,4,1},{64702749151923459805303276035679475248,4,1}}
In[]:=
capix[#,150,20]&/@%60
Out[]=
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
[[ Also need to look at number of neutral modifications between “progress steps” ]]
[[[ Want to make a rosette at each step, and indicate how many candidates were tried before something better was found
[[[ Should at each step keep going until it finds a better result ]]]
Different seed
Different seed
k=3 case
k=3 case
k=2, r=2 case
k=2, r=2 case