nlmtclrootmainmodule.bas

求解非线性方程的方法

Attribute VB_Name = "MainModule"
Sub Main()
    Dim b As Double
    Dim m As Integer
    Dim x As Double
    
    ' 迭代初值
    x = 0.5
    
    ' 随机数初始值与控制参数
    b = 1#
    m = 10
    
    
    '求解
    Call NLMtclRoot(x, b, m, 0.00001)
    
    MsgBox "x = " & x
    
End Sub

' 待求解的方程的函数
Function Func(x As Double) As Double
    Func = Exp(-x * x * x) - Sin(x) / Cos(x) + 800#
End Function