牛顿迭代法实验报告.doc

《牛顿迭代法实验报告.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、材料科学与工程实验教学中心实验报告课程名称实验名称牛顿迭代法方程求根专业班级学号姓名实验日期材料科学与工程实验教学中心实验报告一．实验目的通过对牛顿迭代法作编程练习与上机运算，进一步体会牛顿迭代法的不同特点二．实验原理（方法）给定初始值x0，ε为根的容许误差，η为｜f(x)｜的容许误差，N为迭代次数的容许值。①如果f′(x0)=0或迭代次数大于N，则算法失败，结束；否则执行②②计算x1=x0-f(x0)/f′(x0)。③若｜x1-x0｜<ε或｜f(x1)｜<η，则输出x1，程序结束；否则执行④④令x0=x1，转向①三．实

2、验仪器设备及操作步骤电脑一台操作步骤：打开电脑，打开VB程序，编辑程序四．实验数据及处理（N-S图和程序）开始f(x)=x³+x²-3x-3输入初始值X。，ε是f′(X。)=0或迭代次数大于N否X₁=X。-f(X。)/f′(X。)否X。=X₁∣X₁-X。∣<ε或∣f(x₁)∣<η是输出X₁结束PrivateSubCommand1_Click()Dimx0,x!,eps!,kx0=Val(InputBox("x=0","ÊäÈë³õÖµ",0.5))eps=Val(InputBox("eps=","ÊäÈëepsµÄÖµ"

3、,0.000005))x=x0-f(x0)/p(x0)k=1PrintDoWhileAbs(x-x0)>=epsPrint"k="&k,"x="&x,"f(x)"&f(x)x0=xk=k+1x=x0-f(x0)/p(x0)LoopEndSubFunctionf(ByValx!)AsSinglef=x^3+x^2-3*x-3EndFunctionFunctionp(ByValx!)AsSinglep=3*x^2+2*x-3EndFunction五．实验结果分析及结论（算例及结果）六．思考题成绩指导教师日期