求助，关于 63 错误

wellwy

原题是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);
);

 

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

wellwy

高手速速来帮忙啊。

先谢谢谢谢啦

wellwy

高手们帮忙啊。急急~~

在线等

ceylon

前两问也是用lingo做的？