Wolfram Research

Persistent Structures in the Code 1329 Cellular Automaton

A collection of the persistent structures in the k=3, r=1 totalistic code 1329 cellular automaton

These structures were given on page 287 of Stephen Wolfram's "A New Kind of Science"

Examples

Basic Examples

Retrieve the resource:

In[1]:=
ResourceObject["728d1c07-8892-4673-bab3-d889cc6c4623"]
Out[1]=

Retrieve the default content:

In[2]:=
ResourceData["728d1c07-8892-4673-bab3-d889cc6c4623"]
Out[2]=

Visualization

Plot the first 200 steps in evolution for the first 10 structures:

In[3]:=
ArrayPlot[CellularAutomaton[{1329, {3, 1}, 1}, {#Cells, 0}, 200], ImageSize -> {Automatic, 300}] & /@ Normal[Take[ResourceData["728d1c07-8892-4673-bab3-d889cc6c4623"], 10]]
Out[3]=

Show 2000 steps of evolution for the last structure in the collection:

In[4]:=
ArrayPlot[CellularAutomaton[{1329, {3, 1}, 1}, {#Cells, 0}, 2000]] &[
 Normal[Last[ResourceData["728d1c07-8892-4673-bab3-d889cc6c4623"]]]]
Out[4]=
In[5]:=

Wolfram Research, "Persistent Structures in the Code 1329 Cellular Automaton" from the Wolfram Data Repository (2017) https://doi.org/10.24097/wolfram.40362.data

Data Resource History

Source Metadata

Publisher Information