Serendip

Web Studio

問題2.13

パス

問題2.14

確かに計算結果が異なっている。

(define (par1 r1 r2)
  (div-interval (mul-interval r1 r2)
                (add-interval r1 r2)))

(define (par2 r1 r2)
  (let ((one (make-interval 1 1)))
       (div-interval one
                     (add-interval (div-interval one r1)
                                   (div-interval one r2)))))

(define small (make-center-percent (center (make-interval 10.2 10.3)) (percent (make-interval 10.2 10.3))))
(define large (make-center-percent (center (make-interval 15 18)) (percent (make-interval 15 18))))
(par1 small large)
gosh> (5.406360424028269 . 7.357142857142857)
(par2 small large)
gosh> (6.07142857142857 . 6.551236749116608)

問題2.15

パス

計算機プログラムの構造と解釈

posted with amazlet at 08.11.07

ジェラルド・ジェイ サスマン ジュリー サスマン ハロルド エイブルソン
ピアソンエデュケーション
売り上げランキング: 6542

Amazon.co.jp で詳細を見る