SICP 1.29答え

このテーマを作るには思想が形成されると思います.このアルゴリズムはすごいです.本のテーマの上のアルゴリズムよりずっと正確です.

(define (simpson-intergral f a b n)
  (define (inc-a x)
    (+ x 1))
  (define (h)
    (/ (- b a) n))
  (define (y x)
    (+ a (* x (h))))
  (define (num x) 
    (cond ((or (= x 0) (= x n)) 1)
          ((even? x) 2)
          (else 4)))
  (define (term x)
    (* (num x) (f (y x))))
  (* (/ (h) 3.0) (sum term 0 inc-a n)))

(simpson-intergral cube 0 1 100)