This shows you the differences between two versions of the page.
|
exercise_1.36 [2009/03/02 00:48] mariorz created |
exercise_1.36 [2009/03/02 01:32] (current) mariorz |
||
|---|---|---|---|
| Line 17: | Line 17: | ||
| (try next)))) | (try next)))) | ||
| (try first-guess)) | (try first-guess)) | ||
| + | |||
| + | |||
| + | (define (sqrt x) | ||
| + | (fixed-point (lambda (y) (average y (/ x y))) | ||
| + | 1.0)) | ||
| + | |||
| + | |||
| + | (define (average x y) | ||
| + | (/ (+ x y) 2)) | ||
| + | |||
| + | (define (gr x) (fixed-point (lambda (x) (+ 1 (/ 1 x))) 1.0)) | ||
| + | |||
| + | (define (bar x) (fixed-point (lambda (x) (average x (/ (log 1000) (log x)))) 2.0)) | ||
| </code> | </code> | ||