用lingo实现,y(i)=y(j)时,x(i)不等于x(j)?大哥大姐们:请问用lingo如何实现y(i)=y(j)时,x(i)不等于x(j)?lingo有这个功能吗?我试过了,但是不行,我的现有程序是:MODEL:data:M=7;enddatas

来源:学生作业帮助网 编辑:作业帮 时间:2024/07/10 23:36:41
用lingo实现,y(i)=y(j)时,x(i)不等于x(j)?大哥大姐们:请问用lingo如何实现y(i)=y(j)时,x(i)不等于x(j)?lingo有这个功能吗?我试过了,但是不行,我的现有程序是:MODEL:data:M=7;enddatas
xTNA~5tal)m4Fo0^LӅlۆbl/,? ؠUж23m) ޙmgswΜo?Q85s(}ZϪEQ0(値Hj{%<9zZ߱?O6[HcExTХw֋oUa"D V *A/AKw="xKϯhf'5).΀lipg#i\ɇc0!n8cvRM:J ky(R(mg; $4F(!c4j%|ܟnCeraUͽmͷ_wN' R5֫C*shA?YVIe^ɇ- =8J`c#S2"]f]nN3F!C[t[Jݜ4ޛe|Ɵ"_D$"tjDh s]'JU`UjH.._OF]uѡ#'!]d;G>MT1l98X`h E{BS3j%dGL}~)<ւLNq

用lingo实现,y(i)=y(j)时,x(i)不等于x(j)?大哥大姐们:请问用lingo如何实现y(i)=y(j)时,x(i)不等于x(j)?lingo有这个功能吗?我试过了,但是不行,我的现有程序是:MODEL:data:M=7;enddatas
用lingo实现,y(i)=y(j)时,x(i)不等于x(j)?
大哥大姐们:
请问用lingo如何实现y(i)=y(j)时,x(i)不等于x(j)?
lingo有这个功能吗?
我试过了,但是不行,我的现有程序是:
MODEL:
data:
M=7;
enddata
sets:
demand/1..m/:p,a,d,x,y;
ob/1..m/:w;
endsets
data:
p=5,3,5,6,7,12,8;
a=3,4,4,1,5,8,8;
d=5,6,6,3,7,9,10;
enddata
[OBJ] min=@sum(demand(i):2*@abs(x(i)-p(i))+3*@abs(y(i)-a(i)));
@for(demand(i):
y(i)>a(i);
y(i)1);
@for(demand(i):@gin(x(i)));
@for(demand(i):@gin(y(i)));
end
怎么用程序表示当y相同时,x不同?

用lingo实现,y(i)=y(j)时,x(i)不等于x(j)?大哥大姐们:请问用lingo如何实现y(i)=y(j)时,x(i)不等于x(j)?lingo有这个功能吗?我试过了,但是不行,我的现有程序是:MODEL:data:M=7;enddatas
改了一点,在逻辑上没有问题,但是就不是线性模型了,用全局最优器解.
你看看吧!
MODEL:
data:
M=7;
enddata
sets:
demand/1..m/:p,a,d,x,y;
ob/1..m/:w;
link(demand,demand):aa;
endsets
data:
p=5,3,5,6,7,12,8;
a=3,4,4,1,5,8,8;
d=5,6,6,3,7,9,10;
enddata
[OBJ] min=@sum(demand(i):2*@abs(x(i)-p(i))+3*@abs(y(i)-a(i)));
@for(demand(i):
y(i)>a(i);
y(i)1);
@for(demand(i):@gin(x(i)));
@for(demand(i):@gin(y(i)));
@for(demand(i):
@for(demand(j)|j #ne# i:x(i)+y(i)=x(j)+y(j)+aa(i,j)));
@for(demand(i):
@for(demand(j):@free(aa(i,j))));
@for(link:
@free(aa));
@for(link:aa*aa>0);
end