newton.m

function root = newton(f,df)
  % Newton-Raphson method
  % Author: Farhad Mehryari
  i = 1;
  p0 = 0.5*pi;            %شرایط اولیه
  N = 100;                %حداکثر تعداد تکرار
  error = 0.0001;         %خطا
  while i <= N
      p = p0 - (f(p0)/df(p0));          %روش نیوتن
      if (abs(p - p0)/abs(p)) < error % شرط خروج از حلقه
          break;
      end
      i = i + 1;
      p0 = p;             
  end
  root=p;
end
% Author: Farhad Mehryari
% Web: blog.mrfarhad.ir
% USAGE طریقه استفاده :
f  = @(x) x ^ 2 + 3
df = @(x) 2 * x
root = newton(f,df)
root = -7.8708