帮忙修改lingo程序使能正常运行

来源：学生作业帮编辑：拍题作业网作业帮分类：综合作业时间：2024/04/28 13:09:44

帮忙修改lingo程序使能正常运行
MODEL:
SETS:
dvd/1..10/;
n;
supply/1..10/;
link(dvd,supply):x,c;
ENDSETS
DATA:
c=
2 4 0 0 0 0 3 1 0 0
2 0 4 0 3 1 0 0 5 0
0 2 0 3 0 0 0 0 4 1
4 0 0 0 0 0 1 3 2 0
0 1 0 4 2 3 0 0 0 0
0 2 1 0 0 0 4 0 0 3
1 0 4 0 0 0 3 2 0 0
2 0 0 1 0 4 0 0 3 0
0 4 0 0 1 0 0 3 0 2
3 0 2 0 0 0 0 0 1 4;
n= 1 4 1 2 2 1 3 3 3 2;
ENDDATA
x(i,j)=@IF(c(i,j)#EQ#0,0,x(i,j));
MIN=@SUM(link(i,j):c(i,j)*x(i,j));
@FOR(link(i,j):@BIN(x(i,j)));
@FOR(dvd(i):@SUM(supply(j):x(i,j))=3;);
@FOR(supply(i):@SUM(dvd(j):c(i,j)*x(i,j))

MODEL:
SETS:
dvd/1..10/:n;
supply/1..10/;
link(dvd,supply):x,c;
ENDSETS
DATA:
c=
2 4 0 0 0 0 3 1 0 0
2 0 4 0 3 1 0 0 5 0
0 2 0 3 0 0 0 0 4 1
4 0 0 0 0 0 1 3 2 0
0 1 0 4 2 3 0 0 0 0
0 2 1 0 0 0 4 0 0 3
1 0 4 0 0 0 3 2 0 0
2 0 0 1 0 4 0 0 3 0
0 4 0 0 1 0 0 3 0 2
3 0 2 0 0 0 0 0 1 4;
n= 1 4 1 2 2 1 3 3 3 2;
ENDDATA
@FOR(link(i,j):x(i,j)=@IF(c(i,j)#EQ#0,0,x(i,j)));
MIN=@SUM(link(i,j):c(i,j)*x(i,j));
@FOR(link(i,j):@BIN(x(i,j)));
@FOR(dvd(i):@SUM(supply(j):x(i,j))=3;);
@FOR(supply(i):@SUM(dvd(j):c(i,j)*x(i,j))

帮忙修改lingo程序使能正常运行 lingo程序如何运行 lingo程序运行错误麻烦帮忙看下程序:运行程序lingo程序,出现unexpected jacobian overflow 程序改错,改正后使之能正常运行,并解说一下程序的各部分作用, 帮忙看下一个Lingo程序,自己编的运行不了了有谁会操作LINGO,帮忙写一下计算下面所需要运行的程序, LINGO 程序.帮忙运行下结果呀!急呀!谢谢…… lingo 程序为什么运行不出呢高人指点运行lingo程序出现unexpected jacobian 这个lingo程序运行很长时间出不来结果 lingo程序运行不出来,求教