Open Source WEB

##(link2sicp "book-Z-H-12.html#%_thm_1.40" "Exercise 1.40")

解答例

(define (cubic a b c)
  (lambda (x) (+ (* x (+ (* x (+ x a)) b)) c)))

実行例

gosh> (newtons-methods (cubic 0 -1 0) 2.0)
1.0000000000210998

コード

##(sicp-answer-code "ex-1.40.scm")

このサイトは、 IPA の「平成15年度オープンソフトウエア活用基盤整備事業」 の委託事業として開発されたKahuaで試験的に運用しております。

Copyright (c) 2004-2007 株式会社タイムインターメディア About Us