summaryrefslogtreecommitdiff
path: root/macros/luatex/latex/lualinalg/lualinalg.sty
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2023-08-22 03:01:06 +0000
committerNorbert Preining <norbert@preining.info>2023-08-22 03:01:06 +0000
commitcf3e954514eb50bea0335bdc97d6b76f80f5d03e (patch)
tree84960c9724915fd64626f3b8c532a671ea7e87f2 /macros/luatex/latex/lualinalg/lualinalg.sty
parentf4e4c48e897bec27fd8d07ba278c03c6f0c64336 (diff)
CTAN sync 202308220301
Diffstat (limited to 'macros/luatex/latex/lualinalg/lualinalg.sty')
-rw-r--r--macros/luatex/latex/lualinalg/lualinalg.sty14
1 files changed, 7 insertions, 7 deletions
diff --git a/macros/luatex/latex/lualinalg/lualinalg.sty b/macros/luatex/latex/lualinalg/lualinalg.sty
index 5d3e502a8d..5c62f329fa 100644
--- a/macros/luatex/latex/lualinalg/lualinalg.sty
+++ b/macros/luatex/latex/lualinalg/lualinalg.sty
@@ -1,9 +1,9 @@
% The lualinalg package
% Authors: Chetan Shirore and Ajit Kumar
-% Version 1.6, Date=09-Aug-2023
+% Version 1.7, Date=21-Aug-2023
% Licensed under LaTeX Project Public License v1.3c or later. The complete license text is available at http://www.latex-project.org/lppl.txt.
-\ProvidesPackage{lualinalg}[1.6]
+\ProvidesPackage{lualinalg}[1.7]
\RequirePackage{xkeyval}
\RequirePackage{amsmath}
\RequirePackage{luamaths}
@@ -1132,7 +1132,7 @@ function vector.gs(inptTbl, brckt, dignum)
local str = ""
k = #inptTbl
- if vector.euclidnorm(inptTbl[1]) ~= complex(0.0) then
+ if complex.round(vector.euclidnorm(inptTbl[1])) ~= complex("0.0") then
tbl[1] = vector.mulnum(inptTbl[1], 1 / vector.euclidnorm(inptTbl[1]))
else
tbl[1] = vector.mulnum(inptTbl[1], 1)
@@ -1146,7 +1146,7 @@ function vector.gs(inptTbl, brckt, dignum)
setmetatable(tbl[j], vector_meta)
tbl[i] = vector.sub(tbl[i], vector.mulnum(tbl[j], vector.dot(tbl[i], tbl[j])))
end
- if vector.euclidnorm(tbl[i]) ~= complex(0.0) then
+ if complex.round(vector.euclidnorm(tbl[i])) ~= complex("0.0") then
tbl[i] = vector.mulnum(tbl[i], 1 / vector.euclidnorm(tbl[i]))
end
tbl[i] = vector.mulnum(tbl[i], 1.0)
@@ -1179,7 +1179,7 @@ function vector.gsX(inptTbl, brckt, dignum)
k = #inptTbl
str = str .. "\\ \\newline Take given vectors as $v_1,\\ldots, v_" .. k .. "$ in order."
- if vector.euclidnorm(inptTbl[1]) ~= complex(0.0) then
+ if complex.round(vector.euclidnorm(inptTbl[1])) ~= complex("0.0") then
tbl[1] = vector.mulnum(inptTbl[1], 1.0 / vector.euclidnorm(inptTbl[1]))
else
tbl[1] = vector.mulnum(inptTbl[1], 1.0)
@@ -1188,7 +1188,7 @@ function vector.gsX(inptTbl, brckt, dignum)
str = str .. "\\ \\newline Step " .. cnt .. ": $$ u_" .. cnt .. "=v_" .. cnt .. "="
str = str .. brcktL .. vector.show(inptTbl[1], dignum) .. brcktR
str = str .. " $$ e_" .. cnt .. "="
- if vector.euclidnorm(tbl[1]) ~= complex(0.0) then
+ if complex.round(vector.euclidnorm(tbl[1])) ~= complex("0.0") then
str = str .. "\\frac{u_{" .. cnt .. "}}" .. "{||u_{" .. cnt .. "}||} ="
end
str = str .. brcktL .. vector.show(tbl[1], dignum) .. brcktR
@@ -1200,7 +1200,7 @@ function vector.gsX(inptTbl, brckt, dignum)
tmpTbl[i] = vector.sub(tbl[i], vector.mulnum(tbl[j], vector.dot(tbl[i], tbl[j])))
tbl[i] = vector.sub(tbl[i], vector.mulnum(tbl[j], vector.dot(tbl[i], tbl[j])))
end
- if vector.euclidnorm(tbl[i]) ~= complex(0.0) then
+ if complex.round(vector.euclidnorm(tbl[i])) ~= complex("0.0") then
tbl[i] = vector.mulnum(tbl[i], 1 / vector.euclidnorm(tbl[i]))
else
tbl[i] = vector.mulnum(tbl[i], 1.0)