tbasic forum
掲示板 => Tiny Basic for Windows => スレッド開設者: kikiriri より 2018年 8月 01日 , 午後 01:14:15
-
以下プログラムについて
グラフィック画面にちょうど、1周期のサイングラフを描きたいんですが。
以下のプログラムから向上しないというか。
iをstepを小さくして回してみます
gscreen(800,800)
window(-360,-4)-(360,4)
line(0,-4)-(0,4),14
line(-360,0)-(360,0),14
mathgraph on
for i=2 to 100 step 10
print "i=";i;"のとき"
FOR x=-360 TO 360 step 0.01
y= -sin(x/i)
pset(x,y)
NEXT x
next i
-
以下のプログラムで、
1周期のグラフを描くためには、
iのstepを小さくしたんですが、
いつのグラフかわからなくなり、一度消して書き直してみます。
cls をどこに置くかわからないかもしれませんが、頑張ってみます。
gscreen(800,800)
window(-360,-4)-(360,4)
line(0,-4)-(0,4),14
line(-360,0)-(360,0),14
mathgraph on
for i=114 to 116 step 0.5
print "i=";i;"のとき"
FOR x=-360 TO 360 step 0.01
y= -2*sin(x/i)
pset(x,y)
NEXT x
next i
END
-
以下プログラムを描きました
gscreen(800,800)
window(-360,-4)-(360,4)
line(0,-4)-(0,4),14
line(-360,0)-(360,0),14
mathgraph on
cls
for i=114 to 116 step 0.5
print "i=";i;"のとき"
FOR x=-360 TO 360 step 0.001
y= -2*sin(x/i)
pset(x,y)
NEXT x
next i
END
グラフの消し方がわかりません。
重なって出てくるので、いつちょうどなのかわかりません。
-
グラフがすぐに消えてしまうので、sleep文を使います。
以下プログラム、
gscreen(800,800)
window(-360,-4)-(360,4)
mathgraph on
for i=115 to 116 step 0.001
print "i=";i;"のとき"
FOR x=-360 TO 360 step 0.01
y= -2*sin(x/i)
line(0,-4)-(0,4),14
line(-360,0)-(360,0),14
pset(x,y)
NEXT x
cls 2
next i
END
-
以下プログラム
gscreen(800,800)
window(-360,-4)-(360,4)
mathgraph on
for i=115.001 to 115.002 step 0.0001
print "i=";i;"のとき"
FOR x=-360 TO 360 step 0.01
y= -2*sin(x/i)
line(0,-4)-(0,4),14
line(-360,0)-(360,0),14
pset(x,y)
NEXT x
sleep(100)
cls 2
next i
END
これ以上は目検討では不可能ではないか
-
目検討ですが
左右非対称にサインカーブが来るのでどこかに、
バグが生きてそうなので、
デバッグしたいです。
デバッグではなく、計画性と、数学的知識の足りなさですかですか??!!!
-
pset の最初の点と最後の点を色を変えて、黄色い座標軸の端で交差しているか確かめたいけど。
やり方がわからないし、
最後の点の座標点がわかれば、ちょうどX軸と交わっているか(-360,0)と(360,0)を通っているかチェックしたいですけど、
左端はほぼ一致するんですが右端が交差せずx軸の下を通って下で終わります。
-
以前の仕事柄CADを使っていたので、目検討と言ってしまいましたが。
どう言うべきですか。
1周期の長さを、計算により出だしたり、
グラフィックの端点の、座標値を表示してあげればいいような気がしてきました。
自分で何をしてるのかわからなくなりました。
よき、ごじょげんを、おねがいします。
すみません