## Euler methods
f <- expression(1*(1-x))
g <- expression(0.3)
Appdcon(x=seq(0,3,by=0.01), t = 2 , x0 = 1,t0=0, drift=f, diff=g)
## Kessler s'methods
f <- expression(1*(3-x))
g <- expression(x)
Appdcon(x=seq(0,5,by=0.01), t = seq(0,0.5,by=0.001) ,
x0 = 1,t0=0, drift=f, diff=g,Methods="Kessler")
## Shoji-Ozaki methods
f <- expression(4*x)
g <- expression(0.3*x)
Appdcon(x=seq(0,3,by=0.01), t = seq(0,1.5,by=0.010) ,
x0 = 1,t0=0, drift=f, diff=g,Methods="Shoji-Ozaki")
Run the code above in your browser using DataLab