Dim val() As Double = {1,2,3,4,5,6}
            Dim m(5, 0) As Numeric.TNumber
            For i = 0 To 5
                m(i, 0) = New Numeric.TNumber(val(i))
            Next
            Dim mout As New Numeric.TMatrix(m)
            result = Entry.Create(mout.ToTerms)

Public Class Plugin
    Implements IPluginMathNumericEvaluation

    Private _terms As TermInfo()
    
    Private _description As Dictionary(Of String, String) = New Dictionary(Of String, String) From {
        {"ENG", "test function."},
        {"RUS", "функция тестирования."}
    }

    Public Function GetTermsHandled(sessionProfile As SessionProfile) As TermInfo() Implements IPluginHandleEvaluation.GetTermsHandled        
        Return _terms
    End Function

    Public Sub Initialize() Implements IPlugin.Initialize
    
        _terms = {New TermInfo("test", TermType.[Function], _description("ENG", FunctionSections.Unknown, True) }
            
    End Sub

    Public Function NumericEvaluation(value As Term, args As TNumber(), ByRef result As TNumber) As Boolean Implements IPluginMathNumericEvaluation.NumericEvaluation
        
        result = args(0) * ( new TDouble("'sec" )
                
        Return True
        
    End Function

    Public Sub Dispose() Implements IDisposable.Dispose
    End Sub
End Class