home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e004 / 1.img / MOTION.MCD < prev    next >
Encoding:
Text File  |  1987-10-23  |  1.8 KB  |  100 lines
  1. .MCD 20000 0
  2. .CMD PLOTFORMAT logs=0,0 subdivs=1,1 size=5,15 type=l
  3. .CMD FORMAT  rd=d ct=10 im=i et=3 zt=15 pr=3 mass length time charge
  4. .CMD SET ORIGIN 0
  5. .CMD SET TOL 0.001000
  6. .CMD MARGIN 0
  7. .CMD LINELENGTH 78
  8. .CMD SET PRNCOLWIDTH 8
  9. .CMD SET PRNPRECISION 4
  10. .TXT 1 2 2 33 
  11. a2,33,31,65
  12. Ballistics -- Projectile Motion 
  13. ===============================
  14. .TXT 3 1 1 14 
  15. a1,14,12,13
  16. Set up units
  17. .EQN 1 29 3 12 
  18. deg:π/180
  19. .EQN 1 -23 1 9 
  20. m:1L
  21. .EQN 0 10 1 11 
  22. sec:1T
  23. .TXT 2 -16 1 20 
  24. a1,20,18,19
  25. Initial conditions
  26. .EQN 2 6 3 15 
  27. v[0:100*m/sec
  28. .EQN 1 19 2 14 
  29. Θ[0:35*deg
  30. .TXT 0 15 1 32 
  31. a1,32,30,31
  32. ... Initial velocity and angle
  33. .EQN 3 -34 2 19 
  34. vx[0:v[0*cos(Θ[0)
  35. .EQN 0 19 2 19 
  36. vy[0:v[0*sin(Θ[0)
  37. .EQN 3 -19 2 11 
  38. x[0:0*m
  39. .EQN 0 12 2 11 
  40. y[0:0*m
  41. .TXT 0 22 1 28 
  42. a1,28,26,27
  43. ... Start motion at origin
  44. .EQN 2 -34 4 16 
  45. a:-9.8*m/sec^2
  46. .TXT 1 34 1 29 
  47. a1,29,27,28
  48. ... Acceleration of gravity
  49. .TXT 4 -40 1 21 
  50. a1,21,19,20
  51. Equations of motion
  52. .TXT 1 40 2 32 
  53. a2,32,30,46
  54. ... Time divided into discrete 
  55.     intervals
  56. .EQN 1 -34 1 14 
  57. i:1;120
  58. .EQN 0 16 3 14 
  59. t[i:i/10*sec
  60. .EQN 5 -16 2 12 
  61. vx[i:vx[0
  62. .EQN 0 16 2 19 
  63. vy[i:vy[0+a*t[i
  64. .TXT 0 18 1 24 
  65. a1,24,22,23
  66. ... Velocity over time
  67. .EQN 3 -34 2 19 
  68. x[i:x[0+vx[0*t[i
  69. .EQN 3 0 3 26 
  70. y[i:y[0+vy[0*t[i+a/2*t[i^2
  71. .TXT 1 34 1 14 
  72. a1,14,12,13
  73. ... Position
  74. .EQN 3 -34 5 17 
  75. Θ[i:atan(vy[i/vx[i)
  76. .TXT 1 34 1 25 
  77. a1,25,23,24
  78. ... Direction of motion
  79. .TXT 5 -40 1 13 
  80. a1,13,11,12
  81. Plot motion
  82. .TXT 1 28 1 20 
  83. a1,20,18,19
  84. POSITION OVER TIME
  85. .EQN 2 -22 14 68 
  86. 200*m&0*m&y[i{1,1,12,60,l}@1000*m&0*m&x[i
  87. .TXT 15 20 1 28 
  88. a1,28,26,27
  89. ANGLE OF MOTION, OVER TIME
  90. .EQN 2 -18 14 60 
  91. 45*deg&-45*deg&Θ[i,0{1,1,12,50,l}@12*sec&0*sec&t[i
  92. .TXT 1 -11 3 9 
  93. a3,9,7,20
  94. Angle, 
  95. in 
  96. degrees
  97. .TXT 13 30 1 18 
  98. a1,18,16,17
  99. Time, in seconds
  100.