1 665c255d 2023-08-04 jrmu (define (add-interval x y)
 2 665c255d 2023-08-04 jrmu   (make-interval (+ (lower-bound x) (lower-bound y))
 3 665c255d 2023-08-04 jrmu 		 (+ (upper-bound x) (upper-bound y))))
 4 665c255d 2023-08-04 jrmu (define (mul-interval x y)
 5 665c255d 2023-08-04 jrmu   (let ((p1 (* (lower-bound x) (lower-bound y)))
 6 665c255d 2023-08-04 jrmu 	(p2 (* (lower-bound x) (upper-bound y)))
 7 665c255d 2023-08-04 jrmu 	(p3 (* (upper-bound x) (lower-bound y)))
 8 665c255d 2023-08-04 jrmu 	(p4 (* (upper-bound x) (upper-bound y))))
 9 665c255d 2023-08-04 jrmu     (make-interval (min p1 p2 p3 p4)
10 665c255d 2023-08-04 jrmu 		   (max p1 p2 p3 p4))))
11 665c255d 2023-08-04 jrmu 
12 665c255d 2023-08-04 jrmu (define (div-interval x y)
13 665c255d 2023-08-04 jrmu   (mul-interval x
14 665c255d 2023-08-04 jrmu 		(make-interval (/ 1.0 (upper-bound y))
15 665c255d 2023-08-04 jrmu 			       (/ 1.0 (lower-bound y)))))
16 665c255d 2023-08-04 jrmu 
17 665c255d 2023-08-04 jrmu (define (make-interval lower upper)
18 665c255d 2023-08-04 jrmu   (cons lower upper))
19 665c255d 2023-08-04 jrmu (define (upper-bound interval)
20 665c255d 2023-08-04 jrmu   (cdr interval))
21 665c255d 2023-08-04 jrmu (define (lower-bound interval)
22 665c255d 2023-08-04 jrmu   (car interval))
23 665c255d 2023-08-04 jrmu 
24 665c255d 2023-08-04 jrmu 
25 665c255d 2023-08-04 jrmu ;; Exercise 2.8.  Using reasoning analogous to Alyssa's, describe how the difference of two intervals may be computed. Define a corresponding subtraction procedure, called sub-interval. 
26 665c255d 2023-08-04 jrmu 
27 665c255d 2023-08-04 jrmu (define (sub-interval x y)
28 665c255d 2023-08-04 jrmu   (make-interval (- (lower-bound x) (upper-bound y))
29 665c255d 2023-08-04 jrmu 		 (- (upper-bound x) (lower-bound y))))
30 665c255d 2023-08-04 jrmu 
31 665c255d 2023-08-04 jrmu ;; Exercise 2.9.  The width of an interval is half of the difference between its upper and lower bounds. The width is a measure of the uncertainty of the number specified by the interval. For some arithmetic operations the width of the result of combining two intervals is a function only of the widths of the argument intervals, whereas for others the width of the combination is not a function of the widths of the argument intervals. Show that the width of the sum (or difference) of two intervals is a function only of the widths of the intervals being added (or subtracted). Give examples to show that this is not true for multiplication or division.