资源描述:
《lingo软件应用》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、model:sets:benefit/1..21/:z;fish/1..21/:x;endsets@for(fish(i):x(i)=(200-8*i)/(200-8.4*i)*xi);max=z1+z2+z3+z4+z5+z6+z7+z8+z9+z10+z11+z12+z13+z14+z15+z16+z17+z18+z19+z20+z21;x1+x2+x3+x4+x5+x6+x7+x8+x9+x10+x11+x12+x13+x14+x15+x16+x17+x18+x19+x20+x21<=20000;Z1=@if(x1#le#400,20*x1-5*x1,@if(x1#le#1200
2、,800+18*x1-5*x1,4400+15*x1-5*x1));z2=@if(x2#le#400,20*x2-4.898*x2/0.998,@if(x2#le#1200,800+18*x2-4.898*x2/0.998,4400+15*x2-4.898*x2/0.998));z3=@if(x3#le#400,20*x3-4.793*x3/0.996,@if(x3#le#1200,800+18*x3-4.793*x3/0.996,4400+15*x3-4.793*x3/0.996));z4=@if(x4#le#400,20*x4-4.682*x4/0.993,@if(x4#le#12
3、00,800+18*x4-4.682*x4/0.993,4400+15*x4-4.682*x4/0.993));Z5=@if(x5#le#400,20*x5-4.567*x5/0.990,@if(x5#le#1200,800+18*x5-4.567*x5/0.990,4400+15*x5-4.567*x5/0.990));Z6=@if(x6#le#400,20*x6-4.445*x6/0.988,@if(x6#le#1200,800+18*x6-4.445*x6/0.988,4400+15*x6-4.445*x6/0.988));Z7=@if(x7#le#400,20*x7-4.318
4、*x7/0.984,@if(x7#le#1200,800+18*x7-4.318*x7/0.984,4400+15*x7-4.318*x7/0.984));Z8=@if(x8#le#400,20*x8-4.183*x8/0.981,@if(x8#le#1200,800+18*x8-4.183*x8/0.981,4400+15*x8-4.183*x8/0.981));Z9=@if(x9#le#400,20*x9-4.041*x9/0.976,@if(x9#le#1200,800+18*x9-4.041*x9/0.976,4400+15*x9-4.041*x9/0.976));Z10=@i
5、f(x10#le#400,20*x10-3.891*x10/0.972,@if(x10#le#1200,800+18*x10-3.891*x10/0.972,4400+15*x10-3.891*x10/0.972));Z11=@if(x11#le#400,20*x11-3.730*x11/0.967,@if(x11#le#1200,800+18*x11-3.730*x11/0.967,4400+15*x11-3.730*x11/0.967));Z12=@if(x12#le#400,20*x12-3.559*x12/0.961,@if(x12#le#1200,800+18*x12-3.5
6、59*x12/0.961,4400+15*x12-3.559*x12/0.961));Z13=@if(x13#le#400,20*x13-3.375*x13/0.954,@if(x13#le#1200,800+18*x13-3.375*x13/0.954,4400+15*x13-3.375*x13/0.954));Z14=@if(x14#le#400,20*x14-3.176*x14/0.946,@if(x14#le#1200,800+18*x14-3.176*x14/0.946,4400+15*x14-3.176*x14/0.946));Z15=@if(x15#le#400,20*x
7、15-2.960*x15/0.936,@if(x15#le#1200,800+18*x15-2.960*x15/0.936,4400+15*x15-2.960*x15/0.936));Z16=@if(x16#le#400,20*x16-2.723*x16/0.925,@if(x16#le#1200,800+18*x16-2.723*x16/0.925,4400+15*x16-2.723*x16/0.925));Z17=@if(x17#le#40