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[]:=
SeedRandom[25345];Table[ArrayPlot[CellularAutomaton[{RandomInteger[1220703124],{5,1}},RandomInteger[4,300],200]],10]
Out[]=
,
,
,
,
,
,
,
,
,
In[]:=
SeedRandom[25345]
Out[]=
RandomGeneratorState
In[]:=
RandomInteger[1220703124]
Out[]=
1092923130
In[]:=
Table[ArrayPlot[CellularAutomaton[{1092923130,{5,1}},RandomInteger[4,300],200]],10]
Out[]=
,
,
,
,
,
,
,
,
,
In[]:=
RulePlot[CellularAutomaton[{1092923130,{5,1}}]]
Out[]=
In[]:=
IntegerDigits[1092923130,5]
Out[]=
{4,2,1,4,2,4,2,0,2,0,0,1,0}
In[]:=
Length[%]
Out[]=
13
In[]:=
Table[ArrayPlot[CellularAutomaton[{FromDigits[ReplacePart[IntegerDigits[1092923130,5],RandomInteger[{1,13}]->RandomInteger[4]],5],{5,1}},RandomInteger[4,300],200]],10]
Out[]=
,
,
,
,
,
,
,
,
,
In[]:=
Table[ArrayPlot[CellularAutomaton[{FromDigits[ReplacePart[IntegerDigits[1092923130,5],RandomInteger[{1,13}]->RandomInteger[4]],5],{5,1}},RandomInteger[4,300],200]],50]
Out[]=
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,