Skip to content

Instantly share code, notes, and snippets.

@yakreved
Created August 13, 2013 23:45
Show Gist options
  • Save yakreved/6226783 to your computer and use it in GitHub Desktop.
Save yakreved/6226783 to your computer and use it in GitHub Desktop.
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 погрешности нарастают сначала при умножении, затем при делении тех-же самых интервалов.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment