Dorian

   {  Exmpl3.2-2_Dorian.mpl  }

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

   {  Chapter 3.2,  Example 2,  Blending/Advertising,  Size: 4x2,  Page 60  }


TITLE
    DorianAdvertising;

INDEX
    adtype    := (Comedy, Football);
    customers := (HIW, HIM);

DATA
   MinuteCost[adtype]       := (50, 100);

   SeenBy[adtype,customers] := (7,  2,
                                2, 12);

   TargetReach[customers]   := (28, 24);

VARIABLES
    Purchase[adtype];

MODEL

     MIN TotalCost = SUM(adtype: MinuteCost * Purchase);

SUBJECT TO
    MustReach[customers]:

        SUM(adtype: SeenBy * Purchase) >= TargetReach;

END