# Plot the velocity field, nullclines, manifolds and several trajectories
example5_flowField <- flowField(example5,
xlim = c(-3, 3),
ylim = c(-3, 3),
points = 19,
add = FALSE)
y0 <- matrix(c(1, 0, -1, 0, 2, 2,
-2, 2, 0, 3, 0, -3), 6, 2,
byrow = TRUE)
example5_nullclines <- nullclines(example5,
xlim = c(-3, 3),
ylim = c(-3, 3))
example5_trajectory <- trajectory(example5,
y0 = y0,
tlim = c(0,10))
# Plot x and y against t
example5_numericalSolution <- numericalSolution(example5,
y0 = c(0, 3),
tlim = c(0, 3))
# Determine the stability of the equilibrium point
example5_stability <- stability(example5,
ystar = c(0, 0))
Run the code above in your browser using DataLab