*************************************************;
** In the manufacture of automotive tires, the **;
** diameter of steel belts inside the tire is  **;
** measured. The following data set contains   **;
** these measurements for 30 tires.            **;
*************************************************;

OPTIONS NODATE NONUMBER LS=100 PS=80;
/*
FILENAME TEMP 'EWMA5.EPS';
GOPTIONS DEVICE=PSEPSF
GSFNAME=TEMP
GSFLEN=132
VSIZE=5
GSFMODE=REPLACE;
*/
 data tires;
    input sample diameter @@;
    cards;
  1  24.05    2  23.99    3  23.95
  4  23.93    5  23.97    6  24.02
  7  24.06    8  24.10    9  23.98
 10  24.03   11  23.91   12  24.06
 13  24.06   14  23.96   15  23.98
 16  24.06   17  24.01   18  24.00
 19  23.93   20  23.92   21  24.09
 22  24.11   23  24.05   24  23.98
 25  23.98   26  24.06   27  24.02
 28  24.06   29  23.97   30  23.96
 ;
 symbol v=dot width=3;

 proc macontrol data=tires graphics;
    ewmachart diameter*sample / weight = 0.3
                   table tableid tableoutlim
                   meansymbol = square
                   lcllabel   = 'LCL for EWMA'
                   ucllabel   = 'UCL for EWMA';
 title 'EWMA Chart for Steel Belt Diameters';
 run;