数值计算方法大作业.docx

《数值计算方法大作业.docx》由会员分享，可在线阅读，更多相关《数值计算方法大作业.docx（6页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、数值计算方法大作业目录第一章非线性方程求根(3)1.1迭代法(3)1.2牛顿法(4)1.3弦截法(5)1.4二分法(6)第二章插值(7)2.1线性插值(7)2.2二次插值(8)2.3拉格朗日插值(9)2.4分段线性插值(10)2.5分段二次插值(11)第三章数值积分(13)3.1复化矩形积分法(13)3.2复化梯形积分法(14)3.3辛普森积分法(15)3.4变步长梯形积分法(16)第四章线性方程组数值法(17)4.1约当消去法(17)4.2高斯消去法(18)4.3三角分解法(20)4.4雅可比迭代法(21)4.5高斯赛德尔迭代法(23)第五章常积分方程数值法(25)5.1显示欧拉公式法(25

2、)5.2欧拉公式预测校正法(26)5.3改良欧拉公式法(27)5.4四阶龙格库塔法(28)数值计算方法第一章非线性方程求根1.1迭代法程序代码：PrivateSubCommand1_Click()x0=Val(InputBox(请输入初始值x0)ep=Val(InputBox(请输入误差限ep)f=0Whilef=0X1=(Exp(2*x0)-x0)/5IfAbs(X1-x0)1.2牛顿法程序代码：PrivateSubCommand1_Click()b=Val(InputBox(请输入被开方数x0)ep=Val(InputBox(请输入误差限ep)f=0Whilef=0X1=x0-(x02-b

3、)/(2*b)IfAbs(X1-x0)1.3弦截法程序代码：PrivateSubCommand1_Click()x0=Val(InputBox(请输入第一个初始值x0)X1=Val(InputBox(请输入第二个初始值x1)ep=Val(InputBox(请输入误差限ep)f=0Whilef=0X2=X1-(X18-13)*(X1-x0)/(X18-13)-(x08-13)IfAbs(X2-X1)1.4二分法程序代码：PrivateSubCommand1_Click()a=Val(InputBox(请输入区间端点a)b=Val(InputBox(请输入区间端点b)ep=Val(InputBox(请输入误差限ep)f=0Whilef=0x=(a+b)/2fx=Exp(-x/7)*(9-2*x)-8fa=Exp(-a/7)*(9-2*a)-8Iffx=0Thenf=1Print方程的根是,xElseIffa*fx0Thena=xElseb=xEndIfIfAbs(b-a)