SICP 习题1.44 smooth
2016-06-05 00:10
190 查看
smooth函数
(define (smooth f) (lambda (x) (/ (+ (f (- x dx)) (f x) (f (+ x dx))) 3))) (define dx 0.001) (define (compose f g) (lambda (x) (f (g x)))) (define (repeated f times) (if (= times 1) f (compose f (repeated f (- times 1))))) (define (n-smooth f n) (lambda (x) (((repeated smooth n) f) x))) (define square (lambda (x) (* x x))) (newline) (display ((n-smooth square 10) 5))
相关文章推荐
- openstack的win10镜像制作心得及教程(详细图文,面向小白)和对其他windows操作系统镜像制作的阐发
- 在EditText输入文本并实时改变文本的数量
- LAMP(apache/httpd+mysql+php)环境/架构 一键安装脚本
- windows+xshell+xming访问非桌面版Linux服务器
- Oracle-trigger触发器解读
- 解决CUDA程序的黑屏恢复问题
- Git的使用01
- 构造函数、析构函数、拷贝构造函数小结
- Jquery 中 ajaxSubmit使用讲解
- 链表--基本算法
- STM32F0xx_SPI读写(Flash)配置详细过程
- 顺序表(Seqlist)&链表(List)的基础操作
- linux系统基础
- ScrollView
- 第十五周项目—阅读程序(2)
- c++作业7
- Android 自定义 view(三)—— onDraw 方法理解
- Android热修复:Andfix和Hotfix,两种方案的比较与实现
- java数据类型转换
- ACM省赛总结