tutest.txt

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

Sub TUTEST(DATA1(), N1, DATA2(), N2, T, PROB)
    Call AVEVAR(DATA1(), N1, AVE1, VAR1)
    Call AVEVAR(DATA2(), N2, AVE2, VAR2)
    T = (AVE1 - AVE2) / Sqr(VAR1 / N1 + VAR2 / N2)
    AAA = (VAR1 / N1 + VAR2 / N2) ^ 2
    DF = AAA / ((VAR1 / N1) ^ 2 / (N1 - 1) + (VAR2 / N2) ^ 2 / (N2 - 1))
    PROB = BETAI(0.5 * DF, 0.5, DF / (DF + T ^ 2))
End Sub