数值分析上机实习报告.doc

  1. 1、本文档共20页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
数值分析上机实习报告

(数值分析上机实验报告) 院 系: 矿业学院 专 业: 矿业工程 班 级: 2015 姓 名: 王 学 号: 2015022 指导教师: 代 第一题 1.用Newton法求解方程,在(0.1,1.9)的近似根(初始近似值取为区间端点,迭代6次或误差小于0.00001)。 1.1理论依据及方法应用条件 Newton迭代法:由一般迭代函数,取s=2时,有,可得二阶迭代序列,此种迭代法称为Newton迭代法。 定理:设函数在有限区间[a,b]上二阶导数存在,且满足条件 (Ⅰ) (Ⅱ)在区间[a,b]上不变号; (Ⅲ)≠0; (Ⅳ)||/b-a≤||其中c是a,b中使min[|,]达到的一个; 则对任意时近似值x0∈[a,b],由Newton迭代过程有: k=0,1,2… 所产生的迭代序列{x0}平方收敛于方程=0区间[a,b]上的唯一解α。 推论:设函数f(x)满足定理中条件Ⅰ,Ⅱ,Ⅲ,若选初值,使·0,则Newton迭代过程 (k=0,1,2…) 产生的迭代序列{xk}单调收敛于=0的唯一解α。 1.2计算程序 # include iostream.h # include iomanip.h # include string # include math.h using namespace std; double *newton (double a,double b,double eps); //牛顿迭代函数 double newtonz (double x); //牛顿迭代子函数 void main () { double a=0.1,b=1.9,eps=0.00001,*result; //初始数据 cout\n 牛顿法解方程:x^7-28x^4+14=0,在(0.1,1.9)中求近似根,初始值为区间端点,\n误差为0.00001。\nendl; cout学号:2014021966 姓名:徐林\nendl; result = newton (a,b,eps); if (a=result[0]result[0]=b) cout近似根为:result[0]endl; if (a=result[1]result[1]=b) cout近似根为:result[1]endl; //------------------------------------------- cout\n结束,按任意键关闭endl; getchar(); }//主函数结束 //******************************************************************* double newtonz (double x) //牛顿迭代子函数 { double x1=0.0,t; t = (7*pow(x,6)-4*28*pow(x,3)); if (t==0) exit (0); x1 = (x-((pow(x,7)-28*pow(x,4)+14)/t)); return x1; } double *newton (double a,double b,double eps) //牛顿迭代函数 { double x0=0.0,x1=1.0,x2=0.0,re[2]; int k=0; x0 = a; while (x0eps) //代入a迭代计算 { k++; x2 = x1; x1 = newtonz(x1); //调用牛顿迭代子函数 x0 = fabs(x1-x2); }re[0] = x1; x0 = b, k = 0; while (x0eps) //代入b迭代计算 { k++; x2 = x1; x1 = newtonz(x1); //调用牛顿迭代子函数 x0 = fabs(x1-x2); }re[1] = x1; return re; } 1.3计算结果打印 1.4 MATLAB上机程序 function y=Newton(f,df,x0,eps,M) d=0; for k=1:M if feval(df,x0)==0 d=2;break else x1=x0-feval(f,x0

文档评论(0)

yaobanwd + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档