1 665c255d 2023-08-04 jrmu (defun par1 (r1 r2)
 2 665c255d 2023-08-04 jrmu   (div-interval
 3 665c255d 2023-08-04 jrmu    (mul-interval r1 r2)
 4 665c255d 2023-08-04 jrmu    (add-interval r1 r2)))
 5 665c255d 2023-08-04 jrmu (defun par2 (r1 r2)
 6 665c255d 2023-08-04 jrmu   (let ((one (make-interval 1 1)))
 7 665c255d 2023-08-04 jrmu     (div-interval
 8 665c255d 2023-08-04 jrmu      one
 9 665c255d 2023-08-04 jrmu      (add-interval (div-interval one r1)
10 665c255d 2023-08-04 jrmu 		   (div-interval one r2)))))
11 665c255d 2023-08-04 jrmu 
12 665c255d 2023-08-04 jrmu (defvar aa (make-center-width 5 0.1))
13 665c255d 2023-08-04 jrmu (defvar bb (make-center-width 10 0.1))
14 665c255d 2023-08-04 jrmu (print (par1 aa bb))
15 665c255d 2023-08-04 jrmu (print (par2 aa bb))