summaryrefslogtreecommitdiff
path: root/291/CH8/EX8.3c/eg8_3c.sce
blob: e49e145f11683431ddb5d513fb8eb302391f298e (plain)
1
2
3
4
5
6
7
8
9
10
noise_var = 4;
num = 5;
Xbar = 10;
u = 8;
statistic = sqrt(num/noise_var)*(Xbar - u);
compare = cdfnor("X", 0, 1, 0.975, 0.025);
lim1 = statistic + compare;
lim2 = statistic - compare;
prob = cdfnor("PQ", lim1 , 0,1 ) - cdfnor("PQ", lim2 , 0,1 );
disp(prob)