Current File : //proc/thread-self/root/kunden/usr/share/emacs/27.2/lisp/calc/calc-stuff.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\207" [require calc-ext calc-macs] 2)
#@140 Use the number at the top of stack as the numeric prefix for the next command.
With a prefix, push that prefix as a number onto the stack.
(defalias 'calc-num-prefix #[(n) "\300\301!\207" [calc-do #[nil "\203\f\303\304\305\306!#\207\307\310!\311	!\203\312	!	\250\204#\313\314!\210\315\310!\210	\316\317	\")\207" [n num prefix-arg calc-enter-result 0 "" prefix-numeric-value calc-top 1 math-messy-integerp math-trunc error "Argument must be a small integer" calc-pop-stack message "%d-"] 5]] 2 (#$ . 481) "P"])
(defalias 'calc-more-recursion-depth #[(n) "\300\301!\207" [calc-do #[nil "\303 \203	\304!\207\203\305!\202\306\211\307V\203#	_\n_)\310\311\n\"\207" [n max-specpdl-size max-lisp-eval-depth calc-is-inverse calc-less-recursion-depth prefix-numeric-value 2 1 message "max-lisp-eval-depth is now %d"] 4]] 2 nil "P"])
(defalias 'calc-less-recursion-depth #[(n) "\203\n\303!\202\304\211\305V\203	\245\306]\n\245\307])\310\311\n\"\207" [n max-specpdl-size max-lisp-eval-depth prefix-numeric-value 2 1 600 200 message "max-lisp-eval-depth is now %d"] 4 nil "P"])
(defvar calc-which-why nil)
(defvar calc-last-why-command nil)
(defalias 'calc-explain-why #[(why &optional more) "@\306=\203\nA@A@	\204\307\202\221
	;\203\"	\202\221
	\310\267\202\215
\311\202\221
\n\203J\n\211:?\206;\211@\312>\262
\203J\313\n!\204J\311\202\221
\314\202\221
\n\203l\n\211:?\206]\211@\312>\262
\203l\313\n!\204l\311\202\221
\315\202\221
\n\203~\313\n!\203~\316\202\221
\311\202\221
\n\203\230\n\211\250\205\217\211\317Y\262
\203\230\316\202\221
\n\203\266\n\211:?\206\247\211@\312>\262
\203\266\313\n!\204\266\311\202\221
\314\202\221
\n\203\365\313\n!\203\365\n\211:\203\351\211@\320>\203\341\211A@\211\250\205\334\211\317V\266\202\202\356\321
!\262
\202\356\211\317V\262
\203\365\316\202\221
\n\203
\n\211:?\206
\211@\312>\262
\203
\313\n!\204
\311\202\221
\315\202\221
\322\202\221
\323\202\221
\324\202\221
\325\202\221
\325\202\221
\326\202\221
\n\203W
\n\211:?\206>
\211@\327>\262
\203W
\n\211:?\206N
\211@\330>\262
\204W
\331\202\221
\332\202\221
\333\202\221
\333\202\221
\334\202\221
\335\202\221
\336\202\221
\n\203}
\337\n!\203}
\340\202\221
\336\202\221
\333\202\221
\341\202\221
\342\202\221
\343\344	\"\345\346A\211\203\273
@\203\226
\f@;\203\257
@\202\264
\347@\317\"Q\350\202\226
\351\352-\203\307
\353\202\310
\354#-\207" [why pred arg msg punc calc-can-abbrev-vectors * "Wrong type of argument" #s(hash-table size 22 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (integerp 40 natnump 44 posintp 78 fixnump 112 fixnatnump 130 fixposintp 186 posp 279 negp 283 nonzerop 287 realp 291 anglep 295 hmsp 299 datep 303 numberp 347 scalarp 351 vectorp 355 numvecp 359 matrixp 363 square-matrixp 367 objectp 385 constp 389 range 393)) "Integer expected" (frac float cplx polar hms date sdev intv mod vec) Math-integerp "Nonnegative integer expected" "Positive integer expected" "Small integer expected" 0 (frac float) math-posp "Positive number expected" "Negative number expected" "Nonzero number expected" "Real number expected" "HMS form expected" (frac float cplx polar hms date sdev intv mod) (frac float) "Real number or date form expected" "Date form expected" "Number expected" "Vector or matrix expected" "Number or vector expected" "Matrix expected" math-matrixp "Square matrix expected" "Constant expected" "Argument out of range" format "%s expected" ": " t math-format-flat-expr ", " message "%s%s" "  [w=more]" "" more] 5])
(defalias 'calc-why #[nil "	=\204	\n=\203A\202\f\203$\305\f@\fA\"\210\fA\211\207\2030\306\307!\210\211\207\306\310!\207" [this-command last-command calc-last-why-command calc-why calc-which-why calc-explain-why message "(No further explanations available)" "No explanations available"] 3 nil nil])
(defalias 'calc-flush-caches #[(&optional inhibit-msg) "\300\301!\207" [calc-do #[nil "\306\211\306\211\306\211\306\211\f
\306\307\306\307\310\311\"\210?\205-\312\313!\207" [math-lud-cache math-log2-cache math-radix-digits-cache math-radix-float-cache-tag math-random-cache math-max-digits-cache nil t mapc #[(x) "\301L\207" [x -100] 2] message "All internal calculator caches have been reset" math-integral-cache math-units-table math-decls-cache-tag math-eval-rules-cache-tag math-format-date-cache math-holidays-cache-tag math-cache-list inhibit-msg] 4]] 2 nil "P"])
(defalias 'calc-clean #[(n) "\300\301`\"\207" [calc-do #[nil "\304>?\205\305 \203\306\202\307\310\311\312\n\2035\313\n!	\314\311!\n\315X\203/\n\\\2020\nE)\202:	\314\311!D#*\207" [calc-simplify-mode func n calc-internal-prec (none num) calc-is-hyperbolic calcFunc-clean calcFunc-pclean calc-enter-result 1 "cln" prefix-numeric-value calc-top-n 0] 7]] 3 nil "P"])
(defalias 'calc-clean-num #[(num) "\302\203\303!\202 	\304Y\203	\305X\203	\304Z\202 \306\307![!\207" [num last-command-event calc-clean prefix-numeric-value 48 57 error "Number required"] 3 nil "P"])
(defvar math-chopping-small nil)
(defalias 'calcFunc-clean #[(a &optional prec) "\203V\211:\205\211@\306=\205\307
8\310Y\262
\203\"\311	\312!\"\207\250\203-\313W\2036\314\315!\210\311	E\207	\211:?\206A\211@\316>\262
\204K\311	E\207\317\311\320	!!*\207	\242\321=\203\201\322\307	8\f\323=\203l\324 \202m\325\"\326\211\320\321\311	A@!\311
!E!!!)\207	\242\327>\203\221	@\330\311	A\"B\207	\242\331>\203\243\320	@\330\311	A\"B!\207	\242\306=\203\340\n\203\336\307	8[V\204\307[\332	!\333\"\334U\266\202\203\334\335	!\203\332\336\332	!\"\203\332\312	!\207	\207\310\207	\207	\211:?\206\353\211@\337>\262
\203\362	\207\340	!\203\372	\207\311	D\207" [prec a math-chopping-small calc-internal-prec calc-angle-mode theta float 2 0 calcFunc-clean math-trunc 3 calc-record-why "*Precision must be an integer 3 or above" (frac float cplx polar hms date sdev intv mod vec) t math-normalize polar math-mod rad math-two-pi 360 math-neg (vec date hms) mapcar (cplx mod sdev intv) calcFunc-xpon math-compare -1 math-num-integerp math-lessp (frac float cplx polar hms date sdev intv mod) math-infinitep] 7])
(defalias 'calcFunc-pclean #[(a &optional prec) "\301\302\"\207" [a math-map-over-constants #[(x) "\302	\"\207" [x prec calcFunc-clean] 3]] 3])
(defalias 'calcFunc-pfloat #[(a) "\301\302\"\207" [a math-map-over-constants math-float] 3])
(defalias 'calcFunc-pfrac #[(a &optional tol) "\301\302\"\207" [a math-map-over-constants #[(x) "\302	\"\207" [x tol calcFunc-frac] 3]] 3])
(defalias 'math-map-over-constants #[(math-moc-func expr) "\301!\207" [expr math-map-over-constants-rec] 2])
(defalias 'math-map-over-constants-rec #[(expr) "\211:?\206\211@\302>\262
\204@\303>\203/\211:?\206\"\211@\304>\262
\203-	!\206_\207@\305>\203W	\306=\203WG\307U\203W\310\3118!\203W@\312A@!\3118E\207@\313\312A\"B\207" [expr math-moc-func (frac float cplx polar hms date mod var) (intv sdev) (frac float cplx polar hms date sdev intv mod) (^ calcFunc-subscr) math-float 3 Math-integerp 2 math-map-over-constants-rec mapcar] 4])
(provide 'calc-stuff)