Open Source WEB

##(link2sicp "book-Z-H-12.html#%_thm_1.44" "Exercise 1.44")

解答例

(define dx 0.00001)

(define (smooth f)
  (lambda (x) (/ (+ (f (- x dx)) (f x) (f (+ x dx))) 3)))

(define (n-fold-smooth n f)
  (repeated smooth n))

(2006-11-13) bug-fixed. thanks masaki.

コード

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

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

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