Wolfram 언어™

특이 확률 밀도 함수에서 랜덤 샘플링

형식적인 분포를 확률 밀도 함수로 정의합니다. 밀도 함수는 연속적이 아니며 무한의 특이성을 포함합니다.

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]=

분포에서 무작위 샘플을 생성하고 히스토그램을 밀도 함수와 비교합니다.

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]=