Xenharmonic Wiki

Module:Temperament data/Badness testing: Difference between revisions

← Older editNewer edit →
CompactStar (talk | contribs)
5,020 edits
No edit summary
CompactStar (talk | contribs)
5,020 edits
No edit summary
Line 68: Line 68:


local function matinv(a)
local function matinv(a)
local dbl_identity = {}
local xn = scalarmatmul(a, 0.0001)
for i = 1, #a do
 
dbl_identity[i] = {}
for i = 1, 50 do
for j = 1, #a do
xn = matsub(scalarmatmul(xn, 2), matmul(xn, matmul(a, xn)))
if i == j then
dbl_identity[i][j] = 2
else
dbl_identity[i][j] = 0
end
end
end
end
local xn = scalarmatmul(a, 0.000005)
for i = 1, 30 do
xn = matmul(xn, matsub(dbl_identity, matmul(a, xn)))
end
return xn
return xn
end
end
Retrieved from "https://en.xen.wiki/w/Module:Temperament_data/Badness_testing"