Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- s = NDSolve[{x'[t] == 0.3 y[t],
- y'[t] == -0.1 x[t] - 0.01 y[t] + 0.2 y[t]^2 + 0.5 Cos[2 Pi t] + 4,
- x[0] == 1, y[0] == 1}, {x[t], y[t]}, {t, 0, 50 Pi}]
- ParametricPlot[Evaluate[{x[t], y[t]} /. s], {t, 0, 50 Pi}, PlotStyle -> Red]
Add Comment
Please, Sign In to add comment