{i,j} {i+j, Ramp[i-j]}
{i,j} {i+j, Ramp[i-j]}
In[]:=
ResourceFunction["BlockCellularAutomaton"][{{i_Integer,j_Integer}:>{i+j,Ramp[i-j]}},CenterArray[{1,1},20],5]
Out[]=
{{0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0},{0,0,0,0,0,0,0,0,1,0,1,1,0,0,0,0,0,0,0,0},{0,0,0,0,0,0,0,1,0,1,0,1,1,0,0,0,0,0,0,0},{0,0,0,0,0,0,1,0,1,0,1,0,1,1,0,0,0,0,0,0},{0,0,0,0,0,1,0,1,0,1,0,1,0,1,1,0,0,0,0,0},{0,0,0,0,1,0,1,0,1,0,1,0,1,0,1,1,0,0,0,0}}
In[]:=
ArrayPlot[ResourceFunction["BlockCellularAutomaton"][{{i_Integer,j_Integer}:>{i+j,Ramp[i-j]}},CenterArray[{1,1},20],20]]
Out[]=
In[]:=
ArrayPlot[ResourceFunction["BlockCellularAutomaton"][{{i_Integer,j_Integer}:>{i+j,Ramp[i-j]}},CenterArray[{1,1,1},20],20]]
Out[]=
In[]:=
ArrayPlot[ResourceFunction["BlockCellularAutomaton"][{{i_Integer,j_Integer}:>{i+j,Ramp[i-j]}},CenterArray[{1,1,1},20],60]]
Out[]=
In[]:=
ResourceFunction["BlockCellularAutomaton"][{{i_Integer,0}:>{0,i},{0,j_Integer}:>{j,0},{i_Integer,j_Integer}:>{i+j,Ramp[i-j]}},CenterArray[{1,1,1},20],5]
Out[]=
{{0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,0},{0,0,0,0,0,0,0,0,2,0,0,1,0,0,0,0,0,0,0,0},{0,0,0,0,0,0,0,2,0,0,0,0,1,0,0,0,0,0,0,0},{0,0,0,0,0,0,2,0,0,0,0,0,0,1,0,0,0,0,0,0},{0,0,0,0,0,2,0,0,0,0,0,0,0,0,1,0,0,0,0,0},{0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0}}
In[]:=
ArrayPlot[ResourceFunction["BlockCellularAutomaton"][{{i_Integer,0}:>{0,i},{0,j_Integer}:>{j,0},{i_Integer,j_Integer}:>{i+j,Ramp[i-j]}},CenterArray[{1,1,1},20],20]]
Out[]=
In[]:=
ArrayPlot[ResourceFunction["BlockCellularAutomaton"][{{i_Integer,0}:>{0,i},{0,j_Integer}:>{j,0},{i_Integer,j_Integer}:>{i+j,Ramp[i-j]}},CenterArray[Table[1,10],20],20]]
Out[]=
In[]:=
ArrayPlot[ResourceFunction["BlockCellularAutomaton"][{{i_Integer?EvenQ,j_Integer}:>{i+j,Ramp[i-j]},{i_Integer?OddQ,j_Integer}:>{Ramp[i-j],i+j}},CenterArray[Table[1,10],20],20]]
Out[]=
