ksone.txt

用VB实现的数据的统计描述 包括分布的矩---均值、平均差、标准差、方差和中位数的搜索、均值与方差的显著性检验等

Sub KSONE(DATA(), N, D, PROB)
    Call SORT(N, DATA())
    EN = N
    D = 0#
    FO = 0#
    For J = 1 To N
        FQ = J / EN
        FF = FUNC(DATA(J))
        DT = Abs(FO - FF)
        If Abs(FQ - FF) > DT Then DT = Abs(FQ - FF)
        If DT > D Then D = DT
        FO = FQ
    Next J
    PROB = PROBKS(Sqr(EN) * D)
End Sub