New in Wolfram
Mathematica
8: Probability and Statistics Solvers and Properties
◄
previous

next
►
Core Algorithms
Find a Meeting Probability
Find the probability that two persons who arrive independently at a certain place within a 30minute interval and stay for five minutes will meet each other.
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]=