6 lines
141 B
Text
6 lines
141 B
Text
procedure qmean(L[]) #: quadratic mean
|
|
local m
|
|
if *L = 0 then fail
|
|
every (m := 0.0) +:= !L^2
|
|
return sqrt(m / *L)
|
|
end
|