数值计算方法大作业教程.docVIP

 PAGE \* MERGEFORMAT 31 目录 第一章 非线性方程求根····················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 5.2欧拉公式预测校正法··························26 5.3改进欧拉公式法······························27 5.4四阶龙格—库塔法····························28 数值计算方法 第一章 非线性方程求根 1.1迭代法 程序代码： Private Sub Command1_Click() x0 = Val(InputBox(请输入初始值x0)) ep = Val(InputBox(请输入误差限ep)) f = 0 While f = 0 X1 = (Exp(2 * x0) - x0) / 5 If Abs(X1 - x0) ep Then Print X1 f = 1 Else x0 = X1 End If Wend End Sub 例：求f(x)=e2x-6x=0在x=0.5附近的根（ep=10-10） 1.2牛顿法 程序代码： Private Sub Command1_Click() b = Val(InputBox(请输入被开方数x0)) ep = Val(InputBox(请输入误差限ep)) f = 0 While f = 0 X1 = x0 - (x0 ^ 2 - b) / (2 * b) If Abs(X1 - x0) ep Then Print X1 f = 1 Else x0 = X1 End If Wend End Sub 例：求的值。（ep=10-10） 1.3弦截法 程序代码： Private Sub Command1_Click() x0 = Val(InputBox(请输入第一个初始值x0)) X1 = Val(InputBox(请输入第二个初始值x1)) ep = Val(InputBox(请输入误差限ep)) f = 0 While f = 0 X2 = X1 - (X1 ^ 8 - 13) * (X1 - x0) / ((X1 ^ 8 - 13) - (x0 ^ 8 - 13)) If Abs(X2 - X1) ep Then Print X2 f = 1 Else x0 = X1 X1 = X2 End If Wend End Sub 例：求f(x)=x8-13