Chapter 3, Modularity, Objects, and State
Exercise 3.73
1
2
3
4
5
(define (RC R C dt)
(lambda (vo i)
(add-streams
(scale-stream i R)
(scale-stream (integral i vo dt) (/ 1 C)))))
Output:
1
2
3
4
5
1 ]=> (define RC1 (RC 5 1 0.5))
;Value: rc1
1 ]=> (get-n-items-of-stream (RC1 0 ones) 5)
;Value 40: (5 5.5 6. 6.5 . 7.)