home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 2: PC / frozenfish_august_1995.bin / bbs / d09xx / d0963.lha / SIOD / scm / differ.scm < prev    next >
Text File  |  1993-01-02  |  301b  |  13 lines
  1. (define (deriv f h)
  2.         (lambda (x)
  3.                 (/ (- (f (+ h x)) (f x)) h)))
  4.  
  5. (define (integral f a b dx)
  6.         (define (add-dx z) (+ z dx))
  7.         (sum f add-dx (+ a (/ dx 2)) b))
  8.  
  9. (define (sum f next x y)
  10.         (if (> x y)
  11.             0
  12.             (+ (f x) (sum f next (next x) y))))
  13.