OpenEuphoria

Re: which is faster?

• Posted by Jules <jdavy at ds?.pipex.c?m> Nov 08, 2007
• 587 views

that should have been:

function st_dev(sequence s, atom X)
atom m, sum, sd
integer l
sum = 0
l = length(s)
m = mean(s)
s -= m
for i = 1 to l do -- sum of squared deviations
sum += power(s[i], 2)
end for
sd = sqrt(sum/(l-1))
if X = 0 then
return sd
else -- return the z-score
return (X - m)/sd
end if
end function