04/06/11 19:22
URLﾘﾝｸ(hp.vector.co.jp)
こういうときにお手軽なplot機能がたいへん役にたちます。ぜひお試しを。
こんな感じで実行すると曲線を4本ちゃちゃっとプロットしてくれますです。
SET WINDOW 0,20,-26,0
DRAW grid WITH SCALE(1,1)
OPTION ANGLE DEGREES
LET v0=1
LET d =0
LET g=9.8
LET c=0
FOR v0=1 TO 5 STEP 1
LET v0x=v0*COS(d)
LET v0y=v0*SIN(d)
LET t=0
let y=0
let c=c+1
set color c
PLOT
DO WHILE y>=-26
let x=v0x*t
let y=v0y*t - 0.5*g*t*t
plot x,y;
let t=t+0.01
loop
plot
next v0
END