## Example 1
driftx <- expression(cos(t*x))
drifty <- expression(cos(t*y))
diffx <- expression(sin(t*x))
diffy <- expression(sin(t*y))
snssde2D(N=1000, T = 1, t0=0, x0=0, y0=0, Dt=0.001, driftx,
drifty, diffx, diffy, Step = FALSE, Output = FALSE,
Methods="SchTaylor")
## Example 2
driftx <- expression(cos(t*x*y))
drifty <- expression(sin(t*y*y))
diffx <- expression(atan2(y, x))
diffy <- expression(atan2(y, x))
snssde2D(N=5000, T = 1, t0=0, x0=1, y0=1, Dt=0.001, driftx,
drifty, diffx, diffy, Step = FALSE, Output = FALSE,
Methods="SchHeun")
Run the code above in your browser using DataLab