| 1 |
root |
1.1 |
ruleset ( G => f; G(s,r) => f(s); G(s,r,t) => f(s); ) |
| 2 |
|
|
|
| 3 |
|
|
define La 5; // initial length - main segment |
| 4 |
|
|
define Ra 1.15; // growth rate - main |
| 5 |
|
|
define Lb 1.3; // initial length - lateral segment |
| 6 |
|
|
define Rb 1.25; // growth rate - lateral |
| 7 |
|
|
define Lc 3; // initial length - marginal notch |
| 8 |
|
|
define Rc 1.19; // growth rate - notch |
| 9 |
|
|
|
| 10 |
|
|
roseleaf(n) => [{A(0,0).}][{A(0,1)}],n; |
| 11 |
|
|
A(t,d) : d=0 => .G(La,Ra).[+B(t)G(Lc,Rc,t).}] |
| 12 |
|
|
[+B(t){.]A(t+1,d); |
| 13 |
|
|
A(t,d) : d=1 => .G(La,Ra).[-B(t)G(Lc,Rc,t).}] |
| 14 |
|
|
[-B(t){.]A(t+1,d); |
| 15 |
|
|
B(t) : t>0 => G(Lb,Rb)B(t-1); |
| 16 |
|
|
G(s,r) => G(s*r,r); |
| 17 |
|
|
G(s,r,t): t>1 => G(s*r,r,t-1); |
