calc-vec.el (math-vector-avg): Put the vector elements in order

before computing the averages.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 23338834d633f31fc7cfe2c1fd148db30a3a6f09..f6d4ce0c884e3bcfe231d6c9e4e1c2caa8f440bb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-05-17  Jay Belanger  <jay.p.belanger@gmail.com>
+
+       * calc/calc-vec.el (math-vector-avg):  Put the vector elements in
+       order before computing the averages.
+
 2010-05-16  Jay Belanger  <jay.p.belanger@gmail.com>
 
        * calc/calc-vec.el (calc-histogram):

diff --git a/lisp/calc/calc-vec.el b/lisp/calc/calc-vec.el
index 5f426942e2f0b409ad5af8e50bcd866b6f0f72e2..5b807a55491b84864ffbd017dedf33aef6bbdf00 100644 (file)
--- a/lisp/calc/calc-vec.el
+++ b/lisp/calc/calc-vec.el
@@ -1178,7 +1178,7 @@
 ;;; Replace a vector [a b c ...] with a vector of averages
 ;;; [(a+b)/2 (b+c)/2 ...]
 (defun math-vector-avg (vec)
-  (let ((vp (cdr vec))
+  (let ((vp (sort (copy-sequence (cdr vec)) 'math-beforep))
         (res nil))
     (while (and vp (cdr vp))
       (setq res (cons (math-div (math-add (car vp) (cadr vp)) 2) res)