数学建模社区-数学中国

标题: 学了LINGO才2天别笑我写的东西,求助接口指针写法。 [打印本页]

作者: cqwj    时间: 2010-4-15 23:52
标题: 学了LINGO才2天别笑我写的东西,求助接口指针写法。
本帖最后由 cqwj 于 2010-4-18 13:47 编辑
9 k, ]6 }' Z* N6 `' }* r1 p
% S" Q, W$ G( F. R指针处怎么写??! P' g/ a% o$ ?8 P. v: O
我的意思就是说@pointer在模型里面怎么定义?如@pointer(1)=??或 ??=@pointer(1)
! H: o4 ?( J+ B% a表示什么意思。我个人理解@pointer(1)=??表示把数模变量的值??装进@pointer(1)这个储存单元,外部程序程序可调用此储存单元数据。??=@pointer(1)表示外部数据值??通过DLL传来的数据放进数模变量,这样理解对吗?
; T4 b+ m, a( K4 |+ G& j/ g:) sets:
4 E8 K2 P& M2 D2 y) x( @xinxi:cl190,cl160,cl270,gzsj,sl190,sl160,sl270,sj190,sj160,sj270,k,zys,x,y,z;
5 G2 ]* X9 r8 E/ ^  Zendsets, b2 l- h3 d/ G% I  g/ m& ]5 W
data:
& |# Y! @% ~  E9 P1 T% a& Wxinxi,cl190,cl160,cl270,gzsj,sl190,sl160,sl270,sj190,sj160,sj270,k= @file("li_yong.txt")
% j% ^& G1 W, [* ^6 r2 x@TEXT()=@status();, p2 a- R2 J' ]4 ?$ q
enddata5 X4 z4 M8 c2 a( u! B
[bb] min=@sum(xinxi:sj190*x+sj160*y+sj270*z);, q+ U. v5 |8 Z# N- N' U
@for(xinxi(i):sj190(i)*x(i)+sj160(i)*y(i)+sj270(i)*z(i)<=12);
8 A2 \' e' S$ d@for(xinxi(i):sj190(i)*x(i)+sj160(i)*y(i)+sj270(i)*z(i)>=0);
) w$ F+ f% w  _: H3 C, ~@sum(xinxi:x)=sr190;
! V1 G' `" [- E. r0 N* f* f- Q/ r" N@sum(xinxi:y)=sr160;2 U- N; K$ l# s- N; E" o
@sum(xinxi:z)=sr270;
% ^9 c4 f2 C8 g6 `! ]. c@sum(xinxi:x)>=0;0 _# k: b; @5 Q1 h- M8 B! M
@sum(xinxi:y)>=0;; N( `. j5 x% ]/ C
@sum(xinxi:z)>=0;& c6 ~! N! {1 U& N" T( V% }8 u
@for(xinxi(i):x(i)<=cl190(i)*sl190(i));
4 ^+ ~0 O) R$ a2 W3 A0 d' `0 J@for(xinxi(i):x(i)>=0);
. k. v0 {7 v5 u@for(xinxi(i):y(i)<=cl160(i)*sl160(i));
( }* ~* B. H: M# |- I# \6 x# ]$ D3 I@for(xinxi(i):y(i)>=0);1 \0 }6 ?" J0 w& L+ o
@for(xinxi(i):z(i)<=cl270(i)*sl270(i));
" O% s1 r" C4 R$ e1 T1 L2 N) ~@for(xinxi(i):z(i)>=0);& \' A, ?; e" f' h* X- I
@for(xinxi(i):@gin(x(i)));
- \, o; e  @" |: u1 Q5 v* f@for(xinxi(i):@gin(y(i)));
/ @$ M0 u. q) p! @' {; I: h5 _@for(xinxi(i):@gin(z(i)));
" t9 n0 b# \  V7 {1 r9 A# K( R/ Xmm=@sum(xinxi:k);
( ]" p! q3 @( x/ n, f3 E3 sxx=@sum(xinxi:sj190*x+sj160*y+sj270*z)/mm;
2 L# k1 ^# K" R
2 A+ |2 ~* Y* N% X2 |@for(xinxi(i):zys(i)=sj190(i)*x(i)+sj160(i)*y(i)+sj270(i)*z(i));; B0 M. i- }, \3 Q/ m; e5 f) l
DATA:
2 d% \/ v$ f. i    @POINTER
9 R. P6 z& {0 |4 u$ Q$ s( P  J1 {% P" S5 w. b
!此处结果想连接VB6.0,却不知道怎么写;
4 U0 e( m# w% W3 AENDDATA
4 o' V" ~4 d# f% Q0 g+ y$ T" T6 e
end8 s) V# Q+ Q. i+ h5 U3 h
结果为 主要是想取 X,Y,Z的结果6 O  V+ I. ~! u0 D4 B! ^1 }
Global optimal solution found.6 J8 J1 M4 w: g1 U
   Objective value:                              0.000000, q: q, ], b# O+ K
   Extended solver steps:                               0
! O. `6 X/ N2 W# w   Total solver iterations:                             0
' M/ d- j% d: x$ c  L5 h- J) @0 ]
; x* R- D4 N, Z5 D1 f, U; b9 y% ]6 ]
                0
8 N$ R, I& s0 @( P7 R: u
# m% g2 y/ V- ^' i: n# H8 a                       Variable           Value        Reduced Cost& T$ v8 F* Z3 a2 J. H
                          SR190        0.000000            0.000000
8 \5 n1 I3 K3 D" C+ e# Z2 h/ x                          SR160        0.000000            0.000000: P1 C- W/ {$ q
                          SR270        0.000000            0.000000. f. h/ {* l! ~% h. @5 a5 F
                             MM        2.000000            0.000000- t- x9 Z) Q  a9 T# n/ i! [
                             XX        0.000000            0.000000% }" W3 i* J4 M3 N6 I# U% i% O
                  CL190( ZHANG)        35.00000            0.000000( B5 a1 w6 y$ \) `
                     CL190( LI)        35.00000            0.000000- Y5 p  t7 w" W& O% w. d% N
                  CL160( ZHANG)        30.00000            0.000000
2 t; I+ w" p) Y  p3 H* {                     CL160( LI)        30.00000            0.000000
1 A1 P+ b) c- d# Y                  CL270( ZHANG)        5.000000            0.0000008 \4 i. R* y1 |) K: h
                     CL270( LI)        5.000000            0.000000+ y+ X4 H2 B$ }, h* g
                   GZSJ( ZHANG)        12.00000            0.000000, k( b* F8 S6 z7 T
                      GZSJ( LI)        12.00000            0.000000, y; l" }: F" L$ }- X  t
                  SL190( ZHANG)       0.9000000            0.0000007 |5 S& v0 x% l( P- l
                     SL190( LI)       0.8000000            0.000000$ K. S( b* y% u/ Z# ]( K) I9 u
                  SL160( ZHANG)       0.9000000            0.000000
- X* O1 B9 h6 @' }, {0 _# s! l                     SL160( LI)       0.9000000            0.000000
* o" S1 f* f8 \7 L                  SL270( ZHANG)       0.8000000            0.000000# T6 c/ j$ g7 E- l; ]1 M$ ]
                     SL270( LI)       0.6000000            0.000000: |; W  {6 h- O6 W5 b
                  SJ190( ZHANG)       0.3770000            0.000000
0 F% A& z/ x7 J: f% I) ^* @                     SJ190( LI)       0.4120000            0.0000001 X& x* V4 G4 p' K  u. J& o
                  SJ160( ZHANG)       0.4400000            0.000000
0 g" Q0 ~: |* M                     SJ160( LI)       0.4400000            0.000000
2 q* O4 P0 p. ~4 @2 b+ u( h5 {                  SJ270( ZHANG)        2.880000            0.000000$ P' o5 Q3 S$ ~0 _
                     SJ270( LI)        3.360000            0.000000
+ h/ t; r5 t6 k' ?5 O: ~5 B                      K( ZHANG)        1.000000            0.0000008 i' i3 n2 z7 W; Z
                         K( LI)        1.000000            0.000000" ], p- h( n# [8 x5 A! W( T
                    ZYS( ZHANG)        0.000000            0.000000
+ K* t( n; K& V. Y                       ZYS( LI)        0.000000            0.0000002 C7 E0 T+ z3 t; z* ?1 r1 N
                      X( ZHANG)        0.000000           0.3770000
. t3 u. f; O* v3 g% A                         X( LI)        0.000000           0.4120000" @$ U' ~' z2 d( p
                      Y( ZHANG)        0.000000           0.4400000
" T" B! o6 M  U$ v% J" f+ Y                         Y( LI)        0.000000           0.4400000
% |$ r, j2 E: e9 u% S9 P$ t. W                      Z( ZHANG)        0.000000            2.880000
% X0 |$ @$ t3 U1 f6 D& ~1 }! S                         Z( LI)        0.000000            3.3600005 f9 a$ N2 K! D5 x* g
" f! i1 @$ j! E; d) U3 }
                            Row    Slack or Surplus      Dual Price. @0 n% |, V; f( O2 E
                             BB        0.000000           -1.000000# ]7 A6 F, B) U& d$ N
                              2        12.00000            0.000000, A% ]; A+ ]/ F2 ^7 ^! t3 {+ v
                              3        12.00000            0.000000
! c% Z! `3 L' Q( c( ]: [                              4        0.000000            0.000000* ^. B* E& K# W! S2 |# e
                              5        0.000000            0.000000
- d# N* f- i4 D                              6        0.000000            0.000000& \; l0 X! O& }9 K/ H. ?' w
                              7        0.000000            0.0000007 k8 h5 B' k5 D6 R
                              8        0.000000            0.000000
4 h( G* u) l" _8 c5 w% b% l                              9        0.000000            0.000000
3 P4 @7 J) A/ C3 F: E) K9 B                             10        0.000000            0.000000
, W; O' `9 [0 H2 a+ _1 R3 v5 w# ~5 U                             11        0.000000            0.000000# m0 y. C( b2 Y% v
                             12        31.50000            0.000000
- P; w8 u1 j' x; c, g& J                             13        28.00000            0.000000; O- x3 w. ^3 H6 r) v9 e8 n
                             14        0.000000            0.000000
$ U* d' h! d- v7 z                             15        0.000000            0.000000
  M5 w; D5 S! f! O                             16        27.00000            0.000000
: Y7 Y' r( w2 N6 }1 @/ p                             17        27.00000            0.000000. `4 g+ C6 K( U( y
                             18        0.000000            0.000000+ u5 z, O* A. |, I
                             19        0.000000            0.000000+ N5 t# N' t- {0 c# R) ]$ L
                             20        4.000000            0.000000
7 q8 f2 F( F% f6 s# i1 J                             21        3.000000            0.000000, |9 b2 v: `! r1 D
                             22        0.000000            0.000000* \' j7 r3 i$ i3 J" M3 U
                             23        0.000000            0.000000+ Q$ s( S2 m% Q+ G
                             24        0.000000            0.000000. q& j; |! @  q( u. c( A$ _
                             25        0.000000            0.000000
6 a% W( _1 M0 _: J% n                             26        0.000000            0.0000002 m  p( i8 x0 \" O
                             27        0.000000            0.000000
作者: olh2008    时间: 2010-4-16 07:49
VB中调用Lingo使用DLL就行了
作者: olh2008    时间: 2010-4-16 07:50
这是一个例子,可以参考一下。; Q1 g1 M" L" ^- E
Staff1.rar (8.2 KB, 下载次数: 6)
作者: cqwj    时间: 2010-4-16 11:56
回复 3# olh2008
/ B4 u6 A( |5 ^2 j2 y! x* `* @4 O8 D4 q
# R) g3 _! N& _# f5 V& J+ M* g) S
    你发的附件不对,再说我也有这个例程,只是不清楚指针这么写到数模里才好调用。
作者: olh2008    时间: 2010-4-16 11:59
指针怎么写到数模里
! Y, @# D1 {. W2 M" D& X! y
这是什么意思?
作者: 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
请教高手Lingo的使用。请教高手Lingo的使用。
作者: 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的帮助文档。例如:- @. D- Q/ E( I2 s/ ^% U
Solution Commands in Brief4 h5 j' m, \3 }$ Q% k2 e7 E7 d9 z  m( m
Top  Previous  Next  1 K4 E6 d; V7 X1 h7 {4 |6 F
DEBUG
1 M$ K/ h9 C$ E tracks down formulation errors in infeasible and unbounded models* R5 j- _9 l8 V/ I0 n" u$ M
; E( x" J+ i, x) x/ j3 x, E
GO
3 p) J0 L; ^6 T solves the current model
5 L, Y; p$ p. o, H4 M
; F0 _; ^; ]6 O8 x9 X; mNONZ
# U* p: R" ?3 i+ h. \ generates a nonzeros only solution report& Z7 N/ K( b; j+ f. J  z8 E

% h) O' m% m7 D- d: i8 r) J# pRANGE : ?/ J% y9 g  p8 o3 ]
generates a range analysis report
4 i5 C9 L" _! q# m0 y ) P, m, W3 j/ h5 p
SOLU
5 ]4 {  ^/ @( X  P 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