ftest.txt

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

Sub FTEST(DATA1(), N1, DATA2(), N2, F, PROB)
    Call AVEVAR(DATA1(), N1, AVE1, VAR1)
    Call AVEVAR(DATA2(), N2, AVE2, VAR2)
    If VAR1 > VAR2 Then
        F = VAR1 / VAR2
        DF1 = N1 - 1
        DF2 = N2 - 1
    Else
        F = VAR2 / VAR1
        DF1 = N2 - 1
        DF2 = N1 - 1
    End If
    DUM1 = BETAI(0.5 * DF2, 0.5 * DF1, DF2 / (DF2 + DF1 * F))
    DUM2 = 1# - BETAI(0.5 * DF1, 0.5 * DF2, DF1 / (DF1 + DF2 / F))
    PROB = DUM1 + DUM2
End Sub