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