Mercurial > emacs
changeset 66480:feb65aa82eeb
(calcFunc-inv): Check for symbolic matrices.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Fri, 28 Oct 2005 03:52:08 +0000 |
| parents | 5da715ee89b8 |
| children | 2c079383436e |
| files | lisp/calc/calc-misc.el |
| diffstat | 1 files changed, 5 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calc/calc-misc.el Fri Oct 28 03:51:36 2005 +0000 +++ b/lisp/calc/calc-misc.el Fri Oct 28 03:52:08 2005 +0000 @@ -646,8 +646,11 @@ (or (math-with-extra-prec 2 (math-matrix-inv-raw m)) (math-reject-arg m "*Singular matrix")) (math-reject-arg m 'square-matrixp))) - (math-div 1 m))) - + (if (and + (require 'calc-arith) + (math-known-matrixp m)) + (math-pow m -1) + (math-div 1 m)))) (defun math-do-working (msg arg) (or executing-kbd-macro