A Million Bits of the Center Column of the Rule 30 Cellular Automaton

The center column of the rule 30 center automaton over a million steps of evolution

This data was presented in a graphic on page 871 of Stephen Wolfram’s “A New Kind of Science”.

(1000000 elements)

Examples

Basic Examples

Retrieve the resource:

In[1]:=
ResourceObject["A Million Bits of the Center Column of the Rule 30 \
Cellular Automaton"]
Out[1]=

Retrieve the default content:

In[2]:=
ResourceData["A Million Bits of the Center Column of the Rule 30 \
Cellular Automaton"]
Out[2]=

Count the number of 1s and 0s:

In[3]:=
Counts[ResourceData[
  "A Million Bits of the Center Column of the Rule 30 Cellular \
Automaton"]]
Out[3]=

Make a “random walk plot” of the first 100,000 elements:

In[4]:=
ListLinePlot[
 Accumulate[(-1)^
   Take[ResourceData[
     "A Million Bits of the Center Column of the Rule 30 Cellular \
Automaton"], 10^5]]]
Out[4]=

Plot the distribution of displacements for the walk:

In[5]:=
Histogram[
 Accumulate[(-1)^
   ResourceData[
    "A Million Bits of the Center Column of the Rule 30 Cellular \
Automaton"]]]
Out[5]=

Find the longest run of identical elements in the sequence:

In[6]:=
Max[Length /@ 
  Split[ResourceData[
    "A Million Bits of the Center Column of the Rule 30 Cellular \
Automaton"]]]
Out[6]=

Wolfram Research, "A Million Bits of the Center Column of the Rule 30 Cellular Automaton" from the Wolfram Data Repository. (2017) https://doi.org/10.24097/wolfram.25316.data

Source Metadata

Data Downloads