Problem 17
[Graphics:../Images/prob_gr_40.gif]
FilledPlot[PDF[dist,x],{x,100,140}]

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

N[1-(CDF[dist,123]-CDF[dist,113])]
[Graphics:../Images/prob_gr_42.gif]


Converted by Mathematica      February 10, 2001