diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2010-05-16 23:16:29 -0500 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2010-05-16 23:16:29 -0500 |
| commit | 00681a3c86cde16a08be8ec7358942437cd857b3 (patch) | |
| tree | f2776d1b3756fb2fa03c96c366d00341fc065ea0 /lisp/calc | |
| parent | 7ca1f3f981dda5dbbab0095ab7c8e560eaaeaad8 (diff) | |
| download | emacs-00681a3c86cde16a08be8ec7358942437cd857b3.tar.gz | |
calc-vec.el (math-vector-avg): Put the vector elements in order
before computing the averages.
Diffstat (limited to 'lisp/calc')
| -rw-r--r-- | lisp/calc/calc-vec.el | 2 |
1 files changed, 1 insertions, 1 deletions
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) |