network.bas

the attached file contains artifitial neural network code

Attribute VB_Name = "Network"
Global Const layers As Integer = 3
Global Const fileVersion As String = "1.0"

' NODES
Global iNodes() As Double
Global iNodesCaption() As String
Global hNodes() As Double
Global hNodesCaption() As String
Global oNodes() As Double
Global oNodesCaption() As String

' WEIGHTS
' from INPUT to HIDDEN
Global iWeights() As Double
' from HIDDEN to OUTPUT
Global oWeights() As Double

Global PresetList As New Collection
Global PresetTitleList As New Collection

Global AppPath As String
Global PresetPath As String