sicp 2.15

sicp_2_15

(define (par1 r1 r2)
(div-interval (mul-interval r1 r2)
(add-interval r1 r2)))

(define (par2 r1 r2)
(let ((one (make-interval 1 1)))
(div-interval one
(add-interval (div-interval one r1)
(div-interval one r2)))))

;par2 лучше т.к в par1 погрешности нарастают сначала при умножении, затем при делении тех-же самых интервалов.