http://mitpress.mit.edu/sicp/full-text/book/book-Z-H-4.html 我的法典为第1/菲条相近做了适当的工作,但为近似的对应工作(e - 2)。
(define (cont-frac n d k)
(define (frac n d k)
(if (= k 0)
1.0
(+ (d k) (/ (n (+ k 1)) (frac n d (- k 1))))))
(/ (n 1) (frac n d k)))
(define (eulers-e-2)
(cont-frac (lambda (i) 1.0)
(lambda (i)
(if (= (remainder (+ i 1) 3) 0)
(* 2.0 (/ (+ i 1) 3))
1.0))
100))
(define (1-over-phi)
(cont-frac (lambda (i) 1.0)
(lambda (i) 1.0)
100))
不要忘记7. blah blah blah blah for e-2, I m 带5 blah blah 东西。 我可以说明原因。 我确信,我“d”在“eulers-e-2”职能中作了适当界定。
Edit: Thanks guys, I was calculating it backwards. Here s the fixed code.
(define (cont-frac n d k)
(define (frac n d i)
(if (= k i)
(d i)
(+ (d i) (/ (n (+ i 1)) (frac n d (+ i 1))))))
(/ (n 1) (frac n d 1)))