| # | 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 |