avevar.txt

来自「VB常用数值算法集 内含有解线性代数方程组」· 文本 代码 · 共 13 行

Sub AVEVAR(DATA(), N, AVE, VAR)
    AVE = 0#
    VAR = 0#
    For J = 1 To N
        AVE = AVE + DATA(J)
    Next J
    AVE = AVE / N
    For J = 1 To N
        S = DATA(J) - AVE
        VAR = VAR + S * S
    Next J
    VAR = VAR / (N - 1)
End Sub