DM 'LOG;CLEAR;OUT;CLEAR;';
OPTIONS NODATE NONUMBER LS=108 PS=80;

DATA IN; INPUT SAMPLE DENSITY @@; CARDS;
  1 150.00  1 149.14  1 150.18  2 150.49  2 152.32  2 149.13
  3 150.23  3 149.18  3 150.47  4 148.58  4 151.10  4 150.15
  5 149.26  5 149.68  5 149.57  6 149.82  6 149.58  6 150.77
  7 152.49  7 151.74  7 150.21  8 150.14  8 152.01  8 148.77
  9 151.05  9 149.29  9 149.62 10 151.61 10 150.14 10 149.94
 11 146.14 11 150.10 11 150.79 12 150.02 12 146.84 12 149.90
 13 148.07 13 147.46 13 148.20 14 148.82 14 147.23 14 146.70
 15 148.79 15 149.71 15 152.41 16 150.80 16 146.53 16 147.78
 17 148.62 17 151.60 17 145.00 18 149.26 18 151.06 18 150.50
 19 152.04 19 151.26 19 145.45 20 150.03 20 149.66 20 145.07
 21 149.74 21 154.91 21 150.10 22 149.39 22 148.26 22 150.78
 23 152.03 23 150.84 23 150.49 24 152.33 24 148.53 24 151.45
 25 143.48 25 150.23 25 151.69 26 153.34 26 149.93 26 151.04
 27 150.48 27 151.15 27 150.97 28 151.29 28 151.80 28 152.58
 29 151.70 29 150.94 29 150.84 30 151.40 30 150.95 30 151.99
 31 151.43 31 151.37 31 150.95 32 151.34 32 150.52 32 153.70
 33 151.86 33 152.04 33 150.79 34 152.67 34 151.33 34 152.13
 35 149.86 35 148.96 35 149.63 36 149.39 36 148.84 36 147.64
 37 149.76 37 149.33 37 150.06 38 149.66 38 150.82 38 149.00
 39 148.16 39 147.98 39 150.11 40 150.48 40 149.62 40 148.20
 41 147.53 41 148.46 41 148.34 42 150.04 42 148.17 42 147.87
 43 147.71 43 154.38 43 152.08 44 146.07 44 152.03 44 148.21
 45 146.41 45 151.74 45 146.13 46 148.35 46 148.84 46 156.04
 47 144.00 47 153.22 47 146.32 48 151.39 48 150.39 48 150.73
 49 144.98 49 142.37 49 147.65 50 147.29 50 152.08 50 147.51
 51 149.23 51 150.19 51 150.25 52 149.63 52 149.03 52 149.23
 53 151.01 53 151.23 53 148.70 54 150.80 54 151.12 54 148.55
 55 150.46 55 151.35 55 149.46 56 148.37 56 147.78 56 151.47
 57 148.75 57 150.27 57 148.27 58 151.15 58 149.63 58 150.82
 59 151.50 59 151.28 59 149.06 60 149.99 60 151.15 60 150.93
SYMBOL V=DOT WIDTH=3;

PROC CUSUM DATA=IN GRAPHICS;
     XCHART DENSITY*SAMPLE
          /  h=5 k=0.5 delta=1 mu0=150 sigma0=1
             hminor=0 vminor=4 npanelpos=70
             vref=0 dataunits
             tablesummary;
     Label DENSITY = 'Mean Density Measurements'
           SAMPLE = 'SAMPLE';
TITLE 'CUSUM for MEAN DENSITY Measurements';
RUN;