function [] = chap_5_st_10()
% 
% Written by:
% -- 
% John L. Weatherwax                2007-04-02
% 
% email: wax@alum.mit.edu
% 
% Please send comments and especially bug reports to the
% above email address.
% 
%-----
  
clc; 

% part a: 
z = (40000-34000)/4000;
1 - normcdf( z )

% part b: 
zr = (35000-34000)/4000;
zl = (30000-34000)/4000;
normcdf( zr ) - normcdf( zl )

% part c: 
z1 = (40000-34000)/4000;
z2 = (30000-34000)/4000;
( 1 - normcdf( z1 ) )/( 1 - normcdf( z2 ) )