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[]:=
ParallelTablei->Module{deep=5000,cut=200,ru,life,evo,data},SeedRandom[5000+i];evo=NestListCompoundExpressionru=[First[#]],life=[ru,cut],If[life>=Last[#],{ru,life},#]&,{{0,3,1},0},deep;evo=Rest[First/@SplitBy[evo,Last]];MapCompoundExpressiondata=CellularAutomaton[First[#],{{1},0},Last[#]+2],data=ArrayPad[#,2]&/@data,ArrayPlotdata,ColorRules->["Colors"],ImageSize->{Automatic,26Sqrt[Length[data]+1]},Mesh->True,MeshStyle->Opacity[.1]&,evo,{i,200}
Out[]=
In[]:=
ParallelTablei->Module{deep=5000,cut=200,ru,life,evo,data},SeedRandom[5000+i];evo=NestListCompoundExpressionru=[First[#]],life=[ru,cut],If[life>=Last[#],{ru,life},#]&,{{0,3,1},0},deep;evo=Rest[First/@SplitBy[evo,Last]];MapCompoundExpressiondata=CellularAutomaton[First[#],{{1},0},Last[#]+2],data=ArrayPad[#,2]&/@data,ArrayPlotdata,ColorRules->["Colors"],ImageSize->{Automatic,26Sqrt[Length[data]+1]},Mesh->True,MeshStyle->Opacity[.1]&,evo,{i,{16,53,60,73,113,117}}
Out[]=
16
,
,
,
,
,
,
,
,
,
,53
,
,
,
,
,
,
,
,
,
,60
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,73
,
,
,
,
,
,
,
,
,
,
,
,
,113
,
,
,
,
,
,
,
,
,
,
,
,
,117
,
,
,
,
,
,
,
,
,
,
,
,
,
,
Waist width
Waist width
Multiway Graphs
Multiway Graphs
Build Up
Build Up
Mutation Cones / Genotype Cones
Mutation Cones / Genotype Cones