「旧課程(-2012年度)高等学校数学B/数値計算とコンピューター」の版間の差分
削除された内容 追加された内容
243 行
実際の<math>\pi</math>の値と近い値が得られていることが分かる。
Schemeによるプログラム例
(define (trapezoid_formula f a b)
(let ((n 20))
(let ((dx (/ (- b a) n)))
(let loop ((i 0) (sum 0))
(if (= i n)
(exact->inexact sum)
(loop (+ i 1)
(+ sum (* (+ (f (+ a (* dx i)))
(f (+ a (* dx (+ i 1)))))
(/ dx 2)))))))))
;;;実行例
;;> (trapezoid_formula (lambda (x)
;; (sqrt (- 1 (expt x 2))))
;; 0 1)
;;0.7821162199387454
;;> (/ pi 4)
;;0.7853981633974483
こちらも実際の<math>\pi</math>の値と近い値が得られていることが分かる。
| |||