作业帮 > 综合 > 作业

x^3-x-1=0在vb中用牛顿迭代法求在1.5附近的跟,精确到0.5*10^-3 求代码.

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/03 21:07:51
x^3-x-1=0在vb中用牛顿迭代法求在1.5附近的跟,精确到0.5*10^-3 求代码.
界面放一个label、一个command、一个text
代码如下:
Const 允许误差 = 0.0005 '这里控制允许误差
Private Sub Command1_Click()
Me.Cls
If IsNumeric(Text1) Then
x = Val(Text1)
Do
y = 函数(x)
k = 斜率(x)
误差 = y / k
x = x - 误差
Loop Until Abs(误差) < 允许误差
Print "一个解是:"; x
Else
MsgBox "你输入的位置不是一个数值!"
Text1 = ""
End If
End Sub
Private Sub Form_Load()
Label1 = "方程在源代码里修改,这里输入估计位置."
Command1.Caption = "开始"
Text1 = ""
End Sub
Private Function 函数(x) '这里是方程的变形函数
函数 = (x * x - 1) * x - 1
End Function
Private Function 斜率(x) '这里是方程变形函数的导函数
斜率 = 3 * x * x - 1
End Function
再问: 1639301503@qq.com。。能给我程序代码么?就是你编程序的源码。。。感激不尽昂。。。