;;; Fichier newton.drs / 8 avril 1999


(define (newton-naif x y0 n)
  (cond ((= n 0) y0)
        (else (/ (+ (newton-naif x y0 (- n 1))
                    (/ x (newton-naif x y0 (- n 1))))
                 2))))


(define (newton x y0 CALCUL n)
  (cond ((= n 0) y0)
        (else (CALCUL x (newton x y0 CALCUL (- n 1))))))


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