请帮忙看下这个函数的返回值
有这么一个函数，用来进行插值运算%a为用户输入的一系列x坐标值
%b为用户输入的一系列y坐标值
%col为1时表示求x=val处的y值，为2时表示求y=val处的x值
%val为值
function y=mminterp(a,b, 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=.
%Copyright (c) 1996 by Prentice-Hall,Inc.
tab=.'
=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;%True where > VAL
below=tab(: , col) < val;%True where < VAL
equal=tab(: , col) == val;%True where = 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 +
nslope=find(below(2:rt)&above(1:rt-1));%indices where slope is -
ib=sort();%put indices below in order
ia=sort();%put indices above in order
ie=find(equal);%indices where equal to val
=sort( );%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));%duplicate for all columns
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
在matlab里调用的时候，输出y似乎是数组的形式,y(1),y(2)都有值
但是做成com组件在vb里面调用时，当我输出msgbox y(1)时提示下标越界
请高手帮忙看看
急 搞定了
返回值是二维的
页:
[1]