*************************************************************;
*** FINDING G-EFFICIENT DESIGN USING THE D AND A CRITERIA ***;
*************************************************************;

OPTION PS=60 LS=64 NODATE NONUMBER;

DATA IN;
     DO X1=-1 TO 1 BY .5;
     DO X2=-1 TO 1 BY .5;
     DO X3=-1 TO 1 BY .5; OUTPUT; END; END; END;
TITLE;

PROC OPTEX DATA=IN SEED=784;
  EXAMINE DESIGN;
  MODEL X1|X2|X3@2 X1*X1 X2*X2 X3*X3;
  GENERATE METHOD=FEDOROV ITER=40 CRITERION=D N=16;
  OUTPUT OUT=DSGN1 NUMBER=GBEST;
TITLE 'FIND G-EFFICIENT DESIGN USING THE D-CRITERION';
PROC PRINT DATA=DSGN1;

PROC OPTEX DATA=IN SEED=784;
  EXAMINE DESIGN;
  MODEL X1|X2|X3@2 X1*X1 X2*X2 X3*X3;
  GENERATE METHOD=FEDOROV ITER=40 CRITERION=A N=16;
  OUTPUT OUT=DSGN2 NUMBER=GBEST;
TITLE 'FIND G-EFFICIENT DESIGN USING THE A-CRITERION';
PROC PRINT DATA=DSGN2;

RUN;