***************************************
*   HILLIER & LIEBERMAN, P. 321       *
*   TRANSPORTATION PROBLEM            *
*   STANDARD LP FORMAT                *
*   DSN = H&L321LP.SAS                *
**************************************;


DATA NEW;
INPUT _TYPE_ $  _ROW_ $  _COL_ $ _COEF_;
CARDS;
MIN       COST         .                .
.         COST         X11          464.0
.         COST         X12          513.0
.         COST         X13          654.0
.         COST         X14          867.0
.         COST         X21          352.0
.         COST         X22          416.0
.         COST         X23          690.0
.         COST         X24          791.0
.         COST         X31          995.0
.         COST         X32          682.0
.         COST         X33          388.0
.         COST         X34          685.0
LE        SUPPLY1      X11            1.0
.         SUPPLY1      X12            1.0
.         SUPPLY1      X13            1.0
.         SUPPLY1      X14            1.0
.         SUPPLY1      _RHS_         75.0
LE        SUPPLY2      X21            1.0
.         SUPPLY2      X22            1.0
.         SUPPLY2      X23            1.0
.         SUPPLY2      X24            1.0
.         SUPPLY2      _RHS_        125.0
LE        SUPPLY3      X31            1.0
.         SUPPLY3      X32            1.0
.         SUPPLY3      X33            1.0
.         SUPPLY3      X34            1.0
.         SUPPLY3      _RHS_        100.0
EQ        DEMAND1      X11            1.0
.         DEMAND1      X21            1.0
.         DEMAND1      X31            1.0
.         DEMAND1      _RHS_         80.0
EQ        DEMAND2      X12            1.0
.         DEMAND2      X22            1.0
.         DEMAND2      X32            1.0
.         DEMAND2      _RHS_         65.0
EQ        DEMAND3      X13            1.0
.         DEMAND3      X23            1.0
.         DEMAND3      X33            1.0
.         DEMAND3      _RHS_         70.0
EQ        DEMAND4      X14            1.0
.         DEMAND4      X24            1.0
.         DEMAND4      X34            1.0
.         DEMAND4      _RHS_         85.0
;
PROC LP SPARSEDATA ;
     TITLE1 'TRANSPORTATION PROBLEM (p. 321)';
     TITLE2 'STANDARD LP FORMAT';

run;

DATA NEW;
INPUT _TYPE_ $  _ROW_ $  _COL_ $ _COEF_;
CARDS;
MIN       COST         .                .
.         COST         X11          464.0
.         COST         X12          513.0
.         COST         X13          654.0
.         COST         X14          867.0
.         COST         X21          352.0
.         COST         X22          416.0
.         COST         X23          690.0
.         COST         X24          791.0
.         COST         X31          995.0
.         COST         X32          682.0
.         COST         X33          388.0
.         COST         X34          685.0
EQ        SUPPLY1      X11            1.0
.         SUPPLY1      X12            1.0
.         SUPPLY1      X13            1.0
.         SUPPLY1      X14            1.0
.         SUPPLY1      _RHS_         75.0
EQ        SUPPLY2      X21            1.0
.         SUPPLY2      X22            1.0
.         SUPPLY2      X23            1.0
.         SUPPLY2      X24            1.0
.         SUPPLY2      _RHS_        125.0
EQ        SUPPLY3      X31            1.0
.         SUPPLY3      X32            1.0
.         SUPPLY3      X33            1.0
.         SUPPLY3      X34            1.0
.         SUPPLY3      _RHS_        100.0
EQ        DEMAND1      X11            1.0
.         DEMAND1      X21            1.0
.         DEMAND1      X31            1.0
.         DEMAND1      _RHS_         80.0
EQ        DEMAND2      X12            1.0
.         DEMAND2      X22            1.0
.         DEMAND2      X32            1.0
.         DEMAND2      _RHS_         65.0
EQ        DEMAND3      X13            1.0
.         DEMAND3      X23            1.0
.         DEMAND3      X33            1.0
.         DEMAND3      _RHS_         70.0
EQ        DEMAND4      X14            1.0
.         DEMAND4      X24            1.0
.         DEMAND4      X34            1.0
.         DEMAND4      _RHS_         85.0
;
PROC LP SPARSEDATA ;
     TITLE1 'TRANSPORTATION PROBLEM (p. 321)';
     TITLE2 'STANDARD LP FORMAT';

run;