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