1176 |
|
|
1177 |
;;;; Miscellaneous. |
;;;; Miscellaneous. |
1178 |
|
|
1179 |
|
;; calc-command-flags is declared in calc.el |
1180 |
|
(defvar calc-command-flags) |
1181 |
|
|
1182 |
(defun calc-clear-command-flag (f) |
(defun calc-clear-command-flag (f) |
1183 |
(setq calc-command-flags (delq f calc-command-flags))) |
(setq calc-command-flags (delq f calc-command-flags))) |
1184 |
|
|
1657 |
|
|
1658 |
|
|
1659 |
(defvar calc-gnuplot-process nil) |
(defvar calc-gnuplot-process nil) |
1660 |
|
(defvar calc-gnuplot-input) |
1661 |
|
(defvar calc-gnuplot-buffer) |
1662 |
|
|
1663 |
(defun calc-gnuplot-alive () |
(defun calc-gnuplot-alive () |
1664 |
(and calc-gnuplot-process |
(and calc-gnuplot-process |
2221 |
(math-normalize (car a)) |
(math-normalize (car a)) |
2222 |
(error "Can't use multi-valued function in an expression"))))) |
(error "Can't use multi-valued function in an expression"))))) |
2223 |
|
|
2224 |
|
;; The variable math-normalize-a is local to math-normalize in calc.el, |
2225 |
|
;; but is used by math-normalize-nonstandard, which is called by |
2226 |
|
;; math-normalize. |
2227 |
|
(defvar math-normalize-a) |
2228 |
|
|
2229 |
(defun math-normalize-nonstandard () |
(defun math-normalize-nonstandard () |
2230 |
(if (consp calc-simplify-mode) |
(if (consp calc-simplify-mode) |
2231 |
(progn |
(progn |
2665 |
(eq (car-safe (symbol-value (nth 2 expr))) 'special-const)) |
(eq (car-safe (symbol-value (nth 2 expr))) 'special-const)) |
2666 |
(memq (nth 2 expr) '(var-inf var-uinf var-nan))))) |
(memq (nth 2 expr) '(var-inf var-uinf var-nan))))) |
2667 |
|
|
2668 |
|
;; The variable math-integral-cache is originally declared in calcalg2.el, |
2669 |
|
;; but is set by math-defintegral and math-definitegral2. |
2670 |
|
(defvar math-integral-cache) |
2671 |
|
|
2672 |
(defmacro math-defintegral (funcs &rest code) |
(defmacro math-defintegral (funcs &rest code) |
2673 |
(setq math-integral-cache nil) |
(setq math-integral-cache nil) |
2674 |
(append '(progn) |
(append '(progn) |