Mercurial > hg > octave-lyh

comparison liboctave/array/dDiagMatrix.cc @ 15448:0a0912a9ab6e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Replace deprecated DiagArray2<T>::diag calls with DiagArray2<T>::extract_diag
author Jordi Gutiérrez Hermoso <jordigh@octave.org>
date Thu, 27 Sep 2012 17:00:45 -0400
parents 648dabbb4c6b
children
comparison
equal deleted inserted replaced
15447:352349219529 15448:0a0912a9ab6e
139 } 139 }
140 140
141 DiagMatrix 141 DiagMatrix
142 DiagMatrix::abs (void) const 142 DiagMatrix::abs (void) const
143 { 143 {
144 return DiagMatrix (diag ().abs (), rows (), columns ()); 144 return DiagMatrix (extract_diag ().abs (), rows (), columns ());
145 } 145 }
146 146
147 DiagMatrix 147 DiagMatrix
148 real (const ComplexDiagMatrix& a) 148 real (const ComplexDiagMatrix& a)
149 { 149 {
150 return DiagMatrix (real (a.diag ()), a.rows (), a.cols ()); 150 return DiagMatrix (real (a.extract_diag ()), a.rows (), a.cols ());
151 } 151 }
152 152
153 DiagMatrix 153 DiagMatrix
154 imag (const ComplexDiagMatrix& a) 154 imag (const ComplexDiagMatrix& a)
155 { 155 {
156 return DiagMatrix (imag (a.diag ()), a.rows (), a.cols ()); 156 return DiagMatrix (imag (a.extract_diag ()), a.rows (), a.cols ());
157 } 157 }
158 158
159 Matrix 159 Matrix
160 DiagMatrix::extract (octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2) const 160 DiagMatrix::extract (octave_idx_type r1, octave_idx_type c1, octave_idx_type r2, octave_idx_type c2) const
161 { 161 {
360 } 360 }
361 361
362 double 362 double
363 DiagMatrix::rcond (void) const 363 DiagMatrix::rcond (void) const
364 { 364 {
365 ColumnVector av = diag (0).map<double> (fabs); 365 ColumnVector av = extract_diag (0).map<double> (fabs);
366 double amx = av.max (), amn = av.min (); 366 double amx = av.max (), amn = av.min ();
367 return amx == 0 ? 0.0 : amn / amx; 367 return amx == 0 ? 0.0 : amn / amx;
368 } 368 }
369 369
370 std::ostream& 370 std::ostream&