Wagon Loading Balancing

    {  Exmpl9.1-1_WagonLoad.mpl  }

    {  Applications of Optimization with Xpress-MP  }

    {  Chapter 9.1,  Wagon Loading Balancing,  Size: 19x49,  Page 166 }


TITLE
    WagonLoad;

INDEX
    box   := 1..16;
    wagon := 1..3;

DATA
    Weight[box] := (34, 6, 8,17,16, 5,13,21,25,31,14,13,33, 9,25,25);
    Wmax := 100;
    LowerMaxWeight := SUM(box: Weight/3);

VARIABLE
    Load[box,wagon];
    MaxWeight;

MODEL

    MIN MaxWeight;

SUBJECT TO

    OneBoxOneWagon[box] -> OBOW:
        SUM(wagon: Load) = 1;

    WeightLimit[wagon] -> WLM:
        SUM(box: Weight * Load) <= MaxWeight;

BOUNDS
    MaxWeight <= Wmax;
    MaxWeight >= CEIL(LowerMaxWeight);

END