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

mathtake

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

mathtake

这次终于有了。

szr13132008

有没有license key？

mathtake

有，是破解版的。

371568491

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

majiancumt

lingo 与mathematica

majiancumt

lingo  教程

majiancumt

function y=mminterp(tab,col,val)
8 d) D2 s2 n: o' c%MMINTERP 1-D Table Search by Linear Interpolation.
4 Q( b* d- i  ]  n/ s: f% Y=MMINTERP(TAB,COL,VAL) linearly interpolates the table
% TAB searching for the scalar value VAL in the column COL.
& @9 M9 n) C- S) t1 j% 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
% the value VAL. If VAL is not found in the table, Y=[].
- a0 Q; C# ~6 Y9 A" f
% D.C. Hanselman, University of Maine, Orono ME,  04469
# ?9 p& j7 \6 D: `0 H7 A% 1/26/94
% Copyright (c) 1996 by Prentice-Hall, Inc.
% t8 Y( Q  r1 {" O6 y5 T4 u& b0 s
[rt,ct]=size(tab);
* K) P2 J0 v- y) L: zif 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
; M  e0 B5 N7 M0 Jabove=tab(:,col)>val;
$ a7 \- v! q1 r5 w/ pbelow=tab(:,col)<val;
! _" k) z7 w, `equal=tab(:,col)==val;
if all(above==0)|all(below==0), % handle simplest case
1 `/ r, e; g3 H. ]! ]        y=tab(find(equal),;
        return
, K8 D8 ~8 F8 \2 fend
pslope=find(below(1:rt-1)&above(2:rt)); %indices where slope is pos
" H8 U4 ^( p- Y7 Y9 i$ q% inslope=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
ie=find(equal);                                % indices where equal to val
! M" z1 X2 e$ w% k
[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

y=zeros(ry,ct);                                % poke data into a zero matrix
: C: T$ \( _+ W) X  L2 h8 c
2 j7 _, G8 I7 x- \; S/ I9 ^alpha=(val-tab(ib,col))./(tab(ia,col)-tab(ib,col));
9 }. |4 u. {% Jalpha=alpha(:,ones(1,ct));
y(~ieq,=alpha.*tab(ia,+(1-alpha).*tab(ib,;        % interpolated values

y(ieq,=tab(ie,;                        % equal values
4 T9 H5 W( m0 z8 J, I/ x2 S1 }  ^y(:,col)=val*ones(ry,1);        % remove roundoff error

majiancumt

function y=mminterp(tab,col,val)
$ x4 u' P( D& H0 s%MMINTERP 1-D Table Search by Linear Interpolation.
) U  s+ A5 i6 N+ O/ m; B( y% 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.
+ C- y& l8 _: K( p% 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
% the value VAL. If VAL is not found in the table, Y=[].

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

[rt,ct]=size(tab);
! ~6 M/ o- l9 P2 Xif length(val)>1, error('VAL must be a scalar.'), end
0 s. r& W% B) A% w! U( N" p2 `3 sif col>ct|col<1,  error('Chosen column outside table width.'), end
if rt<2, error('Table too small or not oriented in columns.'), end
- X0 z1 I* q% D$ g5 K4 P; i1 Aabove=tab(:,col)>val;
8 c$ A9 n) x- m8 [below=tab(:,col)<val;
5 }; C+ l* Y' A( |. @  A, `equal=tab(:,col)==val;
if all(above==0)|all(below==0), % handle simplest case
) h  L4 e' E2 b1 k$ W: v        y=tab(find(equal),;
        return
end
; J" ]& l6 h) N( [: Fpslope=find(below(1:rt-1)&above(2:rt)); %indices where slope is pos
# h; H" @" E( z! d- j' Jnslope=find(below(2:rt)&above(1:rt-1)); %indices where slope is neg
- F9 T* p' f1 ~+ ]
6 g3 f  B1 J+ H0 V" i& F# X* {! ?ib=sort([pslope;nslope+1]);        % put indices below in order
3 ?0 H8 X+ `  k4 l3 n5 w9 aia=sort([nslope;pslope+1]);        % put indices above in order
ie=find(equal);                                % indices where equal to val
) U9 M1 ?$ `$ R' J
[tmp,ix]=sort([ib;ie]);                % find where equals fit in result
ieq=ix>length(ib);                        % True where equals values fit
" S% L# j7 b2 t- s$ |  ]/ Mry=length(tmp);                                % # of rows in result y

9 I- C8 F$ t; p( f2 w( H% H8 xy=zeros(ry,ct);                                % poke data into a zero matrix

alpha=(val-tab(ib,col))./(tab(ia,col)-tab(ib,col));
- P# t7 Y# ~& c: z8 k3 I/ }alpha=alpha(:,ones(1,ct));
3 w; R- ]. N/ Z; p% Yy(~ieq,=alpha.*tab(ia,+(1-alpha).*tab(ib,;        % interpolated values
- v* `1 F4 [" u4 `. R! p
9 W7 t, `! Z9 Z: x3 @2 k- A3 ly(ieq,=tab(ie,;                        % equal values
y(:,col)=val*ones(ry,1);        % remove roundoff error

majiancumt

lingo 教程