1 ;;; calc-misc.el --- miscellaneous functions for Calc
3 ;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002, 2003, 2004
4 ;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
6 ;; Author: David Gillespie <daveg@synaptics.com>
7 ;; Maintainer: Jay Belanger <jay.p.belanger@gmail.com>
9 ;; This file is part of GNU Emacs.
11 ;; GNU Emacs is free software: you can redistribute it and/or modify
12 ;; it under the terms of the GNU General Public License as published by
13 ;; the Free Software Foundation, either version 3 of the License, or
14 ;; (at your option) any later version.
16 ;; GNU Emacs is distributed in the hope that it will be useful,
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 ;; GNU General Public License for more details.
21 ;; You should have received a copy of the GNU General Public License
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
28 ;; This file is autoloaded from calc.el.
33 ;; Declare functions which are defined elsewhere.
34 (declare-function calc-do-keypad
"calc-keypd" (&optional full-display interactive
))
35 (declare-function calc-inv-hyp-prefix-help
"calc-help" ())
36 (declare-function calc-inverse-prefix-help
"calc-help" ())
37 (declare-function calc-hyperbolic-prefix-help
"calc-help" ())
38 (declare-function calc-explain-why
"calc-stuff" (why &optional more
))
39 (declare-function calc-clear-command-flag
"calc-ext" (f))
40 (declare-function calc-roll-down-with-selections
"calc-sel" (n m
))
41 (declare-function calc-roll-up-with-selections
"calc-sel" (n m
))
42 (declare-function calc-last-args
"calc-undo" (n))
43 (declare-function calc-is-inverse
"calc-ext" ())
44 (declare-function calc-do-prefix-help
"calc-ext" (msgs group key
))
45 (declare-function math-objvecp
"calc-ext" (a))
46 (declare-function math-known-scalarp
"calc-arith" (a &optional assume-scalar
))
47 (declare-function math-vectorp
"calc-ext" (a))
48 (declare-function math-matrixp
"calc-ext" (a))
49 (declare-function math-trunc-special
"calc-arith" (a prec
))
50 (declare-function math-trunc-fancy
"calc-arith" (a))
51 (declare-function math-floor-special
"calc-arith" (a prec
))
52 (declare-function math-floor-fancy
"calc-arith" (a))
53 (declare-function math-square-matrixp
"calc-ext" (a))
54 (declare-function math-matrix-inv-raw
"calc-mtx" (m))
55 (declare-function math-known-matrixp
"calc-arith" (a))
56 (declare-function math-mod-fancy
"calc-arith" (a b
))
57 (declare-function math-pow-of-zero
"calc-arith" (a b
))
58 (declare-function math-pow-zero
"calc-arith" (a b
))
59 (declare-function math-pow-fancy
"calc-arith" (a b
))
63 (defun calc-dispatch-help (arg)
64 "C-x* is a prefix key sequence; follow it with one of these letters:
66 For turning Calc on and off:
67 C calc. Start the Calculator in a window at the bottom of the screen.
68 O calc-other-window. Start the Calculator but don't select its window.
69 B calc-big-or-small. Control whether to use the full Emacs screen for Calc.
70 Q quick-calc. Use the Calculator in the minibuffer.
71 K calc-keypad. Start the Calculator in keypad mode (X window system only).
72 E calc-embedded. Use the Calculator on a formula in this editing buffer.
73 J calc-embedded-select. Like E, but select appropriate half of => or :=.
74 W calc-embedded-word. Like E, but activate a single word, i.e., a number.
75 Z calc-user-invocation. Invoke Calc in the way you defined with `Z I' cmd.
76 X calc-quit. Turn Calc off.
78 For moving data into and out of Calc:
79 G calc-grab-region. Grab the region defined by mark and point into Calc.
80 R calc-grab-rectangle. Grab the rectangle defined by mark, point into Calc.
81 : calc-grab-sum-down. Grab a rectangle and sum the columns.
82 _ calc-grab-sum-across. Grab a rectangle and sum the rows.
83 Y calc-copy-to-buffer. Copy a value from the stack into the editing buffer.
85 For use with Embedded mode:
86 A calc-embedded-activate. Find and activate all :='s and =>'s in buffer.
87 D calc-embedded-duplicate. Make a copy of this formula and select it.
88 F calc-embedded-new-formula. Insert a new formula at current point.
89 N calc-embedded-next. Advance cursor to next known formula in buffer.
90 P calc-embedded-previous. Advance cursor to previous known formula.
91 U calc-embedded-update-formula. Re-evaluate formula at point.
92 ` calc-embedded-edit. Use calc-edit to edit formula at point.
95 I calc-info. Read the Calculator manual in the Emacs Info system.
96 T calc-tutorial. Run the Calculator Tutorial using the Emacs Info system.
97 S calc-summary. Read the Summary from the Calculator manual in Info.
100 L calc-load-everything. Load all parts of the Calculator into memory.
101 M read-kbd-macro. Read a region of keystroke names as a keyboard macro.
102 0 (zero) calc-reset. Reset Calc stack and modes to default state.
104 Press `*' twice (`C-x * *') to turn Calc on or off using the same
105 Calc user interface as before (either C-x * C or C-x * K; initially C-x * C).
109 (if calc-dispatch-help
111 (save-window-excursion
112 (describe-function 'calc-dispatch-help
)
113 (let ((win (get-buffer-window "*Help*")))
118 (message "Calc options: Calc, Keypad, ... %s"
119 "press SPC, DEL to scroll, C-g to cancel")
120 (memq (car (setq key
(calc-read-key t
)))
121 '(? ?\C-h ?\C-? ?\C-v ?\M-v
)))
123 (if (memq (car key
) '(? ?\C-v
))
127 (calc-unread-command (cdr key
))))))
128 (calc-do-dispatch nil
))
129 (let ((calc-dispatch-help t
))
130 (calc-do-dispatch arg
))))
134 (defun calc-big-or-small (arg)
135 "Toggle Calc between full-screen and regular mode."
137 (let ((cwin (get-buffer-window "*Calculator*"))
138 (twin (get-buffer-window "*Calc Trail*"))
139 (kwin (get-buffer-window "*Calc Keypad*")))
143 (and twin
(eq (window-width twin
) (frame-width)))
144 (eq (window-height cwin
) (1- (frame-height))))))
145 (setq calc-full-mode
(if arg
146 (> (prefix-numeric-value arg
) 0)
147 (not calc-full-mode
)))
151 (calc-do-keypad calc-full-mode nil
))
155 (calc nil calc-full-mode nil
))))
156 (message (if calc-full-mode
157 "Now using full screen for Calc"
158 "Now using partial screen for Calc"))))
161 (defun calc-other-window (&optional interactive
)
162 "Invoke the Calculator in another window."
164 (if (memq major-mode
'(calc-mode calc-trail-mode
))
167 (if (memq major-mode
'(calc-mode calc-trail-mode
))
169 (if (get-buffer-window "*Calculator*")
171 (let ((win (selected-window)))
172 (calc nil win interactive
)))))
175 (defun another-calc ()
176 "Create another, independent Calculator buffer."
178 (if (eq major-mode
'calc-mode
)
181 (set-default v
(symbol-value v
)))) calc-local-var-list
))
182 (set-buffer (generate-new-buffer "*Calculator*"))
183 (pop-to-buffer (current-buffer))
188 "Run the Emacs Info system on the Calculator documentation."
190 (select-window (get-largest-window))
194 (defun calc-info-goto-node (node)
195 "Go to a node in the Calculator info documentation."
197 (select-window (get-largest-window))
198 (info (concat "(Calc)" node
)))
201 (defun calc-tutorial ()
202 "Run the Emacs Info system on the Calculator Tutorial."
204 (if (get-buffer-window "*Calculator*")
206 (calc-info-goto-node "Interactive Tutorial")
208 (message "Welcome to the Calc Tutorial!"))
211 (defun calc-info-summary ()
212 "Run the Emacs Info system on the Calculator Summary."
214 (calc-info-goto-node "Summary"))
220 '("Press `h' for complete help; press `?' repeatedly for a summary"
221 "Letter keys: Negate; Precision; Yank; Why; Xtended cmd; Quit"
222 "Letter keys: SHIFT + Undo, reDo; Keep-args; Inverse, Hyperbolic"
223 "Letter keys: SHIFT + sQrt; Sin, Cos, Tan; Exp, Ln, logB"
224 "Letter keys: SHIFT + Floor, Round; Abs, conJ, arG; Pi"
225 "Letter keys: SHIFT + Num-eval; More-recn; eXec-kbd-macro"
226 "Other keys: +, -, *, /, ^, \\ (int div), : (frac div)"
227 "Other keys: & (1/x), | (concat), % (modulo), ! (factorial)"
228 "Other keys: ' (alg-entry), = (eval), ` (edit); M-RET (last-args)"
229 "Other keys: SPC/RET (enter/dup), LFD (over); < > (scroll horiz)"
230 "Other keys: DEL (drop), M-DEL (drop-above); { } (scroll vert)"
231 "Other keys: TAB (swap/roll-dn), M-TAB (roll-up)"
232 "Other keys: [ , ; ] (vector), ( , ) (complex), ( ; ) (polar)"
233 "Prefix keys: Algebra, Binary/business, Convert, Display"
234 "Prefix keys: Functions, Graphics, Help, J (select)"
235 "Prefix keys: Kombinatorics/statistics, Modes, Store/recall"
236 "Prefix keys: Trail/time, Units/statistics, Vector/matrix"
237 "Prefix keys: Z (user), SHIFT + Z (define)"
238 "Prefix keys: prefix + ? gives further help for that prefix"
239 " Calc by Dave Gillespie, daveg@synaptics.com")))
240 (if calc-full-help-flag
242 (if (or calc-inverse-flag calc-hyperbolic-flag
)
243 (if calc-inverse-flag
244 (if calc-hyperbolic-flag
245 (calc-inv-hyp-prefix-help)
246 (calc-inverse-prefix-help))
247 (calc-hyperbolic-prefix-help))
248 (setq calc-help-phase
249 (if (eq this-command last-command
)
250 (%
(1+ calc-help-phase
) (1+ (length msgs
)))
252 (let ((msg (nth calc-help-phase msgs
)))
253 (message "%s" (if msg
255 (make-string (- (apply 'max
265 ;;;; Stack and buffer management.
267 ;; The variable calc-last-why-command is set in calc-do-handly-whys
268 ;; and used in calc-why (in calc-stuff.el).
269 (defvar calc-last-why-command
)
272 (defun calc-do-handle-whys ()
273 (setq calc-why
(sort calc-next-why
276 (and (eq (car x
) '*) (not (eq (car y
) '*))))))
278 (if (and calc-why
(or (eq calc-auto-why t
)
279 (and (eq (car (car calc-why
)) '*)
283 (calc-explain-why (car calc-why
)
284 (if (eq calc-auto-why t
)
287 (eq (car (nth 1 calc-why
)) '*))))
288 (setq calc-last-why-command this-command
)
289 (calc-clear-command-flag 'clear-message
))))
292 (defun calc-record-why (&rest stuff
)
293 (if (eq (car stuff
) 'quiet
)
294 (setq stuff
(cdr stuff
))
295 (if (and (symbolp (car stuff
))
297 (or (Math-objectp (nth 1 stuff
))
298 (and (Math-vectorp (nth 1 stuff
))
299 (math-constp (nth 1 stuff
)))
300 (math-infinitep (nth 1 stuff
))))
301 (setq stuff
(cons '* stuff
))
302 (if (and (stringp (car stuff
))
303 (string-match "\\`\\*" (car stuff
)))
304 (setq stuff
(cons '* (cons (substring (car stuff
) 1)
306 (setq calc-next-why
(cons stuff calc-next-why
))
309 ;; True if A is a constant or vector of constants. [P x] [Public]
311 (defun math-constp (a)
313 (and (memq (car a
) '(sdev intv mod vec
))
315 (while (and (setq a
(cdr a
))
316 (or (Math-scalarp (car a
)) ; optimization
317 (math-constp (car a
)))))
322 (defun calc-roll-down-stack (n &optional m
)
324 (calc-roll-up-stack (- n
) m
)
325 (if (or (= n
0) (> n
(calc-stack-size))) (setq n
(calc-stack-size)))
329 (if (and calc-any-selections
330 (not calc-use-selections
))
331 (calc-roll-down-with-selections n m
)
332 (calc-pop-push-list n
333 (append (calc-top-list m
1)
334 (calc-top-list (- n m
) (1+ m
))))))))
337 (defun calc-roll-up-stack (n &optional m
)
339 (calc-roll-down-stack (- n
) m
)
340 (if (or (= n
0) (> n
(calc-stack-size))) (setq n
(calc-stack-size)))
344 (if (and calc-any-selections
345 (not calc-use-selections
))
346 (calc-roll-up-with-selections n m
)
347 (calc-pop-push-list n
348 (append (calc-top-list (- n m
) 1)
349 (calc-top-list m
(- n m -
1))))))))
353 (defun calc-do-refresh ()
354 (if calc-hyperbolic-flag
356 (setq calc-display-dirty t
)
363 (defun calc-record-list (vals &optional prefix
)
365 (or (eq (car vals
) 'top-of-stack
)
367 (calc-record (car vals
) prefix
)
368 (setq prefix
"...")))
369 (setq vals
(cdr vals
))))
373 (defun calc-last-args-stub (arg)
376 (calc-last-args arg
))
380 (defun calc-power (arg)
383 (if (and (featurep 'calc-ext
)
385 (calc-binary-op "root" 'calcFunc-nroot arg nil nil
)
386 (calc-binary-op "^" 'calcFunc-pow arg nil nil
'^
))))
389 (defun calc-mod (arg)
392 (calc-binary-op "%" 'calcFunc-mod arg nil nil
'%
)))
395 (defun calc-inv (arg)
398 (calc-unary-op "inv" 'calcFunc-inv arg
)))
401 (defun calc-percent ()
404 (calc-pop-push-record-list
405 1 "%" (list (list 'calcFunc-percent
(calc-top-n 1))))))
412 (calc-enter (- (prefix-numeric-value n
)))
417 (defun calc-pop-above (n)
420 (calc-pop (- (prefix-numeric-value n
)))
424 (defun calc-roll-down (n)
427 (let ((nn (prefix-numeric-value n
)))
429 (calc-roll-down-stack 2))
431 (calc-roll-down-stack nn
))
433 (calc-pop-push-list (calc-stack-size)
435 (calc-top-list (calc-stack-size)))))
437 (calc-roll-down-stack (calc-stack-size) (- nn
)))))))
440 (defun calc-roll-up (n)
443 (let ((nn (prefix-numeric-value n
)))
445 (calc-roll-up-stack 3))
447 (calc-roll-up-stack nn
))
449 (calc-pop-push-list (calc-stack-size)
451 (calc-top-list (calc-stack-size)))))
453 (calc-roll-up-stack (calc-stack-size) (- nn
)))))))
461 (defun calc-num-prefix-name (n)
462 (cond ((eq n
'-
) "- ")
463 ((equal n
'(4)) "C-u ")
464 ((consp n
) (format "%d " (car n
)))
465 ((integerp n
) (format "%d " n
))
469 (defun calc-missing-key (n)
470 "This is a placeholder for a command which needs to be loaded from calc-ext.
471 When this key is used, calc-ext (the Calculator extensions module) will be
472 loaded and the keystroke automatically re-typed."
475 (if (keymapp (key-binding (char-to-string last-command-char
)))
476 (message "%s%c-" (calc-num-prefix-name n
) last-command-char
))
477 (calc-unread-command)
481 (defun calc-shift-Y-prefix-help ()
484 (calc-do-prefix-help calc-Y-help-msgs
"other" ?Y
))
490 (defun calcDigit-letter ()
492 (if (calc-minibuffer-contains "[-+]?\\(1[1-9]\\|[2-9][0-9]\\)#.*")
494 (setq last-command-char
(upcase last-command-char
))
496 (calcDigit-nondigit)))
499 ;; A Lisp version of temp_minibuffer_message from minibuf.c.
501 (defun calc-temp-minibuffer-message (m)
502 (let ((savemax (point-max)))
504 (goto-char (point-max))
510 (identity 1) ; this forces a call to QUIT; in bytecode.c.
513 (delete-region savemax
(point-max))
514 (or okay
(abort-recursive-edit)))))))
517 (put 'math-with-extra-prec
'lisp-indent-hook
1)
520 ;; Concatenate two vectors, or a vector and an object. [V O O] [Public]
522 (defun math-concat (v1 v2
)
526 (if (and (or (math-objvecp v1
) (math-known-scalarp v1
))
527 (or (math-objvecp v2
) (math-known-scalarp v2
)))
528 (append (if (and (math-vectorp v1
)
529 (or (math-matrixp v1
)
530 (not (math-matrixp v2
))))
533 (if (and (math-vectorp v2
)
534 (or (math-matrixp v2
)
535 (not (math-matrixp v1
))))
541 ;; True if A is zero. Works for un-normalized values. [P n] [Public]
543 (defun math-zerop (a)
545 (cond ((memq (car a
) '(bigpos bigneg
))
546 (while (eq (car (setq a
(cdr a
))) 0))
548 ((memq (car a
) '(frac float polar mod
))
549 (math-zerop (nth 1 a
)))
551 (and (math-zerop (nth 1 a
)) (math-zerop (nth 2 a
))))
553 (and (math-zerop (nth 1 a
))
554 (math-zerop (nth 2 a
))
555 (math-zerop (nth 3 a
)))))
559 ;; True if A is real and negative. [P n] [Public]
564 (cond ((eq (car a
) 'bigpos
) nil
)
565 ((eq (car a
) 'bigneg
) (cdr a
))
566 ((memq (car a
) '(float frac
))
567 (Math-integer-negp (nth 1 a
)))
569 (if (math-zerop (nth 1 a
))
570 (if (math-zerop (nth 2 a
))
571 (math-negp (nth 3 a
))
572 (math-negp (nth 2 a
)))
573 (math-negp (nth 1 a
))))
575 (math-negp (nth 1 a
)))
577 (or (math-negp (nth 3 a
))
578 (and (math-zerop (nth 3 a
))
579 (memq (nth 1 a
) '(0 2)))))
580 ((equal a
'(neg (var inf var-inf
))) t
))
583 ;; True if A is a negative number or an expression the starts with '-'.
585 (defun math-looks-negp (a) ; [P x] [Public]
587 (eq (car-safe a
) 'neg
)
588 (and (memq (car-safe a
) '(* /))
589 (or (math-looks-negp (nth 1 a
))
590 (math-looks-negp (nth 2 a
))))
591 (and (eq (car-safe a
) '-
)
592 (math-looks-negp (nth 1 a
)))))
595 ;; True if A is real and positive. [P n] [Public]
599 (cond ((eq (car a
) 'bigpos
) (cdr a
))
600 ((eq (car a
) 'bigneg
) nil
)
601 ((memq (car a
) '(float frac
))
602 (Math-integer-posp (nth 1 a
)))
604 (if (math-zerop (nth 1 a
))
605 (if (math-zerop (nth 2 a
))
606 (math-posp (nth 3 a
))
607 (math-posp (nth 2 a
)))
608 (math-posp (nth 1 a
))))
610 (math-posp (nth 1 a
)))
612 (not (math-zerop (nth 1 a
))))
614 (or (math-posp (nth 2 a
))
615 (and (math-zerop (nth 2 a
))
616 (memq (nth 1 a
) '(0 1)))))
617 ((equal a
'(var inf var-inf
)) t
))
621 (defalias 'math-fixnump
'integerp
)
623 (defalias 'math-fixnatnump
'natnump
)
626 ;; True if A is an even integer. [P R R] [Public]
628 (defun math-evenp (a)
630 (and (memq (car a
) '(bigpos bigneg
))
631 (= (%
(nth 1 a
) 2) 0))
634 ;; Compute A / 2, for small or big integer A. [I i]
635 ;; If A is negative, type of truncation is undefined.
640 (math-normalize (cons (car a
) (math-div2-bignum (cdr a
))))
645 (defun math-div2-bignum (a) ; [l l]
647 (cons (+ (/ (car a
) 2) (* (%
(nth 1 a
) 2) (/ math-bignum-digit-size
2)))
648 (math-div2-bignum (cdr a
)))
649 (list (/ (car a
) 2))))
652 ;; Reject an argument to a calculator function. [Public]
654 (defun math-reject-arg (&optional a p option
)
656 (calc-record-why option p a
)
658 (calc-record-why p a
)))
659 (signal 'wrong-type-argument
(and a
(if p
(list p a
) (list a
)))))
662 ;; Coerce A to be an integer (by truncation toward zero). [I N] [Public]
664 ;; The variable math-trunc-prec is local to math-trunc, but used by
665 ;; math-trunc-fancy in calc-arith.el, which is called by math-trunc.
668 (defun math-trunc (a &optional math-trunc-prec
)
669 (cond (math-trunc-prec
671 (math-trunc-special a math-trunc-prec
))
672 ((Math-integerp a
) a
)
674 (math-neg (math-trunc (math-neg a
))))
676 (math-scale-int (nth 1 a
) (nth 2 a
)))
677 (t (require 'calc-ext
)
678 (math-trunc-fancy a
))))
680 (defalias 'calcFunc-trunc
'math-trunc
)
682 ;; Coerce A to be an integer (by truncation toward minus infinity). [I N]
684 ;; The variable math-floor-prec is local to math-floor, but used by
685 ;; math-floor-fancy in calc-arith.el, which is called by math-floor.
688 (defun math-floor (a &optional math-floor-prec
) ; [Public]
689 (cond (math-floor-prec
691 (math-floor-special a math-floor-prec
))
692 ((Math-integerp a
) a
)
693 ((Math-messy-integerp a
) (math-trunc a
))
696 (math-add (math-trunc a
) -
1)
698 (t (require 'calc-ext
)
699 (math-floor-fancy a
))))
701 (defalias 'calcFunc-floor
'math-floor
)
705 (defun math-imod (a b
) ; [I I I] [Public]
706 (if (and (not (consp a
)) (not (consp b
)))
708 (math-reject-arg a
"*Division by zero")
710 (cdr (math-idivmod a b
))))
714 (defun calcFunc-inv (m)
718 (if (math-square-matrixp m
)
719 (or (math-with-extra-prec 2 (math-matrix-inv-raw m
))
720 (math-reject-arg m
"*Singular matrix"))
721 (math-reject-arg m
'square-matrixp
)))
723 (require 'calc-arith
)
724 (math-known-matrixp m
))
729 (defun math-do-working (msg arg
)
730 (or executing-kbd-macro
732 (calc-set-command-flag 'clear-message
)
733 (if math-working-step
734 (if math-working-step-2
735 (setq msg
(format "[%d/%d] %s"
736 math-working-step math-working-step-2 msg
))
737 (setq msg
(format "[%d] %s" math-working-step msg
))))
738 (message "Working... %s = %s" msg
739 (math-showing-full-precision (math-format-number arg
))))))
742 ;; Compute A modulo B, defined in terms of truncation toward minus infinity.
744 (defun math-mod (a b
) ; [R R R] [Public]
745 (cond ((and (Math-zerop a
) (not (eq (car-safe a
) 'mod
))) a
)
747 (math-reject-arg a
"*Division by zero"))
748 ((and (Math-natnump a
) (Math-natnump b
))
750 ((and (Math-anglep a
) (Math-anglep b
))
751 (math-sub a
(math-mul (math-floor (math-div a b
)) b
)))
752 (t (require 'calc-ext
)
753 (math-mod-fancy a b
))))
757 ;;; General exponentiation.
760 (defun math-pow (a b
) ; [O O N] [Public]
761 (cond ((equal b
'(var nan var-nan
))
764 (if (and (Math-scalarp b
) (Math-posp b
))
765 (if (math-floatp b
) (math-float a
) a
)
767 (math-pow-of-zero a b
)))
768 ((or (eq a
1) (eq b
1)) a
)
769 ((or (equal a
'(float 1 0)) (equal b
'(float 1 0))) a
)
772 (if (or (math-floatp a
) (math-floatp b
))
775 (math-pow-zero a b
)))
776 ((and (Math-integerp b
) (or (Math-numberp a
) (Math-vectorp a
)))
777 (if (and (equal a
'(float 1 1)) (integerp b
))
778 (math-make-float 1 b
)
779 (math-with-extra-prec 2
783 (math-pow-fancy a b
))))
786 (defun math-ipow (a n
) ; [O O I] [Public]
787 (cond ((Math-integer-negp n
)
788 (math-ipow (math-div 1 a
) (Math-integer-neg n
)))
790 (if (and (Math-ratp a
) (> n
20))
791 (math-iipow-show a n
)
794 (math-ipow (math-mul a a
) (math-div2 n
)))
796 (math-mul a
(math-ipow (math-mul a a
)
797 (math-div2 (math-add n -
1)))))))
799 (defun math-iipow (a n
) ; [O O S]
802 ((= (% n
2) 0) (math-iipow (math-mul a a
) (/ n
2)))
803 (t (math-mul a
(math-iipow (math-mul a a
) (/ n
2))))))
805 (defun math-iipow-show (a n
) ; [O O S]
806 (math-working "pow" a
)
810 ((= (% n
2) 0) (math-iipow-show (math-mul a a
) (/ n
2)))
811 (t (math-mul a
(math-iipow-show (math-mul a a
) (/ n
2)))))))
812 (math-working "pow" val
)
817 (defun math-read-radix-digit (dig) ; [D S; Z S]
830 (defun report-calc-bug ()
831 "Report a bug in Calc, the GNU Emacs calculator.
832 Prompts for bug subject. Leaves you in a mail buffer."
834 (let ((reporter-prompt-for-summary-p t
))
835 (reporter-submit-bug-report calc-bug-address
"Calc"
837 "Please describe exactly what actions triggered the bug and the
838 precise symptoms of the bug. If possible, include a backtrace by
839 doing 'M-x toggle-debug-on-error', then reproducing the bug.
842 (defalias 'calc-report-bug
'report-calc-bug
)
847 ;; generated-autoload-file: "calc-loaddefs.el"
850 ;; arch-tag: 7984d9d0-62e5-41dc-afb8-e904b975f250
851 ;;; calc-misc.el ends here