各位高手，帮忙改个程序
本帖最后由 笑傲天方 于 2011-7-23 23:24 编辑这是2000年国赛B题第一题的LINGO程序，初学编的，求高手帮忙修正。
MODEL:
SETS:
GCH/S1..S7/:SI,XI;
ZHD/A1..A15/:HM,YJ,ZJ,WJ;
YL(GCH,ZHD):C,Y;
ENDSETS
DATA:
SI=800,800,1000,2000,2000,2000,3000;
HM=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15;
WJ=104,301,750,606,194,205,201,680,480,300,220,210,420,500,0;
C=330.7 370.7 385.7 420.7 410.7 410.7 435.7 3
20.3 360.3 375.3 410.3 400.3 405.3 425.3
300.2 345.2 355.2 395.2 380.2 385.2 405.2
258.6 326.6 336.3 376.6 361.6 366.6 386.6
198.0 266.0 276.0 316.0 301.0 306.0 326.0
180.5 250.5 260.5 300.5 285.5 295.5 310.5
163.1 241.0 251.0 291.0 276.0 281.0 301.0
181.2 226.2 241.2 276.2 266.2 271.2 291.2
224.2 269.2 203.2 244.2 234.2 234.2 259.2
252.0 297.0 237.0 222.0 212.0 212.0 236.0
256.0 301.0 241.0 211.0 188.0 201.0 226.0
266.0 311.0 251.0 221.0 206.0 195.0 216.0
281.2 362.2 266.2 236.2 226.2 176.2 198.2
288.0 333.0 273.0 243.0 228.0 161.0 186.0
302.0 347.0 287.0 257.0 242.0 178.0 162.0;
ENDDATA
MIN= @SUM(YL(I,J):C(I,J)*Y(I,J))+0.05* @SUM(ZHD:ZJ*(ZJ-1)+(WJ-ZJ)*(WJ-ZJ-1));
@FOR(GCH(I): @SUM(ZHD(J):Y(I,J))<=SI(I)*XI(I));
@FOR(GCH(I): @SUM(ZHD(J):Y(I,J))>=500*XI(I));
@SUM(YL(I,J):Y(I,J))=5171;
@FOR(ZHD(J)|HM(J)#LT#15: @SUM(GCH(I):Y(I,J))=ZJ(J)+WJ(J)-ZJ(J-1));
@FOR(ZHD(J): @SUM(GCH(I):Y(I,1))=ZJ(1));
@FOR(ZHD(J): @SUM(GCH(I):Y(I,15))=WJ(14)-ZJ(14));
@FOR(GCH(I): @BIN(XI(I)));
@FOR(ZHD(J)|HM(J)#LT#15:ZJ(J)<=WJ(J));
END
haodongxi................
meiyouewentia haodongxi................
拿体力来的~~~~~~ haodongxi................
拿体力来的~~~~~~ 拿体力来的~~~~~~ 拿体力来的~~~~~~ 拿体力来的~~~~~~