Graph 用GLPK求解Steiner树

Graph 用GLPK求解Steiner树,graph,ampl,glpk,mathprog,Graph,Ampl,Glpk,Mathprog,我在使用GPLK方面是新手,我正试图通过它来解决Steiner树问题。我使用的数学公式是: 这是我正在测试的一段代码: # Number of terminal vertexes param p, integer; # Number of steiner vertexes param s, integer; # Terminal vertexes set set P := 1..p; # Steiner vertexes set set S := (p+1)..(p+s); # Ver

我在使用GPLK方面是新手,我正试图通过它来解决Steiner树问题。我使用的数学公式是:

这是我正在测试的一段代码:

# Number of terminal vertexes
param p, integer;

# Number of steiner vertexes
param s, integer;

# Terminal vertexes set
set P := 1..p;

# Steiner vertexes set
set S := (p+1)..(p+s);

# Vertexes set
set V := P union S;

# Edges set
set E, within V cross V;

# Edges cost
param c{(i,j) in E} default 0;

# Variable y
var y{(i,j) in E}, binary;

# Variable x
var x{(i,j) in E} >= 0;

# x constraint
s.t. Xconstraint{(i,j) in E}: x[i,j] <= (p) * y[i,j];

# Steiner vertexes constraints
s.t. Sconstraint{i in S}: sum{(i,j) in E} x[i,j] - sum{(k,i) in E} x[k,i] = 0;

# Terminal vertexes constraints
s.t. Pconstraint{i in P}: sum{(i,j) in E} x[i,j] - sum{(k,i) in E} x[k,i] = -1;

# Minimize vertexes cost
minimize cost: sum{(i,j) in E} c[i,j]*y[i,j];

solve;

printf "The tree cost is:\n",
   sum{(i,j) in E} c[i,j] * y[i,j];
printf "\n";

data;

param p := 10;
param s := 8;

param : E : c :=
    1 16 1340771
    2 18 2783118
    2 14 1534253
    2 17 71057
    3 12 1439171
    3 15 1921785
    4 11 3793393
    4 13 573690
    5 18 1268333
    6 17 2907508
    7 11 1981430
    8 11 1205285
    8 12 3190105
    9 12 393839
    10 16 461534
    10 18 1072719
    11 4 3793393
    11 7 1981430
    11 8 1205285
    12 3 1439171
    13 4 573690
    12 8 3190105
    12 9 393839
    13 14 776147
    13 17 2239343
    14 2 1534253
    14 13 776147
    14 15 2613116
    15 3 1921785
    15 14 2613116
    15 16 170002
    16 1 1340771
    16 10 461534
    16 15 170002
    17 2 71057
    17 6 2907508
    17 13 2239343
    18 2 2783118
    18 5 1268333
    18 10 1072719
;

end;
#终端顶点数
参数p,整数;
#steiner顶点数
参数s,整数;
#终端顶点集
设置P:=1..P;
#Steiner顶点集
设置S:=(p+1)…(p+S);
#顶点集
集合V:=P并集S;
#边集
设置E,在V和V之间;
#边缘成本
参数c{(i,j)在E}中默认为0;
#变量y
变量y{(i,j)在E},二进制;
#变量x
E}>中的var x{(i,j)>=0;
#x约束

s、 t.Xconstraint{(i,j)in E}:x[i,j]您需要更改此约束:

# Terminal vertexes constraints
s.t. Pconstraint{i in P: i != 1}: sum{(i,j) in E} x[i,j] - sum{(k,i) in E} x[k,i] = -1;
这是因为在这个基于流的公式中,第一个节点是流的来源