In[]:=
GraphicsColumn[Table[GraphicsRow[Table[ArrayPlot[CellularAutomaton[{FromDigits[Append[RandomChoice[{p,1-p}->{0,1},31],0],2],2,2},RandomInteger[1,200],150]],10]],{p,.1,.9,.1}]]
Out[]=
In[]:=
GraphicsColumn[Table[GraphicsRow[Table[ArrayPlot[CellularAutomaton[{FromDigits[Append[RandomChoice[{p,1-p}->{0,1},31],0],2],2,2},RandomInteger[1,200],150]],15]],{p,.1,.9,.05}]]
Out[]=
In[]:=
GraphicsColumn[Table[GraphicsRow[Table[ArrayPlot[CellularAutomaton[{FromDigits[Append[RandomSample[Join[Table[0,31-b],Table[1,b]]],0],2],2,2},RandomInteger[1,200],150]],10]],{b,31}]]
Out[]=
