Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (define (square x) (* x x))
- (define (cont-frac n d combiner k)
- (define (cont-frac-aux n d a k)
- (if (> a k)
- 0
- (/ (n a) (combiner (d a) (cont-frac-aux n d (+ a 1) k)))))
- (cont-frac-aux n d 1.0 k))
- (define (tan-cf x k)
- (cont-frac (lambda (i)
- (if (= i 1)
- x
- (square x)))
- (lambda (i) (- (* 2 i) 1))
- -
- k))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement