用VB牛顿切线编写程序,用牛顿切线法求方程f(x)=x+lnx-1.7=0的近似实根r迭代初值自选,精确带0.0001.
来源:学生作业帮 编辑:神马作文网作业帮 分类:数学作业 时间:2024/09/30 08:29:39
用VB牛顿切线编写程序,用牛顿切线法求方程f(x)=x+lnx-1.7=0的近似实根r迭代初值自选,精确带0.0001.
用VBA编的,应该和VB差不多吧.
如果有用请采纳. o(∩_∩)o
Sub CalcFuncResult()
Dim Fx, dFx, x1, x2
x1 = 0: x2 = 1
While Abs(x1 - x2) > 0.0001
x1 = x2
Fx = x1 + Log(x1) - 1.7
dFx = 1 + 1 / x1
x2 = x1 - Fx / dFx
Wend
MsgBox "结果为 x=" + Str(Round(x1, 10)) + " ~ " + Str(Round(x2, 10))
End Sub
再问: 不对呀!不过我vb已经过了,不用帮忙了,谢谢
如果有用请采纳. o(∩_∩)o
Sub CalcFuncResult()
Dim Fx, dFx, x1, x2
x1 = 0: x2 = 1
While Abs(x1 - x2) > 0.0001
x1 = x2
Fx = x1 + Log(x1) - 1.7
dFx = 1 + 1 / x1
x2 = x1 - Fx / dFx
Wend
MsgBox "结果为 x=" + Str(Round(x1, 10)) + " ~ " + Str(Round(x2, 10))
End Sub
再问: 不对呀!不过我vb已经过了,不用帮忙了,谢谢
用VB牛顿切线编写程序,用牛顿切线法求方程f(x)=x+lnx-1.7=0的近似实根r迭代初值自选,精确带0.0001.
编写程序,用牛顿切线法求方程f(x)= x+lnx-1.7=0的近似实根r,迭代初值自选,精确到0.0001.〔提示:计
编写程序,用牛顿切线法求方程f(x)=x^3+2x+10=0的近似实根r,迭代初值为-1,精确到0.0001.
用牛顿切线法求方程f(x)=2x+sinx-4.18=0在区间[0,5]上的近似实根r,迭代初值自选,精确到0.0001
VB编写程序,用牛顿切线法求方程f(x)= x^2-x-8=0(其中^表示 幂运算)在区间[3,4]上的近似实根r,迭代
用vb编写程序,用普通迭代法求方程f(x)=x+lgx-2.5=0的近似实根r,迭代初值为1.5,精确到0.0001
编写程序,用普通迭代法求方程f(x)=x+lnx-1.7=0的近似实根r,迭代初值为1.5,精确到0.0001.〔提示:
编写程序,用普通迭代法求方程f(x)=x+lnx-1.56=0的近似实根r(其中ln为自然对数),迭代初值为2,精确到0
编写程序,用牛顿切线法求方程f(x)= x^2-x-8=0(其中^表示 幂运算)在区间[3,4]上的近似实根r,迭代初
用普通迭代法求方程f(x)=x+lnx-1.56=0的近似实根r(其中ln为自然对数),迭代初值为2,精确到0.0001
1 20 编写程序,用普通迭代法求方程f(x)=x+lgx-3.18=0的近似实根r,迭代初值为2.5,要求结果保留4位
编写程序,用牛顿切线法求方程f(x)=x