Mercurial > octave-nkf

changeset 433:49eddf39e77d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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	Wed May 25 19:02:41 1994 +0000
+++ b/src/tc-extras.cc	Wed May 25 19:17:10 1994 +0000
@@ -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;