中央値とパーセント相対許容誤差から区間を計算するmake-center-percentと、区間からパーセント相対許容誤差を計算するpercent書いた。
(define (make-center-percent c p) (make-interval (* c (- 1 p)) (* c (+ 1 p)))) (define (percent i) (let ((interval (- (upper-bound i) (lower-bound i))) (center (/ (+ (upper-bound i) (lower-bound i)) 2))) (/ (/ interval center) 2)))