Choice of Expansion projects

    {  Exmpl13.6-1_Expansion.mpl  }

    {  Applications of Optimization with Xpress-MP  }

    {  Chapter 13.6, Choice of Expansion Projects,  Size: 5x5,  Page 278 }


TITLE
    Expansion;

INDEX
    project := 1..5;
    time    := 1..5;

DATA
    Cost[project,time] := (1.8,2.4,2.4,1.8,1.5,
                           1.2,1.8,2.4,0.6,0.5,
                           1.2,1.0,0.0,0.48,0.0,
                           1.4,1.4,1.2,1.2,1.2,
                           1.6,2.1,2.5,2.0,1.8);
    Cap[time] := (4.8, 6,4.8,4.2,3.5);
    Ret[project] := (10.8,4.8,3.2,4.44,12.25);

VARIABLE
    Choose[project];

MODEL

    MAX Profit = SUM(project: Ret * Choose);

SUBJECT TO

    CapitalLimit[time] -> CAPL:
        SUM(project: Cost * Choose) <= Cap;

BINARY
    Choose;

END