In[]:=
ArrayPlot[CellularAutomaton[{283691773561835916863633173604723531156088390645667287037207465765718014733547122654662,5,1},RandomInteger[4,200],300]]
Out[]=
In[]:=
ArrayPlot[CellularAutomaton[{1319341993076626678084118354808513300040087971523583819619979408188470956910068166481000,5,1},RandomInteger[4,200],300]]
Out[]=
In[]:=
getResults[n_,col_:5]:=Module[{res=Association[],code,data},While[Length[res]<n,code=RandomInteger[col^(col^3)-1];data=CellularAutomaton[{code,col,1},RandomInteger[col-1,100],100];If[Apply[SameQ,data[[-3;;-1]]],res[code]=data];];KeyValueMap[ClickToCopy[ArrayPlot[#2,ColorRules->Map[#->Hue[#/col]&,Range[0,col-1]]],#1]&,res]]
In[]:=
getResults[10,5]
Out[]=
,,,,,,,,,
In[]:=
With[{init0=(SeedRandom[3253534];RandomInteger[4,600])},ArrayPlot[CellularAutomaton[{2162228682366763273753403072270198430440647721517447614461649045751431869327326683773130,5,1},init0,300]]]
Out[]=
In[]:=
Table[With[{init0=(SeedRandom[3253534];RandomInteger[4,600])},ArrayPlot[CellularAutomaton[{2162228682366763273753403072270198430440647721517447614461649045751431869327326683773130,5,1},MapAt[4-#&,init0,n],300]]],{n,50,500,50}]
Out[]=
,
,
,
,
,
,
,
,
,
2D CAs
2D CAs