用vb写牛顿迭代法程序解方程

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/11/08 15:07:17

用vb写牛顿迭代法程序解方程
用牛顿迭代法解此方程,请高手帮我写个完整程序,本人菜鸟,写出的表达式老是编译错误.
f（x） = (0.366 * q / m / s) * Log(10 * s * sqr(x) / r) - x
式中：q,m,s,r都是常量
计算精度0.001
hanshu = 0.366 * q / m / s * Log(10 * s * Sqr(x) / r) - x
这一句运行时出现提示：无效的调用或参数

Dim q As Single,m As Single,s As Single,r As Single
Private Sub Command1_Click()
Dim x0 As Single
Do
q = Val(InputBox("请输入常数q(≠0) "))
Loop Until q 0
Do
m = Val(InputBox("请输入常数m(≠0) "))
Loop Until m 0
Do
s = Val(InputBox("请输入常数s(≠0) "))
Loop Until s 0
Do
r = Val(InputBox("请输入常数r(≠0) "))
Loop Until r 0
Label1 = Label1 & "q=" & q & " m=" & m & " s=" & s & " r=" & r
Do
x0 = Val(InputBox("请粗略估计解x0(>0) "))
Loop Until x0 > 0
y0 = hanshu(x0)
Do
xielv = daoshu(x0)
deltx = y0 / xielv
x0 = x0 + deltx
y0 = hanshu(x0)
Loop Until Abs(y0) < 0.00005 And Abs(deltx) < 0.00005
Label1 = Label1 & vbCrLf & "x=" & x0 & " y=" & y0 & " Δx=" & deltx
End Sub
Private Sub Command2_Click()
For i = 0 To 255
If i Mod 10 = 0 Then Print
Print Chr$(i); " ";
Next i
Print "ok"
End Sub
Private Sub Form_Load()
Label1 = "(0.366 * q / m / s) * Log(10 * s * sqr(x) / r) - x = 0" & vbCrLf
End Sub
Private Function hanshu(x As Single) As Single
hanshu = 0.366 * q / m / s * Log(10 * s * Sqr(x) / r) - x
End Function
Private Function daoshu(x As Single) As Single
daoshu = 0.366 * q / 2 / x / m / s - 1
End Function
注意参数选择不当,就会出错.

用vb写牛顿迭代法程序解方程 VB 牛顿迭代法解方程用牛顿迭代法求方程,用VB解用牛顿迭代法解三元三次方程的MATLAB程序! 设计用牛顿迭代法解方程C++程序求：牛顿迭代法解方程的程序 matlab牛顿迭代法求方程根程序哪位大哥会matlab 帮忙写个程序,用牛顿迭代法求方程X^3-3*x-1=0在2附近的解 C++程序编程:牛顿迭代法求解方程近似根 vb编程用牛顿迭代法解方程x^5-3x^2+2x+1=0在x=0附近的根. 怎么用VB编写这么一个程序：用牛顿迭代法求方程x^5-3*x^2+2*x+1=0在x0 = 0附近的根（要求用Do语句）牛顿迭代法 java小程序