In[]:=
With[{aps=allperts[CellularAutomaton[{299459058088077823758143088095350287424,4,1},{{1},0},{105,{-110,110}}]]},pps=Join@@@Catenate[Table[{aps[[i]],aps[[j]]},{i,1,Length[aps]-1},{j,i+1,Length[aps]}]];]
In[]:=
With[{aps=allperts[CellularAutomaton[{299459058088077823758143088095350287424,4,1},{{1},0},{105,{-200,200}}]]},pps=Join@@@Catenate[Table[{aps[[i]],aps[[j]]},{i,1,Length[aps]-1},{j,i+1,Length[aps]}]];]
In[]:=
ByteCount[pps]
Out[]=
4923320336
In[]:=
Length[pps]
Out[]=
9603153
In[]:=
pps[[67]]
Out[]=
{0,111}0,{8,111}2
In[]:=
ParallelMap[If[TestCALifeTime[First@PerturbedCellularAutomaton[{299459058088077823758143088095350287424,4,1},{{1},0},{400,{-200,200}},#]]==-Infinity,#,Nothing]&,pps]
Out[]=
{{2,202}3,{28,203}1,{6,202}3,{31,208}2,{6,202}3,{32,209}2,{7,204}1,{8,203}0,{8,200}3,{31,209}2,{8,200}3,{32,207}2,{8,200}3,{32,209}0,{9,202}0,{10,202}0,{10,199}2,{31,209}2,{10,199}2,{32,207}2,{10,199}2,{32,209}0,{10,202}0,{29,205}3,{10,202}0,{30,206}3,{10,202}0,{53,201}3,{10,202}0,{72,219}3,{10,202}0,{73,218}2,{10,202}3,{12,198}3,{10,202}3,{41,215}0,
⋯2077⋯
,{86,197}3,{93,201}3,{86,199}3,{90,203}1,{86,199}3,{91,204}1,{86,199}3,{92,205}1,{86,223}3,{88,212}3,{87,197}3,{93,202}3,{87,199}3,{91,203}1,{87,199}3,{92,204}1,{88,197}3,{92,201}1,{88,197}3,{93,202}1,{88,197}3,{94,203}1,{88,199}3,{90,212}1,{89,197}3,{93,201}1,{89,197}3,{94,202}1,{89,212}3,{99,198}3,{89,214}1,{95,199}3,{90,215}3,{95,199}3}
Stored in notebook:
1.2 MB
Show more
|
Show all
|
Iconize
In[]:=
ParallelMap(Length/@FindTransientRepeat[(Total/@First@PerturbedCellularAutomaton[{299459058088077823758143088095350287424,4,1},{{1},0},{400,{-200,200}},#]),2])&,
312

Out[]=
In[]:=
Now
Out[]=
Sun 26 Jan 2025 02:29:43GMT-5
In[]:=
NotebookSave[]
In[]:=
CountsLast/@
313

Out[]=
01818,25189,1103,32
In[]:=
Pick
312
,Last[#]==0&/@
313

Out[]=
{{2,202}3,{28,203}1,{7,204}1,{8,203}0,{9,202}0,{10,202}0,{10,202}0,{29,205}3,{10,202}0,{30,206}3,{10,202}0,{53,201}3,{10,202}0,{72,219}3,{10,202}0,{73,218}2,{10,202}3,{12,198}3,{10,202}3,{60,198}1,{10,202}3,{61,199}3,{11,199}1,{12,201}3,{11,200}0,{13,198}1,{11,200}0,{14,198}3,{11,200}0,{23,198}3,{11,203}3,{25,206}1,{11,203}3,{26,205}0,{11,204}3,{59,200}3,
⋯1783⋯
,{86,197}3,{93,201}3,{86,199}3,{90,203}1,{86,199}3,{91,204}1,{86,199}3,{92,205}1,{86,223}3,{88,212}3,{87,197}3,{93,202}3,{87,199}3,{91,203}1,{87,199}3,{92,204}1,{88,197}3,{92,201}1,{88,197}3,{93,202}1,{88,197}3,{94,203}1,{88,199}3,{90,212}1,{89,197}3,{93,201}1,{89,197}3,{94,202}1,{89,212}3,{99,198}3,{89,214}1,{95,199}3,{90,215}3,{95,199}3}
Full expression not available
(
original memory size:
1 MB)
In[]:=
TestCALifeTime[First[PerturbedCellularAutomaton[{299459058088077823758143088095350287424,4,1},{{1},0},{1000,{-200,200}},#]]]&/@
317
Out[]=
In[]:=
Histogram[%]
Out[]=
In[]:=
Pick
317
,#===-Infinity&/@
322

Out[]=
In[]:=
MapIndexedLabeled[PlotCA[PerturbedCellularAutomaton[{299459058088077823758143088095350287424,4,1},{{1},0},{1000,{-200,200}},#]],#2]&,Take
324
,-20
Out[]=

{1}
,
{2}
,
{3}
,
{4}
,
{5}
,
{6}
,
{7}
,
{8}
,
{9}
,
{10}
,
{11}
,
{12}
,
{13}
,
{14}
,
{15}
,
{16}
,
{17}
,
{18}
,
{19}
,
{20}
