数学建模社区-数学中国

标题: 求助，关于 63 错误 [打印本页]

作者: wellwy 时间: 2008-8-3 12:44
标题: 求助，关于 63 错误

原题是07电工杯的A题第三问，希望高手帮帮忙！！[em64]

经检查，问题处在标注为红色那行上，但是不知道是怎么错的~~~

sets:
machine/1..54/:pmax,pmin,ru,rd,coston,stand,Ton,Toff,busp;
temp/1..5/;
add(machine,temp):dcost,sa,boundary1;
time/1..25/:rrr;
per(machine,time):last,mode,p,x,cost,costa;
temp2/1..90/:busr;
temp3/1..2/;
init1(machine,temp3):pp;
line/1..4/:lmax;
time1/1..24/;
bur(temp2,time1):burden;
bus/1..118/;
yita(line,bus):l;
endsets
data:
burden,busr,rrr,busp,pmax,pmin,ru,rd,pp,ton,toff,coston,stand,boundary1,dcost,sa,lmax,l=@OLE('E:\test.xls');
enddata

min=@sum(machine(i)sum(time(j)|j #gt# 1:mode(i,j)*cost(i,j)+costa(i,j)));

@for(machine(i):
last(i,1)=pp(i,2);
p(i,1)=pp(i,1);
);

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!;
@for(time(t):
@for(machine(i):mode(i,t)=@if(p(i,t) #lt# pmin,0,1));
);

@for(time(t)|t #gt# 1:
@sum(machine(i):mode(i,t)*p(i,t))=@sum(temp2(j):burden(j,t-1));
@sum(machine(i):mode(i,t)*pmax(i))>@sum(temp2(j):burden(j,t-1))+rrr(t);
@for(machine(j):
  p(j,t)<=pmax(j);
  p(j,t)>=@if(mode(j,t) #eq# 0,0,pmin(j));
  p(j,t)<=p(j,t-1)+ru(j);
  p(j,t)>=p(j,t-1)-rd(j);
  @for(temp(i)|(p(j,t)#ge#(i-1))#and#(p(j,t)#lt#i):
   p(j,t)=(cost(j,t)+sa(j,i))/dcost(j,i);
  );
  costa(j,t)=@if((mode(j,t-1) #eq# 0 )#and#( mode(j,t) #eq# 1),coston(j),0);
  last(j,t)=@if(mode(j,t-1) #eq# 0,@if(mode(j,t) #eq# 0,last(j,t-1)-1,1),@if(mode(j,t) #eq# 0,-1,last(j,t-1)+1));
  @abs(last(j,t-1))>=@if(mode(j,t-1) #eq# 0,@if(mode(j,t) #eq# 0,0,toff),@if(mode(j,t) #eq# 0,ton,0));
  p(j,t)=@if((mode(j,t-1) #eq# 0 )#and#( mode(j,t) #eq# 1),pmin,p(j,t));
);
);
@for(time1(t):
@for(line(m):
  lmax(m)>=@abs(@sum(temp2(i):-1*l(m,busr(i)+1)*burden(i,t))+@sum(machine(j):l(m,busp(j)+1)*p(j,t+1));)
);
);

@for(time(t)|t #gt# 2:
@for(machine(j):
p(j,t-1)=@if((mode(j,t-1) #eq# 1 )#and#( mode(j,t) #eq# 0),pmin,p(j,t-1));
)
);
@for(per:
@free(last);
);

[attach]5634[/attach]

[此贴子已经被作者于2008-8-3 12:47:31编辑过]

test.rar.rar

21.99 KB, 下载次数: 1, 下载积分: 体力 -2 点

test.rar

作者: wellwy 时间: 2008-8-3 12:44

高手速速来帮忙啊。

先谢谢谢谢啦

作者: wellwy 时间: 2008-8-3 14:44

高手们帮忙啊。急急~~

在线等

作者: ceylon 时间: 2008-8-4 17:22
前两问也是用lingo做的？

欢迎光临数学建模社区-数学中国 (http://www.madio.net/)