diff options
author | Karl Berry <karl@freefriends.org> | 2023-08-21 20:21:43 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2023-08-21 20:21:43 +0000 |
commit | 387e312bc97ac7085a5303a50db5111a7e742a62 (patch) | |
tree | d20189887fd4cae8364ded2b6ad95dc924665dfb /Master/texmf-dist/tex/lualatex | |
parent | ab04753ec692a8080fca77d94a141f5e0fa0628d (diff) |
lualinalg (21aug23)
git-svn-id: svn://tug.org/texlive/trunk@68009 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/lualatex')
-rw-r--r-- | Master/texmf-dist/tex/lualatex/lualinalg/lualinalg.sty | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/Master/texmf-dist/tex/lualatex/lualinalg/lualinalg.sty b/Master/texmf-dist/tex/lualatex/lualinalg/lualinalg.sty index 5d3e502a8de..5c62f329fad 100644 --- a/Master/texmf-dist/tex/lualatex/lualinalg/lualinalg.sty +++ b/Master/texmf-dist/tex/lualatex/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) |