% Este programa ilustra el Método de Newton.
clear
po=-2;
tol=10^(-10);
no= 1000;
i=1;
fprintf('Aproximaciones: \n');
while i<no
   p=demof_(po);
      if abs(p-po)<tol
         i=no+1;
         fprintf('La función tiene raíz %12.10f.\n',po);
      else
         po=p;
    fprintf('  #%i     %12.10f\n',i,po);
    i=i+1;
        end %if
 end %while
 
 if i==no
fprintf(' El método fracasó después de %12.10f.',no);
fprintf(' iteraciones\n');
end
   
   
   