SICP 习题1.46 iterative-improve

_NMfloat_

于 2016-06-10 12:59:15 发布

阅读量363

点赞数

CC 4.0 BY-SA版权

分类专栏： SICP 文章标签： lisp

本文链接：https://blog.youkuaiyun.com/NMfloat/article/details/51626959

SICP 专栏收录该内容

77 篇文章

订阅专栏

本文介绍使用LISP语言实现平方根计算及固定点迭代算法的过程。通过定义迭代改进函数，结合条件判断与数学操作实现了对指定数值求平方根的功能，并进一步展示了如何寻找函数的固定点。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

LISP的括号非常重要，括号打错，整个程序就错了。

(define (iterative-improve good-enough? improve)
    (define (iter x)
        ;(newline)
        ;(display x)
        ;(newline)
        ;(display "HELLO")
        (if (good-enough? x)
            x 
            (iter (improve x))))
    (lambda (guess) (iter guess)))

(define (sqrt x) 
    (define square 
        (lambda (a) (* a a)))
    (define average
        (lambda (a y) (/ (+ a y) 2.0)))
    (define good-enough? 

        (lambda (guess)
            ;(newline) 
            ;(display "GOOD")
            (< (abs (- (square guess) x)) 0.001)))
    (define improve 
        (lambda (guess)
            ;(newline)
            ;(display "IMPROVE")
            (average guess (/ x guess))))
    ((iterative-improve good-enough? improve) 1.0))

(newline)
(display (sqrt 9))

(define tolerance 0.0001)

(define fixed-point
    (lambda (f x)
        (define good-enough?
            (lambda (x)
                (< (abs (- (f x) x)) tolerance)))
        (define improve
            (lambda (x) 
                (f x)))
        ((iterative-improve good-enough? improve) 1.0)))

(newline)
(display (fixed-point cos 1.0))