chsone.txt

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

Sub CHSONE(BINS(), EBINS(), NBINS, KNSTRN, DF, CHSQ, PROB)
    DF = NBINS - 1 - KNSTRN
    CHSQ = 0#
    For J = 1 To NBINS
        If EBINS(J) <= 0# Then
            Print " bad expected number"
            Exit Sub
        End If
        CHSQ = CHSQ + (BINS(J) - EBINS(J)) ^ 2 / EBINS(J)
    Next J
    PROB = GAMMQ(0.5 * DF, 0.5 * CHSQ)
End Sub