WOLFRAM NOTEBOOK

Particles, but only if carefully prepared

In[]:=
ArrayPlot[CellularAutomaton[{5444641471477,3},RandomInteger[2,600],300],ColorRules{0->White,1->Red,2->Blue}]
Out[]=
In[]:=
ArrayPlot[ArrayFlatten[​​{{CellularAutomaton[{5444641471477,3},Table[1,20],100],​​CellularAutomaton[{5444641471477,3},{Flatten[Riffle[IntegerDigits[{2,6,32,228,3,173},3],{Table[1,20]}]],1},100],​​CellularAutomaton[{5444641471477,3},Table[1,20],100]}}],​​ColorRules{0->White,1->Red,2->Blue},Frame->None]
Out[]=

“Easy Particles”

In[]:=
ArrayPlot[CellularAutomaton[{55290322675,3},RandomInteger[2,600],300],ColorRules{0->White,1->Red,2->Blue}]
Out[]=
​
In[]:=
ArrayPlot[CellularAutomaton[{966,{3,1},1},SeedRandom[24145];RandomInteger[2,1200],1200],Frame->False,ColorRules->{0->White,1->Blue,2->Red}]
Out[]=
In[]:=
ArrayPlot[CellularAutomaton[{1815,{3,1},1},SeedRandom[24145];RandomInteger[2,1200],1200],Frame->False,ColorRules->{0->White,1->Blue,2->Red}]
Out[]=
Wolfram Cloud

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 »

You are using a browser not supported by the Wolfram Cloud. Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.