nlmtclcrootmainmodule.bas

来自「科学与工程数值计算算法（Visual Basic版） 附赠的光盘包含了本书中全」· BAS 代码 · 共 30 行

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