投稿者 スレッド: Re:四角形の画き方教えて  (Read 1898 times)

takeuchi

  • 管理人
  • *****
  • 投稿: 96
Re:四角形の画き方教えて
« 投稿日:: 2018年 7月 30日 , 午前 10:55:31 »
> pdf になってから、コピーアンドペーストができません。

必要と思われるプログラムは,コピーできます。
そばにある荷札のようなアイコンをクリックすると得られます。
(ブラウザで見ているか,acrobat で見ているかによって得られ方が違いますが。)


このことはホームページのBASIC入門の項に書いてあります。
"上の公開pdf文書に含まれるプログラムは,文書中,プログラムの近くにある
タグアイコンをダブルクリック,あるいは右クリックすることで内容をテキスト
として取得できます。 ご利用ください。"
http://www.tbasic.org/tutorial/index.html



>for n=3 to 3000
>gbackcolor="Black"
>gscreen (300,300)
> ・・・

For文の中にgscreen (300,300)は入れてはいけません。
繰り返しの回数だけグラフ画面が開かれます。

> if  -0.5=<(0-150)^2+(y-150)^2<=0.5
これは正しい論理式ではありません。

if  (-0.5=<(0-150)^2+(y-150)^2) and ((0-150)^2+(y-150)^2<=0.5)
とすべきです。

> GForceColor = "#555555"

これは GForeColor = "#555555"です。


>for x=0 to 275 step0.000001
>  for y=0 to 275 step0.000001

このループは何回実行されると思いますか。
精密なものを実行したい気持ちは分かりますが,
少なくとも最初は数万回で終わるループで試すべきです。

PSet は点を描くので,少ない点ですと見えにくいものです。
ですから,よくわかる色で試すべきでしょう。

> if (a-150)^2+(b-150)^2=125^2 then pset(a,b),14

白に黄色では点が掛かれているか良くわかりません。

一応kikiririさんの趣旨に沿ったと思われるプログラムを作ってみました。
随分と荒いプログラムに見えるかもしれませんが,
これでも10万回レベルの回数を実行しています。

GBackColor=Black
Gscreen(400,400)
Window (-200,-200)-(200,200)
EM = 125^2-50
EP = 125^2+50
For a=-200 to 200 step 1
 For b=-200 to 200 step 1
   c=(a)^2+(b)^2
   If (EM<c) and (c<EP) then
    pset(a,b),14
   End if
 Next b
Next a
End