Wolfram
Mathematica
8의 신기능: 확률과 통계의 해법 및 특성
◄
이전
|
다음
►
핵심 알고리즘
만날 확률 구하기
30 분 이내의 시차로 두 사람이 한 지점에 각각 따로 도착하여 5 분간 머물때, 이 두 사람이 만날 확률을 구해봅니다.
In[1]:=
X
prob = Probability[ Abs[x - y] <= 5, {x, y} \[Distributed] ProductDistribution[{UniformDistribution[{0, 30}], 2}]];
In[2]:=
X
Labeled[Show[ RegionPlot[Abs[x - y] <= 5, {x, 0, 30}, {y, 0, 30}, PlotStyle -> Hue[.6, .5, .8]], ImageSize -> 350], Style[Row[{TraditionalForm[Pr[Abs[x - y] < 5]], prob}, "="], FontFamily -> "Verdana"]]
Out[2]=