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)))))