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

说实话你写的很乱 有些地方表达都是混乱的 我只能给你写成这样sets:sj/1。。154/:s;si/1。。21/:b,y,d;sij(si,sj):m,x,dist,t;endsetscalc:@for(sij:t=@if(dist#eq#0,1,@if(dist#le#10,2,3。33)));endcalcmax=@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)