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

cqwj

& {8 y8 z7 ]' n/ y) E/ t- ~
7 `7 z" e& m+ l# d" E& E0 l指针处怎么写？？
我的意思就是说@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;
) I5 d( x7 s2 I+ Pendsets
/ O2 H3 s1 A* `5 X4 E5 U- v. `" ddata:
4 ?* A! |% Q' \5 W" axinxi,cl190,cl160,cl270,gzsj,sl190,sl160,sl270,sj190,sj160,sj270,k= @file("li_yong.txt")
@TEXT()=@status();
. a8 q! w. r# A7 U2 [/ zenddata
[bb] min=@sum(xinxi:sj190*x+sj160*y+sj270*z);
0 n/ [" J7 Q' f8 l, @, _@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);
0 h5 _8 {3 m- ~: o0 b/ X( p@sum(xinxi:x)=sr190;
4 Q: ]! r7 R+ ]@sum(xinxi:y)=sr160;
5 X0 r2 {/ ~# r3 S" ]2 a@sum(xinxi:z)=sr270;
) v/ l# y8 \3 ]% h2 ~, H@sum(xinxi:x)>=0;
2 f, B( ]' z. n# y8 p  k@sum(xinxi:y)>=0;
5 q% S* o, J( T@sum(xinxi:z)>=0;
3 X: H7 h9 q! s9 X# |2 O/ u@for(xinxi(i):x(i)<=cl190(i)*sl190(i));
@for(xinxi(i):x(i)>=0);
9 I$ I( _  N( a9 ^" }@for(xinxi(i):y(i)<=cl160(i)*sl160(i));
@for(xinxi(i):y(i)>=0);
@for(xinxi(i):z(i)<=cl270(i)*sl270(i));
@for(xinxi(i):z(i)>=0);
@for(xinxi(i):@gin(x(i)));
1 J0 S; g5 \0 a: i* u@for(xinxi(i):@gin(y(i)));
2 ~& y/ L% G$ K6 s8 K@for(xinxi(i):@gin(z(i)));
: Y" [* l' n' A: b' [  S' |mm=@sum(xinxi:k);
xx=@sum(xinxi:sj190*x+sj160*y+sj270*z)/mm;
* ]; L, C' {) k+ q9 [6 o
@for(xinxi(i):zys(i)=sj190(i)*x(i)+sj160(i)*y(i)+sj270(i)*z(i));
DATA:
    @POINTER
& M$ H& {' d8 |% Z- ~& a/ J
!此处结果想连接VB6.0，却不知道怎么写;
ENDDATA

end
* k# j5 j: y: b5 {, K$ _结果为 主要是想取 X，Y，Z的结果
* W+ ]" l# Z& {# c  I: IGlobal optimal solution found.
   Objective value:                              0.000000
   Extended solver steps:                               0
+ P- m$ D6 ^  o- k+ k: O   Total solver iterations:                             0
3 l. E" y% `* D1 M! u

                0

                       Variable           Value        Reduced Cost
                          SR190        0.000000            0.000000
4 H6 `$ M  |, Q                          SR160        0.000000            0.000000
                          SR270        0.000000            0.000000
# J! a+ J7 Q5 W/ \                             MM        2.000000            0.000000
                             XX        0.000000            0.000000
1 d$ d$ P: K4 m5 v% ^4 `9 X: P                  CL190( ZHANG)        35.00000            0.000000
* u2 U: W' I( N- [6 x                     CL190( LI)        35.00000            0.000000
1 L$ f( g- I6 m  @                  CL160( ZHANG)        30.00000            0.000000
                     CL160( LI)        30.00000            0.000000
5 R; @# }4 V* A3 ?                  CL270( ZHANG)        5.000000            0.000000
                     CL270( LI)        5.000000            0.000000
                   GZSJ( ZHANG)        12.00000            0.000000
                      GZSJ( LI)        12.00000            0.000000
                  SL190( ZHANG)       0.9000000            0.000000
                     SL190( LI)       0.8000000            0.000000
7 {, P8 Y5 o( l- y                  SL160( ZHANG)       0.9000000            0.000000
                     SL160( LI)       0.9000000            0.000000
                  SL270( ZHANG)       0.8000000            0.000000
0 ?1 M% i8 `0 W  Y                     SL270( LI)       0.6000000            0.000000
7 A! V. C2 D9 Z0 i! f                  SJ190( ZHANG)       0.3770000            0.000000
4 D/ b- S% I) j& _                     SJ190( LI)       0.4120000            0.000000
                  SJ160( ZHANG)       0.4400000            0.000000
                     SJ160( LI)       0.4400000            0.000000
0 P0 T: K! K" {4 R; b* b                  SJ270( ZHANG)        2.880000            0.000000
                     SJ270( LI)        3.360000            0.000000
                      K( ZHANG)        1.000000            0.000000
                         K( LI)        1.000000            0.000000
                    ZYS( ZHANG)        0.000000            0.000000
                       ZYS( LI)        0.000000            0.000000
                      X( ZHANG)        0.000000           0.3770000
& s8 I3 H1 W, w. L: P4 {                         X( LI)        0.000000           0.4120000
                      Y( ZHANG)        0.000000           0.4400000
) ~! _  r) c- ~% A: A                         Y( LI)        0.000000           0.4400000
' L7 M" b( o- \$ G6 x; N                      Z( ZHANG)        0.000000            2.880000
                         Z( LI)        0.000000            3.360000

% i6 ?1 I1 f7 P2 _8 v* |( v- E. m                            Row    Slack or Surplus      Dual Price
                             BB        0.000000           -1.000000
4 ]! `2 T( j1 w: _2 Z5 `# L                              2        12.00000            0.000000
                              3        12.00000            0.000000
, p) A$ D; R) O1 D/ H                              4        0.000000            0.000000
1 c* Z+ F9 v5 W2 k+ v! I                              5        0.000000            0.000000
  |. C' x6 F7 G6 P$ ^! i& A                              6        0.000000            0.000000
                              7        0.000000            0.000000
/ p: ]5 L: H: z0 ]' n                              8        0.000000            0.000000
" r: N6 f7 T8 E7 R* z# c1 @                              9        0.000000            0.000000
                             10        0.000000            0.000000
6 _, J# m) S1 {# H# V; l5 s0 X                             11        0.000000            0.000000
7 g/ R; x* |. L8 o                             12        31.50000            0.000000
/ p6 `9 s) p, o- f8 x5 C/ }( N* V                             13        28.00000            0.000000
4 F& Z" c  f) W& F                             14        0.000000            0.000000
; V7 Y+ ], z; F# i' c                             15        0.000000            0.000000
$ |0 t8 D; Z& J/ a                             16        27.00000            0.000000
# J  f; T' C! i  E' B9 @$ z6 W" G! D                             17        27.00000            0.000000
# C0 a( z5 S( l, v' c! s                             18        0.000000            0.000000
                             19        0.000000            0.000000
                             20        4.000000            0.000000
                             21        3.000000            0.000000
6 V0 V4 c$ T' j0 ^" P( V: Q                             22        0.000000            0.000000
                             23        0.000000            0.000000
6 d5 Z. ?% u! {. w, N+ W) c                             24        0.000000            0.000000
) Y3 B/ B1 L$ r- l6 y, ^$ f                             25        0.000000            0.000000
9 C  r8 n; A; D+ ~                             26        0.000000            0.000000
, D7 j/ X4 ^& I- K# W! x                             27        0.000000            0.000000

olh2008

VB中调用Lingo使用DLL就行了

olh2008

这是一个例子，可以参考一下。
Staff1.rar (8.2 KB, 下载次数: 6)

2010-4-16 07:50 上传

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

cqwj

回复 3# olh2008
) O( }! n1 ^- k4 P: n$ C
/ w6 a$ [4 q* q5 m3 R9 ?
8 h  l4 v3 q) z& d$ V1 o    你发的附件不对，再说我也有这个例程，只是不清楚指针这么写到数模里才好调用。

olh2008

指针怎么写到数模里

4 |' S  G$ W% N这是什么意思？

legan

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

funintears

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

haoshuang3394

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

风云雨哲

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

cqwj

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