Problem 20 
[Graphics:../Images/prob_gr_50.gif]
[Graphics:../Images/prob_gr_51.gif]
FilledPlot[{PDF[distA,x],PDF[distB,x]},{x,0,20000}]

[Graphics:../Images/prob_gr_52.gif]

pA=N[1-CDF[distA,9000]]
[Graphics:../Images/prob_gr_53.gif]
pB=N[1-CDF[distB,9000]]
[Graphics:../Images/prob_gr_54.gif]
p=pA*(2/3)+pB*(1/3)
[Graphics:../Images/prob_gr_55.gif]
pA/p
[Graphics:../Images/prob_gr_56.gif]

Converted by Mathematica      February 10, 2001