立方根をとるNewton法の手続きを作成
立方根の近似はの繰り返しで獲られる。
(define (cube-root-iter guess x)
(print guess)
(if (good-enough? guess x)
guess
(cube-root-iter (improve guess x) x)))
(define (good-enough? guess x)
( < (abs (- guess (improve guess x) )) (* guess 0.001)))
(define (improve guess x)
(/
( + (/ x (square guess)) (* 2 guess) )
3))
(define (square x)
(* x x))
(cube-root-iter 1.0 8)
square root -> sqrt は数学用語でもあるから良いけど、cube root -> curt はどうかと思ふ。
追記
(/ x (square guess))
は
(/ x guess guess)
でも良い。
ちょっと新鮮。
0 件のコメント:
コメントを投稿