Module:Temperament data: Difference between revisions

CompactStar (talk | contribs)
No edit summary
CompactStar (talk | contribs)
No edit summary
Line 50: Line 50:
end
end


function p.matinv(a)
local function matinv(a)
dbl_identity = {}
dbl_identity = {}
for i = 1, #a do
for i = 1, #a do
Line 64: Line 64:
xn = scalarmatmul(a, 0.0001)
xn = scalarmatmul(a, 0.0001)
for i = 1, 30 do
xn = matmul(xn, matsub(dbl_identity, matmul(a, xn)))
end
return xn
end
local function matinv(a)
local dbl_identity = {}
for i = 1, #a do
dbl_identity[i] = {}
for j = 1, #a do
if i == j then
dbl_identity[i][j] = 2
else
dbl_identity[i][j] = 0
end
end
end
local xn = scalarmatmul(a, 0.0001)
for i = 1, 30 do
for i = 1, 30 do