- Thread starter
- #1

Code:

```
s = NDSolve[{x'[t] == y[t],
y'[t] == -x[t] - .2*2*y[t] - .2*x[t]^3 + 3*.2*Cos[t], x[0] == 1,
y[0] == 2}, {x, y}, {t, 100}]
ParametricPlot[Evaluate[{x[t], y[t] /. s}], {t, 0, 100}]
```

- Thread starter dwsmith
- Start date

- Thread starter
- #1

Code:

```
s = NDSolve[{x'[t] == y[t],
y'[t] == -x[t] - .2*2*y[t] - .2*x[t]^3 + 3*.2*Cos[t], x[0] == 1,
y[0] == 2}, {x, y}, {t, 100}]
ParametricPlot[Evaluate[{x[t], y[t] /. s}], {t, 0, 100}]
```