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.)