「旧課程(-2012年度)高等学校数学B/数値計算とコンピューター」の版間の差分
削除された内容 追加された内容
176 行
(mid_point (/ (+ a b) 2))) ;手順2。中点の計算。
(cond ((or (zero? (f mid_point))
(< (- e) (f mid_point) e))
(exact->inexact mid_point)) ;ここまでが手順4。
((> (f mid_point) 0)
183 行
;;;実行例
;;> (bisection (lambda (x) (- x 1)) 0 3) ;x-1の解を0〜3間で探す。
;;0.9999999999417923
;;> (bisection (lambda (x) (- (expt x 2) 1)) 0 3) ;x^2-1の解を0〜3間で探す。
;;1.0000000000291038
| |||