Construction of a cabled network

    {  Exmpl12.4-1_CableConnections.mpl  }

    {  Applications of Optimization with Xpress-MP  }

    {  Chapter 12.4, Construction of a Cabled Network,  Size: 31x36,  Page 250 }


TITLE
    CableConnections;

DATA
    Nterm := 6;

INDEX
    terminal := 1..Nterm;
    terminal2 := terminal;

DATA
    Dist[terminal,terminal2] := (  0,120, 92,265,149,194,
                                 120,  0,141,170, 93,164,
                                  92,141,  0,218,103,116,
                                 265,170,218,  0,110,126,
                                 149, 93,103,110,  0, 72,
                                 194,164,116,126, 72,  0);

VARIABLE
    Connect[terminal,terminal2<>terminal];
    Level[terminal];

MODEL

    MIN Length = SUM(terminal,terminal2: Dist * Connect);

SUBJECT TO

    ConnectionNumber -> FDEM:
        SUM(terminal,terminal2<>terminal: Connect) = Nterm - 1;

    AvoidSubcycle[terminal,terminal2<>terminal] -> ASC:
        Level[terminal:=terminal2] >= Level + 1 - Nterm + Nterm * Connect;

BINARY
    Connect;

END