出一本关于LINGO8（优化）方面的书，不知大家支持否？

wanbaocheng

谢谢大家参与！！！

legence

<>最好出一本中文的，英文的毕竟看着有点累，支持。你现在有没有中文的书什么的，我做作业要用，请发一份给我，谢谢！</P><>wangjfeng_2008@163.com</P>

163er

<>e文好的，lingo的帮助对你挑战比较大；当然前面也有些人出过，他们的例子不少。不过，现在做学问，能出书就出嘛，就是经费的问题要与出版社接洽好，不然到时还要自己贴。现在大家都流行“编”，很少“著”，你可以多参考前人的。推荐《最优化模型与实验》，另外实际上lingo的功能还真的有点单一。</P>

wanbaocheng

谢谢，我会好好把书“编“好的！

163er

<>虽然现在主要用matlab，用lingo的时间较少了，但长久的投入，一旦放弃，确实可惜，希望还能有向<b><FONT color=#990000>wanbaocheng</FONT></b>兄学习的机会</P>

legence

<>总是出问题：</P>
<>MODEL:</P>
<>   sets:
   roter/1..10/:r,q1r,q2r;
   endsets</P>
<P>   data:
   r = 1,2,3,4,5,6,7,8,9,10;
   p = 2000;u = 0.27;w = 6283.2;
   k = 2.198;m1 = 1.198;m2 = -3.198;
   enddata</P>
<P>   init:
   a,b = 0.075,0.112;
   endinit</P>
<P>   q1a = (a^2) * p * (w^2) * (3+u)/(2 * k * (-3 + k));
   q1b = (b^2) * p * (w^2) * (3+u)/(2 * k * (-3 + k));
   q2a = (a^2) * p * (w^2) * (3+u)/(2 * k * (-3 - k));
   q2b = (b^2) * p * (w^2) * (3+u)/(2 * k * (-3 - k));
   c1 = ((a^(m1+1)) *(q2a - q1a) - (b^(1+k)) * (q2b - q1b))/(a^(2*k) - b^(2*k));
   c2 = (a^k) * (b^k) * (-a * (b^k) * (q2a - q1a) + b * (a^k) * (q2b - q1b));
  
   @for(roter(i):q1r(i) = ((a+(b-a)*r(i)/10)^2)*p*(w^2)*(3+u)/(2 * k * (-3+k)););   
   @for(roter(i):q2r(i) = ((a+(b-a)*r(i)/10)^2)*p*(w^2)*(3+u)/(2 * k * (-3-k)););
  
   @max(roter(i):c1 *(m1+1)* ((a+(b-a)*r(i)/10)^m1) + c2 *(m2+1)* ((a+(b-a)*r(i)/10)^m2) + (m1+1) * q1r(i)
        - (m2+1) * q2r(i) + p*(w^2)*(a+(b-a)* r(i)/10)) &lt;= 1.28e+9;
   @max(roter(i):c1 * ((a+(b-a)*r(i)/10)^m1) + c2 * ((a+(b-a)*r(i)/10)^m2) + q1r(i) + q2r(i)) &lt;= 1.58e+8;</P>
<P>END</P>

wanbaocheng

<>已在此回答<a href="http://www.shumo.com/bbs/dispbbs.asp?boardID=10&amp;ID=8892&amp;page=1" target="_blank" >http://www.shumo.com/bbs/dispbbs.asp?boardID=10&amp;ID=8892&amp;page=1</A></P>