编写程序,用牛顿切线法求方程f(x)= x^2-x-8=0(其中^表示 幂运算)在区间[3,4]上的近似实根r,迭代初
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:数学作业 时间:2024/07/05 03:09:56
编写程序,用牛顿切线法求方程f(x)= x^2-x-8=0(其中^表示 幂运算)在区间[3,4]上的近似实根r,迭代初
![编写程序,用牛顿切线法求方程f(x)= x^2-x-8=0(其中^表示 幂运算)在区间[3,4]上的近似实根r,迭代初](/uploads/image/z/1711551-39-1.jpg?t=%E7%BC%96%E5%86%99%E7%A8%8B%E5%BA%8F%2C%E7%94%A8%E7%89%9B%E9%A1%BF%E5%88%87%E7%BA%BF%E6%B3%95%E6%B1%82%E6%96%B9%E7%A8%8Bf%28x%29%EF%BC%9D+x%5E2-x-8%EF%BC%9D0%EF%BC%88%E5%85%B6%E4%B8%AD%5E%E8%A1%A8%E7%A4%BA+%E5%B9%82%E8%BF%90%E7%AE%97%EF%BC%89%E5%9C%A8%E5%8C%BA%E9%97%B4%5B3%2C4%5D%E4%B8%8A%E7%9A%84%E8%BF%91%E4%BC%BC%E5%AE%9E%E6%A0%B9r%2C%E8%BF%AD%E4%BB%A3%E5%88%9D)
'程序可以继续完善的:
'1、如果指定区间无解,怎么办
'2、迭代过程跳出了指定区间,怎么办
'3、如何使用界面直接输入方程式
Private Sub Command1_Click()
Dim 上限 As Single, 下限 As Single, 误差 As Single, 自变量 As Single, k As Single
Const 允许误差 = 0.0001
上限 = Val(InputBox("请输入区上限", , 4))
Do
下限 = Val(InputBox("请输入区下限", , 3))
If 下限 < 上限 Then Exit Do
MsgBox "上、下限不匹配!", vbExclamation
Loop
误差 = 上限 - 下限
自变量 = 误差 / 2 + 下限
Do Until 误差 < 允许误差
k = 导数(自变量)
If k = 0 Then
自变量 = 自变量 + 允许误差
Else
x = 自变量 - 方程(自变量) / k
误差 = Abs(自变量 - x)
自变量 = x
End If
Loop
Print "从区间("; 下限; ","; 上限; ")出发,求得方程近似解为:"; 自变量
Print "估计误差小于:"; 误差
End Sub
Private Function 方程(x As Single) As Single
方程 = (x - 1) * x - 8
End Function
Private Function 导数(x As Single) As Single
导数 = 2 * x - 1
End Function
'1、如果指定区间无解,怎么办
'2、迭代过程跳出了指定区间,怎么办
'3、如何使用界面直接输入方程式
Private Sub Command1_Click()
Dim 上限 As Single, 下限 As Single, 误差 As Single, 自变量 As Single, k As Single
Const 允许误差 = 0.0001
上限 = Val(InputBox("请输入区上限", , 4))
Do
下限 = Val(InputBox("请输入区下限", , 3))
If 下限 < 上限 Then Exit Do
MsgBox "上、下限不匹配!", vbExclamation
Loop
误差 = 上限 - 下限
自变量 = 误差 / 2 + 下限
Do Until 误差 < 允许误差
k = 导数(自变量)
If k = 0 Then
自变量 = 自变量 + 允许误差
Else
x = 自变量 - 方程(自变量) / k
误差 = Abs(自变量 - x)
自变量 = x
End If
Loop
Print "从区间("; 下限; ","; 上限; ")出发,求得方程近似解为:"; 自变量
Print "估计误差小于:"; 误差
End Sub
Private Function 方程(x As Single) As Single
方程 = (x - 1) * x - 8
End Function
Private Function 导数(x As Single) As Single
导数 = 2 * x - 1
End Function
编写程序,用牛顿切线法求方程f(x)= x^2-x-8=0(其中^表示 幂运算)在区间[3,4]上的近似实根r,迭代初
VB编写程序,用牛顿切线法求方程f(x)= x^2-x-8=0(其中^表示 幂运算)在区间[3,4]上的近似实根r,迭代
4、编写程序,用牛顿切线法求方程f(x)= 5x^3+2x^2-12x-16=0(其 中^表示幂运算)在区间[1,2]上
编写程序,用牛顿切线法求方程f(x)=x^3+2x+10=0的近似实根r,迭代初值为-1,精确到0.0001.
编写程序,用牛顿切线法求方程f(x)= x+lnx-1.7=0的近似实根r,迭代初值自选,精确到0.0001.〔提示:计
用VB牛顿切线编写程序,用牛顿切线法求方程f(x)=x+lnx-1.7=0的近似实根r迭代初值自选,精确带0.0001.
用牛顿切线法求方程f(x)=2x+sinx-4.18=0在区间[0,5]上的近似实根r,迭代初值自选,精确到0.0001
编写程序,用牛顿切线法求方程f(x)=x
编写程序,用普通迭代法求方程f(x)=x+lnx-1.56=0的近似实根r(其中ln为自然对数),迭代初值为2,精确到0
编写程序,用普通迭代法求方程f(x)=x+lnx-1.7=0的近似实根r,迭代初值为1.5,精确到0.0001.〔提示:
1 20 编写程序,用普通迭代法求方程f(x)=x+lgx-3.18=0的近似实根r,迭代初值为2.5,要求结果保留4位
用牛顿迭代法求方程f(x)=x^6-x-1=0在区间【1,2】内的实根,要求|f(x(k))|