In[]:=
SeedRandom[42342342];Table[RandomParticleState[80,24],2]
Out[]=
{{0,1,2,0,0,0,0,0,1,1,0,2,0,0,0,0,1,0,1,0,1,0,0,0,1,1,0,0,0,1,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,1,0,0,0,0,2,0,2,0,0,0,0,0,0,0,2,2,2,2,0,1,0,1,2,2},{0,0,0,1,0,0,0,0,2,0,0,0,1,2,0,0,0,0,1,2,1,0,0,1,0,0,0,2,0,1,0,1,0,0,1,0,0,0,0,0,1,2,0,1,1,1,0,0,0,2,0,0,0,0,0,2,0,0,0,2,0,2,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,2,1}}
In[]:=
ArrayPlot[Take[ResourceFunction["BlockCellularAutomaton"][{{2,2}{1,1},{1,1}{2,2},{1,2}{1,2},{2,1}{2,1},{2,0}{0,2},{1,0}{1,0},{0,2}{2,0},{0,1}{0,1},{0,0}{0,0}},{0,0,0,1,0,0,0,0,2,0,0,0,1,2,0,0,0,0,1,2,1,0,0,1,0,0,0,2,0,1,0,1,0,0,1,0,0,0,0,0,1,2,0,1,1,1,0,0,0,2,0,0,0,0,0,2,0,0,0,2,0,2,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,2,1},50000],-350],ColorRules->{0->White,1->Lighter[Orange],2->Darker[Orange]},ImageSize->{Automatic,330}]
Out[]=
In[]:=
ArrayPlot[#,ColorRules->{0->White,1->Lighter[Orange],2->Darker[Orange]},ImageSize->{Automatic,330}]&/@Partition[ResourceFunction["BlockCellularAutomaton"][{{2,2}{1,1},{1,1}{2,2},{1,2}{1,2},{2,1}{2,1},{2,0}{0,2},{1,0}{1,0},{0,2}{2,0},{0,1}{0,1},{0,0}{0,0}},{0,0,0,1,0,0,0,0,2,0,0,0,1,2,0,0,0,0,1,2,1,0,0,1,0,0,0,2,0,1,0,1,0,0,1,0,0,0,0,0,1,2,0,1,1,1,0,0,0,2,0,0,0,0,0,2,0,0,0,2,0,2,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,2,1},2000],350]
Out[]=
,
,
,
,
In[]:=
BCACycleLength[{{2,2}->{1,1},{1,1}->{2,2},{1,2}->{1,2},{2,1}->{2,1},{2,0}->{0,2},{1,0}->{1,0},{0,2}->{2,0},{0,1}->{0,1},{0,0}->{0,0}},{{0,0,0,1,0,0,0,0,2,0,0,0,1,2,0,0,0,0,1,2,1,0,0,1,0,0,0,2,0,1,0,1,0,0,1,0,0,0,0,0,1,2,0,1,1,1,0,0,0,2,0,0,0,0,0,2,0,0,0,2,0,2,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,2,1},0}]
Out[]=
5129588
In[]:=
Length[{0,0,0,1,0,0,0,0,2,0,0,0,1,2,0,0,0,0,1,2,1,0,0,1,0,0,0,2,0,1,0,1,0,0,1,0,0,0,0,0,1,2,0,1,1,1,0,0,0,2,0,0,0,0,0,2,0,0,0,2,0,2,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,2,1}]
Out[]=
80
In[]:=
3^40//N
Out[]=
1.21577×
19
10
In[]:=
Log[3.,5129588]
Out[]=
14.0637
In[]:=
ArrayPlot[#,ColorRules->{0->White,1->Lighter[Orange],2->Darker[Orange]},ImageSize->{Automatic,500}]&/@Partition[ResourceFunction["BlockCellularAutomaton"][{{2,2}{1,1},{1,1}{2,2},{1,2}{1,2},{2,1}{2,1},{2,0}{0,2},{1,0}{1,0},{0,2}{2,0},{0,1}{0,1},{0,0}{0,0}},{0,0,0,1,0,0,0,0,2,0,0,0,1,2,0,0,0,0,1,2,1,0,0,1,0,0,0,2,0,1,0,1,0,0,1,0,0,0,0,0,1,2,0,1,1,1,0,0,0,2,0,0,0,0,0,2,0,0,0,2,0,2,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,2,1},60000],350,10000]
Out[]=
,
,
,
,
,
In[]:=
Partition[Range[50],5,20]
Out[]=
{{1,2,3,4,5},{21,22,23,24,25},{41,42,43,44,45}}
In[]:=
ListLinePlot[MaxBlob/@ResourceFunction["BlockCellularAutomaton"][{{2,2}{1,1},{1,1}{2,2},{1,2}{1,2},{2,1}{2,1},{2,0}{0,2},{1,0}{1,0},{0,2}{2,0},{0,1}{0,1},{0,0}{0,0}},{0,0,0,1,0,0,0,0,2,0,0,0,1,2,0,0,0,0,1,2,1,0,0,1,0,0,0,2,0,1,0,1,0,0,1,0,0,0,0,0,1,2,0,1,1,1,0,0,0,2,0,0,0,0,0,2,0,0,0,2,0,2,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,2,1},30000],Frame->True,Filling->Axis,PlotRange->{0,18},AspectRatio->1/5]
Out[]=
What are the conserved particle structures with the double-step function?
What are the conserved particle structures with the double-step function?
A single 2 gets trapped between two walls.....