Netn(@function1, @dfunction1, 3)

function [new, iter] = Netn(func1,dfunc1,x)
tol=0.0001;
old=x;
u=feval(func1,x);
v=feval(dfunc1,x);
new=old-u/v;
iter=1;
while (abs(new-old)>=tol)
  old=new;
  u=feval(func1,old);
  v=feval(dfunc1,old);
  new=old-u/v;
  iter=iter+1;
end
end