평균, 표준 편차, RMS 함수

Dim x(5) as double 'x() is an array of measured voltages
Dim N as integer 'N is the size of the population
Dim Sum, Sum_Sqr, Sum_Sigma as double 'collects the sum
Dim Average, RMS, Sigma as double 'results we are calculating
x(1) = 1.2: x(2) = 0.8: x(3) = 1.8: x(4) = 0.7: x(5) = 1.2: N = 5

For i = 1 to N

Sum = Sum + x(i)

Sum_Sqr = Sum_Sqr + (x(i)) ^ 2

Next i

Average = Sum / N

RMS = (Sum_Sqr / N) ^ 0.5

For i = 1 to N

Sum_Sigma = Sum_Sigma + (x(i) - Average) ^ 2

Next i

Sigma = (Sum_Sigma / N) ^ 0.5

Print "Average= "; Average

Print "Standard Deviation= "; Sigma

Print "RMS= "; RMS

Result of run

Average= 1.14
Standard Deviation= 0.387814
RMS= 1.20416