SICP 练习1.39 计算tan(x)

最新推荐文章于 2019-11-05 08:37:31 发布
原创 最新推荐文章于 2019-11-05 08:37:31 发布 · 403 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文介绍了一个使用Scheme语言定义的递归过程来计算正切函数的连分数表示的方法。该过程通过迭代减少问题规模直至基本情况，并最终返回计算结果。这种连分数逼近法为数值计算提供了一种有效途径。 
(define (tan-cf x k)
  (define (d i) (- (* 2.0 i) 1.0))
  (define (n i)
    (if (= i 1) x (* x x)))
  (define (iter i result)
    (if (= i 0)
      result 
      (iter (- i 1) (/ (n i) (- (d i) result)))))
  (iter k 0))

(newline)
(display (tan-cf 1 100))
(newline)
(display (tan 1))
sicp:我的 SICP 练习
06-20
《SICP：我的SICP练习》是关于Scheme编程语言和计算机程序设计原理的一份学习资料。SICP，全称《结构与解释程序》（Structure and Interpretation of Computer Programs），是由Harvard大学的Hal Abelson和MIT的...
SICP-计算机课后习题资源
最新发布
04-08
"程序视角下的可计算和复杂性理论"可能是对SICP中关于计算理论部分的深入解读文档，这能帮助学习者从宏观的角度理解计算的本质和复杂性问题。"lambda演算.pdf"文档则可能包含对SICP中关于函数式编程范式相关讨论的...
SICP 习题 （1.39）解题总结
keyboardOTA的专栏
06-18 7224
SICP 习题1.39沿着习题1.37， 1.38的方向继续前行，要求我们根据德国数学家J.H.Lambert的公式定义tan-cf过程，用于计算正切函数的近似值。J.H.Lambert的公式如下：可以发现，这个和之前的无穷连分式是一样一样的，所不同的就是N是一个变量，不是固定数值。不过这个已经难不倒我们啦，可以从公式中发现,除了第一个N是x，其它的N都是x平方，D对应的数值是1,3,5，就是所有
SICP 1.34-1.39习题体会
专注于移动互联网
11-05 1095
SICP 习题1.34-1.39
SICP习题1.39解答
weixin_30924087的博客
08-02 169
可推导出 tanx的公式为 tanx = Fn(k)(x) / x其中Fn(k)(x) = x^2 / (2(n-k) - Fn(k - 1)(x)) (define (tan-cf x k) (define (tan-helper k N) (cond ((= k 0) 0) (else (/ (square x) (- (+ ...
【SICP练习】33 练习1.39
weixin_34220179的博客
02-17 126
 练习1.39 没想到最后一道题如此简单，n和d的过程可以如下定义： (define (n i) (if (= i 1) i (- (* i i)))) (define (d i) (- (* 2 i) 1)) 这里我们就不再重复写成块结构了。 (define (tan-cf x k) ...
SICP 1.35-1.39
郭東的博客
09-06 399
练习1.35(define tolerance 0.00001) (define (fixed-point f first-guess) (define (close-enough? v1 v2) (< (abs (- v1 v2)) tolerance)) (define (try guess) (let ((next (f guess))) (i
《SICP》习题第1章
四毛毛的博客
11-13 1337
本人做的SICP习题第1章，如有错误请指正，用的解释器是Racket   练习1.1 计算代码如下 ;; Exercise 1.1 #lang racket 10 (+ 5 3 4) (- 9 1) (/ 6 2) (+ (* 2 4) (- 4 6)) (define a 3) (define b (+ a 1)) (+ a b (* a b)) (= a b) (i...
SICP 解题集
alien10086的博客
05-20 1884
第一章练习1.15 a:p被使用啦5次 b:angle每乘以3，p多调用一次。空间和步数都为线性增长。 练习1.16 (cond [(= n 0) a] [(even? n) (first-e (square b) (/ n 2) a )] [(odd? n) (first-e b (- n 1) (* a b ))])) (define (square x)
SICP第一章：构造过程抽象（1.3）
qq_45498223的博客
11-05 505
1.3 用高阶函数做抽象 1.3.1 过程作为参数
SICP 习题2.19 重写count-change 过程
NM的专栏
06-12 1185
(define (cc amount coin-values) (cond ((= amount 0) 1) ((or (< amount 0) (no-more? coin-values)) 0) (else (+ (cc amount (except-first-denomination coin-values)) (cc (
SICP 练习1.35使用不动点发寻找黄金分割律
NM的专栏
06-04 1074
前几个输出是书上介绍不动点法的几个样例(define tolerance 0.00001)(define (fixed-point f first-guess) (define (close-enough? v1 v2) (< (abs (- v1 v2)) tolerance)) (define (try guess) (let ((next (f guess)))
SICP 习题2.8 区间减法
NM的专栏
06-11 1014
我的想法是区间减法是a区间的每一个数减去b区间的每一个数，这些相减的结果在一个区间上。也就是x的下界-y的上界是最小的，x的上界-y的下界是最大的。其他所有结果都在这两个数之间。(define (add-interval x y) (make-interval (+ (lower-bound x) (lower-bound y)) (+ (upper-bound x) (upp
SICP 牛顿法求平方根
NM的专栏
05-31 928
(define (sqrt-iter guess x) (if (good-enough? guess x) guess (sqrt-iter (improve guess x) x)))(define (improve guess x) (average guess (/ x guess))) (define (average x y) (/ (+ x y) 2))(d
SICP 习题2.3 计算矩形面积和周长
NM的专栏
06-10 801
我是用两个点表示的一个矩形，矩形的左下方的点和右上方的点。还有一种方法可以用一个左下方的点，一个长，一个宽就可以了。建立抽象屏障就是要求每个表示方法都能求出一个矩形的长和宽，根据这两个信息，就可以求出矩形面积和周长。(define make-rect cons) (define s-rect car) (define e-rect cdr)(define make-point cons) (defi
SICP 习题1.36 使用不动点发寻找x^x = 1000的根
NM的专栏
06-04 796
修改fixed-point过程，在let里修改即可(define tolerance 0.00001)(define (fixed-point f first-guess) (newline) (display first-guess) (define (close-enough? v1 v2) (< (abs (- v1 v2)) tolerance)) (define (
SICP 换零钱问题
NM的专栏
06-01 773
书上提到了迭代的算法，想到了完全背包，但是lisp功底太差，实现不了。(define (count-change amount) (cc amount 5))(define (cc amount kinds-of-coins) (cond ((= amount 0) 1) ((or (< amount 0) (= kinds-of-coins 0)) 0) (
SICP 习题2.42 八皇后问题
NM的专栏
07-01 727
想不到第一次写八皇后问题是用的scm写代码的途中遇到一个错误，用let错了，用define对了，应该是编译器的原因，和nil差不多。(define (accumulate op initial sequence) (if (null? sequence) initial (op (car sequence) (accumulate op initial (cdr
SICP练习解答：MySICPSolutions探索与实践
10. 在本书的学习过程中，读者将接触到计算机科学的多个基本概念，如控制抽象、数据抽象、模块化、递归、迭代、高阶函数、符号数据处理、解释器以及程序语言和计算模型等。这些概念对于计算机科学的学习者而言，具有...
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值