Mercurial > forge

changeset 993:9e1a100ecd0f octave-forge

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
bug fix: nanmin([nan,X]) yield -Inf instead of min(X)
author schloegl
date Mon, 07 Jul 2003 07:31:52 +0000
parents 51b431e6a045
children fbb59503d13c
files main/statistics/nanmin.m
diffstat 1 files changed, 4 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/main/statistics/nanmin.m	Fri Jul 04 09:42:15 2003 +0000
+++ b/main/statistics/nanmin.m	Mon Jul 07 07:31:52 2003 +0000
@@ -1,4 +1,5 @@
 ## Copyright (C) 2001 Paul Kienzle
+##  modified (C) 2003 Alois Schloegl 
 ##
 ## This program is free software; you can redistribute it and/or modify
 ## it under the terms of the GNU General Public License as published by
@@ -25,14 +26,14 @@
     usage ("[v, idx] = nanmin(X [, Y])");
   elseif nargin == 1
     nanvals = isnan(X);
-    X(nanvals) = -Inf;
+    X(nanvals) = Inf;
     v = min (X);
     v(all(nanvals)) = NaN;
   else
     Xnan = isnan(X);
     Ynan = isnan(Y);
-    X(Xnan) = -Inf;
-    Y(Ynan) = -Inf;
+    X(Xnan) = Inf;
+    Y(Ynan) = Inf;
     v = min(X,Y);
     v(Xnan & Ynan) = NaN;
   endif