In[]:=
Table[ArrayPlot[First/@ResourceFunction["BlockCellularAutomaton"][{{{x_,y_}:>{a(x+y),(1-a)(x+y)}},2},{CenterArray[{10},40],0},20]],{a,0,1,.1}]
Out[]=
,
,
,
,
,
,
,
,
,
,
In[]:=
Table[ArrayPlot[First/@ResourceFunction["BlockCellularAutomaton"][{{{x_,y_}:>{a(x+y),(1-a)(x+y)}},2},{ConstantArray[1,40],0},20],PlotRange->{0,2}],{a,0,1,.1}]
Out[]=
,
,
,
,
,
,
,
,
,
,
In[]:=
Table[ArrayPlot[First/@ResourceFunction["BlockCellularAutomaton"][{{{x_,y_}:>{a(x+y),(1-a)(x+y)}},2},{SeedRandom[23424];RandomReal[1,40],0},20],PlotRange->{0,1}],{a,0,1,.1}]
Out[]=
,
,
,
,
,
,
,
,
,
,
In[]:=
With[{a=.4},Histogram[Catenate[Take[First/@ResourceFunction["BlockCellularAutomaton"][{{{x_,y_}:>{a(x+y),(1-a)(x+y)}},2},{SeedRandom[23424];RandomReal[1,400],0},400],-100]],Automatic,{"Log","Probability"}]]
Out[]=
In[]:=
With[{a=.5},Histogram[Catenate[Take[First/@ResourceFunction["BlockCellularAutomaton"][{{{x_,y_}:>{a(x+y),(1-a)(x+y)}},2},{SeedRandom[23424];RandomReal[1,400],0},800],-100]],Automatic,{"Log","Probability"}]]
Out[]=
In[]:=
With[{a=.5},Histogram[Catenate[Take[First/@ResourceFunction["BlockCellularAutomaton"][{{{x_,y_}:>{a(x+y),(1-a)(x+y)}},2},{SeedRandom[23424];RandomReal[1,1000],0},800],-100]],Automatic,{"Log","Probability"}]]
Out[]=
In[]:=
With[{a=.5},Histogram[Catenate[Take[First/@ResourceFunction["BlockCellularAutomaton"][{{{x_,y_}:>{a(x+y),(1-a)(x+y)}},2},{SeedRandom[23427];RandomReal[1,2000],0},800],-100]],Automatic,{"Log","Probability"}]]
Out[]=
In[]:=
With[{a=.5},Histogram[Catenate[Take[First/@ResourceFunction["BlockCellularAutomaton"][{{{x_,y_}:>{a(x+y),(1-a)(x+y)}},2},{SeedRandom[23427];RandomReal[1,2000],0},800],-100]]]]
Out[]=
In[]:=
With[{a=.5},Histogram[Catenate[Take[First/@ResourceFunction["BlockCellularAutomaton"][{{{x_,y_}:>{a(x+y),(1-a)(x+y)}},2},{SeedRandom[23427];RandomReal[1,10000],0},10000],-500]]]]
Out[]=
Nonlinear dependence
Nonlinear dependence
α (E)