Linux ns8.secondary29.go.th 2.6.32-754.28.1.el6.x86_64 #1 SMP Wed Mar 11 18:38:45 UTC 2020 x86_64
Apache/2.2.15 (CentOS)
: 122.154.134.11 | : 122.154.134.9
Cant Read [ /etc/named.conf ]
5.6.40
apache
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
23.1 /
lisp /
calc /
[ HOME SHELL ]
Name
Size
Permission
Action
README
7.89
KB
-rw-r--r--
README.prev
31.02
KB
-rw-r--r--
calc-aent.elc
26.85
KB
-rw-r--r--
calc-alg.elc
46.35
KB
-rw-r--r--
calc-arith.elc
81.62
KB
-rw-r--r--
calc-bin.elc
21.53
KB
-rw-r--r--
calc-comb.elc
30.12
KB
-rw-r--r--
calc-cplx.elc
8.5
KB
-rw-r--r--
calc-embed.elc
29.83
KB
-rw-r--r--
calc-ext.elc
108.83
KB
-rw-r--r--
calc-fin.elc
11.84
KB
-rw-r--r--
calc-forms.elc
48.05
KB
-rw-r--r--
calc-frac.elc
5.58
KB
-rw-r--r--
calc-funcs.elc
25.78
KB
-rw-r--r--
calc-graph.elc
35.09
KB
-rw-r--r--
calc-help.elc
19.55
KB
-rw-r--r--
calc-incom.elc
5.29
KB
-rw-r--r--
calc-keypd.elc
15.83
KB
-rw-r--r--
calc-lang.elc
57.72
KB
-rw-r--r--
calc-loaddefs.el
10.61
KB
-rw-r--r--
calc-macs.elc
6.09
KB
-rw-r--r--
calc-map.elc
29.56
KB
-rw-r--r--
calc-math.elc
60.12
KB
-rw-r--r--
calc-menu.elc
32.85
KB
-rw-r--r--
calc-misc.elc
20.54
KB
-rw-r--r--
calc-mode.elc
19.45
KB
-rw-r--r--
calc-mtx.elc
6.77
KB
-rw-r--r--
calc-nlfit.elc
13.59
KB
-rw-r--r--
calc-poly.elc
24.53
KB
-rw-r--r--
calc-prog.elc
51.27
KB
-rw-r--r--
calc-rewr.elc
40.01
KB
-rw-r--r--
calc-rules.elc
17.6
KB
-rw-r--r--
calc-sel.elc
19.83
KB
-rw-r--r--
calc-stat.elc
13.97
KB
-rw-r--r--
calc-store.elc
17.31
KB
-rw-r--r--
calc-stuff.elc
8.07
KB
-rw-r--r--
calc-trail.elc
4.67
KB
-rw-r--r--
calc-undo.elc
3.35
KB
-rw-r--r--
calc-units.elc
37.86
KB
-rw-r--r--
calc-vec.elc
37.25
KB
-rw-r--r--
calc-yank.elc
16.66
KB
-rw-r--r--
calc.elc
101.08
KB
-rw-r--r--
calcalg2.elc
80.01
KB
-rw-r--r--
calcalg3.elc
42.38
KB
-rw-r--r--
calccomp.elc
32.86
KB
-rw-r--r--
calcsel2.elc
6.04
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : calc-bin.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:34 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/calc/calc-bin.el ;;; in Emacs version 23.1.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`calc-bin.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\207" [require calc-ext calc-macs] 2) #@133 The logb of the size of a bignum digit. This is the largest value of B such that 2^B is less than the size of a Calc bignum digit. (defconst math-bignum-logb-digit-size (logb math-bignum-digit-size) (#$ . 685)) #@67 The largest power of 2 less than the size of a Calc bignum digit. (defconst math-bignum-digit-power-of-two (byte-code "\301\302\303!\"\207" [math-bignum-digit-size expt 2 logb] 4) (#$ . 903)) (defalias 'calc-and #[(n) "\300\301`\"\207" [calc-do #[nil "\301\302\303\304\305\306\302!\205 \307!C##\207" [n calc-enter-result 2 "and" append (calcFunc-and) calc-top-list-n prefix-numeric-value] 8]] 3 nil "P"]) (defalias 'calc-or #[(n) "\300\301`\"\207" [calc-do #[nil "\301\302\303\304\305\306\302!\205 \307!C##\207" [n calc-enter-result 2 "or" append (calcFunc-or) calc-top-list-n prefix-numeric-value] 8]] 3 nil "P"]) (defalias 'calc-xor #[(n) "\300\301`\"\207" [calc-do #[nil "\301\302\303\304\305\306\302!\205 \307!C##\207" [n calc-enter-result 2 "xor" append (calcFunc-xor) calc-top-list-n prefix-numeric-value] 8]] 3 nil "P"]) (defalias 'calc-diff #[(n) "\300\301`\"\207" [calc-do #[nil "\301\302\303\304\305\306\302!\205 \307!C##\207" [n calc-enter-result 2 "diff" append (calcFunc-diff) calc-top-list-n prefix-numeric-value] 8]] 3 nil "P"]) (defalias 'calc-not #[(n) "\300\301`\"\207" [calc-do #[nil "\301\302\303\304\305\306\302!\205 \307!C##\207" [n calc-enter-result 1 "not" append (calcFunc-not) calc-top-list-n prefix-numeric-value] 8]] 3 nil "P"]) (defalias 'calc-lshift-binary #[(n) "\300\301`\"\207" [calc-do #[nil "\302 \203 \303\202\n \304\305\306\307\310\311! \205 \312 !C##)\207" [hyp n calc-is-hyperbolic 2 1 calc-enter-result "lsh" append (calcFunc-lsh) calc-top-list-n prefix-numeric-value] 8]] 3 nil "P"]) (defalias 'calc-rshift-binary #[(n) "\300\301`\"\207" [calc-do #[nil "\302 \203 \303\202\n \304\305\306\307\310\311! \205 \312 !C##)\207" [hyp n calc-is-hyperbolic 2 1 calc-enter-result "rsh" append (calcFunc-rsh) calc-top-list-n prefix-numeric-value] 8]] 3 nil "P"]) (defalias 'calc-lshift-arith #[(n) "\300\301`\"\207" [calc-do #[nil "\302 \203 \303\202\n \304\305\306\307\310\311! \205 \312 !C##)\207" [hyp n calc-is-hyperbolic 2 1 calc-enter-result "ash" append (calcFunc-ash) calc-top-list-n prefix-numeric-value] 8]] 3 nil "P"]) (defalias 'calc-rshift-arith #[(n) "\300\301`\"\207" [calc-do #[nil "\302 \203 \303\202\n \304\305\306\307\310\311! \205 \312 !C##)\207" [hyp n calc-is-hyperbolic 2 1 calc-enter-result "rash" append (calcFunc-rash) calc-top-list-n prefix-numeric-value] 8]] 3 nil "P"]) (defalias 'calc-rotate-binary #[(n) "\300\301`\"\207" [calc-do #[nil "\302 \203 \303\202\n \304\305\306\307\310\311! \205 \312 !C##)\207" [hyp n calc-is-hyperbolic 2 1 calc-enter-result "rot" append (calcFunc-rot) calc-top-list-n prefix-numeric-value] 8]] 3 nil "P"]) (defalias 'calc-clip #[(n) "\300\301`\"\207" [calc-do #[nil "\301\302\303\304\305\306\302!\205 \307!C##\207" [n calc-enter-result 1 "clip" append (calcFunc-clip) calc-top-list-n prefix-numeric-value] 8]] 3 nil "P"]) (defalias 'calc-word-size #[(n) "\300\301!\207" [calc-do #[nil "\204 \303\304\305 \"!;\203- \306\232\203 \2020 \307\310\"\203' \311!\2020 \312\313!\2020 \314!\211 U\204T \315!\316V\203H \317\301\n#\210\202T \317\320\321\315!!D\n#\210\322W\203` \323\324[\"\207\323\325\"\207" [n calc-word-size calc-leading-zeros read-string format "Binary word size: (default %d) " "" 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 0 message "Binary word size is %d bits (2's complement)" "Binary word size is %d bits"] 7]] 2 nil "P"]) (defalias 'calc-radix #[(n) "\300\301!\207" [calc-do #[nil "\302Y\203 \303X\203 \304\301\305#\210\306\301 \"\210\202 \307\310\"\207" [n calc-number-radix 2 36 calc-change-mode t set-default message "Number radix is %d"] 4]] 2 nil "NDisplay radix (2-36): "]) (defalias 'calc-decimal-radix #[nil "\300\301!\207" [calc-radix 10] 2 nil nil]) (defalias 'calc-binary-radix #[nil "\300\301!\207" [calc-radix 2] 2 nil nil]) (defalias 'calc-octal-radix #[nil "\300\301!\207" [calc-radix 8] 2 nil nil]) (defalias 'calc-hex-radix #[nil "\300\301!\207" [calc-radix 16] 2 nil nil]) (defalias 'calc-leading-zeros #[(n) "\300\301!\207" [calc-do #[nil "\304\305\306\211$\203 \307\310\311\312\313\n! \") #\207\307\314!\207" [n 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]] 2 nil "P"]) (byte-code "\301B\302\301!\204 \303\301\304\305\306\307\310\311\312\313\314\315\316\257 \"\210\317B\302\317!\204* \303\317\320\"\210\320\207" [current-load-list math-power-of-2-cache default-boundp set-default 1 2 4 8 16 32 64 128 256 512 1024 math-big-power-of-2-cache nil] 13) (defalias 'math-power-of-2 #[(n) "\306!\2034 \307X\2034 8\206R G\211S 8\nX\2031 \310 \311\" C\244\nT\211\202 *\207\f\236\211 \203A A\202Q \312\311\" B\fB ))\207" [n math-power-of-2-cache i val math-big-power-of-2-cache found natnump 100 math-mul 2 math-ipow po2] 4]) (defalias 'math-integer-log2 #[(n) "\306\307\n\203> \n@\211\f \211 \f:\203( :\2051 \310\fA A\"\311U\2021 :\2061 \f W*\203> \nA T\202 \n\203L \f\232\205\213 \202\213 \312 \313\"\211 C\244\f \211 \f:\203q :\205z \310\fA A\"\311U\202z :\206z \f W*\203\204 T\202L \f\232\205\213 +\207" [math-power-of-2-cache val p i n b 0 nil math-compare-bignum -1 math-mul 2 a] 4]) (defalias 'calcFunc-and #[(a b &optional w) "\211:\205 @\303=\205 \304 8\305Y)\203 \306 \n\307!#\207\203- \250\204- \310\311\"\207 \250\203? \n\250\203? \312\313 \n\"\"\207 \242\314=\204M \n\242\314=\203T \315\306 \n$\207 \211:?\206o @\316>\206o @\303=\205o \304 8\305Y)\204x \310 \317\"\207\n\211:?\206\223 @\316>\206\223 @\303=\205\223 \304 8\305Y)\204\234 \310\n\317\"\207\312\320\321\322 \"\322\n\"\"B\"\207" [w a b float 2 0 calcFunc-and math-trunc math-reject-arg fixnump math-clip logand mod math-binary-modulo-args (bigpos bigneg) integerp bigpos math-and-bignum math-binary-arg] 8]) (defalias 'math-binary-arg #[(a w) "\211:?\206\f @\303>)\204 \304!\211:\203\" @\305=\202% \306W)\203@ \307\310\311\312\"!A\313 \203< \304 !\202= \n!\"\207\211:\203K \202N \314!)A\207" [a w calc-word-size (bigpos bigneg) math-trunc bigneg 0 math-not-bignum math-bignum-test math-sub -1 math-abs math-bignum] 6]) (defalias 'math-binary-modulo-args #[(f a b w) "\306 \242\300=\203/ \307 8 A@\n\242\300=\2037 \307\n8\232\203' \nA@\2027 \310\n\311\"\210\2027 \307\n8\nA@\211:\205J @\312=\205J \307 8\313Y)\203U \314!\202j \211:?\206a @\315>)\204j \310\316\"\210\317!\211\203\210 \f\203\203 \f U\204\214 \320\321!\210\202\214 \202\214 \320\322!\210\323\n\203\231 \n\f#\202\235 \f\"\"*\207" [mod a b bits w f nil 2 math-reject-arg "*Inconsistent modulos" float 0 math-trunc (bigpos bigneg) integerp math-integer-log2 calc-record-why "*Warning: Modulo inconsistent with word size" "*Warning: Modulo is not a power of 2" math-make-mod] 6]) (defalias 'math-and-bignum #[(a b) "\205& \205& \305\n\"\305 \n\" \306\307\310\f@!\310 @!\"\n\311\fA A\"#*\207" [a b math-bignum-digit-power-of-two qb qa math-div-bignum-digit math-mul-bignum-digit math-and-bignum math-norm-bignum logand] 6]) (defalias 'calcFunc-or #[(a b &optional w) "\211:\205 @\303=\205 \304 8\305Y)\203 \306 \n\307!#\207\203- \250\204- \310\311\"\207 \250\203? \n\250\203? \312\313 \n\"\"\207 \242\314=\204M \n\242\314=\203T \315\306 \n$\207 \211:?\206o @\316>\206o @\303=\205o \304 8\305Y)\204x \310 \317\"\207\n\211:?\206\223 @\316>\206\223 @\303=\205\223 \304 8\305Y)\204\234 \310\n\317\"\207\312\320\321\322 \"\322\n\"\"B\"\207" [w a b float 2 0 calcFunc-or math-trunc math-reject-arg fixnump math-clip logior mod math-binary-modulo-args (bigpos bigneg) integerp bigpos math-or-bignum math-binary-arg] 8]) (defalias 'math-or-bignum #[(a b) "\204 \205& \305\n\"\305 \n\" \306\307\310\f@!\310 @!\"\n\311\fA A\"#*\207" [a b math-bignum-digit-power-of-two qb qa math-div-bignum-digit math-mul-bignum-digit math-or-bignum math-norm-bignum logior] 6]) (defalias 'calcFunc-xor #[(a b &optional w) "\211:\205 @\303=\205 \304 8\305Y)\203 \306 \n\307!#\207\203- \250\204- \310\311\"\207 \250\203? \n\250\203? \312\313 \n\"\"\207 \242\314=\204M \n\242\314=\203T \315\306 \n$\207 \211:?\206o @\316>\206o @\303=\205o \304 8\305Y)\204x \310 \317\"\207\n\211:?\206\223 @\316>\206\223 @\303=\205\223 \304 8\305Y)\204\234 \310\n\317\"\207\312\320\321\322 \"\322\n\"\"B\"\207" [w a b float 2 0 calcFunc-xor math-trunc math-reject-arg fixnump math-clip logxor mod math-binary-modulo-args (bigpos bigneg) integerp bigpos math-xor-bignum math-binary-arg] 8]) (defalias 'math-xor-bignum #[(a b) "\204 \205& \305\n\"\305 \n\" \306\307\310\f@!\310 @!\"\n\311\fA A\"#*\207" [a b math-bignum-digit-power-of-two qb qa math-div-bignum-digit math-mul-bignum-digit math-xor-bignum math-norm-bignum logxor] 6]) (defalias 'calcFunc-diff #[(a b &optional w) "\211:\205 @\303=\205 \304 8\305Y)\203 \306 \n\307!#\207\203- \250\204- \310\311\"\207 \250\203A \n\250\203A \312\313 \314\n!\"\"\207 \242\315=\204O \n\242\315=\203V \316\306 \n$\207 \211:?\206q @\317>\206q @\303=\205q \304 8\305Y)\204z \310 \320\"\207\n\211:?\206\225 @\317>\206\225 @\303=\205\225 \304 8\305Y)\204\236 \310\n\320\"\207\312\321\322\323 \"\323\n\"\"B\"\207" [w a b float 2 0 calcFunc-diff math-trunc math-reject-arg fixnump math-clip logand lognot mod math-binary-modulo-args (bigpos bigneg) integerp bigpos math-diff-bignum math-binary-arg] 8]) (defalias 'math-diff-bignum #[(a b) "\205$ \305 \"\305\n \" \306\307\310\f@!\310 @!\" \311\fA\312 A!\"#*\207" [a math-bignum-digit-power-of-two b qb qa math-div-bignum-digit math-mul-bignum-digit math-diff-bignum math-norm-bignum logand lognot] 7]) (defalias 'calcFunc-not #[(a &optional w) "\211:\205 @\303=\205 \304 8\305Y)\203 \306 \307!\"\207 \242\310=\203, \311\306 \312$\207\203: \250\204: \313\314\"\207 \211:?\206U @\315>\206U @\303=\205U \304 8\305Y)\204^ \313 \316\"\207\206e \n\211\305W\203s \317\306 [\"\"\207\320\321\322\323 \"\"B!\207" [w a calc-word-size float 2 0 calcFunc-not math-trunc mod math-binary-modulo-args nil math-reject-arg fixnump (bigpos bigneg) integerp math-clip math-normalize bigpos math-not-bignum math-binary-arg] 7]) (defalias 'math-not-bignum #[(a w) "\305 \" \fX\203 \306\307\nA!\310\311 \"S\"C\202, \312\313\314\n@! \fZ\" \315\nA S\"#)\207" [a math-bignum-digit-power-of-two q w math-bignum-logb-digit-size math-div-bignum-digit logand lognot lsh 1 math-mul-bignum-digit math-not-bignum math-norm-bignum logxor] 6]) (defalias 'calcFunc-lsh #[(a &optional n w) "\305! \203 \305 !\202 \306\242\307=\203 \310\311 \n$\207\n\203( \305\n!\202) \211\250\2044 \312\n\313\"\210\211:?\206@ @\314>)\204I \312\315\"\210 \211:?\206U @\314>)\204^ \312 \315\"\210\n\316W\203n \317\311 \n[#\n\"\207\211:\203| @\320=\202 \316W)\203\210 \317\n\" \n[ \321\f\"\322U*\204\245 \n \321\f\"\322U*\203\247 \316\207 \316W\203\270 \323\317\n\"\324 [!\"\207\317\325\324 !\"\n\"\207" [a n w calc-word-size b math-trunc 1 mod math-binary-modulo-args calcFunc-lsh math-reject-arg fixnump (bigpos bigneg) integerp 0 math-clip bigneg math-compare -1 math-quotient math-power-of-2 math-mul] 6]) (defalias 'calcFunc-rsh #[(a &optional n w) "\303\304 \206 \305!\n#\207" [a n w calcFunc-lsh math-neg 1] 4]) (defalias 'calcFunc-ash #[(a &optional n w) "\203E \211:\203> @\306=\206A @\307=?\205A @\310>\2038 A@\211:\2031 @\306=\2024 \311W)\202A \312 !\202A \311W)\204K \313 \n#\207\314 !\203Y \314!\202Z \315 \242\316=\203i \317\320 \n$\207\n\203s \314\n!\202t \211\250\204 \321\n\322\"\210 \211:?\206\213 @\323>)\204\224 \321 \324\"\210\211:?\206\240 @\323>)\204\251 \321\324\"\210\n\311W\203\271 \325\320 \n[#\n\"\207 \211:\203\307 @\306=\202\312 \311W)\203\323 \325 \n\"\326\nS!\313 \n# \211:\203\372 :\205\327 A A\"\330U\202 :\206 W*\203\f\f\202=\315\nZ \331 \"\330U*\203(\332\333 \334\"\330\"\202=\326[! \332\313\332 \330\"\n\\\n#\f\")*\207" [n a w calc-word-size sh two-to-sizem1 bigneg bigpos (frac float) 0 math-negp calcFunc-lsh math-trunc 1 mod math-binary-modulo-args calcFunc-ash math-reject-arg fixnump (bigpos bigneg) integerp math-clip math-power-of-2 math-compare-bignum -1 math-compare math-add math-mul 2 b two-to-n] 6]) (defalias 'calcFunc-rash #[(a &optional n w) "\303\304 \206 \305!\n#\207" [a n w calcFunc-ash math-neg 1] 4]) (defalias 'calcFunc-rot #[(a &optional n w) "\305! \203 \305 !\202 \306\242\307=\203 \310\311 \n$\207\n\203( \305\n!\202) \211\250\2044 \312\n\313\"\210\211:?\206@ @\314>)\204I \312\315\"\210 \211:?\206U @\314>)\204^ \312 \315\"\210\n\316W\203n \317\311 \n[#\n\"\207\211:\203| @\320=\202 \316W)\203\210 \317\n\" \211:\203\226 @\320=\202\231 \316W)\204\302 \n \211:\203\266 \f:\205\276 \321A\fA\"\322U\202\276 \f:\206\276 \fW*\204\313 \311\323 \n\"\n#\207\324\325 \nZ\n#\325 \n#\"\207" [a n w calc-word-size b math-trunc 1 mod math-binary-modulo-args calcFunc-rot math-reject-arg fixnump (bigpos bigneg) integerp 0 math-clip bigneg math-compare-bignum -1 math-mod math-add calcFunc-lsh] 7]) (defalias 'math-clip #[(a &optional w) "\211:\205 @\305=\205 \306 8\307Y)\203 \310 \311!\"\207 \242\312=\203, \313\310 \314$\207\203: \250\204: \315\316\"\207 \211:?\206U @\317>\206U @\305=\205U \306 8\307Y)\204^ \315 \320\"\207\206e \n\211\307W\203\243 \310 [\"\211\321\322Z!\211:\203\215 :\205\225 \323 A A\"\322U\202\225 :\206\225 W*\203\233 \207\324 \321[!\"\207 \211:\203\335 @\325=\206\340 @\326=?\205\340 @\327>\203\327 A@\211:\203\320 @\325=\202\323 \307W)\202\340 \330 !\202\340 \307W)\203\355 \331\326\332 \"B!\207 \250\203 \fW\203 \333\f!V\203 \207\334 \335\336\"S\"\207\331\326\337\340\311 !!A\"B!\207" [w a calc-word-size b math-small-integer-size float 2 0 math-clip math-trunc mod math-binary-modulo-args nil math-reject-arg fixnump (bigpos bigneg) integerp math-power-of-2 -1 math-compare-bignum math-sub bigneg bigpos (frac float) math-negp math-normalize math-binary-arg logb logand lsh 1 math-clip-bignum math-bignum-test] 7]) (defalias 'calcFunc-clip 'math-clip) (defalias 'math-clip-bignum #[(a w) "\305 \" \fX\203 \306\nA\307\310 \"S\"C\202& \311\312\313\n@! \fZ\" \nA#)\207" [a math-bignum-digit-power-of-two q w math-bignum-logb-digit-size math-div-bignum-digit logand lsh 1 math-mul-bignum-digit math-clip-bignum math-norm-bignum] 5]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list math-max-digits-cache default-boundp set-default nil] 3) (defalias 'math-compute-max-digits #[(w r) "\306_ \\\211 \236\211 \203 \fA\202) \307 \310\311 \312!\"! \n B B **\207" [r w pair math-max-digits-cache res calc-command-flags 100000 nil math-ceiling math-div math-real-log2 digs] 6]) (byte-code "\301B\302\301!\204 \303\301\304\305\306\307\310\311\257\"\210\301\207" [current-load-list math-log2-cache default-boundp set-default (2 . 1) (4 . 2) (8 . 3) (10 float 332193 -5) (16 . 4) (32 . 5)] 8) (defalias 'math-real-log2 #[(x) " \236\211\203 \nA\202 \306\211 \307\310\" B B +)\207" [x math-log2-cache res calc-symbolic-mode calc-display-working-message log nil calcFunc-log 2] 4]) (byte-code "\301B\302\303!\207" [current-load-list math-radix-digits (lambda (#1=#:defconst-tmp-var) (defconst math-radix-digits #1#)) ["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"]] 2) (defalias 'math-format-radix-digit #[(a) " H\207" [math-radix-digits a] 2]) (put 'math-format-radix-digit 'byte-optimizer 'byte-compile-inline-expand) (defalias 'math-format-radix #[(a) " W\203 \304W\203 \305\306[!P\207\nH)\207\307\304V\2035 \246\nH) P \245\211\202 )\207" [a calc-number-radix math-radix-digits s 0 "-" math-format-radix ""] 4]) (byte-code "\301B\302\303!\207" [current-load-list math-binary-digits (lambda (#1=#:defconst-tmp-var) (defconst math-binary-digits #1#)) ["000" "001" "010" "011" "100" "101" "110" "111"]] 2) (defalias 'math-format-binary #[(a) "\303W\203 \304W\203 \305\306[!P\207\307!\207\310\311V\203/ \n\303\246H P\303\245\211\202 \307! P)\207" [a s math-binary-digits 8 0 "-" math-format-binary math-format-radix "" 7] 4]) (defalias 'math-format-bignum-radix #[(a) "\204 \304\207A\204 @ W\203 @\nH)\207\305 \"\306\307 @!! A\nH)P)\207" [a calc-number-radix math-radix-digits q "0" math-div-bignum-digit math-format-bignum-radix math-norm-bignum] 3]) (defalias 'math-format-bignum-binary #[(a) "\204 \303\207A\204 \304@!\207\305\306\"\307\310 @!!\n A\311\245H\n A\312\245\312\246H\n A\312\246HR)\207" [a q math-binary-digits "0" math-format-binary math-div-bignum-digit 512 math-format-bignum-binary math-norm-bignum 64 8] 6]) (defalias 'math-format-bignum-octal #[(a) "\204 \303\207A\204 \304@!\207\305\306\"\307\310 @!! A\311\245\nH) A\312\245\312\246\nH) A\312\246\nH)R)\207" [a q math-radix-digits "0" math-format-radix math-div-bignum-digit 512 math-format-bignum-octal math-norm-bignum 64 8] 5]) (defalias 'math-format-bignum-hex #[(a) "\204 \303\207A\204 \304@!\207\305\306\"\307\310 @!! A\311\245\nH) A\311\246\nH)Q)\207" [a q math-radix-digits "0" math-format-radix math-div-bignum-digit 256 math-format-bignum-hex math-norm-bignum 16] 4]) (defalias 'math-float-parts #[(a need-frac) "\3058\306Y\203 \307A@\3058\"\310\306E\207\311A@!\3058[ \203H \n Y\2030 \306\nE\202S \312A@\313\314\n\"\"\211 @\315\fA\n[\"\nE)\202S \307A@\3058\"\316\306E*\207" [a d n need-frac qr 2 0 math-scale-rounding (float 0 0) math-numdigs math-idivmod math-scale-int 1 math-make-float (float 0 0)] 6]) (defalias 'math-format-radix-float #[(a prec) "@A@ \306\211 \211 0\307=\203\263 \310 ! 1\31121\312V\" 3\313\31438\3151\316\"]\\ 43@ 5\317\320\3213A@!\3221!\"! 6\3236!\203Z \3235!\203Z \312W\204\260 \306\211 7 81\312V\203n \3246!\202o \325\211G1W\203\206 \3261 GZ\327\" P\202\232 G1V\203\232 \330\306O\3315\330\"5\3245!\f Q)8\203\254 \332 !)\202\262 \312- \204\3554 9 \312V\203\305 \202\325 \330 \3159\3332A@!]!S\\] 1\313\3151\316\"\\ 4\334 :\322:! ;\330 <\322<! =\306\211 > ?\306 @\3212!\2112\211 2:\203*2@\335>?\205.2@\336=\203#2A@\312=\202.\3232!\202.2\312=)\2038\312:\202\304\337\3402\"\203a\3372=\"\204\202<:=;\320<\314\"<\322<!=\202@\3372;\"\203\202:<;=\320:\314\":\322:!;\202a\341<:\"\330=\204\274\342\331:<\"!>\322>!?\3372?\"\203\261><?=\202\202>:?;\202\202\3432;\"2\317\3202\3221S!\"! A\306\211 7 8\324A!+ G1V\203\357 \312\334O:T:0\336=\203_\344:\345 \312U\203\3159!S\202\n1B\330#\"\203_\344C:\"\203_:T\211 D\312X\2034\346\f\326D[\327\" R\202XD GV\203K \326D GZ\327\"\fQ\202X \312DO\f D\306OQ\306:)\202\2030\347=\203q\350:\313\" G^\202r\312@ \312@TO\f @T\306OQ G \nSH\327=\203\225\nS\202\206:\203\246 \nSH\351=\203\246\nS \312\nO8\203\264\332 !:\203\353\352\306 8 E\324\341:@\"!* FG\353>\204\330E\354V\203\343\355\356 EF$\202\351\355\357 F#).\n -\207" [calc-float-format calc-point-char pos str point figs 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 (bigpos bigneg) 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" fmt afigs a fp calc-internal-prec int frac math-radix-explicit-format calc-group-digits prec explo vlo exphi vhi expmid vmid eadj sc calc-display-sci-high calc-display-sci-low dpos calc-number-radix estr calc-language] 7]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list math-radix-digits-cache default-boundp set-default nil] 3) (defalias 'math-convert-radix-digits #[(n &optional to-dec) " \nBB\306 \f\"A\2064 \307 \310\311\n!\312\" \313 \203& \314 \"\202+ \310 \"!B\fB\211@A*)\207" [n to-dec calc-number-radix key math-radix-digits-cache calc-internal-prec assoc 6 math-div math-real-log2 (float 332193 -5) math-ceiling math-mul log] 5]) (byte-code "\301B\302\301!\204 \303\301\304\"\210\304\207" [current-load-list math-radix-float-cache-tag default-boundp set-default nil] 3) (defalias 'math-radix-float-power #[(n) "\305=\203 \306\207 \n@=\203 \nAX\204 B\307\310\311\f\"A\206X \nA\312!\203: \313\314\315\316!!\"\202P \317\320\315\321!!!\322!\203L \323\202O \324 !\")B\fB\211@A!\207" [n 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] 7]) (provide 'calc-bin)
Close
