Utilice TransformedProcess para crear un proceso personalizado 

Defina proceso de Poisson compensado.

In[1]:=

X poisson\[ScriptCapitalP] = PoissonProcess[\[Lambda]]; \[ScriptCapitalP]1 = TransformedProcess[p[t] - Mean[poisson\[ScriptCapitalP][t]], p \[Distributed] poisson\[ScriptCapitalP], t];

Simule el proceso con una tasa de unidad por 30 segundos.

In[2]:=

X data1 = RandomFunction[\[ScriptCapitalP]1 /. \[Lambda] -> 1, {0, 30, 0.1}, 3];

In[3]:=

X ListLinePlot[data1]

Out[3]=

Calcule la función de covarianza para el proceso.

In[4]:=

X CovarianceFunction[\[ScriptCapitalP]1, s, t]

Out[4]=

Defina un proceso de Bessel en dos dimensiones.

In[5]:=

X \[ScriptCapitalP]2 = TransformedProcess[Sqrt[ x[t]^2 + y[t]^2], {x \[Distributed] WienerProcess[], y \[Distributed] WienerProcess[]}, t];

Simule el proceso por 10 segundos.

In[6]:=

X data2 = RandomFunction[\[ScriptCapitalP]2, {0, 10, 0.01}, 3];

In[7]:=

X ListLinePlot[data2, PlotRange -> All]

Out[7]=

Calcule la media y las funciones de varianza para el proceso.

In[8]:=

X {Mean[\[ScriptCapitalP]2[t]], Variance[\[ScriptCapitalP]2[t]]}

Out[8]=