Module:Infobox ET: Difference between revisions
No edit summary |
No edit summary |
||
| Line 237: | Line 237: | ||
if et.size <= 70 and et.size > 4 then | if et.size <= 70 and et.size > 4 then | ||
local | local delta_harmonic_entropy = 0 | ||
local l = 0 | |||
for i=1, math.floor(et.size)-2 do | for i=1, math.floor(et.size)-2 do | ||
for j=1, i-1 do | for j=1, i-1 do | ||
local delta = (math.pow(2, i * step_size / 1200) - math.pow(2, j * step_size / 1200)) / (math.pow(2, j * step_size / 1200) - 1) | local delta = (math.pow(2, i * step_size / 1200) - math.pow(2, j * step_size / 1200)) / (math.pow(2, j * step_size / 1200) - 1) | ||
local he = interval_extension.harmonic_entropy_with_lookup_table(rat.cents(delta)) | local he = interval_extension.harmonic_entropy_with_lookup_table(rat.cents(delta)) | ||
delta_harmonic_entropy = delta_harmonic_entropy + he | |||
l = l + 1 | |||
end | end | ||
end | end | ||
delta_harmonic_entropy = delta_harmonic_entropy / l | |||
table.insert(infobox_data, { | table.insert(infobox_data, { | ||
"[[Delta]]-Harmonic entropy", | "[[Delta]]-Harmonic entropy", | ||
"~" .. utils._round( | "~" .. utils._round(delta_harmonic_entropy, 6) .. " nats" | ||
}) | }) | ||
end | end | ||