求助vb6源码改成易语

涂学刑正

Option ExplicitPrivate Function CalculateNormalizedDistance(aa() As Double, bb() As Double) As Double    Dim diff_sum As Double    Dim mean_diff_sum As Double    Dim sq_diff_sum As Double    Dim aa_normalized() As Double    Dim bb_normalized() As Double    Dim euclidean_distance As Double    Dim max_value As Double    Dim normalized_distance As Double        Dim i As Integer        For i = LBound(aa) To UBound(aa)        diff_sum = diff_sum + (aa(i) - bb(i))        mean_diff_sum = mean_diff_sum + (aa(i) + bb(i)) / 2        sq_diff_sum += (aa(i) - bb(i)) ^ 2    Next        Dim size As Integer    size = UBound(aa) - LBound(aa) + 1        Dim mean_diff As Double    mean_diff = mean_diff_sum / size        Dim std_diff As Double    std_diff = Sqr(sq_diff_sum / size)        ReDim aa_normalized(LBound(aa) To UBound(aa))    ReDim bb_normalized(LBound(bb) To UBound(bb))        For i = LBound(aa) To UBound(aa)        aa_normalized(i) = (aa(i) - mean_diff) / std_diff        bb_normalized(i) = (bb(i) - mean_diff) / std_diff        euclidean_distance = euclidean_distance + (aa_normalized(i) - bb_normalized(i)) ^ 2    Next        euclidean_distance = Sqr(euclidean_distance)    max_value = Sqr(size)    normalized_distance = (1 - euclidean_distance / max_value) * 100        CalculateNormalizedDistance = normalized_distanceEnd FunctionSub Main()    Dim aa() As Double    Dim bb    Dim result_percentage As Double        aa = Array(46,  1369753, 51, 3736, 33, 1, 1, 1, 6, 1, 2, 7, 14)    bb = Array(123, 321029, 156, 0, 3074450, 100,, 1, 4, 14, 1, 1, 6, 3)        result_percentage = CalculateNormalizedDistance(aa, bb)        MsgBox "Result Percentage: " & result_percentage    End Sub

涂学刑正

Option Explicit

Private Function CalculateNormalizedDistance(aa() As Double, bb() As Double) As Double
    Dim diff_sum As Double
    Dim mean_diff_sum As Double
    Dim sq_diff_sum As Double
    Dim aa_normalized() As Double
    Dim bb_normalized() As Double
    Dim euclidean_distance As Double
    Dim max_value As Double
    Dim normalized_distance As Double
   
    Dim i As Integer
   
    For i = LBound(aa) To UBound(aa)
        diff_sum = diff_sum + (aa(i) - bb(i))
        mean_diff_sum = mean_diff_sum + (aa(i) + bb(i)) / 2
        sq_diff_sum += (aa(i) - bb(i)) ^ 2
    Next
   
    Dim size As Integer
    size = UBound(aa) - LBound(aa) + 1
   
    Dim mean_diff As Double
    mean_diff = mean_diff_sum / size
   
    Dim std_diff As Double
    std_diff = Sqr(sq_diff_sum / size)
   
    ReDim aa_normalized(LBound(aa) To UBound(aa))
    ReDim bb_normalized(LBound(bb) To UBound(bb))
   
    For i = LBound(aa) To UBound(aa)
        aa_normalized(i) = (aa(i) - mean_diff) / std_diff
        bb_normalized(i) = (bb(i) - mean_diff) / std_diff
        euclidean_distance = euclidean_distance + (aa_normalized(i) - bb_normalized(i)) ^ 2
    Next
   
    euclidean_distance = Sqr(euclidean_distance)
    max_value = Sqr(size)
    normalized_distance = (1 - euclidean_distance / max_value) * 100
   
    CalculateNormalizedDistance = normalized_distance
End Function

Sub Main()
    Dim aa() As Double
    Dim bb    Dim result_percentage As Double
   
    aa = Array(46,  1369753, 51, 3736, 33, 1, 1, 1, 6, 1, 2, 7, 14)
    bb = Array(123, 321029, 156, 0, 3074450, 100,, 1, 4, 14, 1, 1, 6, 3)
   
    result_percentage = CalculateNormalizedDistance(aa, bb)
   
    MsgBox "Result Percentage: " & result_percentage
   
End Sub

涂学刑正

.版本 2

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕



.子程序 CalculateNormalizedDistance, 双精度小数型, 公开
.参数 aa, 双精度小数型, 数组
.参数 bb, 双精度小数型, 数组
.局部变量 diff_sum, 双精度小数型
.局部变量 mean_diff_sum, 双精度小数型
.局部变量 sq_diff_sum, 双精度小数型
.局部变量 euclidean_distance, 双精度小数型
.局部变量 max_value, 双精度小数型
.局部变量 normalized_distance, 双精度小数型
.局部变量 i, 整数型
.局部变量 size, 整数型
.局部变量 mean_diff, 双精度小数型
.局部变量 std_diff, 双精度小数型
.局部变量 aa_normalized, 双精度小数型, , "0"
.局部变量 bb_normalized, 双精度小数型, , "0"

.变量循环首 (1, 取数组下标 (aa, ), 1, i)
    diff_sum ＝ diff_sum ＋ aa [i] － bb [i]
    mean_diff_sum ＝ mean_diff_sum ＋ (aa [i] ＋ bb [i]) ÷ 2
    sq_diff_sum ＝ sq_diff_sum ＋ 求次方 (aa [i] － bb [i], 2)

.变量循环尾 ()

size ＝ 取数组下标 (aa, )

mean_diff ＝ mean_diff_sum ÷ size

std_diff ＝ 求平方根 (sq_diff_sum ÷ size)

' ReDim aa_normalized(LBound(aa) To UBound(aa))
' ReDim bb_normalized(LBound(bb) To UBound(bb))
复制数组 (aa_normalized, aa)

复制数组 (bb_normalized, bb)

.变量循环首 (1, 取数组下标 (aa, ), 1, i)
    aa_normalized [i] ＝ (aa [i] － mean_diff) ÷ std_diff
    bb_normalized [i] ＝ (bb [i] － mean_diff) ÷ std_diff
    euclidean_distance ＝ euclidean_distance ＋ 求次方 (aa_normalized [i] － bb_normalized [i], 2)
.变量循环尾 ()

euclidean_distance ＝ 求平方根 (euclidean_distance)
max_value ＝ 求平方根 (size)
normalized_distance ＝ (1 － euclidean_distance ÷ max_value) × 100
返回 (normalized_distance)

.子程序 Main, 双精度小数型, 公开
.局部变量 aa, 双精度小数型, , "0"
.局部变量 bb, 双精度小数型, , "0"

aa ＝ { 46, 1369753, 51, 3736, 33, 1, 1, 1, 6, 1, 2, 7, 14 }

bb ＝ { 123, 321029, 156, 0, 3074450, 100, 4430, 34, 1, 1, 4, 14, 1, 1, 6, 3 }
返回 (CalculateNormalizedDistance (aa, bb))


.子程序 _按钮1_被单击


输出调试文本 (Main ())  ' 原结果值为：34.3653759331934

涂学刑正

上面自已改过但不知那里错....求大佬指正谢谢

番茄吧

^ 2   不是求平方根，   而应该改为   位异或  例如   6 ^ 2  应该是   位异或 （6，2）

涂学刑正

番茄吧 发表于 2023-7-7 06:09
^ 2   不是求平方根，   而应该改为   位异或  例如   6 ^ 2  应该是   位异或 （6，2） ...

^2是求平方

dnxl

番茄吧 发表于 2023-7-7 06:09
^ 2   不是求平方根，   而应该改为   位异或  例如   6 ^ 2  应该是   位异或 （6，2） ...

VB 中 ^2就是2次方（平方） 6^2相当于  6*6

dnxl

' ReDim aa_normalized(LBound(aa) To UBound(aa))
' ReDim bb_normalized(LBound(bb) To UBound(bb))
复制数组 (aa_normalized, aa)

复制数组 (bb_normalized, bb)

这两个看着有点问题，   Redim  aa_normalized(LBound(aa) To UBound(aa))  对应易语言 重定义数组(aa_normalized,假,取数组下标(aa))

涂学刑正

dnxl 发表于 2023-7-7 16:48
' ReDim aa_normalized(LBound(aa) To UBound(aa))
' ReDim bb_normalized(LBound(bb) To UBound(bb))
复 ...

数组后面还会重新赋值所以用复制数组和重定义感觉都可以

涂学刑正

解释下，这个是标准化欧里距离算法求得输出为百分比的源代码...想转为易语言代码