x^3-x-1=0在vb中用牛顿迭代法求在1.5附近的跟,精确到0.5*10^-3 求代码.
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/11/19 19:02:12
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。。能给我程序代码么?就是你编程序的源码。。。感激不尽昂。。。
代码如下:
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。。能给我程序代码么?就是你编程序的源码。。。感激不尽昂。。。
x^3-x-1=0在vb中用牛顿迭代法求在1.5附近的跟,精确到0.5*10^-3 求代码.
C语言用牛顿迭代法求方程(xe^x)-1=0在0.5附近的近似根,要求精确到10^-5
用牛顿迭代法求方程2x3-4x2+3x-6=0在1.5附近的根
vb编程用牛顿迭代法解方程x^5-3x^2+2x+1=0在x=0附近的根.
怎么用VB编写这么一个程序:用牛顿迭代法求方程x^5-3*x^2+2*x+1=0在x0 = 0附近的根(要求用Do语句)
C语言编程,用牛顿抚迭代法求方程2X*X*X-4X*X+3X-6=0在1.5附近的根
用牛顿迭代法求下列方程在1.5附近的根:2x3-4x2+3x-6=0.
用牛顿迭代法求下列方程在1.5附近的根:2(x)∧3-4(x)∧2+3x-6=0 (用c++编程,
用牛顿迭代法求下面方程在1.5附近的根.2x^3-4x^2+3x-6=0
C语言牛顿迭代法求2x^3-4x^2+3x-6=0在1.5附近的根
方程求根牛顿迭代法 求方程 f(x)=x3+x2-3x-3=0在1.5附近的根
C++编程 用牛顿迭代法求方程:3x3+2x2-8x-5=0,在x=1.5附近的根.