*  Here is the INCOMPLETE solution to part of assignment 1 fall 1997
*  Some of the constraints are still incomplete.
SETS
GEOG geographic regions / A,B,C,D,E,F  /
FNS economic functions /FOOD,MACH,DUR,NONDUR/;
ALIAS (GEOG,GEOGD); 

TABLE R(GEOGD,FNS) annual requirements 
             FOOD   MACH  DUR  NONDUR 
A            5       30   20    10 
B           15      100   40    30 
C           20       80   50    40 
D           30       10   70    60 
E           10       60   30    20 
F           25       60   60    50    ; 


TABLE S(GEOG,FNS) annual supply
            FOOD   MACH  DUR  NONDUR 
A           1000    0      0    0 
B            0      1000   0    0 
C            0      1000  1000  0 
D            0       0     0    0 
E           1000     0     0    0 
F            0       0   1000   1000    ; 

SCALAR CTRAIN over 100 miles  dollars per ton per 100 miles/1/; 

SCALAR CTRUCK under 100 miles  dollars per ton per 100 miles/1.25/;

TABLE D(GEOG,GEOGD) annual requirements
            A    B    C    D    E    F
A           0    500  200  75   600  300
B          500    0   400 500   125  200
C          200   400   0  150   350  100
D           75   500  150  0    550  400
E          600   125  350 550    0   300
F          300   200  100 400   300   0   ;

PARAMETER DP(GEOG,FNS) truck or train cost per 100 miles;


VARIABLES
AMOUNT(GEOG,GEOGD,FNS) amount of product (function) shipped between regions
Z total transportaion costs in dollars;


POSITIVE VARIABLE
AMOUNT;

EQUATIONS
COST define objective function
DEMAND(GEOGD,FNS) satisfy demand at geog region for each function
SUPPLY(GEOG,FNS) satisfy supply at geog region for each function;

COST.. Z =E= SUM( (GEOG,GEOGD,FNS), D(GEOG,GEOGD)*AMOUNT(GEOG,GEOGD,FNS)  );

DEMAND(GEOGD,FNS).. SUM(GEOG, AMOUNT(GEOG,GEOGD,FNS)) =G= R(GEOGD,FNS);

SUPPLY(GEOG,FNS).. SUM(GEOGD, AMOUNT(GEOG,GEOGD,FNS)) =L= S(GEOG,FNS);

MODEL TRANSPORT /ALL/;
SOLVE TRANSPORT USING LP MINIMIZING Z;