mdian1.txt

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

Sub MDIAN1(X(), N, XMED)
    Call SORT(N, X())
    N2 = N / 2
    If 2 * N2 = N Then
        XMED = 0.5 * (X(N2) + X(N2 + 1))
    Else
        XMED = X(N2 + 1)
    End If
End Sub