sicp习题试解 (1.44)

; ======================================================================

;

; Structure and Interpretation of Computer Programs

; (trial answer to excercises)

;

; 计算机程序的构造和解释(习题试解)

;

; created: code17 03/06/05

; modified:

; (保持内容完整不变前提下，可以任意转载)

; ======================================================================

;; SICP No.1.44

(define dx 0.001)

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

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

;; Test-it;;

> (require (lib "math.ss"))

> (sin (/ pi 4))

0.7071067811865475

> ((smooth sin) (/ pi 4))

0.7071065454843067

> ((n-smooth 10 sin) (/ pi 4))

0.7071044241676754

• ·jscript错误代码对招手册
• ·Struts原理与实践（1）
• ·sicp第一章收尾和几点想法
• ·sicp习题试解 (1.46)
• ·sicp习题试解 (1.45)
• ·sicp习题试解 (1.43)
• ·sicp习题试解 (1.42)
• ·sicp习题试解 (1.41)
• ·sicp习题试解 (1.40)
• ·sicp习题试解 (1.39)