只需要将1.7的程序的improve改成题目中给的式子即可
(define (cube-iter guess x)
(if (good-enough? guess (improve guess x))
guess
(cube-iter (improve guess x) x)))
(define (improve guess x)
(/ (+ (/ x (* guess guess)) (* 2 guess)) 3))
(define (good-enough? guess x)
(< (/ (abs (- guess x)) guess) 0.00001))
(define (square x) (* x x))
(define (cube x)
(cube-iter 1.0 x))
(cube 27)