ttest.txt

常用的数值算法的VB程序

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