home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / science / ode.arj / COUPOSC.ODE < prev    next >
Text File  |  1990-01-16  |  218b  |  18 lines
  1. # COUPOSC.ODE
  2. # Two coupled oscillators
  3. # Notice the beats !
  4.  
  5. $m -4
  6. $n 200
  7. $t 100
  8.  
  9. x1  = 0
  10. x2  = 9,8,7,6,5,4,3,2,1
  11. v1  = 0
  12. v2  = 0
  13. x1' = v1
  14. x2' = v2
  15. d   =  x2 - x1
  16. v1' = -x1 - 0.2*d
  17. v2' = -x2 + 0.1*d
  18.