問題2-12

中央値とパーセント相対許容誤差から区間を計算する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)))