Wolfram Research

Function Repository Resource:

SequentialSubstitutionSystemPlot

Source Notebook

Visualization of the evolution of a sequential substitution system

Contributed by: Stephen Wolfram

ResourceFunction["SequentialSubstitutionSystemPlot"][history]

plots the evolution history of a sequential substitution system.

Details and Options

Plots of sequential substitution systems keep track of where the sequence was matched in each row by inserting black dots.
The option "Spaced" determines whether to show space between each row. The default value is False.

Examples

Basic Examples

Plot the evolution of a sequential substitution system:

In[1]:=
ResourceFunction["SequentialSubstitutionSystemPlot"][
 ResourceFunction[
   "SequentialSubstitutionSystem"][{{0, 1, 0} -> {0, 0, 1}, {0} -> {0,
      1, 0}}, {1, 0, 1, 0}, 50]]
Out[1]=

Options

Spaced

To track where the sequence is matched:

In[2]:=
ResourceFunction["SequentialSubstitutionSystemPlot"][
 ResourceFunction[
   "SequentialSubstitutionSystem"][{{0, 1, 0} -> {0, 0, 1}, {0} -> {0,
      1, 0}}, {1, 0, 1, 0}, 13], "Spaced" -> True]
Out[2]=
In[3]:=
ResourceFunction["SequentialSubstitutionSystemPlot"][
 ResourceFunction[
   "SequentialSubstitutionSystem"][{{1, 0, 1} -> {0, 1, 0}, {0} -> {1}, {1} -> {1, 0, 0}}, {1, 0, 1, 0}, 100], "Spaced" -> False]
Out[3]=

Requirements

Wolfram Language 11.3 (March 2018) or above

Resource History

Source Metadata

See Also

License Information