Here is some Maple code for drawing an L-System:
with(Fractals:-LSystem)
cons := ["A" = "draw:1", "+" = "turn:-90", "B" = "turn:90"]
state, rules := "A", ["A" = "AB+BA+B", "B" = "B+AAB"]
newstate1 := Iterate(state, rules, 7)
LSystemPlot(newstate1, cons)
How can I make the same graphic using Mathematica?
I tried the first few steps:
SubstitutionSystem[{"A" -> "AB+BA+B", "B" -> "B+AAB"}, "A", {3}]
{"AB+BA+BB+AAB+B+AABAB+BA+B+B+AAB"}