-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathnumer.ss
More file actions
13 lines (11 loc) · 797 Bytes
/
Copy pathnumer.ss
File metadata and controls
13 lines (11 loc) · 797 Bytes
1
2
3
4
5
6
7
8
9
10
11
12
13
;;BAD iteration!!!
(define (newton-ln a)
(define (iter-ln guess)
(if (< (abs (- guess (- guess (/ (- (exp guess) a) (exp guess))))) .0001) guess
(iter-ln (- guess (/ (- (exp guess) a) (exp guess))))))
(newton-ln 1))
(define (newton-ln a)
(define (iter-ln guess)
(if (< (abs (- guess (- guess (/ (- (exp guess) a) (exp guess))))) .0001) guess
(iter-ln (- guess (/ (- (exp guess) a) (exp guess))))))
(newton-ln 1))