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

cqwj

: f  w# K6 C" ?/ S6 q/ Z
指针处怎么写？？
我的意思就是说@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
data:
' T2 a" X7 U2 D# Ixinxi,cl190,cl160,cl270,gzsj,sl190,sl160,sl270,sj190,sj160,sj270,k= @file("li_yong.txt")
) ?% B( L# D6 ~  j. U" ~( ^) R9 H% T4 D# X! {@TEXT()=@status();
7 }+ u% ^- l" C- benddata
[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);
2 p8 R. B, ?3 L@for(xinxi(i):sj190(i)*x(i)+sj160(i)*y(i)+sj270(i)*z(i)>=0);
2 c7 m5 t; M- z# [6 _" V@sum(xinxi:x)=sr190;
@sum(xinxi:y)=sr160;
# V6 i. D6 V5 }. U! A@sum(xinxi:z)=sr270;
@sum(xinxi:x)>=0;
@sum(xinxi:y)>=0;
@sum(xinxi:z)>=0;
@for(xinxi(i):x(i)<=cl190(i)*sl190(i));
4 ]# [2 E& Q# ^7 p@for(xinxi(i):x(i)>=0);
9 K8 h  x- E3 Z. u" v@for(xinxi(i):y(i)<=cl160(i)*sl160(i));
@for(xinxi(i):y(i)>=0);
@for(xinxi(i):z(i)<=cl270(i)*sl270(i));
" P+ @2 n) e9 [2 V! A1 O; L2 j" ?@for(xinxi(i):z(i)>=0);
4 _- }( C" Z% t- D7 t* ]; E9 E! k@for(xinxi(i):@gin(x(i)));
5 U0 i- c. [  M@for(xinxi(i):@gin(y(i)));
@for(xinxi(i):@gin(z(i)));
mm=@sum(xinxi:k);
xx=@sum(xinxi:sj190*x+sj160*y+sj270*z)/mm;

8 R2 U  f" o% p@for(xinxi(i):zys(i)=sj190(i)*x(i)+sj160(i)*y(i)+sj270(i)*z(i));
+ j# v, t9 R4 ]3 YDATA:
    @POINTER

!此处结果想连接VB6.0，却不知道怎么写;
ENDDATA
8 N/ Q, Z6 s/ f2 o
; {. W$ t) k7 Rend
结果为 主要是想取 X，Y，Z的结果
Global optimal solution found.
$ o1 l) W# v7 ?' \) \   Objective value:                              0.000000
   Extended solver steps:                               0
, x# R$ ^" }# C$ C  Q   Total solver iterations:                             0
4 f8 q0 S3 o" z! D4 \

                0

                       Variable           Value        Reduced Cost
" `- D' M% E' G( k5 `$ q; R                          SR190        0.000000            0.000000
                          SR160        0.000000            0.000000
3 `6 A, P; G% ?. l                          SR270        0.000000            0.000000
5 O" O( P/ B) \" f                             MM        2.000000            0.000000
- _/ J1 y; G& E" a& ~. L6 j                             XX        0.000000            0.000000
                  CL190( ZHANG)        35.00000            0.000000
                     CL190( LI)        35.00000            0.000000
7 v  f) a3 Q. _- }                  CL160( ZHANG)        30.00000            0.000000
                     CL160( LI)        30.00000            0.000000
; c% w0 @) W2 q4 I; F/ B' x$ F                  CL270( ZHANG)        5.000000            0.000000
* H& H6 j. y0 ]. s; r                     CL270( LI)        5.000000            0.000000
3 {. X' b% L; Z. M4 o                   GZSJ( ZHANG)        12.00000            0.000000
                      GZSJ( LI)        12.00000            0.000000
- l% A7 f. n% s6 u; s7 M                  SL190( ZHANG)       0.9000000            0.000000
7 \# _5 r2 T# ]& ?                     SL190( LI)       0.8000000            0.000000
                  SL160( ZHANG)       0.9000000            0.000000
4 s( r: F# Q% _1 P  h; F                     SL160( LI)       0.9000000            0.000000
" ~8 _9 R+ ~' |" Z9 }3 T                  SL270( ZHANG)       0.8000000            0.000000
                     SL270( LI)       0.6000000            0.000000
5 A, o. A6 V* C% A8 o" t0 f                  SJ190( ZHANG)       0.3770000            0.000000
                     SJ190( LI)       0.4120000            0.000000
                  SJ160( ZHANG)       0.4400000            0.000000
  e- C. A, |% j) D4 E; O                     SJ160( LI)       0.4400000            0.000000
/ o* |# N" E0 f1 q" q4 f                  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
( b# m. y# i: C/ b                       ZYS( LI)        0.000000            0.000000
9 @! c! V+ \8 C0 A1 M/ e' V                      X( ZHANG)        0.000000           0.3770000
) D# n% Z3 \% M: A. ^                         X( LI)        0.000000           0.4120000
                      Y( ZHANG)        0.000000           0.4400000
                         Y( LI)        0.000000           0.4400000
                      Z( ZHANG)        0.000000            2.880000
' l$ h" Q/ r! [& J( [& t/ C5 f. o                         Z( LI)        0.000000            3.360000

                            Row    Slack or Surplus      Dual Price
) g3 G% ^1 Y; }2 S                             BB        0.000000           -1.000000
  G2 j, U! M1 X3 `$ C* h1 _6 l* a                              2        12.00000            0.000000
                              3        12.00000            0.000000
+ h/ [' _1 r8 @8 T' ]                              4        0.000000            0.000000
                              5        0.000000            0.000000
                              6        0.000000            0.000000
1 D2 [; E3 u1 G0 l+ M. T+ p                              7        0.000000            0.000000
                              8        0.000000            0.000000
& \( h- D9 n' I- ], u3 `                              9        0.000000            0.000000
  g+ b* A/ V& e0 i                             10        0.000000            0.000000
                             11        0.000000            0.000000
                             12        31.50000            0.000000
                             13        28.00000            0.000000
                             14        0.000000            0.000000
  ~: Q& F% H0 C$ l! Z                             15        0.000000            0.000000
5 H5 `; a8 o5 t8 i" l; }* I                             16        27.00000            0.000000
8 J; D4 D1 ]% m1 _7 s                             17        27.00000            0.000000
2 p3 E3 {2 A! W8 O                             18        0.000000            0.000000
                             19        0.000000            0.000000
/ R/ |7 i$ C8 `/ r6 x                             20        4.000000            0.000000
                             21        3.000000            0.000000
% }4 b2 b2 h- j4 M6 N* p6 t                             22        0.000000            0.000000
% K7 [! p. R1 e! u- s, C0 Z                             23        0.000000            0.000000
                             24        0.000000            0.000000
                             25        0.000000            0.000000
2 _0 z4 g7 z: y& H4 G2 d                             26        0.000000            0.000000
" |: V# v" t3 U+ h                             27        0.000000            0.000000

olh2008

VB中调用Lingo使用DLL就行了

olh2008

这是一个例子，可以参考一下。
) _+ \7 N/ z( P( E+ c Staff1.rar (8.2 KB, 下载次数: 6)

2010-4-16 07:50 上传

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

cqwj

回复 3# olh2008


    你发的附件不对，再说我也有这个例程，只是不清楚指针这么写到数模里才好调用。

olh2008

指针怎么写到数模里

! j: p$ t6 D$ n# D这是什么意思？

legan

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

funintears

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

haoshuang3394

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

风云雨哲

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

cqwj

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