In[]:=
ddata=Flatten[ParallelMap[Differences[getcurve[CellularAutomaton[#BestRule,{{1},0},#BestFitness]]]&,$LifetimeRules]];

Curve Fit


Roughness

In[]:=
allcurves=ParallelMap[getcurve[CellularAutomaton[#BestRule,{{1},0},#BestFitness]]&,$LifetimeRules];
In[]:=
ListLinePlot[allcurves[[10]]]
Out[]=
In[]:=
ListLinePlot[allcurves[[11]]]
Out[]=
In[]:=
ListLinePlot[allcurves[[12]]]
Out[]=
In[]:=
Total[Differences[N[Mean/@Partition[allcurves[[12]],5,1]]]]/Length[allcurves[[12]]]
Out[]=
0.0283186
In[]:=
allcurves[[12]]
Out[]=
{0,1,0,1,2,1,2,1,2,3,2,2,3,1,2,2,2,3,3,4,4,4,5,5,6,5,6,6,7,5,6,6,6,7,7,8,8,8,9,9,10,9,10,9,8,9,9,9,10,10,11,10,11,10,11,10,11,12,11,12,12,13,13,14,14,15,14,15,15,16,13,13,14,13,14,14,15,14,15,14,15,15,16,14,14,15,13,14,13,13,13,14,14,14,15,15,16,15,16,16,17,15,16,14,15,15,12,12,12,13,12,13,12,12,10,9,10,11,9,10,9,10,9,10,10,11,8,9,9,9,10,8,9,8,9,9,10,10,8,8,9,8,9,7,6,7,6,7,7,8,6,7,7,7,8,8,9,9,9,10,10,11,10,11,11,12,10,11,11,11,12,12,13,13,13,14,14,15,14,15,14,13,14,14,14,15,15,16,16,4,4,5,4,3,3,4,3,4,4,5,4,5,4,5,5,6,6,4,4,4,5,5,5,6,6,7,7,7,8,8,9,8,9,9,10,7,8,9,8,8,9,8,9,9,9,10,9,10,10,11,10,11,11,12,10,11,9,10,9,8,7,6,6,7,7,8,7,8,8,9,8,9,8,9,9,10,9,10,10,10,11,11,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,12,13,12,13,12,13,14,14,14,15,12,12,13,11,12,12,12,12,13,10,10,9,10}
In[]:=
ParallelMap[CurveFractalDimension[#]["Dimension"]&,allcurves]
kernel 175 (threadripper2.wolfram.com//usr/local/bin/wolfram150)
Power
:Infinite expression
1
0
encountered.
kernel 7 (localhost)
Power
:Infinite expression
1
0
encountered.
kernel 28 (tremac.wolfram.com//usr/local/bin/wolfram150)
Power
:Infinite expression
1
0
encountered.
kernel 41 (macpro-basement.wolfram.com//usr/local/bin/wolfram150)
Power
:Infinite expression
1
0
encountered.
kernel 74 (lambda.wolfram.com//usr/local/bin/wolfram150)
Power
:Infinite expression
1
0
encountered.
During evaluation of In[423]:=
General
:Further output of Power::infy will be suppressed during this calculation.
kernel 28 (tremac.wolfram.com//usr/local/bin/wolfram150)
Infinity
:Indeterminate expression 0.ComplexInfinity encountered.
kernel 41 (macpro-basement.wolfram.com//usr/local/bin/wolfram150)
Infinity
:Indeterminate expression 0.ComplexInfinity encountered.
kernel 74 (lambda.wolfram.com//usr/local/bin/wolfram150)
Infinity
:Indeterminate expression 0.ComplexInfinity encountered.
kernel 109 (threadripper.wolfram.com//usr/local/bin/wolfram150)
Infinity
:Indeterminate expression 0.ComplexInfinity encountered.
kernel 113 (threadripper.wolfram.com//usr/local/bin/wolfram150)
Infinity
:Indeterminate expression 0.ComplexInfinity encountered.
During evaluation of In[423]:=
General
:Further output of Infinity::indet will be suppressed during this calculation.
Out[]=
{1.25069,1.09686,1.15421,1.19623,1.24381,1.27278,1.15502,1.32615,1.21405,1.38546,1.26354,1.30172,1.23064,1.19134,1.27106,1.22827,1.41113,1.44568,
⋯101964⋯
,1.21572,1.3439,1.02845,1.31992,1.28353,1.3165,1.11393,1.2912,1.2281,1.20714,1.2002,1.01028,1.19604,1.33892,1.31468,1.26724,1.22721,1.27661}
Full expression not available
(
original memory size:
2.5 MB)
In[]:=
Histogram[%]
Out[]=
In[]:=
Histogram
423
,40
Out[]=
In[]:=
Histogram
423
,40,PlotRange->All
Out[]=
In[]:=
Mean
423
/._Missing->0
Out[]=
1.25592
In[]:=
ParallelMap[CurveFractalDimension[#,Method->"Higuchi"]["Dimension"]&,allcurves]
kernel 159 (threadripper2.wolfram.com//usr/local/bin/wolfram150)
Power
:Infinite expression
1
0
encountered.
kernel 175 (threadripper2.wolfram.com//usr/local/bin/wolfram150)
Power
:Infinite expression
1
0
encountered.
kernel 7 (localhost)
Power
:Infinite expression
1
0
encountered.
compute fractal dimension of a curve by the ruler method

Leaf Shapes

Open-Ended Evolution

Convergent Evolution