Код Ревью
Сравни свои решения
#| BEGIN (Введите свое решение) |#
(define (sum term a next b)
(if (> a b)
0.0
(+ (term a)
(sum term (next a) next b))))
(define (simpson f a b n)
(define h (/ (- b a) n))
(define (factor k)
(cond ((or (= k 0) (= k n)) 1)
((odd? k) 4)
((even? k) 2)))
(define (term k)
(* (factor k)
(f (+ a (* k h)))))
(* (sum term 0 add1 n)
(/ h 3.0)))
#| END |#
#| BEGIN (Введите свое решение) |#
(define (sum term a next b)
(if (> a b)
0
(+ (term a)
(sum term (next a) next b))))
(define (simpson f a b n)
(define (factor k)
(cond ((or (= k 0) (= k n)) 1)
((odd? k) 4)
((even? k) 2)))
(let ((h (/ (- b a) n)))
(* (sum (λ (k) (* (factor k) (f (+ a (* k h)))))
0
add1
n)
(/ h 3.0))))
#| END |#
#| BEGIN (Введите свое решение) |#
(define (sum term a next b)
(if (> a b)
0
(+ (term a)
(sum term (next a) next b))))
(define (simpson f a b n)
(define (factor k)
(cond ((or (= k 0) (= k n)) 1)
((odd? k) 4)
((even? k) 2)))
(let ((h (/ (- b a) n)))
(* (sum (λ (k) (* (factor k) (f (+ a (* k h)))))
0.0
add1
n)
(/ h 3.0))))
#| END |#
#| BEGIN (Введите свое решение) |#
(define (sum term a next b)
(if (> a b)
0.0
(+ (term a)
(sum term (next a) next b))))
(define (simpson f a b n)
(define h (/ (- b a) n))
(define (factor k)
(cond ((or (= k 0) (= k n)) 1)
((odd? k) 4)
((even? k) 2)))
(define (term k)
(* (factor k)
(f (+ a (* k h)))))
(* (sum term 0 add1 n)
(/ h 3.0)))
#| END |#
#| BEGIN (Введите свое решение) |#
(define (sum term a next b)
(if (> a b)
0
(+ (term a)
(sum term (next a) next b))))
(define (simpson f a b n)
(define (factor k)
(cond ((or (= k 0) (= k n)) 1)
((odd? k) 4)
((even? k) 2)))
(let ((h (/ (- b a) n)))
(* (sum (λ (k) (* (factor k) (f (+ a (* k h)))))
0
add1
n)
(/ h 3.0))))
#| END |#
#| BEGIN (Введите свое решение) |#
(define (sum term a next b)
(if (> a b)
0
(+ (term a)
(sum term (next a) next b))))
(define (simpson f a b n)
(define (factor k)
(cond ((or (= k 0) (= k n)) 1)
((odd? k) 4)
((even? k) 2)))
(let ((h (/ (- b a) n)))
(* (sum (λ (k) (* (factor k) (f (+ a (* k h)))))
0.0
add1
n)
(/ h 3.0))))
#| END |#