function lagrange_chebyshev() 
% Comparison of Lagrangian interpolation polynomials for
% equidistant and non-equidistant (Chebyshev) sample points
% for the function
%
%  f(x) = 1/(1+x^2)
%
% using polynomials of degree 5 and 10.

% Author : Andreas Klimke
% Date   : July 2002
% Version: 1.1

% Funktionen definieren
f = inline('1./(1+x.^2)');

% St?tzstellen bestimmen
xi = { linspace(-5,5,6); ...
		   [chebyshev(6)*5]; ...
		   linspace(-5,5,11); ...
		   [chebyshev(11)*5] };
%xi{1}=linspace(-5,5,6)
%xi{2}=chebyshev(6)*5
%xi{3}=linspace(-5,5,11)
%xi{4}=chebyshev(11)*5
%xi{1}
xi{2}
%xi{3}
xi{4}
for k = 1:4
	yi{k} = f(xi{k});
	ci{k} = polyfit(xi{k},yi{k},length(xi{k})-1);
   % k
   % yi{k}
   %ci{k}
end

% Plotten der Funktionen
x = linspace(-5,5,101);
for k = 1:2
	subplot(2,2,k*2-1)
	hold on;
	plot(x,polyval(ci{k*2-1},x),'r-','LineWidth',2);
	plot(x,polyval(ci{k*2},x),'b-','LineWidth',2);
	plot(x,f(x),'k-');
	axis tight;
	axis square;
	grid on;
	title('f(x) = 1/(1+x^2)');
	legend(['P_{' num2str(k*5) ', equidistant}'], ...
				 ['P_{' num2str(k*5) ', Chebyshev}'],'exact');
end
for k = 1:2
	subplot(2,2,k*2)
	hold on;
	plot(x,abs((f(x)-polyval(ci{k*2-1},x))),'r-','LineWidth',2);
	plot(x,abs((f(x)-polyval(ci{k*2},x))),'b-','LineWidth',2);
	axis tight;
	axis square;
	grid on;
	title('Error Plot');
	ylabel('absolute error');
end


function x = chebyshev(n)
	x(n:-1:1) = cos( (2* (0:n-1)+1) / (2*n) * pi );    