Wolfram Computation Meets Knowledge

Wolfram Data Repository

Immediate Computable Access to Curated Contributed Data

Persistent Structures in the Code 357 Cellular Automaton

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

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

Examples

Basic Examples

Retrieve the resource:

In[1]:=
ResourceObject["Persistent Structures in the Code 357 Cellular \ Automaton"]
Out[1]=

Retrieve the default content:

In[2]:=
ResourceData["Persistent Structures in the Code 357 Cellular \ Automaton"]
Out[2]=

Plot the first 200 steps in evolution for these structures:

In[3]:=
ArrayPlot[CellularAutomaton[{357, {3, 1}, 1}, {#Cells, 0}, 200], ImageSize -> {Automatic, 300}] & /@ Normal@ResourceData[ "Persistent Structures in the Code 357 Cellular Automaton"]
Out[3]=

Find the repeating element of the third structure:

In[4]:=
ArrayPlot@ Last@FindTransientRepeat[ CellularAutomaton[{357, {3, 1}, 1}, {Normal@ ResourceData[ "Persistent Structures in the Code 357 Cellular Automaton"][[ 3, "Cells"]], 0}, 200], 3]
Out[4]=

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

Data Resource History

  • Date Created: 28 June 2017

Source Metadata

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

Publisher Information

  • Publisher of Record: Wolfram Research