张彬 1210110062

信息与管理科学学院信息与计算科学系

实验报告

课程名称： 数 值 分 析

实验名称： 二分法 迭代法 牛顿法 姓 名： 张彬 班 级： 金数12-2 指导教师： 汪松玉 学 号： 1210110062 实 验 室： 紫竹241 日 期： 14/06/01

1

一、实验目的

掌握非线性方程（组）的各种解法，包括二分法、迭代法、牛顿法等。

二、实验环境

软件环境：windows7 ,vb软件

硬件环境：CPU:Pentium(R)90MHz或更高微处理器 显示器：windows支持的更高分辨率的屏幕 内存：32MB以上即可

三、实验内容

．求实根的二分法；(2)．求实根的迭代法；(3)．求实根的牛顿法。

四、实验操作过程

1.用二分法求方程f(x)=x^3-x-5=0在[1,1.5]上的根（取p=10^-4） Private Sub Form_Click() Dim a, b As Double a = 1 b = 1.5

Do until Abs(b - a) <= 0.0001

If (b* b * b - b - 5) * (a*a * a -a - 5) > 0 Then a = (a + b) / 2 b = b Else

2

(1)

a = a

b = (a + b) / 2 End If

Print a * a * a -a - 5; b * b * b - b - 5 Loop

Print \"方程的近似根是=\"; a End Sub

五（1）、实验结果及结论

结论：模拟结果比较正确

2.求方程x=e^(-x)在x=0.6附近的一个根。计算精度的要求是p=10^-3 Private Sub Form_Click() Dim a, b, h As Double a = 0.6 h = 0.1

3

b = 0.6+ h

Print Abs((Exp(-b) - b)) k = 0

Do While Abs((Exp(-b) - b)) > 10 ^ (-3) Print b b = Exp(-b) Print b Loop

Print \"近似根是=\"; b End Sub

五（2）、实验结果及结论

结论：模拟结果比较正确

3.用牛顿迭代法求f(x)=x^2-6=0的根 Private Sub Form_Click()

4

Dim x0, x1 As Double x1 = 1.0

Do Until Abs(x0 - x1) < 0.0001 x0 = x1

x1 = x0 - (x0 * x0 - 6) / (2 * x0) Print \"xo=\"; x0 Print \"x1=\"; x1 Loop

Print \"方程的近似根=\"; x0 End Sub

五（3）、实验结果及结论

结论：模拟结果比较正确

六、心得体会

1.要熟悉各种迭代法的原理，理清思路，以便能够用VB表示出来；

5

2.正确运用VB这种工具，能够将迭代法该语言表示出来； 3.大致估计实验结果的正确性，从而判断所求近似根的可信度。 4.能够较深的对比这三种迭代法

七、指导教师评议

成绩： （百分制）

指导教师签名：

6