Module:Harmonics in cet: Difference between revisions
ArrowHead294 (talk | contribs) mNo edit summary |
Comment out problem parts for the moment |
||
| (9 intermediate revisions by 2 users not shown) | |||
| Line 1: | Line 1: | ||
local yesno = require("Module:yesno") | |||
local utils = require("Module:Utils") | |||
local p = {} | local p = {} | ||
local function approx(step, intervals, title, prec) | local function approx(step, intervals, title, prec, reduction, collapsed) | ||
local thead | |||
if collapsed then | |||
thead = "{| class=\"wikitable center-all mw-collapsible mw-collapsed\"\n" | |||
else | |||
thead = "{| class=\"wikitable center-all\"\n" | |||
end | |||
local tpri = {"! colspan=\"2\" | Harmonic "} | local tpri = {"! colspan=\"2\" | Harmonic "} | ||
local tabs = {"! rowspan=\"2\" | Error \n! Absolute ([[cent|¢]]) "} | local tabs = {"! rowspan=\"2\" | Error \n! Absolute ([[cent|¢]]) "} | ||
local trel = {"! [[Relative interval error|Relative]] (%) "} | local trel = {"! [[Relative interval error|Relative]] ([[relative cent|%]]) "} | ||
local tdeg = {"! colspan=\"2\" | Steps"} | local tdeg | ||
-- TODO: determine `steps` | |||
-- if reduction then | |||
-- tdeg = {"! colspan=\"2\" | Steps<br>([[octave reduction|reduced]])"} | |||
-- else | |||
-- tdeg = {"! colspan=\"2\" | Step"} | |||
-- end | |||
tdeg = {"! colspan=\"2\" | Step"} | |||
local fmt_abs = string.format(" %%+.%df", prec) | local fmt_abs = string.format(" %%+.%df", prec) | ||
local fmt_rel = " %+. | local fmt_rel = " %+.1f" | ||
local size = step / 1200 | local size = step / 1200 | ||
| Line 18: | Line 34: | ||
table.insert(tabs, "" .. string.gsub(string.format(fmt_abs, 1200 * (ev - v) * size), "%-", "-")) | table.insert(tabs, "" .. string.gsub(string.format(fmt_abs, 1200 * (ev - v) * size), "%-", "-")) | ||
table.insert(trel, "" .. string.gsub(string.format(fmt_rel, 100 * (ev - v)), "%-", "-")) | table.insert(trel, "" .. string.gsub(string.format(fmt_rel, 100 * (ev - v)), "%-", "-")) | ||
-- TODO: determine `steps` | |||
-- if reduction then | |||
-- table.insert(tdeg, "" .. ev .. "<br>(".. ev % steps .. ")") | |||
-- else | |||
-- table.insert(tdeg, "" .. ev) | |||
-- end | |||
table.insert(tdeg, "" .. ev) | table.insert(tdeg, "" .. ev) | ||
end | |||
local titleMarkup = "" | |||
if title then | |||
titleMarkup = "|+ style=\"font-size: 105%; white-space: nowrap;\" | " .. title .. "\n" | |||
end | end | ||
thead = thead .. | |||
.. "| | titleMarkup .. | ||
"|-\n" .. | |||
table.concat(tpri, "\n! ") .. "\n" .. | |||
"|-\n" .. | |||
table.concat(tabs, "\n| ") .. "\n" .. | |||
"|-\n" .. | |||
table.concat(trel, "\n| ") .. "\n" .. | |||
"|-\n" .. | |||
table.concat(tdeg, "\n| ") .. "\n" .. | |||
"|}" | |||
return thead | |||
end | end | ||
| Line 37: | Line 67: | ||
intervals.prime = {2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97 } | intervals.prime = {2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97 } | ||
intervals.odd = {3, 5, 7, 9, 11, 13, 15, 17, 19, 21, 23, 25, 27, 29, 31, 33, 35, 37, 39, 41, 43, 45, 47, 49, 51, 53 } | intervals.odd = {3, 5, 7, 9, 11, 13, 15, 17, 19, 21, 23, 25, 27, 29, 31, 33, 35, 37, 39, 41, 43, 45, 47, 49, 51, 53 } | ||
intervals.integer = {2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64} | intervals.integer = {2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64} | ||
| Line 65: | Line 94: | ||
local step = eval_num_arg(frame.args["step"], 63.1578947368) | local step = eval_num_arg(frame.args["step"], 63.1578947368) | ||
-- optional number of columns, default: 10 | -- optional number of columns, default: 10 | ||
local columns = eval_num_arg(frame.args["columns"], | local columns = eval_num_arg(frame.args["columns"], 11) | ||
-- optional start column, default: start with prime 2 | -- optional start column, default: start with prime 2 | ||
local start = eval_num_arg(frame.args["start"], 1) | local start = eval_num_arg(frame.args["start"], 1) | ||
-- option intervals | -- option intervals | ||
local select_intervals = "integer" | local select_intervals = "integer" | ||
local name = "1ed" .. step .. "c" | |||
-- override default intervals | |||
if frame.args["intervals"] and string.len(frame.args["intervals"]) > 0 then | if frame.args["intervals"] and string.len(frame.args["intervals"]) > 0 then | ||
select_intervals = frame.args["intervals"] | select_intervals = frame.args["intervals"] | ||
end | end | ||
if select_intervals == "odd" then | if select_intervals == "odd" then | ||
title_intervals = "odd harmonics" | title_intervals = "odd harmonics" | ||
elseif select_intervals == "integer" then | elseif select_intervals == "integer" then | ||
title_intervals = "harmonics" | title_intervals = "harmonics" | ||
else | |||
title_intervals = "prime harmonics" | |||
end | end | ||
| Line 89: | Line 121: | ||
-- optional precision for abs error, default about 3 digits | -- optional precision for abs error, default about 3 digits | ||
local prec = eval_num_arg(frame.args["prec"], prec_by_cet(step)) | local prec = eval_num_arg(frame.args["prec"], prec_by_cet(step)) | ||
local reduction = true | |||
if steps == 1 then | |||
reduction = false | |||
end | |||
local collapsed = utils.value_provided(frame.args["collapsed"]) | |||
local debugg = yesno(frame.args["debug"]) | |||
local result = approx(step, {unpack(intervals[select_intervals], start, start + columns - 1)}, title, prec, reduction, collapsed) | |||
if debugg == true then | |||
result = "<syntaxhighlight lang=\"wikitext\">" .. result .. "</syntaxhighlight>" | |||
end | |||
return | return frame:preprocess(result) | ||
end | end | ||
return p | return p | ||