## Example 1: Ito sde
## dX(t) = W2(t) dt + W3(t) * dW1(t)
## dY(t) = dW2(t)
## dZ(t) = dW3(t)
## W1(t), W2(t) and W3(t) three independent Brownian motion
fx <- expression(y)
gx <- expression(z)
fy <- expression(0)
gy <- expression(1)
fz <- expression(0)
gz <- expression(1)
res <- snssde3d(driftx=fx,diffx=gx,drifty=fy,diffy=gy,driftz=fz,diffz=gz,N=1000)
res
## Sim <- res$XYZ
dev.new()
plot(res)
dev.new()
plot(res,plot.type="single")
dev.new()
plot3D(res,display="persp") ## in space (O,X,Y,Z)
## Example 2: Stratonovich sde
## dX(t) = 2*(3-X(t))* dt + (Y(t)+Z(t)) o dW1(t)
## dY(t) = 2*(3-Y(t))* dt + (X(t)+Z(t)) o dW2(t)
## dZ(t) = 2*(3-Z(t))* dt + (X(t)+Y(t)) o dW3(t)
fx <- expression(2*(3-x))
gx <- expression(y+z)
fy <- expression(2*(3-y))
gy <- expression(x+z)
fz <- expression(2*(3-z))
gz <- expression(x+y)
res <- snssde3d(driftx=fx,diffx=gx,drifty=fy,diffy=gy,driftz=fz,diffz=gz,
,N=1000,type="str")
res
dev.new()
plot(res,plot.type="single")
dev.new()
plot(res)
dev.new()
plot3D(res,display="rgl") ## in space (O,X,Y,Z)Run the code above in your browser using DataLab