Wolfram Function Repository

Instant-use add-on functions for the Wolfram Language

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.
ResourceFunction["SequentialSubstitutionSystemPlot"] visualizes the result of the resource function SequentialSubstitutionSystem.
ResourceFunction["SequentialSubstitutionSystemPlot"] supports all options of Graphics, with the additional option "Spaced".
The option "Spaced" determines whether to show a space between each row. The default value is False.

Examples

Basic Examples (1) 

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 (2) 

Spaced (2) 

Use the option "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]=

Show no spacing between rows:

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

Version History

  • 1.0.1 – 17 May 2021
  • 1.0.0 – 15 March 2019

Source Metadata

  • Citation:
    • Stephen Wolfram (2002), A New Kind of Science

Related Resources

License Information