Mercurial > hg > octave-nkf
comparison src/OPERATORS/op-cdm-dm.cc @ 8366:8b1a2555c4e2
implement diagonal matrix objects
* * *
| author | Jaroslav Hajek <highegg@gmail.com> |
|---|---|
| date | Wed, 03 Dec 2008 13:32:57 +0100 |
| parents | |
| children | eb63fbe60fab |
comparison
equal
deleted
inserted
replaced
| 8365:65ca196fff28 | 8366:8b1a2555c4e2 |
|---|---|
| 1 /* | |
| 2 | |
| 3 Copyright (C) 2008 Jaroslav Hajek <highegg@gmail.com> | |
| 4 | |
| 5 This file is part of Octave. | |
| 6 | |
| 7 Octave is free software; you can redistribute it and/or modify it | |
| 8 under the terms of the GNU General Public License as published by the | |
| 9 Free Software Foundation; either version 3 of the License, or (at your | |
| 10 option) any later version. | |
| 11 | |
| 12 Octave is distributed in the hope that it will be useful, but WITHOUT | |
| 13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 15 for more details. | |
| 16 | |
| 17 You should have received a copy of the GNU General Public License | |
| 18 along with Octave; see the file COPYING. If not, see | |
| 19 <http://www.gnu.org/licenses/>. | |
| 20 | |
| 21 */ | |
| 22 | |
| 23 #define LINCLUDE "ov-cx-diag.h" | |
| 24 #define RINCLUDE "ov-re-diag.h" | |
| 25 | |
| 26 #define LMATRIX complex_diag_matrix | |
| 27 #define RMATRIX diag_matrix | |
| 28 #define RDMATRIX LMATRIX | |
| 29 | |
| 30 #define LSHORT cdm | |
| 31 #define RSHORT dm | |
| 32 | |
| 33 #define DEFINEDIV | |
| 34 #define DEFINELDIV | |
| 35 | |
| 36 #include "op-dm-template.cc" | |
| 37 |