Sequential Substitution System

Author

Eric W. Weisstein
April 16, 2004

This notebook downloaded from http://mathworld.wolfram.com/notebooks/ComputationalSystems/SequentialSubstitutionSystem.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/SequentialSubstitutionSystem.html.

©2005 Wolfram Research, Inc. except for portions noted otherwise

Additional Authors

Based on ideas in Stephen Wolfram's A New Kind of Science

Figures adapted from Stephen Wolfram's A New Kind of Science

Legacy documentation for NKSExplorer package available at https://reference.wolfram.com/legacy/applications/nksx/

Graphics

NKSExamples[90.3]

Show[Graphics[{
Rectangle[{0,0},{1,1},NKSGraphics[90.3,Join[Drop[NKSExamples[90.3][[1]],-1],{20}]]],
Rectangle[{.5,.8},{.68,.97},NKSGraphics[90.1]]
},PlotRange->All]]

rule={{{0,1}->{1,0},{1}->{0,1}},{0,1,0,1},20};

Show[Graphics[{
Rectangle[{0,0},{1,1},NKSGraphics[90.3,rule]],
Rectangle[{.5,.83},{.68,.96},NKSGraphics[90.1,{First[rule]}]]
},PlotRange->All]]