title:部门迁移;
sets:
bumen/1..5/;
chengshi/1..3/:p;
yueshu(bumen,chengshi):b,x;
tongxunliang(bumen,bumen):c;
tongxunfei(chengshi,chengshi):m;
endsets
data:
c=0 0 1000 1500 0
0 0 1400 1200 0
1000 1400 0 0 2000
1500 1200 0 0 700
0 0 2000 700 0;
b=0 10 10
0 15 20
0 10 15
0 20 15
0 5 15;
m=100 130 90
130 50 140
90 140 50;
p=3 3 3;
enddata
min=@sum(bumen(i)|i#lt#5:
@sum(bumen(k)|k#gt#i:
@sum(chengshi(j)|j#le#3:
@sum(chengshi(l)|l#ge#j:c(i,k)*x(i,j)*m(l,j))-
@sum(yueshu:b*x);
@for(chengshi(j):@sum(bumen(i):x(i,j))
@sum(yueshu(i,j):x(i,j))=5;
end