Cutting Sheet Metal

    {  Exmpl9.5-1_SheetMetalCutting.mpl  }

    {  Applications of Optimization with Xpress-MP  }

    {  Chapter 9.5,  Cutting Sheet Metal,  Size: 4x16,  Page 182 }


TITLE
    SheetMetalCutting;

INDEX
    pattern := 1..16;
    size := 1..4;

DATA
    Dem[size] := (8,13,5,15);
    Cut[size,pattern] := (1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,
                          2,1,0,1,1,0,3,2,1,0,5,4,3,2,1,0,
                          0,0,0,2,2,2,1,1,1,1,0,0,0,0,0,0,
                          0,1,3,0,1,3,0,2,3,5,0,1,3,5,6,8);

VARIABLE
    SUse[pattern];

MODEL

    MIN Sheets = SUM(pattern: SUse);

SUBJECT TO

    SatisfyDemand[size] -> SDEM:
        SUM(pattern: SUse * Cut) >= Dem;

INTEGER
    SUse;

END