27 lines
449 B
Matlab
27 lines
449 B
Matlab
function[gamma] = gammas(x_i,y_i,n)
|
|
|
|
% Programm berechnet den Wert des Newtonschen Interpolationspolynoms p
|
|
% zu den n+1 Stuetzstellen (x_i(i), y_i(i)) i=1:n+1 an der Stelle x
|
|
|
|
|
|
% Berechne dividierte Differenzen:
|
|
f=zeros(n+1,n+1);
|
|
|
|
for i=1:n+1
|
|
f(i,i)=y_i(i);
|
|
end
|
|
|
|
for k=1:n
|
|
for j=1:n-k+1
|
|
f(j,j+k)=(f(j+1,j+k)-f(j,j+k-1))/(x_i(j+k)-x_i(j));
|
|
end
|
|
end
|
|
|
|
% Belege Gamma:
|
|
gamma=zeros(n+1,1);
|
|
for i=1:n+1
|
|
gamma(i,1)=f(1,i);
|
|
end
|
|
|
|
|