Mercurial > octave-nkf
comparison libinterp/corefcn/inv.cc @ 19442:a0c7001cf1a8
consistent messages and IDs for singular matrix warnings
* lo-array-gripes.cc, lo-array-gripes.h (gripe_singular_matrix,
warning_id_nearly_singular_matrix, warning_id_singular_matrix):
New warning function and ID strings.
* inv.cc, sparse-xdiv.cc, xdiv.cc, CMatrix.cc, CSparse.cc, dMatrix.cc,
dSparse.cc, fCMatrix.cc, fMatrix.cc: Use gripe_singular_matrix instead
of individual calls to warning.
* warning_ids.m: Update list of IDs.
* NEWS note change.
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Wed, 17 Dec 2014 21:56:17 -0500 |
| parents | 9feb46ac6847 |
| children | 4197fc428c7d |
comparison
equal
deleted
inserted
replaced
| 19441:86e69f51328d | 19442:a0c7001cf1a8 |
|---|---|
| 225 volatile double xrcond = rcond; | 225 volatile double xrcond = rcond; |
| 226 rcond_plus_one_eq_one = xrcond + 1.0 == 1.0; | 226 rcond_plus_one_eq_one = xrcond + 1.0 == 1.0; |
| 227 } | 227 } |
| 228 | 228 |
| 229 if (nargout < 2 && (info == -1 || rcond_plus_one_eq_one)) | 229 if (nargout < 2 && (info == -1 || rcond_plus_one_eq_one)) |
| 230 warning ("inverse: matrix singular to machine precision, rcond = %g", | 230 gripe_singular_matrix (isfloat ? frcond : rcond); |
| 231 (isfloat ? frcond : rcond)); | |
| 232 } | 231 } |
| 233 | 232 |
| 234 return retval; | 233 return retval; |
| 235 } | 234 } |
| 236 | 235 |