TV Spots

   {  Exmpl11.4-2a_TVSpots.mpl  }

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

   {  Chapter 11.4,  Example 2a, Marketing, Size 4x12, Page 482  }


TITLE
   TVSpots;

INDEX
   product:= 1..3;
   spots := 0..3;

DATA
   Profit[product, spots] :=   (0,  1, 3, 3,
                0,  0, 2, 3,
                0, -1, 2, 4);
   J[product, spots=1..3] :=   (1, 2, 3,
                1, 2, 3,
                1, 2, 3);

BINARY VARIABLE
   y[product, spots];   !Equals 1 if product i fills j spots

MODEL
   MAX TotProfit = SUM(product, spots: Profit * y);

SUBJECT TO
   NumProd[product]: SUM(spots=1..3: y) <= 1;
   NumSpots : SUM(product, spots: J*y) = 5;

END