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