用Lingo编写个程序,求最大值.

说实话你写的很乱 有些地方表达都是混乱的 我只能给你写成这样
sets:
sj/1..154/:s;
si/1..21/:b,y,d;
sij(si,sj):m,x,dist,t;
endsets
calc:
@for(sij:t=@if(dist#eq#0,1,@if(dist#le#10,2,3.33)));
endcalc
max=@sum(sj:s)+@sum(si:y*b);
@for(sj(j):s(j)=@sum(si(i):m(i,j)));
@for(si(i):y(i)=@sum(sj(j):x(i,j)));
@for(si(i):d(i)=@sum(sj(j):t(i,j)*m(i,j)+t(i,j)*x(i,j)));
@for(sij(i,j):s(j)>=20*x(i,j);s(j)