1 files changed, 34 insertions, 0 deletions
diff --git a/291/CH13/EX13.5a/eg13_5a.sce b/291/CH13/EX13.5a/eg13_5a.sce
new file mode 100755
index 000000000..44c7fa500
--- /dev/null
+++ b/291/CH13/EX13.5a/eg13_5a.sce
@@ -0,0 +1,34 @@
+X = [141 162 150 111 92 74 85 95 76 68 63 74 103 81 94 68 95 81 102 73];
+total = sum(X);
+num = 20;
+Xbar = mean(X);
+lcl = Xbar - 3*sqrt(Xbar);
+ucl = Xbar + 3*sqrt(Xbar);
+disp(ucl, "UCL is");
+disp(lcl, "LCL is");
+for i =1:20
+    if(X(i)> ucl )
+        total = total - X(i);
+        num= num -1;
+    end   
+end
+Xbar = total/num;
+
+lcl = Xbar - 3*sqrt(Xbar);
+ucl = Xbar + 3*sqrt(Xbar);
+disp("After recomputation")
+disp(ucl, "UCL is");
+disp(lcl, "LCL is");
+total = total - X(4);
+num = num-1;
+disp(Xbar, "Xbar is");
+disp(X(4), " is");
+Xbar = total/num;
+lcl = Xbar - 3*sqrt(Xbar);
+ucl = Xbar + 3*sqrt(Xbar);
+disp("After second recomputation")
+disp(ucl, "UCL is");
+disp(lcl, "LCL is");
+disp(Xbar, "It appears that the process is in control with mean");
+
+//The mean after the second recomputation is incoreectly calculated in the textbook. It should be 
+((17*84.41)-111 )/16 = 82.748 whereas the value given in the book is 82.56. The values of UCL and LCL 
+change accordingly.
+\ No newline at end of file