直線を２分割、３分割等均等に分割してみます。
図１は2〜31分割をしてみた画面です。
（図１）パソコン活用研究5番街（Visual Basic、Excel(VBA)、BASIC プログラミング研究）
数学的解法のアルゴリズム
--------------------------------------------------------------------------------------------
数学の解法のアルゴリズム。分割に関連するもの
--------------------------------------------------------------------------------------------
１ 直線を均等に分割する
直線を２分割、３分割等均等に分割してみます。
図１は2〜31分割をしてみた画面です。
（図１）
これは、簡単。特に説明するまでもないですね。
いろんなやり方がありますが、素直に以下のようにやってみました。
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 |