Differential D24959 Diff 72805 head/math/maxima/files/extra-patch-share_linearalgebra_matrixexp.lisp
Changeset View
Changeset View
Standalone View
Standalone View
head/math/maxima/files/extra-patch-share_linearalgebra_matrixexp.lisp
- This file was added.
| Property | Old Value | New Value |
|---|---|---|
| fbsd:nokeywords | null | yes \ No newline at end of property |
| svn:eol-style | null | native \ No newline at end of property |
| svn:mime-type | null | text/plain \ No newline at end of property |
| --- share/linearalgebra/matrixexp.lisp.orig 2019-10-21 03:38:58 UTC | |||||
| +++ share/linearalgebra/matrixexp.lisp | |||||
| @@ -138,8 +138,9 @@ | |||||
| (print `(ratvars = ,$ratvars gcd = '$gcd algebraic = ,$algebraic)) | |||||
| (print `(ratfac = ,$ratfac)) | |||||
| (merror "Unable to find the spectrum"))) | |||||
| - | |||||
| - (setq res ($fullratsimp (ncpower (sub (mult z ($ident n)) mat) -1) z)) | |||||
| + | |||||
| +;; patch borrowed from SageMath | |||||
| + (setq res ($fullratsimp ($invert_by_lu (sub (mult z ($ident n)) mat) '$crering) z)) | |||||
| (setq m (length sp)) | |||||
| (dotimes (i m) | |||||
| (setq zi (nth i sp)) | |||||