运筹学软件lingo9.0下载（带附件）

mathtake

共享，有需要的下。求解线性规划最好用的软件。

mathtake

这次终于有了。

szr13132008

有没有license key？

mathtake

有，是破解版的。

371568491

就在这个网站上面有Lingo11的破解版，无限变量！！

majiancumt

lingo 与mathematica

majiancumt

lingo  教程

majiancumt

function y=mminterp(tab,col,val)
%MMINTERP 1-D Table Search by Linear Interpolation.
% Y=MMINTERP(TAB,COL,VAL) linearly interpolates the table
2 [/ L& {3 u/ V8 R% TAB searching for the scalar value VAL in the column COL.
6 |" u. x7 _% r* d  \% ?% All crossings are found and TAB(:,COL) need not be monotonic.
% Each crossing is returned as a separate row in Y and Y has as
2 F; Y& h1 M! n$ c* J3 T/ {9 x% many columns as TAB. Naturally, the column COL of Y contains
. a+ e' D0 L2 l7 ?& ^  a( I+ ]% the value VAL. If VAL is not found in the table, Y=[].
' p5 f8 }. W2 }3 A$ T' d
% D.C. Hanselman, University of Maine, Orono ME,  04469
% 1/26/94
- M) H* W" v! T0 B+ i% Copyright (c) 1996 by Prentice-Hall, Inc.
, e; o% x( {7 u8 x- Z
[rt,ct]=size(tab);
if length(val)>1, error('VAL must be a scalar.'), end
" v' i2 C1 p$ K' S8 M" `if col>ct|col<1,  error('Chosen column outside table width.'), end
if rt<2, error('Table too small or not oriented in columns.'), end
$ N- G% G) P, O1 c& K; Rabove=tab(:,col)>val;
& c: N& F* _" N& Cbelow=tab(:,col)<val;
equal=tab(:,col)==val;
if all(above==0)|all(below==0), % handle simplest case
        y=tab(find(equal),;
6 H! \0 _/ _7 N( `! _; Z        return
end
pslope=find(below(1:rt-1)&above(2:rt)); %indices where slope is pos
nslope=find(below(2:rt)&above(1:rt-1)); %indices where slope is neg

2 t- L' z+ S, Y8 e. T1 a8 J& Sib=sort([pslope;nslope+1]);        % put indices below in order
ia=sort([nslope;pslope+1]);        % put indices above in order
, T) A% ]& ^% m$ f1 nie=find(equal);                                % indices where equal to val
& Z4 \4 U* M3 P; J
[tmp,ix]=sort([ib;ie]);                % find where equals fit in result
ieq=ix>length(ib);                        % True where equals values fit
ry=length(tmp);                                % # of rows in result y
+ k: ?  L8 U; i5 f/ @* R7 x* }- a
6 ^" I( e" `" ?# |: @1 Vy=zeros(ry,ct);                                % poke data into a zero matrix
& b9 I7 l# p- z7 z# l7 E/ B5 x; L6 t$ B4 [
alpha=(val-tab(ib,col))./(tab(ia,col)-tab(ib,col));
alpha=alpha(:,ones(1,ct));
0 A) c# I- \! v! A/ `y(~ieq,=alpha.*tab(ia,+(1-alpha).*tab(ib,;        % interpolated values

y(ieq,=tab(ie,;                        % equal values
y(:,col)=val*ones(ry,1);        % remove roundoff error

majiancumt

function y=mminterp(tab,col,val)
%MMINTERP 1-D Table Search by Linear Interpolation.
$ N( @% W7 w, ?' {7 c+ J+ t% Y=MMINTERP(TAB,COL,VAL) linearly interpolates the table
% TAB searching for the scalar value VAL in the column COL.
% All crossings are found and TAB(:,COL) need not be monotonic.
% Each crossing is returned as a separate row in Y and Y has as
% many columns as TAB. Naturally, the column COL of Y contains
$ W; Y0 ~, l& S! y3 y% the value VAL. If VAL is not found in the table, Y=[].

% D.C. Hanselman, University of Maine, Orono ME,  04469
% 1/26/94
% Copyright (c) 1996 by Prentice-Hall, Inc.

: c  Y6 U2 v- f6 f6 @[rt,ct]=size(tab);
2 }  V0 t) u$ ?if length(val)>1, error('VAL must be a scalar.'), end
if col>ct|col<1,  error('Chosen column outside table width.'), end
if rt<2, error('Table too small or not oriented in columns.'), end
, Z/ V7 {5 Y+ ]0 {" W- @above=tab(:,col)>val;
  n# e3 l" ]* F; }; b& qbelow=tab(:,col)<val;
equal=tab(:,col)==val;
' C( S' C4 n; U% O7 ^6 V; Z; xif all(above==0)|all(below==0), % handle simplest case
        y=tab(find(equal),;
        return
end
pslope=find(below(1:rt-1)&above(2:rt)); %indices where slope is pos
nslope=find(below(2:rt)&above(1:rt-1)); %indices where slope is neg

ib=sort([pslope;nslope+1]);        % put indices below in order
ia=sort([nslope;pslope+1]);        % put indices above in order
7 o% n% F2 N' R; X* t9 f9 aie=find(equal);                                % indices where equal to val
# y% u- G/ {1 }# c1 Y
5 P' b' S$ x. e6 v5 ]& X5 T% |6 g4 g[tmp,ix]=sort([ib;ie]);                % find where equals fit in result
. U, u' d, n% ]; sieq=ix>length(ib);                        % True where equals values fit
2 v6 x& C% g( x6 d: n" v9 ary=length(tmp);                                % # of rows in result y
% r& m5 ]: `% }( E
y=zeros(ry,ct);                                % poke data into a zero matrix
* M$ }" }0 f; B5 R8 P- d
# [4 t* @5 [0 D# h4 V$ g6 galpha=(val-tab(ib,col))./(tab(ia,col)-tab(ib,col));
alpha=alpha(:,ones(1,ct));
& g+ n* }; T0 r. H: l" M$ Q! Vy(~ieq,=alpha.*tab(ia,+(1-alpha).*tab(ib,;        % interpolated values
0 q* J8 f1 ?6 P* V% |+ y9 N, b
  M$ V, u' I. R3 ey(ieq,=tab(ie,;                        % equal values
y(:,col)=val*ones(ry,1);        % remove roundoff error

majiancumt

lingo 教程