sicp-ex-3.73



<< Previous exercise (3.72) | Index | Next exercise (3.74) >>


meteorgan

  
  
  
 (define (RC r c dt) 
         (define (proc i v) 
                 (add-streams (scale-stream i r) 
                                          (integral (scale-stream i (/ 1 c)) v dt))) 
         proc)