NKS Cover Image

The cellular automaton evolution shown on the cover of Stephen Wolfram’s “A New Kind of Science”

This includes the initial conditions and raw data for the cellular automaton evolution, as given on page 851.

(401 elements)

Examples

Basic Examples

Retrieve the resource:

In[1]:=
ResourceObject["NKS Cover Image"]
Out[1]=

Retrieve the default content:

In[2]:=
First[ResourceData["NKS Cover Image"]]
Out[2]=

Show in the colors used on the book:

In[3]:=
ArrayPlot[ResourceData["NKS Cover Image"], 
 ColorRules -> {1 -> RGBColor[
    0.9803921568627451, 0.88, 0.44313725490196076`], 
   0 -> RGBColor[{0.9607843137254902, 0.5686274509803921, 
     0.16862745098039217`}]}]
Out[3]=

Find the initial condition for the cellular automaton:

In[4]:=
ResourceData["NKS Cover Image", All]["InitialCondition"]
Out[4]=

Wolfram Research, "NKS Cover Image" from the Wolfram Data Repository. (2017) https://doi.org/10.24097/wolfram.50863.data

Source Metadata

Data Downloads