%
%  file nr3.m
%
%  Newton Raphson Iteration fuer die komplexe Funktion z^3-1
%
%  Aurgument: Startwert; Antwort: Nullstelle
%  tol wird als globale Variable benoetigt
%
function [z] = nr3(zn,tol);
zo = inf;
del = tol*abs(zn);
while abs(zn-zo) > del
 zo=zn;
 zn = zo - (zo^3-1.0)/(3.0*zo^2);
end
z=zn;
