Function Repository Resource:

SequentialSubstitutionSystemRulePlot

Source Notebook

Generate the rule icon for a sequential substitution system

Contributed by: Stephen Wolfram

ResourceFunction["SequentialSubstitutionSystemRulePlot"][rules]

generates a plot representing rules for a sequential substitution system rule.

Details and Options

Black dots indicate which elements are being replaced at each step.

Examples

Basic Examples (2) 

Generate rule icons:

In[1]:=
ResourceFunction[
 "SequentialSubstitutionSystemRulePlot"][{{1, 0} -> {0, 1, 0}}, 2]
Out[1]=

Slightly more complicated rules:

In[2]:=
ResourceFunction[
 "SequentialSubstitutionSystemRulePlot"] /@ {{{1, 1} -> {1, 0}, {0, 0} -> {0, 1}, {0} -> {1, 0}}, {{1, 0, 1} -> {0, 1, 0}, {0} -> {1}, {1} -> {0, 0}}, {{1, 0, 1} -> {0, 1, 0}, {0} -> {1}, {1} -> {1, 0, 0}}, {{1, 1, 1} -> {1, 0}, {0, 0} -> {0, 1}, {1, 0} -> {0, 0, 1}}, {{0, 0, 0} -> {0, 1}, {1, 1} -> {1, 0}, {1} -> {1, 0, 0}}, {{1, 1, 1} -> {1, 0}, {0, 0} -> {0, 1}, {0} -> {1, 0}}, {{0, 0, 0, 1} -> {1, 0, 0}, {0, 0, 0} -> {1, 1}, {1} -> {0, 0, 1}}, {{1, 0, 0} -> {0, 1, 1, 1}, {1, 0, 1, 1} -> {0, 1, 0}, {0} -> {0, 0, 1, 1}}}
Out[2]=

Requirements

Wolfram Language 11.3 (March 2018) or above

Version History

  • 1.0.0 – 08 March 2019

Source Metadata

License Information