Mercurial > octave-nkf
annotate liboctave/CmplxSVD.h @ 11117:3cbc0d77db48 ss-3-3-53
update version info for snapshot
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Tue, 19 Oct 2010 02:25:32 -0400 |
| parents | 3ce0c530a9c9 |
| children | 367bfee35ba0 |
| rev | line source |
|---|---|
| 457 | 1 /* |
| 2 | |
| 7017 | 3 Copyright (C) 1994, 1995, 1996, 1997, 2000, 2002, 2003, 2004, 2005, |
| 9245 | 4 2006, 2007, 2009 John W. Eaton |
| 457 | 5 |
| 6 This file is part of Octave. | |
| 7 | |
| 8 Octave is free software; you can redistribute it and/or modify it | |
| 9 under the terms of the GNU General Public License as published by the | |
| 7016 | 10 Free Software Foundation; either version 3 of the License, or (at your |
| 11 option) any later version. | |
| 457 | 12 |
| 13 Octave is distributed in the hope that it will be useful, but WITHOUT | |
| 14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 16 for more details. | |
| 17 | |
| 18 You should have received a copy of the GNU General Public License | |
| 7016 | 19 along with Octave; see the file COPYING. If not, see |
| 20 <http://www.gnu.org/licenses/>. | |
| 457 | 21 |
| 22 */ | |
| 23 | |
| 24 #if !defined (octave_ComplexSVD_h) | |
| 25 #define octave_ComplexSVD_h 1 | |
| 26 | |
|
8950
d865363208d6
include <iosfwd> instead of <iostream> in header files
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
27 #include <iosfwd> |
| 457 | 28 |
| 29 #include "dDiagMatrix.h" | |
| 30 #include "CMatrix.h" | |
| 537 | 31 #include "dbleSVD.h" |
| 457 | 32 |
| 1881 | 33 class |
| 6108 | 34 OCTAVE_API |
| 1881 | 35 ComplexSVD |
| 457 | 36 { |
| 37 public: | |
| 38 | |
| 1528 | 39 ComplexSVD (void) { } |
| 40 | |
| 10601 | 41 ComplexSVD (const ComplexMatrix& a, |
| 42 SVD::type svd_type = SVD::std, SVD::driver svd_driver = SVD::GESVD) | |
| 1528 | 43 { |
| 10601 | 44 { init (a, svd_type, svd_driver); } |
| 1528 | 45 } |
| 46 | |
| 5275 | 47 ComplexSVD (const ComplexMatrix& a, octave_idx_type& info, |
| 10601 | 48 SVD::type svd_type = SVD::std, SVD::driver svd_driver = SVD::GESVD) |
| 1528 | 49 { |
| 10601 | 50 info = init (a, svd_type, svd_driver); |
| 1528 | 51 } |
| 457 | 52 |
| 1528 | 53 ComplexSVD (const ComplexSVD& a) |
| 4374 | 54 : type_computed (a.type_computed), |
| 55 sigma (a.sigma), left_sm (a.left_sm), right_sm (a.right_sm) { } | |
| 457 | 56 |
| 1528 | 57 ComplexSVD& operator = (const ComplexSVD& a) |
| 58 { | |
| 1881 | 59 if (this != &a) |
|
10312
cbc402e64d83
untabify liboctave header files
John W. Eaton <jwe@octave.org>
parents:
10158
diff
changeset
|
60 { |
|
cbc402e64d83
untabify liboctave header files
John W. Eaton <jwe@octave.org>
parents:
10158
diff
changeset
|
61 type_computed = a.type_computed; |
|
cbc402e64d83
untabify liboctave header files
John W. Eaton <jwe@octave.org>
parents:
10158
diff
changeset
|
62 sigma = a.sigma; |
|
cbc402e64d83
untabify liboctave header files
John W. Eaton <jwe@octave.org>
parents:
10158
diff
changeset
|
63 left_sm = a.left_sm; |
|
cbc402e64d83
untabify liboctave header files
John W. Eaton <jwe@octave.org>
parents:
10158
diff
changeset
|
64 right_sm = a.right_sm; |
|
cbc402e64d83
untabify liboctave header files
John W. Eaton <jwe@octave.org>
parents:
10158
diff
changeset
|
65 } |
| 1528 | 66 return *this; |
| 67 } | |
| 68 | |
| 1930 | 69 ~ComplexSVD (void) { } |
| 70 | |
| 1528 | 71 DiagMatrix singular_values (void) const { return sigma; } |
| 72 | |
| 1544 | 73 ComplexMatrix left_singular_matrix (void) const; |
| 1528 | 74 |
| 1544 | 75 ComplexMatrix right_singular_matrix (void) const; |
| 457 | 76 |
| 3504 | 77 friend std::ostream& operator << (std::ostream& os, const ComplexSVD& a); |
| 457 | 78 |
| 79 private: | |
| 80 | |
| 1544 | 81 SVD::type type_computed; |
| 82 | |
| 457 | 83 DiagMatrix sigma; |
| 84 ComplexMatrix left_sm; | |
| 85 ComplexMatrix right_sm; | |
| 1881 | 86 |
| 10601 | 87 octave_idx_type init (const ComplexMatrix& a, |
| 88 SVD::type svd_type = SVD::std, | |
| 89 SVD::driver svd_driver = SVD::GESVD); | |
| 457 | 90 }; |
| 91 | |
| 92 #endif |