nlndhcrootmainmodule.bas

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

Attribute VB_Name = "MainModule"
Sub Main()
    Dim n As Integer
    Dim s As String
    
    ' 5次方程
    n = 5
    
    ' 分配存放系数和解的内存
    ReDim ar(n + 1) As Double, ai(n + 1) As Double, xr(n) As Double, xi(n) As Double
    
    ' 系数数组
    ar(1) = 1#
    ar(2) = 3#
    ar(3) = 0#
    ar(4) = 4.9
    ar(5) = 21.33
    ar(6) = 0.1

    ai(1) = 0#
    ai(2) = 2#
    ai(3) = -0.01
    ai(4) = -19#
    ai(5) = 0#
    ai(6) = -100#
    
    '求解
    If NLNdhcRoot(n, ar, ai, xr, xi) Then
        s = ""
        For i = 1 To n
            s = s & "x(" & i & ") = " & xr(i) & " + (" & xi(i) & ")j" & Chr(13)
        Next i
        
        MsgBox "求解成功！" & Chr(13) & Chr(13) & s
    Else
        MsgBox "求解失败"
    End If
    
End Sub