## Flame-up process
f <- function(x, y) y^2 - y^3
s1 <- cranknic(f, 0, 200, 0.01)
s2 <- euler_heun(f, 0, 200, 0.01)
## Not run:
# plot(s1$t, s1$y, type="l", col="blue")
# lines(s2$t, s2$y, col="red")
# grid()## End(Not run)
Run the code above in your browser using DataLab