Transportation

    {  Exmpl5.3-1_Transport.mpl  }

    {  H.P. Williams, Model Building in Mathematical Programming, 3rd ed.  }

    {  Chapter 5.3,  Example 1,  Transportation,  Size: 7x9,  Page 79  }


TITLE
   Transportation;

INDEX
   supplier  :=  (S1, S2, S3);
   customer  :=  (T1, T2, T3, T4);

DATA
   Capacity[supplier]    := (135, 56, 93);

   Requirement[customer] := (62, 83, 39, 91);

   ShippingCost[supplier,customer] := (132,  -1,  97, 103,
                                        85,  91,  -1,  -1,
                                       106,  89, 100,  98);

VARIABLES
   Ship[supplier,customer]
      WHERE (ShippingCost >= 0);

MODEL

   MIN TotalCost = SUM(supplier,customer:  ShippingCost * Ship);

SUBJECT TO

   MaxCapacity[supplier]:

      SUM(customer: Ship)  <=  Capacity;

   MinRequirement[customer]:

      SUM(supplier: Ship)  >=  Requirement;

END