如何使用Newton-Raphson方法找到函数的根

Question

这是我的代码，我必须使用Newton-Raphson方法创建用户定义的函数，该方法将返回根，在根处评估的函数的值，估计的错误和使用的迭代次数。 我真的很困惑，为什么它不工作，我是MATLAB的新手，所以如果有人能帮助它将是太棒了！ 提前谢谢。

 function root=A6ROOTmedina( fun,fund,xi,errtol)
   syms x
   x0=input('intial guess: ')
   fun= input('function: ')
   fund=eval((subs(diff(fun),x,x0)))
   funx= eval((subs((fun),x,x0)))
   errtol=input('error tolerance: ');
   maxiter=input('maximum number of iterations: ');
   iter=0;
   xn=( x0 -(funx/fund))
   perror= 100*abs((xn-x0)./xn);
   for ii=1:maxiter;
     perror= 100*abs((xn-x0)./xn);
     fprintf('percent error:%f\n',perror)
     xn=(x0 -(funx/fund));
   end
   root=xn;

 end