Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Branch: master
Fetching contributors…

Cannot retrieve contributors at this time

27 lines (16 sloc) 0.545 kB
(library
(sicm numerics-quadrature-defint)
(export definite-integral)
(import (rnrs)
(sicm numerics-quadrature-quadrature)
)
(define (definite-integral-with-tolerance f x1 x2 tolerance)
(evaluate-definite-integral 'open f x1 x2 tolerance))
(define (definite-integral-numerical f t1 t2 tolerance)
(if (and (number? t1)
(number? t2)
(= t1 t2))
0
(definite-integral-with-tolerance f t1 t2 tolerance)))
(define definite-integral definite-integral-numerical)
)
Jump to Line
Something went wrong with that request. Please try again.