Attribute VB_Name = "MainModule"
Sub Main()
    Dim b As Double
    Dim m As Integer
    Dim x As Double, y As Double
    
    ' 迭代初值
    x = 0.5
    y = 0.5
    
    ' 隨機數初始值與控制參數
    b = 1#
    m = 10
    
    
    '求解
    Call NLMtclcRoot(x, y, b, m, 0.00001)
    
    MsgBox "x = " & x & " + (" & y & ")j"
    
End Sub

' 待求解的方程的函數
Function Func(x As Double, y As Double) As Double
    Dim u As Double, v As Double
    u = x * x - y * y - 6# * x + 13#
    v = 2# * x * y - 6# * y
    Func = Sqr(u * u + v * v)
End Function