WOLFRAM NOTEBOOK

Random “best of” mutations:

In[]:=
{First[#],First/@Split[Last[#]]}&[Reap[SeedRandom[424247];MakePix1[IncludeNeutralList[NestList[(Function[p,If[Last[p]<=Last[#],p,#]][RandomChoice[(Sow[Length[#]];#)&[MinimalBy[{#,DeathLossFunction[#,200]}&/@CAAllMutations[First[#]],Last]]]])&,{{0,3,1},0},100]]]]]
Out[]=
{1,2}
,
{1,2}
,
{1,2}
,
{1,2}
,
{1,2}
,
{1,2}
,
{2,2}
,
{2,2}
,
{3,2}
,
{4,2}
,
{5,2}
,
{5,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{6,2}
,
{7,2}
,
{8,2}
,
{8,2}
,
{8,2}
,
{8,2}
,
{8,2}
,
{8,2}
,
{8,2}
,
{8,2}
,
{8,2}
,
{8,2}
,
{8,2}
,
{8,2}
,
{13,2}
,
{14,2}
,
{17,2}
,
{21,2}
,
{21,2}
,
{46,2}
,{{3,42,42,42,42,42,2,38,1,2,2,26,1,24,24,24,24,24,24,25,26,25,25,25,25,25,25,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,25,25,25,25,25,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,1,1,22,22,22,22,22,22,22,22,22,22,22,1,1,1,1,3,1,1,1,1,1,1}}

Always make the change...

[[[ Indicate with a dot at the end of the loss plot to show which direction it took ]]]

Multiway graph

k=2, r=3/2

First element:
Last element:

Elementary rules:

k=2, r=2, symmetric

Wolfram Cloud

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 »

You are using a browser not supported by the Wolfram Cloud. Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.