Mercurial > hg > octave-nkf

diff scripts/statistics/base/range.m @ 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 a1dbe9d80eee
children 5fb7e17281e8
line wrap: on
line diff
--- 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