powered by
euler_heun(f, a, b, y0, n = 100, improved = TRUE, ...)
t
y
euler_heun
cranknic
## 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) plot(s1$t, s1$y, type="l", col="blue") lines(s2$t, s2$y, col="red") grid()
Run the code above in your browser using DataLab