(define (integral2 f a b n)
  (define (h)
    (/ (- b a) n))
  (define (y-term x)
    (define (weight)
      (cond ((= x 0) 1.0)
      ((= x n) 1.0)
      ((even? x) 2.0)
      ((odd? x) 4.0)))
    (* (weight) (f (+ a (* (h) x)))))
  (* (/ (h) 3.0) (sum y-term 0 inc n)))


머리가 돌인걸 어떻게해. 잘래.