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