;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require calc-ext calc-macs] 2) #@148 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. (fn N) (defalias 'calc-num-prefix #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\300\203\f\302\303\304\305\300!#\207\306\307!\310!\203\311!\262\211\250\204#\312\313!\210\314\307!\210\211\315\316\"\207" [V0 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]] 5 (#$ . 157) "P"]) #@10 (fn N) (defalias 'calc-more-recursion-depth #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\303 \203 \304\300!\207\300\203\305\300!\202\306\211\307V\203\" _\n_\210\310\311\n\"\207" [V0 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"] 3]] 5 (#$ . 719) "P"]) #@10 (fn N) (defalias 'calc-less-recursion-depth #[257 "\211\203\n\302!\202 \303\211\304V\203\245\305] \245\306]\210\307\310 \"\207" [max-specpdl-size max-lisp-eval-depth prefix-numeric-value 2 1 600 200 message "max-lisp-eval-depth is now %d"] 4 (#$ . 1099) "P"]) (defvar calc-which-why nil) (defvar calc-last-why-command nil) #@27 (fn WHY &optional MORE) (defalias 'calc-explain-why #[513 "@\301=\203 A\262@A@\204\302\202\220;\203!\202\220\303\267\202\214\304\202\220\211\203I\211\211:?\206:\211@\305>\262\203I\306!\204I\304\202\220\307\202\220\211\203k\211\211:?\206\\\211@\305>\262\203k\306!\204k\304\202\220\310\202\220\211\203}\306!\203}\311\202\220\304\202\220\211\203\227\211\211\250\205\216\211\312Y\262\203\227\311\202\220\211\203\265\211\211:?\206\246\211@\305>\262\203\265\306!\204\265\304\202\220\307\202\220\211\203\364\306!\203\364\211\211:\203\350\211@\313>\203\340\211A@\211\250\205\333\211\312V\266\202\202\355\314!\262\202\355\211\312V\262\203\364\311\202\220\211\203\211\211:?\206\211@\305>\262\203\306!\204\304\202\220\310\202\220\315\202\220\316\202\220\317\202\220\320\202\220\320\202\220\321\202\220\211\203V\211\211:?\206=\211@\322>\262\203V\211\211:?\206M\211@\323>\262\204V\324\202\220\325\202\220\326\202\220\326\202\220\327\202\220\330\202\220\331\202\220\211\203|\332!\203|\333\202\220\331\202\220\326\202\220\334\202\220\335\202\220\336\337\"\340\341A\211\262\203\276@\203\223@;\203\257@\202\265\342@\312\"Q\262\343\262\202\223\344\345\203\312\346\202\313\347#)\207" [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 39 natnump 43 posintp 77 fixnump 111 fixnatnump 129 fixposintp 185 posp 278 negp 282 nonzerop 286 realp 290 anglep 294 hmsp 298 datep 302 numberp 346 scalarp 350 vectorp 354 numvecp 358 matrixp 362 square-matrixp 366 objectp 384 constp 388 range 392)) "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]" ""] 11 (#$ . 1440)]) (defalias 'calc-why #[0 " =\204 \n=\203 A\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]) #@30 (fn &optional INHIBIT-MSG) (defalias 'calc-flush-caches #[256 "\300\301\302\"!\207" [calc-do make-closure #[0 "\306\211\306\211\306\211\f\306\211 \306\307\306\307\310\311\"\210\300?\205-\312\313!\207" [V0 math-lud-cache math-log2-cache math-radix-digits-cache math-radix-float-cache-tag math-random-cache nil t mapc #[257 "\211\300L\207" [-100] 3 "\n\n(fn X)"] message "All internal calculator caches have been reset" math-max-digits-cache 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] 4]] 5 (#$ . 4166) "P"]) #@10 (fn N) (defalias 'calc-clean #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 " \303>?\205 \304 \203\305\202\306\307\310\311\300\2034\312\300!\313\310!\314X\203-\n\\\202.E\262\2029\313\310!D#\262)\207" [V0 calc-simplify-mode calc-internal-prec (none num) calc-is-hyperbolic calcFunc-clean calcFunc-pclean calc-enter-result 1 "cln" prefix-numeric-value calc-top-n 0] 9]] 5 (#$ . 4807) "P"]) #@12 (fn NUM) (defalias 'calc-clean-num #[257 "\301\203 \302!\202 \303Y\203\304X\203\303Z\202 \305\306![!\207" [last-command-event calc-clean prefix-numeric-value 48 57 error "Number required"] 4 (#$ . 5231) "P"]) (defvar math-chopping-small nil) #@25 (fn A &optional PREC) (defalias 'calcFunc-clean #[513 "\211\203V\211\211:\205\211@\303=\205\3048\305Y\262\203\"\306\307!\"\207\211\250\203-\211\310W\2036\311\312!\210\306E\207\211:?\206A\211@\313>\262\204K\306E\207\211\314\306\315!!*\207\242\316=\203\201\317\3048\n\320=\203l\321 \202m\322\"\323\211\315\316\306A@!\306!E!!!\207\242\324>\203\221@\325\306A\"B\207\242\326>\203\243\315@\325\306A\"B!\207\242\303=\203\340\203\336\3048 [V\204\307 [\327!\330\"\331U\266\202\203\334\332!\203\332\333\327! \"\203\332\307!\207\207\305\207\207\211:?\206\353\211@\334>\262\203\362\207\335!\203\372\207\306D\207" [math-chopping-small calc-internal-prec calc-angle-mode 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] 10 (#$ . 5493)]) #@25 (fn A &optional PREC) (defalias 'calcFunc-pclean #[513 "\300\301\302\"\"\207" [math-map-over-constants make-closure #[257 "\301\300\"\207" [V0 calcFunc-clean] 4 "\n\n(fn X)"]] 6 (#$ . 6615)]) #@10 (fn A) (defalias 'calcFunc-pfloat #[257 "\300\301\"\207" [math-map-over-constants math-float] 4 (#$ . 6818)]) #@24 (fn A &optional TOL) (defalias 'calcFunc-pfrac #[513 "\300\301\302\"\"\207" [math-map-over-constants make-closure #[257 "\301\300\"\207" [V0 calcFunc-frac] 4 "\n\n(fn X)"]] 6 (#$ . 6937)]) #@22 (fn MOC-FUNC EXPR) (defalias 'math-map-over-constants #[514 "\301!)\207" [math-moc-func math-map-over-constants-rec] 4 (#$ . 7137)]) #@13 (fn EXPR) (defalias 'math-map-over-constants-rec #[257 "\211\211:?\206 \211@\301>\262\204\211@\302>\203.\211\211:?\206\"\211@\303>\262\203-!\206^\207\211@\304>\203V\305=\203V\211G\306U\203V\307\3108!\203V\211@\311A@!\3108E\207\211@\312\311A\"B\207" [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] 5 (#$ . 7281)]) (provide 'calc-stuff)