felixm
/
SICP
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Implement till 3.62

main
Felix Martin 2021-01-04 16:07:00 -05:00
parent b8bb0df585
commit aab9d1bec3
1 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
ex-3_50-62.scm
View File

@ -258,8 +258,25 @@
(display "\nex-3.61 - invert-unit-series\n")
(define (invert-unit-series s) 0)
(define (invert-unit-series s)
(cons-stream 1 (mul-series (stream-map - (stream-cdr s))
(invert-unit-series s))))
(define X (invert-unit-series cosine-series))
(display "\nex-3.62\n")
(assert (sum (take 10 (mul-series cosine-series X)))
1)
(display "\nex-3.62 - tan\n")
(define (div-series ns ds)
(if (= (stream-car ds) 0)
(error "denominator is zero -- DIV-SERIES" ds)
(mul-series ns (invert-unit-series ds))))
(define tan-series (div-series sine-series cosine-series))
(assert (< (abs (- (exact->inexact (sum (take 20
(div-series sine-series cosine-series))))
1.5574)) 0.001) #t)