Problem 14
[Graphics:../Images/prob_gr_34.gif]
FilledPlot[PDF[dist,x],{x,20,60}]

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

N[1-CDF[dist,37]]
[Graphics:../Images/prob_gr_36.gif]


Converted by Mathematica      February 10, 2001