fmin.bas

来自「NEWT rutine from Numerical Recipes in C 」· BAS 代码 · 共 26 行

Attribute VB_Name = "Module3"
Option Explicit

Public nn As Integer
Public fvec() As Double

Public Function fmin(ByRef x() As Double) As Double

Dim i As Integer
Dim sum As Double

nrfuncv nn, x, fvec
sum = 0#
For i = 1 To n
    sum = sum + cuadrado(fvec(i))
Next i
fmin = 0.5 * sum


End Function

Public Function cuadrado(ByVal a As Double) As Double

cuadrado = a * a
End Function