Sequential Cellular Automata
Sequential Cellular Automata
In[]:=
Table[ArrayPlot[Downsample[SequentialCellularAutomaton[n,CenterArray[{1},20],Flatten[Table[Range[20],50]]],{20,1}],PlotLabeln],{n,0,255}]
Out[]=
In[]:=
ResourceFunction["InShuffle"][Range[20]]
Out[]=
{11,1,12,2,13,3,14,4,15,5,16,6,17,7,18,8,19,9,20,10}
In[]:=
With[{ord=ResourceFunction["InShuffle"][Range[20]]},Table[ArrayPlot[Downsample[SequentialCellularAutomaton[n,CenterArray[{1},20],Flatten[Table[ord,50]]],{20,1}],PlotLabeln],{n,0,255}]]
Out[]=
