****************************************************************;
*** In the manufacture of a metal clip, the gap between the  ***;
*** ends of the clip is a critical dimension. To monitor the ***;
*** process for change in the average gap, subgroup samples  ***;
*** of five clips are selected daily.                        ***;
****************************************************************;

/*
OPTIONS NODATE NONUMBER LS=100 PS=80;
FILENAME TEMP 'EWMA3.EPS';
GOPTIONS DEVICE=PSEPSF
GSFNAME=TEMP GSFLEN=132 VSIZE=5 GSFMODE=REPLACE;
*/
 data clips1;
    input day @ ;
    do i=1 to 5;
       input gap @ ;
       output;
       end;
    drop i;
    cards;
  1  14.76  14.82  14.88  14.83  15.23
  2  14.95  14.91  15.09  14.99  15.13
  3  14.50  15.05  15.09  14.72  14.97
  4  14.91  14.87  15.46  15.01  14.99
  5  14.73  15.36  14.87  14.91  15.25
  6  15.09  15.19  15.07  15.30  14.98
  7  15.34  15.39  14.82  15.32  15.23
  8  14.80  14.94  15.15  14.69  14.93
  9  14.67  15.08  14.88  15.14  14.78
 10  15.27  14.61  15.00  14.84  14.94
 11  15.34  14.84  15.32  14.81  15.17
 12  14.84  15.00  15.13  14.68  14.91
 13  15.40  15.03  15.05  15.03  15.18
 14  14.50  14.77  15.22  14.70  14.80
 15  14.81  15.01  14.65  15.13  15.12
 16  14.82  15.01  14.82  14.83  15.00
 17  14.89  14.90  14.60  14.40  14.88
 18  14.90  15.29  15.14  15.20  14.70
 19  14.77  14.60  14.45  14.78  14.91
 20  14.80  14.58  14.69  15.02  14.85
 21  14.86  15.01  14.67  14.67  15.07
 22  14.93  14.53  15.07  15.10  14.98
 23  15.27  14.90  15.12  15.10  14.80
 24  15.02  15.21  14.93  15.11  15.20
 25  14.90  14.81  15.26  14.57  14.94
 26  14.78  15.29  15.13  14.62  14.54
 27  14.78  15.15  14.61  14.92  15.07
 28  14.92  15.31  14.82  14.74  15.26
 29  15.11  15.04  14.61  15.09  14.68
 30  15.00  15.04  14.36  15.20  14.65
 31  14.99  14.76  15.18  15.04  14.82
 32  14.90  14.78  15.19  15.06  15.06
 33  14.95  15.10  14.86  15.27  15.22
 34  15.03  14.71  14.75  14.99  15.02
 35  15.38  14.94  14.68  14.77  14.83
 36  14.95  15.43  14.87  14.90  15.34
 37  15.18  14.94  15.32  14.74  15.29
 38  14.91  15.15  15.06  14.78  15.42
 39  15.34  15.34  15.41  15.36  14.96
 40  15.12  14.75  15.05  14.70  14.74
 ;
 symbol v=dot width=3;

 proc macontrol data=clips1 ;
      ewmachart gap*day / weight  = 0.3
                          mu0 = 15 sigma0=.2
                          table tableid tableoutlim
                          xsymbol = mu0;
      label gap = 'Gap in Clip'
            day = 'Day';
 TITLE 'EWMA Chart -- weight=0.3 (mu, sigma known)';

 proc macontrol data=clips1 ;
      ewmachart gap*day / weight  = 0.3
                          table tableid tableoutlim ;
      label gap = 'Gap in Clip'
            day = 'Day';
 TITLE 'EWMA Chart -- weight=0.3 (mu, sigma unknown)';

 proc macontrol data=clips1 ;
      ewmachart gap*day / weight  = 0.5
                          table tableid tableoutlim ;
      label gap = 'Gap in Clip'
            day = 'Day';
 TITLE 'EWMA Chart -- weight=0.5 (mu, sigma unknown)';

 proc macontrol data=clips1 ;
      ewmachart gap*day / weight  = 0.3
                          mu0 = 15 sigma0=.2
                          table tableid tableoutlim
                          xsymbol = mu0
                          asymptotic;
      label gap = 'Gap in Clip'
            day = 'Day';
 TITLE 'EWMA Chart -- weight=0.3 (aysymptotic limits)';

 run;