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[]:=
Table[With[{p=.6},ArrayPlot[NestList[(If[Total[#]>=1&&RandomReal[]<p,1,0]&/@Partition[RotateRight[#],3,1,1])&,CenterArray[{1},300],200]]],10]
Out[]=
,
,
,
,
,
,
,
,
,
In[]:=
Table[With[{p=.5},ArrayPlot[NestList[(If[Total[#]>=1&&RandomReal[]<p,1,0]&/@Partition[RotateRight[#],3,1,1])&,CenterArray[{1},300],200]]],10]
Out[]=
,
,
,
,
,
,
,
,
,
In[]:=
Table[With[{p=.58},ArrayPlot[NestList[(If[Total[#]>=1&&RandomReal[]<p,1,0]&/@Partition[RotateRight[#],3,1,1])&,CenterArray[{1},300],200]]],10]
Out[]=
,
,
,
,
,
,
,
,
,
In[]:=
Table[With[{p=.55},ArrayPlot[NestList[(If[Total[#]>=1&&RandomReal[]<p,1,0]&/@Partition[RotateRight[#],3,1,1])&,CenterArray[{1},300],200]]],10]
Out[]=
,
,
,
,
,
,
,
,
,
In[]:=
Table[With[{p=.53},ArrayPlot[NestList[(If[Total[#]>=1&&RandomReal[]<p,1,0]&/@Partition[RotateRight[#],3,1,1])&,CenterArray[{1},300],200]]],10]
Out[]=
,
,
,
,
,
,
,
,
,