2018-12-26 牛顿法求解平方根

用牛顿法求平方根

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

(define (improve guess x)
    (average guess (/ x guess))
)

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

(define square x
    (* x x)
)

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

(define (sqrt x)
    (sqrt-iter 1.0 x)
)
©著作权归作者所有,转载或内容合作请联系作者
平台声明：文章内容（如有图片或视频亦包括在内）由作者上传并发布，文章内容仅代表作者本人观点，简书系信息发布平台，仅提供信息存储服务。

推荐阅读更多精彩内容

  • 牛顿迭代法与二分法计算平方根
    因为不是科班出身，所以即使编程一段时间也时常感觉自身基础知识非常不扎实，于是在最近开始补习算法和计算机理论的基础知...
    Originalee阅读 8,497评论 2赞 4
  • 吹水牛顿迭代法
    因为吹水的能力不佳，所以要先打个草稿，今天的吹水过程大概是：1、牛顿迭代法的演绎过程2、牛顿迭代法求n次方根3、牛...
    pointertan阅读 2,732评论 0赞 1
  • 牛顿迭代法求平方根
    牛顿迭代法的作用是使用迭代法来求解函数方程的根，简单的说就是不断地求取切线的过程．对于形如f(x)=0的方程，首先...
    Joe_HUST阅读 2,660评论 0赞 1
  • 8. 函数和闭包
    转载自http://wanwu.tech/2017/03/15/functions-and-closures/ 简...
    quitus阅读 517评论 0赞 0
  • 原创九：平方根
    记北师版八上数学教材第二张第二节《平方根》 课本上关于本课设置了两个课时内容，第一课时为“算术平方根”，第二课时为...
    昱溪_32d6阅读 2,348评论 0赞 2