数学建模社区-数学中国
标题:
学了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/ ^ Z
endsets
, b2 l- h3 d/ G% I g/ m& ]5 W
data:
& |# Y! @% ~ E9 P1 T% a& W
xinxi,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
enddata
5 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/ X
mm=@sum(xinxi:k);
( ]" p! q3 @( x/ n, f3 E3 s
xx=@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 A
ENDDATA
4 o' V" ~4 d# f
% Q0 g+ y$ T" T6 e
end
8 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.000000
8 \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.000000
7 |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.000000
1 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.000000
8 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.000000
2 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.360000
5 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.000000
7 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.000000
2 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)
2010-4-16 07:50 上传
点击文件名下载附件
下载积分: 体力 -2 点
作者:
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
请教高手Ｌｉｎｇｏ的使用。请教高手Ｌｉｎｇｏ的使用。
作者:
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 Brief
4 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; m
NONZ
# 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# p
RANGE
: ?/ 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
Staff1.rar
(8.2 KB, 下载次数: 6)
Staff1.rar
(8.2 KB, 下载次数: 6)