%function Newton2(funktion, derivata, start, max_antal)
function Newton2(funktion, derivata, start, max_antal)
   % lägg in start värdet först
   Gammalt_x = start;
   % Skriv ut X:et i Matlabfönsteret
   disp(Gammalt_x);
   % loopa igenom max_antal gånger
   for varv_nr = [1:max_antal]
      % Kolla om vi har en derivata
      if derivata(Gammalt_x) < 1e-6
         error('Derivatan är noll eller nära noll');
      end
      % Beräkna nytt X
      Nytt_x = Gammalt_x - funktion(Gammalt_x)/derivata(Gammalt_x);
      % Skriv ut X:et i Matlabfönsteret
      disp(Nytt_x);
      % Kontrolera decimalerna
      if abs(Nytt_x - Gammalt_x) < .5e-5;
         % om inget har hänt i de 5 första deciamlerna
         % så avbryter vi
         break
      end
      % i nästa varv ska det nya X:et vara gammalt
      Gammalt_x = Nytt_x;
   end

Published with MATLAB® 7.0