数学建模社区-数学中国
标题:
学了LINGO才2天别笑我写的东西,求助接口指针写法。
[打印本页]
作者:
cqwj
时间:
2010-4-15 23:52
标题:
学了LINGO才2天别笑我写的东西,求助接口指针写法。
本帖最后由 cqwj 于 2010-4-18 13:47 编辑
' L0 F. D- J- |4 `
1 b7 c8 P& i$ ~
指针处怎么写??
; f8 u& m5 D: @$ D
我的意思就是说@pointer在模型里面怎么定义?如@pointer(1)=??或 ??=@pointer(1)
, G+ e. x/ g9 C: A z9 f
表示什么意思。我个人理解@pointer(1)=??表示把数模变量的值??装进@pointer(1)这个储存单元,外部程序程序可调用此储存单元数据。??=@pointer(1)表示外部数据值??通过DLL传来的数据放进数模变量,这样理解对吗?
/ h+ U6 S9 U% M4 v: o
:) sets:
3 \/ v6 J0 O( Q) I9 t) a% _- V8 D6 N
xinxi:cl190,cl160,cl270,gzsj,sl190,sl160,sl270,sj190,sj160,sj270,k,zys,x,y,z;
# b4 `" f$ E! z. G3 o0 r U6 A
endsets
) o) y* Z9 d& j, y5 @& ^$ ~" T1 s
data:
! |+ d; q0 Y7 b D) e6 ?
xinxi,cl190,cl160,cl270,gzsj,sl190,sl160,sl270,sj190,sj160,sj270,k= @file("li_yong.txt")
- ^3 \; T0 C* X, T& Z' [
@TEXT()=@status();
' L/ z1 ^' q0 o% Z: a6 v
enddata
( x: v" N i/ r+ @2 W- w9 J- G: V
[bb] min=@sum(xinxi:sj190*x+sj160*y+sj270*z);
7 P% [! d9 |$ d4 \3 y
@for(xinxi(i):sj190(i)*x(i)+sj160(i)*y(i)+sj270(i)*z(i)<=12);
& t+ w! e/ Z- i5 p# _. U2 M
@for(xinxi(i):sj190(i)*x(i)+sj160(i)*y(i)+sj270(i)*z(i)>=0);
8 |9 |' c$ E+ A9 t, K7 [+ u
@sum(xinxi:x)=sr190;
3 M1 `: J1 D0 s. V! M, k
@sum(xinxi:y)=sr160;
+ J& C" `: P0 D# ^# N
@sum(xinxi:z)=sr270;
# C% M5 F" J/ I: y
@sum(xinxi:x)>=0;
" v8 B* M7 l$ _ k) U: ?
@sum(xinxi:y)>=0;
$ r+ J% Z( d9 F( U! v( n
@sum(xinxi:z)>=0;
/ z) M A% f' d8 K. ^& \3 P1 [
@for(xinxi(i):x(i)<=cl190(i)*sl190(i));
7 S0 S1 s$ ~. ]& g0 s" C
@for(xinxi(i):x(i)>=0);
* Q' Y) f' Z% v6 g# K+ U: ~' b
@for(xinxi(i):y(i)<=cl160(i)*sl160(i));
- i1 d M" O5 ~/ x. w. a) u" W
@for(xinxi(i):y(i)>=0);
/ Z; w, D7 p( \8 n+ Y3 {% ?
@for(xinxi(i):z(i)<=cl270(i)*sl270(i));
% N6 l1 i5 s& s( D% H* j+ S
@for(xinxi(i):z(i)>=0);
9 u; a! ?+ y# c/ W* q0 t
@for(xinxi(i):@gin(x(i)));
7 ~; o0 K3 l$ f& c+ W# Z9 t
@for(xinxi(i):@gin(y(i)));
; |6 i3 Q+ }. ^( X) j# U9 {
@for(xinxi(i):@gin(z(i)));
) k$ I# e" f4 w2 @+ k6 E# x j
mm=@sum(xinxi:k);
4 J/ Y. I( j( m
xx=@sum(xinxi:sj190*x+sj160*y+sj270*z)/mm;
8 Q* \: k1 m1 G
8 X; @2 E- t5 [" ~
@for(xinxi(i):zys(i)=sj190(i)*x(i)+sj160(i)*y(i)+sj270(i)*z(i));
$ b# }3 |# g5 n& u) P+ I& B
DATA:
8 s8 f% N' p8 Q! K( u! s# f
@POINTER
( v T1 Y4 N2 m1 S \2 \5 R- v* Z
c5 S' G8 M$ @5 @4 n6 p
!此处结果想连接VB6.0,却不知道怎么写;
@( _- _* l! `8 r6 n' j7 d
ENDDATA
+ [* o5 a( }. H0 n
7 v+ x. _. V# g- ?0 P$ w& \
end
; Q- I) E) K1 z; ?0 T; P. x% Q1 ]
结果为 主要是想取 X,Y,Z的结果
9 k, H2 J( L9 H5 k/ d% v2 F
Global optimal solution found.
1 l5 ^1 k4 r. Q* ?% N) s; u
Objective value: 0.000000
+ n/ X- ~ a1 c
Extended solver steps: 0
7 Q; f/ A* S8 z
Total solver iterations: 0
7 U1 Q/ @2 f" ?3 o- t& G
# e8 J& e& Y3 `8 n. }9 `: I( L# [
! _- `/ c( S2 d) D2 q) s
0
W+ ?: u# u4 x/ H" b. ?1 z K
( ^2 G+ s) H* ^( S$ s4 o. S; n
Variable Value Reduced Cost
' X# ~3 z1 p1 d; m
SR190 0.000000 0.000000
, f( V4 a ]. f# W( C1 B1 T7 w
SR160 0.000000 0.000000
" f; u w$ B. ^- c1 G
SR270 0.000000 0.000000
5 P$ e# q; j7 a
MM 2.000000 0.000000
( _: H- ^: m: T+ _5 }) _0 j6 q
XX 0.000000 0.000000
- C; ]# V/ l$ `8 q2 ]% z
CL190( ZHANG) 35.00000 0.000000
& f- f3 p+ S3 ~1 K T
CL190( LI) 35.00000 0.000000
1 S' X$ y, n5 I$ y) `" V
CL160( ZHANG) 30.00000 0.000000
; g# r. v3 ~4 m7 N- h# a+ n
CL160( LI) 30.00000 0.000000
% s( g# Y/ a* L1 {3 d# I
CL270( ZHANG) 5.000000 0.000000
6 m) H! k8 l" k0 ` D5 F6 A
CL270( LI) 5.000000 0.000000
& Z$ B7 O2 l/ I2 L
GZSJ( ZHANG) 12.00000 0.000000
" d/ ~" s# U$ a/ G; Q& C. o
GZSJ( LI) 12.00000 0.000000
1 v/ M! b& D$ ?6 J- P" E
SL190( ZHANG) 0.9000000 0.000000
1 ^# Z( q" x# I* n$ R9 n
SL190( LI) 0.8000000 0.000000
1 ?& v+ C# S5 E8 _
SL160( ZHANG) 0.9000000 0.000000
% q" e1 m: P* ?) E0 H8 u q+ Z# a! Y
SL160( LI) 0.9000000 0.000000
! P+ u: S4 ?1 h5 D7 y: k8 D, O8 X
SL270( ZHANG) 0.8000000 0.000000
8 l1 @+ s; v. t
SL270( LI) 0.6000000 0.000000
1 @3 k9 T5 n M e2 S# b
SJ190( ZHANG) 0.3770000 0.000000
1 } |4 `& B+ I0 G6 c: ^ o( d
SJ190( LI) 0.4120000 0.000000
( W$ |2 L9 h" D; S! o* J0 Q- k: r
SJ160( ZHANG) 0.4400000 0.000000
6 @7 I5 F* a) w( I* M
SJ160( LI) 0.4400000 0.000000
- H, J& E* d' X0 t }- u
SJ270( ZHANG) 2.880000 0.000000
% Q* N: O! `: {4 f2 l! u$ k3 Y
SJ270( LI) 3.360000 0.000000
$ b/ o K: ^' R, P
K( ZHANG) 1.000000 0.000000
/ I y/ u3 h$ S- B: X
K( LI) 1.000000 0.000000
7 b5 B. O5 O8 B0 q# d3 x1 @# }
ZYS( ZHANG) 0.000000 0.000000
. l6 ?% o( M4 ]) E5 ~. c/ p# G4 D, Y, M
ZYS( LI) 0.000000 0.000000
. R4 a) r R! f( x. X( K
X( ZHANG) 0.000000 0.3770000
8 |. @) _% T( W" J# E' b, a
X( LI) 0.000000 0.4120000
4 R* K5 w e& E
Y( ZHANG) 0.000000 0.4400000
z- x: y( l6 e ]# z
Y( LI) 0.000000 0.4400000
% T9 I6 o# \0 v0 V- Y+ c Q7 ?
Z( ZHANG) 0.000000 2.880000
3 @5 X6 c- Y4 Y" [& ]
Z( LI) 0.000000 3.360000
% O; X9 g* f" r2 ]: m: `, M
1 N* ^/ l* \8 T. X
Row Slack or Surplus Dual Price
& |0 d& p( ~% [
BB 0.000000 -1.000000
6 L$ C+ W7 j5 f8 b+ R" r: F( X7 M. l
2 12.00000 0.000000
& h; z. z; t$ e' ?- J
3 12.00000 0.000000
. u p. ]- J6 g0 A
4 0.000000 0.000000
; H/ s; k7 f+ P: t: D% x9 B0 Q
5 0.000000 0.000000
3 Q; H* ]6 e5 d, Y3 H! X
6 0.000000 0.000000
4 [* T% p' U3 E+ E# T! \7 m$ a
7 0.000000 0.000000
9 y. K9 B; H8 k# `/ l; ]
8 0.000000 0.000000
+ M6 K. ]! \2 k8 ~, k2 D
9 0.000000 0.000000
1 g6 {) t. W n
10 0.000000 0.000000
5 u: L6 [9 d" }$ f- M2 r
11 0.000000 0.000000
7 @" l. G! E; {: P+ I( F
12 31.50000 0.000000
) ]5 _/ n+ @1 B; b1 @! ~ i
13 28.00000 0.000000
h& {. ~4 ?6 I$ S+ _/ k" k
14 0.000000 0.000000
- T l8 U) P& {
15 0.000000 0.000000
& Y7 v4 D4 W" I/ D" W
16 27.00000 0.000000
0 g: w( l& q7 M& a- P8 r1 N C
17 27.00000 0.000000
; l" O2 d- w9 r! z: |; f8 N# {
18 0.000000 0.000000
1 r# o4 d% ^4 w2 P4 y
19 0.000000 0.000000
" C1 i0 W% s9 F
20 4.000000 0.000000
! u+ D! P- z; {& O4 d" a' W
21 3.000000 0.000000
- E. |& ?: V% Y7 a. y
22 0.000000 0.000000
: u5 {1 W8 z w- G2 v
23 0.000000 0.000000
, [. Q p3 q/ X# [
24 0.000000 0.000000
* w, v* z4 n- O+ o5 c
25 0.000000 0.000000
" E6 B- `+ m/ X/ Y; @3 ~! D7 B4 n
26 0.000000 0.000000
4 R$ ]/ E3 \% d! T: {* q; w
27 0.000000 0.000000
作者:
olh2008
时间:
2010-4-16 07:49
VB中调用Lingo使用DLL就行了
作者:
olh2008
时间:
2010-4-16 07:50
这是一个例子,可以参考一下。
) L( }9 `8 D" i& m$ d
Staff1.rar
(8.2 KB, 下载次数: 6)
2010-4-16 07:50 上传
点击文件名下载附件
下载积分: 体力 -2 点
作者:
cqwj
时间:
2010-4-16 11:56
回复
3#
olh2008
6 T5 W' i/ {( i$ ^. C
+ X$ k5 Y0 ^0 X2 j6 L( j
6 |* L1 y- N. \* I) L# ]( |
你发的附件不对,再说我也有这个例程,只是不清楚指针这么写到数模里才好调用。
作者:
olh2008
时间:
2010-4-16 11:59
指针怎么写到数模里
. h; ~* a3 P. B3 G# u7 t) }
这是什么意思?
作者:
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的帮助文档。例如:
% q$ q3 C5 U! N. `6 f& S
Solution Commands in Brief
6 F% U7 c# \ c* {
Top Previous Next
$ l" R8 G9 h! q. u
DEBUG
. c5 w v7 C3 \' h
tracks down formulation errors in infeasible and unbounded models
% a5 u) P. I1 N" h$ `3 v Y3 B
. I5 b ?* V8 G; g+ Y4 o; \
GO
1 c8 i# ]9 t8 G4 c! o
solves the current model
1 [6 }' w& _: `+ M% u) i8 i" A; P8 Z
& q) ?1 [+ j, W" s" \+ i3 ^! |( r% M
NONZ
2 S) P3 Q( E9 {. M2 c4 P
generates a nonzeros only solution report
/ `: B: w( y! s5 S% C* y! q2 m
' H" R1 b# @/ s- G5 F6 ~
RANGE
4 S% @, G) q& t% ?
generates a range analysis report
5 M: { y. C& n, c- A! f$ F, }
]9 A( T2 \. p# k! P
SOLU
Y' M J! ]4 X+ k
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