mass_spring_damper.al 505 B

12345678910111213141516171819
  1. CONSTANTS M,K,B,G
  2. MOTIONVARIABLES' POSITION',SPEED'
  3. VARIABLES O
  4. FORCE = O*SIN(T)
  5. NEWTONIAN CEILING
  6. POINTS ORIGIN
  7. V_ORIGIN_CEILING> = 0>
  8. PARTICLES BLOCK
  9. P_ORIGIN_BLOCK> = POSITION*CEILING1>
  10. MASS BLOCK=M
  11. V_BLOCK_CEILING>=SPEED*CEILING1>
  12. POSITION' = SPEED
  13. FORCE_MAGNITUDE = M*G-K*POSITION-B*SPEED+FORCE
  14. FORCE_BLOCK>=EXPLICIT(FORCE_MAGNITUDE*CEILING1>)
  15. ZERO = FR() + FRSTAR()
  16. KANE()
  17. INPUT TFINAL=10.0, INTEGSTP=0.01
  18. INPUT M=1.0, K=1.0, B=0.2, G=9.8, POSITION=0.1, SPEED=-1.0, O=2
  19. CODE DYNAMICS() dummy_file.c