bug_repair.txt

上传个模糊聚类代码

1 由于类型的不匹配(float -> int)
   图像中使用的是float型:
   (setPointArr(i).x + setPointArr(i + j - 1).x) / 2

   而数据中.x对应的类型为:int
   故加调整即可。
   

  pic.Line (Int((setPointArr(i).x + setPointArr(i + j - 1).x) / 2), setPointArr(i).y)-(Int((setPointArr(i).x + setPointArr(i + j - 1).x) / 2), setPointArr(i).y + stepY), RGB(0, 0, 255)
                    
  'merge ,update x,y
  setPointArr2(descI).x = Int((setPointArr(i).x + setPointArr(i + j - 1).x) / 

2)
等价类的算法中，flag=0这一句写在了最外层，显然，对于一经出现flag=1的情况后，将会出现错误，也就是不是已知类中的将不能归类。
 For i = 2 To cArrSize Step 1
            flag = 0
            For count = 1 To groupNum Step 1
                If (comArr(groupDelegateArr(count)) = comArr(i)) Then
                        groupIndentifyArr(i) = count
                        flag = 1
                        Exit For
                End If
            Next count
              
            If (flag = 0) Then
                groupNum = groupNum + 1
                groupDelegateArr(groupNum) = i
                groupIndentifyArr(i) = groupNum
            End If
        Next i




3seqSet排序算法中的错误:
for i=1 to cArrSize
 If (groupEleNum(i + (totalClusterTime - 1) * cArrSize) = groupEleNum(i + totalClusterTime * cArrSize)) Then 'no change

显然，这其中的i没有以元素所在的组为出现序，而仅仅是元素出现序，所以将会导致排序错误，尽管有时排序准确。