TagSystem | Example Notebook

Basic Examples
(3)

Five steps in the evolution of a tag system:

In[2]:=

[◼]

TagSystem

[{1,{{0}{1,0},{1}{0,1}}},{1},5]

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

[◼]

TagSystem

[{1,{{0}{1,0},{1}{0,1}}},{1},20],ColorRules{0Gray,1Black},MeshFalse

Out[57]=

———

Rules from A New Kind of Science, page 93:

In[46]:=

rules1={{{0}{1,0},{1}{1,0}},{{0}{0,1},{1}{1,0}},{{0}{0,1},{1}{0}}};

In[47]:=

ArrayPlot[#,ColorRules{0Gray,1Black},MeshFalse]&/@

[◼]

TagSystem

[{1,#},{1},20]&/@rules1

Out[47]=



,



———

Rules from A New Kind of Science, page 94:

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]:=