default.bas

自适应共振神经网络可以实现自动学习与分类具有自适应的功能

'---------------------------------------------------------------------------
'                         The ART Gallery
'---------------------------------------------------------------------------
' Default.bas
'    Version:     1.0
'    Written By:  Lars H. Liden          [e-mail]
'    Last Update: 8/02/95
'
' The following is an example of how the DLL functions and
' data structures for The ART Gallery should be declared
' for use in the Visual Basic Environment
'
' Send all bug reports to [e-mail]
'---------------------------------------------------------------------------

'---------------------------------------------------------------------------
'                            Contants
'---------------------------------------------------------------------------
Global Const ART = 0
Global Const ARTMAP = 1
Global Const ARTA = 1
Global Const ARTB = 2
Global Const NONE = 0
Global Const ART1 = 1
Global Const FUZZYART = 2
Global Const TRUU = 5571     ' Note: Since True is a reserved word in VB
Global Const BINAREE = 1     ' Note: Since Binary is a reserved word in VB
Global Const ANALOG = 2
Global Const COMPLIMENT = 1



'---------------------------------------------------------------------------
'                         Pattern Set Structure
'---------------------------------------------------------------------------
Type patTYPE
    input       As Long
    output      As Long
End Type

Type setTYPE
    initB            As Integer
    checkB           As Integer
    max_num_patterns As Integer
    num_patterns     As Integer
    num_inputs       As Integer
    type_inputs      As Integer
    style_inputs     As Integer
    num_outputs      As Integer
    type_outputs     As Integer
    style_outputs    As Integer
    pattern          As patTYPE
End Type

'---------------------------------------------------------------------------
'                           Network Structure
'---------------------------------------------------------------------------
Type artTYPE
    type        As Integer
    style       As Integer
    num_inputs  As Integer
    nodes_used  As Integer
    max_nodes   As Integer
    beta        As Single
    vigil       As Single
    num_reset   As Integer
    win_cat     As Integer
    cat         As Long
    elig        As Long
    commit      As Long
    weight      As Long
    sum_weights As Long
    sum_IW      As Long
End Type

Type mapTYPE
    vigil        As Single
    base_vigil   As Single
    num_mismatch As Integer
    ARTA         As artTYPE
    ARTB         As artTYPE
    maxA_nodes   As Integer
    maxB_nodes   As Integer
    map          As Long
    map_weight   As Long
End Type

Type netType
    initB        As Integer
    checkB       As Integer
    doneB        As Integer
    type         As Integer
    num_inputs   As Integer
    num_outputs  As Integer
    ART          As artTYPE
    map          As mapTYPE
    num_patterns As Integer
    num_epochs   As Integer
End Type

'---------------------------------------------------------------------------
'                           Global Variables
'---------------------------------------------------------------------------
Global netinit As Integer
Global setinit As Integer
Global netnew  As Integer
Global net As netType
Global zet As setTYPE

'---------------------------------------------------------------------------
'                        External Funtion Declaration
'---------------------------------------------------------------------------
Declare Function FreeNet Lib "art_gal.dll" (net As netType) As Integer
Declare Function FreeSet Lib "art_gal.dll" (zet As setTYPE) As Integer
Declare Function InitNet Lib "art_gal.dll" (net As netType, ByVal NetworkType As Integer, ByVal ComponentA As Integer, ByVal StyleA As Integer, ByVal num_inputs As Integer, ByVal componentb As Integer, ByVal styleb As Integer, ByVal num_outputs As Integer) As Integer
Declare Function LoadNet Lib "art_gal.dll" (net As netType, ByVal file_name As String) As Integer
Declare Function LoadSet Lib "art_gal.dll" (zet As setTYPE, ByVal file_name As String) As Integer
Declare Function MakeSet Lib "art_gal.dll" (zet As setTYPE, ByVal infile_name As String, ByVal num_inputs As Integer, ByVal type_inputs As Integer, ByVal outfile_name As String, ByVal num_outputs As Integer, ByVal type_outputs As Integer) As Integer
Declare Function GetArtBeta Lib "art_gal.dll" (net As netType, ByVal component As Integer, beta As Single) As Integer
Declare Function GetArtResets Lib "art_gal.dll" (net As netType, ByVal component As Integer) As Integer
Declare Function GetArtType Lib "art_gal.dll" (net As netType, ByVal component As Integer) As Integer
Declare Function GetArtSize Lib "art_gal.dll" (net As netType, ByVal component As Integer) As Integer
Declare Function GetArtStyle Lib "art_gal.dll" (net As netType, ByVal component As Integer) As Integer
Declare Function GetArtVigil Lib "art_gal.dll" (net As netType, ByVal component As Integer, vigil As Single) As Integer
Declare Function GetArtWinner Lib "art_gal.dll" (net As netType, ByVal component As Integer) As Integer
Declare Function GetMapMismatch Lib "art_gal.dll" (net As netType) As Integer
Declare Function GetMap Lib "art_gal.dll" (net As netType, list As Single) As Integer
Declare Function GetMapSize Lib "art_gal.dll" (net As netType) As Integer
Declare Function GetMapVigil Lib "art_gal.dll" (net As netType, vigil As Single) As Integer
Declare Function GetNetDone Lib "art_gal.dll" (net As netType) As Integer
Declare Function GetNetInSize Lib "art_gal.dll" (net As netType) As Integer
Declare Function GetNetOutSize Lib "art_gal.dll" (net As netType) As Integer
Declare Function GetNetType Lib "art_gal.dll" (net As netType) As Integer
Declare Function GetNumPatterns Lib "art_gal.dll" (zet As setTYPE) As Integer
Declare Function GetSetInSize Lib "art_gal.dll" (zet As setTYPE) As Integer
Declare Function GetSetInput Lib "art_gal.dll" (zet As setTYPE, ByVal num_pat As Integer, list As Single) As Integer
Declare Function GetSetOutput Lib "art_gal.dll" (zet As setTYPE, ByVal num_pat As Integer, list As Single) As Integer
Declare Function GetSetOutSize Lib "art_gal.dll" (zet As setTYPE) As Integer
Declare Function GetSetInType Lib "art_gal.dll" (zet As setTYPE) As Integer
Declare Function GetSetOutType Lib "art_gal.dll" (zet As setTYPE) As Integer
Declare Function SetArtBeta Lib "art_gal.dll" (net As netType, ByVal component As Integer, ByVal beta As Single) As Integer
Declare Function SetArtVigil Lib "art_gal.dll" (net As netType, ByVal component As Integer, ByVal vigil As Single) As Integer
Declare Function SetMapVigil Lib "art_gal.dll" (net As netType, ByVal vigil As Single) As Integer
Declare Function SaveNet Lib "art_gal.dll" (net As netType, ByVal file_name As String) As Integer
Declare Function SaveSet Lib "art_gal.dll" (zet As setTYPE, ByVal file_name As String) As Integer
Declare Function ShowPat Lib "art_gal.dll" (net As netType, zet As setTYPE, ByVal pat_num As Integer) As Integer
Declare Function TestNet Lib "art_gal.dll" (net As netType, zet As setTYPE, total_correct As Integer, total_errors As Integer, total_noansA As Integer, total_noansB As Integer) As Integer
Declare Function TrainSet Lib "art_gal.dll" (net As netType, zet As setTYPE, ByVal max_epoch As Integer) As Integer