作者：未知 来源：月光软件站 加入时间：2005-5-13　月光软件站

; ======================================================================
;
;          Structure and Interpretation of Computer Programs
;                  (trial answer to excercises)
;
;                  计算机程序的构造和解释(习题试解)
;
;                                             created: code17 03/06/05
;                                             modified:
; (保持内容完整不变前提下，可以任意转载)
; ======================================================================


;; SICP No.1.39

(define (tan-cf x k)
  (define (n i)
    (if (= i 1) x (- (* x x))))
  (define (d i) (- (* 2 i) 1))
  (cont-frac n d k))


;; Test-it:
;; Welcome to MzScheme version 209, Copyright (c) 2004 PLT Scheme, Inc.
;; > (require (lib "math.ss"))
;; > (tan-cf (/ pi 4) 10)
;; 1.0
;; > (tan-cf (- (/ pi 4)) 10)
;; -1.0
;; > (tan-cf (/ pi 8) 10)
;; 0.41421356237309503
;; > 

相关软件：