Mercurial > hg > octave-lyh

changeset 9160:11e0f0e8ff00

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix range
author Jaroslav Hajek <highegg@gmail.com>
date Thu, 30 Apr 2009 20:52:07 +0200
parents c07cbffb82e3
children 406ed43c0233
files scripts/ChangeLog scripts/statistics/base/range.m
diffstat 2 files changed, 11 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -1,3 +1,7 @@
+2009-04-30  Jaroslav Hajek <highegg@gmail.com>
+
+	* statistics/base/range.m: Fix behavior when dim is specified.
+
 2009-04-28  Ben Abbott <bpabbott@mac.com>
 
 	* plot/print.m: Fix typo: 'gswin23c' -> 'gswin32c'. Suppress stderr
--- a/scripts/statistics/base/range.m
+++ b/scripts/statistics/base/range.m
@@ -1,5 +1,6 @@
 ## Copyright (C) 1995, 1996, 1997, 1998, 2000, 2002, 2004, 2005, 2006,
 ##               2007 Kurt Hornik
+## Copyright (C) 2009 Jaroslav Hajek
 ##
 ## This file is part of Octave.
 ##
@@ -32,12 +33,14 @@
 ## Author: KH <Kurt.Hornik@wu-wien.ac.at>
 ## Description: Compute range
 
-function y = range (x, varargin)
+function y = range (x, dim)
 
-  if (nargin != 1 && nargin != 2)
+  if (nargin == 1)
+    y = max (x) - min (x);
+  elseif (nargin == 2)
+    y = max (x, dim) - min (x, dim);
+  else
     print_usage ();
   endif
 
-  y = max (x, varargin{:}) - min (x, varargin{:});
-
 endfunction