# HG changeset patch
# User Jaroslav Hajek <highegg@gmail.com>
# Date 1241117527 -7200
# Node ID 11e0f0e8ff00226fbf33f1b196a8924bb85882a6
# Parent  c07cbffb82e3128c71988d685bda4f8ff35fb12b
fix range

diff -r c07cbffb82e3 -r 11e0f0e8ff00 scripts/ChangeLog
--- a/scripts/ChangeLog	Wed Apr 29 08:16:48 2009 +0200
+++ b/scripts/ChangeLog	Thu Apr 30 20:52:07 2009 +0200
@@ -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
diff -r c07cbffb82e3 -r 11e0f0e8ff00 scripts/statistics/base/range.m
--- a/scripts/statistics/base/range.m	Wed Apr 29 08:16:48 2009 +0200
+++ b/scripts/statistics/base/range.m	Thu Apr 30 20:52:07 2009 +0200
@@ -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