fibonacci2.L3A Test Bed

Generated by L3_IDE 3.033/English



「フィボナッチ木」です。年数は01,02,03 …というように半角で入力してください。23年までは育ててみてください。「二進木」との比較が面白い。再度[2進木へ]

//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年数を「半角」で2桁入れてください。(01≦s≦30)"
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完成!

2進木へ