%  tchebgr0.m
np=50;n=6;
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;
t1=ones(1,np);t2=x;
for i=1:n;
axis([-1,1,-1,1]);plot(x,t2);
print -append tchebgrg0;
 t3= 2*x .* t2 -t1;
t1=t2;t2=t3;
end
