function graph_newt(x,fx,f)

p=-2:10;
for i = 1:length(p)
    fp(i) = feval(f,p(i)); 
end

axis on 

plot(p,fp);
hold on
for i=1:length(x)
    plot(x(i),fx(i),'r*')
    hold on
    pause
end    

plot(x(end),fx(end),'gs','Markersize',10);