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