Wolfram Cloud Document

In[]:=

Table[SeedRandom[53453+i];With[{colors=4,nonzero=40,len=2000,time=1000},ArrayPlot[Take[#,{700,1300}]&/@First/@ResourceFunction["BlockCellularAutomaton"][{{0,2}{0,1},{2,0}{1,0},{0,1}{3,0},{1,0}{0,3},{1,3}{1,3},{3,1}{3,1},{0,3}{2,0},{3,0}{0,2}},{CenterArray[RandomInteger[{1,colors-1},nonzero],len],0},time],ColorRules->{0->White,1->Red,2->Green,3->Blue}]],{i,10}]

Out[]=



,



In[]:=

Function[i,SeedRandom[53453+i];With[{colors=4,nonzero=40,len=2000,time=1000},ArrayPlot[Take[#,{700,1300}]&/@First/@ResourceFunction["BlockCellularAutomaton"][{{0,2}{0,1},{2,0}{1,0},{0,1}{3,0},{1,0}{0,3},{1,3}{1,3},{3,1}{3,1},{0,3}{2,0},{3,0}{0,2}},{CenterArray[RandomInteger[{1,colors-1},nonzero],len],0},time],ColorRules->{0->White,1->Red,2->Green,3->Blue}]]]/@{3,6}

Out[]=



,



In[]:=

Table[SeedRandom[53453+i];With[{colors=4,nonzero=40,len=2000,time=1000},ArrayPlot[Take[#,{700,1300}]&/@First/@ResourceFunction["BlockCellularAutomaton"][{{0,1}{0,1},{1,0}{1,0},{1,2}{0,3},{2,1}{3,0},{0,3}{2,1},{3,0}{1,2},{2,3}{3,2},{3,2}{2,3}},{CenterArray[RandomInteger[{1,colors-1},nonzero],len],0},time],ColorRules->{0->White,1->Red,2->Green,3->Blue}]],{i,3}]

Out[]=



,



In[]:=

Table[SeedRandom[53453+i];With[{colors=4,nonzero=40,len=2000,time=1000},ArrayPlot[Take[#,{700,1300}]&/@First/@ResourceFunction["BlockCellularAutomaton"][{{0,3}{0,1},{3,0}{1,0},{1,3}{3,1},{3,1}{1,3},{0,1}{2,0},{1,0}{0,2},{0,2}{0,3},{2,0}{3,0}},{CenterArray[RandomInteger[{1,colors-1},nonzero],len],0},time],ColorRules->{0->White,1->Red,2->Green,3->Blue}]],{i,3}]

Out[]=



,



In[]:=

Table[SeedRandom[53453+i];With[{colors=4,nonzero=40,len=500,time=250},ArrayPlot[Take[#,{150,350}]&/@First/@ResourceFunction["BlockCellularAutomaton"][{{0,3}{0,1},{3,0}{1,0},{1,3}{3,1},{3,1}{1,3},{0,1}{2,0},{1,0}{0,2},{0,2}{0,3},{2,0}{3,0}},{CenterArray[RandomInteger[{1,colors-1},nonzero],len],0},time],ColorRules->{0->White,1->Red,2->Green,3->Blue}]],{i,3}]

Out[]=



,



In[]:=

Table[SeedRandom[53453+i];With[{colors=4,nonzero=40,len=500,time=250},ArrayPlot[Take[#,{150,350}]&/@First/@ResourceFunction["BlockCellularAutomaton"][{{0,3}{0,1},{3,0}{1,0},{1,3}{3,1},{3,1}{1,3},{0,1}{2,0},{1,0}{0,2},{0,2}{0,3},{2,0}{3,0}},{CenterArray[RandomInteger[{1,colors-1},nonzero],len],0},time],ColorRules->{0->White,1->Red,2->Green,3->Blue}]],{i,4,20}]

Out[]=



,

