[Emacs-diffs] /srv/bzr/emacs/trunk r100331: calc-vec.el (math-vector-avg): Put the vector elements in order

[Jay Belanger]

------------------------------------------------------------
revno: 100331
committer: Jay Belanger <address@hidden>
branch nick: trunk
timestamp: Sun 2010-05-16 23:16:29 -0500
message:
  calc-vec.el (math-vector-avg):  Put the vector elements in order
  before computing the averages.
modified:
  lisp/ChangeLog
  lisp/calc/calc-vec.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-05-16 04:43:09 +0000
+++ b/lisp/ChangeLog    2010-05-17 04:16:29 +0000
@@ -1,3 +1,8 @@
+2010-05-17  Jay Belanger  <address@hidden>
+
+       * calc/calc-vec.el (math-vector-avg):  Put the vector elements in
+       order before computing the averages.
+
 2010-05-16  Jay Belanger  <address@hidden>
 
        * calc/calc-vec.el (calc-histogram):

=== modified file 'lisp/calc/calc-vec.el'
--- a/lisp/calc/calc-vec.el     2010-05-16 04:43:09 +0000
+++ b/lisp/calc/calc-vec.el     2010-05-17 04:16:29 +0000
@@ -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)