1. 次を「定義用ウインドウ」で,実行しなさい
•入力した後に,Execute ボタンを押す
;; d/dx: (number->number) number number -> number
;; inclination of the tangent
(define (d/dx f x h)
(/ (- (f(+ x h)) (f(- x h)))
(* 2 h)))
(define (is-good? f guess delta)
(< (abs (f guess)) delta))
(define (improve f guess)
(- guess (/ (f guess) (d/dx f guess 0.0001))))
;; newton: (number->number) number number number ->
number
(define (newton f guess delta number)
(cond
[(or (is-good? f guess delta)
(< number 0)) guess]
[else (newton f(improve f guess) delta (- number 1))]))
(define (f2 x)
(+ (* x x x) (* -6 x x) (* 11 x) -6))
「例題1.ニュートン法による非線形方程式の解」の手順 (1/2)
23