[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r100331: calc-vec.el (math-vector-avg
From: |
Jay Belanger |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r100331: calc-vec.el (math-vector-avg): Put the vector elements in order |
Date: |
Sun, 16 May 2010 23:16:29 -0500 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r100331: calc-vec.el (math-vector-avg): Put the vector elements in order,
Jay Belanger <=