nlaitkenmainmodule.bas

来自「编程中经常用到的一些算法,算法已模块化,来自于<科学工程与数值算法大全&g」· BAS 代码 · 共 24 行

Attribute VB_Name = "MainModule"
Sub Main()
    Dim n As Integer
    Dim x As Double
    
    ' 迭代初值
    x = 0
    
    '求解
    n = NLAitkenRoot(x, 60, 0.000001)
    
    If n > 0 Then
        MsgBox "x = " & x
    Else
        MsgBox "求解失败"
    End If
    
End Sub

' 待求解的方程的函数
Function Func(x As Double) As Double
    Func = 6 - x * x
End Function