SICP 1.3.4 牛顿法
2016-06-04 17:01
344 查看
(define (deriv g) (lambda (x) (/ (- (g (+ x dx)) (g x)) dx))) (define dx 0.00001) (define (newton-transform g) (lambda (x) (- x (/ (g x) ((deriv g) x))))) (define (newtons-method g guess) (fixed-point (newton-transform g) guess)) (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))) (if (close-enough? guess next) next (try next)))) (try first-guess)) (define (sqrt-a x) (newtons-method (lambda (y) (- (square y) x)) 1.0)) (sqrt-a 2.0)
相关文章推荐
- C#基础--struct(结构体)
- union联合体使用注意事项
- 预编码与码本的理解
- Apache Flink fault tolerance源码剖析(四)
- Dom-对节点的增删改查,替换
- JavaScript学习笔记三:数组
- Android中dip和px的互转
- Shell编程实现俄罗斯方块游戏(一步步详解)一
- 图计算图处理可视化核心技术
- CentOS 7.0 VNC Server安装和配置
- 纯数字钱转汉字钱
- 虚拟机
- 网络编程的基本概念
- 制作圆形图片,你会以下几种?
- 移除监听事件
- Cannot launch AVD in emulator. Output: sh: 1: glxinfo:
- HDU 3555 Bomb (数位DP)
- 生成字体图标及其原理
- Android-menu
- Android Http缓存数据处理