Wolfram
Mathematica
8의 신기능: 확률과 통계의 해법 및 특성
◄
이전
|
다음
►
핵심 알고리즘
양측 확률 연산
표준 정규 분포에 대한 양측 확률을 연산합니다.
In[1]:=
X
prob = Probability[x^2 > 2, x \[Distributed] NormalDistribution[0, 1]];
In[2]:=
X
{p1, p2, p3} = {Plot[PDF[NormalDistribution[0, 1], x], {x, -3, 3}, Filling -> Axis, PlotStyle -> Thick, FillingStyle -> Hue[.15, .6, .95]], Plot[PDF[NormalDistribution[0, 1], x], {x, Sqrt[2], 3}, AxesOrigin -> {0, 0}, Filling -> Axis, PlotStyle -> Thick, FillingStyle -> Hue[.2, .7, .7]], Plot[PDF[NormalDistribution[0, 1], x], {x, -3, -Sqrt[2]}, AxesOrigin -> {0, 0}, Filling -> Axis, PlotStyle -> Thick, FillingStyle -> Hue[.2, .7, .7]]};
In[3]:=
X
Labeled[Show[p1, p2, p3, Ticks -> False, ImageSize -> 400], Style[Row[{TraditionalForm[Pr[\!\(TraditionalForm\` \*SuperscriptBox[\(x\), \(2\)] > 2\)]], TraditionalForm[prob], N[prob]}, "="], FontFamily -> "Verdana"]]
Out[3]=