backcode.bas

上传个模糊聚类代码

Attribute VB_Name = "backCode"


            

'

'sort the bucket,bubble sort
'            For i = 1 To groupNum - 1
'                For j = 1 To groupNum - i
'                    If (bucketArr(j).mCount < bucketArr(j + 1).mCount) Then 'swap
'                        For k = 1 To bucketArr(j).mCount
'                            tempInt = bucketArr(j).mArr(k)
'                            bucketArr(j).mArr(k) = bucketArr(j + 1).mArr(k)
'                            bucketArr(j + 1).mArr(k) = tempInt
'                        Next k
'
'                        For k = bucketArr(j).mCount + 1 To bucketArr(j + 1).mCount
'                             bucketArr(j).mArr(k) = bucketArr(j + 1).mArr(k)
'                        Next k
'
'                        tempInt = bucketArr(j).mCount
'                        bucketArr(j).mCount = bucketArr(j + 1).mCount
'                        bucketArr(j + 1).mCount = tempInt
'                    End If
'                Next j
'            Next i



 'complecity:O(cArrSize^2)
        'if there is a more advanced dataStructure,the complexicity could be reduced to O(n)
        'ok ,has been reduced.
                            
            'A sort sequeue for no cross in the diagram but low effcience: O(cArrSize^2)
'            tempIndex = 1
'            For count = 1 To groupNum Step 1
'                For i = 1 To cArrSize Step 1
'                    If (groupIndentifyArr(i) = count) Then
'                        seqSet(tempIndex) = i
'                        tempIndex = tempIndex + 1
'                    End If
'                Next i
'            Next count