read
[CODE]
(define (square x) (* x x))
(define (tan-cf x k)
(define (d-tan i) (- (* 2 i) 1))
(define (n-tan i)
(if (= i 1)
x
(square x)))
(cont-frac n-tan d-tan k))
[/CODE]
[CODE]
(define (square x) (* x x))
(define (tan-cf x k)
(define (d-tan i) (- (* 2 i) 1))
(define (n-tan i)
(if (= i 1)
x
(square x)))
(cont-frac n-tan d-tan k))
[/CODE]