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阅读 6,300评论 2 3
  • 因为吹水的能力不佳,所以要先打个草稿,今天的吹水过程大概是:1、牛顿迭代法的演绎过程2、牛顿迭代法求n次方根3、牛...
    pointertan阅读 1,720评论 0 1
  • 牛顿迭代法的作用是使用迭代法来求解函数方程的根,简单的说就是不断地求取切线的过程.对于形如f(x)=0的方程,首先...
    Joe_HUST阅读 1,535评论 0 1
  • 转载自http://wanwu.tech/2017/03/15/functions-and-closures/ 简...
    quitus阅读 206评论 0 0
  • 记北师版八上数学教材第二张第二节《平方根》 课本上关于本课设置了两个课时内容,第一课时为“算术平方根”,第二课时为...
    昱溪_32d6阅读 1,160评论 0 2