パソコン活用研究5番街(Visual Basic、Excel(VBA)、BASIC プログラミング研究)

数学的解法のアルゴリズム

--------------------------------------------------------------------------------------------
数学の解法のアルゴリズム。分割に関連するもの
--------------------------------------------------------------------------------------------

1 直線を均等に分割する

直線を2分割、3分割等均等に分割してみます。


図1は2〜31分割をしてみた画面です。

(図1)


これは、簡単。特に説明するまでもないですね。
いろんなやり方がありますが、素直に以下のようにやってみました。
lineでまず長さ400の横線を引いたあと、
divに均等に分割した時の1区分の長さを設定し、以下、順番にdiv*1, div*2, div*3・・・
の場所に縦の区切り線をlineで引いていきました。

10 cls
20 for i=1 to 30
30 line(0,i*10) -(400, i*10)
35 div=400/(i+1)
40 for k=1 to i
50 line(div*k,i*10-3)-(div*k,i*10+3)
60 next k
70 a$=input$(1)
80 next i



TOP PAGE >Basic活用研究目次