Mercurial > hg > octave-terminal
changeset 480:738791c163b2
[project @ 1994-06-29 15:37:07 by jwe]
author | jwe |
---|---|
date | Wed, 29 Jun 1994 15:37:07 +0000 |
parents | 8e9dcc406332 |
children | 376ac108f611 |
files | src/det.cc |
diffstat | 1 files changed, 8 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/src/det.cc +++ b/src/det.cc @@ -75,14 +75,14 @@ int info; double rcond = 0.0; DET det = m.determinant (info, rcond); + double d = 0.0; if (info == -1) warning ("det: matrix singular to machine precision, rcond = %g", rcond); else - { - double d = det.value (); - retval = tree_constant (d); - } + d = det.value (); + + retval = tree_constant (d); } else gripe_square_matrix_required ("det"); @@ -96,14 +96,14 @@ int info; double rcond = 0.0; ComplexDET det = m.determinant (info, rcond); + Complex c = 0.0; if (info == -1) warning ("det: matrix singular to machine precision, rcond = %g", rcond); else - { - Complex c = det.value (); - retval = tree_constant (c); - } + Complex c = det.value (); + + retval = tree_constant (c); } else gripe_square_matrix_required ("det");