牛顿法求平方根

最新推荐文章于 2021-03-20 04:15:02 发布

rw-just-go-forward

最新推荐文章于 2021-03-20 04:15:02 发布

阅读量1k

点赞数 1

分类专栏：算法文章标签： lisp

本文链接：https://blog.csdn.net/ro_wsy/article/details/51848093

版权

算法专栏收录该内容

11 篇文章 0 订阅

订阅专栏

牛顿法求平方根

common lisp实现

(defun square (x)
    (* x x)
)

(defun abs (x)
    (if (< x 0)
        (- x)
        x
    )
)

(defun good-enough? (guess x)
    (< (abs (- (square guess) x)) 0.001)
)

(defun average (x y)
    (/ (+ x y) 2)
)

(defun improve (guess x)
    (average guess (/ x guess))
)

(defun sqrt-iter (guess x)
    (if (good-enough? guess x)
        guess
        (sqrt-iter (improve guess x) x)
    )
)

(defun sqrt (x)
    (sqrt-iter 1.0 x)
)

(sqrt 10)