Mercurial > hg > octave-lyh

comparison src/svd.cc @ 622:6636e6198f01

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-08-16 15:08:03 by jwe]
author jwe
date Tue, 16 Aug 1994 15:08:03 +0000
parents 8e4e7e5f307e
children aecbe369233b
comparison
equal deleted inserted replaced
621:9e90d4df19e2 622:6636e6198f01
78 78
79 if (arg.is_real_type ()) 79 if (arg.is_real_type ())
80 { 80 {
81 Matrix tmp = arg.matrix_value (); 81 Matrix tmp = arg.matrix_value ();
82 82
83 if (error_state)
84 return retval;
85
83 SVD result (tmp, type); 86 SVD result (tmp, type);
84 87
85 DiagMatrix sigma = result.singular_values (); 88 DiagMatrix sigma = result.singular_values ();
86 89
87 if (nargout == 0 || nargout == 1) 90 if (nargout == 0 || nargout == 1)
96 } 99 }
97 } 100 }
98 else if (arg.is_complex_type ()) 101 else if (arg.is_complex_type ())
99 { 102 {
100 ComplexMatrix ctmp = arg.complex_matrix_value (); 103 ComplexMatrix ctmp = arg.complex_matrix_value ();
104
105 if (error_state)
106 return retval;
101 107
102 ComplexSVD result (ctmp, type); 108 ComplexSVD result (ctmp, type);
103 109
104 DiagMatrix sigma = result.singular_values (); 110 DiagMatrix sigma = result.singular_values ();
105 111