Mercurial > hg > octave-thorsten

changeset 12107:1fc9fd052f0c release-3-2-x

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix typo in expm
author Jaroslav Hajek <highegg@gmail.com>
date Wed, 25 Nov 2009 12:05:03 +0100 (2009-11-25)
parents 11f9c592b035
children d82388277620
files scripts/ChangeLog scripts/linear-algebra/expm.m
diffstat 2 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -1,3 +1,7 @@
+2009-11-14  Jaroslav Hajek  <highegg@gmail.com>
+
+	* linear-algebra/expm.m: Fix typo.
+
 2009-11-22  Michael Goffioul <michael.goffioul@gmail.com>
 
 	* plot/print.m: Properly set the default ghostscript_binary
--- a/scripts/linear-algebra/expm.m
+++ b/scripts/linear-algebra/expm.m
@@ -139,7 +139,7 @@
   ## inverse balancing.
   d = diag (d);
   r = d * r / d;
-  r = r(p, p);
+  r(p, p) = r;
   ## Inverse trace reduction.
   if (trshift >0)
     r *= exp (trshift);