掲示板 > Tiny Basic for Windows

三角関数のグラフの描き方？

(1/2) > >>

kikiriri:
以下プログラムについて

グラフィック画面にちょうど、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

kikiriri:
以下のプログラムで、

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

kikiriri:
以下プログラムを描きました


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

グラフの消し方がわかりません。

重なって出てくるので、いつちょうどなのかわかりません。

kikiriri:
グラフがすぐに消えてしまうので、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

kikiriri:
以下プログラム

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


これ以上は目検討では不可能ではないか

Navigation

[0] Message Index

[#] Next page