数学建模社区-数学中国

标题: lingo 经典程序哪里有？ [打印本页]

作者: majiancumt 时间: 2009-4-19 19:13
标题: lingo 经典程序哪里有？
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.
% 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);
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
above=tab(:,col)>val;
below=tab(:,col)<val;
equal=tab(:,col)==val;
if 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
ie=find(equal); % indices where equal to val
[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
alpha=(val-tab(ib,col))./(tab(ia,col)-tab(ib,col));
alpha=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

作者: jinling84364336 时间: 2009-4-19 19:55

lingo教程.doc (699.5 KB, 下载次数: 12)

Lindo教程.doc (248.5 KB, 下载次数: 7) 这个还可以的~~

作者: dlu_edu_madio 时间: 2009-4-20 09:18

LINGO求解线性和非线性优化问题.doc (710.5 KB, 下载次数: 17)

Lingo简明教程 1.0.doc (658.5 KB, 下载次数: 2)

优化建模与LINGO软件.doc (41 KB, 下载次数: 10)

Lingo程序使用练习.doc (84.5 KB, 下载次数: 16)

用lingo解题.DOC (28 KB, 下载次数: 8)
这有一点，程序和解法都有介绍

作者: 落叶知秋 时间: 2009-4-24 22:28
只用matlab够不够啊

作者: foreverlin1204 时间: 2009-4-24 23:41
实际问题出现了再现学现卖哈~

作者: vivia 时间: 2009-5-5 23:39
awegdrjhntyjmygfvthf

作者: vivia 时间: 2009-5-5 23:40
ooooooooooooooooooooooooooo

作者: vivia 时间: 2009-5-5 23:40
aaaaaaaaaaaaaaaaaaaaaaaaaaaaa

作者: 厚积薄发 时间: 2009-5-6 16:32
aaaaaaa啊啊啊啊啊、

作者: ktaoyao 时间: 2009-5-6 23:42
不知道啊啊

作者: chensaiqing 时间: 2009-6-24 15:44
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.
% 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. 十公分分工

欢迎光临数学建模社区-数学中国 (http://www.madio.net/)