From: Jay Belanger Date: Mon, 17 May 2010 04:16:29 +0000 (-0500) Subject: calc-vec.el (math-vector-avg): Put the vector elements in order X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~208^2~18 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=00681a3c86cde16a08be8ec7358942437cd857b3;p=emacs.git 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 23338834d63..f6d4ce0c884 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-05-17 Jay Belanger + + * calc/calc-vec.el (math-vector-avg): Put the vector elements in + order before computing the averages. + 2010-05-16 Jay Belanger * calc/calc-vec.el (calc-histogram): diff --git a/lisp/calc/calc-vec.el b/lisp/calc/calc-vec.el index 5f426942e2f..5b807a55491 100644 --- 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)