请教关于LINGO的问题。急求代码。

SAILCO公司需要决定下四个季度的帆船生产量。下四个季度的帆船需求量分别是40条,60条,75条,25条,这些需求必须按时满足。每个季度正常的生产能力是40条帆船,每条船的生产费用为400美元。如果加班生产,每条船的生产费用为450美元。每个季度末,每条船的库存费用为20美元。

假定生产提前期为0,初始库存为10条船。如何安排生产可使总费用最小?

求解答该问题的LINGO代码。分数高,时间限制为两天。
这是一道题,结果我已经有了。就是想求LINGO解题代码。

MODEL:
SETS:
QUARTERS/1,2,3,4/:DEM,RP,OP,INV;
ENDSETS
MIN=@SUM(QUARTERS:400*RP+450*OP+20*INV);
@FOR(QUARTERS(I):RP(I)<40);
@FOR(QUARTERS(I)|I#GT#1:
INV(I)=INV(I-1)+RP(I)+OP(I)-DEM(I););
INV(1)=10+RP(1)+OP(1)-DEM(1);
DATA:
DEM=40,60,75,25;
ENDDATA
END
运行得:
Objective value: 78450.00
温馨提示:内容为网友见解,仅供参考
第1个回答  2006-12-02
这是一道题还是什么

lingo编程问题,感谢呀!麻烦给出具体代码
由于lingo不区分大小写,所以r用lr代替 代码如下:min=s;s=3.1415926*(R+lr)*l+3.1415926*lr*lr;3.1415926*h*(R^2+R*lr+lr^2)=380;l=(h^2+(R-lr)^2)^0.5;lr<R;结果:S 101.7609 R 4.184900 LR 2.295768 L 4.184900 H 3.734243 ...

lingo如何用代码实现全局求解?
代码实现?我知道lingo可以直接设置全局解,你在点开LINGOOptions,出现如图界面点击Globalsolver在UseGlobalslover一栏前面打勾,就可以了,解就是全局变量。但是很多问题全局最优解很难求出,甚至不能得到。lingo求出来的最优解只有一个。如果想求所有的,可以先估计下方程有几个解,然后估计一些他们的大致...

lingo代码运行有问题,错误代码为69,但我自认为程序没有问题啊?(只要把...
3、.000000你改下看能否运行,如果不能我这有通过的源码给你。最后给你点下建议:从代码上看的出你对lingo以有了比较好的基础个人觉得书写lingo代码不要通篇都大写字母,这样看的不是很舒服(反正我是这样觉得)。

求大神 请教LINGO问题
这个是matlab写的,lingo代码类似,仅供参考:R = [2 3.4 5 6 7 8.4 8.7];P = [7.75 9 13 17 21 22 25];Min_PR= 2225.04 + 321753.6.\/(0.5+R) + 576*P;[min_PR,loc] = min(Min_PR);P_loc = P(loc)R_loc = R(loc)结果:(8.4,22)最小,最小值为min_PR ...

lingo软件的代码有点问题,帮忙查看下,谢谢
xu\/1..4\/:w,v1,p;link(gong,xu):x;endsets data:G=120,150,190;V=81600,102000,11360;w=95,110,130,105;v1=2200,2700,2950,2600;p=3700,4200,4000,4500;enddata max=@sum(xu(i):p(i)*@sum(gong(j):x(j,i)));for(xu(i):@sum(gong(j):x(j,i))<w(i));for(gong...

求lingo代码
model:sets:item\/1..5\/:v,r,x,y,distance;endsets data:v=5000 7000 3500 3000 5500;r=0.04 0.04 0.095 0.095 0.095;x=3 9 2 5 9;y=8 2 3 3 7;enddata min=@sum(item:distance*v*r);for(item:distance=@sqrt((x-x0)^2+(y-y0)^2));init:x0=6.12;y0=4.73;e...

lingo程序出错了,大神帮忙解决一下,代码如下:
path(row,col):t,x;endsets data:a=1.9;w=124.5;t=@file(D:\\mintime.txt);c=@OLE('D:\\path.xls','CC');enddata min=@sum(col(j):@sum(row(i):t(i,j)*x(i,j)));for(path:@bin(x));x(29,2)=1;x(62,7)=1;x(92,20)=1;x(38,16)=1;x(28,15)=1;x(29...

Lingo代码问题!!!急急急!!!求解
x表示第i个人是否去做第j个工作 请自己到lingo里面运行算一下 model:sets:person\/1..4\/;job\/1..5\/;arrange(person,job):time,x;endsets data:time= 25 29 31 42 37 39 38 26 20 33 34 27 28 40 32 24 42 36 23 45;enddata min=@sum(arrange:time*x);for(person(i):@sum(...

lingo 代码问题,
目标函数是min=max{c(1,1)*x(1,1),c(1,2)*x(1,2)...c(1,20)*x(1,20)...c(20,20)*x(20,20)},是一个指派0-1规划,目标是让完成所有任务的最终时间最短,请问目标函数该怎么表达 min = @max(link:c*x);bin(link:x);

帮忙写下lingo代码
sets:s\/1..200\/:t;endsets min=@sum(s:1\/1.5\/@sin(t));sum(s(i):(2.28*i\/200+1.5*@cos(t))\/(1.5*@sin(t)))=1000;for(s:t<=@asin(-1));

相似回答