Mercurial > emacs
comparison lisp/calc/calcalg2.el @ 60940:f296abb7ee57
(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 "$")) |