SICP 1.3.3 二分法作为方程的根
2016-06-04 14:17
267 查看
这次所犯的错误是abs函数括号闭合错了,不懂得怎么调Bug,有点烦。
(define (search f neg-point pos-point) (let ((mid-point (average neg-point pos-point))) (if (close-enough? neg-point pos-point) mid-point (let ((test-value (f mid-point))) (cond ((positive? test-value) (search f neg-point mid-point)) ((negative? test-value) (search f mid-point pos-point)) (else mid-point)))))) (define (close-enough? x y) (< (abs (- x y)) 0.001)) (define (average x y) (/ (+ x y) 2)) (define (half-interval-method f a b) (let ((a-value (f a)) (b-value (f b))) (cond ((and (negative? a-value) (positive? b-value)) (search f a b)) ((and (negative? b-value) (positive? a-value)) (search f b a)) (else (error "Values are not of opposite sign" a b))))) (newline) (display (half-interval-method sin 2.0 4.0)) (newline) (display (half-interval-method (lambda (x) (- (* x x x) (* 2 x) 3)) 1.0 2.0)) (newline) (display (half-interval-method sin 2.0 3.0))
相关文章推荐
- SDAutolayout自动计算高度(解决bug)
- 深入理解Java的接口和抽象类
- 数据库事务
- jQuery中的.bind()、.live()和.delegate()之间区别分析,学习jquery
- 笔试题73. LeetCode OJ (60)
- netlink的使用
- 数据库学习(一)检索、排序、过滤、通配符
- springmvc命令对象绑定
- springmvc命令对象绑定
- 进程间通信IPC之--共享内存
- Powerdesigner SqlServer转Oracle(转)
- eclipse里添加git插件,遇到无法commit错误。
- DOM(document获取节点byId.byName.byTagName)
- Mysql总结,超实用和详细(高级篇)
- 源码编译安装 libiconv-1.14 报:./stdio.h:1010:1: error: ‘gets’ undeclared here (not in a function) [
- HDU 1695 GCD(gcd(x,y)=k无序对数/容斥原理)
- Hive on Spark配置总结
- ubuntu16.04怎么关掉图形界面启动(需要用root权限)
- Visio使用技巧
- Hibernate 继承关系 对象关系映射--subclass ,测试 crud