Come tracciare questo pdf

Question

Permettere $x\sim N(\mu,\sigma^2)$ e $y=\max\{e^{x-1}-\kappa,0\}$. Come ottenere e tracciare il pdf di y? In particolare, ci sarà una massa di probabilità a$y=0$, che è un punto non differenziabili. Provai

pdfY[y_] := \[Piecewise] {
   {1/(y + κ) f[Log[y + κ] + 1], y > 0},
   {N[Integrate[f[x], {x, -10, Log[κ] + 1}]], y = 0},
   {0, y < 0}
  }

ma non funziona bene.

Answer 1

TransformedDistribution[Max[E^(x-1)-κ,0],x\[Distributed] NormalDistribution[μ,σ]]//PDF[#,y]&

1/2 DiracDelta[y+κ] (1+Erf[(1-μ+Log[y+κ])/(Sqrt[2] σ)]) (-1+UnitStep[-y]) (UnitStep[-y] (-1+UnitStep[-κ])-UnitStep[-κ])-DiracDelta[y] (1+Erf[(1-μ+Log[κ])/(Sqrt[2] σ)]) (-1+UnitStep[-κ])-(E^(-((1-μ+Log[y+κ])^2/(2 σ^2))) (-1+UnitStep[-y]) (1+UnitStep[-y] (-1+UnitStep[-y-κ]) (-1+UnitStep[-κ])-UnitStep[-y-κ] UnitStep[-κ]))/(Sqrt[2 π] (y+κ) σ)

quindi puoi tracciarlo.