blob: a860ce32f14a9dc3cb75d75de96f3e37bf72263d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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);
|
