Muestreo aleatorio por medio de una función de densidad de probabilidad

Defina una distribución de fórmulas por medio de una función de densidad de probabilidad. La función de densidad no es continua y contiene una singularidad infinita.

In[1]:=

dist = ProbabilityDistribution[ Piecewise[{{1/(4 Sqrt[Abs[x]]), -1 < x < 0}, {2/3, 1/4 < x <= 1}}, 0], {x, -1, 1}]

Out[1]=

Genere una muestra aleatoria a partir de la distribución y compare su histograma con la función de densidad.

In[2]:=

sample = RandomVariate[dist, 10^5];

In[3]:=

Show[Histogram[sample, {-1, 1, 0.05}, "PDF", PlotTheme -> "Detailed"], Plot[PDF[dist, x], {x, -1, 1}, ImageSize -> Medium, PlotTheme -> "Marketing", PlotRange -> {0, 2.5}], ImageSize -> Medium]

Out[3]=