SICP 1.3.3 二分法作为方程的根
来源:互联网 发布:哇嘎连接不到网络 编辑:程序博客网 时间:2024/05/24 05:48
这次所犯的错误是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))
0 0
- SICP 1.3.3 二分法作为方程的根
- 二分法求方程的根
- 二分法求方程的根
- 二分法求方程的根
- 二分法求方程的根
- 二分法求方程的根(Matlab)
- hdu 2199 二分法求方程的根
- 初步学习 二分法求方程的根
- 用二分法求方程的根
- 折半二分法求方程的根,方程必须连续
- 二分法求方程根
- 二分法求方程的解
- 二分法求解方程的解
- 二分法求方程近似根
- C-例8-6 二分法求方程的根
- uva10341 Solve It(二分法求单调方程的根)
- 牛顿迭代法和二分法求方程的根
- 二分法求方程的近似解
- netlink的使用
- 《剑指offer》:[14]位运算以及求二进制中1的个数
- jQuery中的.bind()、.live()和.delegate()之间区别分析,学习jquery
- 数据库事务
- SDAutolayout自动计算高度(解决bug)
- SICP 1.3.3 二分法作为方程的根
- js命民空间
- Hibernate 继承关系 对象关系映射--joined-subclass ,测试 crud
- ubuntu下搭建XX-net
- MaterialDesign_简介
- 卡尔曼(Kalman)滤波(三)-- 新息
- Hql语句中占位符对应的传参的顺序,debug 浅析
- MyEclipse10安装extjs插件--Skpet
- 年终奖-动态规划法