Basic Examples (3)
Basic Examples
(3)
In[49]:=
Out[49]=
{{{1,0,1,0},{2,4},1,3},{{1,0,0,1},{2,2},2,3},{{1,0,1,0,0,1},{2,4},1,3},{{1,0,0,1,0,1},{3,5},1,3},{{1,0,0,0,1,1},{2,2},2,3}}
Fifty steps in the evolution of the mobile automaton:
In[51]:=
ArrayPlotFirst/@[{{0,1,0}{0,0,1},{0}{0,1,0}},{1,0,1,0},50]
Out[51]=
———
Position of the first black dot for each step:
In[58]:=
ListLinePlot[{{0,1,0}{0,0,1},{0}{0,1,0}},{1,0,1,0},50][[All,2,1]]
Out[58]=
Position of all the black dots:
In[69]:=
ArrayPlotMapAt[Red&,#1,List/@#2]&@@@[{{0,1,0}{0,0,1},{0}{0,1,0}},{1,0,1,0},50]
Out[69]=
———
Evolution for more steps:
ResourceFunction["SequentialSubstitutionSystemPlot"][{{0,0,0,1}{1,0,0},{0,0,0}{1,1},{1}{0,0,1}},{1,0,1},50],FrameTrue,FrameTicksNone,AxesFalse
Out[16]=