function plottacos(x)
yy=cos(x);
c=newton(x,yy);
a=[min(x):0.1:max(x)];
q=horner(c,x,a);
figure
plot(a,q)
end