# Plot the velocity field, nullclines and several trajectories
example9_flowField <- flowField(example9,
xlim = c(-3, 3),
ylim = c(-3, 3),
points = 19,
add = FALSE)
y0 <- matrix(c(1, 0, -3, 2,
2, -2, -2, -2), 4, 2,
byrow = TRUE)
example9_nullclines <- nullclines(example9,
xlim = c(-3, 3),
ylim = c(-3, 3))
example9_trajectory <- trajectory(example9,
y0 = y0,
tlim = c(0, 10))
# Determine the stability of the equilibrium point
example9_stability <- stability(example9,
ystar = c(0, 0))
Run the code above in your browser using DataLab