Module:Temperament data: Difference between revisions
CompactStar (talk | contribs) No edit summary |
CompactStar (talk | contribs) No edit summary |
||
| Line 134: | Line 134: | ||
end | end | ||
local function | local function unreduced_mapping_from_basis(comma_basis) | ||
return antitranspose(nullspace(antitranspose(comma_basis))) | return antitranspose(nullspace(antitranspose(comma_basis))) | ||
end | end | ||
local function get_te_tuning_map(subgroup, | local function get_te_tuning_map(subgroup, comma) | ||
local v = unreduced_mapping_from_basis(comma) | |||
local w = {} | local w = {} | ||
for i = 1, #subgroup do | for i = 1, #subgroup do | ||
| Line 155: | Line 156: | ||
jw[1][i] = 1 | jw[1][i] = 1 | ||
end | end | ||
local vw = matmul( | local vw = matmul(v, w) | ||
local g = matmul(jw, pseudoinv(vw)) | local g = matmul(jw, pseudoinv(vw)) | ||
return g | return g | ||