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:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Lisp/Scheme
|
1990-10-11
|
151 b
|
6 lines
;book p.94
(defun integral (f a b h)
(do ((integral 0 (+ integral (* h (funcall f x))))
(x (+ a (/ h 2)) (+ x h)))
((> x b) integral)))