home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d3xx / d385 / xlispstat.lha / XLispStat / lisp.lzh / XLisp-Stat / Functions / integral.lsp < prev    next >
Encoding:
Lisp/Scheme  |  1990-10-11  |  151 b   |  6 lines
  1. ;book p.94
  2.  
  3. (defun integral (f a b h)
  4.   (do ((integral 0 (+ integral (* h (funcall f x))))
  5.        (x (+ a (/ h 2)) (+ x h)))
  6.       ((> x b) integral)))