mdian1.txt

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

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