机器学习-塔尼莫特系数计算图片相似性

 "塔尼莫特"系数

事实上，这个代数形式在计算Jaccard系数时以位向量作为被比较的集的机制首次被塔尼莫特定义。虽然公式扩展到一般的向量

 

        '计算相似度，使用"塔尼莫特"系数公式
        Dim tzbj_fz_2 As Double = 0.0
        Dim tzbj_fma_2 As Double = 0.0
        Dim tzbj_fmb_2 As Double = 0.0
        For myii As Integer = 0 To pic1tz.GetUpperBound(0)
            If IsNothing(pic1tz(myii)) Then
                Exit For
            End If
            tzbj_fz_2 += pic1tz(myii) * pic2tz(myii)
            tzbj_fma_2 += pic1tz(myii) * pic1tz(myii)
            tzbj_fmb_2 += pic2tz(myii) * pic2tz(myii)
        Next
        xsd = tzbj_fz_2 / (tzbj_fma_2 + tzbj_fmb_2 - tzbj_fz_2)
        xsd1.Text = xsd.ToString("P")
    End Sub

 

 

 

 

 

 

 

 程序见附件