nlbisectrootmainmodule.bas

来自「科学与工程数值计算算法（Visual Basic版）一书的源代码。对科学研究者自」· BAS 代码 · 共 25 行

Attribute VB_Name = "MainModule"
Sub Main()
    Dim m As Integer, n As Integer
    Dim s As String
    
    m = 6
    ReDim x(m) As Double
    
    '求解
    n = NLBisectRoot(m, -2, 5, 0.2, x, 0.000001)
    
    s = ""
    For i = 1 To n
        s = s + "x(" & i & ") = " & x(i) & Chr(13)
    Next i
        
    MsgBox "共求得 " & n & " 个实根，分别为：" & Chr(13) & Chr(13) & s
    
End Sub

' 待求解的方程的函数
Function Func(x As Double) As Double
    Func = x * x * x * x * x * x - 5 * x * x * x * x * x + 3 * x * x * x * x + x * x * x - 7 * x * x + 7 * x - 20
End Function