Mercurial > octave
annotate liboctave/CMatrix.cc @ 10779:add87b12e63c
implement proper CGELSD/ZGELSD RWORK size formulas, as found in lapack SVN
| author | Jaroslav Hajek <highegg@gmail.com> |
|---|---|
| date | Fri, 09 Jul 2010 14:12:59 +0200 |
| parents | 9d95d8ab7c3a |
| children | 8c858a1a2079 |
| rev | line source |
|---|---|
| 1993 | 1 // Matrix manipulations. |
| 458 | 2 /* |
| 3 | |
| 7017 | 4 Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, |
| 5 2003, 2004, 2005, 2006, 2007 John W. Eaton | |
| 8920 | 6 Copyright (C) 2008, 2009 Jaroslav Hajek |
|
9601
a9b37bae1802
add a couple of missing copyright statements
Jaroslav Hajek <highegg@gmail.com>
parents:
9578
diff
changeset
|
7 Copyright (C) 2009 VZLU Prague, a.s. |
| 458 | 8 |
| 9 This file is part of Octave. | |
| 10 | |
| 11 Octave is free software; you can redistribute it and/or modify it | |
| 12 under the terms of the GNU General Public License as published by the | |
| 7016 | 13 Free Software Foundation; either version 3 of the License, or (at your |
| 14 option) any later version. | |
| 458 | 15 |
| 16 Octave is distributed in the hope that it will be useful, but WITHOUT | |
| 17 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 18 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 19 for more details. | |
| 20 | |
| 21 You should have received a copy of the GNU General Public License | |
| 7016 | 22 along with Octave; see the file COPYING. If not, see |
| 23 <http://www.gnu.org/licenses/>. | |
| 458 | 24 |
| 25 */ | |
| 26 | |
| 27 #ifdef HAVE_CONFIG_H | |
| 1192 | 28 #include <config.h> |
| 458 | 29 #endif |
| 30 | |
| 1367 | 31 #include <cfloat> |
| 32 | |
| 3503 | 33 #include <iostream> |
| 6209 | 34 #include <vector> |
| 1367 | 35 |
| 5775 | 36 // FIXME |
| 2443 | 37 #include <sys/types.h> |
| 458 | 38 |
| 4669 | 39 #include "Array-util.h" |
| 2828 | 40 #include "CMatrix.h" |
| 1819 | 41 #include "CmplxAEPBAL.h" |
|
9523
0ce82753dd72
more configure changes for libraries
John W. Eaton <jwe@octave.org>
parents:
9469
diff
changeset
|
42 #include "CmplxCHOL.h" |
| 1819 | 43 #include "CmplxSCHUR.h" |
| 740 | 44 #include "CmplxSVD.h" |
|
9523
0ce82753dd72
more configure changes for libraries
John W. Eaton <jwe@octave.org>
parents:
9469
diff
changeset
|
45 #include "DET.h" |
| 1847 | 46 #include "f77-fcn.h" |
|
7503
8c32f95c2639
convert mapper functions to new format
David Bateman <dbateman@free.fr>
parents:
7488
diff
changeset
|
47 #include "functor.h" |
| 458 | 48 #include "lo-error.h" |
| 2354 | 49 #include "lo-ieee.h" |
| 50 #include "lo-mappers.h" | |
| 1968 | 51 #include "lo-utils.h" |
| 1367 | 52 #include "mx-base.h" |
| 2828 | 53 #include "mx-cm-dm.h" |
|
9523
0ce82753dd72
more configure changes for libraries
John W. Eaton <jwe@octave.org>
parents:
9469
diff
changeset
|
54 #include "mx-cm-s.h" |
| 3176 | 55 #include "mx-dm-cm.h" |
| 1367 | 56 #include "mx-inlines.cc" |
|
8774
b756ce0002db
split implementation and interface in mx-op-defs and MArray-defs
Jaroslav Hajek <highegg@gmail.com>
parents:
8743
diff
changeset
|
57 #include "mx-op-defs.h" |
| 1650 | 58 #include "oct-cmplx.h" |
|
9523
0ce82753dd72
more configure changes for libraries
John W. Eaton <jwe@octave.org>
parents:
9469
diff
changeset
|
59 #include "oct-fftw.h" |
|
0ce82753dd72
more configure changes for libraries
John W. Eaton <jwe@octave.org>
parents:
9469
diff
changeset
|
60 #include "oct-locbuf.h" |
|
8336
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
61 #include "oct-norm.h" |
| 458 | 62 |
| 63 // Fortran functions we call. | |
| 64 | |
| 65 extern "C" | |
| 66 { | |
| 7477 | 67 F77_RET_T |
| 68 F77_FUNC (xilaenv, XILAENV) (const octave_idx_type&, F77_CONST_CHAR_ARG_DECL, | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
69 F77_CONST_CHAR_ARG_DECL, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
70 const octave_idx_type&, const octave_idx_type&, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
71 const octave_idx_type&, const octave_idx_type&, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
72 octave_idx_type& |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
73 F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL); |
| 7476 | 74 |
| 4552 | 75 F77_RET_T |
| 76 F77_FUNC (zgebal, ZGEBAL) (F77_CONST_CHAR_ARG_DECL, | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
77 const octave_idx_type&, Complex*, const octave_idx_type&, octave_idx_type&, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
78 octave_idx_type&, double*, octave_idx_type& |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
79 F77_CHAR_ARG_LEN_DECL); |
| 4552 | 80 |
| 81 F77_RET_T | |
| 82 F77_FUNC (dgebak, DGEBAK) (F77_CONST_CHAR_ARG_DECL, | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
83 F77_CONST_CHAR_ARG_DECL, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
84 const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, double*, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
85 const octave_idx_type&, double*, const octave_idx_type&, octave_idx_type& |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
86 F77_CHAR_ARG_LEN_DECL |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
87 F77_CHAR_ARG_LEN_DECL); |
| 4552 | 88 |
| 89 F77_RET_T | |
| 90 F77_FUNC (zgemm, ZGEMM) (F77_CONST_CHAR_ARG_DECL, | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
91 F77_CONST_CHAR_ARG_DECL, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
92 const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
93 const Complex&, const Complex*, const octave_idx_type&, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
94 const Complex*, const octave_idx_type&, const Complex&, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
95 Complex*, const octave_idx_type& |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
96 F77_CHAR_ARG_LEN_DECL |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
97 F77_CHAR_ARG_LEN_DECL); |
| 4552 | 98 |
| 99 F77_RET_T | |
| 5983 | 100 F77_FUNC (zgemv, ZGEMV) (F77_CONST_CHAR_ARG_DECL, |
| 101 const octave_idx_type&, const octave_idx_type&, const Complex&, | |
| 102 const Complex*, const octave_idx_type&, const Complex*, | |
| 103 const octave_idx_type&, const Complex&, Complex*, const octave_idx_type& | |
| 104 F77_CHAR_ARG_LEN_DECL); | |
| 105 | |
| 106 F77_RET_T | |
| 107 F77_FUNC (xzdotu, XZDOTU) (const octave_idx_type&, const Complex*, const octave_idx_type&, | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
108 const Complex*, const octave_idx_type&, Complex&); |
| 5983 | 109 |
| 110 F77_RET_T | |
|
7800
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7789
diff
changeset
|
111 F77_FUNC (xzdotc, XZDOTC) (const octave_idx_type&, const Complex*, const octave_idx_type&, |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
112 const Complex*, const octave_idx_type&, Complex&); |
|
7800
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7789
diff
changeset
|
113 |
|
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7789
diff
changeset
|
114 F77_RET_T |
|
7801
776791438957
map symmetric cases to xHERK, xSYRK
Jaroslav Hajek <highegg@gmail.com>
parents:
7800
diff
changeset
|
115 F77_FUNC (zsyrk, ZSYRK) (F77_CONST_CHAR_ARG_DECL, |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
116 F77_CONST_CHAR_ARG_DECL, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
117 const octave_idx_type&, const octave_idx_type&, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
118 const Complex&, const Complex*, const octave_idx_type&, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
119 const Complex&, Complex*, const octave_idx_type& |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
120 F77_CHAR_ARG_LEN_DECL |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
121 F77_CHAR_ARG_LEN_DECL); |
|
7801
776791438957
map symmetric cases to xHERK, xSYRK
Jaroslav Hajek <highegg@gmail.com>
parents:
7800
diff
changeset
|
122 |
|
776791438957
map symmetric cases to xHERK, xSYRK
Jaroslav Hajek <highegg@gmail.com>
parents:
7800
diff
changeset
|
123 F77_RET_T |
|
776791438957
map symmetric cases to xHERK, xSYRK
Jaroslav Hajek <highegg@gmail.com>
parents:
7800
diff
changeset
|
124 F77_FUNC (zherk, ZHERK) (F77_CONST_CHAR_ARG_DECL, |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
125 F77_CONST_CHAR_ARG_DECL, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
126 const octave_idx_type&, const octave_idx_type&, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
127 const double&, const Complex*, const octave_idx_type&, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
128 const double&, Complex*, const octave_idx_type& |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
129 F77_CHAR_ARG_LEN_DECL |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
130 F77_CHAR_ARG_LEN_DECL); |
|
7801
776791438957
map symmetric cases to xHERK, xSYRK
Jaroslav Hajek <highegg@gmail.com>
parents:
7800
diff
changeset
|
131 |
|
776791438957
map symmetric cases to xHERK, xSYRK
Jaroslav Hajek <highegg@gmail.com>
parents:
7800
diff
changeset
|
132 F77_RET_T |
| 5275 | 133 F77_FUNC (zgetrf, ZGETRF) (const octave_idx_type&, const octave_idx_type&, Complex*, const octave_idx_type&, |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
134 octave_idx_type*, octave_idx_type&); |
| 4552 | 135 |
| 136 F77_RET_T | |
| 137 F77_FUNC (zgetrs, ZGETRS) (F77_CONST_CHAR_ARG_DECL, | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
138 const octave_idx_type&, const octave_idx_type&, Complex*, const octave_idx_type&, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
139 const octave_idx_type*, Complex*, const octave_idx_type&, octave_idx_type& |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
140 F77_CHAR_ARG_LEN_DECL); |
| 4552 | 141 |
| 142 F77_RET_T | |
| 5275 | 143 F77_FUNC (zgetri, ZGETRI) (const octave_idx_type&, Complex*, const octave_idx_type&, const octave_idx_type*, |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
144 Complex*, const octave_idx_type&, octave_idx_type&); |
| 4552 | 145 |
| 146 F77_RET_T | |
| 147 F77_FUNC (zgecon, ZGECON) (F77_CONST_CHAR_ARG_DECL, | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
148 const octave_idx_type&, Complex*, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
149 const octave_idx_type&, const double&, double&, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
150 Complex*, double*, octave_idx_type& |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
151 F77_CHAR_ARG_LEN_DECL); |
| 4552 | 152 |
| 153 F77_RET_T | |
| 7072 | 154 F77_FUNC (zgelsy, ZGELSY) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
155 Complex*, const octave_idx_type&, Complex*, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
156 const octave_idx_type&, octave_idx_type*, double&, octave_idx_type&, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
157 Complex*, const octave_idx_type&, double*, octave_idx_type&); |
| 7072 | 158 |
| 159 F77_RET_T | |
| 160 F77_FUNC (zgelsd, ZGELSD) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
161 Complex*, const octave_idx_type&, Complex*, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
162 const octave_idx_type&, double*, double&, octave_idx_type&, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
163 Complex*, const octave_idx_type&, double*, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
164 octave_idx_type*, octave_idx_type&); |
| 458 | 165 |
| 5785 | 166 F77_RET_T |
| 167 F77_FUNC (zpotrf, ZPOTRF) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
168 Complex*, const octave_idx_type&, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
169 octave_idx_type& F77_CHAR_ARG_LEN_DECL); |
| 5785 | 170 |
| 171 F77_RET_T | |
| 172 F77_FUNC (zpocon, ZPOCON) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
173 Complex*, const octave_idx_type&, const double&, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
174 double&, Complex*, double*, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
175 octave_idx_type& F77_CHAR_ARG_LEN_DECL); |
| 5785 | 176 |
| 177 F77_RET_T | |
| 178 F77_FUNC (zpotrs, ZPOTRS) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
179 const octave_idx_type&, const Complex*, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
180 const octave_idx_type&, Complex*, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
181 const octave_idx_type&, octave_idx_type& |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
182 F77_CHAR_ARG_LEN_DECL); |
| 5785 | 183 |
| 184 F77_RET_T | |
| 6207 | 185 F77_FUNC (ztrtri, ZTRTRI) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
186 const octave_idx_type&, const Complex*, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
187 const octave_idx_type&, octave_idx_type& |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
188 F77_CHAR_ARG_LEN_DECL |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
189 F77_CHAR_ARG_LEN_DECL); |
| 6207 | 190 |
| 191 F77_RET_T | |
| 5785 | 192 F77_FUNC (ztrcon, ZTRCON) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
193 F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
194 const Complex*, const octave_idx_type&, double&, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
195 Complex*, double*, octave_idx_type& |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
196 F77_CHAR_ARG_LEN_DECL |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
197 F77_CHAR_ARG_LEN_DECL |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
198 F77_CHAR_ARG_LEN_DECL); |
| 5785 | 199 |
| 200 F77_RET_T | |
| 201 F77_FUNC (ztrtrs, ZTRTRS) (F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
202 F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
203 const octave_idx_type&, const Complex*, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
204 const octave_idx_type&, Complex*, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
205 const octave_idx_type&, octave_idx_type& |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
206 F77_CHAR_ARG_LEN_DECL |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
207 F77_CHAR_ARG_LEN_DECL |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
208 F77_CHAR_ARG_LEN_DECL); |
| 5785 | 209 |
| 4552 | 210 F77_RET_T |
| 211 F77_FUNC (zlartg, ZLARTG) (const Complex&, const Complex&, | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
212 double&, Complex&, Complex&); |
| 4552 | 213 |
| 214 F77_RET_T | |
| 215 F77_FUNC (ztrsyl, ZTRSYL) (F77_CONST_CHAR_ARG_DECL, | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
216 F77_CONST_CHAR_ARG_DECL, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
217 const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
218 const Complex*, const octave_idx_type&, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
219 const Complex*, const octave_idx_type&, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
220 const Complex*, const octave_idx_type&, double&, octave_idx_type& |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
221 F77_CHAR_ARG_LEN_DECL |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
222 F77_CHAR_ARG_LEN_DECL); |
| 4552 | 223 |
| 224 F77_RET_T | |
| 225 F77_FUNC (xzlange, XZLANGE) (F77_CONST_CHAR_ARG_DECL, | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
226 const octave_idx_type&, const octave_idx_type&, const Complex*, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
227 const octave_idx_type&, double*, double& |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
228 F77_CHAR_ARG_LEN_DECL); |
| 458 | 229 } |
| 230 | |
| 2354 | 231 static const Complex Complex_NaN_result (octave_NaN, octave_NaN); |
| 232 | |
| 1360 | 233 // Complex Matrix class |
| 458 | 234 |
| 235 ComplexMatrix::ComplexMatrix (const Matrix& a) | |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
236 : MArray<Complex> (a) |
| 458 | 237 { |
| 238 } | |
| 239 | |
| 2349 | 240 ComplexMatrix::ComplexMatrix (const RowVector& rv) |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
241 : MArray<Complex> (rv) |
| 2349 | 242 { |
| 243 } | |
| 244 | |
| 245 ComplexMatrix::ComplexMatrix (const ColumnVector& cv) | |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
246 : MArray<Complex> (cv) |
| 2349 | 247 { |
| 248 } | |
| 249 | |
| 458 | 250 ComplexMatrix::ComplexMatrix (const DiagMatrix& a) |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
251 : MArray<Complex> (a.rows (), a.cols (), 0.0) |
| 458 | 252 { |
| 5275 | 253 for (octave_idx_type i = 0; i < a.length (); i++) |
| 458 | 254 elem (i, i) = a.elem (i, i); |
| 255 } | |
| 256 | |
| 2349 | 257 ComplexMatrix::ComplexMatrix (const ComplexRowVector& rv) |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
258 : MArray<Complex> (rv) |
| 2349 | 259 { |
| 260 } | |
| 261 | |
| 262 ComplexMatrix::ComplexMatrix (const ComplexColumnVector& cv) | |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
263 : MArray<Complex> (cv) |
| 2349 | 264 { |
| 265 } | |
| 266 | |
| 458 | 267 ComplexMatrix::ComplexMatrix (const ComplexDiagMatrix& a) |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
268 : MArray<Complex> (a.rows (), a.cols (), 0.0) |
| 458 | 269 { |
| 5275 | 270 for (octave_idx_type i = 0; i < a.length (); i++) |
| 458 | 271 elem (i, i) = a.elem (i, i); |
| 272 } | |
| 273 | |
| 5775 | 274 // FIXME -- could we use a templated mixed-type copy function |
| 1574 | 275 // here? |
| 276 | |
| 2828 | 277 ComplexMatrix::ComplexMatrix (const boolMatrix& a) |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
278 : MArray<Complex> (a) |
| 2828 | 279 { |
| 280 } | |
| 281 | |
| 1574 | 282 ComplexMatrix::ComplexMatrix (const charMatrix& a) |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
283 : MArray<Complex> (a.rows (), a.cols (), 0.0) |
| 1574 | 284 { |
| 5275 | 285 for (octave_idx_type i = 0; i < a.rows (); i++) |
| 286 for (octave_idx_type j = 0; j < a.cols (); j++) | |
|
8956
d91fa4b20bbb
ensure nonnegative char -> real conversion
Jaroslav Hajek <highegg@gmail.com>
parents:
8920
diff
changeset
|
287 elem (i, j) = static_cast<unsigned char> (a.elem (i, j)); |
| 1574 | 288 } |
| 289 | |
|
9663
7e5b4de5fbfe
improve mixed real x complex ops
Jaroslav Hajek <highegg@gmail.com>
parents:
9661
diff
changeset
|
290 ComplexMatrix::ComplexMatrix (const Matrix& re, const Matrix& im) |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
291 : MArray<Complex> (re.rows (), re.cols ()) |
|
9663
7e5b4de5fbfe
improve mixed real x complex ops
Jaroslav Hajek <highegg@gmail.com>
parents:
9661
diff
changeset
|
292 { |
|
7e5b4de5fbfe
improve mixed real x complex ops
Jaroslav Hajek <highegg@gmail.com>
parents:
9661
diff
changeset
|
293 if (im.rows () != rows () || im.cols () != cols ()) |
|
7e5b4de5fbfe
improve mixed real x complex ops
Jaroslav Hajek <highegg@gmail.com>
parents:
9661
diff
changeset
|
294 (*current_liboctave_error_handler) ("complex: internal error"); |
|
7e5b4de5fbfe
improve mixed real x complex ops
Jaroslav Hajek <highegg@gmail.com>
parents:
9661
diff
changeset
|
295 |
|
7e5b4de5fbfe
improve mixed real x complex ops
Jaroslav Hajek <highegg@gmail.com>
parents:
9661
diff
changeset
|
296 octave_idx_type nel = numel (); |
|
7e5b4de5fbfe
improve mixed real x complex ops
Jaroslav Hajek <highegg@gmail.com>
parents:
9661
diff
changeset
|
297 for (octave_idx_type i = 0; i < nel; i++) |
|
7e5b4de5fbfe
improve mixed real x complex ops
Jaroslav Hajek <highegg@gmail.com>
parents:
9661
diff
changeset
|
298 xelem (i) = Complex (re(i), im(i)); |
|
7e5b4de5fbfe
improve mixed real x complex ops
Jaroslav Hajek <highegg@gmail.com>
parents:
9661
diff
changeset
|
299 } |
|
7e5b4de5fbfe
improve mixed real x complex ops
Jaroslav Hajek <highegg@gmail.com>
parents:
9661
diff
changeset
|
300 |
| 2384 | 301 bool |
| 458 | 302 ComplexMatrix::operator == (const ComplexMatrix& a) const |
| 303 { | |
| 304 if (rows () != a.rows () || cols () != a.cols ()) | |
| 2384 | 305 return false; |
| 458 | 306 |
|
9550
3d6a9aea2aea
refactor binary & bool ops in liboctave
Jaroslav Hajek <highegg@gmail.com>
parents:
9528
diff
changeset
|
307 return mx_inline_equal (length (), data (), a.data ()); |
| 458 | 308 } |
| 309 | |
| 2384 | 310 bool |
| 458 | 311 ComplexMatrix::operator != (const ComplexMatrix& a) const |
| 312 { | |
| 313 return !(*this == a); | |
| 314 } | |
| 315 | |
| 2815 | 316 bool |
| 317 ComplexMatrix::is_hermitian (void) const | |
| 318 { | |
| 5275 | 319 octave_idx_type nr = rows (); |
| 320 octave_idx_type nc = cols (); | |
| 2815 | 321 |
| 322 if (is_square () && nr > 0) | |
| 323 { | |
| 5275 | 324 for (octave_idx_type i = 0; i < nr; i++) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
325 for (octave_idx_type j = i; j < nc; j++) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
326 if (elem (i, j) != conj (elem (j, i))) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
327 return false; |
| 2815 | 328 |
| 329 return true; | |
| 330 } | |
| 331 | |
| 332 return false; | |
| 333 } | |
| 334 | |
| 458 | 335 // destructive insert/delete/reorder operations |
| 336 | |
| 337 ComplexMatrix& | |
| 5275 | 338 ComplexMatrix::insert (const Matrix& a, octave_idx_type r, octave_idx_type c) |
| 458 | 339 { |
| 5275 | 340 octave_idx_type a_nr = a.rows (); |
| 341 octave_idx_type a_nc = a.cols (); | |
| 1699 | 342 |
| 343 if (r < 0 || r + a_nr > rows () || c < 0 || c + a_nc > cols ()) | |
| 458 | 344 { |
| 345 (*current_liboctave_error_handler) ("range error for insert"); | |
| 346 return *this; | |
| 347 } | |
| 348 | |
| 4316 | 349 if (a_nr >0 && a_nc > 0) |
| 350 { | |
| 351 make_unique (); | |
| 352 | |
| 5275 | 353 for (octave_idx_type j = 0; j < a_nc; j++) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
354 for (octave_idx_type i = 0; i < a_nr; i++) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
355 xelem (r+i, c+j) = a.elem (i, j); |
| 4316 | 356 } |
| 458 | 357 |
| 358 return *this; | |
| 359 } | |
| 360 | |
| 361 ComplexMatrix& | |
| 5275 | 362 ComplexMatrix::insert (const RowVector& a, octave_idx_type r, octave_idx_type c) |
| 458 | 363 { |
| 5275 | 364 octave_idx_type a_len = a.length (); |
| 4316 | 365 |
| 1699 | 366 if (r < 0 || r >= rows () || c < 0 || c + a_len > cols ()) |
| 458 | 367 { |
| 368 (*current_liboctave_error_handler) ("range error for insert"); | |
| 369 return *this; | |
| 370 } | |
| 371 | |
| 4316 | 372 if (a_len > 0) |
| 373 { | |
| 374 make_unique (); | |
| 375 | |
| 5275 | 376 for (octave_idx_type i = 0; i < a_len; i++) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
377 xelem (r, c+i) = a.elem (i); |
| 4316 | 378 } |
| 458 | 379 |
| 380 return *this; | |
| 381 } | |
| 382 | |
| 383 ComplexMatrix& | |
| 5275 | 384 ComplexMatrix::insert (const ColumnVector& a, octave_idx_type r, octave_idx_type c) |
| 458 | 385 { |
| 5275 | 386 octave_idx_type a_len = a.length (); |
| 4316 | 387 |
| 1699 | 388 if (r < 0 || r + a_len > rows () || c < 0 || c >= cols ()) |
| 458 | 389 { |
| 390 (*current_liboctave_error_handler) ("range error for insert"); | |
| 391 return *this; | |
| 392 } | |
| 393 | |
| 4316 | 394 if (a_len > 0) |
| 395 { | |
| 396 make_unique (); | |
| 397 | |
| 5275 | 398 for (octave_idx_type i = 0; i < a_len; i++) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
399 xelem (r+i, c) = a.elem (i); |
| 4316 | 400 } |
| 458 | 401 |
| 402 return *this; | |
| 403 } | |
| 404 | |
| 405 ComplexMatrix& | |
| 5275 | 406 ComplexMatrix::insert (const DiagMatrix& a, octave_idx_type r, octave_idx_type c) |
| 458 | 407 { |
| 5275 | 408 octave_idx_type a_nr = a.rows (); |
| 409 octave_idx_type a_nc = a.cols (); | |
| 1699 | 410 |
| 411 if (r < 0 || r + a_nr > rows () || c < 0 || c + a_nc > cols ()) | |
| 458 | 412 { |
| 413 (*current_liboctave_error_handler) ("range error for insert"); | |
| 414 return *this; | |
| 415 } | |
| 416 | |
| 1699 | 417 fill (0.0, r, c, r + a_nr - 1, c + a_nc - 1); |
| 418 | |
| 5275 | 419 octave_idx_type a_len = a.length (); |
| 4316 | 420 |
| 421 if (a_len > 0) | |
| 422 { | |
| 423 make_unique (); | |
| 424 | |
| 5275 | 425 for (octave_idx_type i = 0; i < a_len; i++) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
426 xelem (r+i, c+i) = a.elem (i, i); |
| 4316 | 427 } |
| 458 | 428 |
| 429 return *this; | |
| 430 } | |
| 431 | |
| 432 ComplexMatrix& | |
| 5275 | 433 ComplexMatrix::insert (const ComplexMatrix& a, octave_idx_type r, octave_idx_type c) |
| 458 | 434 { |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
435 Array<Complex>::insert (a, r, c); |
| 458 | 436 return *this; |
| 437 } | |
| 438 | |
| 439 ComplexMatrix& | |
| 5275 | 440 ComplexMatrix::insert (const ComplexRowVector& a, octave_idx_type r, octave_idx_type c) |
| 458 | 441 { |
| 5275 | 442 octave_idx_type a_len = a.length (); |
| 1699 | 443 if (r < 0 || r >= rows () || c < 0 || c + a_len > cols ()) |
| 458 | 444 { |
| 445 (*current_liboctave_error_handler) ("range error for insert"); | |
| 446 return *this; | |
| 447 } | |
| 448 | |
| 5275 | 449 for (octave_idx_type i = 0; i < a_len; i++) |
| 458 | 450 elem (r, c+i) = a.elem (i); |
| 451 | |
| 452 return *this; | |
| 453 } | |
| 454 | |
| 455 ComplexMatrix& | |
| 5275 | 456 ComplexMatrix::insert (const ComplexColumnVector& a, octave_idx_type r, octave_idx_type c) |
| 458 | 457 { |
| 5275 | 458 octave_idx_type a_len = a.length (); |
| 4316 | 459 |
| 1699 | 460 if (r < 0 || r + a_len > rows () || c < 0 || c >= cols ()) |
| 458 | 461 { |
| 462 (*current_liboctave_error_handler) ("range error for insert"); | |
| 463 return *this; | |
| 464 } | |
| 465 | |
| 4316 | 466 if (a_len > 0) |
| 467 { | |
| 468 make_unique (); | |
| 469 | |
| 5275 | 470 for (octave_idx_type i = 0; i < a_len; i++) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
471 xelem (r+i, c) = a.elem (i); |
| 4316 | 472 } |
| 458 | 473 |
| 474 return *this; | |
| 475 } | |
| 476 | |
| 477 ComplexMatrix& | |
| 5275 | 478 ComplexMatrix::insert (const ComplexDiagMatrix& a, octave_idx_type r, octave_idx_type c) |
| 458 | 479 { |
| 5275 | 480 octave_idx_type a_nr = a.rows (); |
| 481 octave_idx_type a_nc = a.cols (); | |
| 1699 | 482 |
| 483 if (r < 0 || r + a_nr > rows () || c < 0 || c + a_nc > cols ()) | |
| 458 | 484 { |
| 485 (*current_liboctave_error_handler) ("range error for insert"); | |
| 486 return *this; | |
| 487 } | |
| 488 | |
| 1699 | 489 fill (0.0, r, c, r + a_nr - 1, c + a_nc - 1); |
| 490 | |
| 5275 | 491 octave_idx_type a_len = a.length (); |
| 4316 | 492 |
| 493 if (a_len > 0) | |
| 494 { | |
| 495 make_unique (); | |
| 496 | |
| 5275 | 497 for (octave_idx_type i = 0; i < a_len; i++) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
498 xelem (r+i, c+i) = a.elem (i, i); |
| 4316 | 499 } |
| 458 | 500 |
| 501 return *this; | |
| 502 } | |
| 503 | |
| 504 ComplexMatrix& | |
| 505 ComplexMatrix::fill (double val) | |
| 506 { | |
| 5275 | 507 octave_idx_type nr = rows (); |
| 508 octave_idx_type nc = cols (); | |
| 4316 | 509 |
| 458 | 510 if (nr > 0 && nc > 0) |
| 4316 | 511 { |
| 512 make_unique (); | |
| 513 | |
| 5275 | 514 for (octave_idx_type j = 0; j < nc; j++) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
515 for (octave_idx_type i = 0; i < nr; i++) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
516 xelem (i, j) = val; |
| 4316 | 517 } |
| 458 | 518 |
| 519 return *this; | |
| 520 } | |
| 521 | |
| 522 ComplexMatrix& | |
| 523 ComplexMatrix::fill (const Complex& val) | |
| 524 { | |
| 5275 | 525 octave_idx_type nr = rows (); |
| 526 octave_idx_type nc = cols (); | |
| 4316 | 527 |
| 458 | 528 if (nr > 0 && nc > 0) |
| 4316 | 529 { |
| 530 make_unique (); | |
| 531 | |
| 5275 | 532 for (octave_idx_type j = 0; j < nc; j++) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
533 for (octave_idx_type i = 0; i < nr; i++) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
534 xelem (i, j) = val; |
| 4316 | 535 } |
| 458 | 536 |
| 537 return *this; | |
| 538 } | |
| 539 | |
| 540 ComplexMatrix& | |
| 5275 | 541 ComplexMatrix::fill (double val, octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2) |
| 458 | 542 { |
| 5275 | 543 octave_idx_type nr = rows (); |
| 544 octave_idx_type nc = cols (); | |
| 4316 | 545 |
| 458 | 546 if (r1 < 0 || r2 < 0 || c1 < 0 || c2 < 0 |
| 547 || r1 >= nr || r2 >= nr || c1 >= nc || c2 >= nc) | |
| 548 { | |
| 549 (*current_liboctave_error_handler) ("range error for fill"); | |
| 550 return *this; | |
| 551 } | |
| 552 | |
| 5275 | 553 if (r1 > r2) { octave_idx_type tmp = r1; r1 = r2; r2 = tmp; } |
| 554 if (c1 > c2) { octave_idx_type tmp = c1; c1 = c2; c2 = tmp; } | |
| 458 | 555 |
| 4316 | 556 if (r2 >= r1 && c2 >= c1) |
| 557 { | |
| 558 make_unique (); | |
| 559 | |
| 5275 | 560 for (octave_idx_type j = c1; j <= c2; j++) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
561 for (octave_idx_type i = r1; i <= r2; i++) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
562 xelem (i, j) = val; |
| 4316 | 563 } |
| 458 | 564 |
| 565 return *this; | |
| 566 } | |
| 567 | |
| 568 ComplexMatrix& | |
| 5275 | 569 ComplexMatrix::fill (const Complex& val, octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2) |
| 458 | 570 { |
| 5275 | 571 octave_idx_type nr = rows (); |
| 572 octave_idx_type nc = cols (); | |
| 4316 | 573 |
| 458 | 574 if (r1 < 0 || r2 < 0 || c1 < 0 || c2 < 0 |
| 575 || r1 >= nr || r2 >= nr || c1 >= nc || c2 >= nc) | |
| 576 { | |
| 577 (*current_liboctave_error_handler) ("range error for fill"); | |
| 578 return *this; | |
| 579 } | |
| 580 | |
| 5275 | 581 if (r1 > r2) { octave_idx_type tmp = r1; r1 = r2; r2 = tmp; } |
| 582 if (c1 > c2) { octave_idx_type tmp = c1; c1 = c2; c2 = tmp; } | |
| 458 | 583 |
| 4316 | 584 if (r2 >= r1 && c2 >=c1) |
| 585 { | |
| 586 make_unique (); | |
| 587 | |
| 5275 | 588 for (octave_idx_type j = c1; j <= c2; j++) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
589 for (octave_idx_type i = r1; i <= r2; i++) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
590 xelem (i, j) = val; |
| 4316 | 591 } |
| 458 | 592 |
| 593 return *this; | |
| 594 } | |
| 595 | |
| 596 ComplexMatrix | |
| 597 ComplexMatrix::append (const Matrix& a) const | |
| 598 { | |
| 5275 | 599 octave_idx_type nr = rows (); |
| 600 octave_idx_type nc = cols (); | |
| 458 | 601 if (nr != a.rows ()) |
| 602 { | |
| 603 (*current_liboctave_error_handler) ("row dimension mismatch for append"); | |
| 604 return *this; | |
| 605 } | |
| 606 | |
| 5275 | 607 octave_idx_type nc_insert = nc; |
| 458 | 608 ComplexMatrix retval (nr, nc + a.cols ()); |
| 609 retval.insert (*this, 0, 0); | |
| 610 retval.insert (a, 0, nc_insert); | |
| 611 return retval; | |
| 612 } | |
| 613 | |
| 614 ComplexMatrix | |
| 615 ComplexMatrix::append (const RowVector& a) const | |
| 616 { | |
| 5275 | 617 octave_idx_type nr = rows (); |
| 618 octave_idx_type nc = cols (); | |
| 458 | 619 if (nr != 1) |
| 620 { | |
| 621 (*current_liboctave_error_handler) ("row dimension mismatch for append"); | |
| 622 return *this; | |
| 623 } | |
| 624 | |
| 5275 | 625 octave_idx_type nc_insert = nc; |
| 458 | 626 ComplexMatrix retval (nr, nc + a.length ()); |
| 627 retval.insert (*this, 0, 0); | |
| 628 retval.insert (a, 0, nc_insert); | |
| 629 return retval; | |
| 630 } | |
| 631 | |
| 632 ComplexMatrix | |
| 633 ComplexMatrix::append (const ColumnVector& a) const | |
| 634 { | |
| 5275 | 635 octave_idx_type nr = rows (); |
| 636 octave_idx_type nc = cols (); | |
| 458 | 637 if (nr != a.length ()) |
| 638 { | |
| 639 (*current_liboctave_error_handler) ("row dimension mismatch for append"); | |
| 640 return *this; | |
| 641 } | |
| 642 | |
| 5275 | 643 octave_idx_type nc_insert = nc; |
| 458 | 644 ComplexMatrix retval (nr, nc + 1); |
| 645 retval.insert (*this, 0, 0); | |
| 646 retval.insert (a, 0, nc_insert); | |
| 647 return retval; | |
| 648 } | |
| 649 | |
| 650 ComplexMatrix | |
| 651 ComplexMatrix::append (const DiagMatrix& a) const | |
| 652 { | |
| 5275 | 653 octave_idx_type nr = rows (); |
| 654 octave_idx_type nc = cols (); | |
| 458 | 655 if (nr != a.rows ()) |
| 656 { | |
| 657 (*current_liboctave_error_handler) ("row dimension mismatch for append"); | |
| 658 return *this; | |
| 659 } | |
| 660 | |
| 5275 | 661 octave_idx_type nc_insert = nc; |
| 458 | 662 ComplexMatrix retval (nr, nc + a.cols ()); |
| 663 retval.insert (*this, 0, 0); | |
| 664 retval.insert (a, 0, nc_insert); | |
| 665 return retval; | |
| 666 } | |
| 667 | |
| 668 ComplexMatrix | |
| 669 ComplexMatrix::append (const ComplexMatrix& a) const | |
| 670 { | |
| 5275 | 671 octave_idx_type nr = rows (); |
| 672 octave_idx_type nc = cols (); | |
| 458 | 673 if (nr != a.rows ()) |
| 674 { | |
| 675 (*current_liboctave_error_handler) ("row dimension mismatch for append"); | |
| 676 return *this; | |
| 677 } | |
| 678 | |
| 5275 | 679 octave_idx_type nc_insert = nc; |
| 458 | 680 ComplexMatrix retval (nr, nc + a.cols ()); |
| 681 retval.insert (*this, 0, 0); | |
| 682 retval.insert (a, 0, nc_insert); | |
| 683 return retval; | |
| 684 } | |
| 685 | |
| 686 ComplexMatrix | |
| 687 ComplexMatrix::append (const ComplexRowVector& a) const | |
| 688 { | |
| 5275 | 689 octave_idx_type nr = rows (); |
| 690 octave_idx_type nc = cols (); | |
| 458 | 691 if (nr != 1) |
| 692 { | |
| 693 (*current_liboctave_error_handler) ("row dimension mismatch for append"); | |
| 694 return *this; | |
| 695 } | |
| 696 | |
| 5275 | 697 octave_idx_type nc_insert = nc; |
| 458 | 698 ComplexMatrix retval (nr, nc + a.length ()); |
| 699 retval.insert (*this, 0, 0); | |
| 700 retval.insert (a, 0, nc_insert); | |
| 701 return retval; | |
| 702 } | |
| 703 | |
| 704 ComplexMatrix | |
| 705 ComplexMatrix::append (const ComplexColumnVector& a) const | |
| 706 { | |
| 5275 | 707 octave_idx_type nr = rows (); |
| 708 octave_idx_type nc = cols (); | |
| 458 | 709 if (nr != a.length ()) |
| 710 { | |
| 711 (*current_liboctave_error_handler) ("row dimension mismatch for append"); | |
| 712 return *this; | |
| 713 } | |
| 714 | |
| 5275 | 715 octave_idx_type nc_insert = nc; |
| 458 | 716 ComplexMatrix retval (nr, nc + 1); |
| 717 retval.insert (*this, 0, 0); | |
| 718 retval.insert (a, 0, nc_insert); | |
| 719 return retval; | |
| 720 } | |
| 721 | |
| 722 ComplexMatrix | |
| 723 ComplexMatrix::append (const ComplexDiagMatrix& a) const | |
| 724 { | |
| 5275 | 725 octave_idx_type nr = rows (); |
| 726 octave_idx_type nc = cols (); | |
| 458 | 727 if (nr != a.rows ()) |
| 728 { | |
| 729 (*current_liboctave_error_handler) ("row dimension mismatch for append"); | |
| 730 return *this; | |
| 731 } | |
| 732 | |
| 5275 | 733 octave_idx_type nc_insert = nc; |
| 458 | 734 ComplexMatrix retval (nr, nc + a.cols ()); |
| 735 retval.insert (*this, 0, 0); | |
| 736 retval.insert (a, 0, nc_insert); | |
| 737 return retval; | |
| 738 } | |
| 739 | |
| 740 ComplexMatrix | |
| 741 ComplexMatrix::stack (const Matrix& a) const | |
| 742 { | |
| 5275 | 743 octave_idx_type nr = rows (); |
| 744 octave_idx_type nc = cols (); | |
| 458 | 745 if (nc != a.cols ()) |
| 746 { | |
| 747 (*current_liboctave_error_handler) | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
748 ("column dimension mismatch for stack"); |
| 458 | 749 return *this; |
| 750 } | |
| 751 | |
| 5275 | 752 octave_idx_type nr_insert = nr; |
| 458 | 753 ComplexMatrix retval (nr + a.rows (), nc); |
| 754 retval.insert (*this, 0, 0); | |
| 755 retval.insert (a, nr_insert, 0); | |
| 756 return retval; | |
| 757 } | |
| 758 | |
| 759 ComplexMatrix | |
| 760 ComplexMatrix::stack (const RowVector& a) const | |
| 761 { | |
| 5275 | 762 octave_idx_type nr = rows (); |
| 763 octave_idx_type nc = cols (); | |
| 458 | 764 if (nc != a.length ()) |
| 765 { | |
| 766 (*current_liboctave_error_handler) | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
767 ("column dimension mismatch for stack"); |
| 458 | 768 return *this; |
| 769 } | |
| 770 | |
| 5275 | 771 octave_idx_type nr_insert = nr; |
| 458 | 772 ComplexMatrix retval (nr + 1, nc); |
| 773 retval.insert (*this, 0, 0); | |
| 774 retval.insert (a, nr_insert, 0); | |
| 775 return retval; | |
| 776 } | |
| 777 | |
| 778 ComplexMatrix | |
| 779 ComplexMatrix::stack (const ColumnVector& a) const | |
| 780 { | |
| 5275 | 781 octave_idx_type nr = rows (); |
| 782 octave_idx_type nc = cols (); | |
| 458 | 783 if (nc != 1) |
| 784 { | |
| 785 (*current_liboctave_error_handler) | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
786 ("column dimension mismatch for stack"); |
| 458 | 787 return *this; |
| 788 } | |
| 789 | |
| 5275 | 790 octave_idx_type nr_insert = nr; |
| 458 | 791 ComplexMatrix retval (nr + a.length (), nc); |
| 792 retval.insert (*this, 0, 0); | |
| 793 retval.insert (a, nr_insert, 0); | |
| 794 return retval; | |
| 795 } | |
| 796 | |
| 797 ComplexMatrix | |
| 798 ComplexMatrix::stack (const DiagMatrix& a) const | |
| 799 { | |
| 5275 | 800 octave_idx_type nr = rows (); |
| 801 octave_idx_type nc = cols (); | |
| 458 | 802 if (nc != a.cols ()) |
| 803 { | |
| 804 (*current_liboctave_error_handler) | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
805 ("column dimension mismatch for stack"); |
| 458 | 806 return *this; |
| 807 } | |
| 808 | |
| 5275 | 809 octave_idx_type nr_insert = nr; |
| 458 | 810 ComplexMatrix retval (nr + a.rows (), nc); |
| 811 retval.insert (*this, 0, 0); | |
| 812 retval.insert (a, nr_insert, 0); | |
| 813 return retval; | |
| 814 } | |
| 815 | |
| 816 ComplexMatrix | |
| 817 ComplexMatrix::stack (const ComplexMatrix& a) const | |
| 818 { | |
| 5275 | 819 octave_idx_type nr = rows (); |
| 820 octave_idx_type nc = cols (); | |
| 458 | 821 if (nc != a.cols ()) |
| 822 { | |
| 823 (*current_liboctave_error_handler) | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
824 ("column dimension mismatch for stack"); |
| 458 | 825 return *this; |
| 826 } | |
| 827 | |
| 5275 | 828 octave_idx_type nr_insert = nr; |
| 458 | 829 ComplexMatrix retval (nr + a.rows (), nc); |
| 830 retval.insert (*this, 0, 0); | |
| 831 retval.insert (a, nr_insert, 0); | |
| 832 return retval; | |
| 833 } | |
| 834 | |
| 835 ComplexMatrix | |
| 836 ComplexMatrix::stack (const ComplexRowVector& a) const | |
| 837 { | |
| 5275 | 838 octave_idx_type nr = rows (); |
| 839 octave_idx_type nc = cols (); | |
| 458 | 840 if (nc != a.length ()) |
| 841 { | |
| 842 (*current_liboctave_error_handler) | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
843 ("column dimension mismatch for stack"); |
| 458 | 844 return *this; |
| 845 } | |
| 846 | |
| 5275 | 847 octave_idx_type nr_insert = nr; |
| 458 | 848 ComplexMatrix retval (nr + 1, nc); |
| 849 retval.insert (*this, 0, 0); | |
| 850 retval.insert (a, nr_insert, 0); | |
| 851 return retval; | |
| 852 } | |
| 853 | |
| 854 ComplexMatrix | |
| 855 ComplexMatrix::stack (const ComplexColumnVector& a) const | |
| 856 { | |
| 5275 | 857 octave_idx_type nr = rows (); |
| 858 octave_idx_type nc = cols (); | |
| 458 | 859 if (nc != 1) |
| 860 { | |
| 861 (*current_liboctave_error_handler) | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
862 ("column dimension mismatch for stack"); |
| 458 | 863 return *this; |
| 864 } | |
| 865 | |
| 5275 | 866 octave_idx_type nr_insert = nr; |
| 458 | 867 ComplexMatrix retval (nr + a.length (), nc); |
| 868 retval.insert (*this, 0, 0); | |
| 869 retval.insert (a, nr_insert, 0); | |
| 870 return retval; | |
| 871 } | |
| 872 | |
| 873 ComplexMatrix | |
| 874 ComplexMatrix::stack (const ComplexDiagMatrix& a) const | |
| 875 { | |
| 5275 | 876 octave_idx_type nr = rows (); |
| 877 octave_idx_type nc = cols (); | |
| 458 | 878 if (nc != a.cols ()) |
| 879 { | |
| 880 (*current_liboctave_error_handler) | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
881 ("column dimension mismatch for stack"); |
| 458 | 882 return *this; |
| 883 } | |
| 884 | |
| 5275 | 885 octave_idx_type nr_insert = nr; |
| 458 | 886 ComplexMatrix retval (nr + a.rows (), nc); |
| 887 retval.insert (*this, 0, 0); | |
| 888 retval.insert (a, nr_insert, 0); | |
| 889 return retval; | |
| 890 } | |
| 891 | |
| 892 ComplexMatrix | |
| 893 conj (const ComplexMatrix& a) | |
| 894 { | |
|
10363
a0728e81ed25
improve diag matrix interface & implementation
Jaroslav Hajek <highegg@gmail.com>
parents:
10362
diff
changeset
|
895 return do_mx_unary_map<Complex, Complex, std::conj> (a); |
| 458 | 896 } |
| 897 | |
| 898 // resize is the destructive equivalent for this one | |
| 899 | |
| 900 ComplexMatrix | |
| 5275 | 901 ComplexMatrix::extract (octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2) const |
| 458 | 902 { |
| 5275 | 903 if (r1 > r2) { octave_idx_type tmp = r1; r1 = r2; r2 = tmp; } |
| 904 if (c1 > c2) { octave_idx_type tmp = c1; c1 = c2; c2 = tmp; } | |
| 905 | |
| 906 octave_idx_type new_r = r2 - r1 + 1; | |
| 907 octave_idx_type new_c = c2 - c1 + 1; | |
| 458 | 908 |
| 909 ComplexMatrix result (new_r, new_c); | |
| 910 | |
| 5275 | 911 for (octave_idx_type j = 0; j < new_c; j++) |
| 912 for (octave_idx_type i = 0; i < new_r; i++) | |
| 4316 | 913 result.xelem (i, j) = elem (r1+i, c1+j); |
| 914 | |
| 915 return result; | |
| 916 } | |
| 917 | |
| 918 ComplexMatrix | |
| 5275 | 919 ComplexMatrix::extract_n (octave_idx_type r1, octave_idx_type c1, octave_idx_type nr, octave_idx_type nc) const |
| 4316 | 920 { |
| 921 ComplexMatrix result (nr, nc); | |
| 922 | |
| 5275 | 923 for (octave_idx_type j = 0; j < nc; j++) |
| 924 for (octave_idx_type i = 0; i < nr; i++) | |
| 4316 | 925 result.xelem (i, j) = elem (r1+i, c1+j); |
| 458 | 926 |
| 927 return result; | |
| 928 } | |
| 929 | |
| 930 // extract row or column i. | |
| 931 | |
| 932 ComplexRowVector | |
| 5275 | 933 ComplexMatrix::row (octave_idx_type i) const |
| 458 | 934 { |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
935 return index (idx_vector (i), idx_vector::colon); |
| 458 | 936 } |
| 937 | |
| 938 ComplexColumnVector | |
| 5275 | 939 ComplexMatrix::column (octave_idx_type i) const |
| 458 | 940 { |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
941 return index (idx_vector::colon, idx_vector (i)); |
| 458 | 942 } |
| 943 | |
| 944 ComplexMatrix | |
| 945 ComplexMatrix::inverse (void) const | |
| 946 { | |
| 5275 | 947 octave_idx_type info; |
| 7788 | 948 double rcon; |
| 6207 | 949 MatrixType mattype (*this); |
| 7788 | 950 return inverse (mattype, info, rcon, 0, 0); |
| 6207 | 951 } |
| 952 | |
| 953 ComplexMatrix | |
| 6479 | 954 ComplexMatrix::inverse (octave_idx_type& info) const |
| 955 { | |
| 7788 | 956 double rcon; |
| 6479 | 957 MatrixType mattype (*this); |
| 7788 | 958 return inverse (mattype, info, rcon, 0, 0); |
| 6479 | 959 } |
| 960 | |
| 961 ComplexMatrix | |
| 7788 | 962 ComplexMatrix::inverse (octave_idx_type& info, double& rcon, int force, |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
963 int calc_cond) const |
| 6479 | 964 { |
| 965 MatrixType mattype (*this); | |
| 7788 | 966 return inverse (mattype, info, rcon, force, calc_cond); |
| 6479 | 967 } |
| 968 | |
| 969 ComplexMatrix | |
| 6207 | 970 ComplexMatrix::inverse (MatrixType &mattype) const |
| 971 { | |
| 972 octave_idx_type info; | |
| 7788 | 973 double rcon; |
| 974 return inverse (mattype, info, rcon, 0, 0); | |
| 6207 | 975 } |
| 976 | |
| 977 ComplexMatrix | |
| 978 ComplexMatrix::inverse (MatrixType &mattype, octave_idx_type& info) const | |
| 979 { | |
| 7788 | 980 double rcon; |
| 981 return inverse (mattype, info, rcon, 0, 0); | |
| 458 | 982 } |
| 983 | |
| 984 ComplexMatrix | |
| 6207 | 985 ComplexMatrix::tinverse (MatrixType &mattype, octave_idx_type& info, |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
986 double& rcon, int force, int calc_cond) const |
| 458 | 987 { |
| 6207 | 988 ComplexMatrix retval; |
| 989 | |
| 990 octave_idx_type nr = rows (); | |
| 991 octave_idx_type nc = cols (); | |
| 992 | |
| 993 if (nr != nc || nr == 0 || nc == 0) | |
| 994 (*current_liboctave_error_handler) ("inverse requires square matrix"); | |
| 995 else | |
| 996 { | |
| 997 int typ = mattype.type (); | |
| 998 char uplo = (typ == MatrixType::Lower ? 'L' : 'U'); | |
| 999 char udiag = 'N'; | |
| 1000 retval = *this; | |
| 1001 Complex *tmp_data = retval.fortran_vec (); | |
| 1002 | |
| 1003 F77_XFCN (ztrtri, ZTRTRI, (F77_CONST_CHAR_ARG2 (&uplo, 1), | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1004 F77_CONST_CHAR_ARG2 (&udiag, 1), |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1005 nr, tmp_data, nr, info |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1006 F77_CHAR_ARG_LEN (1) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1007 F77_CHAR_ARG_LEN (1))); |
| 6207 | 1008 |
|
7482
29980c6b8604
don't check f77_exception_encountered
John W. Eaton <jwe@octave.org>
parents:
7478
diff
changeset
|
1009 // Throw-away extra info LAPACK gives so as to not change output. |
| 7788 | 1010 rcon = 0.0; |
|
7482
29980c6b8604
don't check f77_exception_encountered
John W. Eaton <jwe@octave.org>
parents:
7478
diff
changeset
|
1011 if (info != 0) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1012 info = -1; |
|
7482
29980c6b8604
don't check f77_exception_encountered
John W. Eaton <jwe@octave.org>
parents:
7478
diff
changeset
|
1013 else if (calc_cond) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1014 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1015 octave_idx_type ztrcon_info = 0; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1016 char job = '1'; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1017 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1018 OCTAVE_LOCAL_BUFFER (Complex, cwork, 2*nr); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1019 OCTAVE_LOCAL_BUFFER (double, rwork, nr); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1020 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1021 F77_XFCN (ztrcon, ZTRCON, (F77_CONST_CHAR_ARG2 (&job, 1), |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1022 F77_CONST_CHAR_ARG2 (&uplo, 1), |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1023 F77_CONST_CHAR_ARG2 (&udiag, 1), |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1024 nr, tmp_data, nr, rcon, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1025 cwork, rwork, ztrcon_info |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1026 F77_CHAR_ARG_LEN (1) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1027 F77_CHAR_ARG_LEN (1) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1028 F77_CHAR_ARG_LEN (1))); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1029 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1030 if (ztrcon_info != 0) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1031 info = -1; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1032 } |
| 6207 | 1033 |
| 1034 if (info == -1 && ! force) | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1035 retval = *this; // Restore matrix contents. |
| 6207 | 1036 } |
| 1037 | |
| 1038 return retval; | |
| 458 | 1039 } |
| 1040 | |
| 1041 ComplexMatrix | |
| 6207 | 1042 ComplexMatrix::finverse (MatrixType &mattype, octave_idx_type& info, |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1043 double& rcon, int force, int calc_cond) const |
| 458 | 1044 { |
| 1948 | 1045 ComplexMatrix retval; |
| 1046 | |
| 5275 | 1047 octave_idx_type nr = rows (); |
| 1048 octave_idx_type nc = cols (); | |
| 1948 | 1049 |
| 458 | 1050 if (nr != nc) |
| 1948 | 1051 (*current_liboctave_error_handler) ("inverse requires square matrix"); |
| 458 | 1052 else |
| 1053 { | |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
1054 Array<octave_idx_type> ipvt (nr, 1); |
| 5275 | 1055 octave_idx_type *pipvt = ipvt.fortran_vec (); |
| 1948 | 1056 |
| 1057 retval = *this; | |
| 1058 Complex *tmp_data = retval.fortran_vec (); | |
| 1059 | |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
1060 Array<Complex> z(1, 1); |
| 5275 | 1061 octave_idx_type lwork = -1; |
| 4330 | 1062 |
| 1063 // Query the optimum work array size. | |
| 4329 | 1064 |
| 1065 F77_XFCN (zgetri, ZGETRI, (nc, tmp_data, nr, pipvt, | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1066 z.fortran_vec (), lwork, info)); |
| 4329 | 1067 |
| 5315 | 1068 lwork = static_cast<octave_idx_type> (std::real(z(0))); |
| 4329 | 1069 lwork = (lwork < 2 *nc ? 2*nc : lwork); |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
1070 z.resize (lwork, 1); |
| 4329 | 1071 Complex *pz = z.fortran_vec (); |
| 1072 | |
| 1073 info = 0; | |
| 1074 | |
| 4330 | 1075 // Calculate the norm of the matrix, for later use. |
| 4329 | 1076 double anorm; |
| 1077 if (calc_cond) | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1078 anorm = retval.abs().sum().row(static_cast<octave_idx_type>(0)).max(); |
| 4329 | 1079 |
| 1080 F77_XFCN (zgetrf, ZGETRF, (nc, nc, tmp_data, nr, pipvt, info)); | |
| 1948 | 1081 |
|
7482
29980c6b8604
don't check f77_exception_encountered
John W. Eaton <jwe@octave.org>
parents:
7478
diff
changeset
|
1082 // Throw-away extra info LAPACK gives so as to not change output. |
| 7788 | 1083 rcon = 0.0; |
|
7482
29980c6b8604
don't check f77_exception_encountered
John W. Eaton <jwe@octave.org>
parents:
7478
diff
changeset
|
1084 if (info != 0) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1085 info = -1; |
|
7482
29980c6b8604
don't check f77_exception_encountered
John W. Eaton <jwe@octave.org>
parents:
7478
diff
changeset
|
1086 else if (calc_cond) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1087 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1088 // Now calculate the condition number for non-singular matrix. |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1089 octave_idx_type zgecon_info = 0; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1090 char job = '1'; |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
1091 Array<double> rz (2 * nc, 1); |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1092 double *prz = rz.fortran_vec (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1093 F77_XFCN (zgecon, ZGECON, (F77_CONST_CHAR_ARG2 (&job, 1), |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1094 nc, tmp_data, nr, anorm, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1095 rcon, pz, prz, zgecon_info |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1096 F77_CHAR_ARG_LEN (1))); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1097 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1098 if (zgecon_info != 0) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1099 info = -1; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1100 } |
|
7482
29980c6b8604
don't check f77_exception_encountered
John W. Eaton <jwe@octave.org>
parents:
7478
diff
changeset
|
1101 |
|
29980c6b8604
don't check f77_exception_encountered
John W. Eaton <jwe@octave.org>
parents:
7478
diff
changeset
|
1102 if (info == -1 && ! force) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1103 retval = *this; // Restore contents. |
| 1948 | 1104 else |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1105 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1106 octave_idx_type zgetri_info = 0; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1107 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1108 F77_XFCN (zgetri, ZGETRI, (nc, tmp_data, nr, pipvt, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1109 pz, lwork, zgetri_info)); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1110 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1111 if (zgetri_info != 0) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1112 info = -1; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1113 } |
| 6207 | 1114 |
| 1115 if (info != 0) | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1116 mattype.mark_as_rectangular(); |
| 458 | 1117 } |
| 4329 | 1118 |
| 1948 | 1119 return retval; |
| 458 | 1120 } |
| 1121 | |
| 1122 ComplexMatrix | |
| 6207 | 1123 ComplexMatrix::inverse (MatrixType &mattype, octave_idx_type& info, |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1124 double& rcon, int force, int calc_cond) const |
| 6207 | 1125 { |
| 1126 int typ = mattype.type (false); | |
| 1127 ComplexMatrix ret; | |
| 1128 | |
| 1129 if (typ == MatrixType::Unknown) | |
| 1130 typ = mattype.type (*this); | |
| 1131 | |
| 1132 if (typ == MatrixType::Upper || typ == MatrixType::Lower) | |
| 7788 | 1133 ret = tinverse (mattype, info, rcon, force, calc_cond); |
| 6840 | 1134 else |
| 6207 | 1135 { |
| 1136 if (mattype.is_hermitian ()) | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1137 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1138 ComplexCHOL chol (*this, info, calc_cond); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1139 if (info == 0) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1140 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1141 if (calc_cond) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1142 rcon = chol.rcond(); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1143 else |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1144 rcon = 1.0; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1145 ret = chol.inverse (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1146 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1147 else |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1148 mattype.mark_as_unsymmetric (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1149 } |
| 6207 | 1150 |
| 1151 if (!mattype.is_hermitian ()) | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1152 ret = finverse(mattype, info, rcon, force, calc_cond); |
| 7788 | 1153 |
| 1154 if ((mattype.is_hermitian () || calc_cond) && rcon == 0.) | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1155 ret = ComplexMatrix (rows (), columns (), Complex (octave_Inf, 0.)); |
| 6207 | 1156 } |
| 1157 | |
| 1158 return ret; | |
| 1159 } | |
| 1160 | |
| 1161 ComplexMatrix | |
| 4384 | 1162 ComplexMatrix::pseudo_inverse (double tol) const |
| 740 | 1163 { |
| 1549 | 1164 ComplexMatrix retval; |
| 1165 | |
| 3480 | 1166 ComplexSVD result (*this, SVD::economy); |
| 740 | 1167 |
| 1168 DiagMatrix S = result.singular_values (); | |
| 1169 ComplexMatrix U = result.left_singular_matrix (); | |
| 1170 ComplexMatrix V = result.right_singular_matrix (); | |
| 1171 | |
| 1172 ColumnVector sigma = S.diag (); | |
| 1173 | |
| 5275 | 1174 octave_idx_type r = sigma.length () - 1; |
| 1175 octave_idx_type nr = rows (); | |
| 1176 octave_idx_type nc = cols (); | |
| 740 | 1177 |
| 1178 if (tol <= 0.0) | |
| 1179 { | |
| 1180 if (nr > nc) | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1181 tol = nr * sigma.elem (0) * DBL_EPSILON; |
| 740 | 1182 else |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1183 tol = nc * sigma.elem (0) * DBL_EPSILON; |
| 740 | 1184 } |
| 1185 | |
| 1186 while (r >= 0 && sigma.elem (r) < tol) | |
| 1187 r--; | |
| 1188 | |
| 1189 if (r < 0) | |
| 1549 | 1190 retval = ComplexMatrix (nc, nr, 0.0); |
| 740 | 1191 else |
| 1192 { | |
| 1193 ComplexMatrix Ur = U.extract (0, 0, nr-1, r); | |
| 1194 DiagMatrix D = DiagMatrix (sigma.extract (0, r)) . inverse (); | |
| 1195 ComplexMatrix Vr = V.extract (0, 0, nc-1, r); | |
| 1549 | 1196 retval = Vr * D * Ur.hermitian (); |
| 740 | 1197 } |
| 1549 | 1198 |
| 1199 return retval; | |
| 740 | 1200 } |
| 1201 | |
|
9523
0ce82753dd72
more configure changes for libraries
John W. Eaton <jwe@octave.org>
parents:
9469
diff
changeset
|
1202 #if defined (HAVE_FFTW) |
| 3827 | 1203 |
| 1204 ComplexMatrix | |
| 1205 ComplexMatrix::fourier (void) const | |
| 1206 { | |
| 1207 size_t nr = rows (); | |
| 1208 size_t nc = cols (); | |
| 1209 | |
| 1210 ComplexMatrix retval (nr, nc); | |
| 1211 | |
| 1212 size_t npts, nsamples; | |
| 1213 | |
| 1214 if (nr == 1 || nc == 1) | |
| 1215 { | |
| 1216 npts = nr > nc ? nr : nc; | |
| 1217 nsamples = 1; | |
| 1218 } | |
| 1219 else | |
| 1220 { | |
| 1221 npts = nr; | |
| 1222 nsamples = nc; | |
| 1223 } | |
| 1224 | |
| 1225 const Complex *in (data ()); | |
| 1226 Complex *out (retval.fortran_vec ()); | |
| 1227 | |
| 4773 | 1228 octave_fftw::fft (in, out, npts, nsamples); |
| 3827 | 1229 |
| 1230 return retval; | |
| 1231 } | |
| 1232 | |
| 1233 ComplexMatrix | |
| 1234 ComplexMatrix::ifourier (void) const | |
| 1235 { | |
| 1236 size_t nr = rows (); | |
| 1237 size_t nc = cols (); | |
| 1238 | |
| 1239 ComplexMatrix retval (nr, nc); | |
| 1240 | |
| 1241 size_t npts, nsamples; | |
| 1242 | |
| 1243 if (nr == 1 || nc == 1) | |
| 1244 { | |
| 1245 npts = nr > nc ? nr : nc; | |
| 1246 nsamples = 1; | |
| 1247 } | |
| 1248 else | |
| 1249 { | |
| 1250 npts = nr; | |
| 1251 nsamples = nc; | |
| 1252 } | |
| 1253 | |
| 1254 const Complex *in (data ()); | |
| 1255 Complex *out (retval.fortran_vec ()); | |
| 1256 | |
| 4773 | 1257 octave_fftw::ifft (in, out, npts, nsamples); |
| 3827 | 1258 |
| 1259 return retval; | |
| 1260 } | |
| 1261 | |
| 1262 ComplexMatrix | |
| 1263 ComplexMatrix::fourier2d (void) const | |
| 1264 { | |
| 4773 | 1265 dim_vector dv(rows (), cols ()); |
| 1266 | |
| 1267 ComplexMatrix retval (rows (), cols ()); | |
| 1268 const Complex *in (data ()); | |
| 1269 Complex *out (retval.fortran_vec ()); | |
| 1270 | |
| 1271 octave_fftw::fftNd (in, out, 2, dv); | |
| 3827 | 1272 |
| 1273 return retval; | |
| 1274 } | |
| 1275 | |
| 1276 ComplexMatrix | |
| 1277 ComplexMatrix::ifourier2d (void) const | |
| 1278 { | |
| 4773 | 1279 dim_vector dv(rows (), cols ()); |
| 1280 | |
| 1281 ComplexMatrix retval (rows (), cols ()); | |
| 1282 const Complex *in (data ()); | |
| 1283 Complex *out (retval.fortran_vec ()); | |
| 1284 | |
| 1285 octave_fftw::ifftNd (in, out, 2, dv); | |
| 3827 | 1286 |
| 1287 return retval; | |
| 1288 } | |
| 1289 | |
| 1290 #else | |
| 1291 | |
|
9523
0ce82753dd72
more configure changes for libraries
John W. Eaton <jwe@octave.org>
parents:
9469
diff
changeset
|
1292 extern "C" |
|
0ce82753dd72
more configure changes for libraries
John W. Eaton <jwe@octave.org>
parents:
9469
diff
changeset
|
1293 { |
|
0ce82753dd72
more configure changes for libraries
John W. Eaton <jwe@octave.org>
parents:
9469
diff
changeset
|
1294 // Note that the original complex fft routines were not written for |
|
0ce82753dd72
more configure changes for libraries
John W. Eaton <jwe@octave.org>
parents:
9469
diff
changeset
|
1295 // double complex arguments. They have been modified by adding an |
|
0ce82753dd72
more configure changes for libraries
John W. Eaton <jwe@octave.org>
parents:
9469
diff
changeset
|
1296 // implicit double precision (a-h,o-z) statement at the beginning of |
|
0ce82753dd72
more configure changes for libraries
John W. Eaton <jwe@octave.org>
parents:
9469
diff
changeset
|
1297 // each subroutine. |
|
0ce82753dd72
more configure changes for libraries
John W. Eaton <jwe@octave.org>
parents:
9469
diff
changeset
|
1298 |
|
0ce82753dd72
more configure changes for libraries
John W. Eaton <jwe@octave.org>
parents:
9469
diff
changeset
|
1299 F77_RET_T |
|
0ce82753dd72
more configure changes for libraries
John W. Eaton <jwe@octave.org>
parents:
9469
diff
changeset
|
1300 F77_FUNC (zffti, ZFFTI) (const octave_idx_type&, Complex*); |
|
0ce82753dd72
more configure changes for libraries
John W. Eaton <jwe@octave.org>
parents:
9469
diff
changeset
|
1301 |
|
0ce82753dd72
more configure changes for libraries
John W. Eaton <jwe@octave.org>
parents:
9469
diff
changeset
|
1302 F77_RET_T |
|
0ce82753dd72
more configure changes for libraries
John W. Eaton <jwe@octave.org>
parents:
9469
diff
changeset
|
1303 F77_FUNC (zfftf, ZFFTF) (const octave_idx_type&, Complex*, Complex*); |
|
0ce82753dd72
more configure changes for libraries
John W. Eaton <jwe@octave.org>
parents:
9469
diff
changeset
|
1304 |
|
0ce82753dd72
more configure changes for libraries
John W. Eaton <jwe@octave.org>
parents:
9469
diff
changeset
|
1305 F77_RET_T |
|
0ce82753dd72
more configure changes for libraries
John W. Eaton <jwe@octave.org>
parents:
9469
diff
changeset
|
1306 F77_FUNC (zfftb, ZFFTB) (const octave_idx_type&, Complex*, Complex*); |
|
0ce82753dd72
more configure changes for libraries
John W. Eaton <jwe@octave.org>
parents:
9469
diff
changeset
|
1307 } |
|
0ce82753dd72
more configure changes for libraries
John W. Eaton <jwe@octave.org>
parents:
9469
diff
changeset
|
1308 |
| 740 | 1309 ComplexMatrix |
| 458 | 1310 ComplexMatrix::fourier (void) const |
| 1311 { | |
| 1948 | 1312 ComplexMatrix retval; |
| 1313 | |
| 5275 | 1314 octave_idx_type nr = rows (); |
| 1315 octave_idx_type nc = cols (); | |
| 1316 | |
| 1317 octave_idx_type npts, nsamples; | |
| 1948 | 1318 |
| 458 | 1319 if (nr == 1 || nc == 1) |
| 1320 { | |
| 1321 npts = nr > nc ? nr : nc; | |
| 1322 nsamples = 1; | |
| 1323 } | |
| 1324 else | |
| 1325 { | |
| 1326 npts = nr; | |
| 1327 nsamples = nc; | |
| 1328 } | |
| 1329 | |
| 5275 | 1330 octave_idx_type nn = 4*npts+15; |
| 1948 | 1331 |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
1332 Array<Complex> wsave (nn, 1); |
| 1948 | 1333 Complex *pwsave = wsave.fortran_vec (); |
| 1334 | |
| 1335 retval = *this; | |
| 1336 Complex *tmp_data = retval.fortran_vec (); | |
| 1337 | |
|
7789
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7788
diff
changeset
|
1338 F77_FUNC (zffti, ZFFTI) (npts, pwsave); |
| 458 | 1339 |
| 5275 | 1340 for (octave_idx_type j = 0; j < nsamples; j++) |
| 4153 | 1341 { |
|
10142
829e69ec3110
make OCTAVE_QUIT a function
Jaroslav Hajek <highegg@gmail.com>
parents:
10124
diff
changeset
|
1342 octave_quit (); |
| 4153 | 1343 |
|
7789
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7788
diff
changeset
|
1344 F77_FUNC (zfftf, ZFFTF) (npts, &tmp_data[npts*j], pwsave); |
| 4153 | 1345 } |
| 1948 | 1346 |
| 1347 return retval; | |
| 458 | 1348 } |
| 1349 | |
| 1350 ComplexMatrix | |
| 1351 ComplexMatrix::ifourier (void) const | |
| 1352 { | |
| 1948 | 1353 ComplexMatrix retval; |
| 1354 | |
| 5275 | 1355 octave_idx_type nr = rows (); |
| 1356 octave_idx_type nc = cols (); | |
| 1357 | |
| 1358 octave_idx_type npts, nsamples; | |
| 1948 | 1359 |
| 458 | 1360 if (nr == 1 || nc == 1) |
| 1361 { | |
| 1362 npts = nr > nc ? nr : nc; | |
| 1363 nsamples = 1; | |
| 1364 } | |
| 1365 else | |
| 1366 { | |
| 1367 npts = nr; | |
| 1368 nsamples = nc; | |
| 1369 } | |
| 1370 | |
| 5275 | 1371 octave_idx_type nn = 4*npts+15; |
| 1948 | 1372 |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
1373 Array<Complex> wsave (nn, 1); |
| 1948 | 1374 Complex *pwsave = wsave.fortran_vec (); |
| 1375 | |
| 1376 retval = *this; | |
| 1377 Complex *tmp_data = retval.fortran_vec (); | |
| 1378 | |
|
7789
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7788
diff
changeset
|
1379 F77_FUNC (zffti, ZFFTI) (npts, pwsave); |
| 458 | 1380 |
| 5275 | 1381 for (octave_idx_type j = 0; j < nsamples; j++) |
| 4153 | 1382 { |
|
10142
829e69ec3110
make OCTAVE_QUIT a function
Jaroslav Hajek <highegg@gmail.com>
parents:
10124
diff
changeset
|
1383 octave_quit (); |
| 4153 | 1384 |
|
7789
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7788
diff
changeset
|
1385 F77_FUNC (zfftb, ZFFTB) (npts, &tmp_data[npts*j], pwsave); |
| 4153 | 1386 } |
| 458 | 1387 |
| 5275 | 1388 for (octave_idx_type j = 0; j < npts*nsamples; j++) |
| 3572 | 1389 tmp_data[j] = tmp_data[j] / static_cast<double> (npts); |
| 458 | 1390 |
| 1948 | 1391 return retval; |
| 458 | 1392 } |
| 1393 | |
| 677 | 1394 ComplexMatrix |
| 1395 ComplexMatrix::fourier2d (void) const | |
| 1396 { | |
| 1948 | 1397 ComplexMatrix retval; |
| 1398 | |
| 5275 | 1399 octave_idx_type nr = rows (); |
| 1400 octave_idx_type nc = cols (); | |
| 1401 | |
| 1402 octave_idx_type npts, nsamples; | |
| 1948 | 1403 |
| 677 | 1404 if (nr == 1 || nc == 1) |
| 1405 { | |
| 1406 npts = nr > nc ? nr : nc; | |
| 1407 nsamples = 1; | |
| 1408 } | |
| 1409 else | |
| 1410 { | |
| 1411 npts = nr; | |
| 1412 nsamples = nc; | |
| 1413 } | |
| 1414 | |
| 5275 | 1415 octave_idx_type nn = 4*npts+15; |
| 1948 | 1416 |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
1417 Array<Complex> wsave (nn, 1); |
| 1948 | 1418 Complex *pwsave = wsave.fortran_vec (); |
| 1419 | |
| 1420 retval = *this; | |
| 1421 Complex *tmp_data = retval.fortran_vec (); | |
| 1422 | |
|
7789
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7788
diff
changeset
|
1423 F77_FUNC (zffti, ZFFTI) (npts, pwsave); |
| 677 | 1424 |
| 5275 | 1425 for (octave_idx_type j = 0; j < nsamples; j++) |
| 4153 | 1426 { |
|
10142
829e69ec3110
make OCTAVE_QUIT a function
Jaroslav Hajek <highegg@gmail.com>
parents:
10124
diff
changeset
|
1427 octave_quit (); |
| 4153 | 1428 |
|
7789
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7788
diff
changeset
|
1429 F77_FUNC (zfftf, ZFFTF) (npts, &tmp_data[npts*j], pwsave); |
| 4153 | 1430 } |
| 677 | 1431 |
| 1432 npts = nc; | |
| 1433 nsamples = nr; | |
| 1434 nn = 4*npts+15; | |
| 1948 | 1435 |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
1436 wsave.resize (nn, 1); |
| 1948 | 1437 pwsave = wsave.fortran_vec (); |
| 1438 | |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
1439 Array<Complex> tmp (npts, 1); |
| 4773 | 1440 Complex *prow = tmp.fortran_vec (); |
| 1948 | 1441 |
|
7789
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7788
diff
changeset
|
1442 F77_FUNC (zffti, ZFFTI) (npts, pwsave); |
| 677 | 1443 |
| 5275 | 1444 for (octave_idx_type j = 0; j < nsamples; j++) |
| 677 | 1445 { |
|
10142
829e69ec3110
make OCTAVE_QUIT a function
Jaroslav Hajek <highegg@gmail.com>
parents:
10124
diff
changeset
|
1446 octave_quit (); |
| 4153 | 1447 |
| 5275 | 1448 for (octave_idx_type i = 0; i < npts; i++) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1449 prow[i] = tmp_data[i*nr + j]; |
| 1948 | 1450 |
|
7789
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7788
diff
changeset
|
1451 F77_FUNC (zfftf, ZFFTF) (npts, prow, pwsave); |
| 677 | 1452 |
| 5275 | 1453 for (octave_idx_type i = 0; i < npts; i++) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1454 tmp_data[i*nr + j] = prow[i]; |
| 677 | 1455 } |
| 1456 | |
| 1948 | 1457 return retval; |
| 677 | 1458 } |
| 1459 | |
| 1460 ComplexMatrix | |
| 1461 ComplexMatrix::ifourier2d (void) const | |
| 1462 { | |
| 1948 | 1463 ComplexMatrix retval; |
| 1464 | |
| 5275 | 1465 octave_idx_type nr = rows (); |
| 1466 octave_idx_type nc = cols (); | |
| 1467 | |
| 1468 octave_idx_type npts, nsamples; | |
| 1948 | 1469 |
| 677 | 1470 if (nr == 1 || nc == 1) |
| 1471 { | |
| 1472 npts = nr > nc ? nr : nc; | |
| 1473 nsamples = 1; | |
| 1474 } | |
| 1475 else | |
| 1476 { | |
| 1477 npts = nr; | |
| 1478 nsamples = nc; | |
| 1479 } | |
| 1480 | |
| 5275 | 1481 octave_idx_type nn = 4*npts+15; |
| 1948 | 1482 |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
1483 Array<Complex> wsave (nn, 1); |
| 1948 | 1484 Complex *pwsave = wsave.fortran_vec (); |
| 1485 | |
| 1486 retval = *this; | |
| 1487 Complex *tmp_data = retval.fortran_vec (); | |
| 1488 | |
|
7789
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7788
diff
changeset
|
1489 F77_FUNC (zffti, ZFFTI) (npts, pwsave); |
| 677 | 1490 |
| 5275 | 1491 for (octave_idx_type j = 0; j < nsamples; j++) |
| 4153 | 1492 { |
|
10142
829e69ec3110
make OCTAVE_QUIT a function
Jaroslav Hajek <highegg@gmail.com>
parents:
10124
diff
changeset
|
1493 octave_quit (); |
| 4153 | 1494 |
|
7789
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7788
diff
changeset
|
1495 F77_FUNC (zfftb, ZFFTB) (npts, &tmp_data[npts*j], pwsave); |
| 4153 | 1496 } |
| 677 | 1497 |
| 5275 | 1498 for (octave_idx_type j = 0; j < npts*nsamples; j++) |
| 3572 | 1499 tmp_data[j] = tmp_data[j] / static_cast<double> (npts); |
| 677 | 1500 |
| 1501 npts = nc; | |
| 1502 nsamples = nr; | |
| 1503 nn = 4*npts+15; | |
| 1948 | 1504 |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
1505 wsave.resize (nn, 1); |
| 1948 | 1506 pwsave = wsave.fortran_vec (); |
| 1507 | |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
1508 Array<Complex> tmp (npts, 1); |
| 4773 | 1509 Complex *prow = tmp.fortran_vec (); |
| 1948 | 1510 |
|
7789
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7788
diff
changeset
|
1511 F77_FUNC (zffti, ZFFTI) (npts, pwsave); |
| 677 | 1512 |
| 5275 | 1513 for (octave_idx_type j = 0; j < nsamples; j++) |
| 677 | 1514 { |
|
10142
829e69ec3110
make OCTAVE_QUIT a function
Jaroslav Hajek <highegg@gmail.com>
parents:
10124
diff
changeset
|
1515 octave_quit (); |
| 4153 | 1516 |
| 5275 | 1517 for (octave_idx_type i = 0; i < npts; i++) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1518 prow[i] = tmp_data[i*nr + j]; |
| 1948 | 1519 |
|
7789
82be108cc558
First attempt at single precision tyeps
David Bateman <dbateman@free.fr>
parents:
7788
diff
changeset
|
1520 F77_FUNC (zfftb, ZFFTB) (npts, prow, pwsave); |
| 677 | 1521 |
| 5275 | 1522 for (octave_idx_type i = 0; i < npts; i++) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1523 tmp_data[i*nr + j] = prow[i] / static_cast<double> (npts); |
| 677 | 1524 } |
| 1525 | |
| 1948 | 1526 return retval; |
| 677 | 1527 } |
| 1528 | |
| 3827 | 1529 #endif |
| 1530 | |
| 458 | 1531 ComplexDET |
| 1532 ComplexMatrix::determinant (void) const | |
| 1533 { | |
| 5275 | 1534 octave_idx_type info; |
| 7788 | 1535 double rcon; |
| 1536 return determinant (info, rcon, 0); | |
| 458 | 1537 } |
| 1538 | |
| 1539 ComplexDET | |
| 5275 | 1540 ComplexMatrix::determinant (octave_idx_type& info) const |
| 458 | 1541 { |
| 7788 | 1542 double rcon; |
| 1543 return determinant (info, rcon, 0); | |
| 458 | 1544 } |
| 1545 | |
| 1546 ComplexDET | |
| 7788 | 1547 ComplexMatrix::determinant (octave_idx_type& info, double& rcon, int calc_cond) const |
| 458 | 1548 { |
|
8336
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1549 MatrixType mattype (*this); |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1550 return determinant (mattype, info, rcon, calc_cond); |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1551 } |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1552 |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1553 ComplexDET |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1554 ComplexMatrix::determinant (MatrixType& mattype, |
| 8806 | 1555 octave_idx_type& info, double& rcon, |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1556 int calc_cond) const |
|
8336
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1557 { |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1558 ComplexDET retval (1.0); |
| 458 | 1559 |
| 5275 | 1560 octave_idx_type nr = rows (); |
| 1561 octave_idx_type nc = cols (); | |
| 458 | 1562 |
|
8336
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1563 if (nr != nc) |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1564 (*current_liboctave_error_handler) ("matrix must be square"); |
| 458 | 1565 else |
| 1566 { | |
| 8806 | 1567 volatile int typ = mattype.type (); |
|
8336
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1568 |
|
10213
f7ba6cfe7fb7
fix det() after singular matrix is flagged
Jaroslav Hajek <highegg@gmail.com>
parents:
10182
diff
changeset
|
1569 // Even though the matrix is marked as singular (Rectangular), we may |
|
f7ba6cfe7fb7
fix det() after singular matrix is flagged
Jaroslav Hajek <highegg@gmail.com>
parents:
10182
diff
changeset
|
1570 // still get a useful number from the LU factorization, because it always |
|
f7ba6cfe7fb7
fix det() after singular matrix is flagged
Jaroslav Hajek <highegg@gmail.com>
parents:
10182
diff
changeset
|
1571 // completes. |
|
f7ba6cfe7fb7
fix det() after singular matrix is flagged
Jaroslav Hajek <highegg@gmail.com>
parents:
10182
diff
changeset
|
1572 |
|
8337
e02242c54c49
reuse matrix type detected in det
Jaroslav Hajek <highegg@gmail.com>
parents:
8336
diff
changeset
|
1573 if (typ == MatrixType::Unknown) |
|
e02242c54c49
reuse matrix type detected in det
Jaroslav Hajek <highegg@gmail.com>
parents:
8336
diff
changeset
|
1574 typ = mattype.type (*this); |
|
10213
f7ba6cfe7fb7
fix det() after singular matrix is flagged
Jaroslav Hajek <highegg@gmail.com>
parents:
10182
diff
changeset
|
1575 else if (typ == MatrixType::Rectangular) |
|
f7ba6cfe7fb7
fix det() after singular matrix is flagged
Jaroslav Hajek <highegg@gmail.com>
parents:
10182
diff
changeset
|
1576 typ = MatrixType::Full; |
|
8337
e02242c54c49
reuse matrix type detected in det
Jaroslav Hajek <highegg@gmail.com>
parents:
8336
diff
changeset
|
1577 |
|
8336
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1578 if (typ == MatrixType::Lower || typ == MatrixType::Upper) |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1579 { |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1580 for (octave_idx_type i = 0; i < nc; i++) |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1581 retval *= elem (i,i); |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1582 } |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1583 else if (typ == MatrixType::Hermitian) |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1584 { |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1585 ComplexMatrix atmp = *this; |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1586 Complex *tmp_data = atmp.fortran_vec (); |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1587 |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1588 info = 0; |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1589 double anorm = 0; |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1590 if (calc_cond) anorm = xnorm (*this, 1); |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1591 |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1592 |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1593 char job = 'L'; |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1594 F77_XFCN (zpotrf, ZPOTRF, (F77_CONST_CHAR_ARG2 (&job, 1), nr, |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1595 tmp_data, nr, info |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1596 F77_CHAR_ARG_LEN (1))); |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1597 |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1598 if (info != 0) |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1599 { |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1600 rcon = 0.0; |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1601 mattype.mark_as_unsymmetric (); |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1602 typ = MatrixType::Full; |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1603 } |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1604 else |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1605 { |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
1606 Array<Complex> z (2 * nc, 1); |
|
8336
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1607 Complex *pz = z.fortran_vec (); |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
1608 Array<double> rz (nc, 1); |
|
8336
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1609 double *prz = rz.fortran_vec (); |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1610 |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1611 F77_XFCN (zpocon, ZPOCON, (F77_CONST_CHAR_ARG2 (&job, 1), |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1612 nr, tmp_data, nr, anorm, |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1613 rcon, pz, prz, info |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1614 F77_CHAR_ARG_LEN (1))); |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1615 |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1616 if (info != 0) |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1617 rcon = 0.0; |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1618 |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1619 for (octave_idx_type i = 0; i < nc; i++) |
|
8337
e02242c54c49
reuse matrix type detected in det
Jaroslav Hajek <highegg@gmail.com>
parents:
8336
diff
changeset
|
1620 retval *= atmp (i,i); |
|
8336
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1621 |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1622 retval = retval.square (); |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1623 } |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1624 } |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1625 else if (typ != MatrixType::Full) |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1626 (*current_liboctave_error_handler) ("det: invalid dense matrix type"); |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1627 |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1628 if (typ == MatrixType::Full) |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1629 { |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
1630 Array<octave_idx_type> ipvt (nr, 1); |
|
8336
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1631 octave_idx_type *pipvt = ipvt.fortran_vec (); |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1632 |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1633 ComplexMatrix atmp = *this; |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1634 Complex *tmp_data = atmp.fortran_vec (); |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1635 |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1636 info = 0; |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1637 |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1638 // Calculate the norm of the matrix, for later use. |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1639 double anorm = 0; |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1640 if (calc_cond) anorm = xnorm (*this, 1); |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1641 |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1642 F77_XFCN (zgetrf, ZGETRF, (nr, nr, tmp_data, nr, pipvt, info)); |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1643 |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1644 // Throw-away extra info LAPACK gives so as to not change output. |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1645 rcon = 0.0; |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1646 if (info != 0) |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1647 { |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1648 info = -1; |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1649 retval = ComplexDET (); |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1650 } |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1651 else |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1652 { |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1653 if (calc_cond) |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1654 { |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1655 // Now calc the condition number for non-singular matrix. |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1656 char job = '1'; |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
1657 Array<Complex> z (2 * nc, 1); |
|
8336
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1658 Complex *pz = z.fortran_vec (); |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
1659 Array<double> rz (2 * nc, 1); |
|
8336
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1660 double *prz = rz.fortran_vec (); |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1661 |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1662 F77_XFCN (zgecon, ZGECON, (F77_CONST_CHAR_ARG2 (&job, 1), |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1663 nc, tmp_data, nr, anorm, |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1664 rcon, pz, prz, info |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1665 F77_CHAR_ARG_LEN (1))); |
| 8335 | 1666 } |
|
8336
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1667 |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1668 if (info != 0) |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1669 { |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1670 info = -1; |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1671 retval = ComplexDET (); |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1672 } |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1673 else |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1674 { |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1675 for (octave_idx_type i = 0; i < nc; i++) |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1676 { |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1677 Complex c = atmp(i,i); |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1678 retval *= (ipvt(i) != (i+1)) ? -c : c; |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1679 } |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1680 } |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1681 } |
|
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1682 } |
| 458 | 1683 } |
|
8336
9813c07ca946
make det take advantage of matrix type
Jaroslav Hajek <highegg@gmail.com>
parents:
8335
diff
changeset
|
1684 |
| 458 | 1685 return retval; |
| 1686 } | |
| 1687 | |
| 7788 | 1688 double |
| 1689 ComplexMatrix::rcond (void) const | |
| 1690 { | |
| 1691 MatrixType mattype (*this); | |
| 1692 return rcond (mattype); | |
| 1693 } | |
| 1694 | |
| 1695 double | |
| 1696 ComplexMatrix::rcond (MatrixType &mattype) const | |
| 1697 { | |
| 1698 double rcon; | |
| 1699 octave_idx_type nr = rows (); | |
| 1700 octave_idx_type nc = cols (); | |
| 1701 | |
| 1702 if (nr != nc) | |
| 1703 (*current_liboctave_error_handler) ("matrix must be square"); | |
| 1704 else if (nr == 0 || nc == 0) | |
| 1705 rcon = octave_Inf; | |
| 1706 else | |
| 1707 { | |
| 1708 int typ = mattype.type (); | |
| 1709 | |
| 1710 if (typ == MatrixType::Unknown) | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1711 typ = mattype.type (*this); |
| 7788 | 1712 |
| 1713 // Only calculate the condition number for LU/Cholesky | |
| 1714 if (typ == MatrixType::Upper) | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1715 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1716 const Complex *tmp_data = fortran_vec (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1717 octave_idx_type info = 0; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1718 char norm = '1'; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1719 char uplo = 'U'; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1720 char dia = 'N'; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1721 |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
1722 Array<Complex> z (2 * nc, 1); |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1723 Complex *pz = z.fortran_vec (); |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
1724 Array<double> rz (nc, 1); |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1725 double *prz = rz.fortran_vec (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1726 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1727 F77_XFCN (ztrcon, ZTRCON, (F77_CONST_CHAR_ARG2 (&norm, 1), |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1728 F77_CONST_CHAR_ARG2 (&uplo, 1), |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1729 F77_CONST_CHAR_ARG2 (&dia, 1), |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1730 nr, tmp_data, nr, rcon, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1731 pz, prz, info |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1732 F77_CHAR_ARG_LEN (1) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1733 F77_CHAR_ARG_LEN (1) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1734 F77_CHAR_ARG_LEN (1))); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1735 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1736 if (info != 0) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1737 rcon = 0; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1738 } |
| 7788 | 1739 else if (typ == MatrixType::Permuted_Upper) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1740 (*current_liboctave_error_handler) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1741 ("permuted triangular matrix not implemented"); |
| 7788 | 1742 else if (typ == MatrixType::Lower) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1743 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1744 const Complex *tmp_data = fortran_vec (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1745 octave_idx_type info = 0; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1746 char norm = '1'; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1747 char uplo = 'L'; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1748 char dia = 'N'; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1749 |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
1750 Array<Complex> z (2 * nc, 1); |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1751 Complex *pz = z.fortran_vec (); |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
1752 Array<double> rz (nc, 1); |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1753 double *prz = rz.fortran_vec (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1754 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1755 F77_XFCN (ztrcon, ZTRCON, (F77_CONST_CHAR_ARG2 (&norm, 1), |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1756 F77_CONST_CHAR_ARG2 (&uplo, 1), |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1757 F77_CONST_CHAR_ARG2 (&dia, 1), |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1758 nr, tmp_data, nr, rcon, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1759 pz, prz, info |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1760 F77_CHAR_ARG_LEN (1) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1761 F77_CHAR_ARG_LEN (1) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1762 F77_CHAR_ARG_LEN (1))); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1763 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1764 if (info != 0) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1765 rcon = 0.0; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1766 } |
| 7788 | 1767 else if (typ == MatrixType::Permuted_Lower) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1768 (*current_liboctave_error_handler) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1769 ("permuted triangular matrix not implemented"); |
| 7788 | 1770 else if (typ == MatrixType::Full || typ == MatrixType::Hermitian) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1771 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1772 double anorm = -1.0; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1773 ComplexMatrix atmp = *this; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1774 Complex *tmp_data = atmp.fortran_vec (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1775 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1776 if (typ == MatrixType::Hermitian) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1777 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1778 octave_idx_type info = 0; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1779 char job = 'L'; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1780 anorm = atmp.abs().sum(). |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1781 row(static_cast<octave_idx_type>(0)).max(); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1782 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1783 F77_XFCN (zpotrf, ZPOTRF, (F77_CONST_CHAR_ARG2 (&job, 1), nr, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1784 tmp_data, nr, info |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1785 F77_CHAR_ARG_LEN (1))); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1786 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1787 if (info != 0) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1788 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1789 rcon = 0.0; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1790 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1791 mattype.mark_as_unsymmetric (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1792 typ = MatrixType::Full; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1793 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1794 else |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1795 { |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
1796 Array<Complex> z (2 * nc, 1); |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1797 Complex *pz = z.fortran_vec (); |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
1798 Array<double> rz (nc, 1); |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1799 double *prz = rz.fortran_vec (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1800 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1801 F77_XFCN (zpocon, ZPOCON, (F77_CONST_CHAR_ARG2 (&job, 1), |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1802 nr, tmp_data, nr, anorm, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1803 rcon, pz, prz, info |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1804 F77_CHAR_ARG_LEN (1))); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1805 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1806 if (info != 0) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1807 rcon = 0.0; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1808 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1809 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1810 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1811 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1812 if (typ == MatrixType::Full) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1813 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1814 octave_idx_type info = 0; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1815 |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
1816 Array<octave_idx_type> ipvt (nr, 1); |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1817 octave_idx_type *pipvt = ipvt.fortran_vec (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1818 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1819 if(anorm < 0.) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1820 anorm = atmp.abs().sum(). |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1821 row(static_cast<octave_idx_type>(0)).max(); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1822 |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
1823 Array<Complex> z (2 * nc, 1); |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1824 Complex *pz = z.fortran_vec (); |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
1825 Array<double> rz (2 * nc, 1); |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1826 double *prz = rz.fortran_vec (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1827 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1828 F77_XFCN (zgetrf, ZGETRF, (nr, nr, tmp_data, nr, pipvt, info)); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1829 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1830 if (info != 0) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1831 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1832 rcon = 0.0; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1833 mattype.mark_as_rectangular (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1834 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1835 else |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1836 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1837 char job = '1'; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1838 F77_XFCN (zgecon, ZGECON, (F77_CONST_CHAR_ARG2 (&job, 1), |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1839 nc, tmp_data, nr, anorm, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1840 rcon, pz, prz, info |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1841 F77_CHAR_ARG_LEN (1))); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1842 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1843 if (info != 0) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1844 rcon = 0.0; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1845 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1846 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1847 } |
| 7788 | 1848 else |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1849 rcon = 0.0; |
| 7788 | 1850 } |
| 1851 | |
| 1852 return rcon; | |
| 1853 } | |
| 1854 | |
| 458 | 1855 ComplexMatrix |
| 5785 | 1856 ComplexMatrix::utsolve (MatrixType &mattype, const ComplexMatrix& b, |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1857 octave_idx_type& info, double& rcon, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1858 solve_singularity_handler sing_handler, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1859 bool calc_cond, blas_trans_type transt) const |
| 5785 | 1860 { |
| 1861 ComplexMatrix retval; | |
| 1862 | |
| 1863 octave_idx_type nr = rows (); | |
| 1864 octave_idx_type nc = cols (); | |
| 1865 | |
| 6924 | 1866 if (nr != b.rows ()) |
| 5785 | 1867 (*current_liboctave_error_handler) |
| 1868 ("matrix dimension mismatch solution of linear equations"); | |
| 6924 | 1869 else if (nr == 0 || nc == 0 || b.cols () == 0) |
| 1870 retval = ComplexMatrix (nc, b.cols (), Complex (0.0, 0.0)); | |
| 5785 | 1871 else |
| 1872 { | |
| 1873 volatile int typ = mattype.type (); | |
| 1874 | |
| 1875 if (typ == MatrixType::Permuted_Upper || | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1876 typ == MatrixType::Upper) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1877 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1878 octave_idx_type b_nc = b.cols (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1879 rcon = 1.; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1880 info = 0; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1881 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1882 if (typ == MatrixType::Permuted_Upper) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1883 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1884 (*current_liboctave_error_handler) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1885 ("permuted triangular matrix not implemented"); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1886 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1887 else |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1888 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1889 const Complex *tmp_data = fortran_vec (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1890 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1891 if (calc_cond) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1892 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1893 char norm = '1'; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1894 char uplo = 'U'; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1895 char dia = 'N'; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1896 |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
1897 Array<Complex> z (2 * nc, 1); |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1898 Complex *pz = z.fortran_vec (); |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
1899 Array<double> rz (nc, 1); |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1900 double *prz = rz.fortran_vec (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1901 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1902 F77_XFCN (ztrcon, ZTRCON, (F77_CONST_CHAR_ARG2 (&norm, 1), |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1903 F77_CONST_CHAR_ARG2 (&uplo, 1), |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1904 F77_CONST_CHAR_ARG2 (&dia, 1), |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1905 nr, tmp_data, nr, rcon, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1906 pz, prz, info |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1907 F77_CHAR_ARG_LEN (1) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1908 F77_CHAR_ARG_LEN (1) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1909 F77_CHAR_ARG_LEN (1))); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1910 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1911 if (info != 0) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1912 info = -2; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1913 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1914 volatile double rcond_plus_one = rcon + 1.0; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1915 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1916 if (rcond_plus_one == 1.0 || xisnan (rcon)) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1917 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1918 info = -2; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1919 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1920 if (sing_handler) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1921 sing_handler (rcon); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1922 else |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1923 (*current_liboctave_error_handler) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1924 ("matrix singular to machine precision, rcond = %g", |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1925 rcon); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1926 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1927 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1928 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1929 if (info == 0) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1930 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1931 retval = b; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1932 Complex *result = retval.fortran_vec (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1933 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1934 char uplo = 'U'; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1935 char trans = get_blas_char (transt); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1936 char dia = 'N'; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1937 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1938 F77_XFCN (ztrtrs, ZTRTRS, (F77_CONST_CHAR_ARG2 (&uplo, 1), |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1939 F77_CONST_CHAR_ARG2 (&trans, 1), |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1940 F77_CONST_CHAR_ARG2 (&dia, 1), |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1941 nr, b_nc, tmp_data, nr, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1942 result, nr, info |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1943 F77_CHAR_ARG_LEN (1) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1944 F77_CHAR_ARG_LEN (1) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1945 F77_CHAR_ARG_LEN (1))); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1946 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1947 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1948 } |
| 5785 | 1949 else |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1950 (*current_liboctave_error_handler) ("incorrect matrix type"); |
| 5785 | 1951 } |
| 1952 | |
| 1953 return retval; | |
| 1954 } | |
| 1955 | |
| 1956 ComplexMatrix | |
| 1957 ComplexMatrix::ltsolve (MatrixType &mattype, const ComplexMatrix& b, | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1958 octave_idx_type& info, double& rcon, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1959 solve_singularity_handler sing_handler, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1960 bool calc_cond, blas_trans_type transt) const |
| 5785 | 1961 { |
| 1962 ComplexMatrix retval; | |
| 1963 | |
| 1964 octave_idx_type nr = rows (); | |
| 1965 octave_idx_type nc = cols (); | |
| 1966 | |
| 6924 | 1967 if (nr != b.rows ()) |
| 5785 | 1968 (*current_liboctave_error_handler) |
| 1969 ("matrix dimension mismatch solution of linear equations"); | |
| 6924 | 1970 else if (nr == 0 || nc == 0 || b.cols () == 0) |
| 1971 retval = ComplexMatrix (nc, b.cols (), Complex (0.0, 0.0)); | |
| 5785 | 1972 else |
| 1973 { | |
| 1974 volatile int typ = mattype.type (); | |
| 1975 | |
| 1976 if (typ == MatrixType::Permuted_Lower || | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1977 typ == MatrixType::Lower) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1978 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1979 octave_idx_type b_nc = b.cols (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1980 rcon = 1.; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1981 info = 0; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1982 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1983 if (typ == MatrixType::Permuted_Lower) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1984 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1985 (*current_liboctave_error_handler) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1986 ("permuted triangular matrix not implemented"); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1987 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1988 else |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1989 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1990 const Complex *tmp_data = fortran_vec (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1991 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1992 if (calc_cond) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1993 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1994 char norm = '1'; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1995 char uplo = 'L'; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1996 char dia = 'N'; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1997 |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
1998 Array<Complex> z (2 * nc, 1); |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
1999 Complex *pz = z.fortran_vec (); |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
2000 Array<double> rz (nc, 1); |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2001 double *prz = rz.fortran_vec (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2002 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2003 F77_XFCN (ztrcon, ZTRCON, (F77_CONST_CHAR_ARG2 (&norm, 1), |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2004 F77_CONST_CHAR_ARG2 (&uplo, 1), |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2005 F77_CONST_CHAR_ARG2 (&dia, 1), |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2006 nr, tmp_data, nr, rcon, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2007 pz, prz, info |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2008 F77_CHAR_ARG_LEN (1) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2009 F77_CHAR_ARG_LEN (1) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2010 F77_CHAR_ARG_LEN (1))); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2011 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2012 if (info != 0) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2013 info = -2; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2014 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2015 volatile double rcond_plus_one = rcon + 1.0; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2016 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2017 if (rcond_plus_one == 1.0 || xisnan (rcon)) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2018 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2019 info = -2; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2020 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2021 if (sing_handler) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2022 sing_handler (rcon); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2023 else |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2024 (*current_liboctave_error_handler) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2025 ("matrix singular to machine precision, rcond = %g", |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2026 rcon); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2027 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2028 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2029 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2030 if (info == 0) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2031 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2032 retval = b; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2033 Complex *result = retval.fortran_vec (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2034 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2035 char uplo = 'L'; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2036 char trans = get_blas_char (transt); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2037 char dia = 'N'; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2038 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2039 F77_XFCN (ztrtrs, ZTRTRS, (F77_CONST_CHAR_ARG2 (&uplo, 1), |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2040 F77_CONST_CHAR_ARG2 (&trans, 1), |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2041 F77_CONST_CHAR_ARG2 (&dia, 1), |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2042 nr, b_nc, tmp_data, nr, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2043 result, nr, info |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2044 F77_CHAR_ARG_LEN (1) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2045 F77_CHAR_ARG_LEN (1) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2046 F77_CHAR_ARG_LEN (1))); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2047 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2048 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2049 } |
| 5785 | 2050 else |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2051 (*current_liboctave_error_handler) ("incorrect matrix type"); |
| 5785 | 2052 } |
| 2053 | |
| 2054 return retval; | |
| 2055 } | |
| 2056 | |
| 2057 ComplexMatrix | |
| 2058 ComplexMatrix::fsolve (MatrixType &mattype, const ComplexMatrix& b, | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2059 octave_idx_type& info, double& rcon, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2060 solve_singularity_handler sing_handler, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2061 bool calc_cond) const |
| 5785 | 2062 { |
| 2063 ComplexMatrix retval; | |
| 2064 | |
| 2065 octave_idx_type nr = rows (); | |
| 2066 octave_idx_type nc = cols (); | |
| 2067 | |
| 6924 | 2068 |
| 2069 if (nr != nc || nr != b.rows ()) | |
| 5785 | 2070 (*current_liboctave_error_handler) |
| 6924 | 2071 ("matrix dimension mismatch solution of linear equations"); |
| 2072 else if (nr == 0 || b.cols () == 0) | |
| 2073 retval = ComplexMatrix (nc, b.cols (), Complex (0.0, 0.0)); | |
| 5785 | 2074 else |
| 2075 { | |
| 2076 volatile int typ = mattype.type (); | |
| 2077 | |
| 2078 // Calculate the norm of the matrix, for later use. | |
| 2079 double anorm = -1.; | |
| 2080 | |
| 2081 if (typ == MatrixType::Hermitian) | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2082 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2083 info = 0; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2084 char job = 'L'; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2085 ComplexMatrix atmp = *this; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2086 Complex *tmp_data = atmp.fortran_vec (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2087 anorm = atmp.abs().sum().row(static_cast<octave_idx_type>(0)).max(); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2088 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2089 F77_XFCN (zpotrf, ZPOTRF, (F77_CONST_CHAR_ARG2 (&job, 1), nr, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2090 tmp_data, nr, info |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2091 F77_CHAR_ARG_LEN (1))); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2092 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2093 // Throw-away extra info LAPACK gives so as to not change output. |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2094 rcon = 0.0; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2095 if (info != 0) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2096 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2097 info = -2; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2098 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2099 mattype.mark_as_unsymmetric (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2100 typ = MatrixType::Full; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2101 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2102 else |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2103 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2104 if (calc_cond) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2105 { |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
2106 Array<Complex> z (2 * nc, 1); |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2107 Complex *pz = z.fortran_vec (); |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
2108 Array<double> rz (nc, 1); |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2109 double *prz = rz.fortran_vec (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2110 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2111 F77_XFCN (zpocon, ZPOCON, (F77_CONST_CHAR_ARG2 (&job, 1), |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2112 nr, tmp_data, nr, anorm, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2113 rcon, pz, prz, info |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2114 F77_CHAR_ARG_LEN (1))); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2115 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2116 if (info != 0) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2117 info = -2; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2118 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2119 volatile double rcond_plus_one = rcon + 1.0; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2120 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2121 if (rcond_plus_one == 1.0 || xisnan (rcon)) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2122 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2123 info = -2; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2124 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2125 if (sing_handler) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2126 sing_handler (rcon); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2127 else |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2128 (*current_liboctave_error_handler) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2129 ("matrix singular to machine precision, rcond = %g", |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2130 rcon); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2131 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2132 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2133 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2134 if (info == 0) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2135 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2136 retval = b; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2137 Complex *result = retval.fortran_vec (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2138 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2139 octave_idx_type b_nc = b.cols (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2140 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2141 F77_XFCN (zpotrs, ZPOTRS, (F77_CONST_CHAR_ARG2 (&job, 1), |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2142 nr, b_nc, tmp_data, nr, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2143 result, b.rows(), info |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2144 F77_CHAR_ARG_LEN (1))); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2145 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2146 else |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2147 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2148 mattype.mark_as_unsymmetric (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2149 typ = MatrixType::Full; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2150 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2151 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2152 } |
| 5785 | 2153 |
| 2154 if (typ == MatrixType::Full) | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2155 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2156 info = 0; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2157 |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
2158 Array<octave_idx_type> ipvt (nr, 1); |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2159 octave_idx_type *pipvt = ipvt.fortran_vec (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2160 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2161 ComplexMatrix atmp = *this; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2162 Complex *tmp_data = atmp.fortran_vec (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2163 |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
2164 Array<Complex> z (2 * nc, 1); |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2165 Complex *pz = z.fortran_vec (); |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
2166 Array<double> rz (2 * nc, 1); |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2167 double *prz = rz.fortran_vec (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2168 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2169 // Calculate the norm of the matrix, for later use. |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2170 if (anorm < 0.) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2171 anorm = atmp.abs().sum().row(static_cast<octave_idx_type>(0)).max(); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2172 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2173 F77_XFCN (zgetrf, ZGETRF, (nr, nr, tmp_data, nr, pipvt, info)); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2174 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2175 // Throw-away extra info LAPACK gives so as to not change output. |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2176 rcon = 0.0; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2177 if (info != 0) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2178 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2179 info = -2; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2180 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2181 if (sing_handler) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2182 sing_handler (rcon); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2183 else |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2184 (*current_liboctave_error_handler) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2185 ("matrix singular to machine precision"); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2186 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2187 mattype.mark_as_rectangular (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2188 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2189 else |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2190 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2191 if (calc_cond) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2192 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2193 // Now calculate the condition number for |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2194 // non-singular matrix. |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2195 char job = '1'; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2196 F77_XFCN (zgecon, ZGECON, (F77_CONST_CHAR_ARG2 (&job, 1), |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2197 nc, tmp_data, nr, anorm, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2198 rcon, pz, prz, info |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2199 F77_CHAR_ARG_LEN (1))); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2200 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2201 if (info != 0) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2202 info = -2; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2203 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2204 volatile double rcond_plus_one = rcon + 1.0; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2205 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2206 if (rcond_plus_one == 1.0 || xisnan (rcon)) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2207 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2208 info = -2; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2209 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2210 if (sing_handler) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2211 sing_handler (rcon); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2212 else |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2213 (*current_liboctave_error_handler) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2214 ("matrix singular to machine precision, rcond = %g", |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2215 rcon); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2216 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2217 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2218 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2219 if (info == 0) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2220 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2221 retval = b; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2222 Complex *result = retval.fortran_vec (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2223 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2224 octave_idx_type b_nc = b.cols (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2225 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2226 char job = 'N'; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2227 F77_XFCN (zgetrs, ZGETRS, (F77_CONST_CHAR_ARG2 (&job, 1), |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2228 nr, b_nc, tmp_data, nr, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2229 pipvt, result, b.rows(), info |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2230 F77_CHAR_ARG_LEN (1))); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2231 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2232 else |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2233 mattype.mark_as_rectangular (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2234 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2235 } |
| 5785 | 2236 } |
| 2237 | |
| 2238 return retval; | |
| 2239 } | |
| 2240 | |
| 2241 ComplexMatrix | |
| 2242 ComplexMatrix::solve (MatrixType &typ, const Matrix& b) const | |
| 2243 { | |
| 2244 octave_idx_type info; | |
| 7788 | 2245 double rcon; |
| 2246 return solve (typ, b, info, rcon, 0); | |
| 5785 | 2247 } |
| 2248 | |
| 2249 ComplexMatrix | |
| 2250 ComplexMatrix::solve (MatrixType &typ, const Matrix& b, | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2251 octave_idx_type& info) const |
| 5785 | 2252 { |
| 7788 | 2253 double rcon; |
| 2254 return solve (typ, b, info, rcon, 0); | |
| 5785 | 2255 } |
| 2256 | |
| 2257 ComplexMatrix | |
| 2258 ComplexMatrix::solve (MatrixType &typ, const Matrix& b, octave_idx_type& info, | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2259 double& rcon) const |
| 5785 | 2260 { |
| 7788 | 2261 return solve (typ, b, info, rcon, 0); |
| 5785 | 2262 } |
| 2263 | |
| 2264 ComplexMatrix | |
| 2265 ComplexMatrix::solve (MatrixType &typ, const Matrix& b, octave_idx_type& info, | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2266 double& rcon, solve_singularity_handler sing_handler, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2267 bool singular_fallback, blas_trans_type transt) const |
| 5785 | 2268 { |
| 2269 ComplexMatrix tmp (b); | |
|
9661
afcf852256d2
optimize / and '\ for triangular matrices
Jaroslav Hajek <highegg@gmail.com>
parents:
9658
diff
changeset
|
2270 return solve (typ, tmp, info, rcon, sing_handler, singular_fallback, transt); |
| 5785 | 2271 } |
| 2272 | |
| 2273 ComplexMatrix | |
| 2274 ComplexMatrix::solve (MatrixType &typ, const ComplexMatrix& b) const | |
| 2275 { | |
| 2276 octave_idx_type info; | |
| 7788 | 2277 double rcon; |
| 2278 return solve (typ, b, info, rcon, 0); | |
| 5785 | 2279 } |
| 2280 | |
| 2281 ComplexMatrix | |
| 2282 ComplexMatrix::solve (MatrixType &typ, const ComplexMatrix& b, | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2283 octave_idx_type& info) const |
| 5785 | 2284 { |
| 7788 | 2285 double rcon; |
| 2286 return solve (typ, b, info, rcon, 0); | |
| 5785 | 2287 } |
| 2288 | |
| 2289 ComplexMatrix | |
| 2290 ComplexMatrix::solve (MatrixType &typ, const ComplexMatrix& b, | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2291 octave_idx_type& info, double& rcon) const |
| 5785 | 2292 { |
| 7788 | 2293 return solve (typ, b, info, rcon, 0); |
| 5785 | 2294 } |
| 2295 | |
| 2296 ComplexMatrix | |
| 2297 ComplexMatrix::solve (MatrixType &mattype, const ComplexMatrix& b, | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2298 octave_idx_type& info, double& rcon, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2299 solve_singularity_handler sing_handler, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2300 bool singular_fallback, blas_trans_type transt) const |
| 5785 | 2301 { |
| 2302 ComplexMatrix retval; | |
| 2303 int typ = mattype.type (); | |
| 2304 | |
| 2305 if (typ == MatrixType::Unknown) | |
| 2306 typ = mattype.type (*this); | |
| 2307 | |
| 2308 // Only calculate the condition number for LU/Cholesky | |
| 2309 if (typ == MatrixType::Upper || typ == MatrixType::Permuted_Upper) | |
|
9661
afcf852256d2
optimize / and '\ for triangular matrices
Jaroslav Hajek <highegg@gmail.com>
parents:
9658
diff
changeset
|
2310 retval = utsolve (mattype, b, info, rcon, sing_handler, false, transt); |
| 5785 | 2311 else if (typ == MatrixType::Lower || typ == MatrixType::Permuted_Lower) |
|
9661
afcf852256d2
optimize / and '\ for triangular matrices
Jaroslav Hajek <highegg@gmail.com>
parents:
9658
diff
changeset
|
2312 retval = ltsolve (mattype, b, info, rcon, sing_handler, false, transt); |
|
afcf852256d2
optimize / and '\ for triangular matrices
Jaroslav Hajek <highegg@gmail.com>
parents:
9658
diff
changeset
|
2313 else if (transt == blas_trans) |
|
afcf852256d2
optimize / and '\ for triangular matrices
Jaroslav Hajek <highegg@gmail.com>
parents:
9658
diff
changeset
|
2314 return transpose ().solve (mattype, b, info, rcon, sing_handler, singular_fallback); |
|
afcf852256d2
optimize / and '\ for triangular matrices
Jaroslav Hajek <highegg@gmail.com>
parents:
9658
diff
changeset
|
2315 else if (transt == blas_conj_trans) |
|
afcf852256d2
optimize / and '\ for triangular matrices
Jaroslav Hajek <highegg@gmail.com>
parents:
9658
diff
changeset
|
2316 retval = hermitian ().solve (mattype, b, info, rcon, sing_handler, singular_fallback); |
| 5785 | 2317 else if (typ == MatrixType::Full || typ == MatrixType::Hermitian) |
| 7788 | 2318 retval = fsolve (mattype, b, info, rcon, sing_handler, true); |
| 5785 | 2319 else if (typ != MatrixType::Rectangular) |
| 2320 { | |
| 2321 (*current_liboctave_error_handler) ("unknown matrix type"); | |
| 2322 return ComplexMatrix (); | |
| 2323 } | |
| 2324 | |
| 2325 // Rectangular or one of the above solvers flags a singular matrix | |
| 2326 if (singular_fallback && mattype.type () == MatrixType::Rectangular) | |
| 2327 { | |
| 2328 octave_idx_type rank; | |
| 7788 | 2329 retval = lssolve (b, info, rank, rcon); |
| 5785 | 2330 } |
| 2331 | |
| 2332 return retval; | |
| 2333 } | |
| 2334 | |
| 2335 ComplexColumnVector | |
| 2336 ComplexMatrix::solve (MatrixType &typ, const ColumnVector& b) const | |
| 2337 { | |
| 2338 octave_idx_type info; | |
| 7788 | 2339 double rcon; |
| 2340 return solve (typ, ComplexColumnVector (b), info, rcon, 0); | |
| 5785 | 2341 } |
| 2342 | |
| 2343 ComplexColumnVector | |
| 2344 ComplexMatrix::solve (MatrixType &typ, const ColumnVector& b, | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2345 octave_idx_type& info) const |
| 5785 | 2346 { |
| 7788 | 2347 double rcon; |
| 2348 return solve (typ, ComplexColumnVector (b), info, rcon, 0); | |
| 5785 | 2349 } |
| 2350 | |
| 2351 ComplexColumnVector | |
| 2352 ComplexMatrix::solve (MatrixType &typ, const ColumnVector& b, | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2353 octave_idx_type& info, double& rcon) const |
| 5785 | 2354 { |
| 7788 | 2355 return solve (typ, ComplexColumnVector (b), info, rcon, 0); |
| 5785 | 2356 } |
| 2357 | |
| 2358 ComplexColumnVector | |
| 2359 ComplexMatrix::solve (MatrixType &typ, const ColumnVector& b, | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2360 octave_idx_type& info, double& rcon, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2361 solve_singularity_handler sing_handler, blas_trans_type transt) const |
| 5785 | 2362 { |
|
9661
afcf852256d2
optimize / and '\ for triangular matrices
Jaroslav Hajek <highegg@gmail.com>
parents:
9658
diff
changeset
|
2363 return solve (typ, ComplexColumnVector (b), info, rcon, sing_handler, transt); |
| 5785 | 2364 } |
| 2365 | |
| 2366 ComplexColumnVector | |
| 2367 ComplexMatrix::solve (MatrixType &typ, const ComplexColumnVector& b) const | |
| 2368 { | |
| 2369 octave_idx_type info; | |
| 7788 | 2370 double rcon; |
| 2371 return solve (typ, b, info, rcon, 0); | |
| 5785 | 2372 } |
| 2373 | |
| 2374 ComplexColumnVector | |
| 2375 ComplexMatrix::solve (MatrixType &typ, const ComplexColumnVector& b, | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2376 octave_idx_type& info) const |
| 5785 | 2377 { |
| 7788 | 2378 double rcon; |
| 2379 return solve (typ, b, info, rcon, 0); | |
| 5785 | 2380 } |
| 2381 | |
| 2382 ComplexColumnVector | |
| 2383 ComplexMatrix::solve (MatrixType &typ, const ComplexColumnVector& b, | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2384 octave_idx_type& info, double& rcon) const |
| 5785 | 2385 { |
| 7788 | 2386 return solve (typ, b, info, rcon, 0); |
| 5785 | 2387 } |
| 2388 | |
| 2389 ComplexColumnVector | |
| 2390 ComplexMatrix::solve (MatrixType &typ, const ComplexColumnVector& b, | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2391 octave_idx_type& info, double& rcon, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2392 solve_singularity_handler sing_handler, blas_trans_type transt) const |
| 5785 | 2393 { |
| 2394 | |
| 2395 ComplexMatrix tmp (b); | |
| 10352 | 2396 tmp = solve (typ, tmp, info, rcon, sing_handler, true, transt); |
| 2397 return tmp.column(static_cast<octave_idx_type> (0)); | |
| 5785 | 2398 } |
| 2399 | |
| 2400 ComplexMatrix | |
| 458 | 2401 ComplexMatrix::solve (const Matrix& b) const |
| 2402 { | |
| 5275 | 2403 octave_idx_type info; |
| 7788 | 2404 double rcon; |
| 2405 return solve (b, info, rcon, 0); | |
| 458 | 2406 } |
| 2407 | |
| 2408 ComplexMatrix | |
| 5275 | 2409 ComplexMatrix::solve (const Matrix& b, octave_idx_type& info) const |
| 458 | 2410 { |
| 7788 | 2411 double rcon; |
| 2412 return solve (b, info, rcon, 0); | |
| 458 | 2413 } |
| 2414 | |
| 2415 ComplexMatrix | |
| 7788 | 2416 ComplexMatrix::solve (const Matrix& b, octave_idx_type& info, double& rcon) const |
| 458 | 2417 { |
| 7788 | 2418 return solve (b, info, rcon, 0); |
| 3480 | 2419 } |
| 2420 | |
| 2421 ComplexMatrix | |
| 7788 | 2422 ComplexMatrix::solve (const Matrix& b, octave_idx_type& info, double& rcon, |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2423 solve_singularity_handler sing_handler, blas_trans_type transt) const |
| 3480 | 2424 { |
| 458 | 2425 ComplexMatrix tmp (b); |
|
9661
afcf852256d2
optimize / and '\ for triangular matrices
Jaroslav Hajek <highegg@gmail.com>
parents:
9658
diff
changeset
|
2426 return solve (tmp, info, rcon, sing_handler, transt); |
| 458 | 2427 } |
| 2428 | |
| 2429 ComplexMatrix | |
| 2430 ComplexMatrix::solve (const ComplexMatrix& b) const | |
| 2431 { | |
| 5275 | 2432 octave_idx_type info; |
| 7788 | 2433 double rcon; |
| 2434 return solve (b, info, rcon, 0); | |
| 458 | 2435 } |
| 2436 | |
| 2437 ComplexMatrix | |
| 5275 | 2438 ComplexMatrix::solve (const ComplexMatrix& b, octave_idx_type& info) const |
| 458 | 2439 { |
| 7788 | 2440 double rcon; |
| 2441 return solve (b, info, rcon, 0); | |
| 458 | 2442 } |
| 3480 | 2443 |
| 458 | 2444 ComplexMatrix |
| 7788 | 2445 ComplexMatrix::solve (const ComplexMatrix& b, octave_idx_type& info, double& rcon) const |
| 458 | 2446 { |
| 7788 | 2447 return solve (b, info, rcon, 0); |
| 3480 | 2448 } |
| 2449 | |
| 2450 ComplexMatrix | |
| 7788 | 2451 ComplexMatrix::solve (const ComplexMatrix& b, octave_idx_type& info, double& rcon, |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2452 solve_singularity_handler sing_handler, blas_trans_type transt) const |
| 3480 | 2453 { |
| 5785 | 2454 MatrixType mattype (*this); |
|
9661
afcf852256d2
optimize / and '\ for triangular matrices
Jaroslav Hajek <highegg@gmail.com>
parents:
9658
diff
changeset
|
2455 return solve (mattype, b, info, rcon, sing_handler, true, transt); |
| 458 | 2456 } |
| 2457 | |
| 2458 ComplexColumnVector | |
| 3585 | 2459 ComplexMatrix::solve (const ColumnVector& b) const |
| 2460 { | |
| 5275 | 2461 octave_idx_type info; |
| 7788 | 2462 double rcon; |
| 2463 return solve (ComplexColumnVector (b), info, rcon, 0); | |
| 3585 | 2464 } |
| 2465 | |
| 2466 ComplexColumnVector | |
| 5275 | 2467 ComplexMatrix::solve (const ColumnVector& b, octave_idx_type& info) const |
| 3585 | 2468 { |
| 7788 | 2469 double rcon; |
| 2470 return solve (ComplexColumnVector (b), info, rcon, 0); | |
| 3585 | 2471 } |
| 2472 | |
| 2473 ComplexColumnVector | |
| 5785 | 2474 ComplexMatrix::solve (const ColumnVector& b, octave_idx_type& info, |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2475 double& rcon) const |
| 3585 | 2476 { |
| 7788 | 2477 return solve (ComplexColumnVector (b), info, rcon, 0); |
| 3585 | 2478 } |
| 2479 | |
| 2480 ComplexColumnVector | |
| 5785 | 2481 ComplexMatrix::solve (const ColumnVector& b, octave_idx_type& info, |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2482 double& rcon, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2483 solve_singularity_handler sing_handler, blas_trans_type transt) const |
| 3585 | 2484 { |
|
9661
afcf852256d2
optimize / and '\ for triangular matrices
Jaroslav Hajek <highegg@gmail.com>
parents:
9658
diff
changeset
|
2485 return solve (ComplexColumnVector (b), info, rcon, sing_handler, transt); |
| 3585 | 2486 } |
| 2487 | |
| 2488 ComplexColumnVector | |
| 458 | 2489 ComplexMatrix::solve (const ComplexColumnVector& b) const |
| 2490 { | |
| 5275 | 2491 octave_idx_type info; |
| 7788 | 2492 double rcon; |
| 2493 return solve (b, info, rcon, 0); | |
| 458 | 2494 } |
| 2495 | |
| 2496 ComplexColumnVector | |
| 5275 | 2497 ComplexMatrix::solve (const ComplexColumnVector& b, octave_idx_type& info) const |
| 458 | 2498 { |
| 7788 | 2499 double rcon; |
| 2500 return solve (b, info, rcon, 0); | |
| 458 | 2501 } |
| 2502 | |
| 2503 ComplexColumnVector | |
| 5275 | 2504 ComplexMatrix::solve (const ComplexColumnVector& b, octave_idx_type& info, |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2505 double& rcon) const |
| 458 | 2506 { |
| 7788 | 2507 return solve (b, info, rcon, 0); |
| 3480 | 2508 } |
| 2509 | |
| 2510 ComplexColumnVector | |
| 5275 | 2511 ComplexMatrix::solve (const ComplexColumnVector& b, octave_idx_type& info, |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2512 double& rcon, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2513 solve_singularity_handler sing_handler, blas_trans_type transt) const |
| 3480 | 2514 { |
| 5785 | 2515 MatrixType mattype (*this); |
|
9661
afcf852256d2
optimize / and '\ for triangular matrices
Jaroslav Hajek <highegg@gmail.com>
parents:
9658
diff
changeset
|
2516 return solve (mattype, b, info, rcon, sing_handler, transt); |
| 458 | 2517 } |
| 2518 | |
| 2519 ComplexMatrix | |
| 3585 | 2520 ComplexMatrix::lssolve (const Matrix& b) const |
| 2521 { | |
| 5275 | 2522 octave_idx_type info; |
| 2523 octave_idx_type rank; | |
| 7788 | 2524 double rcon; |
| 2525 return lssolve (ComplexMatrix (b), info, rank, rcon); | |
| 3585 | 2526 } |
| 2527 | |
| 2528 ComplexMatrix | |
| 5275 | 2529 ComplexMatrix::lssolve (const Matrix& b, octave_idx_type& info) const |
| 3585 | 2530 { |
| 5275 | 2531 octave_idx_type rank; |
| 7788 | 2532 double rcon; |
| 2533 return lssolve (ComplexMatrix (b), info, rank, rcon); | |
| 3585 | 2534 } |
| 2535 | |
| 2536 ComplexMatrix | |
| 7076 | 2537 ComplexMatrix::lssolve (const Matrix& b, octave_idx_type& info, |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2538 octave_idx_type& rank) const |
| 3585 | 2539 { |
| 7788 | 2540 double rcon; |
| 2541 return lssolve (ComplexMatrix (b), info, rank, rcon); | |
| 7076 | 2542 } |
| 2543 | |
| 2544 ComplexMatrix | |
| 2545 ComplexMatrix::lssolve (const Matrix& b, octave_idx_type& info, | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2546 octave_idx_type& rank, double& rcon) const |
| 7076 | 2547 { |
| 7788 | 2548 return lssolve (ComplexMatrix (b), info, rank, rcon); |
| 3585 | 2549 } |
| 2550 | |
| 2551 ComplexMatrix | |
| 458 | 2552 ComplexMatrix::lssolve (const ComplexMatrix& b) const |
| 2553 { | |
| 5275 | 2554 octave_idx_type info; |
| 2555 octave_idx_type rank; | |
| 7788 | 2556 double rcon; |
| 2557 return lssolve (b, info, rank, rcon); | |
| 458 | 2558 } |
| 2559 | |
| 2560 ComplexMatrix | |
| 5275 | 2561 ComplexMatrix::lssolve (const ComplexMatrix& b, octave_idx_type& info) const |
| 458 | 2562 { |
| 5275 | 2563 octave_idx_type rank; |
| 7788 | 2564 double rcon; |
| 2565 return lssolve (b, info, rank, rcon); | |
| 458 | 2566 } |
| 2567 | |
| 2568 ComplexMatrix | |
| 7076 | 2569 ComplexMatrix::lssolve (const ComplexMatrix& b, octave_idx_type& info, |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2570 octave_idx_type& rank) const |
| 7076 | 2571 { |
| 7788 | 2572 double rcon; |
| 2573 return lssolve (b, info, rank, rcon); | |
| 7076 | 2574 } |
| 2575 | |
| 2576 ComplexMatrix | |
| 2577 ComplexMatrix::lssolve (const ComplexMatrix& b, octave_idx_type& info, | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2578 octave_idx_type& rank, double& rcon) const |
| 458 | 2579 { |
| 1948 | 2580 ComplexMatrix retval; |
| 2581 | |
| 5275 | 2582 octave_idx_type nrhs = b.cols (); |
| 2583 | |
| 2584 octave_idx_type m = rows (); | |
| 2585 octave_idx_type n = cols (); | |
| 458 | 2586 |
| 6924 | 2587 if (m != b.rows ()) |
| 1948 | 2588 (*current_liboctave_error_handler) |
| 2589 ("matrix dimension mismatch solution of linear equations"); | |
| 6924 | 2590 else if (m== 0 || n == 0 || b.cols () == 0) |
| 2591 retval = ComplexMatrix (n, b.cols (), Complex (0.0, 0.0)); | |
| 1948 | 2592 else |
| 458 | 2593 { |
| 7072 | 2594 volatile octave_idx_type minmn = (m < n ? m : n); |
| 2595 octave_idx_type maxmn = m > n ? m : n; | |
| 7788 | 2596 rcon = -1.0; |
| 7072 | 2597 |
| 2598 if (m != n) | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2599 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2600 retval = ComplexMatrix (maxmn, nrhs); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2601 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2602 for (octave_idx_type j = 0; j < nrhs; j++) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2603 for (octave_idx_type i = 0; i < m; i++) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2604 retval.elem (i, j) = b.elem (i, j); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2605 } |
| 7072 | 2606 else |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2607 retval = b; |
| 7072 | 2608 |
| 1948 | 2609 ComplexMatrix atmp = *this; |
| 2610 Complex *tmp_data = atmp.fortran_vec (); | |
| 2611 | |
| 7072 | 2612 Complex *pretval = retval.fortran_vec (); |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
2613 Array<double> s (minmn, 1); |
| 7071 | 2614 double *ps = s.fortran_vec (); |
| 2563 | 2615 |
| 7072 | 2616 // Ask ZGELSD what the dimension of WORK should be. |
| 5275 | 2617 octave_idx_type lwork = -1; |
| 3752 | 2618 |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
2619 Array<Complex> work (1, 1); |
| 7079 | 2620 |
| 7477 | 2621 octave_idx_type smlsiz; |
| 2622 F77_FUNC (xilaenv, XILAENV) (9, F77_CONST_CHAR_ARG2 ("ZGELSD", 6), | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2623 F77_CONST_CHAR_ARG2 (" ", 1), |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2624 0, 0, 0, 0, smlsiz |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2625 F77_CHAR_ARG_LEN (6) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2626 F77_CHAR_ARG_LEN (1)); |
| 7079 | 2627 |
|
7486
6a6d2abe51ff
more xGELSD workspace fixes
John W. Eaton <jwe@octave.org>
parents:
7482
diff
changeset
|
2628 octave_idx_type mnthr; |
|
6a6d2abe51ff
more xGELSD workspace fixes
John W. Eaton <jwe@octave.org>
parents:
7482
diff
changeset
|
2629 F77_FUNC (xilaenv, XILAENV) (6, F77_CONST_CHAR_ARG2 ("ZGELSD", 6), |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2630 F77_CONST_CHAR_ARG2 (" ", 1), |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2631 m, n, nrhs, -1, mnthr |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2632 F77_CHAR_ARG_LEN (6) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2633 F77_CHAR_ARG_LEN (1)); |
|
7486
6a6d2abe51ff
more xGELSD workspace fixes
John W. Eaton <jwe@octave.org>
parents:
7482
diff
changeset
|
2634 |
| 7079 | 2635 // We compute the size of rwork and iwork because ZGELSD in |
| 2636 // older versions of LAPACK does not return them on a query | |
| 2637 // call. | |
| 7124 | 2638 double dminmn = static_cast<double> (minmn); |
| 2639 double dsmlsizp1 = static_cast<double> (smlsiz+1); | |
| 7079 | 2640 #if defined (HAVE_LOG2) |
|
7544
f9983d2761df
more xGELSD workspace fixes
Jaroslav Hajek <highegg@gmail.com>
parents:
7532
diff
changeset
|
2641 double tmp = log2 (dminmn / dsmlsizp1); |
| 7079 | 2642 #else |
|
7544
f9983d2761df
more xGELSD workspace fixes
Jaroslav Hajek <highegg@gmail.com>
parents:
7532
diff
changeset
|
2643 double tmp = log (dminmn / dsmlsizp1) / log (2.0); |
| 7079 | 2644 #endif |
|
7544
f9983d2761df
more xGELSD workspace fixes
Jaroslav Hajek <highegg@gmail.com>
parents:
7532
diff
changeset
|
2645 octave_idx_type nlvl = static_cast<octave_idx_type> (tmp) + 1; |
| 7079 | 2646 if (nlvl < 0) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2647 nlvl = 0; |
| 7079 | 2648 |
| 2649 octave_idx_type lrwork = minmn*(10 + 2*smlsiz + 8*nlvl) | |
|
10779
add87b12e63c
implement proper CGELSD/ZGELSD RWORK size formulas, as found in lapack SVN
Jaroslav Hajek <highegg@gmail.com>
parents:
10732
diff
changeset
|
2650 + 3*smlsiz*nrhs + std::max ((smlsiz+1)*(smlsiz+1), |
|
add87b12e63c
implement proper CGELSD/ZGELSD RWORK size formulas, as found in lapack SVN
Jaroslav Hajek <highegg@gmail.com>
parents:
10732
diff
changeset
|
2651 n*(1+nrhs) + 2*nrhs); |
| 7079 | 2652 if (lrwork < 1) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2653 lrwork = 1; |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
2654 Array<double> rwork (lrwork, 1); |
| 7079 | 2655 double *prwork = rwork.fortran_vec (); |
| 2656 | |
| 2657 octave_idx_type liwork = 3 * minmn * nlvl + 11 * minmn; | |
| 2658 if (liwork < 1) | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2659 liwork = 1; |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
2660 Array<octave_idx_type> iwork (liwork, 1); |
| 7079 | 2661 octave_idx_type* piwork = iwork.fortran_vec (); |
| 7072 | 2662 |
| 2663 F77_XFCN (zgelsd, ZGELSD, (m, n, nrhs, tmp_data, m, pretval, maxmn, | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2664 ps, rcon, rank, work.fortran_vec (), |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2665 lwork, prwork, piwork, info)); |
| 1948 | 2666 |
| 7476 | 2667 // The workspace query is broken in at least LAPACK 3.0.0 |
|
7488
6470f946a425
another small xGELSD workspace fix
John W. Eaton <jwe@octave.org>
parents:
7486
diff
changeset
|
2668 // through 3.1.1 when n >= mnthr. The obtuse formula below |
|
7486
6a6d2abe51ff
more xGELSD workspace fixes
John W. Eaton <jwe@octave.org>
parents:
7482
diff
changeset
|
2669 // should provide sufficient workspace for ZGELSD to operate |
| 7476 | 2670 // efficiently. |
|
7488
6470f946a425
another small xGELSD workspace fix
John W. Eaton <jwe@octave.org>
parents:
7486
diff
changeset
|
2671 if (n >= mnthr) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2672 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2673 octave_idx_type addend = m; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2674 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2675 if (2*m-4 > addend) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2676 addend = 2*m-4; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2677 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2678 if (nrhs > addend) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2679 addend = nrhs; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2680 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2681 if (n-3*m > addend) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2682 addend = n-3*m; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2683 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2684 const octave_idx_type lworkaround = 4*m + m*m + addend; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2685 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2686 if (std::real (work(0)) < lworkaround) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2687 work(0) = lworkaround; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2688 } |
|
7532
493bb0de3199
avoid another xGELSD workspace query bug
John W. Eaton <jwe@octave.org>
parents:
7503
diff
changeset
|
2689 else if (m >= n) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2690 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2691 octave_idx_type lworkaround = 2*m + m*nrhs; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2692 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2693 if (std::real (work(0)) < lworkaround) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2694 work(0) = lworkaround; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2695 } |
| 7476 | 2696 |
|
7482
29980c6b8604
don't check f77_exception_encountered
John W. Eaton <jwe@octave.org>
parents:
7478
diff
changeset
|
2697 lwork = static_cast<octave_idx_type> (std::real (work(0))); |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
2698 work.resize (lwork, 1); |
|
7482
29980c6b8604
don't check f77_exception_encountered
John W. Eaton <jwe@octave.org>
parents:
7478
diff
changeset
|
2699 |
|
29980c6b8604
don't check f77_exception_encountered
John W. Eaton <jwe@octave.org>
parents:
7478
diff
changeset
|
2700 F77_XFCN (zgelsd, ZGELSD, (m, n, nrhs, tmp_data, m, pretval, |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2701 maxmn, ps, rcon, rank, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2702 work.fortran_vec (), lwork, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2703 prwork, piwork, info)); |
|
7482
29980c6b8604
don't check f77_exception_encountered
John W. Eaton <jwe@octave.org>
parents:
7478
diff
changeset
|
2704 |
|
29980c6b8604
don't check f77_exception_encountered
John W. Eaton <jwe@octave.org>
parents:
7478
diff
changeset
|
2705 if (s.elem (0) == 0.0) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2706 rcon = 0.0; |
| 1948 | 2707 else |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2708 rcon = s.elem (minmn - 1) / s.elem (0); |
|
7482
29980c6b8604
don't check f77_exception_encountered
John W. Eaton <jwe@octave.org>
parents:
7478
diff
changeset
|
2709 |
|
29980c6b8604
don't check f77_exception_encountered
John W. Eaton <jwe@octave.org>
parents:
7478
diff
changeset
|
2710 retval.resize (n, nrhs); |
| 458 | 2711 } |
| 2712 | |
| 2713 return retval; | |
| 2714 } | |
| 2715 | |
| 2716 ComplexColumnVector | |
| 3585 | 2717 ComplexMatrix::lssolve (const ColumnVector& b) const |
| 2718 { | |
| 5275 | 2719 octave_idx_type info; |
| 2720 octave_idx_type rank; | |
| 7788 | 2721 double rcon; |
| 2722 return lssolve (ComplexColumnVector (b), info, rank, rcon); | |
| 3585 | 2723 } |
| 2724 | |
| 2725 ComplexColumnVector | |
| 5275 | 2726 ComplexMatrix::lssolve (const ColumnVector& b, octave_idx_type& info) const |
| 3585 | 2727 { |
| 5275 | 2728 octave_idx_type rank; |
| 7788 | 2729 double rcon; |
| 2730 return lssolve (ComplexColumnVector (b), info, rank, rcon); | |
| 3585 | 2731 } |
| 2732 | |
| 2733 ComplexColumnVector | |
| 7076 | 2734 ComplexMatrix::lssolve (const ColumnVector& b, octave_idx_type& info, |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2735 octave_idx_type& rank) const |
| 3585 | 2736 { |
| 7788 | 2737 double rcon; |
| 2738 return lssolve (ComplexColumnVector (b), info, rank, rcon); | |
| 7076 | 2739 } |
| 2740 | |
| 2741 ComplexColumnVector | |
| 2742 ComplexMatrix::lssolve (const ColumnVector& b, octave_idx_type& info, | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2743 octave_idx_type& rank, double& rcon) const |
| 7076 | 2744 { |
| 7788 | 2745 return lssolve (ComplexColumnVector (b), info, rank, rcon); |
| 3585 | 2746 } |
| 2747 | |
| 2748 ComplexColumnVector | |
| 458 | 2749 ComplexMatrix::lssolve (const ComplexColumnVector& b) const |
| 2750 { | |
| 5275 | 2751 octave_idx_type info; |
| 2752 octave_idx_type rank; | |
| 7788 | 2753 double rcon; |
| 2754 return lssolve (b, info, rank, rcon); | |
| 458 | 2755 } |
| 2756 | |
| 2757 ComplexColumnVector | |
| 5275 | 2758 ComplexMatrix::lssolve (const ComplexColumnVector& b, octave_idx_type& info) const |
| 458 | 2759 { |
| 5275 | 2760 octave_idx_type rank; |
| 7788 | 2761 double rcon; |
| 2762 return lssolve (b, info, rank, rcon); | |
| 458 | 2763 } |
| 2764 | |
| 2765 ComplexColumnVector | |
| 5275 | 2766 ComplexMatrix::lssolve (const ComplexColumnVector& b, octave_idx_type& info, |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2767 octave_idx_type& rank) const |
| 458 | 2768 { |
| 7788 | 2769 double rcon; |
| 2770 return lssolve (b, info, rank, rcon); | |
| 7076 | 2771 |
| 2772 } | |
| 2773 | |
| 2774 ComplexColumnVector | |
| 2775 ComplexMatrix::lssolve (const ComplexColumnVector& b, octave_idx_type& info, | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2776 octave_idx_type& rank, double& rcon) const |
| 7076 | 2777 { |
| 1948 | 2778 ComplexColumnVector retval; |
| 2779 | |
| 5275 | 2780 octave_idx_type nrhs = 1; |
| 2781 | |
| 2782 octave_idx_type m = rows (); | |
| 2783 octave_idx_type n = cols (); | |
| 458 | 2784 |
| 6924 | 2785 if (m != b.length ()) |
| 1948 | 2786 (*current_liboctave_error_handler) |
| 6924 | 2787 ("matrix dimension mismatch solution of linear equations"); |
| 2788 else if (m == 0 || n == 0 || b.cols () == 0) | |
| 2789 retval = ComplexColumnVector (n, Complex (0.0, 0.0)); | |
| 1948 | 2790 else |
| 458 | 2791 { |
| 7072 | 2792 volatile octave_idx_type minmn = (m < n ? m : n); |
| 2793 octave_idx_type maxmn = m > n ? m : n; | |
| 7788 | 2794 rcon = -1.0; |
| 7072 | 2795 |
| 2796 if (m != n) | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2797 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2798 retval = ComplexColumnVector (maxmn); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2799 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2800 for (octave_idx_type i = 0; i < m; i++) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2801 retval.elem (i) = b.elem (i); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2802 } |
| 7072 | 2803 else |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2804 retval = b; |
| 7072 | 2805 |
| 1948 | 2806 ComplexMatrix atmp = *this; |
| 2807 Complex *tmp_data = atmp.fortran_vec (); | |
| 2808 | |
| 7072 | 2809 Complex *pretval = retval.fortran_vec (); |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
2810 Array<double> s (minmn, 1); |
| 7071 | 2811 double *ps = s.fortran_vec (); |
| 1948 | 2812 |
| 7072 | 2813 // Ask ZGELSD what the dimension of WORK should be. |
| 5275 | 2814 octave_idx_type lwork = -1; |
| 3752 | 2815 |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
2816 Array<Complex> work (1, 1); |
| 7079 | 2817 |
|
7544
f9983d2761df
more xGELSD workspace fixes
Jaroslav Hajek <highegg@gmail.com>
parents:
7532
diff
changeset
|
2818 octave_idx_type smlsiz; |
|
f9983d2761df
more xGELSD workspace fixes
Jaroslav Hajek <highegg@gmail.com>
parents:
7532
diff
changeset
|
2819 F77_FUNC (xilaenv, XILAENV) (9, F77_CONST_CHAR_ARG2 ("ZGELSD", 6), |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2820 F77_CONST_CHAR_ARG2 (" ", 1), |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2821 0, 0, 0, 0, smlsiz |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2822 F77_CHAR_ARG_LEN (6) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2823 F77_CHAR_ARG_LEN (1)); |
| 7079 | 2824 |
| 2825 // We compute the size of rwork and iwork because ZGELSD in | |
| 2826 // older versions of LAPACK does not return them on a query | |
| 2827 // call. | |
| 7124 | 2828 double dminmn = static_cast<double> (minmn); |
| 2829 double dsmlsizp1 = static_cast<double> (smlsiz+1); | |
| 7079 | 2830 #if defined (HAVE_LOG2) |
|
7544
f9983d2761df
more xGELSD workspace fixes
Jaroslav Hajek <highegg@gmail.com>
parents:
7532
diff
changeset
|
2831 double tmp = log2 (dminmn / dsmlsizp1); |
| 7079 | 2832 #else |
|
7544
f9983d2761df
more xGELSD workspace fixes
Jaroslav Hajek <highegg@gmail.com>
parents:
7532
diff
changeset
|
2833 double tmp = log (dminmn / dsmlsizp1) / log (2.0); |
| 7079 | 2834 #endif |
|
7544
f9983d2761df
more xGELSD workspace fixes
Jaroslav Hajek <highegg@gmail.com>
parents:
7532
diff
changeset
|
2835 octave_idx_type nlvl = static_cast<octave_idx_type> (tmp) + 1; |
| 7079 | 2836 if (nlvl < 0) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2837 nlvl = 0; |
| 7079 | 2838 |
| 2839 octave_idx_type lrwork = minmn*(10 + 2*smlsiz + 8*nlvl) | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2840 + 3*smlsiz*nrhs + (smlsiz+1)*(smlsiz+1); |
| 7079 | 2841 if (lrwork < 1) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2842 lrwork = 1; |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
2843 Array<double> rwork (lrwork, 1); |
| 7079 | 2844 double *prwork = rwork.fortran_vec (); |
| 2845 | |
| 2846 octave_idx_type liwork = 3 * minmn * nlvl + 11 * minmn; | |
| 2847 if (liwork < 1) | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2848 liwork = 1; |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
2849 Array<octave_idx_type> iwork (liwork, 1); |
| 7079 | 2850 octave_idx_type* piwork = iwork.fortran_vec (); |
| 7072 | 2851 |
| 2852 F77_XFCN (zgelsd, ZGELSD, (m, n, nrhs, tmp_data, m, pretval, maxmn, | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2853 ps, rcon, rank, work.fortran_vec (), |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2854 lwork, prwork, piwork, info)); |
| 1948 | 2855 |
|
7482
29980c6b8604
don't check f77_exception_encountered
John W. Eaton <jwe@octave.org>
parents:
7478
diff
changeset
|
2856 lwork = static_cast<octave_idx_type> (std::real (work(0))); |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
2857 work.resize (lwork, 1); |
|
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
2858 rwork.resize (static_cast<octave_idx_type> (rwork(0)), 1); |
|
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
2859 iwork.resize (iwork(0), 1); |
|
7482
29980c6b8604
don't check f77_exception_encountered
John W. Eaton <jwe@octave.org>
parents:
7478
diff
changeset
|
2860 |
|
29980c6b8604
don't check f77_exception_encountered
John W. Eaton <jwe@octave.org>
parents:
7478
diff
changeset
|
2861 F77_XFCN (zgelsd, ZGELSD, (m, n, nrhs, tmp_data, m, pretval, |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2862 maxmn, ps, rcon, rank, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2863 work.fortran_vec (), lwork, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2864 prwork, piwork, info)); |
|
7482
29980c6b8604
don't check f77_exception_encountered
John W. Eaton <jwe@octave.org>
parents:
7478
diff
changeset
|
2865 |
|
29980c6b8604
don't check f77_exception_encountered
John W. Eaton <jwe@octave.org>
parents:
7478
diff
changeset
|
2866 if (rank < minmn) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2867 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2868 if (s.elem (0) == 0.0) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2869 rcon = 0.0; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2870 else |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2871 rcon = s.elem (minmn - 1) / s.elem (0); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2872 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2873 retval.resize (n, nrhs); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2874 } |
| 458 | 2875 } |
| 2876 | |
| 2877 return retval; | |
| 2878 } | |
| 2879 | |
| 1205 | 2880 // column vector by row vector -> matrix operations |
| 2881 | |
| 2882 ComplexMatrix | |
| 2883 operator * (const ColumnVector& v, const ComplexRowVector& a) | |
| 2884 { | |
| 2885 ComplexColumnVector tmp (v); | |
| 2886 return tmp * a; | |
| 2887 } | |
| 2888 | |
| 2889 ComplexMatrix | |
| 2890 operator * (const ComplexColumnVector& a, const RowVector& b) | |
| 2891 { | |
| 2892 ComplexRowVector tmp (b); | |
| 2893 return a * tmp; | |
| 2894 } | |
| 2895 | |
| 2896 ComplexMatrix | |
| 2897 operator * (const ComplexColumnVector& v, const ComplexRowVector& a) | |
| 2898 { | |
| 1948 | 2899 ComplexMatrix retval; |
| 2900 | |
| 5275 | 2901 octave_idx_type len = v.length (); |
| 3233 | 2902 |
| 2903 if (len != 0) | |
| 1205 | 2904 { |
| 5275 | 2905 octave_idx_type a_len = a.length (); |
| 3233 | 2906 |
|
9359
be6867ba8104
avoid useless zero initialization when doing matrix multiply
Jaroslav Hajek <highegg@gmail.com>
parents:
9227
diff
changeset
|
2907 retval = ComplexMatrix (len, a_len); |
| 3233 | 2908 Complex *c = retval.fortran_vec (); |
| 2909 | |
| 4552 | 2910 F77_XFCN (zgemm, ZGEMM, (F77_CONST_CHAR_ARG2 ("N", 1), |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2911 F77_CONST_CHAR_ARG2 ("N", 1), |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2912 len, a_len, 1, 1.0, v.data (), len, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2913 a.data (), 1, 0.0, c, len |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2914 F77_CHAR_ARG_LEN (1) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
2915 F77_CHAR_ARG_LEN (1))); |
| 1205 | 2916 } |
| 2917 | |
| 1948 | 2918 return retval; |
| 1205 | 2919 } |
| 2920 | |
| 458 | 2921 // matrix by diagonal matrix -> matrix operations |
| 2922 | |
| 2923 ComplexMatrix& | |
| 2924 ComplexMatrix::operator += (const DiagMatrix& a) | |
| 2925 { | |
| 5275 | 2926 octave_idx_type nr = rows (); |
| 2927 octave_idx_type nc = cols (); | |
| 2928 | |
| 2929 octave_idx_type a_nr = rows (); | |
| 2930 octave_idx_type a_nc = cols (); | |
| 2384 | 2931 |
| 2932 if (nr != a_nr || nc != a_nc) | |
| 458 | 2933 { |
| 2384 | 2934 gripe_nonconformant ("operator +=", nr, nc, a_nr, a_nc); |
| 889 | 2935 return *this; |
| 458 | 2936 } |
| 2937 | |
| 5275 | 2938 for (octave_idx_type i = 0; i < a.length (); i++) |
| 458 | 2939 elem (i, i) += a.elem (i, i); |
| 2940 | |
| 2941 return *this; | |
| 2942 } | |
| 2943 | |
| 2944 ComplexMatrix& | |
| 2945 ComplexMatrix::operator -= (const DiagMatrix& a) | |
| 2946 { | |
| 5275 | 2947 octave_idx_type nr = rows (); |
| 2948 octave_idx_type nc = cols (); | |
| 2949 | |
| 2950 octave_idx_type a_nr = rows (); | |
| 2951 octave_idx_type a_nc = cols (); | |
| 2384 | 2952 |
| 2953 if (nr != a_nr || nc != a_nc) | |
| 458 | 2954 { |
| 2384 | 2955 gripe_nonconformant ("operator -=", nr, nc, a_nr, a_nc); |
| 889 | 2956 return *this; |
| 458 | 2957 } |
| 2958 | |
| 5275 | 2959 for (octave_idx_type i = 0; i < a.length (); i++) |
| 458 | 2960 elem (i, i) -= a.elem (i, i); |
| 2961 | |
| 2962 return *this; | |
| 2963 } | |
| 2964 | |
| 2965 ComplexMatrix& | |
| 2966 ComplexMatrix::operator += (const ComplexDiagMatrix& a) | |
| 2967 { | |
| 5275 | 2968 octave_idx_type nr = rows (); |
| 2969 octave_idx_type nc = cols (); | |
| 2970 | |
| 2971 octave_idx_type a_nr = rows (); | |
| 2972 octave_idx_type a_nc = cols (); | |
| 2384 | 2973 |
| 2974 if (nr != a_nr || nc != a_nc) | |
| 458 | 2975 { |
| 2384 | 2976 gripe_nonconformant ("operator +=", nr, nc, a_nr, a_nc); |
| 889 | 2977 return *this; |
| 458 | 2978 } |
| 2979 | |
| 5275 | 2980 for (octave_idx_type i = 0; i < a.length (); i++) |
| 458 | 2981 elem (i, i) += a.elem (i, i); |
| 2982 | |
| 2983 return *this; | |
| 2984 } | |
| 2985 | |
| 2986 ComplexMatrix& | |
| 2987 ComplexMatrix::operator -= (const ComplexDiagMatrix& a) | |
| 2988 { | |
| 5275 | 2989 octave_idx_type nr = rows (); |
| 2990 octave_idx_type nc = cols (); | |
| 2991 | |
| 2992 octave_idx_type a_nr = rows (); | |
| 2993 octave_idx_type a_nc = cols (); | |
| 2384 | 2994 |
| 2995 if (nr != a_nr || nc != a_nc) | |
| 458 | 2996 { |
| 2384 | 2997 gripe_nonconformant ("operator -=", nr, nc, a_nr, a_nc); |
| 889 | 2998 return *this; |
| 458 | 2999 } |
| 3000 | |
| 5275 | 3001 for (octave_idx_type i = 0; i < a.length (); i++) |
| 458 | 3002 elem (i, i) -= a.elem (i, i); |
| 3003 | |
| 3004 return *this; | |
| 3005 } | |
| 3006 | |
| 3007 // matrix by matrix -> matrix operations | |
| 3008 | |
| 3009 ComplexMatrix& | |
| 3010 ComplexMatrix::operator += (const Matrix& a) | |
| 3011 { | |
| 5275 | 3012 octave_idx_type nr = rows (); |
| 3013 octave_idx_type nc = cols (); | |
| 3014 | |
| 3015 octave_idx_type a_nr = a.rows (); | |
| 3016 octave_idx_type a_nc = a.cols (); | |
| 2384 | 3017 |
| 3018 if (nr != a_nr || nc != a_nc) | |
| 458 | 3019 { |
| 2384 | 3020 gripe_nonconformant ("operator +=", nr, nc, a_nr, a_nc); |
| 458 | 3021 return *this; |
| 3022 } | |
| 3023 | |
| 3024 if (nr == 0 || nc == 0) | |
| 3025 return *this; | |
| 3026 | |
| 3027 Complex *d = fortran_vec (); // Ensures only one reference to my privates! | |
| 3028 | |
|
9550
3d6a9aea2aea
refactor binary & bool ops in liboctave
Jaroslav Hajek <highegg@gmail.com>
parents:
9528
diff
changeset
|
3029 mx_inline_add2 (length (), d, a.data ()); |
| 458 | 3030 return *this; |
| 3031 } | |
| 3032 | |
| 3033 ComplexMatrix& | |
| 3034 ComplexMatrix::operator -= (const Matrix& a) | |
| 3035 { | |
| 5275 | 3036 octave_idx_type nr = rows (); |
| 3037 octave_idx_type nc = cols (); | |
| 3038 | |
| 3039 octave_idx_type a_nr = a.rows (); | |
| 3040 octave_idx_type a_nc = a.cols (); | |
| 2384 | 3041 |
| 3042 if (nr != a_nr || nc != a_nc) | |
| 458 | 3043 { |
| 2384 | 3044 gripe_nonconformant ("operator -=", nr, nc, a_nr, a_nc); |
| 458 | 3045 return *this; |
| 3046 } | |
| 3047 | |
| 3048 if (nr == 0 || nc == 0) | |
| 3049 return *this; | |
| 3050 | |
| 3051 Complex *d = fortran_vec (); // Ensures only one reference to my privates! | |
| 3052 | |
|
9550
3d6a9aea2aea
refactor binary & bool ops in liboctave
Jaroslav Hajek <highegg@gmail.com>
parents:
9528
diff
changeset
|
3053 mx_inline_sub2 (length (), d, a.data ()); |
| 458 | 3054 return *this; |
| 3055 } | |
| 3056 | |
| 3057 // unary operations | |
| 3058 | |
| 2964 | 3059 boolMatrix |
| 458 | 3060 ComplexMatrix::operator ! (void) const |
| 3061 { | |
|
10362
b47ab50a6aa8
simplify appliers in mx-inlines.cc
Jaroslav Hajek <highegg@gmail.com>
parents:
10352
diff
changeset
|
3062 return do_mx_unary_op<bool, Complex> (*this, mx_inline_not); |
| 458 | 3063 } |
| 3064 | |
| 3065 // other operations | |
| 3066 | |
| 2384 | 3067 bool |
|
7922
935be827eaf8
error for NaN values in & and | expressions
John W. Eaton <jwe@octave.org>
parents:
7803
diff
changeset
|
3068 ComplexMatrix::any_element_is_nan (void) const |
|
935be827eaf8
error for NaN values in & and | expressions
John W. Eaton <jwe@octave.org>
parents:
7803
diff
changeset
|
3069 { |
|
935be827eaf8
error for NaN values in & and | expressions
John W. Eaton <jwe@octave.org>
parents:
7803
diff
changeset
|
3070 octave_idx_type nr = rows (); |
|
935be827eaf8
error for NaN values in & and | expressions
John W. Eaton <jwe@octave.org>
parents:
7803
diff
changeset
|
3071 octave_idx_type nc = cols (); |
|
935be827eaf8
error for NaN values in & and | expressions
John W. Eaton <jwe@octave.org>
parents:
7803
diff
changeset
|
3072 |
|
935be827eaf8
error for NaN values in & and | expressions
John W. Eaton <jwe@octave.org>
parents:
7803
diff
changeset
|
3073 for (octave_idx_type j = 0; j < nc; j++) |
|
935be827eaf8
error for NaN values in & and | expressions
John W. Eaton <jwe@octave.org>
parents:
7803
diff
changeset
|
3074 for (octave_idx_type i = 0; i < nr; i++) |
|
935be827eaf8
error for NaN values in & and | expressions
John W. Eaton <jwe@octave.org>
parents:
7803
diff
changeset
|
3075 { |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3076 Complex val = elem (i, j); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3077 if (xisnan (val)) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3078 return true; |
|
7922
935be827eaf8
error for NaN values in & and | expressions
John W. Eaton <jwe@octave.org>
parents:
7803
diff
changeset
|
3079 } |
|
935be827eaf8
error for NaN values in & and | expressions
John W. Eaton <jwe@octave.org>
parents:
7803
diff
changeset
|
3080 |
|
935be827eaf8
error for NaN values in & and | expressions
John W. Eaton <jwe@octave.org>
parents:
7803
diff
changeset
|
3081 return false; |
|
935be827eaf8
error for NaN values in & and | expressions
John W. Eaton <jwe@octave.org>
parents:
7803
diff
changeset
|
3082 } |
|
935be827eaf8
error for NaN values in & and | expressions
John W. Eaton <jwe@octave.org>
parents:
7803
diff
changeset
|
3083 |
|
935be827eaf8
error for NaN values in & and | expressions
John W. Eaton <jwe@octave.org>
parents:
7803
diff
changeset
|
3084 bool |
| 2384 | 3085 ComplexMatrix::any_element_is_inf_or_nan (void) const |
| 3086 { | |
| 5275 | 3087 octave_idx_type nr = rows (); |
| 3088 octave_idx_type nc = cols (); | |
| 3089 | |
| 3090 for (octave_idx_type j = 0; j < nc; j++) | |
| 3091 for (octave_idx_type i = 0; i < nr; i++) | |
| 2384 | 3092 { |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3093 Complex val = elem (i, j); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3094 if (xisinf (val) || xisnan (val)) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3095 return true; |
| 2384 | 3096 } |
| 3097 | |
| 3098 return false; | |
| 3099 } | |
| 3100 | |
| 2408 | 3101 // Return true if no elements have imaginary components. |
| 3102 | |
| 3103 bool | |
| 3104 ComplexMatrix::all_elements_are_real (void) const | |
| 3105 { | |
|
9825
7483fe200fab
narrow complex values with negative zero imaginary parts
Jaroslav Hajek <highegg@gmail.com>
parents:
9812
diff
changeset
|
3106 return mx_inline_all_real (numel (), data ()); |
| 2408 | 3107 } |
| 3108 | |
| 1968 | 3109 // Return nonzero if any element of CM has a non-integer real or |
| 3110 // imaginary part. Also extract the largest and smallest (real or | |
| 3111 // imaginary) values and return them in MAX_VAL and MIN_VAL. | |
| 3112 | |
| 2384 | 3113 bool |
| 1968 | 3114 ComplexMatrix::all_integers (double& max_val, double& min_val) const |
| 3115 { | |
| 5275 | 3116 octave_idx_type nr = rows (); |
| 3117 octave_idx_type nc = cols (); | |
| 1968 | 3118 |
| 3119 if (nr > 0 && nc > 0) | |
| 3120 { | |
| 3121 Complex val = elem (0, 0); | |
| 3122 | |
| 5315 | 3123 double r_val = std::real (val); |
| 3124 double i_val = std::imag (val); | |
| 1968 | 3125 |
| 3126 max_val = r_val; | |
| 3127 min_val = r_val; | |
| 3128 | |
| 3129 if (i_val > max_val) | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3130 max_val = i_val; |
| 1968 | 3131 |
| 3132 if (i_val < max_val) | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3133 min_val = i_val; |
| 1968 | 3134 } |
| 3135 else | |
| 2384 | 3136 return false; |
| 1968 | 3137 |
| 5275 | 3138 for (octave_idx_type j = 0; j < nc; j++) |
| 3139 for (octave_idx_type i = 0; i < nr; i++) | |
| 1968 | 3140 { |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3141 Complex val = elem (i, j); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3142 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3143 double r_val = std::real (val); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3144 double i_val = std::imag (val); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3145 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3146 if (r_val > max_val) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3147 max_val = r_val; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3148 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3149 if (i_val > max_val) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3150 max_val = i_val; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3151 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3152 if (r_val < min_val) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3153 min_val = r_val; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3154 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3155 if (i_val < min_val) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3156 min_val = i_val; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3157 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3158 if (D_NINT (r_val) != r_val || D_NINT (i_val) != i_val) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3159 return false; |
| 1968 | 3160 } |
| 2384 | 3161 |
| 3162 return true; | |
| 1968 | 3163 } |
| 3164 | |
| 2384 | 3165 bool |
| 1968 | 3166 ComplexMatrix::too_large_for_float (void) const |
| 3167 { | |
| 5275 | 3168 octave_idx_type nr = rows (); |
| 3169 octave_idx_type nc = cols (); | |
| 3170 | |
| 3171 for (octave_idx_type j = 0; j < nc; j++) | |
| 3172 for (octave_idx_type i = 0; i < nr; i++) | |
| 1968 | 3173 { |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3174 Complex val = elem (i, j); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3175 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3176 double r_val = std::real (val); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3177 double i_val = std::imag (val); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3178 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3179 if ((! (xisnan (r_val) || xisinf (r_val)) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3180 && fabs (r_val) > FLT_MAX) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3181 || (! (xisnan (i_val) || xisinf (i_val)) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3182 && fabs (i_val) > FLT_MAX)) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3183 return true; |
| 1968 | 3184 } |
| 3185 | |
| 2384 | 3186 return false; |
| 1968 | 3187 } |
| 3188 | |
| 5775 | 3189 // FIXME Do these really belong here? Maybe they should be |
| 4015 | 3190 // in a base class? |
| 3191 | |
| 2832 | 3192 boolMatrix |
| 4015 | 3193 ComplexMatrix::all (int dim) const |
| 458 | 3194 { |
|
10362
b47ab50a6aa8
simplify appliers in mx-inlines.cc
Jaroslav Hajek <highegg@gmail.com>
parents:
10352
diff
changeset
|
3195 return do_mx_red_op<bool, Complex> (*this, dim, mx_inline_all); |
| 458 | 3196 } |
| 3197 | |
| 2832 | 3198 boolMatrix |
| 4015 | 3199 ComplexMatrix::any (int dim) const |
| 458 | 3200 { |
|
10362
b47ab50a6aa8
simplify appliers in mx-inlines.cc
Jaroslav Hajek <highegg@gmail.com>
parents:
10352
diff
changeset
|
3201 return do_mx_red_op<bool, Complex> (*this, dim, mx_inline_any); |
| 458 | 3202 } |
| 3203 | |
| 3204 ComplexMatrix | |
| 3723 | 3205 ComplexMatrix::cumprod (int dim) const |
| 458 | 3206 { |
|
10362
b47ab50a6aa8
simplify appliers in mx-inlines.cc
Jaroslav Hajek <highegg@gmail.com>
parents:
10352
diff
changeset
|
3207 return do_mx_cum_op<Complex, Complex> (*this, dim, mx_inline_cumprod); |
| 458 | 3208 } |
| 3209 | |
| 3210 ComplexMatrix | |
| 3723 | 3211 ComplexMatrix::cumsum (int dim) const |
| 458 | 3212 { |
|
10362
b47ab50a6aa8
simplify appliers in mx-inlines.cc
Jaroslav Hajek <highegg@gmail.com>
parents:
10352
diff
changeset
|
3213 return do_mx_cum_op<Complex, Complex> (*this, dim, mx_inline_cumsum); |
| 458 | 3214 } |
| 3215 | |
| 3216 ComplexMatrix | |
| 3723 | 3217 ComplexMatrix::prod (int dim) const |
| 458 | 3218 { |
|
10362
b47ab50a6aa8
simplify appliers in mx-inlines.cc
Jaroslav Hajek <highegg@gmail.com>
parents:
10352
diff
changeset
|
3219 return do_mx_red_op<Complex, Complex> (*this, dim, mx_inline_prod); |
| 458 | 3220 } |
| 3221 | |
| 3222 ComplexMatrix | |
| 3723 | 3223 ComplexMatrix::sum (int dim) const |
| 458 | 3224 { |
|
10362
b47ab50a6aa8
simplify appliers in mx-inlines.cc
Jaroslav Hajek <highegg@gmail.com>
parents:
10352
diff
changeset
|
3225 return do_mx_red_op<Complex, Complex> (*this, dim, mx_inline_sum); |
| 458 | 3226 } |
| 3227 | |
| 3228 ComplexMatrix | |
| 3723 | 3229 ComplexMatrix::sumsq (int dim) const |
| 458 | 3230 { |
|
10362
b47ab50a6aa8
simplify appliers in mx-inlines.cc
Jaroslav Hajek <highegg@gmail.com>
parents:
10352
diff
changeset
|
3231 return do_mx_red_op<double, Complex> (*this, dim, mx_inline_sumsq); |
| 458 | 3232 } |
| 3233 | |
| 4329 | 3234 Matrix ComplexMatrix::abs (void) const |
| 3235 { | |
|
10363
a0728e81ed25
improve diag matrix interface & implementation
Jaroslav Hajek <highegg@gmail.com>
parents:
10362
diff
changeset
|
3236 return do_mx_unary_map<double, Complex, std::abs> (*this); |
| 4329 | 3237 } |
| 3238 | |
|
7620
36594d5bbe13
Move diag function into the octave_value class
David Bateman <dbateman@free.fr>
parents:
7544
diff
changeset
|
3239 ComplexMatrix |
| 5275 | 3240 ComplexMatrix::diag (octave_idx_type k) const |
| 458 | 3241 { |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
3242 return MArray<Complex>::diag (k); |
| 458 | 3243 } |
| 3244 | |
| 2354 | 3245 bool |
| 5275 | 3246 ComplexMatrix::row_is_real_only (octave_idx_type i) const |
| 2354 | 3247 { |
| 3248 bool retval = true; | |
| 3249 | |
| 5275 | 3250 octave_idx_type nc = columns (); |
| 3251 | |
| 3252 for (octave_idx_type j = 0; j < nc; j++) | |
| 2354 | 3253 { |
| 5315 | 3254 if (std::imag (elem (i, j)) != 0.0) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3255 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3256 retval = false; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3257 break; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3258 } |
| 2354 | 3259 } |
| 3260 | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3261 return retval; |
| 2354 | 3262 } |
| 3263 | |
| 3264 bool | |
| 5275 | 3265 ComplexMatrix::column_is_real_only (octave_idx_type j) const |
| 2354 | 3266 { |
| 3267 bool retval = true; | |
| 3268 | |
| 5275 | 3269 octave_idx_type nr = rows (); |
| 3270 | |
| 3271 for (octave_idx_type i = 0; i < nr; i++) | |
| 2354 | 3272 { |
| 5315 | 3273 if (std::imag (elem (i, j)) != 0.0) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3274 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3275 retval = false; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3276 break; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3277 } |
| 2354 | 3278 } |
| 3279 | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3280 return retval; |
| 2354 | 3281 } |
| 891 | 3282 |
| 458 | 3283 ComplexColumnVector |
| 3284 ComplexMatrix::row_min (void) const | |
| 3285 { | |
| 5275 | 3286 Array<octave_idx_type> dummy_idx; |
| 4587 | 3287 return row_min (dummy_idx); |
| 458 | 3288 } |
| 3289 | |
| 3290 ComplexColumnVector | |
| 5275 | 3291 ComplexMatrix::row_min (Array<octave_idx_type>& idx_arg) const |
| 458 | 3292 { |
| 3293 ComplexColumnVector result; | |
| 3294 | |
| 5275 | 3295 octave_idx_type nr = rows (); |
| 3296 octave_idx_type nc = cols (); | |
| 458 | 3297 |
| 3298 if (nr > 0 && nc > 0) | |
| 3299 { | |
| 3300 result.resize (nr); | |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
3301 idx_arg.resize (nr, 1); |
| 458 | 3302 |
| 5275 | 3303 for (octave_idx_type i = 0; i < nr; i++) |
| 458 | 3304 { |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3305 bool real_only = row_is_real_only (i); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3306 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3307 octave_idx_type idx_j; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3308 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3309 Complex tmp_min; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3310 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3311 double abs_min = octave_NaN; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3312 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3313 for (idx_j = 0; idx_j < nc; idx_j++) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3314 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3315 tmp_min = elem (i, idx_j); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3316 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3317 if (! xisnan (tmp_min)) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3318 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3319 abs_min = real_only ? std::real (tmp_min) : std::abs (tmp_min); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3320 break; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3321 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3322 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3323 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3324 for (octave_idx_type j = idx_j+1; j < nc; j++) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3325 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3326 Complex tmp = elem (i, j); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3327 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3328 if (xisnan (tmp)) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3329 continue; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3330 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3331 double abs_tmp = real_only ? std::real (tmp) : std::abs (tmp); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3332 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3333 if (abs_tmp < abs_min) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3334 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3335 idx_j = j; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3336 tmp_min = tmp; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3337 abs_min = abs_tmp; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3338 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3339 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3340 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3341 if (xisnan (tmp_min)) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3342 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3343 result.elem (i) = Complex_NaN_result; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3344 idx_arg.elem (i) = 0; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3345 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3346 else |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3347 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3348 result.elem (i) = tmp_min; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3349 idx_arg.elem (i) = idx_j; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3350 } |
| 458 | 3351 } |
| 3352 } | |
| 3353 | |
| 3354 return result; | |
| 3355 } | |
| 3356 | |
| 3357 ComplexColumnVector | |
| 3358 ComplexMatrix::row_max (void) const | |
| 3359 { | |
| 5275 | 3360 Array<octave_idx_type> dummy_idx; |
| 4587 | 3361 return row_max (dummy_idx); |
| 458 | 3362 } |
| 3363 | |
| 3364 ComplexColumnVector | |
| 5275 | 3365 ComplexMatrix::row_max (Array<octave_idx_type>& idx_arg) const |
| 458 | 3366 { |
| 3367 ComplexColumnVector result; | |
| 3368 | |
| 5275 | 3369 octave_idx_type nr = rows (); |
| 3370 octave_idx_type nc = cols (); | |
| 458 | 3371 |
| 3372 if (nr > 0 && nc > 0) | |
| 3373 { | |
| 3374 result.resize (nr); | |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
3375 idx_arg.resize (nr, 1); |
| 458 | 3376 |
| 5275 | 3377 for (octave_idx_type i = 0; i < nr; i++) |
| 458 | 3378 { |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3379 bool real_only = row_is_real_only (i); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3380 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3381 octave_idx_type idx_j; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3382 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3383 Complex tmp_max; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3384 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3385 double abs_max = octave_NaN; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3386 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3387 for (idx_j = 0; idx_j < nc; idx_j++) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3388 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3389 tmp_max = elem (i, idx_j); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3390 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3391 if (! xisnan (tmp_max)) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3392 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3393 abs_max = real_only ? std::real (tmp_max) : std::abs (tmp_max); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3394 break; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3395 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3396 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3397 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3398 for (octave_idx_type j = idx_j+1; j < nc; j++) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3399 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3400 Complex tmp = elem (i, j); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3401 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3402 if (xisnan (tmp)) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3403 continue; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3404 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3405 double abs_tmp = real_only ? std::real (tmp) : std::abs (tmp); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3406 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3407 if (abs_tmp > abs_max) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3408 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3409 idx_j = j; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3410 tmp_max = tmp; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3411 abs_max = abs_tmp; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3412 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3413 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3414 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3415 if (xisnan (tmp_max)) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3416 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3417 result.elem (i) = Complex_NaN_result; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3418 idx_arg.elem (i) = 0; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3419 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3420 else |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3421 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3422 result.elem (i) = tmp_max; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3423 idx_arg.elem (i) = idx_j; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3424 } |
| 458 | 3425 } |
| 3426 } | |
| 3427 | |
| 3428 return result; | |
| 3429 } | |
| 3430 | |
| 3431 ComplexRowVector | |
| 3432 ComplexMatrix::column_min (void) const | |
| 3433 { | |
| 5275 | 3434 Array<octave_idx_type> dummy_idx; |
| 4587 | 3435 return column_min (dummy_idx); |
| 458 | 3436 } |
| 3437 | |
| 3438 ComplexRowVector | |
| 5275 | 3439 ComplexMatrix::column_min (Array<octave_idx_type>& idx_arg) const |
| 458 | 3440 { |
| 3441 ComplexRowVector result; | |
| 3442 | |
| 5275 | 3443 octave_idx_type nr = rows (); |
| 3444 octave_idx_type nc = cols (); | |
| 458 | 3445 |
| 3446 if (nr > 0 && nc > 0) | |
| 3447 { | |
| 3448 result.resize (nc); | |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
3449 idx_arg.resize (1, nc); |
| 458 | 3450 |
| 5275 | 3451 for (octave_idx_type j = 0; j < nc; j++) |
| 458 | 3452 { |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3453 bool real_only = column_is_real_only (j); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3454 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3455 octave_idx_type idx_i; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3456 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3457 Complex tmp_min; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3458 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3459 double abs_min = octave_NaN; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3460 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3461 for (idx_i = 0; idx_i < nr; idx_i++) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3462 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3463 tmp_min = elem (idx_i, j); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3464 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3465 if (! xisnan (tmp_min)) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3466 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3467 abs_min = real_only ? std::real (tmp_min) : std::abs (tmp_min); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3468 break; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3469 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3470 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3471 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3472 for (octave_idx_type i = idx_i+1; i < nr; i++) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3473 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3474 Complex tmp = elem (i, j); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3475 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3476 if (xisnan (tmp)) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3477 continue; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3478 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3479 double abs_tmp = real_only ? std::real (tmp) : std::abs (tmp); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3480 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3481 if (abs_tmp < abs_min) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3482 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3483 idx_i = i; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3484 tmp_min = tmp; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3485 abs_min = abs_tmp; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3486 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3487 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3488 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3489 if (xisnan (tmp_min)) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3490 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3491 result.elem (j) = Complex_NaN_result; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3492 idx_arg.elem (j) = 0; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3493 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3494 else |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3495 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3496 result.elem (j) = tmp_min; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3497 idx_arg.elem (j) = idx_i; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3498 } |
| 458 | 3499 } |
| 3500 } | |
| 3501 | |
| 3502 return result; | |
| 3503 } | |
| 3504 | |
| 3505 ComplexRowVector | |
| 3506 ComplexMatrix::column_max (void) const | |
| 3507 { | |
| 5275 | 3508 Array<octave_idx_type> dummy_idx; |
| 4587 | 3509 return column_max (dummy_idx); |
| 458 | 3510 } |
| 3511 | |
| 3512 ComplexRowVector | |
| 5275 | 3513 ComplexMatrix::column_max (Array<octave_idx_type>& idx_arg) const |
| 458 | 3514 { |
| 3515 ComplexRowVector result; | |
| 3516 | |
| 5275 | 3517 octave_idx_type nr = rows (); |
| 3518 octave_idx_type nc = cols (); | |
| 458 | 3519 |
| 3520 if (nr > 0 && nc > 0) | |
| 3521 { | |
| 3522 result.resize (nc); | |
|
10350
12884915a8e4
merge MArray classes & improve Array interface
Jaroslav Hajek <highegg@gmail.com>
parents:
10314
diff
changeset
|
3523 idx_arg.resize (1, nc); |
| 458 | 3524 |
| 5275 | 3525 for (octave_idx_type j = 0; j < nc; j++) |
| 458 | 3526 { |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3527 bool real_only = column_is_real_only (j); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3528 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3529 octave_idx_type idx_i; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3530 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3531 Complex tmp_max; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3532 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3533 double abs_max = octave_NaN; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3534 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3535 for (idx_i = 0; idx_i < nr; idx_i++) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3536 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3537 tmp_max = elem (idx_i, j); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3538 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3539 if (! xisnan (tmp_max)) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3540 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3541 abs_max = real_only ? std::real (tmp_max) : std::abs (tmp_max); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3542 break; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3543 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3544 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3545 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3546 for (octave_idx_type i = idx_i+1; i < nr; i++) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3547 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3548 Complex tmp = elem (i, j); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3549 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3550 if (xisnan (tmp)) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3551 continue; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3552 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3553 double abs_tmp = real_only ? std::real (tmp) : std::abs (tmp); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3554 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3555 if (abs_tmp > abs_max) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3556 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3557 idx_i = i; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3558 tmp_max = tmp; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3559 abs_max = abs_tmp; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3560 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3561 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3562 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3563 if (xisnan (tmp_max)) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3564 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3565 result.elem (j) = Complex_NaN_result; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3566 idx_arg.elem (j) = 0; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3567 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3568 else |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3569 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3570 result.elem (j) = tmp_max; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3571 idx_arg.elem (j) = idx_i; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3572 } |
| 458 | 3573 } |
| 3574 } | |
| 3575 | |
| 3576 return result; | |
| 3577 } | |
| 3578 | |
| 3579 // i/o | |
| 3580 | |
| 3504 | 3581 std::ostream& |
| 3582 operator << (std::ostream& os, const ComplexMatrix& a) | |
| 458 | 3583 { |
| 5275 | 3584 for (octave_idx_type i = 0; i < a.rows (); i++) |
| 458 | 3585 { |
| 5275 | 3586 for (octave_idx_type j = 0; j < a.cols (); j++) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3587 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3588 os << " "; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3589 octave_write_complex (os, a.elem (i, j)); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3590 } |
| 458 | 3591 os << "\n"; |
| 3592 } | |
| 3593 return os; | |
| 3594 } | |
| 3595 | |
| 3504 | 3596 std::istream& |
| 3597 operator >> (std::istream& is, ComplexMatrix& a) | |
| 458 | 3598 { |
| 5275 | 3599 octave_idx_type nr = a.rows (); |
| 3600 octave_idx_type nc = a.cols (); | |
| 458 | 3601 |
|
8999
dc07bc4157b8
allow empty matrices in stream input operators
Jaroslav Hajek <highegg@gmail.com>
parents:
8956
diff
changeset
|
3602 if (nr > 0 && nc > 0) |
| 458 | 3603 { |
| 3604 Complex tmp; | |
| 5275 | 3605 for (octave_idx_type i = 0; i < nr; i++) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3606 for (octave_idx_type j = 0; j < nc; j++) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3607 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3608 tmp = octave_read_value<Complex> (is); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3609 if (is) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3610 a.elem (i, j) = tmp; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3611 else |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3612 goto done; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3613 } |
| 458 | 3614 } |
| 3615 | |
| 2993 | 3616 done: |
| 3617 | |
| 458 | 3618 return is; |
| 3619 } | |
| 3620 | |
| 1819 | 3621 ComplexMatrix |
| 3622 Givens (const Complex& x, const Complex& y) | |
| 3623 { | |
| 3624 double cc; | |
| 3625 Complex cs, temp_r; | |
| 3626 | |
| 3887 | 3627 F77_FUNC (zlartg, ZLARTG) (x, y, cc, cs, temp_r); |
| 1819 | 3628 |
| 3629 ComplexMatrix g (2, 2); | |
| 3630 | |
| 3631 g.elem (0, 0) = cc; | |
| 3632 g.elem (1, 1) = cc; | |
| 3633 g.elem (0, 1) = cs; | |
| 3634 g.elem (1, 0) = -conj (cs); | |
| 3635 | |
| 3636 return g; | |
| 3637 } | |
| 3638 | |
| 3639 ComplexMatrix | |
| 3640 Sylvester (const ComplexMatrix& a, const ComplexMatrix& b, | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3641 const ComplexMatrix& c) |
| 1819 | 3642 { |
| 3643 ComplexMatrix retval; | |
| 3644 | |
| 5775 | 3645 // FIXME -- need to check that a, b, and c are all the same |
| 1819 | 3646 // size. |
| 3647 | |
| 3648 // Compute Schur decompositions | |
| 3649 | |
| 3650 ComplexSCHUR as (a, "U"); | |
| 3651 ComplexSCHUR bs (b, "U"); | |
| 3652 | |
| 3653 // Transform c to new coordinates. | |
| 3654 | |
| 3655 ComplexMatrix ua = as.unitary_matrix (); | |
| 3656 ComplexMatrix sch_a = as.schur_matrix (); | |
| 3657 | |
| 3658 ComplexMatrix ub = bs.unitary_matrix (); | |
| 3659 ComplexMatrix sch_b = bs.schur_matrix (); | |
| 3660 | |
| 3661 ComplexMatrix cx = ua.hermitian () * c * ub; | |
| 3662 | |
| 3663 // Solve the sylvester equation, back-transform, and return the | |
| 3664 // solution. | |
| 3665 | |
| 5275 | 3666 octave_idx_type a_nr = a.rows (); |
| 3667 octave_idx_type b_nr = b.rows (); | |
| 1819 | 3668 |
| 3669 double scale; | |
| 5275 | 3670 octave_idx_type info; |
| 1950 | 3671 |
| 3672 Complex *pa = sch_a.fortran_vec (); | |
| 3673 Complex *pb = sch_b.fortran_vec (); | |
| 3674 Complex *px = cx.fortran_vec (); | |
| 1819 | 3675 |
| 4552 | 3676 F77_XFCN (ztrsyl, ZTRSYL, (F77_CONST_CHAR_ARG2 ("N", 1), |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3677 F77_CONST_CHAR_ARG2 ("N", 1), |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3678 1, a_nr, b_nr, pa, a_nr, pb, |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3679 b_nr, px, a_nr, scale, info |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3680 F77_CHAR_ARG_LEN (1) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3681 F77_CHAR_ARG_LEN (1))); |
| 1950 | 3682 |
|
7482
29980c6b8604
don't check f77_exception_encountered
John W. Eaton <jwe@octave.org>
parents:
7478
diff
changeset
|
3683 // FIXME -- check info? |
|
29980c6b8604
don't check f77_exception_encountered
John W. Eaton <jwe@octave.org>
parents:
7478
diff
changeset
|
3684 |
|
29980c6b8604
don't check f77_exception_encountered
John W. Eaton <jwe@octave.org>
parents:
7478
diff
changeset
|
3685 retval = -ua * cx * ub.hermitian (); |
| 1819 | 3686 |
| 3687 return retval; | |
| 3688 } | |
| 3689 | |
| 2828 | 3690 ComplexMatrix |
| 3691 operator * (const ComplexMatrix& m, const Matrix& a) | |
| 3692 { | |
|
9663
7e5b4de5fbfe
improve mixed real x complex ops
Jaroslav Hajek <highegg@gmail.com>
parents:
9661
diff
changeset
|
3693 if (m.columns () > std::min (m.rows (), a.columns ()) / 10) |
|
7e5b4de5fbfe
improve mixed real x complex ops
Jaroslav Hajek <highegg@gmail.com>
parents:
9661
diff
changeset
|
3694 return ComplexMatrix (real (m) * a, imag (m) * a); |
|
7e5b4de5fbfe
improve mixed real x complex ops
Jaroslav Hajek <highegg@gmail.com>
parents:
9661
diff
changeset
|
3695 else |
|
7e5b4de5fbfe
improve mixed real x complex ops
Jaroslav Hajek <highegg@gmail.com>
parents:
9661
diff
changeset
|
3696 return m * ComplexMatrix (a); |
| 2828 | 3697 } |
| 3698 | |
| 3699 ComplexMatrix | |
| 3700 operator * (const Matrix& m, const ComplexMatrix& a) | |
| 3701 { | |
|
9663
7e5b4de5fbfe
improve mixed real x complex ops
Jaroslav Hajek <highegg@gmail.com>
parents:
9661
diff
changeset
|
3702 if (a.rows () > std::min (m.rows (), a.columns ()) / 10) |
|
7e5b4de5fbfe
improve mixed real x complex ops
Jaroslav Hajek <highegg@gmail.com>
parents:
9661
diff
changeset
|
3703 return ComplexMatrix (m * real (a), m * imag (a)); |
|
7e5b4de5fbfe
improve mixed real x complex ops
Jaroslav Hajek <highegg@gmail.com>
parents:
9661
diff
changeset
|
3704 else |
|
7e5b4de5fbfe
improve mixed real x complex ops
Jaroslav Hajek <highegg@gmail.com>
parents:
9661
diff
changeset
|
3705 return m * ComplexMatrix (a); |
| 2828 | 3706 } |
| 3707 | |
| 6162 | 3708 /* Simple Dot Product, Matrix-Vector and Matrix-Matrix Unit tests |
| 3709 %!assert([1+i 2+i 3+i] * [ 4+i ; 5+i ; 6+i], 29+21i, 1e-14) | |
| 3710 %!assert([1+i 2+i ; 3+i 4+i ] * [5+i ; 6+i], [15 + 14i ; 37 + 18i], 1e-14) | |
| 3711 %!assert([1+i 2+i ; 3+i 4+i ] * [5+i 6+i ; 7+i 8+i], [17 + 15i 20 + 17i; 41 + 19i 48 + 21i], 1e-14) | |
|
9526
f3ebc728ffd7
fix typos in complex xgemm
Jaroslav Hajek <highegg@gmail.com>
parents:
9523
diff
changeset
|
3712 %!assert([1 i]*[i 0]', -i); |
| 6162 | 3713 */ |
| 3714 | |
| 3715 /* Test some simple identities | |
| 3716 %!shared M, cv, rv | |
| 3717 %! M = randn(10,10)+i*rand(10,10); | |
| 3718 %! cv = randn(10,1)+i*rand(10,1); | |
| 3719 %! rv = randn(1,10)+i*rand(1,10); | |
| 3720 %!assert([M*cv,M*cv],M*[cv,cv],1e-14) | |
|
9528
ec066ba012c8
more fixes & tests for matrix multiply
Jaroslav Hajek <highegg@gmail.com>
parents:
9526
diff
changeset
|
3721 %!assert([M.'*cv,M.'*cv],M.'*[cv,cv],1e-14) |
|
ec066ba012c8
more fixes & tests for matrix multiply
Jaroslav Hajek <highegg@gmail.com>
parents:
9526
diff
changeset
|
3722 %!assert([M'*cv,M'*cv],M'*[cv,cv],1e-14) |
| 6162 | 3723 %!assert([rv*M;rv*M],[rv;rv]*M,1e-14) |
|
9528
ec066ba012c8
more fixes & tests for matrix multiply
Jaroslav Hajek <highegg@gmail.com>
parents:
9526
diff
changeset
|
3724 %!assert([rv*M.';rv*M.'],[rv;rv]*M.',1e-14) |
|
ec066ba012c8
more fixes & tests for matrix multiply
Jaroslav Hajek <highegg@gmail.com>
parents:
9526
diff
changeset
|
3725 %!assert([rv*M';rv*M'],[rv;rv]*M',1e-14) |
| 6162 | 3726 %!assert(2*rv*cv,[rv,rv]*[cv;cv],1e-14) |
| 3727 */ | |
| 3728 | |
|
7800
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7789
diff
changeset
|
3729 static const char * |
|
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7789
diff
changeset
|
3730 get_blas_trans_arg (bool trans, bool conj) |
|
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7789
diff
changeset
|
3731 { |
|
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7789
diff
changeset
|
3732 static char blas_notrans = 'N', blas_trans = 'T', blas_conj_trans = 'C'; |
|
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7789
diff
changeset
|
3733 return trans ? (conj ? &blas_conj_trans : &blas_trans) : &blas_notrans; |
|
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7789
diff
changeset
|
3734 } |
|
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7789
diff
changeset
|
3735 |
|
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7789
diff
changeset
|
3736 // the general GEMM operation |
|
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7789
diff
changeset
|
3737 |
| 2828 | 3738 ComplexMatrix |
|
9665
1dba57e9d08d
use blas_trans_type for xgemm
Jaroslav Hajek <highegg@gmail.com>
parents:
9663
diff
changeset
|
3739 xgemm (const ComplexMatrix& a, const ComplexMatrix& b, |
|
1dba57e9d08d
use blas_trans_type for xgemm
Jaroslav Hajek <highegg@gmail.com>
parents:
9663
diff
changeset
|
3740 blas_trans_type transa, blas_trans_type transb) |
| 2828 | 3741 { |
| 3742 ComplexMatrix retval; | |
| 3743 | |
|
9665
1dba57e9d08d
use blas_trans_type for xgemm
Jaroslav Hajek <highegg@gmail.com>
parents:
9663
diff
changeset
|
3744 bool tra = transa != blas_no_trans, trb = transb != blas_no_trans; |
|
1dba57e9d08d
use blas_trans_type for xgemm
Jaroslav Hajek <highegg@gmail.com>
parents:
9663
diff
changeset
|
3745 bool cja = transa == blas_conj_trans, cjb = transb == blas_conj_trans; |
|
1dba57e9d08d
use blas_trans_type for xgemm
Jaroslav Hajek <highegg@gmail.com>
parents:
9663
diff
changeset
|
3746 |
|
1dba57e9d08d
use blas_trans_type for xgemm
Jaroslav Hajek <highegg@gmail.com>
parents:
9663
diff
changeset
|
3747 octave_idx_type a_nr = tra ? a.cols () : a.rows (); |
|
1dba57e9d08d
use blas_trans_type for xgemm
Jaroslav Hajek <highegg@gmail.com>
parents:
9663
diff
changeset
|
3748 octave_idx_type a_nc = tra ? a.rows () : a.cols (); |
|
1dba57e9d08d
use blas_trans_type for xgemm
Jaroslav Hajek <highegg@gmail.com>
parents:
9663
diff
changeset
|
3749 |
|
1dba57e9d08d
use blas_trans_type for xgemm
Jaroslav Hajek <highegg@gmail.com>
parents:
9663
diff
changeset
|
3750 octave_idx_type b_nr = trb ? b.cols () : b.rows (); |
|
1dba57e9d08d
use blas_trans_type for xgemm
Jaroslav Hajek <highegg@gmail.com>
parents:
9663
diff
changeset
|
3751 octave_idx_type b_nc = trb ? b.rows () : b.cols (); |
|
7800
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7789
diff
changeset
|
3752 |
|
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7789
diff
changeset
|
3753 if (a_nc != b_nr) |
|
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7789
diff
changeset
|
3754 gripe_nonconformant ("operator *", a_nr, a_nc, b_nr, b_nc); |
| 2828 | 3755 else |
| 3756 { | |
|
7800
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7789
diff
changeset
|
3757 if (a_nr == 0 || a_nc == 0 || b_nc == 0) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3758 retval = ComplexMatrix (a_nr, b_nc, 0.0); |
|
9665
1dba57e9d08d
use blas_trans_type for xgemm
Jaroslav Hajek <highegg@gmail.com>
parents:
9663
diff
changeset
|
3759 else if (a.data () == b.data () && a_nr == b_nc && tra != trb) |
|
7801
776791438957
map symmetric cases to xHERK, xSYRK
Jaroslav Hajek <highegg@gmail.com>
parents:
7800
diff
changeset
|
3760 { |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3761 octave_idx_type lda = a.rows (); |
|
7801
776791438957
map symmetric cases to xHERK, xSYRK
Jaroslav Hajek <highegg@gmail.com>
parents:
7800
diff
changeset
|
3762 |
|
9359
be6867ba8104
avoid useless zero initialization when doing matrix multiply
Jaroslav Hajek <highegg@gmail.com>
parents:
9227
diff
changeset
|
3763 retval = ComplexMatrix (a_nr, b_nc); |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3764 Complex *c = retval.fortran_vec (); |
|
7801
776791438957
map symmetric cases to xHERK, xSYRK
Jaroslav Hajek <highegg@gmail.com>
parents:
7800
diff
changeset
|
3765 |
|
9665
1dba57e9d08d
use blas_trans_type for xgemm
Jaroslav Hajek <highegg@gmail.com>
parents:
9663
diff
changeset
|
3766 const char *ctra = get_blas_trans_arg (tra, cja); |
|
1dba57e9d08d
use blas_trans_type for xgemm
Jaroslav Hajek <highegg@gmail.com>
parents:
9663
diff
changeset
|
3767 if (cja || cjb) |
|
7801
776791438957
map symmetric cases to xHERK, xSYRK
Jaroslav Hajek <highegg@gmail.com>
parents:
7800
diff
changeset
|
3768 { |
|
776791438957
map symmetric cases to xHERK, xSYRK
Jaroslav Hajek <highegg@gmail.com>
parents:
7800
diff
changeset
|
3769 F77_XFCN (zherk, ZHERK, (F77_CONST_CHAR_ARG2 ("U", 1), |
|
9665
1dba57e9d08d
use blas_trans_type for xgemm
Jaroslav Hajek <highegg@gmail.com>
parents:
9663
diff
changeset
|
3770 F77_CONST_CHAR_ARG2 (ctra, 1), |
|
7801
776791438957
map symmetric cases to xHERK, xSYRK
Jaroslav Hajek <highegg@gmail.com>
parents:
7800
diff
changeset
|
3771 a_nr, a_nc, 1.0, |
|
776791438957
map symmetric cases to xHERK, xSYRK
Jaroslav Hajek <highegg@gmail.com>
parents:
7800
diff
changeset
|
3772 a.data (), lda, 0.0, c, a_nr |
|
776791438957
map symmetric cases to xHERK, xSYRK
Jaroslav Hajek <highegg@gmail.com>
parents:
7800
diff
changeset
|
3773 F77_CHAR_ARG_LEN (1) |
|
776791438957
map symmetric cases to xHERK, xSYRK
Jaroslav Hajek <highegg@gmail.com>
parents:
7800
diff
changeset
|
3774 F77_CHAR_ARG_LEN (1))); |
|
10124
e5c6600e3400
use octave_idx_type where needed
Jaroslav Hajek <highegg@gmail.com>
parents:
10105
diff
changeset
|
3775 for (octave_idx_type j = 0; j < a_nr; j++) |
|
e5c6600e3400
use octave_idx_type where needed
Jaroslav Hajek <highegg@gmail.com>
parents:
10105
diff
changeset
|
3776 for (octave_idx_type i = 0; i < j; i++) |
|
7801
776791438957
map symmetric cases to xHERK, xSYRK
Jaroslav Hajek <highegg@gmail.com>
parents:
7800
diff
changeset
|
3777 retval.xelem (j,i) = std::conj (retval.xelem (i,j)); |
|
776791438957
map symmetric cases to xHERK, xSYRK
Jaroslav Hajek <highegg@gmail.com>
parents:
7800
diff
changeset
|
3778 } |
|
776791438957
map symmetric cases to xHERK, xSYRK
Jaroslav Hajek <highegg@gmail.com>
parents:
7800
diff
changeset
|
3779 else |
|
776791438957
map symmetric cases to xHERK, xSYRK
Jaroslav Hajek <highegg@gmail.com>
parents:
7800
diff
changeset
|
3780 { |
|
776791438957
map symmetric cases to xHERK, xSYRK
Jaroslav Hajek <highegg@gmail.com>
parents:
7800
diff
changeset
|
3781 F77_XFCN (zsyrk, ZSYRK, (F77_CONST_CHAR_ARG2 ("U", 1), |
|
9665
1dba57e9d08d
use blas_trans_type for xgemm
Jaroslav Hajek <highegg@gmail.com>
parents:
9663
diff
changeset
|
3782 F77_CONST_CHAR_ARG2 (ctra, 1), |
|
7801
776791438957
map symmetric cases to xHERK, xSYRK
Jaroslav Hajek <highegg@gmail.com>
parents:
7800
diff
changeset
|
3783 a_nr, a_nc, 1.0, |
|
776791438957
map symmetric cases to xHERK, xSYRK
Jaroslav Hajek <highegg@gmail.com>
parents:
7800
diff
changeset
|
3784 a.data (), lda, 0.0, c, a_nr |
|
776791438957
map symmetric cases to xHERK, xSYRK
Jaroslav Hajek <highegg@gmail.com>
parents:
7800
diff
changeset
|
3785 F77_CHAR_ARG_LEN (1) |
|
776791438957
map symmetric cases to xHERK, xSYRK
Jaroslav Hajek <highegg@gmail.com>
parents:
7800
diff
changeset
|
3786 F77_CHAR_ARG_LEN (1))); |
|
10124
e5c6600e3400
use octave_idx_type where needed
Jaroslav Hajek <highegg@gmail.com>
parents:
10105
diff
changeset
|
3787 for (octave_idx_type j = 0; j < a_nr; j++) |
|
e5c6600e3400
use octave_idx_type where needed
Jaroslav Hajek <highegg@gmail.com>
parents:
10105
diff
changeset
|
3788 for (octave_idx_type i = 0; i < j; i++) |
|
7801
776791438957
map symmetric cases to xHERK, xSYRK
Jaroslav Hajek <highegg@gmail.com>
parents:
7800
diff
changeset
|
3789 retval.xelem (j,i) = retval.xelem (i,j); |
|
776791438957
map symmetric cases to xHERK, xSYRK
Jaroslav Hajek <highegg@gmail.com>
parents:
7800
diff
changeset
|
3790 |
|
776791438957
map symmetric cases to xHERK, xSYRK
Jaroslav Hajek <highegg@gmail.com>
parents:
7800
diff
changeset
|
3791 } |
|
776791438957
map symmetric cases to xHERK, xSYRK
Jaroslav Hajek <highegg@gmail.com>
parents:
7800
diff
changeset
|
3792 |
|
776791438957
map symmetric cases to xHERK, xSYRK
Jaroslav Hajek <highegg@gmail.com>
parents:
7800
diff
changeset
|
3793 } |
| 2828 | 3794 else |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3795 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3796 octave_idx_type lda = a.rows (), tda = a.cols (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3797 octave_idx_type ldb = b.rows (), tdb = b.cols (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3798 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3799 retval = ComplexMatrix (a_nr, b_nc); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3800 Complex *c = retval.fortran_vec (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3801 |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3802 if (b_nc == 1 && a_nr == 1) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3803 { |
|
9665
1dba57e9d08d
use blas_trans_type for xgemm
Jaroslav Hajek <highegg@gmail.com>
parents:
9663
diff
changeset
|
3804 if (cja == cjb) |
|
7800
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7789
diff
changeset
|
3805 { |
|
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7789
diff
changeset
|
3806 F77_FUNC (xzdotu, XZDOTU) (a_nc, a.data (), 1, b.data (), 1, *c); |
|
9665
1dba57e9d08d
use blas_trans_type for xgemm
Jaroslav Hajek <highegg@gmail.com>
parents:
9663
diff
changeset
|
3807 if (cja) *c = std::conj (*c); |
|
7800
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7789
diff
changeset
|
3808 } |
|
9665
1dba57e9d08d
use blas_trans_type for xgemm
Jaroslav Hajek <highegg@gmail.com>
parents:
9663
diff
changeset
|
3809 else if (cja) |
|
7800
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7789
diff
changeset
|
3810 F77_FUNC (xzdotc, XZDOTC) (a_nc, a.data (), 1, b.data (), 1, *c); |
|
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7789
diff
changeset
|
3811 else |
|
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7789
diff
changeset
|
3812 F77_FUNC (xzdotc, XZDOTC) (a_nc, b.data (), 1, a.data (), 1, *c); |
|
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7789
diff
changeset
|
3813 } |
|
9665
1dba57e9d08d
use blas_trans_type for xgemm
Jaroslav Hajek <highegg@gmail.com>
parents:
9663
diff
changeset
|
3814 else if (b_nc == 1 && ! cjb) |
|
7800
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7789
diff
changeset
|
3815 { |
|
9665
1dba57e9d08d
use blas_trans_type for xgemm
Jaroslav Hajek <highegg@gmail.com>
parents:
9663
diff
changeset
|
3816 const char *ctra = get_blas_trans_arg (tra, cja); |
|
1dba57e9d08d
use blas_trans_type for xgemm
Jaroslav Hajek <highegg@gmail.com>
parents:
9663
diff
changeset
|
3817 F77_XFCN (zgemv, ZGEMV, (F77_CONST_CHAR_ARG2 (ctra, 1), |
|
7800
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7789
diff
changeset
|
3818 lda, tda, 1.0, a.data (), lda, |
|
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7789
diff
changeset
|
3819 b.data (), 1, 0.0, c, 1 |
|
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7789
diff
changeset
|
3820 F77_CHAR_ARG_LEN (1))); |
|
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7789
diff
changeset
|
3821 } |
|
9665
1dba57e9d08d
use blas_trans_type for xgemm
Jaroslav Hajek <highegg@gmail.com>
parents:
9663
diff
changeset
|
3822 else if (a_nr == 1 && ! cja && ! cjb) |
|
7800
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7789
diff
changeset
|
3823 { |
|
9665
1dba57e9d08d
use blas_trans_type for xgemm
Jaroslav Hajek <highegg@gmail.com>
parents:
9663
diff
changeset
|
3824 const char *crevtrb = get_blas_trans_arg (! trb, cjb); |
|
1dba57e9d08d
use blas_trans_type for xgemm
Jaroslav Hajek <highegg@gmail.com>
parents:
9663
diff
changeset
|
3825 F77_XFCN (zgemv, ZGEMV, (F77_CONST_CHAR_ARG2 (crevtrb, 1), |
|
7800
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7789
diff
changeset
|
3826 ldb, tdb, 1.0, b.data (), ldb, |
|
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7789
diff
changeset
|
3827 a.data (), 1, 0.0, c, 1 |
|
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7789
diff
changeset
|
3828 F77_CHAR_ARG_LEN (1))); |
|
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7789
diff
changeset
|
3829 } |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3830 else |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3831 { |
|
9665
1dba57e9d08d
use blas_trans_type for xgemm
Jaroslav Hajek <highegg@gmail.com>
parents:
9663
diff
changeset
|
3832 const char *ctra = get_blas_trans_arg (tra, cja); |
|
1dba57e9d08d
use blas_trans_type for xgemm
Jaroslav Hajek <highegg@gmail.com>
parents:
9663
diff
changeset
|
3833 const char *ctrb = get_blas_trans_arg (trb, cjb); |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3834 F77_XFCN (zgemm, ZGEMM, (F77_CONST_CHAR_ARG2 (ctra, 1), |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3835 F77_CONST_CHAR_ARG2 (ctrb, 1), |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3836 a_nr, b_nc, a_nc, 1.0, a.data (), |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3837 lda, b.data (), ldb, 0.0, c, a_nr |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3838 F77_CHAR_ARG_LEN (1) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3839 F77_CHAR_ARG_LEN (1))); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3840 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3841 } |
| 2828 | 3842 } |
| 3843 | |
| 3844 return retval; | |
| 3845 } | |
| 3846 | |
|
7800
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7789
diff
changeset
|
3847 ComplexMatrix |
|
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7789
diff
changeset
|
3848 operator * (const ComplexMatrix& a, const ComplexMatrix& b) |
|
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7789
diff
changeset
|
3849 { |
|
9665
1dba57e9d08d
use blas_trans_type for xgemm
Jaroslav Hajek <highegg@gmail.com>
parents:
9663
diff
changeset
|
3850 return xgemm (a, b); |
|
7800
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7789
diff
changeset
|
3851 } |
|
5861b95e9879
support for compound operators, implement trans_mul, mul_trans, herm_mul and mul_herm
Jaroslav Hajek <highegg@gmail.com>
parents:
7789
diff
changeset
|
3852 |
| 5775 | 3853 // FIXME -- it would be nice to share code among the min/max |
| 4309 | 3854 // functions below. |
| 3855 | |
| 3856 #define EMPTY_RETURN_CHECK(T) \ | |
| 3857 if (nr == 0 || nc == 0) \ | |
| 3858 return T (nr, nc); | |
| 3859 | |
| 3860 ComplexMatrix | |
| 3861 min (const Complex& c, const ComplexMatrix& m) | |
| 3862 { | |
| 5275 | 3863 octave_idx_type nr = m.rows (); |
| 3864 octave_idx_type nc = m.columns (); | |
| 4309 | 3865 |
| 3866 EMPTY_RETURN_CHECK (ComplexMatrix); | |
| 3867 | |
| 3868 ComplexMatrix result (nr, nc); | |
| 3869 | |
| 5275 | 3870 for (octave_idx_type j = 0; j < nc; j++) |
| 3871 for (octave_idx_type i = 0; i < nr; i++) | |
| 4309 | 3872 { |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3873 octave_quit (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3874 result (i, j) = xmin (c, m (i, j)); |
| 4309 | 3875 } |
| 3876 | |
| 3877 return result; | |
| 3878 } | |
| 3879 | |
| 3880 ComplexMatrix | |
| 3881 min (const ComplexMatrix& m, const Complex& c) | |
| 3882 { | |
| 5275 | 3883 octave_idx_type nr = m.rows (); |
| 3884 octave_idx_type nc = m.columns (); | |
| 4309 | 3885 |
| 3886 EMPTY_RETURN_CHECK (ComplexMatrix); | |
| 3887 | |
| 3888 ComplexMatrix result (nr, nc); | |
| 3889 | |
| 5275 | 3890 for (octave_idx_type j = 0; j < nc; j++) |
| 3891 for (octave_idx_type i = 0; i < nr; i++) | |
| 4309 | 3892 { |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3893 octave_quit (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3894 result (i, j) = xmin (m (i, j), c); |
| 4309 | 3895 } |
| 3896 | |
| 3897 return result; | |
| 3898 } | |
| 3899 | |
| 3900 ComplexMatrix | |
| 3901 min (const ComplexMatrix& a, const ComplexMatrix& b) | |
| 3902 { | |
| 5275 | 3903 octave_idx_type nr = a.rows (); |
| 3904 octave_idx_type nc = a.columns (); | |
| 4309 | 3905 |
| 3906 if (nr != b.rows () || nc != b.columns ()) | |
| 3907 { | |
| 3908 (*current_liboctave_error_handler) | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3909 ("two-arg min expecting args of same size"); |
| 4309 | 3910 return ComplexMatrix (); |
| 3911 } | |
| 3912 | |
| 3913 EMPTY_RETURN_CHECK (ComplexMatrix); | |
| 3914 | |
| 3915 ComplexMatrix result (nr, nc); | |
| 3916 | |
| 5275 | 3917 for (octave_idx_type j = 0; j < nc; j++) |
| 4309 | 3918 { |
| 3919 int columns_are_real_only = 1; | |
| 5275 | 3920 for (octave_idx_type i = 0; i < nr; i++) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3921 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3922 octave_quit (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3923 if (std::imag (a (i, j)) != 0.0 || std::imag (b (i, j)) != 0.0) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3924 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3925 columns_are_real_only = 0; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3926 break; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3927 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3928 } |
| 4309 | 3929 |
| 3930 if (columns_are_real_only) | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3931 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3932 for (octave_idx_type i = 0; i < nr; i++) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3933 result (i, j) = xmin (std::real (a (i, j)), std::real (b (i, j))); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3934 } |
| 4309 | 3935 else |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3936 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3937 for (octave_idx_type i = 0; i < nr; i++) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3938 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3939 octave_quit (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3940 result (i, j) = xmin (a (i, j), b (i, j)); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3941 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3942 } |
| 4309 | 3943 } |
| 3944 | |
| 3945 return result; | |
| 3946 } | |
| 3947 | |
| 3948 ComplexMatrix | |
| 3949 max (const Complex& c, const ComplexMatrix& m) | |
| 3950 { | |
| 5275 | 3951 octave_idx_type nr = m.rows (); |
| 3952 octave_idx_type nc = m.columns (); | |
| 4309 | 3953 |
| 3954 EMPTY_RETURN_CHECK (ComplexMatrix); | |
| 3955 | |
| 3956 ComplexMatrix result (nr, nc); | |
| 3957 | |
| 5275 | 3958 for (octave_idx_type j = 0; j < nc; j++) |
| 3959 for (octave_idx_type i = 0; i < nr; i++) | |
| 4309 | 3960 { |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3961 octave_quit (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3962 result (i, j) = xmax (c, m (i, j)); |
| 4309 | 3963 } |
| 3964 | |
| 3965 return result; | |
| 3966 } | |
| 3967 | |
| 3968 ComplexMatrix | |
| 3969 max (const ComplexMatrix& m, const Complex& c) | |
| 3970 { | |
| 5275 | 3971 octave_idx_type nr = m.rows (); |
| 3972 octave_idx_type nc = m.columns (); | |
| 4309 | 3973 |
| 3974 EMPTY_RETURN_CHECK (ComplexMatrix); | |
| 3975 | |
| 3976 ComplexMatrix result (nr, nc); | |
| 3977 | |
| 5275 | 3978 for (octave_idx_type j = 0; j < nc; j++) |
| 3979 for (octave_idx_type i = 0; i < nr; i++) | |
| 4309 | 3980 { |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3981 octave_quit (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3982 result (i, j) = xmax (m (i, j), c); |
| 4309 | 3983 } |
| 3984 | |
| 3985 return result; | |
| 3986 } | |
| 3987 | |
| 3988 ComplexMatrix | |
| 3989 max (const ComplexMatrix& a, const ComplexMatrix& b) | |
| 3990 { | |
| 5275 | 3991 octave_idx_type nr = a.rows (); |
| 3992 octave_idx_type nc = a.columns (); | |
| 4309 | 3993 |
| 3994 if (nr != b.rows () || nc != b.columns ()) | |
| 3995 { | |
| 3996 (*current_liboctave_error_handler) | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
3997 ("two-arg max expecting args of same size"); |
| 4309 | 3998 return ComplexMatrix (); |
| 3999 } | |
| 4000 | |
| 4001 EMPTY_RETURN_CHECK (ComplexMatrix); | |
| 4002 | |
| 4003 ComplexMatrix result (nr, nc); | |
| 4004 | |
| 5275 | 4005 for (octave_idx_type j = 0; j < nc; j++) |
| 4309 | 4006 { |
| 4007 int columns_are_real_only = 1; | |
| 5275 | 4008 for (octave_idx_type i = 0; i < nr; i++) |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
4009 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
4010 octave_quit (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
4011 if (std::imag (a (i, j)) != 0.0 || std::imag (b (i, j)) != 0.0) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
4012 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
4013 columns_are_real_only = 0; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
4014 break; |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
4015 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
4016 } |
| 4309 | 4017 |
| 4018 if (columns_are_real_only) | |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
4019 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
4020 for (octave_idx_type i = 0; i < nr; i++) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
4021 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
4022 octave_quit (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
4023 result (i, j) = xmax (std::real (a (i, j)), std::real (b (i, j))); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
4024 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
4025 } |
| 4309 | 4026 else |
|
10314
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
4027 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
4028 for (octave_idx_type i = 0; i < nr; i++) |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
4029 { |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
4030 octave_quit (); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
4031 result (i, j) = xmax (a (i, j), b (i, j)); |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
4032 } |
|
07ebe522dac2
untabify liboctave C++ sources
John W. Eaton <jwe@octave.org>
parents:
10213
diff
changeset
|
4033 } |
| 4309 | 4034 } |
| 4035 | |
| 4036 return result; | |
| 4037 } | |
| 4038 | |
|
9653
e087d7c77ff9
improve linspace in liboctave
Jaroslav Hajek <highegg@gmail.com>
parents:
9601
diff
changeset
|
4039 ComplexMatrix linspace (const ComplexColumnVector& x1, |
|
e087d7c77ff9
improve linspace in liboctave
Jaroslav Hajek <highegg@gmail.com>
parents:
9601
diff
changeset
|
4040 const ComplexColumnVector& x2, |
|
e087d7c77ff9
improve linspace in liboctave
Jaroslav Hajek <highegg@gmail.com>
parents:
9601
diff
changeset
|
4041 octave_idx_type n) |
|
e087d7c77ff9
improve linspace in liboctave
Jaroslav Hajek <highegg@gmail.com>
parents:
9601
diff
changeset
|
4042 |
|
e087d7c77ff9
improve linspace in liboctave
Jaroslav Hajek <highegg@gmail.com>
parents:
9601
diff
changeset
|
4043 { |
|
e087d7c77ff9
improve linspace in liboctave
Jaroslav Hajek <highegg@gmail.com>
parents:
9601
diff
changeset
|
4044 if (n < 1) n = 1; |
|
e087d7c77ff9
improve linspace in liboctave
Jaroslav Hajek <highegg@gmail.com>
parents:
9601
diff
changeset
|
4045 |
|
e087d7c77ff9
improve linspace in liboctave
Jaroslav Hajek <highegg@gmail.com>
parents:
9601
diff
changeset
|
4046 octave_idx_type m = x1.length (); |
|
e087d7c77ff9
improve linspace in liboctave
Jaroslav Hajek <highegg@gmail.com>
parents:
9601
diff
changeset
|
4047 |
|
e087d7c77ff9
improve linspace in liboctave
Jaroslav Hajek <highegg@gmail.com>
parents:
9601
diff
changeset
|
4048 if (x2.length () != m) |
|
e087d7c77ff9
improve linspace in liboctave
Jaroslav Hajek <highegg@gmail.com>
parents:
9601
diff
changeset
|
4049 (*current_liboctave_error_handler) ("linspace: vectors must be of equal length"); |
|
e087d7c77ff9
improve linspace in liboctave
Jaroslav Hajek <highegg@gmail.com>
parents:
9601
diff
changeset
|
4050 |
|
e087d7c77ff9
improve linspace in liboctave
Jaroslav Hajek <highegg@gmail.com>
parents:
9601
diff
changeset
|
4051 NoAlias<ComplexMatrix> retval; |
|
e087d7c77ff9
improve linspace in liboctave
Jaroslav Hajek <highegg@gmail.com>
parents:
9601
diff
changeset
|
4052 |
|
e087d7c77ff9
improve linspace in liboctave
Jaroslav Hajek <highegg@gmail.com>
parents:
9601
diff
changeset
|
4053 retval.clear (m, n); |
|
e087d7c77ff9
improve linspace in liboctave
Jaroslav Hajek <highegg@gmail.com>
parents:
9601
diff
changeset
|
4054 for (octave_idx_type i = 0; i < m; i++) |
|
e087d7c77ff9
improve linspace in liboctave
Jaroslav Hajek <highegg@gmail.com>
parents:
9601
diff
changeset
|
4055 retval(i, 0) = x1(i); |
|
e087d7c77ff9
improve linspace in liboctave
Jaroslav Hajek <highegg@gmail.com>
parents:
9601
diff
changeset
|
4056 |
|
e087d7c77ff9
improve linspace in liboctave
Jaroslav Hajek <highegg@gmail.com>
parents:
9601
diff
changeset
|
4057 // The last column is not needed while using delta. |
|
9658
3429c956de6f
extend linspace & fix up liboctave rewrite
Jaroslav Hajek <highegg@gmail.com>
parents:
9653
diff
changeset
|
4058 Complex *delta = &retval(0, n-1); |
|
9653
e087d7c77ff9
improve linspace in liboctave
Jaroslav Hajek <highegg@gmail.com>
parents:
9601
diff
changeset
|
4059 for (octave_idx_type i = 0; i < m; i++) |
|
e087d7c77ff9
improve linspace in liboctave
Jaroslav Hajek <highegg@gmail.com>
parents:
9601
diff
changeset
|
4060 delta[i] = (x2(i) - x1(i)) / (n - 1.0); |
|
e087d7c77ff9
improve linspace in liboctave
Jaroslav Hajek <highegg@gmail.com>
parents:
9601
diff
changeset
|
4061 |
|
e087d7c77ff9
improve linspace in liboctave
Jaroslav Hajek <highegg@gmail.com>
parents:
9601
diff
changeset
|
4062 for (octave_idx_type j = 1; j < n-1; j++) |
|
e087d7c77ff9
improve linspace in liboctave
Jaroslav Hajek <highegg@gmail.com>
parents:
9601
diff
changeset
|
4063 for (octave_idx_type i = 0; i < m; i++) |
|
9658
3429c956de6f
extend linspace & fix up liboctave rewrite
Jaroslav Hajek <highegg@gmail.com>
parents:
9653
diff
changeset
|
4064 retval(i, j) = x1(i) + static_cast<double> (j)*delta[i]; |
|
9653
e087d7c77ff9
improve linspace in liboctave
Jaroslav Hajek <highegg@gmail.com>
parents:
9601
diff
changeset
|
4065 |
|
e087d7c77ff9
improve linspace in liboctave
Jaroslav Hajek <highegg@gmail.com>
parents:
9601
diff
changeset
|
4066 for (octave_idx_type i = 0; i < m; i++) |
|
e087d7c77ff9
improve linspace in liboctave
Jaroslav Hajek <highegg@gmail.com>
parents:
9601
diff
changeset
|
4067 retval(i, n-1) = x2(i); |
|
e087d7c77ff9
improve linspace in liboctave
Jaroslav Hajek <highegg@gmail.com>
parents:
9601
diff
changeset
|
4068 |
|
e087d7c77ff9
improve linspace in liboctave
Jaroslav Hajek <highegg@gmail.com>
parents:
9601
diff
changeset
|
4069 return retval; |
|
e087d7c77ff9
improve linspace in liboctave
Jaroslav Hajek <highegg@gmail.com>
parents:
9601
diff
changeset
|
4070 } |
|
e087d7c77ff9
improve linspace in liboctave
Jaroslav Hajek <highegg@gmail.com>
parents:
9601
diff
changeset
|
4071 |
|
9578
7dafdb8b062f
refactor comparison ops implementations
Jaroslav Hajek <highegg@gmail.com>
parents:
9553
diff
changeset
|
4072 MS_CMP_OPS (ComplexMatrix, Complex) |
|
9550
3d6a9aea2aea
refactor binary & bool ops in liboctave
Jaroslav Hajek <highegg@gmail.com>
parents:
9528
diff
changeset
|
4073 MS_BOOL_OPS (ComplexMatrix, Complex) |
| 2870 | 4074 |
|
9578
7dafdb8b062f
refactor comparison ops implementations
Jaroslav Hajek <highegg@gmail.com>
parents:
9553
diff
changeset
|
4075 SM_CMP_OPS (Complex, ComplexMatrix) |
|
9550
3d6a9aea2aea
refactor binary & bool ops in liboctave
Jaroslav Hajek <highegg@gmail.com>
parents:
9528
diff
changeset
|
4076 SM_BOOL_OPS (Complex, ComplexMatrix) |
| 2870 | 4077 |
|
9578
7dafdb8b062f
refactor comparison ops implementations
Jaroslav Hajek <highegg@gmail.com>
parents:
9553
diff
changeset
|
4078 MM_CMP_OPS (ComplexMatrix, ComplexMatrix) |
|
9550
3d6a9aea2aea
refactor binary & bool ops in liboctave
Jaroslav Hajek <highegg@gmail.com>
parents:
9528
diff
changeset
|
4079 MM_BOOL_OPS (ComplexMatrix, ComplexMatrix) |