From 00681a3c86cde16a08be8ec7358942437cd857b3 Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Sun, 16 May 2010 23:16:29 -0500 Subject: [PATCH] calc-vec.el (math-vector-avg): Put the vector elements in order before computing the averages. --- lisp/ChangeLog | 5 +++++ lisp/calc/calc-vec.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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) -- 2.39.5