s434678/LPy-project
1
0
Fork 0
Code Issues Pull Requests 1 Releases Wiki Activity

qed #1

Open
s434766 wants to merge 1 commits from krzywizna into master
pull from: krzywizna
merge into: s434678:master
Conversation 0 Commits 1 Files Changed 1 +6 -6
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files
Showing only changes of commit f190c28cd2 - Show all commits

12
populus_nigra_italica.lpy
View File

@ -9,22 +9,22 @@ derivation length: 50
production:
A(x,k) :
if x >= a-20:
produce [-(a-x)F(1,0.05+0.25/k)C(1,k)]/(75)F(0.7,0.05+0.25/k)A(x+1,k+0.1)
produce [-(a-x)SetGuide(path,50)F(1,0.05+0.25/k)C(1,k)]/(75)SetGuide(path,50)F(0.7,0.05+0.25/k)A(x+1,k+0.1)
elif x <= 5:
produce F(0.7,0.05+0.25/k)A(x+1,k+0.1)
else:
produce[-(30)F(1,0.05+0.25/k)B(1,k)]/(75)F(0.5,0.05+0.25/k)A(x+1,k+0.1)
produce[-(30)SetGuide(path,50)F(1,0.05+0.25/k)B(1,k)]/(75)SetGuide(path,50)F(0.5,0.05+0.25/k)A(x+1,k+0.1)
B(x,k):
if x <= 5:
r1 = random.random()
r2 = random.random()
produce [^(r1*50)F(1,0.05+0.25/k)-(20);Leaf(1)][&(r2*50)F(1,0.05+0.25/k)-(20);Leaf(1)]F(1,0.05+0.25/k)[-(20);Leaf(1)]B(x+1,k+1)
produce [^(r1*50)SetGuide(path,10)F(1,0.05+0.25/k)-(20);Leaf(1)][&(r2*50)F(1,0.05+0.25/k)-(20);Leaf(1)]SetGuide(path,10)F(1,0.05+0.25/k)[-(20);Leaf(1)]B(x+1,k+1)
C(x,k):
if x <= 5:
r1 = random.random()
r2 = random.random()
produce [^(r1*50)F(1,0.05+0.25/k)-(20);Leaf(1)]F(1,0.05+0.25/k)[-(20);Leaf(1)]C(x+1,k+1)
produce [^(r1*50)SetGuide(path,50)F(1,0.05+0.25/k)-(20);Leaf(1)]SetGuide(path,50)SetGuide(path,0)F(1,0.05+0.25/k)[-(20);Leaf(1)]C(x+1,k+1)
Leaf(x):
produce ~l(1)
produce ,(2) ~l(1)
interpretation:
endlsystem
endlsystem