// Lehrstuhlloesungsvorschlag fuers Newton-Verfahren

// f:   Funktion, deren Nullstelle gesucht werden soll
// fp:  Ableitung dieser Funktion
// x:   Startpunkt für die Newton-Iteration
function [x,k] = newton1D(f,fp,x,tol)

k = 0;

while 1
    
    k  = k+1;
    Dx = f(x) / fp(x);
    x  = x - Dx;
    
    if abs(Dx) < tol
        break
    end
end

endfunction
