Mercurial > octave-nkf

diff src/ov-base-scalar.h @ 7620:36594d5bbe13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Move diag function into the octave_value class
author David Bateman <dbateman@free.fr>
date Fri, 21 Mar 2008 00:08:24 +0100
parents 402168152bb9
children 443a8f5a50fd
line wrap: on
line diff
--- a/src/ov-base-scalar.h	Fri Mar 21 13:20:11 2008 -0400
+++ b/src/ov-base-scalar.h	Fri Mar 21 00:08:24 2008 +0100
@@ -93,6 +93,9 @@
 
   octave_value any (int = 0) const { return (scalar != ST ()); }
 
+  octave_value diag (octave_idx_type k = 0) const 
+    { return octave_value (matrix_value (). diag (k)); }
+
   octave_value sort (octave_idx_type, sortmode) const
     { return octave_value (scalar); }
   octave_value sort (Array<octave_idx_type> &sidx, octave_idx_type,