牛顿法求平方根

最新推荐文章于 2024-05-26 23:31:43 发布

原创最新推荐文章于 2024-05-26 23:31:43 发布 · 795 阅读

0 ·

CC 4.0 BY-SA版权

SICP 专栏收录该内容

25 篇文章

订阅专栏

本文介绍了一个使用Lisp语言编写的简单程序，该程序能够计算任意正数的平方根。通过迭代改进猜测值的方法逐步逼近真实结果，但在处理较大数值如1000万以上时遇到性能瓶颈。

(define (sqrt-iter guess x)
  (if (good-enough? guess x)
      guess
      (sqrt-iter (improve guess x)
                 x)))
(define (improve guess x)
  (average guess  ( / x guess )))
(define (average x y)
  (/ (+ x y) 2))
(define (square x)
    ( * x x))
(define (good-enough? guess x)
  (< (abs (- (square guess) x)) 0.001 ) )
(define (my-sqrt x)
  (sqrt-iter 1.0 x ))

第一个比较完整的 lisp 小程序。

唯一疑惑的是不知道为什么1000万以上的开方就几乎运行不出来了。