Gandhi Cloth

   {  Exmpl9.2-3_GandhiCloth.mpl  }

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

   {  Chapter 9.2,  Example 3,  Fixed Charge (MIP),  Size: 5x6,  Page 480  }


TITLE
    StockCoBudgeting;

INDEX
    clothing := (shirts, shorts, pants);

DATA
    ProdCost[clothing] := (200, 150, 100);
    Labor[clothing]    := (3, 2, 6);
    ClothUse[clothing] := (4, 3, 4);
    LaborCap   := 150;
    ClothAvail := 160;
    Revenue[clothing] := (12, 8,15);
    VarCost[clothing] := ( 6, 4, 8);
    M[clothing] := (40, 54, 25);

VARIABLES
    Produce[clothing];

BINARY VARIABLES
    RentMachine[clothing];

MODEL

    MAX Profit = SUM(clothing: Revenue * Produce - VarCost * Produce - ProdCost * RentMachine);

SUBJECT TO

    LaborLimit -> LBL:

        SUM(clothing: Produce * Labor) <= LaborCap;

    ClothLimit -> CHL:

        SUM(clothing: Produce * ClothUse) <= ClothAvail;

    Assignmachine[clothing] -> AMAC:

        Produce <= M * RentMachine;

END