Wolfram Cloud Page

In[]:=

PacletInstall["https://www.wolframcloud.com/obj/nikm/CellularAutomaton.paclet",ForceVersionInstall->True]

Out[]=

PacletObject

Name: WolframInstitute/CellularAutomaton

Version: 1.0.4



In[]:=

<<WolframInstitute`CellularAutomaton`

In[]:=

doublers10=CellularAutomatonWidthRatioSearch[Table[Append[ConstantArray[1,n],2],{n,0,10}],400,2,{3,1}];//AbsoluteTiming

Out[]=

{14.6004,Null}

In[]:=

Length[doublers10]

Out[]=

4280

In[]:=

db5=CellularAutomatonWidthRatioSearch[Table[Append[ConstantArray[1,n],2],{n,0,5}],400,2,{3,1}];

In[]:=

Length[db5]

Out[]=

4341

In[]:=

db3=CellularAutomatonWidthRatioSearch[Table[Append[ConstantArray[1,n],2],{n,0,3}],400,2,{3,1}];

In[]:=

Length[db3]

Out[]=

17928

db20=FoldList[CellularAutomatonWidthRatioSearch[Table[Append[ConstantArray[1,n],2],{n,0,#2}],400,2,{3,1},#1]&,db3,Range[4,100]];

In[]:=

Length/@db20

Out[]=

{17928,4694,4341,4288,4283,4282,4280,4280,4280,4279,4278,4278,4278,4278,4278,4278,4278,4278}

In[]:=

db100=FoldList[EchoFunction[Length][CellularAutomatonWidthRatioSearch[Table[Append[ConstantArray[1,n],2],{n,0,#2}],400,2,{3,1},#1]]&,db3,Range[4,100]];

4694

4341

4288

4283

4282

4280

4279

4278

4277

4241

4240

In[]:=

Length/@db100

Out[]=

{17928,4694,4341,4288,4283,4282,4280,4280,4280,4279,4278,4278,4278,4278,4278,4278,4278,4278,4278,4278,4277,4277,4277,4277,4277,4277,4241,4241,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240,4240}

In[]:=

ListStepPlot



Out[]=

Add these to survivors:

[[[ How can one tell that nothing is going to “leak” ... ]]]