Wolfram 언어™

포뮬라 분포의 정규화

ProbabilityDistribution을 옵션 Method->"Normalize"와 함께 사용하여 자동으로 정규화 계수를 계산합니다.

In[1]:=

uv\[ScriptCapitalD] = ProbabilityDistribution[Sin[x] Exp[-x], {x, 0, Pi}, Method -> "Normalize"]

Out[1]=

분포에서 샘플을 가지고 히스토그램을 밀도 함수와 비교합니다.

In[2]:=

Show[Histogram[RandomVariate[uv\[ScriptCapitalD], 10^4], Automatic, PDF, PlotTheme -> "Detailed"], Plot[PDF[uv\[ScriptCapitalD], x], {x, 0, Pi}, PlotTheme -> "Marketing"], ImageSize -> Medium]

Out[2]=

다변량 분포를 옵션 Method->"Normalize"로 정규화합니다.

In[3]:=

mv\[ScriptCapitalD] = ProbabilityDistribution[Boole[x^2 + y^2 < 1], {x, 0, 1}, {y, 0, 1}, Method -> "Normalize"]

Out[3]=

In[4]:=

Show[Histogram3D[ RandomVariate[mv\[ScriptCapitalD], 10^4, Method -> "AcceptanceRejection"], 10, PDF, PlotTheme -> "Detailed"], Plot3D[PDF[mv\[ScriptCapitalD], {x, y}], {x, 0, 1}, {y, 0, 1}, PlotStyle -> None], ImageSize -> Medium]

Out[4]=