1 files changed, 9 insertions, 0 deletions
diff --git a/1475/CH9/EX9.4/Example_9_4.sce b/1475/CH9/EX9.4/Example_9_4.sce
new file mode 100755
index 000000000..bc3c2f34f
--- /dev/null
+++ b/1475/CH9/EX9.4/Example_9_4.sce
@@ -0,0 +1,9 @@
+//Example 9.4 Based on 15 subgroups each of size 200 taken at intervals
+clc;
+clear;
+n=200;
+p=0.068;
+CL=p;
+UCL=p+3*(sqrt((p*(1-p)/n)));
+LCL=p-3*(sqrt((p*(1-p)/n)));
+disp(LCL,"Lower Control Limit =",UCL,"Upper Control Limit",CL,"Centre Line = ",p,"Average fraction defective =",n," Sample Size =");