- Thread starter
- #1
Code:
s := NDSolve[{x'[t] == -x[t] + 0.08*y[t] + x[t]^2*y[t],
y'[t] == .6 - 0.08*y[t] - x[t]^2*y[t], x[0] == 0, y[0] == 0}, {x,
y}, {t, 100}];
ParametricPlot[Evaluate[{x[t], y[t] /. s}], {t, 0, 100}]
s := NDSolve[{x'[t] == -x[t] + 0.08*y[t] + x[t]^2*y[t],
y'[t] == .6 - 0.08*y[t] - x[t]^2*y[t], x[0] == 0, y[0] == 0}, {x,
y}, {t, 100}];
ParametricPlot[Evaluate[{x[t], y[t] /. s}], {t, 0, 100}]