1 files changed, 31 insertions, 0 deletions
diff --git a/3513/CH6/EX6.5/Ex6_5.sce b/3513/CH6/EX6.5/Ex6_5.sce
new file mode 100644
index 000000000..a860ce32f
--- /dev/null
+++ b/3513/CH6/EX6.5/Ex6_5.sce
@@ -0,0 +1,31 @@
+//Compute process average and std. deviation
+//page no 112
+clear
+clc;
+
+USL = 51;
+LSL = 45;
+UNTL=USL;
+LNTL=LSL;
+sd=1;
+X2=48;
+mprintf("\The process average = %.2f \n",X2);
+A2 = 0.73;
+d2 = 2.059;
+D3 = 0.0;
+D4 = 2.28;
+R2= sd*d2;
+//Control limits for R-chart
+UCL = D4*R2;
+mprintf("\UCL = %.2f \n",UCL);
+LCL = D3*R2;
+mprintf("\LCL = %.2f \n",LCL);
+CL = R2;
+mprintf("\CL = %.2f \n",CL);
+//Control limits for X -chart
+UCL = X2 + A2*R2;
+mprintf("\UCL = %.2f \n",UCL);
+LCL = X2 - A2*R2;
+mprintf("\LCL = %.2f \n",LCL);
+CL=X2;
+mprintf("\CL = %.2f \n",CL);