Mercurial > octave-nkf
diff src/ov-range.cc @ 8366:8b1a2555c4e2
implement diagonal matrix objects
* * *
| author | Jaroslav Hajek <highegg@gmail.com> |
|---|---|
| date | Wed, 03 Dec 2008 13:32:57 +0100 |
| parents | c777f3ce02d8 |
| children | eb63fbe60fab |
line wrap: on
line diff
--- a/src/ov-range.cc Wed Dec 03 20:57:27 2008 -0500 +++ b/src/ov-range.cc Wed Dec 03 13:32:57 2008 +0100 @@ -188,6 +188,15 @@ return m.any (dim); } +octave_value +octave_range::diag (octave_idx_type k) const +{ + return (k == 0 + ? octave_value (DiagMatrix (DiagArray2<double> (range.matrix_value ()))) + : octave_value (range.diag (k))); +} + + bool octave_range::is_true (void) const {