zenon/sicp
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add Exercise 2.12

Browse Source
This commit is contained in:
Tobias Eidelpes 2022-11-05 14:58:25 +01:00
parent a14449600f
commit a79350dd76
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
chapter2.lisp
View File

@ -105,3 +105,16 @@ and upper bound."
a a
(make-interval (/ 1.0 (upper-bound b)) (make-interval (/ 1.0 (upper-bound b))
(/ 1.0 (lower-bound b)))))) (/ 1.0 (lower-bound b))))))
;; Exercise 2.12
(defun make-center-width (c w)
(make-interval (- c w) (+ c w)))
(defun center (i)
(/ (+ (lower-bound i) (upper-bound i) 2.0)))
(defun width (i)
(/ (- (upper-bound i) (lower-bound i) 2.0)))
(defun make-center-percent (c p)
(make-interval (* c (- 1 (/ p 100)))
(* c (+ 1 (/ p 100)))))