Metro Water

   {  Exmpl8.1-3_MetroWater.mpl  }

   {  Hillier and Lieberman, Introduction to Operations Research, 9th ed.  }

   {  Chapter 8.1,  Example 3, Transportation, Size 9x20 , Page 316  }


TITLE
   MetroWater;

INDEX
   river := (Colombo, Sacron, Calorie, Dummy);
   city := (Berdoo_min, Berdoo_extra, LosDevils, SanGo, Hollyglass);

DATA
   M := 999;
   DistCost[river, city] := (16, 16, 13, 22, 17,
                             14, 14, 13, 19, 15,
                             19, 19, 20, 23,  M,
                              M,  0,  M,  0,  0);
   Supply[river] := (50, 60, 50, 50);
   Demand[city] := (30, 20, 70, 30, 60);

VARIABLE
   Distribute[river, city] -> dstb;

MODEL
   MIN TotalCost = SUM(river, city: DistCost * Distribute);

SUBJECT TO
   Source[river] : SUM(city: Distribute) = Supply;
   Destination[city] : SUM(river: Distribute) = Demand;

END