lisp/calc/calc-stuff.el

0 ;;; calc-stuff.el --- miscellaneous functions for Calc
30 ;; This file is autoloaded from calc-ext.el.
32 (require 'calc-ext)
33 (require 'calc-macs)
35 (defun calc-num-prefix (n)
39   (calc-wrapper
41        (calc-enter-result 0 "" (prefix-numeric-value n))
42      (let ((num (calc-top 1)))
47        (calc-pop-stack 1)
52 (defun calc-more-recursion-depth (n)
54   (calc-wrapper
55    (if (calc-is-inverse)
56        (calc-less-recursion-depth n)
63 (defun calc-less-recursion-depth (n)
74 (defvar calc-which-why nil)
75 (defvar calc-last-why-command nil)
76 (defun calc-explain-why (why &optional more)
133 		    (t (format "%s expected" pred))))
135 	 (calc-can-abbrev-vectors t))
140 					(math-format-flat-expr (car why) 0)))
144 (defun calc-why ()
147       (if (eq last-command calc-last-why-command)
148 	  (setq calc-which-why (cdr calc-why))
149 	(setq calc-which-why calc-why)))
150   (if calc-which-why
152 	(calc-explain-why (car calc-which-why) (cdr calc-which-why))
153 	(setq calc-which-why (cdr calc-which-why)))
154     (if calc-why
157 	  (setq calc-which-why calc-why))
161 (defun calc-version ()
163   (message "Calc %s" calc-version))
167 (defvar math-lud-cache) ; calc-mtx.el
168 (defvar math-log2-cache) ; calc-bin.el
169 (defvar math-radix-digits-cache) ; calc-bin.el
170 (defvar math-radix-float-cache-tag) ; calc-bin.el
171 (defvar math-random-cache) ; calc-comb.el
172 (defvar math-max-digits-cache) ; calc-bin.el
174 (defvar math-units-table) ; calc-units.el
175 (defvar math-decls-cache-tag) ; calc-arith.el
176 (defvar math-format-date-cache) ; calc-forms.el
177 (defvar math-holidays-cache-tag) ; calc-forms.el
179 (defun calc-flush-caches (&optional inhibit-msg)
181   (calc-wrapper
185 	 math-radix-float-cache-tag nil
192 	 math-format-date-cache nil
201 (defun calc-clean (n)
203   (calc-slow-wrapper
204    (calc-with-default-simplification
205     (let ((func (if (calc-is-hyperbolic) 'calcFunc-clean 'calcFunc-pclean)))
206       (calc-enter-result 1 "cln"
210 				     (calc-top-n 1)
212 					 (+ n calc-internal-prec)
214 			   (list func (calc-top-n 1))))))))
216 (defun calc-clean-num (num)
218   (calc-clean (- (if num
233 	     (calc-record-why "*Precision must be an integer 3 or above")
237 	    (t (let ((calc-internal-prec prec)
242 				  (if (eq calc-angle-mode 'rad)
255 	  ((eq (car-safe a) 'float)
257 	       (if (or (> (nth 2 a) (- calc-internal-prec))
258 		       (Math-lessp (- calc-internal-prec) (calcFunc-xpon a)))
260 			    (math-lessp (calcFunc-xpon a) calc-internal-prec))
274   (math-map-over-constants 'math-float a))
295 	      (eq math-moc-func 'math-float)
303 (provide 'calc-stuff)
306 ;;; calc-stuff.el ends here