1 665c255d 2023-08-04 jrmu (define (par1 r1 r2)
 2 665c255d 2023-08-04 jrmu   (div-interval (mul-interval r1 r2)
 3 665c255d 2023-08-04 jrmu 		(add-interval r1 r2)))
 4 665c255d 2023-08-04 jrmu (define (par2 r1 r2)
 5 665c255d 2023-08-04 jrmu   (let ((one (make-interval 1 1)))
 6 665c255d 2023-08-04 jrmu     (div-interval one
 7 665c255d 2023-08-04 jrmu 		  (add-interval (div-interval one r1)
 8 665c255d 2023-08-04 jrmu 				(div-interval r2)))))
 9 665c255d 2023-08-04 jrmu 
10 665c255d 2023-08-04 jrmu (define a (make-center-percent 100 5))
11 665c255d 2023-08-04 jrmu (define b (make-center-percent 200 2))
12 665c255d 2023-08-04 jrmu (define aa (div-interval a a))
13 665c255d 2023-08-04 jrmu (define ab (div-interval a b))
14 665c255d 2023-08-04 jrmu (center aa)
15 665c255d 2023-08-04 jrmu (center ab)
16 665c255d 2023-08-04 jrmu (percent aa)
17 665c255d 2023-08-04 jrmu (percent ab)
18 665c255d 2023-08-04 jrmu (define apb1 (par1 a b))
19 665c255d 2023-08-04 jrmu (define apb2 (par2 a b))
20 665c255d 2023-08-04 jrmu apb1
21 665c255d 2023-08-04 jrmu apb2
22 665c255d 2023-08-04 jrmu (define apa1 (par1 a a))
23 665c255d 2023-08-04 jrmu (define apa2 (par2 a a))