Basic Examples (3)
Basic Examples
(3)
Five steps in the evolution of a tag system:
In[2]:=
Out[2]=
{{1},{0,1},{1,1,0},{1,0,0,1},{0,0,1,0,1},{0,1,0,1,1,0}}
Plot the evolution of a tag system:
In[57]:=
ArrayPlot[{1,{{0}{1,0},{1}{0,1}}},{1},20],ColorRules{0Gray,1Black},MeshFalse
Out[57]=
———
In[46]:=
rules1={{{0}{1,0},{1}{1,0}},{{0}{0,1},{1}{1,0}},{{0}{0,1},{1}{0}}};
In[47]:=
ArrayPlot[#,ColorRules{0Gray,1Black},MeshFalse]&/@[{1,#},{1},20]&/@rules1
Out[47]=
,
,
———
In[5]:=
rules2={{{0,0}{1,1},{1,0}{},{0,1}{1,0},{1,1}{0,0,0}},{{0,0}{},{1,0}{1},{0,1}{1,1},{1,1}{1,1,0}},{{0,0}{0},{1,0}{1,0,1},{0,1}{0,0,0},{1,1}{0,1,1}},{{0,0}{0,1},{1,0}{1,0,0},{0,1}{0},{1,1}{1,0,0}},{{0,0}{1,0},{1,0}{1},{0,1}{0,1,0},{1,1}{0,0,1}},{{0,0}{0},{1,0}{0,1,0,1},{0,1}{0,0},{1,1}{1,1,1,0}}};
In[6]:=
ArrayPlot[#,ColorRules{0Gray,1Black},MeshFalse]&/@[{2,#},{1,1},110]&/@rules2
Out[6]=
,
,
,
,
,
In[80]:=
ListLinePlotLength/@[{2,#},{1,1},1000],FillingAxis,AspectRatio14&/@rules2
Out[80]=
,
,
,
,
,