11 lines
194 B
Plaintext
11 lines
194 B
Plaintext
|
(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))
|