Mercurial > hg > octave-lyh

diff liboctave/fDiagMatrix.cc @ 8366:8b1a2555c4e2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
implement diagonal matrix objects * * *
author Jaroslav Hajek <highegg@gmail.com>
date Wed, 03 Dec 2008 13:32:57 +0100
parents 4976f66d469b
children c3f7e2549abb
line wrap: on
line diff
--- a/liboctave/fDiagMatrix.cc
+++ b/liboctave/fDiagMatrix.cc
@@ -139,6 +139,15 @@
 }
 
 FloatDiagMatrix
+FloatDiagMatrix::abs (void) const
+{
+  FloatDiagMatrix retval (rows (), cols ());
+  for (octave_idx_type i = 0; i < rows (); i++)
+    retval(i, i) = std::abs (elem (i, i));
+  return retval;
+}
+
+FloatDiagMatrix
 real (const FloatComplexDiagMatrix& a)
 {
   FloatDiagMatrix retval;