14 lines
264 B
Matlab
14 lines
264 B
Matlab
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;
|