牛顿法求立方根

qinguan0619

求立方根代码如下：
报错：
#f10/3*: expects type <number> as 1st argument, given: (void); other arguments were: (void) (void)
>高亮的部分是    (display (< (abs (- (* y y y) x)) 0.0001))中的(* y y y)
不知究竟是什么问题？求指点。

1. 
   
2. (define (sqrt-cube x guess)
   
3.   (if (good? x guess)
   
4.       guess
   
5.       (sqrt-cube x (improve x guess))
   
6.       )
   
7.   )
   
8. (define (good? x y)
   
9.   (begin
   
10.     (display (< (abs (- (* y y y) x)) 0.0001))
    
11.     (< (abs (- (* y y y) x)) 0.0001)
    
12.     )
    
13.   )
    
14. 
    
15. (define (improve x y)
    
16.   (begin
    
17.     (/ (+ (/ x (* y y)) (* 2 y)) 3)
    
18.     (display (/ (+ (/ x (* y y)) (* 2 y)) 3))
    
19.     )
    
20.   )
    
21.   
    
22. 
    
23. (define (sqrt_3 x)(sqrt-cube x 1))
    
24. 
    
25. (sqrt_3 8)

复制代码

gihnius

(define (good? x y)
  (begin
    (display (< (abs (- (* y y y) x)) 0.0001))
    (< (abs (- (* y y y) x)) 0.0001)
    )
  )

(< (/ (abs (- (* y y y) x)) y) 0.0001)

qinguan0619

(< (/ (abs (- (* y y y) x)) y) 0.0001)
gihnius 发表于 2011-07-19 12:48

soga，多谢。