]> git.rkrishnan.org Git - sicp.git/blob - src/sicp/ex3_73.rkt
Solution to 4.44. A bit too verbose. Can be improved by better
[sicp.git] / src / sicp / ex3_73.rkt
1 #lang racket
2
3 (define (RC R C dt)
4   (define (RC1 i initial-vc)
5     (add-streams (integral (scale-stream i (/ 1.0 C)) initial-vc dt)
6                  (scale-stream i R)))
7   RC1)
8
9 (define RC1 (RC 5 1 0.5))