sicp-ex-3.79



<< Previous exercise (3.78) | Index | Next exercise (3.80) >>


meteorgan

  
  
 (define(general-solve-2nd f y0 dy0 dt) 
         (define y (integral (delay dy) y0 dt)) 
         (define dy (integral (delay ddy) dy0 dt)) 
         (define ddy (stream-map f dy y)) 
         y)