## Example 1: Ito sde
## dX(t) = (X(t)-Y(t)) dt + 2*Y(t) dW1(t)
## dY(t) = (Y(t)-X(t)) dt + 2*X(t) dW2(t)
fx <- expression(x-y)
gx <- expression(2*y)
fy <- expression(y-x)
gy <- expression(2*x)
res <- snssde2d(driftx=fx,diffx=gx,drifty=fy,diffy=gy,N=1000,x0=1,y0=1)
res
## Sim <- res$XY
dev.new()
plot(res)
dev.new()
plot(res,plot.type="single")
dev.new()
plot2d(res,type="l") ## in plane (O,X,Y)
## Example 2: Stratonovich sde
## dX(t) = tan(X(t)-Y(t)) dt + (Y(t)-X(t)) o dW1(t)
## dY(t) = tan(Y(t)-X(t)) dt + (X(t)-Y(t)) o dW2(t)
fx <- expression(tan(x-y))
gx <- expression(y-x)
fy <- expression(tan(y-x))
gy <- expression(x-y)
res1 <- snssde2d(driftx=fx,diffx=gx,drifty=fy,diffy=gy,N=10000,type="str",x0=1,y0=-1)
res1
dev.new()
plot(res1)
dev.new()
plot(res1,plot.type="single")
dev.new()
plot2d(res1,type="n") ## in plane (O,X,Y)
points2d(res1,col=rgb(0,100,0,50,maxColorValue=255), pch=16)Run the code above in your browser using DataLab