funcv.bas

NEWT rutine from Numerical Recipes in C translated to VB6

Attribute VB_Name = "modFuncv"
Option Explicit

Public Sub funcv(ByVal n As Integer, ByRef x() As Double, ByRef f() As Double)
    f(1) = x(1) * x(1) + x(2) * x(2) - 2#
    f(2) = Exp(x(1) - 1#) + x(2) * x(2) * x(2) - 2#
End Sub

Public Function func(ByRef x() As Double) As Double
    func = fmin(x)
End Function

Public Sub nrfuncv(ByVal n As Integer, ByRef x() As Double, ByRef f() As Double)
    funcv n, x, f
End Sub

Public Sub vecfunc(ByVal n As Integer, ByRef x() As Double, ByRef f() As Double)
    funcv n, x, f
End Sub