rspamd/test/lua/pcall_test.lua
2018-08-20 10:27:12 +01:00

46 行
983 B
Lua
Raw Blame 履歴

このファイルには曖昧(ambiguous)なUnicode文字が含まれています

このファイルには、他の文字と見間違える可能性があるUnicode文字が含まれています。 それが意図的なものと考えられる場合は、この警告を無視して構いません。 それらの文字を表示するにはエスケープボタンを使用します。

--[[ https://en.wikipedia.org/wiki/Normal_distribution ]]
-- The BoxMuller method
local function gaussian(mean, variance)
local U = math.random()
local V = math.random()
return math.sqrt(-2.0 * variance * math.log(U)) *
math.cos(2.0 * math.pi * V) + mean
end
local function mean(t)
local sum = 0
local count = #t
for i = 1, count do
sum = sum + t[i]
end
return sum / count
end
local function std(t, mean)
local squares = 0.0
for i = 1, #t do
local deviation = math.abs(mean - t[i])
squares = squares + deviation * deviation
end
local variance = squares / #t
return math.sqrt(variance)
end
local function do_the_call()
local t = {}
local mu = 34.0
local sigma = 10.0
for i = 1, 5 do
table.insert(t, gaussian(mu, sigma))
end
return string.format("Got mean: %1.5f, mu: %1.5f\nstd deviance:%1.5f, expected: %1.5f",
mean(t), mu,
std(t, mu), math.sqrt(sigma))
end
math.randomseed(os.time())
return do_the_call