%%credset.eps

clear all
close all

set(0, 'DefaultAxesFontSize', 16);
fs = 16;
lw = 2.5;  
msize = 6;
zz = 102.8 + 1.96 * sqrt(48) %end point of CS
lev = normpdf(zz, 102.8, sqrt(48)) %level of cutting line
% lev =0.0084
aa = linspace(70, 130, 300);
plot(normpdf(aa, 102.8, sqrt(48)),'k-','linewidth',lw)
hold on
plot(lev * ones(size(aa)), 'k--','linewidth',lw)
hold off
%--------------------------
print -deps 'C:\NPBook\Bayes\credset.eps'