HOME

Mini Shell 1.0
DIR:/proc/self/root/proc/thread-self/root/usr/share/emacs/26.1/lisp/calc/
Current File : //proc/self/root/proc/thread-self/root/usr/share/emacs/26.1/lisp/calc/calc-stuff.elc
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; 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\202f	;\203\"	\202f	\310=\203,\311\202f	\312=\203^\n\203Z\n\211:?\206B@\313>)\203Z\n\211:?\206R@\314>)\204Z\311\202f\315\202f	\316=\203\220\n\203\214\n\211:?\206t@\313>)\203\214\n\211:?\206\204@\314>)\204\214\311\202f\317\202f	\320=\203\262\n\203\256\n\211:?\206\246@\314>)\203\256\321\202f\311\202f	\322=\203\n\203\325\n\211:\203\312@\323=\202\315\324Y)\203\325\321\202f\n\203\375\n\211:?\206\345@\313>)\203\375\n\211:?\206\365@\314>)\204\375\311\202f\315\202f	\325=\203\214\n\203`\n\211:?\206@\314>)\203`\n\211:\203U@\323=\206X@\326=?\205X@\327>\203OA@\211:\203H@\323=\202K\324V)\202X\330!\202X\324V)\203`\321\202f\n\203\210\n\211:?\206p@\313>)\203\210\n\211:?\206\200@\314>)\204\210\311\202f\317\202f	\331=\203\226\332\202f	\333=\203\240\334\202f	\335=\203\252\336\202f	\337=\203\264\340\202f	\341=\203\276\340\202f	\342=\203\310\343\202f	\344=\203\372\n\203\366\n\211:?\206\336@\345>)\203\366\n\211:?\206\356@\346>)\204\366\347\202f\350\202f	\351=\203\352\202f	\353=\203\352\202f	\354=\203\355\202f	\356=\203\"\357\202f	\360=\203,\361\202f	\362=\203D\n\203@\363\n!\203@\364\202f\361\202f	\365=\203N\352\202f	\366=\203X\367\202f	\370=\203b\371\202f\372\373	\"\374\375@A\211\203\221@\203l\f
@;\203\205@\202\212\376@\324\"Q\377\202l\201B\201C\fA\203\243\201D\202\246\201E#-\207" [why pred arg a msg punc * "Wrong type of argument" integerp "Integer expected" natnump (bigpos bigneg frac float cplx polar hms date sdev intv mod vec) (bigpos bigneg) "Nonnegative integer expected" posintp "Positive integer expected" fixnump "Small integer expected" fixnatnump bigpos 0 fixposintp bigneg (frac float) math-posp posp "Positive number expected" negp "Negative number expected" nonzerop "Nonzero number expected" realp "Real number expected" anglep hmsp "HMS form expected" datep (bigpos bigneg frac float cplx polar hms date sdev intv mod) (bigpos bigneg frac float) "Real number or date form expected" "Date form expected" numberp "Number expected" scalarp vectorp "Vector or matrix expected" numvecp "Number or vector expected" matrixp "Matrix expected" square-matrixp math-matrixp "Square matrix expected" objectp constp "Constant expected" range "Argument out of range" format "%s expected" ": " t math-format-flat-expr ", " calc-can-abbrev-vectors more message "%s%s" "  [w=more]" ""] 6])
(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	@\306=\205\307	8\310Y)\203\"\311	\312!\"\207\250\203-\313W\2036\314\315!\210\311	E\207	\211:?\206B	@\316>)\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\343\n\203\341\307	8[V\204\312[\332	!!\333	!\"\334U*\203\337\335	!\203\335\336\332	!\"\203\335\312	!\207	\207\310\207	\207	\211:?\206\357	@\337>)\203\365	\207\340	!\203\375	\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" (bigpos bigneg 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 (bigpos bigneg frac float cplx polar hms date sdev intv mod) math-infinitep b] 8])
(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\f	@\303>)\204@\304>\203/\211:?\206#	@\305>)\203-\n!\206i\207@\306>\203a\n\307=\203aG\310U\203a\3118\211:?\206Q	@\312>)\203a@\313A@!\3118E\207@\314\313A\"B\207" [expr a math-moc-func (bigpos bigneg frac float cplx polar hms date mod var) (intv sdev) (bigpos bigneg frac float cplx polar hms date sdev intv mod) (^ calcFunc-subscr) math-float 3 2 (bigpos bigneg) math-map-over-constants-rec mapcar] 5])
(provide 'calc-stuff)