SICP 锻炼1.40 是一个休闲的工作非常easy,但它看起来很复杂,单的一道题。

题目原题例如以下:

请定义一个过程cubic, 它和newtons-method过程一起使用在以下形式的表达式里:

(newtons-method (cubic a b c) 1)

能逼进三次方程

watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQva2V5Ym9hcmRPVEE=/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/Center" width="184" height="72" alt="" />

的零点。

题干是非常easy,就要求我们做个cubic过程,只是里面涉及newtons-method和三次方程的零点,假设仅仅看题目的话真不知道从哪里下手。

要完毕这道题,先得回去把书中得newtons-method过一遍,书中的newtons-method定义例如以下:

(define (newtons-method g guess)
(fixed-point (newton-transform g) guess))

事实上就是求newton-transform的不动点。

那么这个newton-transform,就是牛顿变换又是什么呢?

书中的newton-transform定义例如以下:

(define (newton-transform g)
(lambda (x)
(- x (/ (g x) ((deriv g) x)))))

它的作用就是得出f(x),使f(x)例如以下:

f(x)= x - g(x) / Dg(x)

如书中1.3.4节介绍牛顿法时描写叙述的:

假设x-> g(x)是一个可微函数,那么方程g(x)=0 的一个解就是函数x->f(x)的一个不动点。当中f(x)= x - g(x) / Dg(x)

好,回到我们的题目,我们有一个函数

g(x)= 

我们要逼进函数g(x)的零点,就是求g(x)=0的一个解。

按以上的描写叙述,就是我们要求(newtons-method <g(x)> 1)。注意这里不是一个合法的Scheme语句。

这里的g(x)就是我们要做的cubic过程的返回值。

问题到了这里就变得非常easy了,只是是用cubic过程去生成一个表示三次方程的lambda过程而已,cubic过程定义例如以下:

(define (cubic a b c)
(lambda (x)
(+ (* x x x) (* a x x) (* b x) c)))

是不是结果有点出乎意料的简单呢?

版权声明:本文博客原创文章,博客,未经同意,不得转载。

最新文章

  1. Jquery报错:Uncaught TypeError: ((m.event.special[e.origType] || (intermediate value)).handle || e.handler).apply is not a function
  2. TopCoder SRM 633 Div.2 500 Jumping
  3. Git搭建团队开发环境操作演练
  4. Hive QL 介绍
  5. 【Ruby on Rails学习二】在线学习资料的整理
  6. UIPageViewController跳跃切换的问题
  7. 【Alpha】第二次Daily Scrum Meeting
  8. iOS启动图-从网络获取的gif图,在本地一直是没有动画,还模糊的
  9. Python [习题] 字典扁平化
  10. jade模版js中接收express的res.render
  11. JDK8 的FullGC 之 metaspace
  12. C#正则表达式匹配
  13. JS堆栈与拷贝
  14. jquery中方法扩展 ($.fn &amp; $.extend) 学习笔记
  15. Python3练习题系列(03)
  16. 20181220 Oracle程序包基本开发逻辑
  17. iOS 开发笔记-获取某个APP素材
  18. 【转】【CUBE】Oracle分组函数之CUBE魅力
  19. adb错误 - INSTALL_FAILED_NO_MATCHING_ABIS
  20. shell中信号处理

热门文章

  1. javascript 调用C++函数
  2. matlab 正则表达式
  3. js进阶 12-4 jquery键盘事件如何使用
  4. 【35.02%】【codeforces 734A】Vladik and flights
  5. SAP ABAP编程 字符串加密-MD5_CALCULATE_HASH_FOR_CHAR
  6. PatentTips - Method and system for browsing things of internet of things on ip using web platform
  7. vimrum
  8. 【u016】无序字母对
  9. Cocos2d-x3.0模版容器之中的一个:cocos2d::Vector&amp;lt;T&amp;gt;
  10. iis配置反向代理oss