数学建模社区-数学中国

标题: 运筹学软件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)8 s, e$ J5 {6 L
%MMINTERP 1-D Table Search by Linear Interpolation.
% t1 v1 }" W0 z# ?/ d4 t; {. a% Y=MMINTERP(TAB,COL,VAL) linearly interpolates the table
# a# Q7 i# f4 Y7 u1 h% |% `% TAB searching for the scalar value VAL in the column COL.
! P/ e( f3 @  n+ @- r( w1 M" g8 u% e- F% All crossings are found and TAB(:,COL) need not be monotonic./ P9 M( _8 x5 f  ]9 {
% Each crossing is returned as a separate row in Y and Y has as3 o, ?& ?' b- u6 i8 h2 I
% many columns as TAB. Naturally, the column COL of Y contains
  v4 Z/ S, G  j2 M2 }% the value VAL. If VAL is not found in the table, Y=[].
2 X, P9 M3 f+ ?" Q
4 t3 y7 w1 Z, H# A% D.C. Hanselman, University of Maine, Orono ME,  04469
! U0 U0 Q5 q9 _' O$ e4 F8 t" y% 1/26/94- E8 s/ T% w" r* Q7 q7 f
% Copyright (c) 1996 by Prentice-Hall, Inc. 9 F: Z# y% O7 H& X( F
% R# H  r( l2 M
[rt,ct]=size(tab);
4 c( n' X; k/ `if length(val)>1, error('VAL must be a scalar.'), end* E, n4 o& i3 D  A* @( G- ?" ?
if col>ct|col<1,  error('Chosen column outside table width.'), end
9 h  ]( x# J" Z! D4 K1 T1 Cif rt<2, error('Table too small or not oriented in columns.'), end
  e4 i9 Z  E2 Q9 A; \above=tab(:,col)>val;
, N0 k/ F; W! g  r* ~below=tab(:,col)<val;1 w! y  s$ g3 Z! n- |) w0 w+ }# y* O% m
equal=tab(:,col)==val;( r. Y% u( H$ J( F
if all(above==0)|all(below==0), % handle simplest case
" J5 V' {8 \1 I0 P4 ?/ u5 l        y=tab(find(equal),;
+ B# g  H* t6 f3 Y9 U4 E        return9 r5 i- j4 K8 a1 ^. A
end# E& Z' G6 l; u; N" ^0 w7 S) _/ W
pslope=find(below(1:rt-1)&above(2:rt)); %indices where slope is pos
& z3 e& \1 b- Znslope=find(below(2:rt)&above(1:rt-1)); %indices where slope is neg
& p% b9 K" _9 I; _' F0 P. E; \  @' b# g
ib=sort([pslope;nslope+1]);        % put indices below in order7 r1 ^; u. H; H4 H0 ]/ {
ia=sort([nslope;pslope+1]);        % put indices above in order
1 ]- L8 a$ [! F# hie=find(equal);                                % indices where equal to val/ |5 r. f2 P5 X1 p

& ]" V1 B- t, d& z# o; |! _[tmp,ix]=sort([ib;ie]);                % find where equals fit in result  v; f& J* G  d3 X" E
ieq=ix>length(ib);                        % True where equals values fit
5 ^: l$ ~' N9 y1 s3 ]8 ?. v' w- bry=length(tmp);                                % # of rows in result y
$ Z# k$ O7 O% Y, Z/ Y: O, ~- a; @3 b3 |6 [
y=zeros(ry,ct);                                % poke data into a zero matrix# r- y" `/ y8 I4 ~1 i3 ~

. u/ p3 W% ?( I* F- aalpha=(val-tab(ib,col))./(tab(ia,col)-tab(ib,col));, i) {8 z$ _/ c6 [% p
alpha=alpha(:,ones(1,ct));
! u- |8 U1 V3 J" M) ey(~ieq,=alpha.*tab(ia,+(1-alpha).*tab(ib,;        % interpolated values7 |9 J! T  D3 d! `9 y* G. K" e

0 v$ ?; K( P9 Y% n% V! P7 ^4 b3 }y(ieq,=tab(ie,;                        % equal values
0 a" }+ O* H+ c9 n( Hy(:,col)=val*ones(ry,1);        % remove roundoff error
作者: majiancumt    时间: 2009-4-19 19:03
function y=mminterp(tab,col,val)7 w" U5 M/ M+ J; h  c
%MMINTERP 1-D Table Search by Linear Interpolation.$ ^/ C/ T2 T) B  K& Y% O8 h
% Y=MMINTERP(TAB,COL,VAL) linearly interpolates the table5 {, k; a/ ^' u& y7 }+ S" J* u1 K
% TAB searching for the scalar value VAL in the column COL.) ~' @7 R$ E/ P0 m* k& v
% All crossings are found and TAB(:,COL) need not be monotonic.
5 N+ d$ v+ P5 D/ R& k) c% Each crossing is returned as a separate row in Y and Y has as( E( P2 X* i0 p6 L9 U" B% r; l( h( X/ c
% many columns as TAB. Naturally, the column COL of Y contains
0 [: [8 R: k. J- s! B$ R% the value VAL. If VAL is not found in the table, Y=[].7 R1 m" j% O& h9 f
5 e+ ?& G: K& {/ q  o
% D.C. Hanselman, University of Maine, Orono ME,  04469
+ l0 g4 S5 L4 Q8 Z0 [& Z" ]6 \% 1/26/94
, q) [, Y& a2 O; @% Copyright (c) 1996 by Prentice-Hall, Inc.
# ~( j* C5 W6 U2 S8 M& L  }2 R
8 a( k( _; C: ~" I0 [3 O4 X[rt,ct]=size(tab);/ V, h  G; D- E+ B7 d, h9 m8 C
if length(val)>1, error('VAL must be a scalar.'), end
0 A! U. J2 n  b, a7 w* h# D! }if col>ct|col<1,  error('Chosen column outside table width.'), end/ i* ~1 b9 _9 T0 Z
if rt<2, error('Table too small or not oriented in columns.'), end
9 ?4 x  W/ x  C3 u1 m8 Z- Sabove=tab(:,col)>val;
7 K6 v4 b2 C! tbelow=tab(:,col)<val;
2 n' ]$ }  W3 C, tequal=tab(:,col)==val;
5 O# c9 ?3 e1 X: b* a: ^1 nif all(above==0)|all(below==0), % handle simplest case% w4 _) ], r% u% P) ?
        y=tab(find(equal),;$ h' I1 y& O  P# A3 V
        return$ F8 ?" y) ?1 k& B* J$ j9 ?/ g
end  V1 s7 R9 o/ X' S$ {' r
pslope=find(below(1:rt-1)&above(2:rt)); %indices where slope is pos
, r% }  \8 C4 n# n5 {! \% ^nslope=find(below(2:rt)&above(1:rt-1)); %indices where slope is neg! x- X. |9 l. J8 a. L2 z
  u# u2 |1 ~5 [+ _
ib=sort([pslope;nslope+1]);        % put indices below in order
5 S. z' T% F$ i4 p1 `) Oia=sort([nslope;pslope+1]);        % put indices above in order
! S0 n$ P1 ?8 t& N, x: i$ uie=find(equal);                                % indices where equal to val4 U9 A$ `- B9 m. K$ c

& G0 b4 m0 r7 D2 K5 ][tmp,ix]=sort([ib;ie]);                % find where equals fit in result
% ^2 z7 z4 o2 P3 d, U& Z; r1 wieq=ix>length(ib);                        % True where equals values fit+ j, \& H5 h0 O) W' ~
ry=length(tmp);                                % # of rows in result y* ?0 x! K/ z: ^

( P2 l5 P, i7 S9 b8 N: u" ay=zeros(ry,ct);                                % poke data into a zero matrix
2 @( i, W* b; @6 _  o
2 K( h+ a+ Z5 k% Falpha=(val-tab(ib,col))./(tab(ia,col)-tab(ib,col));2 G# E* I8 w% Y
alpha=alpha(:,ones(1,ct));4 t3 f- C" f5 J& f3 |& l
y(~ieq,=alpha.*tab(ia,+(1-alpha).*tab(ib,;        % interpolated values& G' n) A$ i* W: X3 b8 f0 f

. q5 U8 [: [" A0 `0 `! U7 j1 }y(ieq,=tab(ie,;                        % equal values# z& i3 q, m- T0 T/ |! N) J/ [: c
y(:,col)=val*ones(ry,1);        % remove roundoff error
作者: majiancumt    时间: 2009-4-19 19:04
lingo 教程
作者: xudaiqing    时间: 2009-5-3 10:43
太感谢了
# ?$ j1 [$ y0 b* l' ~  o# |........
作者: 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
为什么用迅雷只能下到链接呢？？, h" s  M% o+ N4 [
都是几十KB的，浪费了好多体力了...
作者: 无谓小子    时间: 2011-10-14 13:43
谢过~~~改天，我拿了数模竞赛一等奖第一个请你吃饭
作者: qylj530    时间: 2011-11-18 19:42
hao



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