SICP 练习1.39 计算tan(x)

墨衍会员 · AI 创作全网分发 墨衍智能分发 本文由作者通过墨衍一键同步至各平台 1分发平台 400+累计阅读 425平均单平台已同步平台优快云微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网我也要 → 码龄12年

关注

原创最新推荐文章于 2026-08-30 09:36:49 发布 425 阅读 AI 写同款· GEO 优化 ›

【信息科学与工程学】【制造工程】第六十二篇芯片封装01 ①有效热导率：k_eff = k_matrix[(1+2φ(β-1)/(β+2))/(1-φ(β-1)/(β+2))]，β=k_filler/k_matrix；：①热导率：k_parallel = V_f·k_f + (1-V_f)·k_m，k_perp = k_m·k_f/(V_f·k_m + (1-V_f)·k_f)；②热导率：k_eff = k_m[(k_f+2k_m+2φ(k_f-k_m))/(k_f+2k_m-φ(k_f-k_m))]；阅读详情

(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

77 篇文章 2 人学习

订阅专栏查看详情

当前文章被以下社区和专栏收录：

企业微信会话存档SDK集成与动态库加载实战本文详细解析了企业微信会话存档SDK的集成与动态库加载实战，重点解决Windows与Linux环境下动态库加载的差异问题。通过实战案例和优化建议，帮助开发者高效完成企业微信API集成，确保合规存档功能稳定运行。阅读详情

相关推荐

判断两个多边形是否相交（java实现）

判断两个多边形是否相交，当前认为一个点相交也是相交，可针对凹多边形和凸边型等多复杂的多边形进行相交判断，采用java实现，因为网上java实现的比较少，所以这里写下如何实现，适用于碰撞检测，地图等等应用场景

IT_CREATE的博客 5843

SICP习题1.39解答

可推导出 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) (- (+ ...

weixin_30924087的博客 200

Python 爬取新浪财经 7x24(1): 下载数据

前言最近在做一个需要很多财经数据的项目。于是想到可不可以通过爬虫来解决（尝试白嫖）。提供财经数据的网站有很多个，其中比较靠谱和更新比较及时的应该是新浪7x24 live数据。 http://finance.sina.com.cn/7x24/?tag=0 这个问题有一定的难度，因为这个网页是动态加载的。每一次只会加载部分数据，而只有拉到底部才可以加载新的数据。于是乎，我们要做的事情是：下载数据保存到数据库本篇介绍如何下载数据。代码闲言少叙书归正文，代码的实现如下： import reque

ZJ_11701的博客 2905

SICP 习题（1.39）解题总结

SICP 习题1.39沿着习题1.37， 1.38的方向继续前行，要求我们根据德国数学家J.H.Lambert的公式定义tan-cf过程，用于计算正切函数的近似值。J.H.Lambert的公式如下：可以发现，这个和之前的无穷连分式是一样一样的，所不同的就是N是一个变量，不是固定数值。不过这个已经难不倒我们啦，可以从公式中发现,除了第一个N是x，其它的N都是x平方，D对应的数值是1,3,5，就是所有

keyboardOTA的专栏 7256

Windows 10/11下R与RStudio最新版安装避坑指南（含镜像加速配置）

本文提供了Windows 10/11系统下R与RStudio最新版的详细安装指南，包含镜像加速配置和常见问题解决方案。通过分步教程帮助用户避开安装陷阱，优化开发环境设置，特别适合国内用户快速搭建高效的数据分析平台。

weixin_29065959的博客 1003

OpenCompass实战：从零部署大模型评测平台，量化模型能力选型

在大模型技术选型与评估中，客观、可量化的评测体系是工程实践的关键。其核心原理在于通过标准化的数据集、统一的评测方法与自动化流程，将主观的模型体验转化为可比较的指标数据。这种评测框架的技术价值在于解决了模型能力评估的模糊性问题，为开发者提供了模型选型、效果对比与迭代优化的科学依据。典型的应用场景包括对比不同开源模型在代码生成、逻辑推理等特定任务上的性能，或是评估微调后模型在业务数据集上的提升效果。OpenCompass作为开源的大模型全能力评测平台，正是这一理念的工程化实现。它通过模块化的四层流水线架构和配置

weixin_28725037的博客 626

深入解析Rust Serde反序列化：Visitor模式原理与实战应用

在数据序列化与反序列化领域，Rust生态中的Serde库以其高性能和灵活性成为行业标准。其核心机制基于访问者（Visitor）设计模式，通过分离数据解析与消费逻辑，实现了高效的类型转换。这一原理不仅支撑了Serde强大的派生宏功能，更为开发者提供了深度定制反序列化流程的能力，例如在数据验证、格式转换和性能优化等场景中。本文聚焦于Serde 3.3版本，通过拆解Visitor的内部工作流程，并结合实战案例，详细阐述了如何手动实现Deserialize trait以处理复杂数据结构。对于需要实现自定义验证（如邮

weixin_34220179的博客 399

方案设计之亿级排行榜方案设计

该方案通过 “Redis Zset 为核心 + 分治策略为骨架 + 多级优化为细节”，在亿级用户场景下实现了：本质是将 “亿级大问题” 拆解为 “千万级小问题”，用分布式思想和精细化设计平衡性能、可用性与成本。

shine0312的专栏 1099

SICP 1.34-1.39习题体会

SICP 习题1.34-1.39

专注于移动互联网 1115

面经-2023-禾赛-FPGA工程师

w0shishabi的博客 2969

AI应用架构师实战：超算中AI与量子计算融合的初探与架构

当大模型的算力需求突破E级超算的极限，当量子计算的“量子优势”从实验室走向真实场景，超算+AI+量子计算的融合架构成为解决复杂问题的关键路径。本文从架构师的实战视角出发，系统拆解三者融合的底层逻辑：从“计算本质”的第一性原理推导，到“量子-经典异构”的架构设计；从“量子机器学习”的代码实现，到“金融/医药”的场景落地。我们将回答：如何用超算支撑量子计算的噪声抑制与纠错？如何用量子计算加速AI模型的训练与推理？如何设计可扩展、高可用的融合系统？最终给出架构师的实战指南——从技术选型到运营管理的全流程方法论。

AIGC应用创新大全的博客 923

sicp每日一题[1.39]

1.39乍一看，并不很难，但是我想了半天也没做出来。1.38难度不大，再加上今天周末，时间充足，我决定再做一道😀。然后题目就变得简单了，只要把最后的结果除以。

再思的博客 1193

计算机网络技术研究方向有哪些创新点

计算机网络技术方向的创新点众多，这些创新不仅推动了网络技术的不断发展和完善，还为用户提供了更高效、更安全、更便捷的网络服务。- 边缘计算是一种将计算和数据存储推向网络边缘的技术，通过将数据处理和分析的任务分散到网络的各个节点，降低了数据传输的延迟，提高了实时性。- 通过网络自动化工具和技术，可以实现网络配置的自动化、网络故障的自动诊断与修复等功能，降低了网络运维的复杂性和成本。- 通过引入人工智能技术，网络可以实现更智能的流量管理、故障预测和自动修复等功能，提高了网络的性能和稳定性。

Loving_enjoy的博客 1494

【SICP练习】33 练习1.39

练习1.39 没想到最后一道题如此简单，n和d的过程可以如下定义： (define (n i) (if (= i 1) i (- (* i i)))) (define (d i) (- (* 2 i) 1)) 这里我们就不再重复写成块结构了。 (define (tan-cf x k)

nomasp 2438

win10 跳过U8环境检测的IE WebControls.rar

win10 安装u8的时候提示IE WebControls 不通过，这个工具可以欺骗u8的检查。跳过U8环境检测的IE WebControls。提示导入失败后，重新检测通过。

迈瑞BS系列全自动生化分析仪LIS协议接口手册(内含HL7和ASTM)

迈瑞BS系列全自动生化分析仪LIS协议接口手册，内含HL7和ASTM)

SICP 习题2.19 重写count-change 过程

(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 (

NM的专栏 1222

ssm框架搭建

这个是一个在idea上成功跑起来的ssm框架项目，保存在这里方便以后使用直接下载

SICP 练习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)))

NM的专栏 1107

Probability and Statistics - 4th edition

SICP 习题2.8 区间减法

我的想法是区间减法是a区间的每一个数减去b区间的每一个数，这些相减的结果在一个区间上。也就是x的下界-y的上界是最小的，x的上界-y的下界是最大的。其他所有结果都在这两个数之间。(define (add-interval x y) (make-interval (+ (lower-bound x) (lower-bound y)) (+ (upper-bound x) (upp

NM的专栏 1043

SICP 牛顿法求平方根

(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

NM的专栏 971

SICP 习题2.3 计算矩形面积和周长

我是用两个点表示的一个矩形，矩形的左下方的点和右上方的点。还有一种方法可以用一个左下方的点，一个长，一个宽就可以了。建立抽象屏障就是要求每个表示方法都能求出一个矩形的长和宽，根据这两个信息，就可以求出矩形面积和周长。(define make-rect cons) (define s-rect car) (define e-rect cdr)(define make-point cons) (defi

NM的专栏 828

SICP 习题1.36 使用不动点发寻找x^x = 1000的根

修改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 (

NM的专栏 814

SICP 换零钱问题

书上提到了迭代的算法，想到了完全背包，但是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) (

NM的专栏 809

SICP 习题2.42 八皇后问题

想不到第一次写八皇后问题是用的scm写代码的途中遇到一个错误，用let错了，用define对了，应该是编译器的原因，和nil差不多。(define (accumulate op initial sequence) (if (null? sequence) initial (op (car sequence) (accumulate op initial (cdr

NM的专栏 764

SICP 习题2.33 用accumulate完成一些基本的表操作

这个accumulate比第一章完成更强大(define (accumulate op initial sequence) (if (null? sequence) initial (op (car sequence) (accumulate op initial (cdr sequence)))))(define (map p sequence) (accu

NM的专栏 735

SICP 练习1.7

这个是改进good-enough?函数，容易想到，guess (improve guess x) 分别是上一次迭代和下一次迭代的结果，那么就可以测量这个变化来改进good-enough?函数(define (sqrt-iter guess x) (if (good-enough? guess (improve guess x)) guess (sqrt-iter (improve

NM的专栏 734

SICP 习题2.4 cons car cdr 用过程实现

(define (cons-a x y) (lambda (m) (m x y)))(define (car-a z) (z (lambda (p q) p)))(define (cdr-a z) (z (lambda (p q) q)))(define a (cons-a 1 2)) (newline) (display (car-a a)) (newline) (display (c

NM的专栏 702

SICP 习题2.36 accumulate-n的实现

(define (accumulate op initial sequence) (if (null? sequence) initial (op (car sequence) (accumulate op initial (cdr sequence)))))(define (accumulate-n op init seqs) (if (null? (car