trainf.cls

是关于MATALB 神经网络与VB的混合编程,希望对大家有所帮助

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "TrainF"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True

Public Function GetNum(InNum As Integer)           '得到函数个数

    If InNum = 1 Then
        GetNum = 2
    ElseIf InNum = 2 Then
        GetNum = 2
    ElseIf InNum = 3 Then
        GetNum = 2
    ElseIf InNum = 4 Then
        GetNum = 2
    End If
    
End Function

Public Function dbOne(i As Integer, X As Double)        '一个输入时的函数

        Select Case i
            Case 0
                dbOne = Sin(X)
            Case 1
                dbOne = X ^ 2
        End Select
  
    
End Function
Public Function dbTwo(i As Integer, X1 As Double, X2 As Double)

    Select Case i
        Case 0
            dbTwo = X1 + X2
        Case 1
            dbTwo = X1 ^ 2 + X2 ^ 2
    End Select
    
End Function
Public Function dbThree(i As Integer, X1 As Double, X2 As Double, X3 As Double)

    Select Case i
        Case 0
            dbThree = X1 + X2 + X3
        Case 1
            dbThree = X1 * X2 + X3
    End Select
    
End Function
Public Function dbFour(i As Integer, X1 As Double, X2 As Double, X3 As Double, X4 As Double)

    Select Case i
        Case 0
            dbFour = X1 + X2 + X3 + X4
        Case 1
            dbFour = X1 ^ 2 + X2 * X3 + X4
    End Select
    
End Function

Public Function FunctionX(InNum As Integer, i As Integer) As String

    If InNum = 1 Then
        Select Case i
            Case 0
                FunctionX = "Y=Sin(X)"
            Case 1
                FunctionX = "Y=X^2"
        End Select
    ElseIf InNum = 2 Then
        Select Case i
            Case 0
                FunctionX = "Y=X1 + X2"
            Case 1
                FunctionX = "Y=X1 ^ 2 + X2 ^ 2"
        End Select
    ElseIf InNum = 3 Then
        Select Case i
            Case 0
                FunctionX = "Y=X1 + X2 + X3"
            Case 1
                FunctionX = "Y=X1 * X2 + X3"
        End Select
    ElseIf InNum = 4 Then
        Select Case i
            Case 0
                FunctionX = "Y=X1 + X2 + X3 + X4"
            Case 1
                FunctionX = "Y=X1 ^ 2 + X2 * X3 + X4"
        End Select
    End If
    
End Function