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

cqwj

1 E' Q: j9 w) o指针处怎么写？？
! x3 S$ B0 J/ @: W我的意思就是说@pointer在模型里面怎么定义？如@pointer（1）=？？或 ？？=@pointer（1）
表示什么意思。我个人理解@pointer（1）=？？表示把数模变量的值？？装进@pointer（1）这个储存单元，外部程序程序可调用此储存单元数据。？？=@pointer（1）表示外部数据值？？通过DLL传来的数据放进数模变量，这样理解对吗？
4 U; g4 d& M- s3 s) N! ?6 @: i:) sets:
; o) X9 s" W' ~; txinxi:cl190,cl160,cl270,gzsj,sl190,sl160,sl270,sj190,sj160,sj270,k,zys,x,y,z;
endsets
data:
xinxi,cl190,cl160,cl270,gzsj,sl190,sl160,sl270,sj190,sj160,sj270,k= @file("li_yong.txt")
@TEXT()=@status();
enddata
! F8 ]- ]  n) G$ }) `( d) P7 |[bb] min=@sum(xinxi:sj190*x+sj160*y+sj270*z);
@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);
( {3 P) |  [/ @  k# l@sum(xinxi:x)=sr190;
) {" {, G/ L( R0 H9 p: O@sum(xinxi:y)=sr160;
  d/ N$ G2 }3 K& A$ B@sum(xinxi:z)=sr270;
: g4 N& D/ m; c  N@sum(xinxi:x)>=0;
@sum(xinxi:y)>=0;
@sum(xinxi:z)>=0;
) Y" j+ u. X- X) T1 f5 i@for(xinxi(i):x(i)<=cl190(i)*sl190(i));
@for(xinxi(i):x(i)>=0);
@for(xinxi(i):y(i)<=cl160(i)*sl160(i));
@for(xinxi(i):y(i)>=0);
@for(xinxi(i):z(i)<=cl270(i)*sl270(i));
4 v. H, @/ g; E2 a  o6 d@for(xinxi(i):z(i)>=0);
* T3 N+ t( m" p, i# S2 ]@for(xinxi(i):@gin(x(i)));
( a; ~  X% s8 K; e9 Z: _@for(xinxi(i):@gin(y(i)));
& ?9 Y9 H/ }4 T@for(xinxi(i):@gin(z(i)));
! `4 K* y  A, M( `mm=@sum(xinxi:k);
8 E% K* S8 L% ^- f0 txx=@sum(xinxi:sj190*x+sj160*y+sj270*z)/mm;
  [  R" W) n5 C
@for(xinxi(i):zys(i)=sj190(i)*x(i)+sj160(i)*y(i)+sj270(i)*z(i));
3 L0 v3 v( Z& Y7 _9 p8 J: sDATA:
2 o, Y7 x+ h7 O- N. \3 t    @POINTER
( S  F7 Z( ~4 G) W* i, g: W/ x
!此处结果想连接VB6.0，却不知道怎么写;
ENDDATA

+ d* ~  S& }3 u1 P5 T; Tend
结果为 主要是想取 X，Y，Z的结果
5 g8 t& f' {! eGlobal optimal solution found.
' T, ?3 o* y. z' ]: I   Objective value:                              0.000000
2 G( `7 w8 j8 k( p   Extended solver steps:                               0
9 o1 k! M( P7 Y   Total solver iterations:                             0
0 C' J, w# T% H/ V/ y
4 ]" L3 y& q% F% `
                0

! g5 n- E, I9 q* j2 m4 c6 e                       Variable           Value        Reduced Cost
                          SR190        0.000000            0.000000
                          SR160        0.000000            0.000000
                          SR270        0.000000            0.000000
                             MM        2.000000            0.000000
                             XX        0.000000            0.000000
/ q) w: _+ I! A; r                  CL190( ZHANG)        35.00000            0.000000
( {7 v. h* x! ^$ S; l3 W$ {1 F                     CL190( LI)        35.00000            0.000000
                  CL160( ZHANG)        30.00000            0.000000
5 c. v, ]6 D5 c                     CL160( LI)        30.00000            0.000000
2 N7 i. A) J; l1 v, ]0 ~6 b                  CL270( ZHANG)        5.000000            0.000000
- H  @! ~( j4 U4 @1 J# v                     CL270( LI)        5.000000            0.000000
6 N# e) x% @: g) X                   GZSJ( ZHANG)        12.00000            0.000000
, i5 c. r9 p5 ~  e                      GZSJ( LI)        12.00000            0.000000
+ R4 m3 C5 a0 k                  SL190( ZHANG)       0.9000000            0.000000
& `9 ]- p2 G9 I                     SL190( LI)       0.8000000            0.000000
6 O* }0 N4 q2 c0 `  K% p$ F                  SL160( ZHANG)       0.9000000            0.000000
: e9 L9 `8 s3 d* `/ e  d                     SL160( LI)       0.9000000            0.000000
                  SL270( ZHANG)       0.8000000            0.000000
                     SL270( LI)       0.6000000            0.000000
: r3 Y( l+ k0 v  Y6 p4 y: _                  SJ190( ZHANG)       0.3770000            0.000000
# Z1 p' u7 j. K( D- z- b                     SJ190( LI)       0.4120000            0.000000
                  SJ160( ZHANG)       0.4400000            0.000000
/ M1 V- x0 g: l+ m# S3 ]: U) z                     SJ160( LI)       0.4400000            0.000000
( _! t) `7 f, T% V                  SJ270( ZHANG)        2.880000            0.000000
4 K3 Q6 J4 Y- l- |4 P1 h& k                     SJ270( LI)        3.360000            0.000000
                      K( ZHANG)        1.000000            0.000000
                         K( LI)        1.000000            0.000000
, E- }0 t  W- U$ d  H5 V# J' @5 ~                    ZYS( ZHANG)        0.000000            0.000000
                       ZYS( LI)        0.000000            0.000000
                      X( ZHANG)        0.000000           0.3770000
- E+ V" ]! f  n! B                         X( LI)        0.000000           0.4120000
                      Y( ZHANG)        0.000000           0.4400000
                         Y( LI)        0.000000           0.4400000
                      Z( ZHANG)        0.000000            2.880000
* F9 h3 m" Z8 B                         Z( LI)        0.000000            3.360000
+ _/ A: C+ B% x
                            Row    Slack or Surplus      Dual Price
                             BB        0.000000           -1.000000
- y6 Y. I0 o& w( J& l                              2        12.00000            0.000000
1 s2 Q6 i/ w6 m, p' l6 n. r                              3        12.00000            0.000000
% i  q) L* }7 S" P                              4        0.000000            0.000000
" q6 Z0 q3 `4 ^. c  g1 w/ G$ D                              5        0.000000            0.000000
/ V5 O5 L) @. I                              6        0.000000            0.000000
                              7        0.000000            0.000000
                              8        0.000000            0.000000
" f! E! ^6 y+ y# r" _8 q+ \) y                              9        0.000000            0.000000
, p' Q  X" y0 }5 p( V1 @                             10        0.000000            0.000000
, T8 k, f; r8 @" f% z! S1 B# T                             11        0.000000            0.000000
                             12        31.50000            0.000000
                             13        28.00000            0.000000
) P1 M7 Q' G) Y5 f  H. f& u0 P                             14        0.000000            0.000000
                             15        0.000000            0.000000
                             16        27.00000            0.000000
! [5 _+ ?4 O8 {( H: P                             17        27.00000            0.000000
: i4 c+ g7 Z" j5 l# @8 R7 G' V                             18        0.000000            0.000000
                             19        0.000000            0.000000
1 A. C6 l$ p8 v4 ~+ o                             20        4.000000            0.000000
& S7 h0 a  u2 h                             21        3.000000            0.000000
                             22        0.000000            0.000000
. n, a# H+ d5 Z8 m+ }) ^                             23        0.000000            0.000000
                             24        0.000000            0.000000
$ r* W0 D# d9 ^) B8 |' X8 n                             25        0.000000            0.000000
: G! x5 U+ m9 V1 a6 j                             26        0.000000            0.000000
                             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
# a' W$ I& t4 X+ k; G7 \; K

! O2 W! z; \  U0 @9 j    你发的附件不对，再说我也有这个例程，只是不清楚指针这么写到数模里才好调用。

olh2008

指针怎么写到数模里

8 P# Q- d+ L' ?2 @7 a这是什么意思？

legan

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

funintears

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

haoshuang3394

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

风云雨哲

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

cqwj

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