Problem 17
FilledPlot[PDF[dist,x],{x,100,140}]
N[1-(CDF[dist,123]-CDF[dist,113])]
Converted by
Mathematica
February 10, 2001