Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 27 lines (16 sloc) 0.545 kB
b08e902 @dharmatech Initial checkin
authored
1
2 (library
3
4 (sicm numerics-quadrature-defint)
5
6 (export definite-integral)
7
8 (import (rnrs)
9 (sicm numerics-quadrature-quadrature)
10 )
11
12 (define (definite-integral-with-tolerance f x1 x2 tolerance)
13 (evaluate-definite-integral 'open f x1 x2 tolerance))
14
15 (define (definite-integral-numerical f t1 t2 tolerance)
16
17 (if (and (number? t1)
18 (number? t2)
19 (= t1 t2))
20
21 0
22
23 (definite-integral-with-tolerance f t1 t2 tolerance)))
24
25 (define definite-integral definite-integral-numerical)
26
27 )
Something went wrong with that request. Please try again.