Persistent Structures in the Code 20 Cellular Automaton

The known persistent structures in the k=2, r=2 totalistic code 20 cellular automaton

These structures were given on page 284 of A New Kind of Science (Wolfram, 2002)

(4 columns, 20 rows)

Examples

Basic Examples (1)

Retrieve a Dataset of persistent structures in code 20 cellular automaton:

In[1]:=

$ResourceData[\!$\* TagBox["\"\<Persistent Structures in the Code 20 Cellular Automaton\>\"", #& , BoxID -> "ResourceTag-Persistent Structures in the Code 20 Cellular Automaton-Input", AutoDelete->True]$]$

Out[1]=

Visualization (2)

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

In[2]:=

$ArrayPlot[CellularAutomaton[{20, {2, 1}, 2}, {#Cells, 0}, 100], ImageSize -> {Automatic, 200}] & /@ Normal[Take[ResourceData[\!$\* TagBox["\"\<Persistent Structures in the Code 20 Cellular Automaton\>\"", #& , BoxID -> "ResourceTag-Persistent Structures in the Code 20 Cellular Automaton-Input", AutoDelete->True]$], 10]]$

Out[2]=

Reproduce the images on page 284 of A New Kind of Science:

In[3]:=

$Row[Map[ArrayPlot[ Flatten@{Table[0, 3], #, Table[0, 3]} & /@ CellularAutomaton[{20, {2, 1}, 2}, {#Cells, 0}, {200, If[#Shift == 0, Automatic, 40]}], ImageSize -> {Automatic, 200}] &, Normal[Take[ResourceData[\!$\* TagBox["\"\<Persistent Structures in the Code 20 Cellular Automaton\>\"", #& , BoxID -> "ResourceTag-Persistent Structures in the Code 20 Cellular Automaton-Input", AutoDelete->True]$], 13][Select[#Shift >= 0 &]]]]]$

Out[3]=

Bibliographic Citation

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

Data Resource History

Date Created: 2 June 2017

Source Metadata

Creator: Stephen Wolfram
Source: https://www.wolframscience.com/nksonline/page-284
Citation: Stephen Wolfram, "A New Kind of Science" (2002)

Publisher Information

Publisher of Record: Wolfram Research