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

mathtake

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

mathtake

这次终于有了。

szr13132008

有没有license key？

mathtake

有，是破解版的。

371568491

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

majiancumt

lingo 与mathematica

majiancumt

lingo  教程

majiancumt

function y=mminterp(tab,col,val)
  L7 s& ~9 n2 N: n1 h  J%MMINTERP 1-D Table Search by Linear Interpolation.
% Y=MMINTERP(TAB,COL,VAL) linearly interpolates the table
% TAB searching for the scalar value VAL in the column COL.
" N, q6 a& H4 m5 K& b% All crossings are found and TAB(:,COL) need not be monotonic.
7 }5 \3 z1 u5 C: y% 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
: P0 q- [3 L. W4 r' s% the value VAL. If VAL is not found in the table, Y=[].
# a4 P& A  D1 {  S1 e
& x% }+ |& {  o2 @8 X- N% D.C. Hanselman, University of Maine, Orono ME,  04469
2 @5 }# |8 `: q- @& {0 N% 1/26/94
% Copyright (c) 1996 by Prentice-Hall, Inc.

3 Y: ?3 b  |6 p[rt,ct]=size(tab);
if length(val)>1, error('VAL must be a scalar.'), end
2 ?: D2 x. g/ {8 L! _( t6 }if col>ct|col<1,  error('Chosen column outside table width.'), end
3 s0 w" `8 c2 s7 Y1 d0 G3 aif rt<2, error('Table too small or not oriented in columns.'), end
8 a/ V, }6 o& ?6 m, Q5 F3 o5 Oabove=tab(:,col)>val;
below=tab(:,col)<val;
& h' E4 {. l5 c% |equal=tab(:,col)==val;
6 `8 J# p- x! Gif all(above==0)|all(below==0), % handle simplest case
% O$ F9 i1 E/ n        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
5 _$ x& L1 o6 Q3 Z- U2 z. T
ib=sort([pslope;nslope+1]);        % put indices below in order
+ ?. t, Z) e, f* p% U, Jia=sort([nslope;pslope+1]);        % put indices above in order
: T$ E+ k$ ~0 R- g, A( T2 _ie=find(equal);                                % indices where equal to val

[tmp,ix]=sort([ib;ie]);                % find where equals fit in result
. F3 Y( y2 a3 G5 {( Vieq=ix>length(ib);                        % True where equals values fit
# r: n$ Z$ p7 c( ]ry=length(tmp);                                % # of rows in result y

' @% S, y, I: \0 n# R, `  T4 Iy=zeros(ry,ct);                                % poke data into a zero matrix

alpha=(val-tab(ib,col))./(tab(ia,col)-tab(ib,col));
9 H/ e/ ?0 G0 ^% A  L8 U. Ialpha=alpha(:,ones(1,ct));
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)
# t" z, c. ]& Y7 A%MMINTERP 1-D Table Search by Linear Interpolation.
% Y=MMINTERP(TAB,COL,VAL) linearly interpolates the table
; }( I! ~8 k" p+ `" G+ P% TAB searching for the scalar value VAL in the column COL.
% ]. j) W5 f5 H% All crossings are found and TAB(:,COL) need not be monotonic.
+ O& y; |2 [* {) S, r% 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=[].
. M7 l& O' R1 R$ {
* c& p: m; m0 Y- ]' q- g9 i% D.C. Hanselman, University of Maine, Orono ME,  04469
9 y7 n0 |3 B$ L" y0 n% 1/26/94
% Copyright (c) 1996 by Prentice-Hall, Inc.

: y' ?8 f3 V, O% r7 g[rt,ct]=size(tab);
if length(val)>1, error('VAL must be a scalar.'), end
+ H) W3 K9 O; C; q2 |7 Dif col>ct|col<1,  error('Chosen column outside table width.'), end
5 n" P. T+ d2 S4 Z" G# tif rt<2, error('Table too small or not oriented in columns.'), end
above=tab(:,col)>val;
, H0 b; g& D2 A1 M) dbelow=tab(:,col)<val;
2 u9 X  o# U' l4 |. }; T* c* Lequal=tab(:,col)==val;
9 x3 D+ I0 z9 {( g! Q3 N3 gif 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
- x2 l. k# W1 a% b. x" Hia=sort([nslope;pslope+1]);        % put indices above in order
ie=find(equal);                                % indices where equal to val

3 F/ x. h. O7 k" m% m- v- v2 l[tmp,ix]=sort([ib;ie]);                % find where equals fit in result
/ n# q4 T" G8 G1 M* [3 eieq=ix>length(ib);                        % True where equals values fit
ry=length(tmp);                                % # of rows in result y
  ~/ y+ B) e, }
7 ?7 m6 o6 q$ ?- x& `: M' ly=zeros(ry,ct);                                % poke data into a zero matrix
1 N0 v2 u; U% |* f
alpha=(val-tab(ib,col))./(tab(ia,col)-tab(ib,col));
* ^5 w! H, u9 H( O, Nalpha=alpha(:,ones(1,ct));
y(~ieq,=alpha.*tab(ia,+(1-alpha).*tab(ib,;        % interpolated values
* F$ \# L: F2 C: N
y(ieq,=tab(ie,;                        % equal values
9 q; V; b' N4 M3 F- ny(:,col)=val*ones(ry,1);        % remove roundoff error

majiancumt

lingo 教程