Mercurial > emacs

comparison lisp/calc/calcalg2.el @ 60940:f296abb7ee57

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calc-solve-for): Use "Variable(s)" to prompt for variables.
author Jay Belanger <jay.p.belanger@gmail.com>
date Fri, 25 Mar 2005 21:25:30 +0000
parents bb2dd3519754
children a27ed02e5a65 4da4a09e8b1b
comparison
equal deleted inserted replaced
60939:2abeaaf3b5bf 60940:f296abb7ee57
147 (setq expr (calc-top-n num)) 147 (setq expr (calc-top-n num))
148 (calc-enter-result num prefix (append (list func expr var low high) 148 (calc-enter-result num prefix (append (list func expr var low high)
149 (and step (list step))))))) 149 (and step (list step)))))))
150 150
151 (defun calc-solve-for (var) 151 (defun calc-solve-for (var)
152 (interactive "sVariable to solve for: ") 152 (interactive "sVariable(s) to solve for: ")
153 (calc-slow-wrapper 153 (calc-slow-wrapper
154 (let ((func (if (calc-is-inverse) 154 (let ((func (if (calc-is-inverse)
155 (if (calc-is-hyperbolic) 'calcFunc-ffinv 'calcFunc-finv) 155 (if (calc-is-hyperbolic) 'calcFunc-ffinv 'calcFunc-finv)
156 (if (calc-is-hyperbolic) 'calcFunc-fsolve 'calcFunc-solve)))) 156 (if (calc-is-hyperbolic) 'calcFunc-fsolve 'calcFunc-solve))))
157 (if (or (equal var "") (equal var "$")) 157 (if (or (equal var "") (equal var "$"))