Production Economics

    {  Exmpl19.1-1_ProductionCostMin.mpl  }

    {  AMPL A Modeling Language for Mathematical Programming, 2nd Edition }

    {  Chapter 19.1,  Production Equilbria, Complimentary,  Size: 6x8,  Page 421 }



TITLE
    ProductionCostMIn;

INDEX
    act  := (P1,P1a,P2,P2a,P2b,P3,P3c,P4);
    prod := (AA1,AC1,BC1,BC2,NA2,NA3);

DATA
    Cost[act]    := (2450,1290,1850,3700,2150,2200,2370,2170);
    Demand[prod] := 10000 * ( 7, 8, 9, 7,40,80);
    Io[act,prod] := (  60,  20,  10,  15, 938, 295,
                        8,   0,  20,  20,1180, 770,
                        8,  10,  15,  10, 945, 440,
                       40,  40,  35,  10, 278, 430,
                       15,  35,  15,  15,1182, 315,
                       70,  30,  15,  15, 896, 400,
                       25,  40,  30,  30,1029, 370,
                       60,  20,  15,  10,1397, 450);

VARIABLE
    Level[act];

MODEL

    MIN TotalCost = SUM(act: Cost * Level);

SUBJECT TO

    Meetdemand[prod] -> DEM:
         SUM(act: Io * Level) >= Demand;

END