Mercurial > octave-nkf
diff liboctave/fDiagMatrix.cc @ 8366:8b1a2555c4e2
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 Wed Dec 03 20:57:27 2008 -0500 +++ b/liboctave/fDiagMatrix.cc Wed Dec 03 13:32:57 2008 +0100 @@ -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;