Confluent

Author

Eric W. Weisstein
April 16, 2004

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

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/Confluent.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/

Code

DiagramAndRule[r_]:=Graphics[{
Rectangle[{0,.85},{1,1},NKSGraphics[507.1,{r[[1]]}]],Rectangle[{0,0},{1,.8},NKSGraphics[507.2,r]]}
]

Graphic

Show[GraphicsArray[
{
DiagramAndRule[{{"A"->"B"},"AAA",5}],
DiagramAndRule[{{"A"->"B"},"AAAA",5}],
DiagramAndRule[{{"A"->"B","BB"->"B"},"AA",5}],
DiagramAndRule[{{"AA"->"BA","AB"->"BA"},"AAA",5}]
}
],GraphicsSpacing->-.2]