function Hnf = hermite(x0,f0,df0,x)
  [z,dz] = divdiff2(x0,f0,df0);
  x0=z;
  ds = dz(1,:);
  n = length(ds);
  m = length(x);
  Hnf = zeros(size(x));
  for i=1:m
    for j=1:n
      Hnf(i) =  Hnf(i) + ds(j) * (prod( x(i) - x0([1:j-1])));
    endfor
  endfor
end;