- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
第二章 非线性方程的解法
——牛顿迭代法
****(学号) ****(姓名)
算法与程序题目见教材P56 上机题目20。
一、算法原理
根据题目的要求,是关于用牛顿迭代法法求解方程的通用算法。该法是一种通过斜率迭代的算法,其速度比二分法和简单迭代法都要快。其简单原理如下:
设则存在一个数使得由如下定义的迭代序列收敛到:
对于函数,则其递推规则是
定义序列,则序列收敛到,也可表示为。现简要证明:
对于,写出牛顿迭代公式
该公式可化简为
二、流程图
题目要求于用牛顿迭代法法求解方程的通用算法。其计算过程主要用到迭代,图流程图1所示。
输入各参数 k=1 迭代 计算各误差 误差在允许范围之内
T F break k=k+1 kmaxN 输出 图1 题1关于牛顿迭代法的算法流程图
三、计算代码
核心代码
p1=……;
if (errdelta)|(relerrdelta)|(abs(y)epsilon),break;
if kmaxN ,go to 1
完整代码
程序1:Newton.m
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Description : 牛顿迭代法
% Author : panyunqiang
% Versoin : 1.0
% Date : 2012-9-21
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
function [p0, err, k, y]=Newton(p0, delta, epsilon, maxN)
% input - p0 is the initial approximation to a zero of f
% - delta is the tolerance for p0
% - epsilon is the tolerance for the function values y
% - maxN is the maxium number of iterations
%output - p0 is the Newton approximation to a zero
% - err is the error estimate for p0
% - k is the number of iterations
% - y is the function value f(p0)
for k=1:maxN
%%递归
p1=2*p0^3/(3*p0^2-3);
%%计算误差
err=abs(p1-p0);
relerr=2*err/(abs(p1)+delta);
p0=p1;
%%当前求出的根的函数值
y=p0^3/3-p0;
%%判断
if (errdelta)|(relerrdelta)|(abs(y)epsilon)
break;
end
end
程序2:Newton_Step.m
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Description : 寻找题目中关于牛顿迭代法收敛的尽可能大的delta
% 搜索步进为step=10^(-6),即精确到小数点后六位
% Author : panyunqiang
% Versoin : 1.0
% Date : 2012-9-21
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
format long
step=10^(-6);
delta=10^-8;epsilon=10^-8;maxN=1000;
ps=0.6;
[p0, err, k, y]=Newton(ps, delta, epsilon, maxN);
while((abs(p0)=epsilon)(p0~=NaN))
ps=ps+step;
[p0, err, k, y]=Newton(ps, delta, epsilon, maxN);
end
ps-step
四、计算结果及分析
运行程序Newton_Step.m,获得Newto
您可能关注的文档
最近下载
- GXG 451-2016 信息通信建设工程费用定额 信息通信建设工程概预算编制规程.pdf VIP
- 气管插管配合操作流程.docx VIP
- 血管内超声(IVUS)光学相干断层扫描成像(OCT)培训学习讲解PPT课件.pptx VIP
- Unity 2D游戏开发实战-坦克大战.pptx VIP
- 2025中国中医科学院中医药健康产业研究所 (江西中医药健康产业研究院) 招聘事业编制人员18人考试备考试题及答案解析.docx VIP
- 2025年森林防火道路建设项目可行性研究报告.docx
- 计算机组成原理(第六版,立体化教材)(白中英,戴志涛)课后习题答案.docx VIP
- 血细胞形态学课件.pptx VIP
- 古诗词对句.doc VIP
- 《时频分析技术》课件.ppt VIP
文档评论(0)