% Prova di Laboratorio di Calcolo Numerico del 24/06/2002
% Si chiedeva allo studente di realizzare una function MATLAB 
% per applicare il metodo delle tangenti al calcolo delle radici reali 
% della equazione algebrica x^3+7*X-3=0



function []=newpol(x,eps,itmax)
x0=x;
err=1.;
it=1;
while err>eps & it<itmax
    p=x0*x0*x0 + 7*x0 -3;
    p1=3*x0*x0 +7;
    x1=x0-p/p1;
    err=abs(x1-x0);
    it=it+1;
    x0=x1;
end
disp('iterazioni eseguite');
it
disp('approssimazione trovata');
x0
disp('errore assoluto');
err