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



(byte-code "\300\301!\210\300\302!\207" [require calc-ext calc-macs] 2)
#@10 

(fn N)
(defalias 'calc-and #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301\302\303\304\305\306\302!\300\205\307\300!C##\207" [V0 calc-enter-result 2 "and" append (calcFunc-and) calc-top-list-n prefix-numeric-value] 8]] 5 (#$ . 156) "P"])
#@10 

(fn N)
(defalias 'calc-or #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301\302\303\304\305\306\302!\300\205\307\300!C##\207" [V0 calc-enter-result 2 "or" append (calcFunc-or) calc-top-list-n prefix-numeric-value] 8]] 5 (#$ . 419) "P"])
#@10 

(fn N)
(defalias 'calc-xor #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301\302\303\304\305\306\302!\300\205\307\300!C##\207" [V0 calc-enter-result 2 "xor" append (calcFunc-xor) calc-top-list-n prefix-numeric-value] 8]] 5 (#$ . 679) "P"])
#@10 

(fn N)
(defalias 'calc-diff #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301\302\303\304\305\306\302!\300\205\307\300!C##\207" [V0 calc-enter-result 2 "diff" append (calcFunc-diff) calc-top-list-n prefix-numeric-value] 8]] 5 (#$ . 942) "P"])
#@10 

(fn N)
(defalias 'calc-not #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301\302\303\304\305\306\302!\300\205\307\300!C##\207" [V0 calc-enter-result 1 "not" append (calcFunc-not) calc-top-list-n prefix-numeric-value] 8]] 5 (#$ . 1208) "P"])
#@10 

(fn N)
(defalias 'calc-lshift-binary #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301 \203	\302\202\n\303\304
\305\306\307\310!\300\205\311\300!C##\207" [V0 calc-is-hyperbolic 2 1 calc-enter-result "lsh" append (calcFunc-lsh) calc-top-list-n prefix-numeric-value] 9]] 5 (#$ . 1472) "P"])
#@10 

(fn N)
(defalias 'calc-rshift-binary #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301 \203	\302\202\n\303\304
\305\306\307\310!\300\205\311\300!C##\207" [V0 calc-is-hyperbolic 2 1 calc-enter-result "rsh" append (calcFunc-rsh) calc-top-list-n prefix-numeric-value] 9]] 5 (#$ . 1788) "P"])
#@10 

(fn N)
(defalias 'calc-lshift-arith #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301 \203	\302\202\n\303\304
\305\306\307\310!\300\205\311\300!C##\207" [V0 calc-is-hyperbolic 2 1 calc-enter-result "ash" append (calcFunc-ash) calc-top-list-n prefix-numeric-value] 9]] 5 (#$ . 2104) "P"])
#@10 

(fn N)
(defalias 'calc-rshift-arith #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301 \203	\302\202\n\303\304
\305\306\307\310!\300\205\311\300!C##\207" [V0 calc-is-hyperbolic 2 1 calc-enter-result "rash" append (calcFunc-rash) calc-top-list-n prefix-numeric-value] 9]] 5 (#$ . 2419) "P"])
#@10 

(fn N)
(defalias 'calc-rotate-binary #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301 \203	\302\202\n\303\304
\305\306\307\310!\300\205\311\300!C##\207" [V0 calc-is-hyperbolic 2 1 calc-enter-result "rot" append (calcFunc-rot) calc-top-list-n prefix-numeric-value] 9]] 5 (#$ . 2736) "P"])
#@10 

(fn N)
(defalias 'calc-clip #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301\302\303\304\305\306\302!\300\205\307\300!C##\207" [V0 calc-enter-result 1 "clip" append (calcFunc-clip) calc-top-list-n prefix-numeric-value] 8]] 5 (#$ . 3052) "P"])
#@10 

(fn N)
(defalias 'calc-word-size #[257 "\211C\300\301\302\"!\207" [calc-do make-closure #[0 "\300\242\204\300\305\306\307	\"!\240\210\300\211\242;\2035\300\242\310\232\203 	\2029\311\312\300\242\"\203/\313\300\242!\2029\314\315!\2029\316\300\242!\240\210\300\242	U\204c\317\300\242!\320V\203U\321\301\300\242\n#\210\202c\321\322\300\242\323\317\300\242!!D\n#\210\323\317\300\242!!\323\317\300\242!S!\324 \210\325 \210\300\242\326W\203\206\327\330\300\242[\"\207\300\242\326V\203\223\327\331\300\242\"\207\327\332!\207" [V0 calc-word-size calc-leading-zeros math-2-word-size math-half-2-word-size read-string format-prompt "Binary word size" "" string-match "\\`[-+]?[0-9]+\\'" string-to-number error "Expected an integer" prefix-numeric-value math-abs 100 calc-change-mode (calc-word-size calc-previous-modulo) math-power-of-2 calc-do-refresh calc-refresh-evaltos 0 message "Binary word size is %d bits (two's complement)" "Binary word size is %d bits" "No fixed binary word size"] 6]] 6 (#$ . 3319) "P"])
#@24 

(fn N &optional ARG)
(defalias 'calc-radix #[513 "
C\300\301\302#!\207" [calc-do make-closure #[0 "\300\242\304Y\203&\300\242\305X\203&\306\302\303D\300\242\301\206\307 D\310#\210\311\302\n\"\210\202*\300\n\240\210\2034\312\313\300\242\"\207\312\314\300\242\"\207" [V0 V1 calc-number-radix calc-twos-complement-mode 2 36 calc-change-mode calc-is-option t set-default message "Number radix is %d, two's complement mode is on." "Number radix is %d"] 4]] 8 (#$ . 4349) "NDisplay radix (2-36): "])
(defalias 'calc-decimal-radix #[0 "\300\301!\207" [calc-radix 10] 2 nil nil])
#@22 

(fn &optional ARG)
(defalias 'calc-binary-radix #[256 "\300\301\"\207" [calc-radix 2] 4 (#$ . 4938) "P"])
#@22 

(fn &optional ARG)
(defalias 'calc-octal-radix #[256 "\300\301\"\207" [calc-radix 8] 4 (#$ . 5053) "P"])
#@22 

(fn &optional ARG)
(defalias 'calc-hex-radix #[256 "\300\301\"\207" [calc-radix 16] 4 (#$ . 5167) "P"])
#@10 

(fn N)
(defalias 'calc-leading-zeros #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\304\305\300\306\211$\203\307\310\311\312\313\n!\")#\207\307\314!\207" [V0 calc-internal-prec calc-word-size calc-number-radix calc-change-mode calc-leading-zeros t message "Zero-padding integers to %d digits (assuming radix %d)" 6 math-compute-max-digits math-abs "Omitting leading zeros on integers"] 5]] 5 (#$ . 5280) "P"])
#@10 

(fn N)
(defalias 'math-power-of-2 #[257 "\300
!\203\301\302\"\207\303\304!\207" [natnump ash 1 error "Argument must be a natural number"] 4 (#$ . 5713)])
#@10 

(fn N)
(defalias 'math-integer-log2 #[257 "\300
!\205\211\301U?\205\302
\211S\"\301U\205\303
!\207" [natnump 0 logand logb] 4 (#$ . 5878)])
#@24 

(fn A B &optional W)
(defalias 'calcFunc-and #[770 "\211\211:\205\211@\300=\205\301
8\302Y\262
\203\303\304!#\207\211\203-\211\250\204-\305
\306\"\207\250\203?
\250\203?\307\310\"\"\207\242\311=\204M
\242\311=\203T\312\303$\207\211\250\206k\211:\205k\211@\300=\205k\301
8\302Y\262
\204u\305\313\"\207
\211\250\206\214\211:\205\214\211@\300=\205\214\301
8\302Y\262
\204\226\305\313\"\207\307\310\314\"\314\"\"\"\207" [float 2 0 calcFunc-and math-trunc math-reject-arg fixnump math-clip logand mod math-binary-modulo-args integerp math-binary-arg] 9 (#$ . 6032)])
#@12 

(fn A W)
(defalias 'math-binary-arg #[514 "\301!\204\302!\262\211\203\302
!\202\303W\203+\211\303U\204+\304\305\306\"S\"\207\207" [calc-word-size Math-integerp math-trunc 0 logand ash 1] 8 (#$ . 6641)])
#@16 

(fn F A B W)
(defalias 'math-binary-modulo-args #[1028 "\300\242\301=\2031\3028\262
A@\262\242\301=\203;\211\3028\232\203)A@\262\202;\303\304\"\210\202;\3028\262
A@\262\211\211:\205M\211@\305=\205M\302
8\306Y\262
\203Z\307
!\262
\202e\310
!\204e\303
\311\"\210\312
!\211\203\211\203\203
U\204\215\306U\204\215\313\314!\210\202\215\211\262\202\215\313\315!\210\316\203\236#\202\244\"\"\207" [nil mod 2 math-reject-arg "*Inconsistent modulus" float 0 math-trunc Math-integerp integerp math-integer-log2 calc-record-why "*Warning: Modulus inconsistent with word size" "*Warning: Modulus is not a power of 2" math-make-mod] 11 (#$ . 6868)])
#@24 

(fn A B &optional W)
(defalias 'calcFunc-or #[770 "\211\211:\205\211@\300=\205\301
8\302Y\262
\203\303\304!#\207\211\203-\211\250\204-\305
\306\"\207\250\203?
\250\203?\307\310\"\"\207\242\311=\204M
\242\311=\203T\312\303$\207\211\250\206k\211:\205k\211@\300=\205k\301
8\302Y\262
\204u\305\313\"\207
\211\250\206\214\211:\205\214\211@\300=\205\214\301
8\302Y\262
\204\226\305\313\"\207\307\310\314\"\314\"\"\"\207" [float 2 0 calcFunc-or math-trunc math-reject-arg fixnump math-clip logior mod math-binary-modulo-args integerp math-binary-arg] 9 (#$ . 7562)])
#@24 

(fn A B &optional W)
(defalias 'calcFunc-xor #[770 "\211\211:\205\211@\300=\205\301
8\302Y\262
\203\303\304!#\207\211\203-\211\250\204-\305
\306\"\207\250\203?
\250\203?\307\310\"\"\207\242\311=\204M
\242\311=\203T\312\303$\207\211\250\206k\211:\205k\211@\300=\205k\301
8\302Y\262
\204u\305\313\"\207
\211\250\206\214\211:\205\214\211@\300=\205\214\301
8\302Y\262
\204\226\305\313\"\207\307\310\314\"\314\"\"\"\207" [float 2 0 calcFunc-xor math-trunc math-reject-arg fixnump math-clip logxor mod math-binary-modulo-args integerp math-binary-arg] 9 (#$ . 8169)])
#@24 

(fn A B &optional W)
(defalias 'calcFunc-diff #[770 "\211\211:\205\211@\300=\205\301
8\302Y\262
\203\303\304!#\207\211\203-\211\250\204-\305
\306\"\207\250\203A
\250\203A\307\310\311!\"\"\207\242\312=\204O
\242\312=\203V\313\303$\207\211\250\206m\211:\205m\211@\300=\205m\301
8\302Y\262
\204w\305\314\"\207
\211\250\206\216\211:\205\216\211@\300=\205\216\301
8\302Y\262
\204\230\305\314\"\207\307\310\315\"\311\315\"!\"\"\207" [float 2 0 calcFunc-diff math-trunc math-reject-arg fixnump math-clip logand lognot mod math-binary-modulo-args integerp math-binary-arg] 10 (#$ . 8778)])
#@22 

(fn A &optional W)
(defalias 'calcFunc-not #[513 "\211\211:\205\211@\301=\205\302
8\303Y\262
\203\304\305!\"\207
\242\306=\203,\307\304\310$\207\211\203:\211\250\204:\311
\312\"\207
\211\250\206Q\211:\205Q\211@\301=\205Q\302
8\303Y\262
\204[\311\313\"\207\211\206c\211\262\303W\203q\314\304[\"\"\207\314\315\316\"!\"\207" [calc-word-size float 2 0 calcFunc-not math-trunc mod math-binary-modulo-args nil math-reject-arg fixnump integerp math-clip lognot math-binary-arg] 7 (#$ . 9409)])
#@24 

(fn A &optional N W)
(defalias 'calcFunc-lsh #[769 "\301!\262
\203\301!\202\302\262\242\303=\203 \304\305$\207\211\203*\301
!\202+\262
\211\250\2047\306
\307\"\210\310!\204B\306\311\"\210\310!\204M\306\311\"\210\211\312W\203]\313\305[#\"\207\211\250\205f\211\312W\262
\203q\313\"\262

[\314\"\315U\266\202\204\214\211\314\"\315U\266\202\203\224\211\312U\204\224\312\207
\312W\203\242\316\313\"\"\207\313\317\320!\"\"\207" [calc-word-size math-trunc 1 mod math-binary-modulo-args calcFunc-lsh math-reject-arg fixnump Math-integerp integerp 0 math-clip math-compare -1 ash math-mul math-power-of-2] 8 (#$ . 9932)])
#@24 

(fn A &optional N W)
(defalias 'calcFunc-rsh #[769 "\300\301\206\302!#\207" [calcFunc-lsh math-neg 1] 7 (#$ . 10602)])
#@24 

(fn A &optional N W)
(defalias 'calcFunc-ash #[769 "
\2031
\211:\203)\211@\301>\203!\211A@\211\250\205\211\302W\266\202\202.\303
!\262
\202.\211\302W\262
\2047\304#\207\305!\262
\203F\305!\202G\306\262\242\307=\203W\310\311$\207\211\203a\305
!\202b\262
\211\250\204n\312
\313\"\210\314!\204y\312\315\"\210\314!\204\204\312\315\"\210\211\302W\203\224\316\311[#\"\207\211\250\205\235\211\302W\262
\203\250\316\"\262\211\302U?\205\263\317
S!\304#\302U\204\307\320\"\302U\203\310\207\306Z\321\"\322U\266\202\203\337\323\324\325\"\322\"\207\317[!\323\304\323\322\"\\#\"\207" [calc-word-size (frac float) 0 math-negp calcFunc-lsh math-trunc 1 mod math-binary-modulo-args calcFunc-ash math-reject-arg fixnump Math-integerp integerp math-clip math-power-of-2 logand math-compare -1 math-add math-mul 2] 11 (#$ . 10734)])
#@24 

(fn A &optional N W)
(defalias 'calcFunc-rash #[769 "\300\301\206\302!#\207" [calcFunc-ash math-neg 1] 7 (#$ . 11622)])
#@24 

(fn A &optional N W)
(defalias 'calcFunc-rot #[769 "\301!\262
\203\301!\202\302\262\242\303=\203 \304\305$\207\211\203*\301
!\202+\262
\211\306U\2037\307\310!\210\211\250\204A\311
\312\"\210\313!\204L\311\314\"\210\313!\204W\311\314\"\210\211\306W\203g\315\305[#\"\207\211\250\205p\211\306W\262
\203{\315\"\262
\211\250\205\204\211\306W\262
\204\217

Y\203\230\305\316\"#\207\317\320Z#\320#\"\207" [calc-word-size math-trunc 1 mod math-binary-modulo-args calcFunc-rot 0 error "Rotation requires a nonzero word size" math-reject-arg fixnump Math-integerp integerp math-clip math-mod math-add calcFunc-lsh] 9 (#$ . 11755)])
#@22 

(fn A &optional W)
(defalias 'math-clip #[513 "\211\211:\205\211@\301=\205\302
8\303Y\262
\203\304\305!\"\207
\242\306=\203,\307\304\310$\207\211\203:\211\250\204:\311
\312\"\207
\211\250\206Q\211:\205Q\211@\301=\205Q\302
8\303Y\262
\204[\311\313\"\207\211\206c\211\262\303W\203\203\304[\"\262
\314\315Z!W\203{
\207\316\314[!\"\207\317
!\203\213
\207
\211:\203\260\211@\320>\203\250\211A@\211\250\205\243\211\303W\266\202\202\265\321
!\262
\202\265\211\303W\262
\203\275\322\"\207
\250\205\312\323\324\325\"S\"\207" [calc-word-size float 2 0 math-clip math-trunc mod math-binary-modulo-args nil math-reject-arg fixnump integerp math-power-of-2 -1 math-sub math-zerop (frac float) math-negp math-binary-arg logand ash 1] 7 (#$ . 12434)])
(defalias 'calcFunc-clip 'math-clip)
(defvar math-max-digits-cache nil)
#@12 

(fn W R)
(defalias 'math-compute-max-digits #[514 "\211\302_\\\211\236\211\203\211A\207\303\304\305\306!\"!
BB)\207" [math-max-digits-cache calc-command-flags 100000 nil math-ceiling math-div math-real-log2] 9 (#$ . 13292)])
(defvar math-log2-cache (list '(2 . 1) '(4 . 2) '(8 . 3) '(10 float 332193 -5) '(16 . 4) '(32 . 5)))
#@10 

(fn X)
(defalias 'math-real-log2 #[257 "\211\236\211\203\n\211A\207\303\211\304\305\"
BB*\207" [math-log2-cache calc-symbolic-mode calc-display-working-message nil calcFunc-log 2] 6 (#$ . 13637)])
(defconst math-radix-digits ["0" "1" "2" "3" "4" "5" "6" "7" "8" "9" "A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M" "N" "O" "P" "Q" "R" "S" "T" "U" "V" "W" "X" "Y" "Z"])
#@10 

(fn A)
(defalias 'math-format-radix-digit #[257 "
H\207" [math-radix-digits] 3 (#$ . 14025)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put math-format-radix-digit speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@10 

(fn A)
(defalias 'math-format-radix #[257 "\211W\203\211\302W\203\303\304[!P\207\211	
H\207\305
\302V\2033
\246	
H\262

P\262

\245\262\202\207" [calc-number-radix math-radix-digits 0 "-" math-format-radix ""] 5 (#$ . 14277)])
#@10 

(fn A)
(defalias 'math-format-binary #[257 "\301\302
!)\207" [calc-number-radix 2 math-format-radix] 3 (#$ . 14524)])
#@20 

(fn A NEED-FRAC)
(defalias 'math-float-parts #[514 "\3008\301Y\203\302A@\3008\"\303\301E\207\304A@!\3008[\203@\211Y\203,\301E\207\305A@\306\307\"\"\211@\310A[\"E\207\302A@\3008\"\311\301E\207" [2 0 math-scale-rounding (float 0 0) math-numdigs math-idivmod math-scale-int 1 math-make-float (float 0 0)] 9 (#$ . 14651)])
#@15 

(fn A PREC)
(defalias 'math-format-radix-float #[514 "@A@	\306\211\307=\203\241\310!\311\312V\"\313\3148\315\316\"]\\\211@\317\320\321A@!\322!\"!\323
!\203E\323!\203E\312W\204\233\306\211\312V\203U\324
!\202V\325\262GW\203o\326GZ\327\"P\262\202\202GV\203\202\330\306O\262\331\330\"\262\324!Q\262)\f\203\227\332!\262)\202\236\312\262)\266
\204\300\n\312V\203\260\202\277\330\315\333\fA@!]!S\\]\313\315\316\"\\\334\322\334!\330\322\330!\306\211\211\321!\262\211:\203\367\211@\335=\203\357\211A@\312=\262
\202\374\323
!\262
\202\374\211\312=\262
\203
\312\262\202\204
\336\337\"\203)
\336\"\204I
\262\262\320\314\"\262\322!\262\202

\336\"\203I
\262\262\320\314\"\262\322!\262\202)
\340\"\330=\204|
\341\331\"!\262\322!\262\336\"\203s
\262
\262\202I
\262
\262\202I
\342\"\262\317\320\322S!\"!\306\211\324
!\262\f*\210\nGV\203\257
\n\312\334O\262T\262
\335=\203#\343\312U\203\310
\315!S\202\312
	
\\T\"\203#\343.\"\203#T\211\312X\203\363
\344
\326[\327\"R\262\f\202\211\fGV\203
\326GZ\327\"Q\262\f\202\312O

\306OQ\262\f\306\262\210\202J
\345=\2036\346\313\"G^\2027\312\262
\n\312TO\f\fT\306OQ\262\nG\262\n\n\nSH\327=\203b	S\262\n\202O\203w\n\nSH\347=\203w	S\262\n\n\312O\262\f\203\211\332!\262\203\275\350\306/\324\340\"!*0\351>\204\251/\352V\203\264\353\354
/$\202\272\353\355
#\262\f\210)\266	
\207" [calc-float-format calc-point-char calc-internal-prec math-radix-explicit-format calc-group-digits calc-display-sci-high nil fix math-abs math-float-parts 0 3 2 math-convert-radix-digits t math-round math-mul math-normalize math-radix-float-power math-zerop math-format-number "" make-string 48 1 math-add math-group-float math-numdigs -1 float math-lessp-float (float 1 0) math-sub math-div2 math-div-float math-lessp "0" eng math-mod 46 10 (math maple) 14 format "%s*%d.^%s" "%se%s" calc-display-sci-low calc-number-radix calc-language] 23 (#$ . 14999)])
(defvar math-radix-digits-cache nil)
#@27 

(fn N &optional TO-DEC)
(defalias 'math-convert-radix-digits #[513 "

BB\303
	\"A\2063\304\305\306!\307\"
\310\203#\311\"\202(\305\"!B	B\211@A)\262
\207" [calc-number-radix math-radix-digits-cache calc-internal-prec assoc 6 math-div math-real-log2 (float 332193 -5) math-ceiling math-mul] 9 (#$ . 17136)])
(defvar math-radix-float-cache-tag nil)
#@10 

(fn N)
(defalias 'math-radix-float-power #[257 "\211\304=\203\305\207	@=\203\n	AX\204\nB\306\307\310\"A\206Z
	A\311!\203;\312\313\314\315!!\"\202R\316\317\314\320!!!\321!\203N\322\202Q\323!\")BB\211@A!\207" [calc-number-radix math-radix-float-cache-tag calc-internal-prec math-radix-float-cache 0 (float 1 0) nil math-normalize assoc math-negp math-div-float (float 1 0) math-radix-float-power math-neg math-mul-float math-sqr-float math-div2 math-evenp (float 1 0) math-float] 8 (#$ . 17504)])
#@53 Format an integer in two's complement mode.

(fn A)
(defalias 'math-format-twos-complement #[257 "\305U\203\n\306\307!\210\211\305=\204\211\211\250\205\211\305V\262
\203$\310
!\202;\211\211\250\205-\211\305W\262
\205;\311
	\"\310
!\262
\312\313\314!\"
G\211W\203U\315Z\316\"P\262)\266\f\203a\317
!\262
\320!\321Q\207" [calc-word-size math-2-word-size calc-internal-prec calc-number-radix calc-group-digits 0 error "Nonzero word size required" math-format-radix math-add 6 math-compute-max-digits math-abs make-string 48 math-group-float number-to-string "##"] 7 (#$ . 18034)])
(provide 'calc-bin)