Simule o processo de excedentes para seguros 

Simule o processo de excedentes para seguros, dado que o excedente inicial da seguradora é de 65 e o prémio total anual é de 61.2, se o número de pedidos seguir um processo de Poisson com média de 60 e as perdas forem distribuídas exponencialmente com média 1.

In[1]:=

X u = 65; c = 61.2; \[Lambda] = 60; m = 1; claims := CompoundPoissonProcess[\[Lambda], ExponentialDistribution[1/m]]; InsuranceProcess = TransformedProcess[u + c t - x[t], x \[Distributed] claims, t];

In[2]:=

X samples = RandomFunction[InsuranceProcess, {0, 120, 1}, 15]

Out[2]=

In[3]:=

X ListLinePlot[samples, ImageSize -> Medium]

Out[3]=