In[]:=
$LifetimeRules=Import[NotebookDirectory[]<>"FromWillem/Results/res13a-lifetime-100k-dataset.wxf"];
Import
:File /Users/sw/Dropbox/Physics/WorkingMaterial/2026/FromWillem/Results/res13a-lifetime-100k-dataset.wxf not found during Import.
In[]:=
Length[$LifetimeRules]
Out[]=
102000
In[]:=
SeedRandom[3535253];rand=RandomSample[$LifetimeRules,10];​​ArrayPlot[CellularAutomaton[#BestRule,{{1},0},#BestFitness+10],ColorRules->$ColorRules,ImageSize->{Automatic,10Sqrt[#BestFitness]}]&/@rand
Out[]=

,
,
,
,
,
,
,
,
,

In[]:=
SeedRandom[3535253];rand=RandomSample[$LifetimeRules,40];​​ArrayPlot[CellularAutomaton[#BestRule,{{1},0},#BestFitness+10],ColorRules->$ColorRules,ImageSize->{Automatic,10Sqrt[#BestFitness]}]&/@rand
Out[]=

,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,

In[]:=
Select[$LifetimeRules,#BestFitness/#Width<4&];
In[]:=
Length[%]
Out[]=
11460
In[]:=
SeedRandom[3535253];rand=RandomSample[Select[$LifetimeRules,#BestFitness/#Width<4&],40];​​ArrayPlot[CellularAutomaton[#BestRule,{{1},0},#BestFitness+10],ColorRules->$ColorRules,ImageSize->{Automatic,10Sqrt[#BestFitness]}]&/@rand
Out[]=

,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
