学了LINGO才2天别笑我写的东西，求助接口指针写法。

cqwj

; T3 Z( Q. p* W
指针处怎么写？？
" P1 K* h1 m# o我的意思就是说@pointer在模型里面怎么定义？如@pointer（1）=？？或 ？？=@pointer（1）
表示什么意思。我个人理解@pointer（1）=？？表示把数模变量的值？？装进@pointer（1）这个储存单元，外部程序程序可调用此储存单元数据。？？=@pointer（1）表示外部数据值？？通过DLL传来的数据放进数模变量，这样理解对吗？
:) sets:
xinxi:cl190,cl160,cl270,gzsj,sl190,sl160,sl270,sj190,sj160,sj270,k,zys,x,y,z;
endsets
3 G. L) ^5 j' m' M4 U# j+ q0 @2 ldata:
! a" R0 k7 y. @" {xinxi,cl190,cl160,cl270,gzsj,sl190,sl160,sl270,sj190,sj160,sj270,k= @file("li_yong.txt")
@TEXT()=@status();
8 }% H5 ~+ ?, x7 u9 Henddata
[bb] min=@sum(xinxi:sj190*x+sj160*y+sj270*z);
- v0 c& n# o, o9 Q, F7 S* r, K& V* V@for(xinxi(i):sj190(i)*x(i)+sj160(i)*y(i)+sj270(i)*z(i)<=12);
@for(xinxi(i):sj190(i)*x(i)+sj160(i)*y(i)+sj270(i)*z(i)>=0);
@sum(xinxi:x)=sr190;
1 k; L1 i$ o$ S: L@sum(xinxi:y)=sr160;
@sum(xinxi:z)=sr270;
@sum(xinxi:x)>=0;
@sum(xinxi:y)>=0;
@sum(xinxi:z)>=0;
2 w8 z& j+ Y' x/ F+ |@for(xinxi(i):x(i)<=cl190(i)*sl190(i));
@for(xinxi(i):x(i)>=0);
@for(xinxi(i):y(i)<=cl160(i)*sl160(i));
& _' F5 |- v, s7 }@for(xinxi(i):y(i)>=0);
@for(xinxi(i):z(i)<=cl270(i)*sl270(i));
7 H6 a2 U9 e) i* G@for(xinxi(i):z(i)>=0);
@for(xinxi(i):@gin(x(i)));
@for(xinxi(i):@gin(y(i)));
@for(xinxi(i):@gin(z(i)));
6 Z: I5 _. N: e. |; fmm=@sum(xinxi:k);
- e. c9 l& \; f& V9 S: o( vxx=@sum(xinxi:sj190*x+sj160*y+sj270*z)/mm;
0 U8 V9 C  |3 D+ n4 w& E; p! _
@for(xinxi(i):zys(i)=sj190(i)*x(i)+sj160(i)*y(i)+sj270(i)*z(i));
- S5 X; ?! T1 R+ ^0 KDATA:
; @4 R. n! {6 n6 C    @POINTER
) I8 _% p$ P. H. l5 f" |% B
!此处结果想连接VB6.0，却不知道怎么写;
ENDDATA
$ e+ C1 C' a5 r1 g. q  t5 y- [% ?6 k
end
结果为 主要是想取 X，Y，Z的结果
Global optimal solution found.
   Objective value:                              0.000000
   Extended solver steps:                               0
   Total solver iterations:                             0
) n5 o8 X9 A) v& k* H
- Q4 X; g4 q3 v
                0
+ Z% B! h* n  |9 C
, h: v. a7 e4 U/ w3 b                       Variable           Value        Reduced Cost
+ L( X4 Q0 h. W3 `" y                          SR190        0.000000            0.000000
                          SR160        0.000000            0.000000
1 t( @% l( d5 D/ N2 @                          SR270        0.000000            0.000000
                             MM        2.000000            0.000000
1 @  k' a0 ]7 _0 X6 ~                             XX        0.000000            0.000000
                  CL190( ZHANG)        35.00000            0.000000
                     CL190( LI)        35.00000            0.000000
) ]0 a* O! j& o6 b  v3 {- ?0 E                  CL160( ZHANG)        30.00000            0.000000
0 G* |8 Z4 U  C' P4 C; F                     CL160( LI)        30.00000            0.000000
                  CL270( ZHANG)        5.000000            0.000000
                     CL270( LI)        5.000000            0.000000
                   GZSJ( ZHANG)        12.00000            0.000000
+ w5 u3 S/ |' a                      GZSJ( LI)        12.00000            0.000000
                  SL190( ZHANG)       0.9000000            0.000000
0 z  I( X- O5 L1 s% t, B                     SL190( LI)       0.8000000            0.000000
4 j! H* ^: a) x1 M/ D. r                  SL160( ZHANG)       0.9000000            0.000000
+ f& j# Z% d% S3 ^3 Y                     SL160( LI)       0.9000000            0.000000
% o" i& C  V4 @% z! P2 o! t1 b                  SL270( ZHANG)       0.8000000            0.000000
: J5 x# C- H8 W, g/ H- S$ r                     SL270( LI)       0.6000000            0.000000
9 E3 x- k7 d6 r" a4 N( d; R0 t: @                  SJ190( ZHANG)       0.3770000            0.000000
% {% q0 P! J' ?7 _; `0 y8 \5 @* X                     SJ190( LI)       0.4120000            0.000000
- p5 N; r% s% Z) N& @- H                  SJ160( ZHANG)       0.4400000            0.000000
1 X0 }7 p$ o1 g$ V4 a# ~4 w                     SJ160( LI)       0.4400000            0.000000
2 F) P6 d. s/ T, F) v! a6 u                  SJ270( ZHANG)        2.880000            0.000000
& @, [: l5 }  }" [                     SJ270( LI)        3.360000            0.000000
                      K( ZHANG)        1.000000            0.000000
                         K( LI)        1.000000            0.000000
                    ZYS( ZHANG)        0.000000            0.000000
, {0 T6 Y$ ^) @1 P' [5 N' [5 @                       ZYS( LI)        0.000000            0.000000
                      X( ZHANG)        0.000000           0.3770000
                         X( LI)        0.000000           0.4120000
7 l$ e/ A0 J8 Q9 l; ?' t                      Y( ZHANG)        0.000000           0.4400000
- A, J5 t- J% _                         Y( LI)        0.000000           0.4400000
# H0 ]7 J/ ~# L( h) i; O, V/ `/ |                      Z( ZHANG)        0.000000            2.880000
                         Z( LI)        0.000000            3.360000

; }* s  B. g/ O; W                            Row    Slack or Surplus      Dual Price
+ W6 n3 G: }0 B                             BB        0.000000           -1.000000
                              2        12.00000            0.000000
4 B' F1 ]9 t. K6 x# |                              3        12.00000            0.000000
4 ], `  z- V- ^                              4        0.000000            0.000000
                              5        0.000000            0.000000
                              6        0.000000            0.000000
                              7        0.000000            0.000000
                              8        0.000000            0.000000
- Z: B  f4 V. t1 ~: p& V                              9        0.000000            0.000000
/ A4 y( T9 F* I. Q% r                             10        0.000000            0.000000
                             11        0.000000            0.000000
                             12        31.50000            0.000000
+ S& P* B) K# |9 K5 e8 O                             13        28.00000            0.000000
                             14        0.000000            0.000000
                             15        0.000000            0.000000
                             16        27.00000            0.000000
7 D3 I# v* A* V/ r. l4 B                             17        27.00000            0.000000
                             18        0.000000            0.000000
                             19        0.000000            0.000000
                             20        4.000000            0.000000
% D- `; J8 m8 ~) S, Q# N" ?3 n( S                             21        3.000000            0.000000
8 h% L! U1 q3 M) }: X                             22        0.000000            0.000000
                             23        0.000000            0.000000
                             24        0.000000            0.000000
                             25        0.000000            0.000000
9 d1 s0 z# p* y7 E- c! u                             26        0.000000            0.000000
                             27        0.000000            0.000000

olh2008

VB中调用Lingo使用DLL就行了

olh2008

这是一个例子，可以参考一下。
$ z5 J) w" d* q Staff1.rar (8.2 KB, 下载次数: 6)

2010-4-16 07:50 上传

点击文件名下载附件
下载积分: 体力 -2 点

cqwj

回复 3# olh2008
8 j" U5 A2 Z; q: x4 S7 P' ~; N

: ]  ^( B9 k, b( ?  F: Q    你发的附件不对，再说我也有这个例程，只是不清楚指针这么写到数模里才好调用。

olh2008

指针怎么写到数模里

这是什么意思？

legan

谁会LINGO与C++的混合编程啊，我想用C++的循环调用LINGO编的程序进行复杂的优化类问题计算

funintears

lingo可以和c++混合编程呀？！厉害，牛人指导下呀！！！

haoshuang3394

lingo怎么用啊，看着代码挺怪的？

风云雨哲

请教高手Ｌｉｎｇｏ的使用。请教高手Ｌｉｎｇｏ的使用。

cqwj

LINGO的代码很简单，相当于命令格式，但是要灵活运用的话也不简单。