Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- DSolve[{q'[t] == 2 p[t], p'[t] == -2 [Omega] q[t], q[0] == 0,
- p[0] == 1}, {q[t], p[t]}, t]
- ParametricPlot[{Cos[2 t Sqrt[[Omega]]] -
- Sqrt[[Omega]] Sin[2 t Sqrt[[Omega]]], (
- Sqrt[[Omega]] Cos[2 t Sqrt[[Omega]]] + Sin[2 t Sqrt[[Omega]]])/
- Sqrt[[Omega]]} /. [Omega] -> 1, {t, 0, 5}]
Add Comment
Please, Sign In to add comment