Problem 9 
[Graphics:../Images/prob_gr_22.gif]
FilledPlot[PDF[dist,x],{x,600,1400}]

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

Solve[CDF[dist,x]==0.95, x][[1,1]]
[Graphics:../Images/prob_gr_24.gif]
Quantile[dist, 0.95]   (** alternate way **)
[Graphics:../Images/prob_gr_25.gif]
N[(1-CDF[dist,1200])/(1-CDF[dist,1100])]
[Graphics:../Images/prob_gr_26.gif]

Converted by Mathematica      February 10, 2001