数学建模社区-数学中国

标题: 运筹学软件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)
( p. m* n9 x2 W( e$ E%MMINTERP 1-D Table Search by Linear Interpolation.' K  p6 d; |# m$ Z: z) e9 p
% Y=MMINTERP(TAB,COL,VAL) linearly interpolates the table
! D; x1 ]: k. y. D4 y  b% TAB searching for the scalar value VAL in the column COL.: u/ D9 o: e. f7 g" [$ m
% All crossings are found and TAB(:,COL) need not be monotonic.
+ `9 s1 l4 M8 E; G% Each crossing is returned as a separate row in Y and Y has as) w8 Q8 t/ c" ^
% many columns as TAB. Naturally, the column COL of Y contains* r6 \0 [* R; ^
% the value VAL. If VAL is not found in the table, Y=[].: j; P" D- v/ x/ E
/ f, a. }% h! C: ^2 k
% D.C. Hanselman, University of Maine, Orono ME,  04469
; o) A1 o, J$ ~% 1/26/944 {5 P" ]( X5 C' ?5 y* P
% Copyright (c) 1996 by Prentice-Hall, Inc.
( I2 }/ U- e  H7 b9 J
" D6 E5 N% u: w[rt,ct]=size(tab);
7 k) `8 u7 r/ L5 p$ ?if length(val)>1, error('VAL must be a scalar.'), end2 J( w0 R/ Q5 J$ h
if col>ct|col<1,  error('Chosen column outside table width.'), end
- c. A$ C2 E& g0 b- v; J: L2 yif rt<2, error('Table too small or not oriented in columns.'), end
! [, A  v4 T' H9 ~" Y  Habove=tab(:,col)>val;
+ ?# f& \8 D+ |9 ?8 P0 v. ^" @below=tab(:,col)<val;
* Q- n% W9 E; Pequal=tab(:,col)==val;( ^3 m8 m& g) t  ^8 t) U
if all(above==0)|all(below==0), % handle simplest case
; D% v* O6 R& v        y=tab(find(equal),;, P8 _% c5 y+ `2 `# A5 z+ b- R) ~
        return" r9 k9 ?/ _8 c5 @- F" h  A
end! ?$ n5 g2 L7 T2 f7 D) |3 ^  d
pslope=find(below(1:rt-1)&above(2:rt)); %indices where slope is pos
5 q9 A7 F$ {& A. T+ H7 I* rnslope=find(below(2:rt)&above(1:rt-1)); %indices where slope is neg) R' z/ _& I6 A
- o  q# I+ U0 }, b
ib=sort([pslope;nslope+1]);        % put indices below in order
1 u& s" G0 c! fia=sort([nslope;pslope+1]);        % put indices above in order
) {" `) c$ D+ H4 [ie=find(equal);                                % indices where equal to val
, \, v' I& L" o. [
" E/ i+ @6 {6 [* L. F[tmp,ix]=sort([ib;ie]);                % find where equals fit in result) Y# [' s1 i. ^- {
ieq=ix>length(ib);                        % True where equals values fit
  L9 @9 e. V3 R& {$ o) ]ry=length(tmp);                                % # of rows in result y% h  K; D% I. Y
" l4 l' S3 O* r$ E
y=zeros(ry,ct);                                % poke data into a zero matrix
4 h4 n2 Q& t. a  I3 i7 X1 _  I
7 `5 j2 \3 h. ^: y3 o9 Ealpha=(val-tab(ib,col))./(tab(ia,col)-tab(ib,col));) [) X, Z, D  s
alpha=alpha(:,ones(1,ct));
$ k% G4 l8 `/ \, Q/ ?  {! Q; gy(~ieq,=alpha.*tab(ia,+(1-alpha).*tab(ib,;        % interpolated values
( u6 C! y! q# D( M
4 u( L6 R1 n& K. S: Ky(ieq,=tab(ie,;                        % equal values
7 I4 j& `% s, E' k1 n5 V6 S6 Iy(:,col)=val*ones(ry,1);        % remove roundoff error
作者: majiancumt    时间: 2009-4-19 19:03
function y=mminterp(tab,col,val)
$ g/ b' ?4 Z. P# c& d0 j# G% L%MMINTERP 1-D Table Search by Linear Interpolation.
0 k8 m/ @/ A8 h% P% Y=MMINTERP(TAB,COL,VAL) linearly interpolates the table, U' i( |+ B- i7 R" Z
% TAB searching for the scalar value VAL in the column COL.3 f" b' r, s  t$ f+ U1 G
% All crossings are found and TAB(:,COL) need not be monotonic.2 A) W$ u- a  J
% Each crossing is returned as a separate row in Y and Y has as
/ M9 w- ]* y: R- G, [; q% g7 C* Y$ a% many columns as TAB. Naturally, the column COL of Y contains
* }# u+ y# Z6 A# \% the value VAL. If VAL is not found in the table, Y=[].  K- v" B- G1 \" w+ u( t  B

9 z" Q  F" V- j5 K1 E4 k3 h$ ~% D.C. Hanselman, University of Maine, Orono ME,  04469
8 A7 T3 v  k  b7 R8 v9 m% 1/26/94
& r) G+ b  I1 Z1 O1 s4 [4 k; U1 q* O% Copyright (c) 1996 by Prentice-Hall, Inc. 9 P& z) O. J0 Q# ~6 t$ k7 \* P% `
: @+ N5 S( c, Z( @5 p
[rt,ct]=size(tab);
* @- {$ _: J7 x2 m$ d2 N" Q$ f4 Gif length(val)>1, error('VAL must be a scalar.'), end3 l. r7 Q% j8 r& H$ V
if col>ct|col<1,  error('Chosen column outside table width.'), end+ h  }: v! {9 a
if rt<2, error('Table too small or not oriented in columns.'), end
0 s& h* Q8 X1 H  r5 `5 j) {above=tab(:,col)>val;
4 P$ Q) V6 k/ K* t/ `1 l/ T) x6 R+ _below=tab(:,col)<val;5 |, k) L6 _1 M
equal=tab(:,col)==val;
/ x! x2 }. c8 w  R/ C- Gif all(above==0)|all(below==0), % handle simplest case6 x' v" j5 s! ~) L
        y=tab(find(equal),;" \, r3 ]  @$ h) [& H
        return
- ?8 a" M  L4 m1 |; ^end3 z$ E$ G% P. k  n
pslope=find(below(1:rt-1)&above(2:rt)); %indices where slope is pos2 {( k, p4 m' E! A' m
nslope=find(below(2:rt)&above(1:rt-1)); %indices where slope is neg8 E3 ^0 d( e( N3 M. T) J

+ M# ?% \6 I! Wib=sort([pslope;nslope+1]);        % put indices below in order
& y2 H. l0 X3 Fia=sort([nslope;pslope+1]);        % put indices above in order% P' V) s) a, `
ie=find(equal);                                % indices where equal to val/ d) U; r) r2 D; {9 ~, g3 u1 S
7 e! h' R$ X- a- _3 r" ?$ F" F3 t5 \
[tmp,ix]=sort([ib;ie]);                % find where equals fit in result
$ E) Q3 R3 r+ ?/ Sieq=ix>length(ib);                        % True where equals values fit
6 @8 Z% r/ U9 `- A. ^% [ry=length(tmp);                                % # of rows in result y
) B' f- {# q0 l2 R. @% F5 A' d8 f  E7 }( u/ ?! o
y=zeros(ry,ct);                                % poke data into a zero matrix! f4 n6 i! s8 M* a" [

9 |6 A. ^1 g; [% v4 r6 ralpha=(val-tab(ib,col))./(tab(ia,col)-tab(ib,col));: B4 U  S7 b( R+ ~
alpha=alpha(:,ones(1,ct));' H& E2 G! _; e& t
y(~ieq,=alpha.*tab(ia,+(1-alpha).*tab(ib,;        % interpolated values
& h- ?5 f% m) t1 p+ Z* e* K
3 h6 K/ ^" r# n, v$ V! W' K8 k0 Ry(ieq,=tab(ie,;                        % equal values
8 i! O9 S' B# o6 _! V" By(:,col)=val*ones(ry,1);        % remove roundoff error
作者: majiancumt    时间: 2009-4-19 19:04
lingo 教程
作者: xudaiqing    时间: 2009-5-3 10:43
太感谢了
6 b# z3 I  G$ Z- R; a2 B........
作者: 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
为什么用迅雷只能下到链接呢？？
8 L6 Z: Q0 n2 M# \+ B/ }1 H3 Y! \都是几十KB的，浪费了好多体力了...
作者: 无谓小子    时间: 2011-10-14 13:43
谢过~~~改天，我拿了数模竞赛一等奖第一个请你吃饭
作者: qylj530    时间: 2011-11-18 19:42
hao



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