「フィボナッチ木」です。年数は01,02,03 …というように半角で入力してください。２３年までは育ててみてください。「二進木」との比較が面白い。
再度[２進木へ]
この二進木を少し変形すると・・・木になります。
//fibonaccitree
canvas 0
Canvas 0,clear = [random(0.7,1),random(0.7,1),random(0.7,1)]
up -150,160;down;color (0,0,1)
print "【フィボナッチ木】\n\n年数を「半角」で２桁入れてください。（0１≦ｓ≦３０）"
repeat 50
f=get_char(120)
e=get_char(120)
c=f*10+e
k=1;h=1
repeat c-1 //フィボナッチ数を求める再帰命令
h=h+k
k=h-k
Canvas 0,clear = [random(0.7,1),random(0.7,1),random(0.7,1)]
up -120,150;down;color (0,0,1)
print "【フィボナッチ木】 |c|年 枝は|k|本"
up 0,-170,90;down
tree(55,c)
function tree(a,b)
if b>0
color 0,0.2,0
width b/2
forward a
tree((a/1.2),b-1)
color 0,0,0
if (c-b)/2==int((c-b)/2)
left 40
else
right 40
color 0,0,0
tree((a/1.6),b-2) //ここを変えただけです。
if (c-b)/2==int((c-b)/2)
right 40
else
left 40
color 0.1,0.5,0.1
backward a
return
フィボナッチの木はなかなかできずに苦労しました。これができたのはまったく偶然です。2003.12.31完成！