Estoy intentando mejorar mi comprensión de los procesos de salto.
Como primer paso, quiero simular trayectorias de muestra para el proceso $$dX(t) = dw(t) + dJ(t)$$ donde $dw(t)$ es un movimiento browniano y $dJ(t)$ es un proceso Poisson compuesto con intensidad $\lambda = 5$ y $\mathcal{D} = \mathcal{N}(0,1)$ . ¿Puede alguien verificar que el razonamiento de mi código de Mathematica es correcto?
T = 10;
n = 1000;
dt = T/n;
lambda = 5;
dw = RandomVariate[NormalDistribution[0, Sqrt[dt]], n];
dJ = Table[
If[RandomVariate[BernoulliDistribution[lambda dt]] == 0, 0,
RandomVariate[NormalDistribution[]]], {i, 1, n}];
dX = dw + dJ;
BrownianJumpPath = Accumulate[Prepend[dX, 0]];
ListLinePlot[BrownianJumpPath, Frame -> True]