P&T Company

   {  Exmpl8.1-1_PAndTComp.mpl  }

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

   {  Chapter 8.1,  Example 1, Transportation, Size 7x12, Page 305  }


TITLE
   P&TCompany;

INDEX
   cannery := (C1, C2, C3);
   warehouse := (W1, W2, W3, W4);

DATA
   ShipCost[cannery, warehouse] := (464, 513, 654, 867,
                                    352, 416, 690, 791,
                                    995, 682, 388, 685);
   Supply[cannery] := (75,125,100);
   Demand[warehouse] := (80, 65, 70, 85);

VARIABLE
   Ship[cannery, warehouse];

MODEL
   MIN TotalCost = SUM(cannery, warehouse: ShipCost * Ship);

SUBJECT TO
   Output[cannery] : SUM(warehouse: Ship) = Supply;
   Allocation[warehouse] : SUM(cannery : Ship) = Demand;

END