Question

关于lingo的一段程序

model:
sets:
jiaodu/1..6/:a,a1,b,k,s,c,x,y;
bianhua/1..204/:t;
zuobiao(jiaodu,bianhua):x1,y1;
chongdie(jiaodu,jiaodu):cu;
juli(bianhua,jiaodu,jiaodu):ju;
jiao/1..3/:ja;
endsets
@for(bianhua(i):
t(i)=5*i;
);
@for(jiaodu(i):@free(k(i));
@free(s(i));
@free(c(i)););
@for(jiaodu(i):@free(a1(i));
@free(b(i)););
@for(jiaodu(i):
@for(bianhua(j):@free(x1(i,j));
@free(y1(i,j));););
min=(@sum(jiaodu(i):a1(i)));
@for(jiaodu(i):@bnd(-30,a1(i),30););

@for(jiao(e):a1(6)=-3+e;
@for(jiao(z):a1(3)=-2+z;

@for(jiaodu(i):
a(i)=a(i)+a1(i);
k(i)=@tan(a(i)/180*3.14159);
c(i)=@cos(a(i)/180*3.14159);
b(i)=y(i)-x(i)*k(i);
);
@for(jiaodu(i):
@for(bianhua(j):
x1(i,j)=x(i)+c(i)*t(j)*800/3600;
y1(i,j)=k(i)*x1(i,j)+b(i);
);
);
@for(bianhua(i):
@for(chongdie(j,p):
cu(j,p)=@if(j #eq# p,66,1);
ju(i,j,p)=(cu(j,p)*((x1(j,i)-x1(p,i))^2+(y1(j,i)-y1(p,i))^2+1))^(1/2);););););

Answer 1

你要注意lingo是用来解模型的 主要部分是模型 不是程序语句 所以你这里很多赋值运算都不对

如果你要写那也要写在calc段里面