运筹学软件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
% TAB searching for the scalar value VAL in the column COL.
# Y% `4 e- c4 L7 a; w# Z* y7 \% All crossings are found and TAB(:,COL) need not be monotonic.
9 H9 {- ^  V. i% M5 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
% the value VAL. If VAL is not found in the table, Y=[].

3 S% D% f7 x5 j0 f% D.C. Hanselman, University of Maine, Orono ME,  04469
& D! e  f; W( u0 S2 _4 L! q8 r% 1/26/94
% Copyright (c) 1996 by Prentice-Hall, Inc.
# J% u+ |% m, r" o0 i2 E$ q
[rt,ct]=size(tab);
, ~$ g; M+ Y5 iif length(val)>1, error('VAL must be a scalar.'), end
( _. f. _0 m" `( D0 _if col>ct|col<1,  error('Chosen column outside table width.'), end
. {/ y: P+ L2 }# aif rt<2, error('Table too small or not oriented in columns.'), end
above=tab(:,col)>val;
below=tab(:,col)<val;
equal=tab(:,col)==val;
$ b4 w" V* ^! ^0 ~( \( |if all(above==0)|all(below==0), % handle simplest case
# M/ ~! Z  ?7 X! ^1 M9 g        y=tab(find(equal),;
( F1 L) j: u! L2 H% h0 u. E        return
  C1 J, P, Z& F  L+ Zend
  c" V$ x  n8 ]9 N' Ipslope=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

1 X0 o* I8 {. k3 }7 X0 b7 qib=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
0 G, |; {# \% i1 B9 \" 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
4 Y4 H/ |- v% P
  l0 W1 s' _9 Q1 g% \1 B) ^1 [0 Zy=zeros(ry,ct);                                % poke data into a zero matrix
- ^( x6 f7 l2 h+ L/ v( H/ y
0 l- |  S$ S: M" k; `) M/ n: jalpha=(val-tab(ib,col))./(tab(ia,col)-tab(ib,col));
alpha=alpha(:,ones(1,ct));
. w0 F) T0 ^% m" a9 M4 D: ?y(~ieq,=alpha.*tab(ia,+(1-alpha).*tab(ib,;        % interpolated values
4 R1 ~' h  ]2 B, L1 y/ y4 M$ v
# B3 V1 S! A9 qy(ieq,=tab(ie,;                        % equal values
y(:,col)=val*ones(ry,1);        % remove roundoff error

majiancumt

function y=mminterp(tab,col,val)
. x4 N' a* n* n5 w  q%MMINTERP 1-D Table Search by Linear Interpolation.
% Y=MMINTERP(TAB,COL,VAL) linearly interpolates the table
5 N6 p# T7 @% _" F% TAB searching for the scalar value VAL in the column COL.
  `, k/ ]: k" W8 d! I5 U% 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=[].

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

[rt,ct]=size(tab);
/ g5 a& L  q- G  zif length(val)>1, error('VAL must be a scalar.'), end
if col>ct|col<1,  error('Chosen column outside table width.'), end
8 l* P# ?9 E) o/ y4 |if rt<2, error('Table too small or not oriented in columns.'), end
above=tab(:,col)>val;
below=tab(:,col)<val;
equal=tab(:,col)==val;
8 r% |  e# F; j7 Zif all(above==0)|all(below==0), % handle simplest case
        y=tab(find(equal),;
        return
- L6 A+ c3 |/ H4 w# qend
pslope=find(below(1:rt-1)&above(2:rt)); %indices where slope is pos
  N* }; V' f+ ]nslope=find(below(2:rt)&above(1:rt-1)); %indices where slope is neg
. t8 R# @+ |& O5 J, @0 D
ib=sort([pslope;nslope+1]);        % put indices below in order
. }7 x- ^% L4 X1 O- u2 lia=sort([nslope;pslope+1]);        % put indices above in order
: @! w  J( ]' y% n2 C' Y$ yie=find(equal);                                % indices where equal to val
  F' f5 Z" ]# b/ b0 z1 \! t% ^2 c* A
8 Q$ z9 _9 D% e4 J% S& d[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
1 |) x3 E% Z/ {) p& i6 j
' y( ^+ I! E; f' j, Wy=zeros(ry,ct);                                % poke data into a zero matrix

alpha=(val-tab(ib,col))./(tab(ia,col)-tab(ib,col));
- \4 V  c7 }& z5 R  dalpha=alpha(:,ones(1,ct));
y(~ieq,=alpha.*tab(ia,+(1-alpha).*tab(ib,;        % interpolated values

y(ieq,=tab(ie,;                        % equal values
/ Z  j" U0 x) ~- n- xy(:,col)=val*ones(ry,1);        % remove roundoff error

majiancumt

lingo 教程