Wolfram
Mathematica
8의 신기능: 매개 변수 확률 분포
◄
이전
|
다음
►
핵심 알고리즘
가중 볼이 들어간 Urn 모델
항아리에 가중치 1의 빨간 공 10개와 가중치 2의 파란 공이 15개가 들어 있습니다. 12개의 공을 독립적으로 꺼낼때, 빨간공과 파란공이 꺼내질 확률은 가중치에 의존 합니다. 빨간 공을 들어올릴 수는
FisherHypergeometricDistribution
에 따릅니다. 빨간색/파란색 도표는 이러한 추출 20 회의 시뮬레이션을 나타낸 것입니다.
In[1]:=
X
\[ScriptCapitalD] = Block[{m1 = 10, m2 = 15, n = 12, w1 = 1, w2 = 2}, FisherHypergeometricDistribution[n, m1, m1 + m2, w1/w2]];
In[2]:=
X
sample = RandomVariate[\[ScriptCapitalD], 20];
In[3]:=
X
DiscretePlot[PDF[\[ScriptCapitalD], x], {x, 0, 12}, PlotStyle -> Hue[.4, .9, .6], BaseStyle -> {FontFamily -> "Verdana"}, PlotLabel -> \[ScriptCapitalD], ExtentSize -> 2/3, ImageSize -> 400, Epilog -> Inset[BarChart[Transpose[{sample, 12 - sample}], ChartLayout -> "Stacked", Ticks -> {False, True}, ChartStyle -> {Lighter[Red, 0.5], Lighter[Blue, 0.5]}, ImageSize -> 200], {Right, 0.3}, {Right, Top}]]
Out[3]=