-
"塔尼莫特"系数
事实上,这个代数形式在计算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
程序见附件