ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/calc/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/calc/calc-misc.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 calc-macs] 2)
#@2360 C-x* is a prefix key sequence; follow it with one of these letters:
For turning Calc on and off:
C calc. Start the Calculator in a window at the bottom of the screen.
O calc-other-window. Start the Calculator but don't select its window.
B calc-big-or-small. Control whether to use the full Emacs screen for Calc.
Q quick-calc. Use the Calculator in the minibuffer.
K calc-keypad. Start the Calculator in keypad mode (X window system only).
E calc-embedded. Use the Calculator on a formula in this editing buffer.
J calc-embedded-select. Like E, but select appropriate half of => or :=.
W calc-embedded-word. Like E, but activate a single word, i.e., a number.
Z calc-user-invocation. Invoke Calc in the way you defined with `Z I' cmd.
X calc-quit. Turn Calc off.
For moving data into and out of Calc:
G calc-grab-region. Grab the region defined by mark and point into Calc.
R calc-grab-rectangle. Grab the rectangle defined by mark, point into Calc.
: calc-grab-sum-down. Grab a rectangle and sum the columns.
_ calc-grab-sum-across. Grab a rectangle and sum the rows.
Y calc-copy-to-buffer. Copy a value from the stack into the editing buffer.
For use with Embedded mode:
A calc-embedded-activate. Find and activate all :='s and =>'s in buffer.
D calc-embedded-duplicate. Make a copy of this formula and select it.
F calc-embedded-new-formula. Insert a new formula at current point.
N calc-embedded-next. Advance cursor to next known formula in buffer.
P calc-embedded-previous. Advance cursor to previous known formula.
U calc-embedded-update-formula. Re-evaluate formula at point.
\=` calc-embedded-edit. Use calc-edit to edit formula at point.
Documentation:
I calc-info. Read the Calculator manual in the Emacs Info system.
T calc-tutorial. Run the Calculator Tutorial using the Emacs Info system.
S calc-summary. Read the Summary from the Calculator manual in Info.
Miscellaneous:
L calc-load-everything. Load all parts of the Calculator into memory.
M read-kbd-macro. Read a region of keystroke names as a keyboard macro.
0 (zero) calc-reset. Reset Calc stack and modes to default state.
Press `*' twice (`C-x * *') to turn Calc on or off using the same
Calc user interface as before (either C-x * C or C-x * K; initially C-x * C).
(defalias 'calc-dispatch-help #[(arg) "\306 \210\203W \307 \310\216\311\300!\210\312\313!\211\203R \314\315\n!\210\316\317\320\"\210\321\322!\211@\323>\203L \3241D @\325>\203> \326 \202@ \327 0\202H \330 )\210\202 \331 A!\210)+\332\314!\207\322\332
!)\207" [calc-dispatch-help #1=#:wconfig win key err arg calc-check-defines current-window-configuration #[nil "\301!\207" [#1# set-window-configuration] 2] describe-function get-buffer-window "*Help*" nil select-window message "Calc options: Calc, Keypad, ... %s" "press SPC, DEL to scroll, C-g to cancel" calc-read-key t (32 8 127 22 134217846) (error) (32 22) scroll-up scroll-down beep calc-unread-command calc-do-dispatch] 4 (#$ . 480) "P"])
#@51 Toggle Calc between full-screen and regular mode.
(defalias 'calc-big-or-small #[(arg) "\305\306!\305\307!\305\310!\211\203\" \203 \205! \311 !\202! \312\n!\f\203. \313\f!\314V\2020 ?\203@ \315 \210\316 \317\"\210\202M \n\203M \315 \210\320\317 \317#\210\321 \203V \322\202W \323!+\207" [kwin twin cwin calc-full-mode arg get-buffer-window "*Calculator*" "*Calc Trail*" "*Calc Keypad*" window-full-width-p window-full-height-p prefix-numeric-value 0 calc-quit calc-do-keypad nil calc message "Now using full screen for Calc" "Now using partial screen for Calc"] 5 (#$ . 3552) "P"])
#@42 Invoke the Calculator in another window.
(defalias 'calc-other-window #[(&optional interactive) "\303>\203 \304\305!\210\306>\205& \304\305!\207\307\310!\203 \311 \207\312 \313\314 \n#)\207" [major-mode win interactive (calc-mode calc-trail-mode) other-window 1 (calc-mode calc-trail-mode) get-buffer-window "*Calculator*" calc-quit selected-window calc nil] 4 (#$ . 4150) "p"])
#@48 Create another, independent Calculator buffer.
(defalias 'another-calc #[nil "\302=\203 \303\304 \"\210\305\306!q\210\307p!\210\302 \207" [major-mode calc-local-var-list calc-mode mapc #[(v) "\301\211J\"\207" [v set-default] 3] generate-new-buffer "*Calculator*" pop-to-buffer] 3 (#$ . 4540) nil])
#@60 Run the Emacs Info system on the Calculator documentation.
(defalias 'calc-info #[nil "\300\301 !\210\302\303!\207" [select-window get-largest-window info "Calc"] 2 (#$ . 4847) nil])
#@52 Go to a node in the Calculator info documentation.
(defalias 'calc-info-goto-node #[(node) "\301\302 !\210\303\304P!\207" [node select-window get-largest-window info "(Calc)"] 3 (#$ . 5036) nil])
#@55 Run the Emacs Info system on the Calculator Tutorial.
(defalias 'calc-tutorial #[nil "\300\301!\203 \302 \210\303\304!\210\305 \210\306\307!\207" [get-buffer-window "*Calculator*" calc-quit calc-info-goto-node "Interactive Tutorial" calc-other-window message "Welcome to the Calc Tutorial!"] 2 (#$ . 5239) nil])
#@54 Run the Emacs Info system on the Calculator Summary.
(defalias 'calc-info-summary #[nil "\300\301!\207" [calc-info-goto-node "Summary"] 2 (#$ . 5558) nil])
(defalias 'calc-help #[nil "\306 \203\n \202m \n\204 \203) \n\203$ \203 \307 \202m \310 \202m \311 \202m \f\2032 \312 \202m
=\203C TGT\246\202D \313\2118 \314\315\203j \316!\317\320\321\322\323\324\"\"GZ\325\"\326R\202k \327\"))\207" [msgs calc-full-help-flag calc-inverse-flag calc-hyperbolic-flag calc-option-flag this-command ("Press `h' for complete help; press `?' repeatedly for a summary" "Letter keys: Negate; Precision; Yank; Why; Xtended cmd; Quit" "Letter keys: SHIFT + Undo, reDo; Inverse, Hyperbolic, Option" "Letter keys: SHIFT + sQrt; Sin, Cos, Tan; Exp, Ln, logB" "Letter keys: SHIFT + Floor, Round; Abs, conJ, arG; Pi" "Letter keys: SHIFT + Num-eval; More-recn; eXec-kbd-macro; Keep-args" "Other keys: +, -, *, /, ^, \\ (int div), : (frac div)" "Other keys: & (1/x), | (concat), % (modulo), ! (factorial)" "Other keys: \\=' (alg-entry), = (eval), \\=` (edit); M-RET (last-args)" "Other keys: SPC/RET (enter/dup), LFD (over); < > (scroll horiz)" "Other keys: DEL (drop), M-DEL (drop-above); { } (scroll vert)" "Other keys: TAB (swap/roll-dn), M-TAB (roll-up)" "Other keys: [ , ; ] (vector), ( , ) (complex), ( ; ) (polar)" "Prefix keys: Algebra, Binary/business, Convert, Display" "Prefix keys: Functions, Graphics, Help, J (select)" "Prefix keys: Kombinatorics/statistics, Modes, Store/recall" "Prefix keys: Trail/time, Units/statistics, Vector/matrix" "Prefix keys: Z (user), SHIFT + Z (define)" "Prefix keys: prefix + ? gives further help for that prefix" " Calc by Dave Gillespie, daveg@synaptics.com") calc-inv-hyp-prefix-help calc-inverse-prefix-help calc-hyperbolic-prefix-help calc-option-prefix-help 0 message "%s" substitute-command-keys ":" make-string apply max mapcar length 32 " [?=MORE]" "" last-command calc-help-phase msg] 11 nil nil])
(defalias 'calc-do-handle-whys #[nil "\305\306\"\307 \205@ \n\310=\204 @@\311=\205@ \n\205@ \312\313!\210\314 @\n\310=\203/ A\2029 \n\2059 A@@\311=\"\210 \315\316!\207" [calc-next-why calc-why calc-auto-why this-command calc-last-why-command sort #[(x y) "@\302=\205\f @\302=?\207" [x y *] 2] nil t * require calc-ext calc-explain-why calc-clear-command-flag clear-message] 4])
(defalias 'calc-record-why #[(&rest stuff) "@\303=\203
A\202k @9\203R A\203R A@\211:?\206& @\304>)\204K A@\211:\2057 @\305=)\203C \306A@!\204K \307A@!\203R \310B\202k @;\203k \311\312@\"\203k \310@\313\314OABB\n\235\204u \nB\314\207" [stuff a calc-next-why quiet (bigpos bigneg frac float cplx polar hms date sdev intv mod) vec math-constp math-infinitep * string-match "\\`\\*" 1 nil] 5])
(defalias 'math-constp #[(a) "\211:?\206\f @\301>)\2068 @\302>\2058 A\211\2036 @\211:?\206+ @\301>)\204 \303@!\204 ?\207" [a (bigpos bigneg frac float cplx polar hms) (sdev intv mod vec) math-constp] 3])
(defalias 'calc-roll-down-stack #[(n &optional m) "\304W\203\f \305[ \"\207\304U\204 \306 V\203 \306 \204\" \307\307V\205K W\205K \n\203; \204; \310 \"\207\311\312\313 \307\"\313 Z T\"\"\"\207" [n m calc-any-selections calc-use-selections 0 calc-roll-up-stack calc-stack-size 1 calc-roll-down-with-selections calc-pop-push-list append calc-top-list] 7])
(defalias 'calc-roll-up-stack #[(n &optional m) "\304W\203\f \305[ \"\207\304U\204 \306 V\203 \306 \204\" \307\307V\205N W\205N \n\203; \204; \310 \"\207\311\312\313 Z\307\"\313 \314 \315#\"\"\"\207" [n m calc-any-selections calc-use-selections 0 calc-roll-down-stack calc-stack-size 1 calc-roll-up-with-selections calc-pop-push-list append calc-top-list - -1] 10])
(defalias 'calc-do-refresh #[nil "\203 \302\303\207\304 \210\302\207" [calc-hyperbolic-flag calc-display-dirty t nil calc-refresh] 1])
(defalias 'calc-record-list #[(vals &optional prefix) "\205 @\302=\204 \303@ \"\210\304A\211\204 \305\207" [vals prefix top-of-stack calc-record "..." nil] 4])
(defalias 'calc-last-args-stub #[(arg) "\301\302!\210\303!\207" [arg require calc-ext calc-last-args] 2 nil "p"])
(defalias 'calc-power #[(arg) "\300\301`\"\207" [calc-do #[nil "\301\302!\203 \303 \203 \304\305\306\307\211%\207\304\310\311\307\211\312&\207" [arg featurep calc-ext calc-is-inverse calc-binary-op "root" calcFunc-nroot nil "^" calcFunc-pow ^] 7]] 3 nil "P"])
(defalias 'calc-mod #[(arg) "\300\301`\"\207" [calc-do #[nil "\301\302\303\304\211\305&\207" [arg calc-binary-op "%" calcFunc-mod nil %] 7]] 3 nil "P"])
(defalias 'calc-inv #[(arg) "\300\301`\"\207" [calc-do #[nil "\301\302\303#\207" [arg calc-unary-op "inv" calcFunc-inv] 4]] 3 nil "P"])
(defalias 'calc-percent #[nil "\300\301`\"\207" [calc-do #[nil "\300\301\302\303\304\301!DC#\207" [calc-pop-push-record-list 1 "%" calcFunc-percent calc-top-n] 6]] 3 nil nil])
(defalias 'calc-over #[(n) "\203 \301\302![!\207\301\303!\207" [n calc-enter prefix-numeric-value -2] 3 nil "P"])
(defalias 'calc-pop-above #[(n) "\203 \301\302![!\207\301\303!\207" [n calc-pop prefix-numeric-value -2] 3 nil "P"])
(defalias 'calc-roll-down #[(n) "\300\301!\207" [calc-do #[nil "\302!\204 \303\304!\2023 \305V\203 \303 !\2023 \305U\203- \306\307 \310\311\307 !!\"\2023 \303\307 [\")\207" [n nn prefix-numeric-value calc-roll-down-stack 2 0 calc-pop-push-list calc-stack-size reverse calc-top-list] 5]] 2 nil "P"])
(defalias 'calc-roll-up #[(n) "\300\301!\207" [calc-do #[nil "\302!\204 \303\304!\2023 \305V\203 \303 !\2023 \305U\203- \306\307 \310\311\307 !!\"\2023 \303\307 [\")\207" [n nn prefix-numeric-value calc-roll-up-stack 3 0 calc-pop-push-list calc-stack-size reverse calc-top-list] 5]] 2 nil "P"])
#@160 Transpose previous line and current line.
With argument ARG, move previous line past ARG lines.
With argument 0, switch line point is in with line mark is in.
(defalias 'calc-transpose-lines #[(&optional arg) "\206 \306\307\211\211\211\211\211\211\211\211\211 \f
\310\311!\210\312
S!.\n\207" [arg post-bot-cell post-mid-cell prev-mid-cell mid-cell bot-cell 1 nil calc-do #[nil "\306=\205' \307U\2035 \310`!\311 \211\203! \310 !\211T\202% \312\313!\210\n W\203Z \n
)\202Z \307V\203I \310`!T\211 Z\211\202Z \307W\203Z \310`!T\211 Z\211\314\n!\210 \307U\203h \312\315!\210\316\n!\237 \307 W\203\230 A\241\210T\211\202v *\n Z\307 W\203\311 A\241\210T\211\202\247 *AA \307U\203\363 \241\210\241\210\241\210\202\"\307 W\203\f\241\210\241\210\202\"\307 V\203\"\241\210\241\210\317\n\"\207" [major-mode arg bot-line mid-line end-line temp calc-mode 0 calc-locate-cursor-element mark error "No mark set" calc-check-stack "Can't transpose beyond top" calc-top-list calc-pop-push-list old-top-list i --dotimes-limit-- mid-cell new-top-list prev-mid-cell bot-cell post-mid-cell post-bot-cell] 4] calc-cursor-stack-index new-top-list old-top-list end-line mid-line bot-line] 10 (#$ . 11289) "p"])
(defalias 'calc-num-prefix-name #[(n) "\301=\203 \302\207\303\232\203 \304\207:\203 \305\306@\"\207\250\203% \305\306\"\207\307\207" [n - "- " (4) "C-u " format "%d " ""] 3])
#@201 This is a placeholder for a command which needs to be loaded from calc-ext.
When this key is used, calc-ext (the Calculator extensions module) will be
loaded and the keystroke automatically re-typed.
(defalias 'calc-missing-key #[(n) "\303\304!\210\305\306\307!!!\203 \310\311\312 !#\210\313 \210 \211\207" [last-command-event n prefix-arg require calc-ext keymapp key-binding char-to-string message "%s%c-" calc-num-prefix-name calc-unread-command] 4 (#$ . 12812) "P"])
(defalias 'calc-shift-Y-prefix-help #[nil "\301\302!\210\303\304\305#\207" [calc-Y-help-msgs require calc-ext calc-do-prefix-help "other" 89] 4 nil nil])
(defalias 'calcDigit-letter #[nil "\301\302!\203\f \226\303 \207\304 \207" [last-command-event calc-minibuffer-contains "[-+]?\\(1[1-9]\\|[2-9][0-9]\\)#.*" calcDigit-key calcDigit-nondigit] 2 nil nil])
(defalias 'calc-temp-minibuffer-message #[(m) "d\212db\210 c\210)\303\304\216\305\306!\210\307\211+\207" [savemax m okay nil #[nil "d|\210 \206\n \302 \207" [savemax okay abort-recursive-edit] 2] sit-for 2 t] 2])
(put 'math-with-extra-prec 'lisp-indent-hook 1)
(defalias 'math-concat #[(v1 v2) ";\203 P\207\302\303!\210\304!\204 \305!\203Z \304 !\204% \305 !\203Z \306\307!\203< \310!\2048 \310 !\204< \202? \311D\307 !\203V \310 !\204Q \310!\204V A\202X C\"\207\312 E\207" [v1 v2 require calc-ext math-objvecp math-known-scalarp append math-vectorp math-matrixp vec |] 4])
(defalias 'math-zerop #[(a) ":\203X @\301>\203 A\211@\302=\204\f ?\207@\303>\203& \304A@!\207@\305=\203; \304A@!\205W \304\3068!\207@\307=\205[ \304A@!\205W \304\3068!\205W \304\3108!\207\302=\207" [a (bigpos bigneg) 0 (frac float polar mod) math-zerop cplx 2 hms 3] 3])
(defalias 'math-negp #[(a) ":\203\217 @\301=\203 \302\207@\303=\203 A\207@\304>\2034 A@\211:\203/ @\303=\2022 \305W)\207@\306=\203] \307A@!\203W \307\3108!\203Q \311\3128!\207\311\3108!\207\311A@!\207@\313=\203j \311A@!\207@\314=\203\207 \311\3128!\206\216 \307\3128!\205\222 A@\315>\207\316\232\205\222 \317\207\305W\207" [a bigpos nil bigneg (float frac) 0 hms math-zerop 2 math-negp 3 date intv (0 2) (neg (var inf var-inf)) t] 4])
(defalias 'math-looks-negp #[(a) "\211:\203: @\301=\206= @\302=?\205= @\303>\2034 A@\211:\203- @\301=\2020 \304W)\202= \305!\202= \304W)\206k \242\306=\206k \242\307>\203_ \310A@!\206k \310\3118!\206k \242\312=\205k \310A@!\207" [a bigneg bigpos (frac float) 0 math-negp neg (* /) math-looks-negp 2 -] 4])
(defalias 'math-posp #[(a) ":\203\235 @\301=\203 A\207@\302=\203 \303\207@\304>\2034 A@\211:\203/ @\301=\2022 \305V)\207@\306=\203] \307A@!\203W \307\3108!\203Q \311\3128!\207\311\3108!\207\311A@!\207@\313=\203j \311A@!\207@\314=\203x \307A@!?\207@\315=\203\225 \311\3108!\206\234 \307\3108!\205\240 A@\316>\207\317\232\205\240 \320\207\305V\207" [a bigpos bigneg nil (float frac) 0 hms math-zerop 2 math-posp 3 date mod intv (0 1) (var inf var-inf) t] 4])
(byte-code "\300\301\302\"\210\300\303\304\"\207" [defalias math-fixnump integerp math-fixnatnump natnump] 3)
(defalias 'math-evenp #[(a) ":\203 @\301>\205 A@\302\246\303U\207\302\246\303U\207" [a (bigpos bigneg) 2 0] 2])
(defalias 'math-div2 #[(a) ":\203 A\203 \301@\302A!B!\207\303\207\304\245\207" [a math-normalize math-div2-bignum 0 2] 4])
(defalias 'math-div2-bignum #[(a) "A\203 @\302\245A@\302\246 \302\245_\\\303A!B\207@\302\245C\207" [a math-bignum-digit-size 2 math-div2-bignum] 4])
(defalias 'math-reject-arg #[(&optional a p option) "\203
\303 \n#\210\202 \203 \303 \n\"\210\304\305\n\205( \203& \nD\202( \nC\"\207" [option p a calc-record-why signal wrong-type-argument] 4])
(defalias 'math-trunc #[(a &optional math-trunc-prec) "\203
\302\303!\210\304 \"\207 \211:?\206 @\305>)\203 \207 \211\211:\203[ @\306=\206^ @\307=?\205^ @\310>\203U A@\211:\203N @\306=\202Q \311W)\202^ \312 !\202^ \311W)\206\202 :\205\202 @\313=\206\202 @\314>\205\202 \315 A@!\206\202 \315\316 8!)\203\216 \317\320\317 !!!\207 @\321=\203\236 \322 A@\316 8\"\207\302\303!\210\323 !\207" [math-trunc-prec a require calc-ext math-trunc-special (bigpos bigneg) bigneg bigpos (frac float) 0 math-negp neg (* /) math-looks-negp 2 math-neg math-trunc float math-scale-int math-trunc-fancy] 5])
(defalias 'calcFunc-trunc 'math-trunc)
(defalias 'math-floor #[(a &optional math-floor-prec) "\203
\302\303!\210\304 \"\207 \211:?\206 @\305>)\203 \207 \211:\2052 @\306=\2052 \307 8\310Y)\203: \311 !\207 \211:?\206F @\312>)\203\226 \211:\203\204 @\313=\206\207 @\314=?\205\207 @\315>\203~ A@\211:\203w @\313=\202z \310W)\202\207 \316 !\202\207 \310W)\203\222 \317\311 !\320\"\207\311 !\207\302\303!\210\321 !\207" [math-floor-prec a require calc-ext math-floor-special (bigpos bigneg) float 2 0 math-trunc (bigpos bigneg frac float) bigneg bigpos (frac float) math-negp math-add -1 math-floor-fancy] 4])
(defalias 'calcFunc-floor 'math-floor)
(defalias 'math-imod #[(a b) ":\204 :\204 \302U\203 \303\304\"\207 \246\207\305 \"A\207" [a b 0 math-reject-arg "*Division by zero" math-idivmod] 3])
(defalias 'calcFunc-inv #[(m) "\211:\205 @\303=)\2030 \304\305!\210\306!\203+ \307\n\310\\\311!)!\206/ \312\313\"\207\312\314\"\207\304\315!\203A \316!\203A \317\320\"\207\321\322\"\207" [m a calc-internal-prec vec require calc-ext math-square-matrixp math-normalize 2 math-matrix-inv-raw math-reject-arg "*Singular matrix" square-matrixp calc-arith math-known-matrixp math-pow -1 math-div 1] 4])
(defalias 'math-do-working #[(msg arg) "\206+ \306\307!\210 \203 \n\203 \310\311 \n $\202 \310\312 #\313\314 \f \315!)#\207" [executing-kbd-macro math-working-step math-working-step-2 msg calc-full-float-format calc-float-format calc-set-command-flag clear-message format "[%d/%d] %s" "[%d] %s" message "Working... %s = %s" math-format-number arg] 5])
(defalias 'math-mod #[(a b) "\211:\203$ @\302>?\205' @\303=\203 A@\304=\202' \305!\202' \304=)\2034 \242\306=\2044 \207 \211:\203X @\302>?\205[ @\303=\203R A@\304=\202[ \305!\202[ \304=)\203d \307\310\"\207\211:\203r @\311=\202u \304Y)\203\223 \211:\203\207 @\311=\202\212 \304Y)\203\223 \312 \"\207\211:?\206\237 @\313>)\203\300 \211:?\206\257 @\313>)\203\300 \314\315\316\317 \"! \"\"\207\320\321!\210\322 \"\207" [a b (bigpos bigneg) float 0 math-zerop mod math-reject-arg "*Division by zero" bigpos math-imod (bigpos bigneg frac float hms) math-sub math-mul math-floor math-div require calc-ext math-mod-fancy] 8])
(defalias 'math-pow #[(a b) "\303\232\203 \207 \211:\203, @\304>?\205/ @\305=\203& A@\306=\202/ \307 !\202/ \306=)\203\231 \211:?\206? @\310>)\203\220 \211:\203} @\311=\206\200 @\312=?\205\200 @\313>\203w A@\211:\203p @\311=\202s \306V)\202\200 \314 !\202\200 \306V)\203\220 \315!\203\216 \316 !\207 \207\317\320!\210\321 \"\207 \322=\204\245 \322=\203\247 \207 \323\232\204\263 \324\232\203\265 \207\211:\203\331 @\304>?\205\334 @\305=\203\323 A@\306=\202\334 \307 !\202\334 \306=)\203 \211:?\206\354 @\310>)\203 \315 !\204\374 \315!\203\376 \325\207\322\207\317\320!\210\326 \"\207\211:?\206 @\327>)\203T \211:?\206% @\330>)\2048 \211:\2054 @\331=)\203T \332\232\203H\250\203H\333\322\"\207\334\n\335\\\336 \")!\207\317\320!\210\337 \"\207" [b a calc-internal-prec (var nan var-nan) (bigpos bigneg) float 0 math-zerop (bigpos bigneg frac float cplx polar hms) bigpos bigneg (frac float) math-posp math-floatp math-float require calc-ext math-pow-of-zero 1 (float 1 0) (float 1 0) (float 1 0) math-pow-zero (bigpos bigneg) (bigpos bigneg frac float cplx polar) vec (float 1 1) math-make-float math-normalize 2 math-ipow math-pow-fancy] 5])
(defalias 'math-ipow #[(a n) "\211:\203 @\302=\202 \303W)\203; \304\305\306 \"\211:\2036 @\307=\203/ \302 AB\2028 \307 AB\2028 [)\"\207:\204` \211:?\206L @\310>)\203[ \311V\203[ \312 \"\207\313 \"\207\314!\203p \304\315 \211\"\316!\"\207\315 \304\315 \211\"\316\317\320\"!\"\"\207" [n a bigneg 0 math-ipow math-div 1 bigpos (bigpos bigneg frac) 20 math-iipow-show math-iipow math-evenp math-mul math-div2 math-add -1] 9])
(defalias 'math-iipow #[(a n) "\302U\203 \303\207\303U\203 \207\304\246\302U\203\" \305\306 \211\"\304\245\"\207\306 \305\306 \211\"\304\245\"\"\207" [n a 0 1 2 math-iipow math-mul] 6])
(defalias 'math-iipow-show #[(a n) "\304=\203 \305\306 \"\210\n\307U\203 \310\202? \n\310U\203 \202? \n\311\246\307U\2033 \312\313 \211\"\n\311\245\"\202? \313 \312\313 \211\"\n\311\245\"\"\304=\203K \305\306 \"\210 )\207" [calc-display-working-message a n val lots math-do-working "pow" 0 1 2 math-iipow-show math-mul] 6])
(defalias 'math-read-radix-digit #[(dig) "\301V\203 \302W?\205 \303Z\207\304Y\205 \304Z\207" [dig 57 65 55 48] 2])
#@104 Report a bug in Calc, the GNU Emacs calculator.
Prompts for bug subject. Leaves you in a mail buffer.
(defalias 'report-calc-bug #[nil "\302\303 \304\305\211\211\306&)\207" [reporter-prompt-for-summary-p calc-bug-address t reporter-submit-bug-report "Calc" nil "Please describe exactly what actions triggered the bug and the\nprecise symptoms of the bug. If possible, include a backtrace by\ndoing `\\[toggle-debug-on-error]', then reproducing the bug.\n"] 7 (#$ . 21662) nil])
(byte-code "\300\301\302\"\210\303\304!\207" [defalias calc-report-bug report-calc-bug provide calc-misc] 3)
Kontol Shell Bypass