WOLFRAM NOTEBOOK

Within mutation distance m of a particular phenotype of intermediate fitness...

In[]:=
Module​​{deep=20000,cut=50,ru,life,evo,data},​​SeedRandom[426778];​​evo=NestListCompoundExpression​​ru=
[◼]
RandomRuleMutation
[First[#]],​​life=
[◼]
TestLifetime
[ru,cut],​​If[life>=Last[#],{ru,life},#]​​&,{{0,3,2},0},deep;​​evo=Rest[First/@SplitBy[evo,Last]];​​MapCompoundExpression​​data=CellularAutomaton[​​First[#],{{1},0},Last[#]+2],​​data=ArrayPad[#,2]&/@data,​​ArrayPlotdata,ColorRules->
[◼]
CustomStyleData
["Colors"],​​ImageSize->{Automatic,26Sqrt[Length[data]+1]},​​Mesh->True,MeshStyle->Opacity[.1]​​​​&,​​evo,Iconize[evo]​​
Out[]=
,
,
,
,
,
,
,
,
,
,
,
,
,
,
In[]:=
TableHistogramParallelMap
[◼]
TestLifetime
[#,1000]&,RuleMutationsListFirst@
[[i]],{1},{"Log","Count"},{i,3,10}
Out[]=
,
,
,
,
,
,
,
TableHistogramParallelMap
[◼]
TestLifetime
[#,1000]&,RuleMutationsListFirst@
[[i]],2,{1},{"Log","Count"},{i,3,10}
In[]:=
RuleMutationsListFirst@
[[1]],2//Length
Out[]=
116644
In[]:=
fuzzballlt[rule_,r_,cut_:100]:=
[◼]
TestLifetime
[RandomRuleMutation[rule,r],cut]
In[]:=
With{i=5,r=2},ParallelTablefuzzballltFirst
[[i]],r,10000
Out[]=
{-∞,27,-∞,7,73,12,17,18,30,30,-∞,30,34,30,30,30,-∞,-∞,13,20,12,-∞,30,40,21,4,31,20,30,30,12,11,30,14,30,30,35,71,30,30,-∞,30,-∞,11,-∞,-∞,-∞,23,-∞,30,-∞,14,30,31,35,17,30,40,3,22,47,-∞,-∞,30,-∞,7,-∞,30,2,30,29,30,-∞,22,23,33,7,3,15,5,-∞,-∞,-∞,23,-∞,24,30,4,-∞,7,30,18,30,7,15,30,-∞,15,24,13,7,-∞,-∞,-∞,8,30,-∞,30,15,22,-∞,23,-∞,30,30,22,47,30,-∞,18,3,18,-∞,19,14,-∞,29,28,30,30,30,-∞,30,13,24,-∞,30,30,-∞,-∞,-∞,30,7,22,3,14,30,30,3,30,-∞,-∞,-∞,30,30,30,-∞,-∞,32,-∞,-∞,30,-∞,30,30,34,19,23,-∞,-∞,17,30,28,29,-∞,-∞,-∞,15,30,11,23,30,30,-∞,15,30,-∞,18,-∞,30,30,15,
⋯9616⋯
,30,30,30,30,-∞,-∞,30,-∞,30,-∞,18,28,30,30,30,-∞,14,-∞,30,7,20,30,15,23,30,-∞,30,8,30,-∞,30,30,30,9,2,11,30,-∞,-∞,24,-∞,-∞,-∞,18,38,-∞,30,30,30,-∞,2,-∞,-∞,30,-∞,30,82,20,30,-∞,30,47,3,15,30,-∞,-∞,-∞,-∞,28,24,-∞,30,30,18,30,30,-∞,30,-∞,31,-∞,-∞,-∞,50,30,29,30,28,8,-∞,23,54,30,28,-∞,30,-∞,38,30,-∞,29,-∞,28,-∞,-∞,30,-∞,30,34,-∞,30,29,17,17,-∞,-∞,19,30,34,-∞,-∞,38,30,-∞,30,30,-∞,20,4,-∞,32,18,-∞,30,40,19,-∞,-∞,-∞,28,30,19,-∞,23,2,30,30,-∞,7,7,30,18,30,-∞,10,30,18,15,-∞,15,30,-∞,11,30,29,-∞,57,14,-∞,-∞,31,31,15,-∞,30,23,30,30,29,-∞,30,-∞,-∞,30,11,-∞,-∞,26,18,-∞,16}
Full expression not available
(
original memory size:
378.9 kB)
In[]:=
TableHistogramParallelTablefuzzballltFirst
[[i]],r,10000,PlotTheme->"Minimal",Frame->True,i,Length
,{r,4}
Out[]=
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
[[[ The overall “boot” is basically becoming typical of all rules ... ]]]
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.