' Filename: "cCluster.vb"

Public Class cCluster

Private mCenter() As Double
Private mMember() As Integer 'Index of vectors belonging to this cluster.
Private mNumMembers As Integer

Public Sub New(ByVal vSize As Integer, ByVal nPattern As Integer)
    ReDim mCenter(vSize - 1)
    ReDim mMember(nPattern - 1)
    mNumMembers = 0
End Sub

Public ReadOnly Property getCenter(ByVal index As Integer)
    Get
        Return mCenter(index)
    End Get
End Property

Public WriteOnly Property setCenter(ByVal index As Integer) As Double
    Set(ByVal cValue As Double)
        mCenter(index) = cValue
    End Set
End Property

Public ReadOnly Property getMember(ByVal index As Integer)
    Get
        Return mMember(index)
    End Get
End Property

Public WriteOnly Property setMember(ByVal index As Integer) As Integer
    Set(ByVal cValue As Integer)
        mMember(index) = cValue
    End Set
End Property

Public ReadOnly Property getNumMembers()
    Get
        Return mNumMembers
    End Get
End Property

Public WriteOnly Property setNumMembers() As Integer
    Set(ByVal cValue As Integer)
        mNumMembers = cValue
    End Set
End Property

End Class