「二進木」を少し木らしくしてみました。幹と枝に分け、右左に枝が出るようにしました。２桁で入力してください。ex. 01 02 03 … 10 11 12 …と20年間は育ててみてください。次は［フィボナッチ木］へ

//「前の二進木」のプログラム
repeat 20
　c=get_char(60)
　up 0,-150,90;down
　tree(80,c)
function tree(a,i)
　if i>0
　　forward a
　　left 40
　　tree((a/1.618),i-1)
　　right 80
　　tree((a/1.618),i-1)
　　left 40
　　backward a
　return

↓　どこを変更したのかわかりますか？　　2003.12.29　完成！

//新しい「二進木」のプログラム
repeat 20
　c=get_char(60)
　up 0,-150,90;down
　tree(80,c)
function tree(a,b)
　if b>0
　　forward a
　　tree((a/1.3),b-1)
　　if (c-b)/2==int((c-b)/2)
　　　left 40
　　else
　　　right 40
　　tree((a/1.618),b-1)
　　if (c-b)/2==int((c-b)/2)
　　　right 40
　　else
　　　left 40
　　backward a
　return

もどる