(load "1_37.sch") ; for cont-fram-rec
(define (d i) (+ (* (- i 1) 2) 1))
(define (tan-cf x)
(define (n i)
(if (= i 1)
(* 1.0 x)
(* -1.0 (* x x))))
(cont-frac-rec n d 50))