1 files changed, 17 insertions, 0 deletions
diff --git a/331/CH7/EX7.14/Example_7_14.sce b/331/CH7/EX7.14/Example_7_14.sce
new file mode 100755
index 000000000..3e7f9f3ca
--- /dev/null
+++ b/331/CH7/EX7.14/Example_7_14.sce
@@ -0,0 +1,17 @@
+//Caption: Sample Size for Determining Sample Mean
+//Example7.14
+//Page219
+
+clc;
+Var = 64;//  variance of axial length of pistons in mm
+Std = sqrt(Var);
+D = 2;// deviation from mean length in mm
+alpha = 0.05;//significance level
+alpha = alpha/2;
+z = standard_normal_zstat(alpha)
+n = (z*Std/D)^2;
+disp(ceil(n),'Sample Size n =')
+//Result
+//Sample Size n =   
+// 
+//    62.  
+\ No newline at end of file