home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR8 / DOSPEL37.ZIP / DO-98.ZIP / MOTION.CDO < prev    next >
Text File  |  1991-12-31  |  359b  |  26 lines
  1. "
  2. "DOCALC2 example: Ballistics or projectile motion.
  3.  
  4. V0   := 100
  5. Angle:= 35
  6.  
  7.  
  8. Vx0 := V0*cos(angle)
  9. Vy0 := V0*sin(angle)
  10. Vy  := Vy0-9.81*time
  11.  
  12. "Position (X,Y) , time and speed (V) after landing:
  13.  
  14.  
  15. X   := Vx0*time
  16. Y   := Vy0*time-9.81/2*sqr(time)
  17. V   := sqrt(sqr(Vx0)+abs(sqr(Vy)))
  18. Time:= 2*(Vy0/9.81)
  19.  
  20.  
  21. X     
  22. int(Y)
  23. V     
  24. Time  
  25.  
  26.