数学建模社区-数学中国

标题: 学了LINGO才2天别笑我写的东西，求助接口指针写法。 [打印本页]
作者: cqwj    时间: 2010-4-15 23:52
标题: 学了LINGO才2天别笑我写的东西，求助接口指针写法。
本帖最后由 cqwj 于 2010-4-18 13:47 编辑
1 L, ]" {1 Y' J$ h4 K2 F5 G# [& h$ [; a6 \6 c8 |" A
指针处怎么写？？
9 I0 ]2 _/ C: J3 B我的意思就是说@pointer在模型里面怎么定义？如@pointer（1）=？？或 ？？=@pointer（1）( N$ T0 l/ A( \& W, v: b/ v4 \7 A/ f
表示什么意思。我个人理解@pointer（1）=？？表示把数模变量的值？？装进@pointer（1）这个储存单元，外部程序程序可调用此储存单元数据。？？=@pointer（1）表示外部数据值？？通过DLL传来的数据放进数模变量，这样理解对吗？
& R! N) ^/ G) u, q: P/ T9 O$ w:) sets:
) ~) j% Q) D9 {: |3 Ixinxi:cl190,cl160,cl270,gzsj,sl190,sl160,sl270,sj190,sj160,sj270,k,zys,x,y,z;
, X$ X- u. R6 Y$ A9 v  xendsets
* [! a  L' [3 t* c4 cdata:, R1 F% p: z/ W
xinxi,cl190,cl160,cl270,gzsj,sl190,sl160,sl270,sj190,sj160,sj270,k= @file("li_yong.txt")
$ H' E' V' t) a. q  w( h- l4 d@TEXT()=@status();
$ e! }, P4 p" G0 }  tenddata
( i. P; C+ \7 j/ \[bb] min=@sum(xinxi:sj190*x+sj160*y+sj270*z);
2 Z* N1 k/ h5 P6 }( t" b1 I0 L@for(xinxi(i):sj190(i)*x(i)+sj160(i)*y(i)+sj270(i)*z(i)<=12);
0 ]$ c( r, D0 i; |@for(xinxi(i):sj190(i)*x(i)+sj160(i)*y(i)+sj270(i)*z(i)>=0);: a) d! E, z% R. @* S  P0 I5 V8 r
@sum(xinxi:x)=sr190;2 T0 v3 U: i1 d4 ^
@sum(xinxi:y)=sr160;
% b) T7 M% x3 b2 X@sum(xinxi:z)=sr270;
" f* E% t/ ~/ q) R' z7 j& D0 Z, ^@sum(xinxi:x)>=0;8 b' `7 i8 K! g% x# B. I
@sum(xinxi:y)>=0;; [; V: O' N4 t0 u
@sum(xinxi:z)>=0;
* Q# o) p$ g& ^, p1 x@for(xinxi(i):x(i)<=cl190(i)*sl190(i));
1 U( F; h% L( l+ [5 t8 `% q@for(xinxi(i):x(i)>=0);
- [4 s! i' I! Z" V' r( \& ~@for(xinxi(i):y(i)<=cl160(i)*sl160(i));! G* k0 i3 z' w
@for(xinxi(i):y(i)>=0);
! g+ Z6 T' x& M. n3 H. h: ~@for(xinxi(i):z(i)<=cl270(i)*sl270(i));# x4 N. z7 o  r1 W
@for(xinxi(i):z(i)>=0);5 w" x4 X( r* `: A. X
@for(xinxi(i):@gin(x(i)));
! w" L- K) d2 K. o( K) e' [1 B@for(xinxi(i):@gin(y(i)));  d" J8 U1 g+ b. w: z3 l3 d
@for(xinxi(i):@gin(z(i)));0 C% c& N0 u3 A7 z  i1 \- h$ N
mm=@sum(xinxi:k);9 Y+ r6 [: G$ m8 h. H8 u
xx=@sum(xinxi:sj190*x+sj160*y+sj270*z)/mm;
: M2 U3 ]7 f+ B6 W6 J
3 J" N! R! e% ~4 d% T@for(xinxi(i):zys(i)=sj190(i)*x(i)+sj160(i)*y(i)+sj270(i)*z(i));- Z  V& @) k' Y+ ]2 O
DATA:
, B% Z7 s2 b; }$ k' j    @POINTER" _; X: p6 X$ e+ }1 w% h

6 `' ]4 x9 M' A0 K!此处结果想连接VB6.0，却不知道怎么写;
# T; z$ |# x6 ]ENDDATA
1 D9 D9 N+ C) z2 n2 L8 c$ p. I
+ G7 {5 H9 _/ X4 X% }4 Z& n( e$ jend) Z0 l- \4 b. [
结果为 主要是想取 X，Y，Z的结果- H% h- ^- s$ t9 e0 `$ V8 V4 H
Global optimal solution found.4 T3 A6 Q! P* s" ^" |
   Objective value:                              0.0000008 ~8 a) z, z, {0 ?
   Extended solver steps:                               0. H. Z) k2 F) V: K1 z0 Q  V
   Total solver iterations:                             0' C: {& S4 a2 b+ V9 J  _/ x; y' h0 Q7 A

4 ^( L  P3 _" o: R, D- [) H
; S2 `% `& a* A/ i3 }4 [1 L                0, ]5 `) S+ `  P

9 P( F# u" |" E" `, \9 @                       Variable           Value        Reduced Cost
0 h% @2 N6 M2 j! s& _2 j                          SR190        0.000000            0.000000& }1 D' I7 N7 s* _
                          SR160        0.000000            0.000000
+ O) l5 k5 p4 {8 O1 }                          SR270        0.000000            0.000000& T- g* ^2 ]/ j  s  s# Z
                             MM        2.000000            0.000000
& T# ~" Y: c2 e) p1 R  @3 E+ a( p                             XX        0.000000            0.000000; D$ E8 N. V2 _
                  CL190( ZHANG)        35.00000            0.000000) O3 Z+ {5 N9 J' Y
                     CL190( LI)        35.00000            0.0000003 u3 `9 [2 `1 m0 `* c. M3 B1 i4 p
                  CL160( ZHANG)        30.00000            0.000000
8 V* F6 {: K, s                     CL160( LI)        30.00000            0.000000( E- m4 w/ N1 v: S8 M" L
                  CL270( ZHANG)        5.000000            0.000000
: R8 h# O3 ~3 @5 Q                     CL270( LI)        5.000000            0.0000004 ?8 D9 }/ O: b, L# U
                   GZSJ( ZHANG)        12.00000            0.000000
' a7 i. h, F' o0 B                      GZSJ( LI)        12.00000            0.000000( X* Y9 ]# N5 _) V
                  SL190( ZHANG)       0.9000000            0.0000004 W' l2 ^. s6 H( L1 m$ ^( B
                     SL190( LI)       0.8000000            0.000000: q: i2 ^. Y. f# [( p1 l
                  SL160( ZHANG)       0.9000000            0.000000, l  o* o# F7 W0 G
                     SL160( LI)       0.9000000            0.000000) S% G+ _: d4 g
                  SL270( ZHANG)       0.8000000            0.0000007 N9 _! g+ }% \% S4 y. x2 Z3 n
                     SL270( LI)       0.6000000            0.000000  O2 `$ d( B7 {
                  SJ190( ZHANG)       0.3770000            0.000000
' }, N: x0 l  s' J                     SJ190( LI)       0.4120000            0.000000
7 p" g' x; m* G" o7 z9 [                  SJ160( ZHANG)       0.4400000            0.000000
+ b# ^* o, N/ ~* |                     SJ160( LI)       0.4400000            0.000000
0 l6 M0 Z& D! f( h8 ^                  SJ270( ZHANG)        2.880000            0.000000
* d" m6 w" l8 A/ i0 b+ E5 \                     SJ270( LI)        3.360000            0.000000
. D( {8 q: |% C, h) m! _, n                      K( ZHANG)        1.000000            0.000000( W8 n: g! i! A1 U) g# C) [
                         K( LI)        1.000000            0.000000
7 R1 y2 F. l, y& B                    ZYS( ZHANG)        0.000000            0.0000005 N9 p2 B: [# M
                       ZYS( LI)        0.000000            0.000000# ^% a% M4 |- A
                      X( ZHANG)        0.000000           0.3770000
- o& `# J& f5 X) k- k( ]                         X( LI)        0.000000           0.4120000
7 [- s2 ^6 w+ x2 k8 m                      Y( ZHANG)        0.000000           0.4400000" [( V  |+ f# r* n  M6 R9 e
                         Y( LI)        0.000000           0.4400000
* b% F3 j& [  `) o4 x7 _                      Z( ZHANG)        0.000000            2.880000. ~- Y4 g/ P5 K5 c( V7 w6 I
                         Z( LI)        0.000000            3.3600007 N4 _. n& d* R0 q

& Z* ]0 j7 n+ w" u4 b                            Row    Slack or Surplus      Dual Price5 c+ E% W3 l. C
                             BB        0.000000           -1.000000% M; b8 t! [: t1 H. S+ `
                              2        12.00000            0.0000007 H; t8 ~* ~  ~
                              3        12.00000            0.0000001 ~7 ~! m/ a5 k5 g8 c- E
                              4        0.000000            0.000000
- i! i4 t- R) ^+ b9 N7 Q                              5        0.000000            0.000000- V1 T. T0 q1 d( c7 o) x
                              6        0.000000            0.0000004 `; ]0 |; ]6 y9 C( ?* k* N
                              7        0.000000            0.000000  c) H( j" q% R2 |8 n/ `1 ?
                              8        0.000000            0.000000
" o  O" X% Y" i                              9        0.000000            0.000000: H9 f) ?2 S3 w4 o1 F, ~& B
                             10        0.000000            0.000000
3 n9 b) E! d/ A& ~; o. ~/ d                             11        0.000000            0.000000! I$ j2 z, W6 `* X2 d1 W- t$ p
                             12        31.50000            0.000000' y% B7 ~$ i  G
                             13        28.00000            0.000000
2 u7 ]4 j7 O, }4 j* P                             14        0.000000            0.000000, ]! [2 Y" H8 ^8 V, i( T
                             15        0.000000            0.0000004 a: M8 A4 p: b# D& E
                             16        27.00000            0.000000! J# H* `1 Z- N  L4 P3 |7 k' M
                             17        27.00000            0.000000, d/ g& P. y7 A9 p! }
                             18        0.000000            0.000000
" b2 @# T( u2 k9 p- p                             19        0.000000            0.000000% G+ i9 a# u; A
                             20        4.000000            0.0000008 I5 X% m* E/ _: C, C& i. ~- `- G6 x8 W
                             21        3.000000            0.000000! S3 x% x* ?+ @* V0 \7 y  e8 o
                             22        0.000000            0.000000
' H- r) |' j2 Y% Q( K- X# l                             23        0.000000            0.000000
2 ]/ n! M/ K5 b                             24        0.000000            0.000000* l  i+ T/ o/ Y, H' \/ y9 p
                             25        0.000000            0.000000
: K! |! {& H5 c0 |2 V6 |                             26        0.000000            0.000000/ j  a$ {6 `6 Q8 l+ C+ E3 `8 ~# q
                             27        0.000000            0.000000
作者: olh2008    时间: 2010-4-16 07:49
VB中调用Lingo使用DLL就行了
作者: olh2008    时间: 2010-4-16 07:50
这是一个例子，可以参考一下。# m/ k3 ^2 J/ Z4 h3 F* s$ t
Staff1.rar (8.2 KB, 下载次数: 6)
作者: cqwj    时间: 2010-4-16 11:56
回复 3# olh2008 ( v4 h& u6 n' g* h5 Q3 K  F
/ l7 ^- H/ z8 P# ?' I
3 y1 C' E- T! ?5 I2 i4 Z7 E" `
    你发的附件不对，再说我也有这个例程，只是不清楚指针这么写到数模里才好调用。
作者: olh2008    时间: 2010-4-16 11:59
指针怎么写到数模里
: u, t8 @: X& Q, r8 N# L
这是什么意思？
作者: legan    时间: 2010-4-16 12:07
谁会LINGO与C++的混合编程啊，我想用C++的循环调用LINGO编的程序进行复杂的优化类问题计算
作者: funintears    时间: 2010-4-16 12:18
lingo可以和c++混合编程呀？！厉害，牛人指导下呀！！！
作者: haoshuang3394    时间: 2010-4-16 19:28
lingo怎么用啊，看着代码挺怪的？
作者: 风云雨哲    时间: 2010-4-16 20:04
请教高手Ｌｉｎｇｏ的使用。请教高手Ｌｉｎｇｏ的使用。
作者: cqwj    时间: 2010-4-16 22:16
LINGO的代码很简单，相当于命令格式，但是要灵活运用的话也不简单。
作者: cqwj    时间: 2010-4-16 22:17
年龄18岁以下的同学最好不用，会有依赖感
作者: madio    时间: 2010-4-16 22:53
要想用C++调用lingo需要了lingo的命令行使用方法，C++采用调用外部程序的方法也可以调用lingo。可以看lingo的帮助文档。例如：' E4 k1 G$ r3 Y* _
Solution Commands in Brief8 A/ y6 u1 D) ^
Top  Previous  Next  7 X/ h6 \9 c& L  r9 }* y, [
DEBUG
8 \9 T1 S! E! N. U8 o! G$ [ tracks down formulation errors in infeasible and unbounded models
9 d# F* m; T2 x9 A2 A  N, p' y6 u & y$ a3 ?0 n, B* X7 w0 N
GO # w3 T1 w2 W& q& _# m( q  i+ u- Y4 d
solves the current model
* _  r# f2 W# O" I; \ ; Z& K) y& ^  P+ G9 v! ?3 ?8 K
NONZ
8 P0 U" ?% Y3 u! A generates a nonzeros only solution report0 u/ \# b3 X7 {! s8 P0 z) a

5 K9 a# H/ d& mRANGE
  H2 p( `7 w; \4 X" Y( M generates a range analysis report
8 |$ d+ Y' X9 t
! M+ g% F' n2 o1 U" wSOLU
$ Z  c6 {1 h/ u generates a solution report
作者: fangxuanfxuan    时间: 2010-4-17 21:55
谢谢~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
作者: cqwj    时间: 2010-4-18 13:50
这是命令行语句，@pointer怎么用还是不清楚。。。。期待中。



欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) Powered by Discuz! X2.5