Anonymous user
Numerical integration: Difference between revisions
→{{header|Racket}}
Line 3,252:
(define (integrate f a b steps meth)
(define h (/ (- b a) steps))
(* h (for/sum ([i
(meth f (+ a (* h i)) h))))
Line 3,276:
<lang racket>
CUBED
left-rect: 0.
mid-rect: 0.
right-rect: 0.
trapezium: 0.
simpson: 0.
RECIPROCAL
left-rect: 4.
mid-rect: 4.
right-rect: 4.
trapezium: 4.
simpson: 4.
IDENTITY
left-rect:
mid-rect:
right-rect:
trapezium:
simpson:
IDENTITY
left-rect:
mid-rect:
right-rect:
trapezium:
simpson:
</lang>
| |||