1 files changed, 29 insertions, 0 deletions
diff --git a/3513/CH6/EX6.3/ch6_3.sce b/3513/CH6/EX6.3/ch6_3.sce
new file mode 100644
index 000000000..f051af969
--- /dev/null
+++ b/3513/CH6/EX6.3/ch6_3.sce
@@ -0,0 +1,29 @@
+//Compute percentage of the product will not meet the specification
+//page no 107
+clear
+clc;
+//a
+UCL=129;
+LCL=121;
+X1=125;
+CL=X1;
+USL=135;
+LSL=121;
+A2 = 0.73;
+d2 = 2.059;
+D3 = 0.0;
+D4 = 2.28;
+R2=(UCL-X1)/A2;
+mprintf("\nR2 = %.2f ",R2);
+sd=R2/d2;
+PC=6*sd;
+UNTL = X1 + 3*sd;
+LNTL = X1 + 3*sd;
+Z=(LSL-CL)/sd   //Percentage of rejection
+mprintf("\nPercentage of rejection = %.2f ",Z);
+mprintf("\n a) Probability from table 0.0122 = 1.22 ");
+Z=(LSL-127)/sd   //Percentage of rejection
+mprintf("\nPercentage of rejection = %.2f ",Z);
+mprintf("\n b) Probability from table 0.00135 = 0.135 ");
+TR=0.135*2;
+mprintf("\n c)Since it is symmetric the total percentage of rejection = %.2f ",TR);