regpoly0.m

来自「Kriging插值工具箱」· M 代码 · 共 19 行

function  [f, df] = regpoly0(S)
%REGPOLY0  Zero order polynomial regression function
%
% Call:    f = regpoly0(S)
%          [f, df] = regpoly0(S)
%
% S  : m*n matrix with design sites
% f  : ones(m,1)
% df : Jacobian at the first point (first row in S) 

% [e-mail]  
% Last update  April 12, 2002

[m n] = size(S);
f = ones(m,1);
if  nargout > 1
  df = zeros(n,1);
end