1 * 2 *Vino heittoliike (ratanopeus) 3 *Alkunopeus v0=14 m/s Putoamiskiihtyvyys g=9.81 m/s^2 4 *Lähtökulma A=40(5)50 5 * 6 *Lähtökulma radiaaneina a=A/360*2*PI PI=3.141592653589793 7 * 8 *GPLOT y(x)=sqrt((v0*cos(a))^2+(v0*sin(a)-g*x/(v0*cos(a)))^2) 9 * 10 *HEADER=[Swiss(50)],Vino_heittoliike_(ratanopeus_m/s) 11 *x=[line_width(2)],0,20,0.05 12 *MODE=1000,600 XDIV=100,800,100 YDIV=100,400,100 PEN=[Swiss(15)] 13 *WSIZE=WY,0.6*WY WHOME=WX-WY,0 14 *XSCALE=0(1)20 YSCALE=0(1)20 GRID=1,1 OUTFILE=NOPEUS 15 *