# | Line 5 | Line 5 | |
---|---|---|
5 | 2/3/88 | |
6 | } | |
7 | ||
8 | < | FTINY : 1e-12; |
8 | > | FTINY : 1e-9; |
9 | ||
10 | root(f, x0) = root2(f, x0, x0-f(x0)/lim(f1(f,x0)), nit); | |
11 | ||
# | Line 21 | Line 21 | max(a,b) = if(a-b, a, b); | |
21 | ||
22 | f1(f,x) = (f(x+FTINY)-f(x-FTINY))/(2*FTINY); { numerical derivative } | |
23 | ||
24 | < | err = 1e-6; |
24 | > | err = 1e-5; |
25 | nit = 100; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |