Giapetto

   {  Exmpl3.1-1_Giapetto.mpl  }

   {  Winston, Operations Research, Applications and Algorithms, 4th ed.  }

   {  Chapter 3.1,  Example 1,  Product-Mix,  Size: 4x4,  Page 49  }


TITLE
    GiapettosWoodCarving;

INDEX
    toy   := (Soldier, Train);
    labor := (Carpentry, Finishing);

DATA
    Price[toy]        := (27, 21);
    VariableCost[toy] := (14, 10);
    RawMatCost[toy]   := (10, 9);

    Profit[toy]       := Price - VariableCost - RawMatCost;

    LaborHours[toy,labor] := (1, 2,
                              1, 1);

    LaborAvail[labor] := (80, 100);

    MaxSoldier        := 40;

VARIABLES
    Produce[toy];

MODEL

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

SUBJECT TO

    LaborCapacity[labor] :

        SUM(toy: LaborHours * Produce)  <=  LaborAvail;

    MaxDemand:

        Produce[Soldier]  <=  MaxSoldier;

END