src/sicp/ex3_80.rkt

   1 #lang racket
   2
   3 (define (RLC R L C dt)
   4   (define (rlc1 vc0 il0)
   5     (define vc (integral (delay dvc) vc0 dt))
   6     (define dvc0 (scale-stream il (/ -1 C)))
   7     (define il (integral (delay dil) il0 dt))
   8     (define dil (add-streams (scale-stream vc (/ 1 L))
   9                              (scale-stream il (/ -R L))))
  10     (stream-map (lambda (x y) (cons x y)) vc il)))
  11
  12