1function [nth_rt,iterations,hstry] = nrt(varargin)
2
3
4
5
6
7
8
9a=varargin{1};
10n=varargin{2};
11
12if nargin~=3
13 tol=1e-9;
14else
15 tol=varargin{3};
16end
17
18if a<0
19 nth_rt=0;
20 iterations=0;
21 hstry=zeros(1,50);
22else
23 [nth_rt,hstry] = newtonSearchAlgorithm(a,n,tol);
24
25 iterations = 0;
26 for jj=1:length(hstry)
27 if hstry(jj)~=0
28 iterations = iterations+1;
29 else
30 break;
31 end
32 end
33
34end