Xenharmonic Wiki

「モジュール:ET」の版間の差分

ページの作成:「local rat = require("Module:Rational") local seq = require("Module:Sequence") local p = {} local common_suffix = { ["3/2"] = "f", ["2"] = "o", ["2/1"] = "o", ["3"] =…」
 
Tessyrrh1016 (トーク | 投稿記録)
autopatrolled
576 回編集
細編集の要約なし
 
(2人の利用者による、間の6版が非表示)
35行目: 35行目:
else
else
suffix = suffix .. equave_ratio
suffix = suffix .. equave_ratio
end
if equave_ratio == "2/1" then
suffix = "平均律"
end
end
end
end
42行目: 45行目:
-- parse a ET structure
-- parse a ET structure
function p.parse(unparsed)
function p.parse(unparsed)
local size, equave = unparsed:match("^(%d+%.*%d*)(平均律)$")
if equave == nil then
return nil
else
return p.new(tonumber(size), 2, "平均律")
end
local size, suffix, equave = unparsed:match("^(%d+%.*%d*)([Ee][Dd](.+))$")
local size, suffix, equave = unparsed:match("^(%d+%.*%d*)([Ee][Dd](.+))$")
-- local size, suffix, equave = unparsed:match("^(%d+%.*%d*)([Cc]?[Ee][Dd]?[Tt]?(.*))$")
-- local size, suffix, equave = unparsed:match("^(%d+%.*%d*)([Cc]?[Ee][Dd]?[Tt]?(.*))$")
144行目: 153行目:
local markers = {}
local markers = {}
if zeta_peak then
if zeta_peak then
table.insert(markers, "[[The Riemann zeta function and tuning #Peak EDOs|Zeta peak]]")
table.insert(markers, "[[:en:The Riemann zeta function and tuning #Zeta peak edos|Zeta peak]]")
elseif zeta_peak == nil then
elseif zeta_peak == nil then
table.insert(markers, "[[The Riemann zeta function and tuning #Peak EDOs|Zeta peak?]]")
table.insert(markers, "[[:en:The Riemann zeta function and tuning #Zeta peak edos|Zeta peak?]]")
end
end


if zeta_peak_integer then
if zeta_peak_integer then
table.insert(markers, "[[The Riemann zeta function and tuning #Peak EDOs|Zeta peak integer]]")
table.insert(markers, "[[:en:The Riemann zeta function and tuning #Zeta peak edos|Zeta peak integer]]")
elseif zeta_peak_integer == nil then
elseif zeta_peak_integer == nil then
table.insert(markers, "[[The Riemann zeta function and tuning #Peak EDOs|Zeta peak integer?]]")
table.insert(markers, "[[:en:The Riemann zeta function and tuning #Zeta peak edos|Zeta peak integer?]]")
end
end


if zeta_integral then
if zeta_integral then
table.insert(markers, "[[The Riemann zeta function and tuning #Integral of Zeta EDOs|Zeta integral]]")
table.insert(markers, "[[:en:The Riemann zeta function and tuning #Zeta integral edos|Zeta integral]]")
elseif zeta_integral == nil then
elseif zeta_integral == nil then
table.insert(markers, "[[The Riemann zeta function and tuning #Integral of Zeta EDOs|Zeta integral?]]")
table.insert(markers, "[[:en:The Riemann zeta function and tuning #Zeta integral edos|Zeta integral?]]")
end
end


if zeta_gap then
if zeta_gap then
table.insert(markers, "[[The Riemann zeta function and tuning #Zeta Gap EDOs|Zeta gap]]")
table.insert(markers, "[[:en:The Riemann zeta function and tuning #Zeta gap edos|Zeta gap]]")
elseif zeta_gap == nil then
elseif zeta_gap == nil then
table.insert(markers, "[[The Riemann zeta function and tuning #Zeta Gap EDOs|Zeta gap?]]")
table.insert(markers, "[[:en:The Riemann zeta function and tuning #Zeta gap edos|Zeta gap?]]")
end
end


「https://ja.xen.wiki/w/モジュール:ET」から取得