SICP 1.1.7 牛顿迭代法求方根

windavatar

于 2014-02-26 10:10:28 发布

阅读量898

点赞数

CC 4.0 BY-SA版权

分类专栏： SICP Scheme

本文链接：https://blog.youkuaiyun.com/horisun/article/details/19966067

SICP 同时被 2 个专栏收录

1 篇文章

订阅专栏

Scheme

1 篇文章

订阅专栏

本文介绍了一种使用递归方式计算平方根的算法实现。该算法通过不断逼近的方法逐步减少误差，最终达到计算目标。文中包含了具体的 Lisp 语言代码示例。

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

(define (sqt a b)
        (if (stop a b)
            b
            (sqt a 
                 (/ (+ b 
                       (/ a b)) 
                    2))))

(define (stop a b)
    (< (abs (- a (* b b))) 0.0000005))