Mercurial > hg > octave-lojdl
changeset 433:49eddf39e77d
[project @ 1994-05-25 19:17:10 by jwe]
author | jwe |
---|---|
date | Wed, 25 May 1994 19:17:10 +0000 |
parents | c2f99a009e7a |
children | ec2a6ad30162 |
files | src/tc-extras.cc |
diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/src/tc-extras.cc +++ b/src/tc-extras.cc @@ -748,7 +748,7 @@ double result; double a_elem = arg1.double_value (); double b_elem = arg2.double_value (); - result = MIN (a_elem, b_elem); + result = MAX (a_elem, b_elem); retval[0] = tree_constant (result); } break; @@ -757,7 +757,7 @@ Complex result; Complex a_elem = arg1.complex_value (); Complex b_elem = arg2.complex_value (); - if (abs(a_elem) < abs(b_elem)) + if (abs (a_elem) > abs (b_elem)) result = a_elem; else result = b_elem; @@ -928,7 +928,7 @@ Complex result; Complex a_elem = arg1.complex_value (); Complex b_elem = arg2.complex_value (); - if (abs(a_elem) < abs(b_elem)) + if (abs (a_elem) < abs (b_elem)) result = a_elem; else result = b_elem;