WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/calc
Viewing File: /usr/share/emacs/24.3/lisp/calc/calc-misc.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:55:50 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/calc/calc-misc.el
;;; in Emacs version 24.3.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)
#@2358 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) "\305 \210\203A\306 \307\216\310\300!\210\311\312!\211\203<\313\314\n!\210\315\316\317\"\210\320\321!\211@\322>\2036\323\324\325\217\210\202\326A!\210)+\327\313!\207\321\327\f!)\207" [calc-dispatch-help #1=#:wconfig win key arg calc-check-defines current-window-configuration ((set-window-configuration #1#)) 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) err (byte-code "@\301>\203
\302 \210\202\303 \210\302\207" [key (32 22) scroll-up scroll-down] 2) ((error (beep))) calc-unread-command calc-do-dispatch] 4 (#$ . 627) "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 (#$ . 3716) "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 (#$ . 4314) "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 (#$ . 4704) 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 (#$ . 5011) nil])
#@52 Go to a node in the Calculator info documentation.
(defalias 'calc-info-goto-node #[(node) "\301\302 !\210\303\304P!\207" [node select-window get-largest-window info "(Calc)"] 3 (#$ . 5200) 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 (#$ . 5403) 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 (#$ . 5722) nil])
(defalias 'calc-help #[nil "\306	\203\n\202k\n\204\203)\n\203$\203\307 \202k\310 \202k\311 \202k\f\2032\312 \202k
=\203CTGT\246\202D\313\2118\314\315\203h\316\317\320\321\322\323\"\"GZ\324\"\325R\202i\326\"))\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" ":" 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\306A@!\204K\307A@!\203R\310B\202k@;\203k\311\312@\"\203k\310@\313\314OABB\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\304A\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!\211T\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\210T\211\202v*\nZ\307W\203\311A\241\210T\211\202\247*AA	\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 (#$ . 11418) "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 (#$ . 12941) "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 ((byte-code "d|\210	\204\302 \210\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?\311D\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&\304A@!\207@\305=\203;\304A@!\205W\304\3068!\207@\307=\205[\304A@!\205W\304\3068!\205W\304\3108!\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]\307A@!\203W\307\3108!\203Q\311\3128!\207\311\3108!\207\311A@!\207@\313=\203j\311A@!\207@\314=\203\207\311\3128!\206\216\307\3128!\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_\310A@!\206k\310\3118!\206k\242\312=\205k\310A@!\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]\307A@!\203W\307\3108!\203Q\311\3128!\207\311\3108!\207\311A@!\207@\313=\203j\311A@!\207@\314=\203x\307A@!?\207@\315=\203\225\311\3108!\206\234\307\3108!\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@\302A!B!\207\303\207\304\245\207" [a math-normalize math-div2-bignum 0 2] 4])
(defalias 'math-div2-bignum #[(a) "A\203@\302\245A@\302\246	\302\245_\\\303A!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 'M-x toggle-debug-on-error', then reproducing the bug.\n"] 7 (#$ . 21805) nil])
(byte-code "\300\301\302\"\210\303\304!\207" [defalias calc-report-bug report-calc-bug provide calc-misc] 3)
F1l3 Manager
