kstwo.txt

来自「用VB实现的数据的统计描述 包括分布的矩---均值、平均差、标准差、方差和中位」· 文本 代码 · 共 38 行

Sub KSTWO(DATA1(), N1, DATA2(), N2, D, PROB)
    Call SORT(N1, DATA1)
    Call SORT(N2, DATA2)
    EN1 = N1
    EN2 = N2
    J1 = 1
    J2 = 1
    FO1 = 0#
    FO2 = 0#
    D = 0#
1   If J1 <= N1 And J2 <= N2 Then
        If DATA1(J1) < DATA2(J2) Then
            FN1 = J1 / EN1
            If Abs(FN1 - FO2) > Abs(FO1 - FO2) Then
                AM = Abs(FN1 - FO2)
            Else
                AM = Abs(FO1 - FO2)
            End If
            DT = AM
            If DT > D Then D = DT
            FO1 = FN1
            J1 = J1 + 1
        Else
            FN2 = J2 / EN2
            If Abs(FN2 - FO1) > Abs(FO2 - FO1) Then
                AM = Abs(FN2 - FO1)
            Else
                AM = Abs(FO2 - FO1)
            End If
            DT = AM
            If DT > D Then D = DT
            FO2 = FN2
            J2 = J2 + 1
        End If
        GoTo 1
    End If
    PROB = PROBKS(Sqr(EN1 * EN2 / (EN1 + EN2)) * D)
End Sub