diff options
Diffstat (limited to 'root.scm')
| -rwxr-xr-x[-rw-r--r--] | root.scm | 6 |
1 files changed, 2 insertions, 4 deletions
@@ -207,10 +207,8 @@ (bracket-iter x1 f1 #f x0 f0 #f count)) ((= f0 f1) #f) (else - (let* ((xnew (+ x0 (* (- (/ f0 (- f1 f0))) (- x1 x0)))) - (fnew (f xnew)) - (fmax (max (abs f1) (abs fnew)))) - (secant-iter x1 f1 xnew fnew (+ count 1))))))))))) + (let ((xnew (+ x0 (* (- (/ f0 (- f1 f0))) (- x1 x0))))) + (secant-iter x1 f1 xnew (f xnew) (+ count 1))))))))))) ;@ (define (secant:find-root f x0 x1 prec) (secant:find-root-1 f x0 x1 prec #f)) |