[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calc/calcalg3.el,v
From: |
Jay Belanger |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calc/calcalg3.el,v |
Date: |
Tue, 27 Nov 2007 04:56:53 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Jay Belanger <jpb> 07/11/27 04:56:53
Index: calcalg3.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/calc/calcalg3.el,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -b -r1.24 -r1.25
--- calcalg3.el 27 Nov 2007 04:01:42 -0000 1.24
+++ calcalg3.el 27 Nov 2007 04:56:53 -0000 1.25
@@ -43,6 +43,13 @@
(declare-function math-max-list "calc-arith" (a b))
+(defun math-map-binop (binop args1 args2)
+ "Apply BINOP to the elements of the lists ARGS1 and ARGS2"
+ (if args1
+ (cons
+ (funcall binop (car args1) (car args2))
+ (funcall 'math-map-binop binop (cdr args1) (cdr args2)))))
+
(defun calc-find-root (var)
(interactive "sVariable(s) to solve for: ")
(calc-slow-wrapper
@@ -250,7 +257,7 @@
(nth 1 plot)
(cons
'vec
- (mapcar* 'calcFunc-div
+ (math-map-binop 'calcFunc-div
(cdr (nth 2 plot))
(cdr (nth 1 plot)))))))
(calc-fit-hubbert-linear-curve func))