Particles, but only if carefully prepared
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”
“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[]=
