myhilb.m

来自「MATLAB下生成hilbert矩阵,直接输入一个大于零的参数,就可以生成该矩阵」· M 代码 · 共 23 行

function A=myhilb(n,m)
%myhilb 本函数用来演示matlab下M-函数文件的编写方法。
%    A=myhilb(n,m)将产生一个n行m列的hilbert矩阵A；
%    A=myhilb(n)将产生一个n行n列的方hilbert阵A；
%
%See also:hilb.

%    Designed by Professor Dingyu XUE,Northeastern University,PRC
%    5 April,1995,Last modifed my FengHua Zheng at 6 Oct,2008
if nargout>1	%返回值检测
    error('Too many output arguments.');
end
if nargin==1	%输入参数检测
    m=n;   %若给出一个输入参数，则生成方阵
elseif nargin==0 | nargin>2
    error('Wrong number of input arguments.');
end
for i=1:n
    for j=1:m
        A(i,j)=1/(i+j-1);
    end
end