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[]:=
allrevrules[k_]:=Thread[Tuples[Range[0,k-1],2]->#]&/@Permutations[Tuples[Range[0,k-1],2]]
In[]:=
ArrayPlot[ResourceFunction["BlockCellularAutomaton"][#,CenterArray[{1,1,1},40],20]]&/@allrevrules[2]
Out[]=
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
In[]:=
ArrayPlot[ResourceFunction["BlockCellularAutomaton"][#,CenterArray[{1,1,1},80],60]]&/@allrevrules[2]
Out[]=
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
In[]:=
ArrayPlot[ResourceFunction["BlockCellularAutomaton"][#,CenterArray[{1,1,1},400],600]]&@allrevrules[2][[-2]]
Out[]=
In[]:=
ArrayPlot[ResourceFunction["BlockCellularAutomaton"][#,CenterArray[{1,1,1},40],60]]&@allrevrules[2][[-2]]
Out[]=
number conserving rules
number conserving rules
Size 3 blocks
Size 3 blocks