数学建模社区-数学中国

标题: 运筹学软件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)2 x2 E9 u, ]. H5 s
%MMINTERP 1-D Table Search by Linear Interpolation., s0 I% f; v7 h% Z# M
% Y=MMINTERP(TAB,COL,VAL) linearly interpolates the table& M6 ]* ?) Y1 R9 [$ |  Y0 D7 Y* K
% TAB searching for the scalar value VAL in the column COL.- Q$ e7 ~( X6 T/ c' V, m
% All crossings are found and TAB(:,COL) need not be monotonic.! T5 j7 j' X1 n' ^2 S% m' V
% Each crossing is returned as a separate row in Y and Y has as' }5 g4 @+ g* X, H
% many columns as TAB. Naturally, the column COL of Y contains9 L, B; i( Y2 F* c) G% y
% the value VAL. If VAL is not found in the table, Y=[].
0 P. I2 j  ?* U/ l  p, p
' n# j/ ~, e3 J; I% D.C. Hanselman, University of Maine, Orono ME,  044697 B6 f; f- k% r6 I
% 1/26/94
! d6 G, y# _6 ~1 V% Copyright (c) 1996 by Prentice-Hall, Inc.
7 ]& R; D% y! b1 Q0 j2 `
% l" x5 J8 ?% ^- }# o" E# t[rt,ct]=size(tab);, W  S  l  C; c
if length(val)>1, error('VAL must be a scalar.'), end
+ S: e, Y3 ~% I; u0 Rif col>ct|col<1,  error('Chosen column outside table width.'), end1 m6 R; ~% p$ ?% E  v  v& u
if rt<2, error('Table too small or not oriented in columns.'), end& Y/ Q/ i0 X5 O% c: ?
above=tab(:,col)>val;
9 T: U* e. D, `0 F1 i' T. _0 L% a" hbelow=tab(:,col)<val;
! u" O$ W& D. s* vequal=tab(:,col)==val;9 X6 g8 w- _5 N5 Y; e
if all(above==0)|all(below==0), % handle simplest case/ f: V( f! W: D; K; M; l
        y=tab(find(equal),;0 Z& w7 M$ y% w% x& r! [2 H) q# ?
        return
7 J$ l3 b2 A7 Z/ r/ X( m' [end
9 `9 e. {& g& m/ \$ r& S! \4 B" cpslope=find(below(1:rt-1)&above(2:rt)); %indices where slope is pos+ d1 I  q* l8 ?1 s. D: c
nslope=find(below(2:rt)&above(1:rt-1)); %indices where slope is neg
  Q# o8 b0 C. `6 u
( h* c0 ?% A9 F& U4 g* o; |ib=sort([pslope;nslope+1]);        % put indices below in order
! C  s* j. T: Y( ~ia=sort([nslope;pslope+1]);        % put indices above in order" n, e! n2 q" H8 C6 q
ie=find(equal);                                % indices where equal to val
! V. q$ K* u3 W" h/ T  K$ h# z* b  o7 ]& g# E5 X6 ^/ J$ v3 I: Z
[tmp,ix]=sort([ib;ie]);                % find where equals fit in result
$ e1 m+ _, N$ ]  mieq=ix>length(ib);                        % True where equals values fit
* _0 K4 n$ N! Q) d5 T$ |% Y% O; dry=length(tmp);                                % # of rows in result y0 O$ @% g6 z1 a

4 A2 e# B% w$ ky=zeros(ry,ct);                                % poke data into a zero matrix& f0 |3 G+ G5 o
( z0 \& K4 ~  Q
alpha=(val-tab(ib,col))./(tab(ia,col)-tab(ib,col));/ s1 L* V, M2 z/ T2 ^: Y/ ^
alpha=alpha(:,ones(1,ct));7 l4 l% x/ N- D( S# `
y(~ieq,=alpha.*tab(ia,+(1-alpha).*tab(ib,;        % interpolated values5 z' ?" g; H  }# i/ n! ?7 @

7 n# t1 {* R" B; d; ]8 Q- N5 iy(ieq,=tab(ie,;                        % equal values( e8 ~8 O7 x8 {' h! @# f6 z' P" q
y(:,col)=val*ones(ry,1);        % remove roundoff error
作者: majiancumt    时间: 2009-4-19 19:03
function y=mminterp(tab,col,val)
9 U- {/ [; j  ?%MMINTERP 1-D Table Search by Linear Interpolation.) r9 N; @* L" o( S
% Y=MMINTERP(TAB,COL,VAL) linearly interpolates the table/ C: ?; B1 `4 C( Q& u2 O' }% K
% TAB searching for the scalar value VAL in the column COL.6 b# a$ A2 g% }# T
% All crossings are found and TAB(:,COL) need not be monotonic.2 h. b6 l: D& C8 i
% Each crossing is returned as a separate row in Y and Y has as
6 f3 C6 ]. u# q/ _# e% o4 G% many columns as TAB. Naturally, the column COL of Y contains; h5 j) H, |, `$ w: p+ L+ K
% the value VAL. If VAL is not found in the table, Y=[].+ M, K5 n" \& [) K

  t. y8 E* Q2 ~5 X" D: X$ O% D.C. Hanselman, University of Maine, Orono ME,  04469
& i5 f. C) V0 [9 P; R4 H& i* ~% 1/26/94( T5 N# X+ G3 q' \4 d
% Copyright (c) 1996 by Prentice-Hall, Inc.
9 G2 a* l% \! M. v
' L, w( F  L: x% W[rt,ct]=size(tab);2 U. X' V2 }8 O% L
if length(val)>1, error('VAL must be a scalar.'), end7 I2 D% m% `! ?7 R: f$ G
if col>ct|col<1,  error('Chosen column outside table width.'), end4 ~" I: e4 G  r& C: `
if rt<2, error('Table too small or not oriented in columns.'), end
" l. |  o: Z- I, [/ q/ c& R8 W4 habove=tab(:,col)>val;
# i" m+ K5 m+ f4 cbelow=tab(:,col)<val;# F0 r$ L* ^2 S2 c+ o8 K: R+ Z
equal=tab(:,col)==val;
  E% y8 {4 Y) Hif all(above==0)|all(below==0), % handle simplest case
' W# i3 u4 v) M0 F% E        y=tab(find(equal),;, d+ E. c" l9 o1 B
        return
9 g7 D  }: m, q% gend* d' ~0 v1 ^: d' G1 S$ [9 K7 U6 V
pslope=find(below(1:rt-1)&above(2:rt)); %indices where slope is pos
6 v! Q6 R& R2 S% snslope=find(below(2:rt)&above(1:rt-1)); %indices where slope is neg
& P/ ?( u% {3 |0 m( l* Q
1 B; l+ S& W& D3 _ib=sort([pslope;nslope+1]);        % put indices below in order
( L: N3 o) v+ v  {0 e  J! L: pia=sort([nslope;pslope+1]);        % put indices above in order
) v- X' F3 O7 Q* ?  Fie=find(equal);                                % indices where equal to val% i& @5 z" _* N- {0 E4 N5 O, ^% i
" w# c4 \1 Z9 _+ n; E5 U- _
[tmp,ix]=sort([ib;ie]);                % find where equals fit in result& @  E* A1 b0 Y/ W& ]
ieq=ix>length(ib);                        % True where equals values fit! @9 I, r: C; x
ry=length(tmp);                                % # of rows in result y  f: \2 U) K' c+ ?0 S3 [+ `
+ D- y  y- p# z- G- |5 ?4 V( y
y=zeros(ry,ct);                                % poke data into a zero matrix
9 n7 D. h4 t, @: w$ G# u: s: p
7 y" _# V4 `  [- E. @alpha=(val-tab(ib,col))./(tab(ia,col)-tab(ib,col));' q# U, `1 B/ L
alpha=alpha(:,ones(1,ct));5 p) _5 E. M: q3 g9 q' E6 q& c
y(~ieq,=alpha.*tab(ia,+(1-alpha).*tab(ib,;        % interpolated values. j5 O: g6 {  g9 q; B* T; i* u8 ?9 p5 }
5 C9 |# J1 S" m. ?
y(ieq,=tab(ie,;                        % equal values
' N7 F; F0 }6 I0 P7 v; Y1 D  o" wy(:,col)=val*ones(ry,1);        % remove roundoff error
作者: majiancumt    时间: 2009-4-19 19:04
lingo 教程
作者: xudaiqing    时间: 2009-5-3 10:43
太感谢了. y7 t3 t" i3 `! W3 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
为什么用迅雷只能下到链接呢？？
0 x3 _9 N! r- {  h都是几十KB的，浪费了好多体力了...
作者: 无谓小子    时间: 2011-10-14 13:43
谢过~~~改天，我拿了数模竞赛一等奖第一个请你吃饭
作者: qylj530    时间: 2011-11-18 19:42
hao



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