WOLFRAM

Wolfram言語 ＆ システムドキュメントセンター

出会いの確率を求める

30分の区間内にある場所にそれぞれ独立して到着し，5分間留まる2人の人がお互いに出会う確率を求める．

Wolfram Language code: prob = Probability[Abs[x - y] ≤ 5, {x, y}ProductDistribution[{UniformDistribution[{0, 30}], 2}]];
Wolfram Language code: 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"]]