帮忙看看用LINGO把计算结果导入EXCEL的一个小问题
MODEL:SETS:
GJ/1..24/:W,V;
!代表24个工件，W代表重量，V代表体积;
SHQ/1..6/:D;
POSITION/1..24/:T,WD;
BL(GJ,POSITION):X;
!如果X(I,J)=1，则表示第I个工件放在第J个位置上;
ENDSETS
DATA:
W=348 352 347 349 347.5 347 330 329 329 327.5 329 331.5
348.5 347 346.5 348 347.5 348 333 330 332.5 331.5 331.5 332;
V=101.5 102 105 105.5 106 104 94 98 100.5 98.5 98 99 104.5 105 107.5 104.5 104
104.5 97 97 99 98 96.5 94.5;
@OLE('GJ.xls','PAIXU')=X;!把计算结果写入EXCEL文件;
ENDDATA
@FOR(BL:@BIN(X));!指定X(I,J)为0/1变量;
@FOR(GJ(I):@SUM(POSITION(J):X(I,J))=1);!每一个工件必须放到一个扇区;
@FOR(POSITION(J):@SUM(GJ(I):X(I,J))=1);!每个位置上放一个工件;
@FOR(POSITION(J):T(J)=@SUM(GJ(I):V(I)*X(I,J)));
@FOR(POSITION(J):WD(J)=@SUM(GJ(I):W(I)*X(I,J)));
D(1)=WD(1)+WD(2)+WD(3)+WD(4);
D(2)=WD(5)+WD(6)+WD(7)+WD(8);
D(3)=WD(9)+WD(10)+WD(11)+WD(12);
D(4)=WD(13)+WD(14)+WD(15)+WD(16);
D(5)=WD(17)+WD(18)+WD(19)+WD(20);
D(6)=WD(21)+WD(22)+WD(23)+WD(24);
@FOR(SHQ(J)|J#NE#6:D(J)=1357);
H=4.5;!H是假设的目标函数值，H越大越优;
!常数H可以设定为不同的数值试一试，本题H>=5/时没有找到可行解;
T(1)-T(2)>=H;T(3)-T(4)>=H;T(5)-T(6)>=H;
T(7)-T(8)>=H;T(9)-T(10)>=H;T(11)-T(12)>=H;
T(13)-T(14)>=H;T(15)-T(16)>=H;T(17)-T(18)>=H;
T(19)-T(20)>=H;T(21)-T(22)>=H;T(23)-T(24)>=H;
T(3)-T(2)>=H;T(5)-T(4)>=H;T(7)-T(6)>=H;
T(9)-T(8)>=H;T(11)-T(10)>=H;T(13)-T(12)>=H;
T(15)-T(14)>=H;T(17)-T(16)>=H;T(19)-T(18)>=H;
T(21)-T(20)>=H;T(23)-T(22)>=H;T(1)-T(24)>=H;
END
上面是源程序，我想把计算的结果写入EXCEL中，可每次运行都出现ERROR code 48（打不开文件），请各位高手给指点一下，先谢谢了！ 怎么发出去的字母变成表情了？ 第一个表情是大写字母D，第二、三、四表情是：@，最后一个表情是：D 这个 问题 我和你相反 我从excel 导入lingo 出现了同样的问题~~~ 也是找不到~~ 打不开~~~ 'GJ.xls':请使用绝对路径试一下，比如“d:\GJ.xls" 怎么发出去的字母变成表情了gggggggggggggggggggggggg 发代码请使用高级模式中的“代码”发 tongwen!!!!!!!!!
f=x^2+y^2-Cos
plot3D,{x,-5,5},{y,-5,5},axeslabel->{x,y,z}]
plot3D,{x,-5,5},{y,-5,5},axeslabel->{x,y,z},plotpoints->60]
plot3D,{x,-5,5},{y,-5,5},axeslabel->{x,y,z},plotpoints->60,colorfunction->hue]
页:
[1]