数学建模社区-数学中国

标题: 运筹学软件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 b3 @9 f/ n2 m( b4 D3 @
%MMINTERP 1-D Table Search by Linear Interpolation.
, f5 V# m& G; E/ h6 X% Y=MMINTERP(TAB,COL,VAL) linearly interpolates the table2 ?! V2 t. {- Y$ A1 M7 n; H' q, k$ R
% TAB searching for the scalar value VAL in the column COL.( j% c- G) G# [& L- Y) x1 B
% All crossings are found and TAB(:,COL) need not be monotonic./ B  Q! n" ?6 N( U
% Each crossing is returned as a separate row in Y and Y has as
( ?8 G. t$ [, s4 U% \- c5 L8 A% many columns as TAB. Naturally, the column COL of Y contains6 I$ p: |8 S/ L; ]& A: s0 w
% the value VAL. If VAL is not found in the table, Y=[].
+ M. p6 W" H3 ]$ S& M7 n* I* A. X; Y6 w1 g# H& m9 q
% D.C. Hanselman, University of Maine, Orono ME,  04469
2 X  e! R  |* h2 C, p% 1/26/94
7 @8 f- z* V0 F0 D# b( j% Copyright (c) 1996 by Prentice-Hall, Inc.
( t+ H3 C/ U8 f2 i+ U9 R4 X, a( M! i8 B. z, {* p
[rt,ct]=size(tab);
# G2 e% q, R5 j2 n1 Z; Cif length(val)>1, error('VAL must be a scalar.'), end
9 w  V6 H$ j4 s. ^if col>ct|col<1,  error('Chosen column outside table width.'), end
- [/ E' V6 Q/ T# l/ X9 ^if rt<2, error('Table too small or not oriented in columns.'), end. G) [* L4 M5 z2 y# `$ V! w8 z
above=tab(:,col)>val;
* L( m- ?" q" Y0 Qbelow=tab(:,col)<val;% k8 I+ {7 L7 [# l
equal=tab(:,col)==val;* x4 B6 Y( \8 }
if all(above==0)|all(below==0), % handle simplest case& G3 C) n8 v% M" Q# I9 l- u+ x
        y=tab(find(equal),;
! h& u0 ~6 J, ^9 H+ E: m        return# R( R' M6 C- e6 ~* z1 B
end
( C/ k% g3 v! ?) ~5 F8 Z9 @4 Xpslope=find(below(1:rt-1)&above(2:rt)); %indices where slope is pos
7 p/ \( `0 g3 D& d9 Knslope=find(below(2:rt)&above(1:rt-1)); %indices where slope is neg
& J# A' v" i) f" @
1 h6 q5 k5 r6 {  y2 Nib=sort([pslope;nslope+1]);        % put indices below in order) \5 P* W# P: n5 x5 g
ia=sort([nslope;pslope+1]);        % put indices above in order# n; u, D- \, h
ie=find(equal);                                % indices where equal to val# Y+ V% t; E  m2 B+ i* B4 `

! G1 t* S( P- e$ U, T, a8 @7 O[tmp,ix]=sort([ib;ie]);                % find where equals fit in result
: G# y+ J+ K) l. q5 `ieq=ix>length(ib);                        % True where equals values fit& X0 i" ?" S; V" K1 ]
ry=length(tmp);                                % # of rows in result y
6 {( e4 j" {6 ^8 a: A1 ^9 u& }  G# T0 Y6 F! l- }' \
y=zeros(ry,ct);                                % poke data into a zero matrix7 e& ?! i1 t: \' B9 s
1 E4 @9 G" f# T- Y+ M
alpha=(val-tab(ib,col))./(tab(ia,col)-tab(ib,col));
8 W+ n, J. H& e, R' U! R! R8 k' Walpha=alpha(:,ones(1,ct));
/ Q7 ^) ?9 ~( vy(~ieq,=alpha.*tab(ia,+(1-alpha).*tab(ib,;        % interpolated values
$ s1 h1 X, X! V4 s
( f/ N2 M$ L$ [( ?y(ieq,=tab(ie,;                        % equal values- i7 ]* g# {; _3 ^0 q" U
y(:,col)=val*ones(ry,1);        % remove roundoff error
作者: majiancumt    时间: 2009-4-19 19:03
function y=mminterp(tab,col,val)6 l& I8 ?! K( {2 y
%MMINTERP 1-D Table Search by Linear Interpolation.2 _7 X: L- O0 |8 h5 ?- N
% Y=MMINTERP(TAB,COL,VAL) linearly interpolates the table
" O: Y) H- v" f! V) ]% TAB searching for the scalar value VAL in the column COL.- s, _8 o( K+ U4 J. s- A
% All crossings are found and TAB(:,COL) need not be monotonic.7 q& u5 _( Q/ v8 y5 Y/ X
% Each crossing is returned as a separate row in Y and Y has as8 Z9 V7 ]  I/ x8 V- Y0 Z/ g9 D
% many columns as TAB. Naturally, the column COL of Y contains8 I9 N+ n8 ~9 i* i9 s5 b
% the value VAL. If VAL is not found in the table, Y=[].
& l1 M+ I, m  ~2 }7 u9 v5 I" |7 r7 ]# u* C
% D.C. Hanselman, University of Maine, Orono ME,  04469
$ H& M* t8 E8 C0 g; Z9 z% @; m% 1/26/94' \9 @$ `3 l! e/ j4 G
% Copyright (c) 1996 by Prentice-Hall, Inc. % A0 C1 o! ]8 P" O& q2 V& e1 I6 O0 R
1 t" ]. \# j$ S# X" R* _
[rt,ct]=size(tab);. w! u0 b" j6 \
if length(val)>1, error('VAL must be a scalar.'), end& `7 v2 X+ j# Z6 L# L3 p
if col>ct|col<1,  error('Chosen column outside table width.'), end
# w+ M% ^2 [/ u$ L+ fif rt<2, error('Table too small or not oriented in columns.'), end2 Q7 _8 `. }, Z( J) T& w7 j
above=tab(:,col)>val;) q1 \. a3 z# Q/ N; w' m: L" a
below=tab(:,col)<val;+ a. {( ?8 V% O3 ~8 K
equal=tab(:,col)==val;
; Q. y) L, L# T- c, qif all(above==0)|all(below==0), % handle simplest case6 D5 O1 U" n( \) J; N
        y=tab(find(equal),;$ Q" }' v0 y) `% H# j
        return7 B! x3 O2 q6 U* I. \+ H6 U
end4 N9 l& G, ~2 \* f5 z/ q" ~/ f
pslope=find(below(1:rt-1)&above(2:rt)); %indices where slope is pos
' I5 |+ M! ?5 K0 inslope=find(below(2:rt)&above(1:rt-1)); %indices where slope is neg1 T9 H: w$ D. `, b& M& Q- N6 a8 @0 `
; X+ O( P( K" {! r. V
ib=sort([pslope;nslope+1]);        % put indices below in order+ a7 G, ~$ v& U/ B$ a0 z! s- V
ia=sort([nslope;pslope+1]);        % put indices above in order  l$ x7 `* O7 [+ ?% D* w
ie=find(equal);                                % indices where equal to val
% v0 \$ L3 j# N/ m
, B3 |2 i& D+ F) @& O; c[tmp,ix]=sort([ib;ie]);                % find where equals fit in result
# w$ v; T2 A. ]  \& Mieq=ix>length(ib);                        % True where equals values fit( ]3 J$ U3 z, U6 k. _) i
ry=length(tmp);                                % # of rows in result y
* h- D( G! D  X/ A. n4 ~
2 p* r' h! _" J% ^! w7 p. xy=zeros(ry,ct);                                % poke data into a zero matrix0 q8 `" @2 J' q
% H6 T- j. |  Q. v
alpha=(val-tab(ib,col))./(tab(ia,col)-tab(ib,col));
! w7 `1 f6 Z  s! _* K1 dalpha=alpha(:,ones(1,ct));/ Z6 n0 P( o; m# \. r9 u
y(~ieq,=alpha.*tab(ia,+(1-alpha).*tab(ib,;        % interpolated values
5 c$ ~$ j2 J7 Z' o% B
4 ^9 _8 [: L- _- Q& Y% y- ^7 iy(ieq,=tab(ie,;                        % equal values
7 E* Z9 M; g" V- i5 }y(:,col)=val*ones(ry,1);        % remove roundoff error
作者: majiancumt    时间: 2009-4-19 19:04
lingo 教程
作者: xudaiqing    时间: 2009-5-3 10:43
太感谢了, E4 A5 F, b$ @$ `# h2 z" r2 k
........
作者: 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
为什么用迅雷只能下到链接呢？？
, P. }: @* Q8 L9 `都是几十KB的，浪费了好多体力了...
作者: 无谓小子    时间: 2011-10-14 13:43
谢过~~~改天，我拿了数模竞赛一等奖第一个请你吃饭
作者: qylj530    时间: 2011-11-18 19:42
hao



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