数学建模社区-数学中国

标题: 运筹学软件lingo9.0下载（带附件） [打印本页]
作者: mathtake    时间: 2009-4-5 21:51
标题: 运筹学软件lingo9.0下载（带附件）
共享，有需要的下。求解线性规划最好用的软件。

lingo9.0.rar

21.75 MB, 下载次数: 661, 下载积分: 体力 -2 点
作者: mathtake    时间: 2009-4-5 21:54
这次终于有了。
作者: szr13132008    时间: 2009-4-6 13:03
有没有license key？
作者: mathtake    时间: 2009-4-6 18:34
有，是破解版的。
作者: 371568491    时间: 2009-4-8 14:38
就在这个网站上面有Lingo11的破解版，无限变量！！
作者: majiancumt    时间: 2009-4-19 18:59
lingo 与mathematica

29782212LINGO教程详案.rar

171.16 KB, 下载次数: 23, 下载积分: 体力 -2 点

MathematicaStudy.doc

186.5 KB, 下载次数: 2, 下载积分: 体力 -2 点
作者: majiancumt    时间: 2009-4-19 19:02
lingo  教程
作者: majiancumt    时间: 2009-4-19 19:03
function y=mminterp(tab,col,val)
& @9 d5 z4 R$ d9 l" ^%MMINTERP 1-D Table Search by Linear Interpolation.8 G3 U9 w+ r! P, ^7 a/ i& f
% Y=MMINTERP(TAB,COL,VAL) linearly interpolates the table: K7 r* y0 N3 f5 h2 E2 l. y( e  @
% TAB searching for the scalar value VAL in the column COL.5 c" S* I9 a  C- d; N. O% j1 h3 n
% All crossings are found and TAB(:,COL) need not be monotonic.
/ g, z  k) Q4 a8 v8 ]& k- B3 `% Each crossing is returned as a separate row in Y and Y has as7 A6 X  ^( y9 v
% many columns as TAB. Naturally, the column COL of Y contains
. D) Z4 s6 C' T0 o% the value VAL. If VAL is not found in the table, Y=[].
; d* \) m4 c; _! H6 g: s! f3 D* D/ I) K( L! a% W
% D.C. Hanselman, University of Maine, Orono ME,  04469) x4 M) d" S, E8 y2 a8 q: |% _# B
% 1/26/94
* F" L( b( j. h, w3 P; k% Copyright (c) 1996 by Prentice-Hall, Inc. 8 k5 |) X8 u* s$ L  D% {

! J4 |* r( U3 Z- `! w, f3 a: I  `, ][rt,ct]=size(tab);
6 o& _! ~$ u% {' l- K9 ~) ~5 Y. Kif length(val)>1, error('VAL must be a scalar.'), end$ p+ g' g, j; s  v
if col>ct|col<1,  error('Chosen column outside table width.'), end2 B5 D: z- y- r
if rt<2, error('Table too small or not oriented in columns.'), end
7 h$ [: p+ m7 n$ E0 x' babove=tab(:,col)>val;
% D& O5 ]* w- X; u+ j& zbelow=tab(:,col)<val;& H/ f9 h# k0 b' w2 V. C3 g
equal=tab(:,col)==val;
" M: Q3 O' ^# t* Rif all(above==0)|all(below==0), % handle simplest case
+ R" _9 E# G% y# _( K: {! M        y=tab(find(equal),;
: M$ T' F9 l& H1 {' g( y        return
) c2 m  J& {( T" W6 _9 t2 H4 f1 Uend
7 h  `" ?5 w/ q. Z! p0 _pslope=find(below(1:rt-1)&above(2:rt)); %indices where slope is pos' I8 M2 _: O* e
nslope=find(below(2:rt)&above(1:rt-1)); %indices where slope is neg' ?. I  e. ?8 i0 N0 ^
- J  l7 G4 R5 r, K
ib=sort([pslope;nslope+1]);        % put indices below in order$ U" I  b0 w% c: {( l( S% I1 a
ia=sort([nslope;pslope+1]);        % put indices above in order
* b; m9 F7 `7 l) oie=find(equal);                                % indices where equal to val+ G, T$ R0 H$ [4 v

% d5 ]& z3 G: D! ~. t[tmp,ix]=sort([ib;ie]);                % find where equals fit in result2 n# [: y: K& J7 @5 n- R2 K
ieq=ix>length(ib);                        % True where equals values fit, F' ~+ V; P% T3 ~5 C
ry=length(tmp);                                % # of rows in result y/ P7 I, y4 R/ L0 c* q- Q

8 V) K/ R2 u3 h, |1 i; fy=zeros(ry,ct);                                % poke data into a zero matrix
0 j+ o( p$ Q+ ~& r# s7 a2 O# L1 O; P0 O' U9 J6 m- _/ P% ~7 s
alpha=(val-tab(ib,col))./(tab(ia,col)-tab(ib,col));
# a0 |, a$ Y5 d$ d4 valpha=alpha(:,ones(1,ct));
' q* e/ X5 D4 Jy(~ieq,=alpha.*tab(ia,+(1-alpha).*tab(ib,;        % interpolated values
: H- L. u) l5 B+ r- @! ^- ]+ _% P: A8 N) n
y(ieq,=tab(ie,;                        % equal values% I. h( M$ u, M9 L' U7 b7 M
y(:,col)=val*ones(ry,1);        % remove roundoff error
作者: majiancumt    时间: 2009-4-19 19:03
function y=mminterp(tab,col,val)7 _* T  K6 c9 b* d4 @; w1 w
%MMINTERP 1-D Table Search by Linear Interpolation.
' w0 [8 z5 n7 D% W" u% ~2 o* Y% Y=MMINTERP(TAB,COL,VAL) linearly interpolates the table; G* |) O  ^$ t1 t. C5 U3 a
% TAB searching for the scalar value VAL in the column COL.
+ d0 m5 G3 h1 s% All crossings are found and TAB(:,COL) need not be monotonic.
2 c% O$ P$ k& F6 n- R( ~# e% Each crossing is returned as a separate row in Y and Y has as) O6 o4 n& a- k7 H4 H
% many columns as TAB. Naturally, the column COL of Y contains4 V# L+ ?. |$ f  ^7 _
% the value VAL. If VAL is not found in the table, Y=[].
: Q' S( V$ r& ]; l6 t& h# v. b) }8 i3 q
% D.C. Hanselman, University of Maine, Orono ME,  04469/ }" C* c% f" M4 G* t
% 1/26/943 H, K7 V4 y; ^" R4 b+ [8 q
% Copyright (c) 1996 by Prentice-Hall, Inc.
$ c( `  }/ |8 f2 q6 l3 k2 |: c! C0 P5 x, [: U1 Q
[rt,ct]=size(tab);
3 M; @  D2 L4 A1 qif length(val)>1, error('VAL must be a scalar.'), end
2 g% T" ]! p7 B- Vif col>ct|col<1,  error('Chosen column outside table width.'), end* e1 J# H+ \, B2 _2 c
if rt<2, error('Table too small or not oriented in columns.'), end1 [$ T+ Z4 i8 }" D
above=tab(:,col)>val;
; U* ^4 q. S1 |, z0 rbelow=tab(:,col)<val;% F0 K' `# r' I9 i; o0 X
equal=tab(:,col)==val;
  `3 g" \( \% s! ^3 ?' Uif all(above==0)|all(below==0), % handle simplest case' H8 I8 K, R8 }6 }5 Z7 j3 r) ?
        y=tab(find(equal),;% J$ R$ w$ {/ Q) C; p
        return
9 w" Q+ v* m+ j: w6 a9 A3 jend* M2 \# |) s3 H7 ~/ n# ?9 V4 l
pslope=find(below(1:rt-1)&above(2:rt)); %indices where slope is pos: N7 H) P# v* @0 a3 u; ^
nslope=find(below(2:rt)&above(1:rt-1)); %indices where slope is neg6 t1 A' P# w. t; a, U  G0 I
# r& a8 @- a0 n. x5 K& M. Z
ib=sort([pslope;nslope+1]);        % put indices below in order3 i8 K' ]  V  z8 ^& U
ia=sort([nslope;pslope+1]);        % put indices above in order' ^% A1 W: v; f  l
ie=find(equal);                                % indices where equal to val
  p8 a5 R  m: I
1 h5 a/ l7 N3 ?- [4 t[tmp,ix]=sort([ib;ie]);                % find where equals fit in result  x* Y) X- O/ Q: Y1 Q/ K
ieq=ix>length(ib);                        % True where equals values fit6 c, i+ L9 R+ j* A
ry=length(tmp);                                % # of rows in result y
& Z& f/ M1 T! g
  H% F2 @, W# n% ~# Hy=zeros(ry,ct);                                % poke data into a zero matrix0 F4 p! S: p$ I# |! n. j* u5 T

+ p4 O# i- b" R+ d0 jalpha=(val-tab(ib,col))./(tab(ia,col)-tab(ib,col));" f! Q9 k2 J& l
alpha=alpha(:,ones(1,ct));
3 U# a" T9 u6 x( S5 Jy(~ieq,=alpha.*tab(ia,+(1-alpha).*tab(ib,;        % interpolated values
& l2 Q8 G  u% ~) ^: d
  c' k8 u( o8 P) d# ny(ieq,=tab(ie,;                        % equal values0 y) D1 H# F& J  H# Y$ ?
y(:,col)=val*ones(ry,1);        % remove roundoff error
作者: majiancumt    时间: 2009-4-19 19:04
lingo 教程
作者: xudaiqing    时间: 2009-5-3 10:43
太感谢了
7 ~) e8 P4 ?  A. G/ L# U........
作者: mathcd    时间: 2009-6-10 20:46
先试试，好，再谢！
作者: 澄澈心灵    时间: 2009-7-24 15:53
要的就它！！！！o(∩_∩)o...哈哈
作者: 澄澈心灵    时间: 2009-8-8 13:29
谢谢了！！
作者: hudi1990    时间: 2010-2-9 12:05
很不错先谢啦呼呼~O(∩_∩)O~~~~~~~~~~~~~~~~~~~~~~
作者: hupanfeng    时间: 2010-2-18 10:07
谢谢楼主~~~~~~~~~~~~~~~~~~~~~~~~~
作者: benyue    时间: 2010-4-6 19:03
thank  for  sharing!！！！！！！！！！！！！！！！
作者: 恋世    时间: 2010-4-12 22:56
好东西，大家一起分享一下。O(∩_∩)O~
作者: zhoujunpeiily    时间: 2010-4-17 21:33
先下下来，其实还不知道怎么用~~~
作者: xuzhen    时间: 2010-7-24 09:02
顶！！！！！！！！！！！1
作者: xjprince    时间: 2010-7-24 17:07
楼主辛苦了~拿走了 啊
作者: loooog12    时间: 2010-7-27 13:43
看一下。。。
作者: cyiwanzi    时间: 2010-8-7 11:07
O(∩_∩)O哈哈~  谢啦。。。
作者: __丶╮小寳    时间: 2011-3-23 19:24
lingo  教程
作者: __丶╮小寳    时间: 2011-3-23 22:14
lingo  教程
作者: 角凳    时间: 2011-4-12 19:44
为什么用迅雷只能下到链接呢？？
1 x' k% [9 H- j7 G4 J2 |; m都是几十KB的，浪费了好多体力了...
作者: 无谓小子    时间: 2011-10-14 13:43
谢过~~~改天，我拿了数模竞赛一等奖第一个请你吃饭
作者: qylj530    时间: 2011-11-18 19:42
hao



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