clear all;
close all;
% Tschebyscheffpolynome mit Rekursion
n=25; % maximaler Grad
x=(-1:0.001:1)'; % d
uraltval=ones(size(x)); % T_0
plot(x,uraltval);
hold on
altval=x;               % T_1
plot(x,x);
for i=2:n               % T_i
    val=2*x.*altval-uraltval; % Rekursionsformel
    plot(x,val); 
    hold on
    uraltval=altval;  % update
    altval=val;       % update
end
title('Tschebyscheff-Polynome')
