%  tchebgr.m
np=300;n=20;
np2=floor(np/2);np=2*np2+1;b=4/(np-1)^3;a=3/(np-1);
for i=1:np;j=i-1-np2;x(i)= j*(a-b*j^2);end;
t(1,:)=ones(1,np);t(2,:)=x;
for i=2:n; t(i+1,:)= 2*x .* t(i,:) -t(i-1,:);end;
axis([-1,1,-1,1]);plot(x,t);
meta tchebgrg;
% faire gpp tchebgrg.met -dps     pour generer le postscript
