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) 

@meteorgan I think it's better to just return a lambda, naming the function in the example before the actual exercise was necessary to recursively call it, here it's not needed.

  
  
 (define (RC r c dt)  
   (lambda (si initial-voltage)  
     (add-stream (scale-stream si R)  
     (integral (scale-stream si (/ 1 C)) initial-voltage dt))))