文档章节

Common Lisp牛顿法求平方根

努力喵
 努力喵
发布于 2016/02/03 03:34
字数 151
阅读 128
收藏 1

1)牛顿法求平方根:

公式:(y + x/y) / 2,首先猜测为1,然后逐渐逼近。

(defun sqrt-iter (guess x)
  (if (good-enough? guess x)
      guess
      (sqrt-iter (improve guess x)
         x)))

(defun improve (guess x)
  (average guess (/ x guess)))

(defun average (x y)
  (/ (+ x y) 2))

(defun good-enough? (guess x)
  (< (abs (- (square guess) x)) 0.001))

(defun square (x)
  (* x x))

(defun sqrt (x)
  (sqrt-iter 1.0 x))


2)牛顿法求立方根

公式:(x/(y^2) + 2y)/3

(defun cube-iter (guess x)
  (if (good-enough? guess x)
      guess
      (cube-iter (improve guess x)
         x)))

(defun improve (guess x)
  (average (* 2 guess) (/ x (* guess guess))))

(defun average (x y)
  (/ (+ x y) 3))

(defun good-enough? (guess x)
  (< (abs (- (cube guess) x)) 0.001))

(defun cube (x)
  (* x x x))

(defun cube-root (x)
  (cube-iter 1.0 x))


© 著作权归作者所有

共有 人打赏支持
上一篇: 递归
下一篇: Common Lisp 宏
努力喵
粉丝 5
博文 105
码字总数 34117
作品 0
广州
私信 提问
牛顿迭代法(Newton's Method)

牛顿迭代法(Newton's Method) 简介 牛顿迭代法(简称牛顿法)由英国著名的数学家牛顿爵士最早提出。但是,这一方法在牛顿生前并未公开发表。 牛顿法的作用是使用迭代的方法来求解函数方程的根...

angel_kitty
2017/03/11
0
0
Spark RDD 练习题(python)

牛顿法求平方根 我们知道牛顿法求 (达到eps准确度)的算法是这样的:** * 给定一个初始值 在Spark中完成上述算法 给定0-9 10个数的作为输入,计算它们的平方根,初始值都设为1.0 设置误差和最...

czl389
2017/08/16
0
0
FPGA定点小数计算(Verilog版)第七篇——平方根倒数运算(使用John Carmack方法)

更多精彩内容,请微信搜索“FPGAer俱乐部”关注我们。 有一段时间没有写博客了,突然想起前一段时间挖的坑,所以决定今天来填一下……其实,这一篇原本打算写的是采用牛顿迭代法的平方根运算...

fpgaerclub
04/19
0
0
SICP exercise 1.7 1.8

exercise 1.7:这道题有个前提,很大和很小的数都是不溢出,如果溢出就没意义了。原始的good-enough?是平方后与待求平方根的值相减再比较结果是否小于0.001,这很明显有问题,如果待求的数的...

代码强国
2014/07/16
0
0
[LeetCode]牛顿迭代法求平方根

题目 Implement int sqrt(int x). Compute and return the square root of x. 思路 用Math.sqrt就没什么意义了 二分法估计也行,但是估计没有牛顿下山法快 牛顿下山法 公式推导: 在x0处的值...

Finley.Hamilton
2014/11/03
0
0

没有更多内容

加载失败,请刷新页面

加载更多

Windows 10 设置 Java 环境变量

首先你需要在我的电脑中打开,找到环境变量属性。 找到环境变量属性 找到环境变量属性后单击将会看到下面的设置界面。 在这个界面中设置高级系统设置。 环境变量 在弹出的界面中选择设置环境...

honeymose
35分钟前
1
0
用any-loader封装jQuery的XHR —— 随便写着玩系列

哎,都说没人用JQuery啦,叫你别写这个。 其实我也是好高骛远使用过npm上某个和某个很出名的XHR库,嗯,认识我的人都知道我喜欢喷JQ,以前天天喷,见面第一句,你还用JQ,赶紧丢了吧。但我也...

曾建凯
今天
5
0
聊聊storm的AggregateProcessor的execute及finishBatch方法

序 本文主要研究一下storm的AggregateProcessor的execute及finishBatch方法 实例 TridentTopology topology = new TridentTopology(); topology.newStream("spout1", spout......

go4it
今天
4
0
大数据教程(7.5)hadoop中内置rpc框架的使用教程

博主上一篇博客分享了hadoop客户端java API的使用,本章节带领小伙伴们一起来体验下hadoop的内置rpc框架。首先,由于hadoop的内置rpc框架的设计目的是为了内部的组件提供rpc访问的功能,并不...

em_aaron
今天
5
0
CentOS7+git+github创建Python开发环境

1.准备CentOS7 (1)下载VMware Workstation https://pan.baidu.com/s/1miFU8mk (2)下载CentOS7镜像 https://mirrors.aliyun.com/centos/ (3)安装CentOS7系统 http://blog.51cto.com/fengyuns......

枫叶云
昨天
4
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部