9 lines
188 B
Text
9 lines
188 B
Text
function rms(sequence s)
|
|
atom sqsum = 0
|
|
for i=1 to length(s) do
|
|
sqsum += power(s[i],2)
|
|
end for
|
|
return sqrt(sqsum/length(s))
|
|
end function
|
|
|
|
? rms({1,2,3,4,5,6,7,8,9,10})
|