用VB牛顿切线编写程序，用牛顿切线法求方程f(x)=x+lnx-1.7=0的近似实根r迭代初值自选，精确带0.0001.
答案:1 悬赏:80 手机版
解决时间 2021-04-07 03:08
- 提问者网友：火车头
- 2021-04-06 22:16
用VB牛顿切线编写程序，用牛顿切线法求方程f(x)=x+lnx-1.7=0的近似实根r迭代初值自选，精确带0.0001.
最佳答案
- 五星知识达人网友：神的生死簿
- 2021-04-06 22:49
用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已经过了，不用帮忙了，谢谢
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯