# Plot the velocity field, nullclines and several trajectories
example11_flowField <- flowField(example11,
xlim = c(-5, 5),
ylim = c(-5, 5),
points = 21,
add = FALSE)
y0 <- matrix(c(4, 4, -1, -1,
-2, 1, 1, -1), 4, 2,
byrow = TRUE)
example11_nullclines <- nullclines(example11,
xlim = c(-5, 5),
ylim = c(-5, 5),
points = 200)
example11_trajectory <- trajectory(example11,
y0 = y0,
tlim = c(0, 10))
# Determine the stability of the equilibrium points
example11_stability_1 <- stability(example11, ystar = c(0, 0))
example11_stability_2 <- stability(example11, ystar = c(0, 2))
example11_stability_3 <- stability(example11, ystar = c(1, 1))
example11_stability_4 <- stability(example11, ystar = c(3, 0))
Run the code above in your browser using DataLab