4.8 De Regel van Simpson

(define (simp-int f a b n)
  (define (iter k res)
    (if (> k n)
        (* (/ (/ (- b a) n) 3) res)
        (let* ((h (/ (- b a) n))
              (yk (f (+ a (* k h)))))
          (iter (+ k 1) (+ res (* (if (odd? k) 4 2) yk))))))
    (iter 1 (f a)))
  (define r (sqrt 2))