part 1
program trajec
implicit none
real::Dist,Displ,Vel,Init_vel,Angle,Diff,Adiff,Time,&
Ang_sin,Ang_cos,Sx,Sy
integer::Itime,Utime,Guess
character(len=1)::Answ
character(len=5)::Miss
real,parameter::Grav=9.81,Delt_t=0.5,Rad_cnv=0.01745,Alpha=1
Previous slide
Next slide
Back to first slide
View graphic version