Wyndor Glass Dual

   {  Exmpl7.1-1_WyndorGlass.mpl  }

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

   {  Chapter 7.1,  Example 1,  Dual,  Size: 3x2,  Page 278  }


TITLE
    WyndorGlass;

INDEX
    product :=  (Door, Window);
    plant   :=  1..3;

DATA
    TimeAvail[plant]             := (4, 12, 18);

    ProdTime[plant, product]     := (1, 0,
                                     0, 2,
                                     3, 2);

    Profit[product]               := (3000.00, 5000.00);

VARIABLES
    Produce[product] -> Prod;
    PlanDual[plant];

MODEL

    MAX TotalProfit = SUM(product: Profit * Produce);

SUBJECT TO

    TimeCapacity[plant] -> TimeCap:

        SUM(product: ProdTime * Produce) <= TimeAvail;

END