15 lines
272 B
Plaintext
15 lines
272 B
Plaintext
#axiom
|
|
I(1,1)
|
|
#rules
|
|
|
|
I(a,b) : a == 1; b <= 5 -> R(0.7)I(1, b + 1)
|
|
I(a,b) : a == 1; b == 6 -> R(0.7)I(2, 0)
|
|
|
|
|
|
I(a,b) : a == 2; b == 0 -> B(0.5,1)I(2, b + 1)
|
|
B(a,b) : b < 10 -> N\(90)[-B(a,b+1)]B(a,b+1)
|
|
|
|
R(a) : a < 1.5 -> R(a+0.14)
|
|
B(a,b) : a < 1 -> B(a+0.1, b)
|
|
|
|
#end rules |