数学建模社区-数学中国

标题: 运筹学软件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)
) W2 r; K* }: Z: c. O%MMINTERP 1-D Table Search by Linear Interpolation.- D% |4 q. d/ h
% Y=MMINTERP(TAB,COL,VAL) linearly interpolates the table" ^% {) d3 I0 v; O6 F0 f
% TAB searching for the scalar value VAL in the column COL.) H) g/ p% J8 a/ X" y
% All crossings are found and TAB(:,COL) need not be monotonic.; v% F. m- b, A) _
% Each crossing is returned as a separate row in Y and Y has as9 X9 f/ ~% M0 }, v0 G/ y2 `8 I4 v
% many columns as TAB. Naturally, the column COL of Y contains
  v4 l. `% F' R( y% the value VAL. If VAL is not found in the table, Y=[].; p7 M' O. L  K" `4 f6 M

$ D7 h0 w5 ~/ L7 U# J/ G% D.C. Hanselman, University of Maine, Orono ME,  044699 C. b: H- }# G& s8 D$ H. P; V
% 1/26/94
6 c/ A. D0 m3 B" W% F! Z% Copyright (c) 1996 by Prentice-Hall, Inc.
4 [8 d- q& `/ S" e. g' R' }; N- X! Y2 x. H$ y" [. }( k% ^
[rt,ct]=size(tab);
& k/ T/ J+ C) |, j1 f1 z6 T& Fif length(val)>1, error('VAL must be a scalar.'), end0 ]& o( z. W0 E6 Q& T# Z3 t
if col>ct|col<1,  error('Chosen column outside table width.'), end
( _; g0 r& q$ c2 V) Y6 \/ Uif rt<2, error('Table too small or not oriented in columns.'), end
0 G5 ^# H9 W$ i  H1 wabove=tab(:,col)>val;2 l* Q1 \& ~/ a. @0 W$ t4 E  p
below=tab(:,col)<val;& j  u3 D3 T( X4 u- ~: L
equal=tab(:,col)==val;
( Z+ ^. ^3 F5 o  mif all(above==0)|all(below==0), % handle simplest case' Z, c2 N7 d$ f& @
        y=tab(find(equal),;
. ]1 K+ ^; F# N" ^# d* n2 M        return0 V8 x) M" X# o( W" [* v/ W$ h, u* `
end4 }# K0 D' b/ N' P  p
pslope=find(below(1:rt-1)&above(2:rt)); %indices where slope is pos* `' G: s" f: X6 n. H# O' |$ e
nslope=find(below(2:rt)&above(1:rt-1)); %indices where slope is neg
0 L! V) Y" R  @& R; X! b6 C4 H. s2 \/ q0 t$ K" p
ib=sort([pslope;nslope+1]);        % put indices below in order2 e7 l4 o  B' Y! X9 [* p2 i
ia=sort([nslope;pslope+1]);        % put indices above in order' k% I( o" @( H1 E4 q8 @
ie=find(equal);                                % indices where equal to val; k6 M, V* o, N$ A( n

6 g8 Q! V$ m1 _3 i+ l, [[tmp,ix]=sort([ib;ie]);                % find where equals fit in result
- E$ m9 B- }# O% g9 ?9 C! |  Iieq=ix>length(ib);                        % True where equals values fit  X0 F# ?; {4 c& N
ry=length(tmp);                                % # of rows in result y8 C" d' v) C! m
4 a& N+ a3 b; R- ^4 S" g
y=zeros(ry,ct);                                % poke data into a zero matrix
5 R9 _% N$ _3 T% w; j' `. {
! f+ p6 u! U. C% d* {& u! ^+ K1 kalpha=(val-tab(ib,col))./(tab(ia,col)-tab(ib,col));3 n8 G2 p% D- p. \4 z3 w! A; l
alpha=alpha(:,ones(1,ct));
1 u5 I3 r. [% \  z* q  [y(~ieq,=alpha.*tab(ia,+(1-alpha).*tab(ib,;        % interpolated values
: @; }  c9 x" f/ X' F8 j& l( I9 N' F
; R4 ^1 i# {* p0 ?/ zy(ieq,=tab(ie,;                        % equal values
1 o% P. r8 F9 b7 u( my(:,col)=val*ones(ry,1);        % remove roundoff error
作者: majiancumt    时间: 2009-4-19 19:03
function y=mminterp(tab,col,val)
3 {  D, m" @# {: m%MMINTERP 1-D Table Search by Linear Interpolation.
: O- H0 S' `  ?' {# j( b% Y=MMINTERP(TAB,COL,VAL) linearly interpolates the table( w5 l/ r2 [) }( c8 l3 X& ]/ W
% TAB searching for the scalar value VAL in the column COL." p1 O5 I% ?9 G0 `, X- M+ b
% All crossings are found and TAB(:,COL) need not be monotonic.& Y3 t( P: r$ \& n3 l* b
% Each crossing is returned as a separate row in Y and Y has as$ Y4 c6 k: e2 K. l3 p$ p
% many columns as TAB. Naturally, the column COL of Y contains, i* q1 J& P" Q" N
% the value VAL. If VAL is not found in the table, Y=[].: U+ E& y2 N& O7 K# d1 M% _

8 E2 d; u) J) m; x5 u7 P1 K% D.C. Hanselman, University of Maine, Orono ME,  04469! s" n6 t9 |  `' b) Q
% 1/26/94
  q: c2 B" d7 J: G% Copyright (c) 1996 by Prentice-Hall, Inc. ( o# R/ N8 ?7 \& X

% n% q' w0 t6 H, L* R, E$ I7 q- o[rt,ct]=size(tab);. H3 }* b: z' ~2 G* t
if length(val)>1, error('VAL must be a scalar.'), end. m9 t8 z+ f! ?0 J) ?* ?# c* i8 S
if col>ct|col<1,  error('Chosen column outside table width.'), end
7 U& F1 w* S! |% S, q; t' y% Eif rt<2, error('Table too small or not oriented in columns.'), end
* x0 Q: a7 o: b. e, gabove=tab(:,col)>val;
; ]' k) \+ s5 k4 U5 p  Fbelow=tab(:,col)<val;
! m+ x9 P' d( s4 vequal=tab(:,col)==val;
  P3 d  ]0 u6 C0 z: i" l) Cif all(above==0)|all(below==0), % handle simplest case
, K7 m2 I6 N, f6 J8 F8 h+ H        y=tab(find(equal),;2 \9 \# k1 d" F8 \9 x8 Q
        return. f1 F/ B8 e. `
end
; ^" o) O  d( wpslope=find(below(1:rt-1)&above(2:rt)); %indices where slope is pos/ N3 Y+ B% B# _1 U: v4 D3 U, @
nslope=find(below(2:rt)&above(1:rt-1)); %indices where slope is neg
' v* S& Y# j; O4 _* m, k- @
& K! A, V0 Z6 v+ r6 l* M* lib=sort([pslope;nslope+1]);        % put indices below in order$ j4 r& h$ z3 A& v9 W: E, a% G, Q! t
ia=sort([nslope;pslope+1]);        % put indices above in order1 |3 c$ Z& Q) \; l! M7 g; ?- K
ie=find(equal);                                % indices where equal to val
% K: r% c' A; R# u: K. L
) b" @, `. R3 [7 i6 u0 l1 A[tmp,ix]=sort([ib;ie]);                % find where equals fit in result* A% V( |! q" x" W6 W+ p: R
ieq=ix>length(ib);                        % True where equals values fit) {5 x5 c& c2 v2 B% x1 ^
ry=length(tmp);                                % # of rows in result y$ ]1 l# S% T5 X. `2 t

" C, a. n* b! sy=zeros(ry,ct);                                % poke data into a zero matrix
1 z4 y' n& |& g# i5 G$ m3 V" Y! n& G, S6 ?3 A' i
alpha=(val-tab(ib,col))./(tab(ia,col)-tab(ib,col));
8 a% ]9 ]7 ]; h5 K; malpha=alpha(:,ones(1,ct));& W! c; p5 ?$ s+ o: G
y(~ieq,=alpha.*tab(ia,+(1-alpha).*tab(ib,;        % interpolated values
: g! `0 l3 G" U  T& u; {2 j/ m
% {& h# X1 p& _5 P5 cy(ieq,=tab(ie,;                        % equal values
2 ]8 p0 ^1 \5 f/ i' Q% G% [y(:,col)=val*ones(ry,1);        % remove roundoff error
作者: majiancumt    时间: 2009-4-19 19:04
lingo 教程
作者: xudaiqing    时间: 2009-5-3 10:43
太感谢了7 q2 ]2 p) f9 G+ R  [
........
作者: 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
为什么用迅雷只能下到链接呢？？
: @. ~  q/ `4 f都是几十KB的，浪费了好多体力了...
作者: 无谓小子    时间: 2011-10-14 13:43
谢过~~~改天，我拿了数模竞赛一等奖第一个请你吃饭
作者: qylj530    时间: 2011-11-18 19:42
hao



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