Новое в системе 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]=