Blob
1 (defun par1 (r1 r2)2 (div-interval3 (mul-interval r1 r2)4 (add-interval r1 r2)))5 (defun par2 (r1 r2)6 (let ((one (make-interval 1 1)))7 (div-interval8 one9 (add-interval (div-interval one r1)10 (div-interval one r2)))))12 (defvar aa (make-center-width 5 0.1))13 (defvar bb (make-center-width 10 0.1))14 (print (par1 aa bb))15 (print (par2 aa bb))