(define (solve-2nd a b y0 dt0 dt) (define y (integral (delay dy) y0 dt)) (define dy (integral (delay ddy) y0 dt)) (define ddy (add-stream (scale-stream dy a) (scale-stream y b))) y)
댓글 없음:
댓글 쓰기