Multi-Plant Planning

   {  Exmpl4.1-1_MultPlant.mpl  }

   {  H.P. Williams, Model Building in Mathematical Programming, 3rd ed.  }

   {  Chapter 4.1,  Example 1,  Production Planning,  Size: 5x4,  Page 45  }


TITLE
    MultiPlantModel;

INDEX
    factory  := (A, B);
    product  := (Standard, Deluxe) -> (Std, Dlx);
    process  := (Grinding, Polishing);

DATA
    Profit[product] := (10, 15);

    ProcessCapacity[factory,process] := (80, 60,
                                         60, 75);

    ProcessTime[process, factory, product] := (4, 2, 5, 3,
                                               2, 5, 5, 6);

    RawUse    :=   4;
    RawAvail  := 120;

VARIABLES
    Produce[factory,product] -> Prod;

MODEL

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

SUBJECT TO

    RawLimit:

       SUM(factory, product: RawUse * Produce)  <=  RawAvail;

    ProcessLimit[factory,process]:

       SUM(product: ProcessTime * Produce)  <=  ProcessCapacity;

END