qlb061 发表于 2011-11-12 23:39 
sets:
bianliang/1..12/:x,y;
endsets
   qlb061,你好!我在另一个论坛上也看到了你,很佩服你在LINGO上的造诣!   我也尝试简单修改了下楼主的程序: 
MODEL:
SETS:
VAR/1..12/:X,Y,DX;
ENDSETS
MAX=@SUM(VAR(I):X(I)*Y(I));
@FOR(VAR(I):X(I)=5*DX(I));
@FOR(VAR(I):@GIN(DX(I)));
@FOR(VAR(I):X(I)>=20);
@FOR(VAR(I):Y(I)>26);
@FOR(VAR(I)|I#GE#2:X(I-1)>X(I));
@SUM(VAR(I):Y(I))<650;
@FOR(VAR(I):((X(I)/2)^2+(0.5*@SUM(VAR(I):Y(I))^2))<=(650/2)^2);
X(1)<650;
END
在LINGO 11上运行得到如下结果,摘录其中一部分:
  Global optimal solution found.
  Objective value:                              419250.0
  Objective bound:                            419250.0
  Infeasibilities:                                    0.000000
  Extended solver steps:                           1
  Total solver iterations:                           955
   Variable           Value        Reduced Cost
     X( 1)        645.0000            0.000000
     X( 2)        645.0000            0.000000
     X( 3)        645.0000            0.000000
     X( 4)        645.0000            0.000000
     X( 5)        645.0000            0.000000
     X( 6)        645.0000            0.000000
     X( 7)        645.0000            0.000000
     X( 8)        645.0000            0.000000
     X( 9)        645.0000            0.000000
   X( 10)        645.0000            0.000000
   X( 11)        645.0000            0.000000
   X( 12)        645.0000            0.000000
     Y( 1)        56.89847            0.000000
     Y( 2)        49.45565            0.000000
     Y( 3)        56.89893            0.000000
     Y( 4)        56.89900            0.000000
     Y( 5)        56.89871            0.000000
     Y( 6)        51.77753            0.000000
     Y( 7)        51.78358            0.000000
     Y( 8)        56.74557            0.000000
     Y( 9)        56.89901            0.000000
   Y( 10)        56.89827            0.000000
   Y( 11)        56.89786            0.000000
   Y( 12)        41.94742            0.000000
  一点存疑是“@FOR(VAR(I)|I#GE#2:X(I-1)>X(I));”,因为LINGO似乎对>和>=不加以区别,所以结果中X的结果全部相同。这是我的一些个人见解,希望你有时间也能看看,并提出疑问,班门弄斧,莫怪。