;ELC
;;; Compiled by LTX@Xue-LingTaos-MacBook-Pro.local on Wed Mar 16 23:09:59 2011
;;; from file /Users/LTX/Projects/Emacs/emacs/lisp/calc/calc-ext.el
;;; in Emacs version 24.0.50.1
;;; with all optimizations.

;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
     (< (aref emacs-version (1- (length emacs-version))) ?A)
     (string-lessp emacs-version "23")
     (error "`calc-ext.el' was compiled for Emacs 23 or later"))

;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\301\302!\210\301\303!\210\304B\305\304!\204\306\304\307\"\210\310B\305\310!\204&\306\310\307\"\210\311B\305\311!\2045\306\311\307\"\210\312B\305\312!\204D\306\312\307\"\210\313B\305\313!\204S\306\313\314\"\210\315B\305\315!\204b\306\315\307\"\210\316B\305\316!\204q\306\316\307\"\210\317B\305\317!\204\200\306\317\307\"\210\320B\305\320!\204\217\306\320\307\"\210\321B\305\321!\204\236\306\321\307\"\210\322B\305\322!\204\255\306\322\307\"\210\307\207" [current-load-list require calc calc-macs math-simplifying default-boundp set-default nil math-living-dangerously math-integrating math-rewrite-selections math-compose-level 0 math-comp-selected math-comp-tagged math-comp-sel-hpos math-comp-sel-vpos math-comp-sel-cpos math-compose-hash-args] 3)
(defalias 'calc-init-extensions #[nil "\305\306\307#\210\305\310\311#\210\305\312\313#\210\305\314\315#\210\305\316\317#\210\305\320\321#\210\305\322\323#\210\305\324\325#\210\305\326\327#\210\305\330\331#\210\305\332\333#\210\305\334\335#\210\305\336\337#\210\305\340\341#\210\305\342\343#\210\305\344\345#\210\305\346\347#\210\305\350\351#\210\305\352\353#\210\305\354\355#\210\305\356\357#\210\305\360\361#\210\305\362\363#\210\305\364\365#\210\305\366\367#\210\305\370\371#\210\305\372\373#\210\305\374\375#\210\305\376\377#\210\305\201@\201A#\210\305\201B\201C#\210\305\201D\201E#\210\305\201F\201G#\210\305\201H\201I#\210\305\201J\201K#\210\305\201L\201M#\210\305\201N\201O#\210\305\201P\201Q#\210\305\201R\201S#\210\305\201T\201U#\210\305\201V\201W#\210\305\201X\201Y#\210\305\201Z\201[#\210\305\201\\\201]#\210\305\201^\201_#\210\305\201`\201a#\210\305\201b\201c#\210\305\201d\201e#\210\305\201f\201g#\210\305\201h\201i#\210\305\201j\201k#\210\305\201l\201m#\210\305\201n\201o#\210\305\201p\201q#\210\305\201r\201s#\210\305\201t\201u#\210\305\201v\201w#\210\305\201x\201y#\210\305\201z\201{#\210\305\201|\201}#\210\305\201~\201#\210\305\201\200\201\201#\210\305\201\202\201\203#\210\305\201\204\201\205#\210\305\201\206\201\207#\210\305\201\210\201\211#\210\305\201\212\201\213#\210\305\201\214\201\215#\210\305\201\216\201\217#\210\305\201\220\201\221#\210\305\201\222\201\223#\210\305\201\224\201\225#\210\305\201\226\201\227#\210\305\201\230\201\231#\210\305\201\232\201\233#\210\305\201\234\201\235#\210\305\201\236\201\237#\210\305\201\240\201\241#\210\305\201\242\201\243#\210\305\201\244\201\245#\210\305\201\246\201\247#\210\305\201\250\201\251#\210\305\201\252\201\253#\210\305\201\254\201\255#\210\305\201\256\201\257#\210\305\201\260\201\261#\210\305\201\262\201\263#\210\305\201\264\201\265#\210\305\201\266\201\267#\210\305\201\270\201\271#\210\305\201\272\201\273#\210\305\201\274\201]#\210\305\201\275\201\276#\210\305\201\277\201\300#\210\305\201\301\201\302#\210\305\201\303\201\304#\210\305\201\305\201\306#\210\305\201\307\201\310#\210\305\201\311\201\312#\210\305\201\313\201\314#\210\305\201\315\201\316#\210\305\201\317\201\320#\210\305\201\321\201\322#\210\305\201\323\201\324#\210\305\201\325\201\326#\210\305\201\327\201\330#\210\305\201\331\201\332#\210\305\201\333\201\334#\210\305\201\335\201\336#\210\305\201\337\201\340#\210\305\201\341\201\342#\210\305\201\343\201\344#\210\305\201\345\201\346#\210\305\201\347\201\350#\210\305\201\351\201\352#\210\305\201\353\201\354#\210\305\201\355\201\356#\210\305\201\357\201\360#\210\305\201\361\201\362#\210\305\201\363\201]#\210\305\201\364\201\365#\210\305\201\366\201\367#\210\305\201\370\201\371#\210\305\201\372\201\373#\210\305\201\374\201\375#\210\305\201\376\201\377#\210\305\201\201#\210\305\201\317#\210\305\201\201#\210\305\201\201#\210\305\201\201]#\210\305\201\201	#\210\305\201\n\201#\210\305\201\f\201
#\210\305\201\201#\210\305\201\201#\210\305\201\201#\210\305\201\201#\210\305\201\201#\210\305\201\201#\210\305\201\201#\210\305\201\201#\210\305\201\201#\210\305\201 \201!#\210\305\201\"\201##\210\305\201$\201%#\210\305\201&\201'#\210\305\201(\201)#\210\305\201*\201+#\210\305\201,\201-#\210\305\201.\201/#\210\305\2010\2011#\210\305\2012\2013#\210\305\2014\2015#\210\305\2016\2017#\210\305\2018\2019#\210\305\201:\201;#\210\305\201<\201=#\210\305\201>\201?#\210\305\201@\201A#\210\305\201B\201C#\210\305\201D\201E#\210\305\201F\201G#\210\305\201H\201I#\210\305\201J\201K#\210\305\201L\201M#\210\305\201N\201O#\210\305\201P\201Q#\210\305\201R\201S#\210\305\201T\201U#\210\305\201V\201W#\210\305\201X\201Y#\210\305\201Z\201[#\210\305\201\\\201]#\210\305\201^\201_#\210\305\201`\201a#\210\305\201b\201c#\210\305\201d\201e#\210\305\201f\201g#\210\305\201h\201i#\210\305\201j\201k#\210\305\201l\201m#\210\305\201n\201o#\210\305\201p\201q#\210\305\201r\201]#\210\305\201s\201t#\210\305\201u\201v#\210\305\201w\201x#\210\305\201y\201z#\210\305\201{\201|#\210\305\201}\201~#\210\305\201\201\200#\210\305\201\201\201\202#\210\305\201\203\201\204#\210\305\201\205\201\206#\210\305\201\207\201\210#\210\305\201\211\201\212#\210\305\201\213\201\214#\210\305\201\215\201\216#\210\305\201\217\201\220#\210\305\201\221\201\222#\210\305\201\223\201\224#\210\305\201\225\201\226#\210\305\201\227\201\230#\210\305\201\231\201\232#\210\305\201\233\201\234#\210\305\201\235\201\236#\210\305\201\237\201\240#\210\305\201\241\201\242#\210\305\201\243\201\244#\210\305\201\245\201\246#\210\305\201\247\201]#\210\305\201\250\201\251#\210\305\201\252\201\253#\210\305\201\254\201\255#\210\305\201\256\201\257#\210\305\201\260\201\261#\210\305\201\262\201\263#\210\305\201\264\201\265#\210\305\201\266\201\267#\210\305\201\270\201\271#\210\305\201\272\201\273#\210\305\201\274\201\275#\210\305\201\276\201\277#\210\305\201\300\201\301#\210\305\201\302\201\303#\210\305\201\304\201\305#\210\305\201\306\201\307#\210\305\201\310\201\311#\210\305\201\312\201\313#\210\305\201\314\201\315#\210\305\201\316\201\317#\210\305\201\320\201\321#\210\305\201\322\201\323#\210\305\201\324\201\325#\210\305\201\326\201\327#\210\305\201\330\201\331#\210\305\201\332\201\333#\210\305\201\334\201\335#\210\305\201\336\201\337#\210\305\201\340\201\341#\210\305\201\342\201\343#\210\305\201\344\201\345#\210\305\201\346\201\347#\210\305\201\350\201\351#\210\305\201\352\201\353#\210\305\201\354\201\355#\210\305\201\356\201\357#\210\305\201\360\201\361#\210\305\201\362\201\363#\210\305\201\364\201\365#\210\305\201\366\201\367#\210\305\201\370\201\371#\210\305\201\372\201]#\210\305\201\373\201\374#\210\305\201\375\201\376#\210\305\201\377\201#\210\305\201\201#\210\305\201\201#\210\305\201\201#\210\305\201\201#\210\305\201	\201\n#\210\305\201\201\f#\210\305\201
\201#\210\305\201\201#\210\305\201\201#\210\305\201\201#\210\305\201\201#\210\305\201\201#\210\305\201\201#\210\305\201\201#\210\305\201\201#\210\305\201\201 #\210\305\201!\327#\210\305\201\"\201##\210\305\201$\201%#\210\305\201&\201'#\210\305\201(\201)#\210\305\201*\201+#\210\305\201,\201-#\210\305\201.\201/#\210\305\2010\2011#\210\305\2012\2013#\210\305\2014\2013#\210\305\2015\2016#\210\305\2017\2016#\210\305\2018\2019#\210\305\201:\201;#\210\305\201<\201=#\210\305\201>\201?#\210\305\201@\201A#\210\305\201B\201C#\210\305\201D\201E#\210\305\201F\201]#\210\305\201G\201H#\210\305\201I\201J#\210\305\201K\201L#\210\305\201M\201N#\210\305\201O\201P#\210\305\201Q\201R#\210\305\201S\201T#\210\305\201U\201V#\210\305\201W\201X#\210\305\201Y\201Z#\210\305\201[\201\\#\210\305\201]\201^#\210\305\201_\201`#\210\305\201a\201b#\210\305\201c\201d#\210\305\201e\201f#\210\305\201g\201h#\210\305\201i\201j#\210\305\201k\201l#\210\305\201m\201n#\210\305\201o\201p#\210\305\201q\201r#\210\305\201s\201t#\210\305\201u\201v#\210\305\201w\201]#\210\305\201x\201y#\210\305\201z\201{#\210\305\201|\201}#\210\305\201~\201#\210\305\201\200\201\201#\210\305\201\202\201\203#\210\305\201\204\201\205#\210\305\201\206\201\207#\210\305\201\210\201\211#\210\305\201\212\201\213#\210\305\201\214\201\215#\210\305\201\216\201]#\210\305\201\217\201\220#\210\305\201\221\201\222#\210\305\201\223\201\224#\210\305\201\225\201\226#\210\305\201\227\201\230#\210\305\201\231\201\232#\210\305\201\233\201\234#\210\305\201\235\201\236#\210\305\201\237\201\240#\210\305\201\241\201\242#\210\305\201\243\201\244#\210\305\201\245\201\246#\210\305\201\247\201\250#\210\305\201\251\201\250#\210\305\201\252\201\250#\210\305\201\253\201\254#\210\305\201\255\201\256#\210\305\201\257\201\260#\210\305\201\261\201\262#\210\305\201\263\201\264#\210\305\201\265\201\266#\210\305\201\267\201\270#\210\305\201\271\201\272#\210\305\201\273\201\274#\210\305\201\275\201\276#\210\305\201\277\201\300#\210\305\201\301\201\302#\210\305\201\303\201\304#\210\305\201\305\201\306#\210\305\201\307\201\310#\210\305\201\311\201\312#\210\305\201\313\201]#\210\305\201\314\201\315#\210\305\201\316\201\317#\210\305\201\320\201\321#\210\305\201\322\201]#\210\305\201\323\201\324#\210\305\201\325\201\326#\210\305\201\327\201\330#\210\305\201\331\201\332#\210\305\201\333\201\334#\210\305\201\335\201\336#\210\305\201\337\201\340#\210\305\201\341\201\342#\210\305\201\343\201\344#\210\305\201\345\201\346#\210\305\201\347\201\350#\210\305\201\351\201\352#\210\305\201\353\201\354#\210\305\201\355\201\356#\210\305\201\357\201\360#\210\305\201\361\201\362#\210\305\201\363\201\364#\210\305\201\365\201\366#\210\305\201\367\201\370#\210\305\201\371\201\372#\210\305\201\373\201\374#\210\305\201\375\201\376#\210\305\201\377\201#\210\305\201\201#\210\305\201\201#\210\305\201\345#\210\305\201\201#\210\305\201\201	#\210\305\201\n\201#\210\305\201\f\201
#\210\305\201\201#\210\305\201\201#\210\305\201\201#\210\305\201\201#\210\305\201\201#\210\305\201\201#\210\305\201\201#\210\305\201\201#\210\305\201\201#\210\305\201 \201!#\210\305\201\"\201]#\210\305\201#\201$#\210\305\201%\201&#\210\305\201'\201(#\210\305\201)\201*#\210\305\201+\201,#\210\305\201-\201.#\210\305\201/\2010#\210\305\2011\2012#\210\305\2013\2014#\210\305\2015\2016#\210\305\2017\2018#\210\305\2019\201:#\210\305\201;\201<#\210\305\201=\201>#\210\305\201?\201@#\210\305\201A\201B#\210\305\201C\201D#\210\305\201E\201F#\210\305\201G\201&#\210\305\201H\201*#\210\305\201I\201J#\210\305\201K\201L#\210\305\201M\201N#\210\305\201O\201P#\210\305\201Q\201R#\210\305\201S\201T#\210\305\201U\201V#\210\305\201W\201X#\210\305\201Y\347#\210\305\201Z\201[#\210\305\201\\\201]#\210\305\201^\201_#\210\305\201`\201a#\210\305\201b\201c#\210\305\201d\201e#\210\305\201f\201]#\210\305\201g\201h#\210\305\201i\201j#\210\305\201k\201l#\210\305\201m\201n#\210\305\201o\201p#\210\305\201q\201r#\210\305\201s\201t#\210\305\201u\201v#\210\305\201w\201x#\210\305\201y\201z#\210\305\201{\201|#\210\305\201}\201~#\210\305\201\201\200#\210\305\201\201\201\202#\210\305\201\203\201\204#\210\305\201\205\201\206#\210\305\201\207\201\210#\210\305\201\211\201\212#\210\305\201\213\201\214#\210\305\201\215\201\216#\210\305\201\217\351#\210\305\201\220\201\221#\210\305\201\222\201\223#\210\305\201\224\201\225#\210\305\201\226\201\227#\210\305\201\230\201]#\210\305\201\231\201\232#\210\305\201\233\201\234#\210\305\201\235\201\236#\210\305\201\237\201\240#\210\305\201\241\201\242#\210\305\201\243\201\244#\210\305\201\245\201\246#\210\305\201\247\201\250#\210\305\201\251\201\252#\210\305\201\253\201\254#\210\305\201\255\201\256#\210\305\201\257\201\260#\210\305\201\261\201\262#\210\305\201\263\201\264#\210\305\201\265\201\266#\210\305\201\267\201\270#\210\305\201\271\201\272#\210\305\201\273\201\274#\210\305\201\275\201\276#\210\305\201\277\201\300#\210\305\201\301\201\302#\210\305\201\303\201\304#\210\305\201\305\201\306#\210\305\201\307\201\310#\210\305\201\311\201\312#\210\305\201\313\201\314#\210\305\201\315\201\316#\210\305\201\317\201\320#\210\305\201\321\201\322#\210\305\201\323\201\324#\210\305\201\325\201\326#\210\305\201\327\201\330#\210\305\201\331\201\332#\210\305\201\333\201\334#\210\305\201\335\201\336#\210\305\201\337\201\340#\210\305\201\341\201\342#\210\305\201\343\201\344#\210\305\201\345\201\346#\210\305\201\347\201\350#\210\305\201\351\201\352#\210\305\201\353\201\354#\210\305\201\355\201\356#\210\305\201\357\201\360#\210\305\201\361\201\362#\210\305\201\363\201\364#\210\305\201\365\201\366#\210\305\201\367\201\370#\210\305\201\371\201\372#\210\305\201\373\201\374#\210\305\201\375\201\376#\210\305\201\377\201#\210\305\201\201#\210\305\201\201#\210\305\201\201#\210\305\201\201#\210\305\201	\201#\210\305\201\n\201#\210\305\201\f\201#\210\305\201
\201\201\230\"#\210\305\201\201]#\210\305\201\201#\210\305\201\201]#\210\305\201\201#\210\305\201\201#\210\305\201\201#\210\305\201\201#\210\305\201\201#\210\305\201\201#\210\305\201\201 #\210\305\201!\201\"#\210\305\201#\201$#\210\305\201%\201&#\210\305\201'\201(#\210\305\201)\201*#\210\305\201+\201,#\210\305\201-\201.#\210\305\201/\2010#\210\305\2011\2012#\210\305\2013\2014#\210\305\2015\2016#\210\305\2017\2018#\210\305\2019\201:#\210\305\201;\201<#\210\305\201=\201>#\210\305\201?\201@#\210\305\201A\201B#\210\305\201C\201D#\210\305\201E\201F#\210\305\201G\201H#\210\201I \210\201J\201K\201L\"\210\201M\211\201NX\203\261A@	H\242\201O=\203\252A@	\201O\201PA@	HBA@	HABBI\210	T\211\202|)\201Q!\201Q!\201R\211\201SW\203\365	\201T>\204\333\nA@	\201UI\210	\201V>\204\356\fA@	A@	HI\210	T\211\202\303)\305\n\201W\f#\210\305\n\201X\201Y#\210\305\n\201Z\201[#\210\305\n\201\\\201]#\210\201J\201^\201_\"\210\201`\201a\201b\"\207" [calc-mode-map i calc-alg-map esc-map calc-alg-esc-map define-key ":" calc-fdiv "\\" calc-idiv "|" calc-concat "!" calc-factorial "C" calc-cos "E" calc-exp "H" calc-hyperbolic "I" calc-inverse "J" calc-conj "L" calc-ln "N" calc-eval-num "O" calc-option "P" calc-pi "Q" calc-sqrt "R" calc-round "S" calc-sin "T" calc-tan "U" calc-undo "X" calc-call-last-kbd-macro "o" calc-realign "p" calc-precision "w" calc-why "x" calc-execute-extended-command "y" calc-copy-to-buffer "(" calc-begin-complex ")" calc-end-complex "[" calc-begin-vector "]" calc-end-vector "," calc-comma ";" calc-semi "`" calc-edit "=" calc-evaluate "~" calc-num-prefix "<" calc-scroll-left ">" calc-scroll-right "{" calc-scroll-down "}" calc-scroll-up "" calc-kill "\353" calc-copy-as-kill "" calc-kill-region "\367" calc-copy-region-as-kill "\227" kill-ring-save "\215" calc-last-args "a" nil "a?" calc-a-prefix-help "aa" calc-apart "ab" calc-substitute "ac" calc-collect "ad" calc-derivative "ae" calc-simplify-extended "af" calc-factor "ag" calc-poly-gcd "ai" calc-integral "am" calc-match "an" calc-normalize-rat "ap" calc-poly-interp "ar" calc-rewrite "as" calc-simplify "at" calc-taylor "av" calc-alg-evaluate "ax" calc-expand "aA" calc-abs "aF" calc-curve-fit "aI" calc-num-integral "aM" calc-map-equation "aN" calc-find-minimum "aP" calc-poly-roots "aS" calc-solve-for "aR" calc-find-root "aT" calc-tabulate "aX" calc-find-maximum "a+" calc-summation "a-" calc-alt-summation "a*" calc-product "a\\" calc-poly-div "a%" calc-poly-rem "a/" calc-poly-div-rem "a=" calc-equal-to "a#" calc-not-equal-to "a<" calc-less-than "a>" calc-greater-than "a[" calc-less-equal "a]" calc-greater-equal "a." calc-remove-equal "a{" calc-in-set "a&" calc-logical-and "a|" calc-logical-or "a!" calc-logical-not "a:" calc-logical-if "a_" calc-subscript "a\"" calc-expand-formula "b" "b?" calc-b-prefix-help "ba" calc-and "bc" calc-clip "bd" calc-diff "bl" calc-lshift-binary "bn" calc-not "bo" calc-or "bp" calc-pack-bits "br" calc-rshift-binary "bt" calc-rotate-binary "bu" calc-unpack-bits "bw" calc-word-size "bx" calc-xor "bB" calc-log "bD" calc-fin-ddb "bF" calc-fin-fv "bI" calc-fin-irr "bL" calc-lshift-arith "bM" calc-fin-pmt "bN" calc-fin-npv "bP" calc-fin-pv "bR" calc-rshift-arith "bS" calc-fin-sln "bT" calc-fin-rate "bY" calc-fin-syd "b#" calc-fin-nper "b%" calc-percent-change "c" "c?" calc-c-prefix-help "cc" calc-clean "cd" calc-to-degrees "cf" calc-float "ch" calc-to-hms "cp" calc-polar "cr" calc-to-radians "cC" "cF" calc-fraction "c%" calc-convert-percent "d" "d?" calc-d-prefix-help "d0" calc-decimal-radix "d2" calc-binary-radix "d6" calc-hex-radix "d8" calc-octal-radix "db" calc-line-breaking "dc" calc-complex-notation "dd" calc-date-notation "de" calc-eng-notation "df" calc-fix-notation "dg" calc-group-digits "dh" calc-hms-notation "di" calc-i-notation "dj" calc-j-notation "dl" calc-line-numbering "dn" calc-normal-notation "do" calc-over-notation "dp" calc-show-plain "dr" calc-radix "ds" calc-sci-notation "dt" calc-truncate-stack "dw" calc-auto-why "dz" calc-leading-zeros "dA" calc-giac-language "dB" calc-big-language "dD" calc-redo "dC" calc-c-language "dE" calc-eqn-language "dF" calc-fortran-language "dM" calc-mathematica-language "dN" calc-normal-language "dO" calc-flat-language "dP" calc-pascal-language "dT" calc-tex-language "dL" calc-latex-language "dU" calc-unformatted-language "dW" calc-maple-language "dX" calc-maxima-language "dY" calc-yacas-language "d[" calc-truncate-up "d]" calc-truncate-down "d." calc-point-char "d," calc-group-char "d\"" calc-display-strings "d<" calc-left-justify "d=" calc-center-justify "d>" calc-right-justify "d{" calc-left-label "d}" calc-right-label "d'" calc-display-raw "d " calc-refresh "d
" calc-refresh-top "d@" calc-toggle-banner "f" "f?" calc-f-prefix-help "fb" calc-beta "fe" calc-erf "fg" calc-gamma "fh" calc-hypot "fi" calc-im "fj" calc-bessel-J "fn" calc-min "fr" calc-re "fs" calc-sign "fx" calc-max "fy" calc-bessel-Y "fA" calc-abssqr "fB" calc-inc-beta "fE" calc-expm1 "fF" calc-floor "fG" calc-inc-gamma "fI" calc-ilog "fL" calc-lnp1 "fM" calc-mant-part "fQ" calc-isqrt "fS" calc-scale-float "fT" calc-arctan2 "fX" calc-xpon-part "f[" calc-decrement "f]" calc-increment "g" "g?" calc-g-prefix-help "ga" calc-graph-add "gb" calc-graph-border "gc" calc-graph-clear "gd" calc-graph-delete "gf" calc-graph-fast "gg" calc-graph-grid "gh" calc-graph-header "gk" calc-graph-key "gj" calc-graph-juggle "gl" calc-graph-log-x "gn" calc-graph-name "gp" calc-graph-plot "gq" calc-graph-quit "gr" calc-graph-range-x "gs" calc-graph-line-style "gt" calc-graph-title-x "gv" calc-graph-view-commands "gx" calc-graph-display "gz" calc-graph-zero-x "gA" calc-graph-add-3d "gC" calc-graph-command "gD" calc-graph-device "gF" calc-graph-fast-3d "gG" calc-argument "gH" calc-graph-hide "gK" calc-graph-kill "gL" calc-graph-log-y "gN" calc-graph-num-points "gO" calc-graph-output "gP" calc-graph-print "gR" calc-graph-range-y "gS" calc-graph-point-style "gT" calc-graph-title-y "gV" calc-graph-view-trail "gX" calc-graph-geometry "gZ" calc-graph-zero-y "g\f" calc-graph-log-z "g" calc-graph-range-z "g" calc-graph-title-z "h" calc-help-prefix "j" "j?" calc-j-prefix-help "ja" calc-select-additional "jb" calc-break-selections "jc" calc-clear-selections "jd" calc-show-selections "je" calc-enable-selections "jl" calc-select-less "jm" calc-select-more "jn" calc-select-next "jo" calc-select-once "jp" calc-select-previous "jr" calc-rewrite-selection "js" calc-select-here "jv" calc-sel-evaluate "ju" calc-unselect "jC" calc-sel-commute "jD" calc-sel-distribute "jE" calc-sel-jump-equals "jI" calc-sel-isolate "jJ" "jL" calc-commute-left "jM" calc-sel-merge "jN" calc-sel-negate "jO" calc-select-once-maybe "jR" calc-commute-right "jS" calc-select-here-maybe "jU" calc-sel-unpack "j&" calc-sel-invert "j
" calc-copy-selection "j\n" "j" calc-del-selection "j" "j'" calc-enter-selection "j`" calc-edit-selection "j+" calc-sel-add-both-sides "j-" calc-sel-sub-both-sides "j*" calc-sel-mult-both-sides "j/" calc-sel-div-both-sides "j\"" calc-sel-expand-formula "k" "k?" calc-k-prefix-help "ka" calc-random-again "kb" calc-bernoulli-number "kc" calc-choose "kd" calc-double-factorial "ke" calc-euler-number "kf" calc-prime-factors "kg" calc-gcd "kh" calc-shuffle "kl" calc-lcm "km" calc-moebius "kn" calc-next-prime "kp" calc-prime-test "kr" calc-random "ks" calc-stirling-number "kt" calc-totient "kB" calc-utpb "kC" calc-utpc "kE" calc-extended-gcd "kF" calc-utpf "kK" calc-keep-args "kN" calc-utpn "kP" calc-utpp "kT" calc-utpt "l" "lq" calc-logunits-quantity "ld" calc-dblevel "ln" calc-nplevel "l+" calc-logunits-add "l-" calc-logunits-sub "l*" calc-logunits-mul "l/" calc-logunits-divide "ls" calc-spn "lm" calc-midi "lf" calc-freq "l?" calc-l-prefix-help "m" "m?" calc-m-prefix-help "ma" calc-algebraic-mode "md" calc-degrees-mode "me" calc-embedded-preserve-modes "mf" calc-frac-mode "mg" calc-get-modes "mh" calc-hms-mode "mi" calc-infinite-mode "mm" calc-save-modes "mp" calc-polar-mode "mr" calc-radians-mode "ms" calc-symbolic-mode "mt" calc-total-algebraic-mode "mt" "mt" "mv" calc-matrix-mode "mw" calc-working "mx" calc-always-load-extensions "mA" calc-alg-simplify-mode "mB" calc-bin-simplify-mode "mC" calc-auto-recompute "mD" calc-default-simplify-mode "mE" calc-ext-simplify-mode "mF" calc-settings-file-name "mM" calc-more-recursion-depth "mN" calc-num-simplify-mode "mO" calc-no-simplify-mode "mR" calc-mode-record-mode "mS" calc-shift-prefix "mU" calc-units-simplify-mode "mX" calc-load-everything "r" "ri" calc-insert-register "rs" calc-copy-to-register "r?" calc-r-prefix-help "s" "s?" calc-s-prefix-help "sc" calc-copy-variable "sd" calc-declare-variable "se" calc-edit-variable "si" calc-insert-variables "sk" calc-copy-special-constant "sl" calc-let "sm" calc-store-map "sn" calc-store-neg "sp" calc-permanent-variable "sr" calc-recall "ss" calc-store "st" calc-store-into "su" calc-unstore "sx" calc-store-exchange "sA" calc-edit-AlgSimpRules "sD" calc-edit-Decls "sE" calc-edit-EvalRules "sF" calc-edit-FitRules "sG" calc-edit-GenCount "sH" calc-edit-Holidays "sI" calc-edit-IntegLimit "sL" calc-edit-LineStyles "sP" calc-edit-PointStyles "sR" calc-edit-PlotRejects "sS" "sT" calc-edit-TimeZone "sU" calc-edit-Units "sX" calc-edit-ExtSimpRules "s+" calc-store-plus "s-" calc-store-minus "s*" calc-store-times "s/" calc-store-div "s^" calc-store-power "s|" calc-store-concat "s&" calc-store-inv "s[" calc-store-decr "s]" calc-store-incr "s:" calc-assign "s=" calc-evalto "t" "t?" calc-t-prefix-help "tb" calc-trail-backward "td" calc-trail-display "tf" calc-trail-forward "th" calc-trail-here "ti" calc-trail-in "tk" calc-trail-kill "tm" calc-trail-marker "tn" calc-trail-next "to" calc-trail-out "tp" calc-trail-previous "tr" calc-trail-isearch-backward "ts" calc-trail-isearch-forward "ty" calc-trail-yank "t[" calc-trail-first "t]" calc-trail-last "t<" calc-trail-scroll-left "t>" calc-trail-scroll-right "t{" "t}" "t." calc-full-trail-vectors "tC" calc-convert-time-zones "tD" calc-date "tI" calc-inc-month "tJ" calc-julian "tM" calc-new-month "tN" calc-now "tP" calc-date-part "tT" "tU" calc-unix-time "tW" calc-new-week "tY" calc-new-year "tZ" calc-time-zone "t+" calc-business-days-plus "t-" calc-business-days-minus "u" "u?" calc-u-prefix-help "ua" calc-autorange-units "ub" calc-base-units "uc" calc-convert-units "ud" calc-define-unit "ue" calc-explain-units "ug" calc-get-unit-definition "up" calc-permanent-units "ur" calc-remove-units "us" calc-simplify-units "ut" calc-convert-temperature "uu" calc-undefine-unit "uv" calc-enter-units-table "ux" calc-extract-units "uV" calc-view-units-table "uC" calc-vector-covariance "uG" calc-vector-geometric-mean "uM" calc-vector-mean "uN" calc-vector-min "uS" calc-vector-sdev "uU" "uX" calc-vector-max "u#" calc-vector-count "u+" calc-vector-sum "u*" calc-vector-product "v" "v?" calc-v-prefix-help "va" calc-arrange-vector "vb" calc-build-vector "vc" calc-mcol "vd" calc-diag "ve" calc-expand-vector "vf" calc-vector-find "vh" calc-head "vi" calc-ident "vk" calc-cons "vl" calc-vlength "vm" calc-mask-vector "vn" calc-rnorm "vp" calc-pack "vr" calc-mrow "vs" calc-subvector "vt" calc-transpose "vu" calc-unpack "vv" calc-reverse-vector "vx" calc-index "vA" calc-apply "vC" calc-cross "vK" calc-kron "vD" calc-mdet "vE" calc-set-enumerate "vF" calc-set-floor "vG" calc-grade "vH" calc-histogram "vI" calc-inner-product "vJ" calc-conj-transpose "vL" calc-mlud "vM" calc-map "vN" calc-cnorm "vO" calc-outer-product "vR" calc-reduce "vS" calc-sort "vT" calc-mtrace "vU" calc-accumulate "vV" calc-set-union "vX" calc-set-xor "v^" calc-set-intersect "v-" calc-set-difference "v~" calc-set-complement "v:" calc-set-span "v#" calc-set-cardinality "v+" calc-remove-duplicates "v&" calc-inv "v<" calc-matrix-left-justify "v=" calc-matrix-center-justify "v>" calc-matrix-right-justify "v." calc-full-vectors "v/" calc-break-vectors "v," calc-vector-commas "v[" calc-vector-brackets "v]" calc-matrix-brackets "v{" calc-vector-braces "v}" "v(" calc-vector-parens "v)" "V" lookup-key "z" "z?" calc-z-prefix-help "Z" "Z?" calc-shift-Z-prefix-help "ZC" calc-user-define-composition "ZD" calc-user-define "ZE" calc-user-define-edit "ZF" calc-user-define-formula "ZG" calc-get-user-defn "ZI" calc-user-define-invocation "ZK" calc-user-define-kbd-macro "ZP" calc-user-define-permanent "ZS" calc-edit-user-syntax "ZT" calc-timing "ZU" calc-user-undefine "Z[" calc-kbd-if "Z:" calc-kbd-else "Z|" calc-kbd-else-if "Z]" calc-kbd-end-if "Z<" calc-kbd-repeat "Z>" calc-kbd-end-repeat "Z(" calc-kbd-for "Z)" calc-kbd-end-for "Z{" calc-kbd-loop "Z}" calc-kbd-end-loop "Z/" calc-kbd-break "Z`" calc-kbd-push "Z'" calc-kbd-pop "Z=" calc-kbd-report "Z#" calc-kbd-query calc-init-prefixes mapc #[(x) "\302\303\304	\"\305#\210\302\303\306	\"\307#\210\302\303\310	\"\311#\210\302\303\312	\"\313#\210\302\303\314	\"\315#\210\302\303\316	\"\317#\207" [calc-mode-map x define-key format "c%c" calc-clean-num "j%c" calc-select-part "r%c" calc-recall-quick "s%c" calc-store-quick "t%c" calc-store-into-quick "u%c" calc-quick-units] 5] "0123456789" 65 122 keymap 27 copy-keymap 32 127 (39 96 61 63) calc-auto-algebraic-entry (35 120 48 49 50 51 52 53 54 55 56 57) "" "	" calc-roll-up "
" calc-last-args-stub "" calc-pop-above #[(x) "\301\302A\"\207" [x mapcar #[(func) "\302	@\"\207" [func x autoload] 3]] 3] (("calc-alg" calc-has-rules math-defsimplify calc-modify-simplify-mode calcFunc-collect calcFunc-esimplify calcFunc-islin calcFunc-islinnt calcFunc-lin calcFunc-linnt calcFunc-simplify calcFunc-subst calcFunc-powerexpand math-beforep math-build-polynomial-expr math-expand-formula math-expr-contains math-expr-contains-count math-expr-depends math-expr-height math-expr-subst math-expr-weight math-integer-plus math-is-linear math-is-multiple math-is-polynomial math-linear-in math-multiple-of math-poly-depends math-poly-mix math-poly-mul math-poly-simplify math-poly-zerop math-polynomial-base math-polynomial-p math-recompile-eval-rules math-simplify math-simplify-exp math-simplify-extended math-simplify-sqrt math-to-simple-fraction) ("calcalg2" calcFunc-asum calcFunc-deriv calcFunc-ffinv calcFunc-finv calcFunc-fsolve calcFunc-gpoly calcFunc-integ calcFunc-poly calcFunc-prod calcFunc-roots calcFunc-solve calcFunc-sum calcFunc-table calcFunc-taylor calcFunc-tderiv math-expr-calls math-integral-q02 math-integral-q12 math-integral-rational-funcs math-lcm-denoms math-looks-evenp math-poly-all-roots math-prod-rec math-reject-solution math-solve-eqn math-solve-for math-sum-rec math-try-integral) ("calcalg3" calcFunc-efit calcFunc-fit calcFunc-fitdummy calcFunc-fitparam calcFunc-fitvar calcFunc-hasfitparams calcFunc-hasfitvars calcFunc-maximize calcFunc-minimize calcFunc-ninteg calcFunc-polint calcFunc-ratint calcFunc-root calcFunc-wmaximize calcFunc-wminimize calcFunc-wroot calcFunc-xfit math-find-minimum math-find-root math-ninteg-evaluate math-ninteg-midpoint math-ninteg-romberg math-poly-interp) ("calc-arith" calcFunc-abs calcFunc-abssqr calcFunc-add calcFunc-ceil calcFunc-decr calcFunc-deven calcFunc-dimag calcFunc-dint calcFunc-div calcFunc-dnatnum calcFunc-dneg calcFunc-dnonneg calcFunc-dnonzero calcFunc-dnumint calcFunc-dodd calcFunc-dpos calcFunc-drange calcFunc-drat calcFunc-dreal calcFunc-dscalar calcFunc-fceil calcFunc-ffloor calcFunc-float calcFunc-fround calcFunc-frounde calcFunc-froundu calcFunc-ftrunc calcFunc-idiv calcFunc-incr calcFunc-ldiv calcFunc-mant calcFunc-max calcFunc-min calcFunc-mod calcFunc-mul calcFunc-neg calcFunc-percent calcFunc-pow calcFunc-relch calcFunc-round calcFunc-rounde calcFunc-roundu calcFunc-scf calcFunc-sub calcFunc-xpon math-abs math-abs-approx math-add-objects-fancy math-add-or-sub math-add-symb-fancy math-ceiling math-combine-prod math-combine-sum math-div-by-zero math-div-objects-fancy math-div-symb-fancy math-div-zero math-float-fancy math-floor-fancy math-floor-special math-guess-if-neg math-intv-constp math-known-evenp math-known-imagp math-known-integerp math-known-matrixp math-known-negp math-known-nonnegp math-known-nonposp math-known-nonzerop math-known-num-integerp math-known-oddp math-known-posp math-known-realp math-known-scalarp math-max math-min math-mod-fancy math-mul-float math-mul-objects-fancy math-mul-or-div math-mul-symb-fancy math-mul-zero math-neg-fancy math-neg-float math-okay-neg math-possible-signs math-possible-types math-pow-fancy math-pow-mod math-pow-of-zero math-pow-zero math-quarter-integer math-round math-setup-declarations math-sqr math-sqr-float math-trunc-fancy math-trunc-special) ("calc-bin" calcFunc-and calcFunc-ash calcFunc-clip calcFunc-diff calcFunc-lsh calcFunc-not calcFunc-or calcFunc-rash calcFunc-rot calcFunc-rsh calcFunc-xor math-clip math-compute-max-digits math-convert-radix-digits math-float-parts math-format-bignum-binary math-format-bignum-hex math-format-bignum-octal math-format-bignum-radix math-format-binary math-format-radix math-format-radix-float math-integer-log2 math-power-of-2 math-radix-float-power) ("calc-comb" calc-report-prime-test calcFunc-choose calcFunc-dfact calcFunc-egcd calcFunc-fact calcFunc-gcd calcFunc-lcm calcFunc-moebius calcFunc-nextprime calcFunc-perm calcFunc-prevprime calcFunc-prfac calcFunc-prime calcFunc-random calcFunc-shuffle calcFunc-stir1 calcFunc-stir2 calcFunc-totient math-init-random-base math-member math-prime-test math-random-base) ("calccomp" calcFunc-cascent calcFunc-cdescent calcFunc-cheight calcFunc-cwidth math-comp-ascent math-comp-descent math-comp-height math-comp-width math-compose-expr math-composition-to-string math-stack-value-offset-fancy math-vector-is-string math-vector-to-string) ("calc-cplx" calcFunc-arg calcFunc-conj calcFunc-im calcFunc-polar calcFunc-re calcFunc-rect math-complex math-fix-circular math-imaginary math-imaginary-i math-normalize-polar math-polar math-want-polar) ("calc-embed" calc-do-embedded calc-do-embedded-activate calc-embedded-evaluate-expr calc-embedded-modes-change calc-embedded-var-change calc-embedded-preserve-modes) ("calc-fin" calc-to-percentage calcFunc-ddb calcFunc-fv calcFunc-fvb calcFunc-fvl calcFunc-irr calcFunc-irrb calcFunc-nper calcFunc-nperb calcFunc-nperl calcFunc-npv calcFunc-npvb calcFunc-pmt calcFunc-pmtb calcFunc-pv calcFunc-pvb calcFunc-pvl calcFunc-rate calcFunc-rateb calcFunc-ratel calcFunc-sln calcFunc-syd) ("calc-forms" calcFunc-badd calcFunc-bsub calcFunc-date calcFunc-day calcFunc-dsadj calcFunc-hms calcFunc-holiday calcFunc-hour calcFunc-incmonth calcFunc-incyear calcFunc-intv calcFunc-julian calcFunc-makemod calcFunc-minute calcFunc-month calcFunc-newmonth calcFunc-newweek calcFunc-newyear calcFunc-now calcFunc-pwday calcFunc-sdev calcFunc-second calcFunc-time calcFunc-tzconv calcFunc-tzone calcFunc-unixtime calcFunc-weekday calcFunc-year calcFunc-yearday math-combine-intervals math-date-parts math-date-to-dt math-div-mod math-dt-to-date math-format-date math-from-business-day math-from-hms math-make-intv math-make-mod math-make-sdev math-mod-intv math-normalize-hms math-normalize-mod math-parse-date math-read-angle-brackets math-setup-add-holidays math-setup-holidays math-setup-year-holidays math-sort-intv math-to-business-day math-to-hms) ("calc-frac" calc-add-fractions calc-div-fractions calc-mul-fractions calcFunc-fdiv calcFunc-frac math-make-frac) ("calc-funcs" calc-prob-dist calcFunc-bern calcFunc-besJ calcFunc-besY calcFunc-beta calcFunc-betaB calcFunc-betaI calcFunc-erf calcFunc-erfc calcFunc-euler calcFunc-gamma calcFunc-gammaG calcFunc-gammaP calcFunc-gammaQ calcFunc-gammag calcFunc-ltpb calcFunc-ltpc calcFunc-ltpf calcFunc-ltpn calcFunc-ltpp calcFunc-ltpt calcFunc-utpb calcFunc-utpc calcFunc-utpf calcFunc-utpn calcFunc-utpp calcFunc-utpt math-bernoulli-number math-gammap1-raw) ("calc-graph" calc-graph-show-tty) ("calc-incom" calc-digit-dots) ("calc-keypd" calc-do-keypad calc-keypad-x-left-click calc-keypad-x-middle-click calc-keypad-x-right-click) ("calc-lang" calc-set-language math-read-big-balance math-read-big-rec) ("calc-map" calc-get-operator calcFunc-accum calcFunc-afixp calcFunc-anest calcFunc-apply calcFunc-call calcFunc-fixp calcFunc-inner calcFunc-map calcFunc-mapa calcFunc-mapc calcFunc-mapd calcFunc-mapeq calcFunc-mapeqp calcFunc-mapeqr calcFunc-mapr calcFunc-nest calcFunc-outer calcFunc-raccum calcFunc-reduce calcFunc-reducea calcFunc-reducec calcFunc-reduced calcFunc-reducer calcFunc-rreduce calcFunc-rreducea calcFunc-rreducec calcFunc-rreduced calcFunc-rreducer math-build-call math-calcFunc-to-var math-multi-subst math-multi-subst-rec math-var-to-calcFunc) ("calc-mtx" calcFunc-det calcFunc-lud calcFunc-tr math-col-matrix math-lud-solve math-matrix-inv-raw math-matrix-lud math-mul-mat-vec math-mul-mats math-row-matrix) ("calc-math" calcFunc-alog calcFunc-arccos calcFunc-arccosh calcFunc-arcsin calcFunc-arcsincos calcFunc-arcsinh calcFunc-arctan calcFunc-arctan2 calcFunc-arctanh calcFunc-csc calcFunc-csch calcFunc-cos calcFunc-cosh calcFunc-cot calcFunc-coth calcFunc-deg calcFunc-exp calcFunc-exp10 calcFunc-expm1 calcFunc-hypot calcFunc-ilog calcFunc-isqrt calcFunc-ln calcFunc-lnp1 calcFunc-log calcFunc-log10 calcFunc-nroot calcFunc-rad calcFunc-sec calcFunc-sech calcFunc-sin calcFunc-sincos calcFunc-sinh calcFunc-sqr calcFunc-sqrt calcFunc-tan calcFunc-tanh math-arccos-raw math-arcsin-raw math-arctan-raw math-arctan2-raw math-cos-raw math-cot-raw math-csc-raw math-exp-minus-1-raw math-exp-raw math-from-radians math-from-radians-2 math-hypot math-infinite-dir math-isqrt-small math-ln-raw math-nearly-equal math-nearly-equal-float math-nearly-zerop math-nearly-zerop-float math-nth-root math-sin-cos-raw math-sin-raw math-sqrt math-sqrt-float math-sqrt-raw math-tan-raw math-to-radians math-to-radians-2) ("calc-mode" math-get-modes-vec) ("calc-poly" calcFunc-apart calcFunc-expand calcFunc-expandpow calcFunc-factor calcFunc-factors calcFunc-nrat calcFunc-pcont calcFunc-pdeg calcFunc-pdiv calcFunc-pdivide calcFunc-pdivrem calcFunc-pgcd calcFunc-plead calcFunc-pprim calcFunc-prem math-accum-factors math-atomic-factorp math-div-poly-const math-div-thru math-expand-power math-expand-term math-factor-contains math-factor-expr math-factor-expr-part math-factor-expr-try math-factor-finish math-factor-poly-coefs math-factor-protect math-mul-thru math-padded-polynomial math-partial-fractions math-poly-degree math-poly-deriv-coefs math-poly-gcd-frac-list math-poly-modulus-rec math-ratpoly-p math-to-ratpoly math-to-ratpoly-rec) ("calc-prog" calc-default-formula-arglist calc-execute-kbd-macro calc-finish-user-syntax-edit calc-fix-token-name calc-fix-user-formula calc-read-parse-table calc-read-parse-table-part calc-subsetp calc-write-parse-table calc-write-parse-table-part calcFunc-constant calcFunc-eq calcFunc-geq calcFunc-gt calcFunc-if calcFunc-in calcFunc-integer calcFunc-istrue calcFunc-land calcFunc-leq calcFunc-lnot calcFunc-lor calcFunc-lt calcFunc-negative calcFunc-neq calcFunc-nonvar calcFunc-real calcFunc-refers calcFunc-rmeq calcFunc-typeof calcFunc-variable math-body-refers-to math-break math-composite-inequalities math-do-defmath math-handle-for math-handle-foreach math-normalize-logical-op math-return) ("calc-rewr" calcFunc-match calcFunc-matches calcFunc-matchnot calcFunc-rewrite calcFunc-vmatches math-apply-rewrites math-compile-patterns math-compile-rewrites math-flatten-lands math-match-patterns math-rewrite math-rewrite-heads) ("calc-rules" calc-CommuteRules calc-DistribRules calc-FactorRules calc-FitRules calc-IntegAfterRules calc-InvertRules calc-JumpRules calc-MergeRules calc-NegateRules calc-compile-rule-set) ("calc-sel" calc-auto-selection calc-delete-selection calc-encase-atoms calc-find-assoc-parent-formula calc-find-parent-formula calc-find-sub-formula calc-prepare-selection calc-preserve-point calc-replace-selections calc-replace-sub-formula calc-roll-down-with-selections calc-roll-up-with-selections calc-sel-error) ("calc-stat" calc-vector-op calcFunc-agmean calcFunc-vcorr calcFunc-vcount calcFunc-vcov calcFunc-vflat calcFunc-vgmean calcFunc-vhmean calcFunc-vmax calcFunc-vmean calcFunc-vmeane calcFunc-vmedian calcFunc-vmin calcFunc-vpcov calcFunc-vprod calcFunc-vpsdev calcFunc-vpvar calcFunc-vsdev calcFunc-vsum calcFunc-vvar math-flatten-many-vecs) ("calc-store" calc-read-var-name calc-store-value calc-var-name) ("calc-stuff" calc-explain-why calcFunc-clean calcFunc-pclean calcFunc-pfloat calcFunc-pfrac) ("calc-units" calcFunc-usimplify calcFunc-lufieldadd calcFunc-lupoweradd calcFunc-lufieldsub calcFunc-lupowersub calcFunc-lufieldmul calcFunc-lupowermul calcFunc-lufielddiv calcFunc-lupowerdiv calcFunc-fieldquant calcFunc-powerquant calcFunc-dbfieldlevel calcFunc-dbpowerlevel calcFunc-npfieldlevel calcFunc-nppowerlevel calcFunc-spn calcFunc-midi calcFunc-freq math-build-units-table math-build-units-table-buffer math-check-unit-name math-convert-temperature math-convert-units math-extract-units math-remove-units math-simplify-units math-single-units-in-expr-p math-to-standard-units math-units-in-expr-p) ("calc-vec" calcFunc-append calcFunc-appendrev calcFunc-arrange calcFunc-cnorm calcFunc-cons calcFunc-cross calcFunc-kron calcFunc-ctrn calcFunc-cvec calcFunc-diag calcFunc-find calcFunc-getdiag calcFunc-grade calcFunc-head calcFunc-histogram calcFunc-idn calcFunc-index calcFunc-mcol calcFunc-mdims calcFunc-mrcol calcFunc-mrow calcFunc-mrrow calcFunc-pack calcFunc-rcons calcFunc-rdup calcFunc-rev calcFunc-rgrade calcFunc-rhead calcFunc-rnorm calcFunc-rsort calcFunc-rsubvec calcFunc-rtail calcFunc-sort calcFunc-subscr calcFunc-subvec calcFunc-tail calcFunc-trn calcFunc-unpack calcFunc-unpackt calcFunc-vcard calcFunc-vcompl calcFunc-vconcat calcFunc-vconcatrev calcFunc-vdiff calcFunc-vec calcFunc-venum calcFunc-vexp calcFunc-vfloor calcFunc-vint calcFunc-vlen calcFunc-vmask calcFunc-vpack calcFunc-vspan calcFunc-vunion calcFunc-vunpack calcFunc-vxor math-check-for-commas math-clean-set math-copy-matrix math-dimension-error math-dot-product math-flatten-vector math-map-vec math-map-vec-2 math-mat-col math-mimic-ident math-prepare-set math-read-brackets math-reduce-cols math-reduce-vec math-transpose) ("calc-yank" calc-alg-edit calc-clean-newlines calc-do-grab-rectangle calc-do-grab-region calc-finish-stack-edit calc-copy-to-register calc-insert-register calc-append-to-register calc-prepend-to-register calc-force-refresh calc-locate-cursor-element calc-show-edit-buffer)) mapcar #[(x) "\301\302A\"\207" [x mapcar #[(cmd) "\302	@\303\304$\207" [cmd x autoload nil t] 5]] 3] (("calc-alg" calc-alg-evaluate calc-apart calc-collect calc-expand calc-expand-formula calc-factor calc-normalize-rat calc-poly-div calc-poly-div-rem calc-poly-gcd calc-poly-rem calc-simplify calc-simplify-extended calc-substitute calc-powerexpand) ("calcalg2" calc-alt-summation calc-derivative calc-dump-integral-cache calc-integral calc-num-integral calc-poly-roots calc-product calc-solve-for calc-summation calc-tabulate calc-taylor) ("calcalg3" calc-curve-fit calc-find-maximum calc-find-minimum calc-find-root calc-poly-interp) ("calc-arith" calc-abs calc-abssqr calc-ceiling calc-decrement calc-floor calc-idiv calc-increment calc-mant-part calc-max calc-min calc-round calc-scale-float calc-sign calc-trunc calc-xpon-part) ("calc-bin" calc-and calc-binary-radix calc-clip calc-twos-complement-mode calc-decimal-radix calc-diff calc-hex-radix calc-leading-zeros calc-lshift-arith calc-lshift-binary calc-not calc-octal-radix calc-or calc-radix calc-rotate-binary calc-rshift-arith calc-rshift-binary calc-word-size calc-xor) ("calc-comb" calc-choose calc-double-factorial calc-extended-gcd calc-factorial calc-gamma calc-gcd calc-lcm calc-moebius calc-next-prime calc-perm calc-prev-prime calc-prime-factors calc-prime-test calc-random calc-random-again calc-rrandom calc-shuffle calc-totient) ("calc-cplx" calc-argument calc-complex-notation calc-i-notation calc-im calc-j-notation calc-polar calc-polar-mode calc-re) ("calc-embed" calc-embedded-copy-formula-as-kill calc-embedded-duplicate calc-embedded-edit calc-embedded-forget calc-embedded-kill-formula calc-embedded-mark-formula calc-embedded-new-formula calc-embedded-next calc-embedded-previous calc-embedded-select calc-embedded-update-formula calc-embedded-word calc-find-globals calc-show-plain) ("calc-fin" calc-convert-percent calc-fin-ddb calc-fin-fv calc-fin-irr calc-fin-nper calc-fin-npv calc-fin-pmt calc-fin-pv calc-fin-rate calc-fin-sln calc-fin-syd calc-percent-change) ("calc-forms" calc-business-days-minus calc-business-days-plus calc-convert-time-zones calc-date calc-date-notation calc-date-part calc-from-hms calc-hms-mode calc-hms-notation calc-inc-month calc-julian calc-new-month calc-new-week calc-new-year calc-now calc-time calc-time-zone calc-to-hms calc-unix-time) ("calc-frac" calc-fdiv calc-frac-mode calc-fraction calc-over-notation calc-slash-notation) ("calc-funcs" calc-bernoulli-number calc-bessel-J calc-bessel-Y calc-beta calc-erf calc-erfc calc-euler-number calc-inc-beta calc-inc-gamma calc-stirling-number calc-utpb calc-utpc calc-utpf calc-utpn calc-utpp calc-utpt) ("calc-graph" calc-graph-add calc-graph-add-3d calc-graph-border calc-graph-clear calc-graph-command calc-graph-delete calc-graph-device calc-graph-display calc-graph-fast calc-graph-fast-3d calc-graph-geometry calc-graph-grid calc-graph-header calc-graph-hide calc-graph-juggle calc-graph-key calc-graph-kill calc-graph-line-style calc-graph-log-x calc-graph-log-y calc-graph-log-z calc-graph-name calc-graph-num-points calc-graph-output calc-graph-plot calc-graph-point-style calc-graph-print calc-graph-quit calc-graph-range-x calc-graph-range-y calc-graph-range-z calc-graph-show-dumb calc-graph-title-x calc-graph-title-y calc-graph-title-z calc-graph-view-commands calc-graph-view-trail calc-graph-zero-x calc-graph-zero-y) ("calc-help" calc-a-prefix-help calc-b-prefix-help calc-c-prefix-help calc-d-prefix-help calc-describe-function calc-describe-key calc-describe-key-briefly calc-describe-variable calc-f-prefix-help calc-full-help calc-g-prefix-help calc-help-prefix calc-hyperbolic-prefix-help calc-inv-hyp-prefix-help calc-option-prefix-help calc-inverse-prefix-help calc-j-prefix-help calc-k-prefix-help calc-m-prefix-help calc-r-prefix-help calc-s-prefix-help calc-t-prefix-help calc-u-prefix-help calc-l-prefix-help calc-v-prefix-help) ("calc-incom" calc-begin-complex calc-begin-vector calc-comma calc-dots calc-end-complex calc-end-vector calc-semi) ("calc-keypd" calc-keypad-menu calc-keypad-menu-back calc-keypad-press) ("calc-lang" calc-big-language calc-c-language calc-eqn-language calc-flat-language calc-fortran-language calc-maple-language calc-yacas-language calc-maxima-language calc-giac-language calc-mathematica-language calc-normal-language calc-pascal-language calc-tex-language calc-latex-language calc-unformatted-language) ("calc-map" calc-accumulate calc-apply calc-inner-product calc-map calc-map-equation calc-map-stack calc-outer-product calc-reduce) ("calc-mtx" calc-mdet calc-mlud calc-mtrace) ("calc-math" calc-arccos calc-arccosh calc-arcsin calc-arcsinh calc-arctan calc-arctan2 calc-arctanh calc-conj calc-cos calc-cosh calc-cot calc-coth calc-csc calc-csch calc-degrees-mode calc-exp calc-expm1 calc-hypot calc-ilog calc-imaginary calc-isqrt calc-ln calc-lnp1 calc-log calc-log10 calc-pi calc-radians-mode calc-sec calc-sech calc-sin calc-sincos calc-sinh calc-sqrt calc-tan calc-tanh calc-to-degrees calc-to-radians) ("calc-mode" calc-alg-simplify-mode calc-algebraic-mode calc-always-load-extensions calc-auto-recompute calc-auto-why calc-bin-simplify-mode calc-break-vectors calc-center-justify calc-default-simplify-mode calc-display-raw calc-eng-notation calc-ext-simplify-mode calc-fix-notation calc-full-trail-vectors calc-full-vectors calc-get-modes calc-group-char calc-group-digits calc-infinite-mode calc-left-justify calc-left-label calc-line-breaking calc-line-numbering calc-matrix-brackets calc-matrix-center-justify calc-matrix-left-justify calc-matrix-mode calc-matrix-right-justify calc-mode-record-mode calc-no-simplify-mode calc-normal-notation calc-num-simplify-mode calc-point-char calc-right-justify calc-right-label calc-save-modes calc-sci-notation calc-settings-file-name calc-shift-prefix calc-symbolic-mode calc-total-algebraic-mode calc-truncate-down calc-truncate-stack calc-truncate-up calc-units-simplify-mode calc-vector-braces calc-vector-brackets calc-vector-commas calc-vector-parens calc-working) ("calc-prog" calc-call-last-kbd-macro calc-edit-user-syntax calc-equal-to calc-get-user-defn calc-greater-equal calc-greater-than calc-in-set calc-kbd-break calc-kbd-else calc-kbd-else-if calc-kbd-end-for calc-kbd-end-if calc-kbd-end-loop calc-kbd-end-repeat calc-kbd-for calc-kbd-if calc-kbd-loop calc-kbd-pop calc-kbd-push calc-kbd-query calc-kbd-repeat calc-kbd-report calc-less-equal calc-less-than calc-logical-and calc-logical-if calc-logical-not calc-logical-or calc-not-equal-to calc-pass-errors calc-remove-equal calc-timing calc-user-define calc-user-define-composition calc-user-define-edit calc-user-define-formula calc-user-define-invocation calc-user-define-kbd-macro calc-user-define-permanent calc-user-undefine) ("calc-rewr" calc-match calc-rewrite calc-rewrite-selection) ("calc-sel" calc-break-selections calc-clear-selections calc-copy-selection calc-del-selection calc-edit-selection calc-enable-selections calc-enter-selection calc-sel-add-both-sides calc-sel-div-both-sides calc-sel-evaluate calc-sel-expand-formula calc-sel-mult-both-sides calc-sel-sub-both-sides calc-select-additional calc-select-here calc-select-here-maybe calc-select-less calc-select-more calc-select-next calc-select-once calc-select-once-maybe calc-select-part calc-select-previous calc-show-selections calc-unselect) ("calcsel2" calc-commute-left calc-commute-right calc-sel-commute calc-sel-distribute calc-sel-invert calc-sel-isolate calc-sel-jump-equals calc-sel-merge calc-sel-negate calc-sel-unpack) ("calc-stat" calc-vector-correlation calc-vector-count calc-vector-covariance calc-vector-geometric-mean calc-vector-harmonic-mean calc-vector-max calc-vector-mean calc-vector-mean-error calc-vector-median calc-vector-min calc-vector-pop-covariance calc-vector-pop-sdev calc-vector-pop-variance calc-vector-product calc-vector-sdev calc-vector-sum calc-vector-variance) ("calc-store" calc-assign calc-copy-special-constant calc-copy-variable calc-declare-variable calc-edit-AlgSimpRules calc-edit-Decls calc-edit-EvalRules calc-edit-ExtSimpRules calc-edit-FitRules calc-edit-GenCount calc-edit-Holidays calc-edit-IntegLimit calc-edit-LineStyles calc-edit-PlotRejects calc-edit-PointStyles calc-edit-TimeZone calc-edit-Units calc-edit-variable calc-evalto calc-insert-variables calc-let calc-permanent-variable calc-recall calc-recall-quick calc-store calc-store-concat calc-store-decr calc-store-div calc-store-exchange calc-store-incr calc-store-into calc-store-into-quick calc-store-inv calc-store-map calc-store-minus calc-store-neg calc-store-plus calc-store-power calc-store-quick calc-store-times calc-subscript calc-unstore) ("calc-stuff" calc-clean calc-clean-num calc-flush-caches calc-less-recursion-depth calc-more-recursion-depth calc-num-prefix calc-why) ("calc-trail" calc-trail-backward calc-trail-first calc-trail-forward calc-trail-in calc-trail-isearch-backward calc-trail-isearch-forward calc-trail-kill calc-trail-last calc-trail-marker calc-trail-next calc-trail-out calc-trail-previous calc-trail-scroll-left calc-trail-scroll-right calc-trail-yank) ("calc-undo" calc-last-args calc-redo) ("calc-units" calc-autorange-units calc-base-units calc-convert-temperature calc-convert-units calc-define-unit calc-enter-units-table calc-explain-units calc-extract-units calc-get-unit-definition calc-permanent-units calc-quick-units calc-remove-units calc-simplify-units calc-undefine-unit calc-view-units-table calc-logunits-quantity calc-dblevel calc-nplevel calc-logunits-add calc-logunits-sub calc-logunits-mul calc-logunits-divide calc-spn calc-midi calc-freq) ("calc-vec" calc-arrange-vector calc-build-vector calc-cnorm calc-conj-transpose calc-cons calc-cross calc-kron calc-diag calc-display-strings calc-expand-vector calc-grade calc-head calc-histogram calc-ident calc-index calc-mask-vector calc-mcol calc-mrow calc-pack calc-pack-bits calc-remove-duplicates calc-reverse-vector calc-rnorm calc-set-cardinality calc-set-complement calc-set-difference calc-set-enumerate calc-set-floor calc-set-intersect calc-set-span calc-set-union calc-set-xor calc-sort calc-subvector calc-tail calc-transpose calc-unpack calc-unpack-bits calc-vector-find calc-vlength) ("calc-yank" calc-copy-as-kill calc-copy-region-as-kill calc-copy-to-buffer calc-edit calc-edit-cancel calc-edit-mode calc-kill calc-kill-region calc-yank))] 7])
(defalias 'calc-init-prefixes #[nil "\203p\302	\303\304	\305\"#\210\302	\306\304	\307\"#\210\302	\310\304	\311\"#\210\302	\312\304	\313\"#\210\302	\314\304	\315\"#\210\302	\316\304	\317\"#\210\302	\320\304	\321\"#\210\302	\322\304	\323\"#\210\302	\324\304	\325\"#\210\302	\326\304	\327\"#\210\302	\330\304	\331\"#\210\302	\332\304	\333\"#\207\302	\303\334#\210\302	\306\335#\210\302	\310\336#\210\302	\312\337#\210\302	\314\340#\210\302	\316\341#\210\302	\320\342#\210\302	\322\343#\210\302	\324\344#\210\302	\326\345#\210\302	\330\346#\210\302	\332\347#\207" [calc-shift-prefix calc-mode-map define-key "A" lookup-key "a" "B" "b" "C" "c" "D" "d" "F" "f" "G" "g" "J" "j" "K" "k" "M" "m" "S" "s" "T" "t" "U" "u" calc-abs calc-log calc-cos calc-redo calc-floor calc-argument calc-conj calc-keep-args calc-more-recursion-depth calc-sin calc-tan calc-undo] 6])
(calc-init-extensions)
(defalias 'calc-clear-command-flag #[(f) "\302	\"\211\207" [f calc-command-flags delq] 3])
(defalias 'calc-record-message #[(tag &rest args) "\303\304\"\305\306	\"\210\307	\n\"\210)\310\311!\207" [args msg tag apply format message "%s" calc-record calc-clear-command-flag clear-message] 3])
(defalias 'calc-normalize-fancy #[(val) ":\203\n@\202\211\304=\203)\305\n!\306!\203$\307\310!!\202%)\202P	\311=\2035\312\n!\202P	\313=\203A\314\n!\202P	\315=\203M\316\n!\202P\305\n!)\207" [calc-simplify-mode simp val s binary math-normalize math-realp math-clip math-round alg math-simplify ext math-simplify-extended units math-simplify-units] 4])
(byte-code "\301B\302\301!\204\303\301\304\"\210	\204v\305 \306	\307\310#\210\306	\311\312#\210\306	\313\314#\210\306	\315\316#\210\306	\317\320#\210\306	\321\322#\210\306	\323\324#\210\306	\325\326#\210\306	\327\330#\210\306	\331\332#\210\306	\333\334#\210\306	\335\336#\210\306	\337\324#\210\306	\340\341#\210\306	\342\343#\210\306	\344\343#\210\345B\302\345!\204\205\303\345\346\"\210\304\207" [current-load-list calc-help-map default-boundp set-default nil make-keymap define-key "b" calc-describe-bindings "c" calc-describe-key-briefly "f" calc-describe-function "h" calc-full-help "i" calc-info "k" calc-describe-key "n" calc-view-news "s" calc-info-summary "t" calc-tutorial "v" calc-describe-variable "" calc-describe-copying "" calc-describe-distribution "" "" calc-describe-no-warranty "?" calc-help-for-help "" calc-prefix-help-phase 0] 4)
(defalias 'calc-do-prefix-help #[(msgs group key) "\203		\nE\207	A\203f\f
=\203T	GT\246\202\306\211	8\307\310\203T\n\311\312\313\314\315\316\317	\"\"GZ\320\"\321\203N\322\323!\324Q\202O\325\260\202`\203_\326\327\"\202`\325\"\210)\202\214\306\203\205	\203|\307\330\n	@$\210\202\214\307\331\n#\210\202\214\307\332\n	@#\210\205\223\333!\207" [calc-full-help-flag msgs group key this-command last-command 0 message "%s" ": " ":" make-string apply max mapcar length 32 "  [MORE]" "  " char-to-string "-" "" format "%c-" "%s: %s: %c-" "%s: (none)  %c-" "%s: %s" calc-unread-command calc-prefix-help-phase msg] 13])
(defalias 'calc-reset #[(arg) "\205\306!	\2032	\307Hp\232\2032`	\310HX\2032`	\311HY\2032	\312H\313\314\213\210\315\316!*\207\f\317=\203\214\212\203E\320!\307V\204G\316\316\211\316\211\211\211 !\"\321\322#\"\210\203n\307X\203n\323 \210\202q\324 \210,\325\316\211\313#\210\317 \210\326\313!\210\327\330!\210)\331\332!\210\333\334!\207\333\335!\207" [arg calc-embedded-info calc-embedded-quiet cbuf major-mode calc-stack prefix-numeric-value 0 5 4 1 t ((byte-code "\302\303!\210q\210\304	!\207" [cbuf arg calc-embedded nil calc-reset] 2)) calc-embedded nil calc-mode abs mapc #[(v) "\301L\207" [v nil] 2] calc-mode-var-list-restore-default-values calc-mode-var-list-restore-saved-values calc-set-language calc-flush-caches run-hooks calc-reset-hook calc-do #[nil "\304p!\305\306!\210\2055\307 ?\2055\310!\311Z\312`\"\210	\nU\2064\313 \314!\210\315\n	Z!\210\314!)))\207" [win height calc-window-height swin get-buffer-window calc-realign 0 window-full-height-p window-height 2 set-window-point selected-window select-window enlarge-window] 3] message "(Calculator reset)" "(Not inside a Calc buffer)" calc-undo-list calc-redo-list calc-invocation-macro calc-standard-date-formats calc-user-parse-tables calc-local-var-list] 5 nil "P"])
(defalias 'calc-scroll-left #[(n) "\206\302 \303\245\304\305!\207" [n prefix-arg window-width 2 call-interactively scroll-left] 2 nil "P"])
(defalias 'calc-scroll-right #[(n) "\206\302 \303\245\304\305!\207" [n prefix-arg window-width 2 call-interactively scroll-right] 2 nil "P"])
(defalias 'calc-scroll-up #[(n) "\301\302\303\217\210\304\305d\306Z]!\205+\307=\203\310 \207db\210\311\312 \212\313 S[y\210`)\"\210\314y\207" [major-mode err (byte-code "\301\206	\302 \303\245!\207" [n scroll-up window-height 2] 3) ((error)) pos-visible-in-window-p 1 2 calc-mode calc-realign set-window-start selected-window window-height -1] 4 nil "P"])
(defalias 'calc-scroll-down #[(n) "\301\302!\206\303\206\304 \305\245!\207" [n pos-visible-in-window-p 1 scroll-down window-height 2] 3 nil "P"])
(defalias 'calc-precision #[(n) "\300\301!\207" [calc-do #[nil "\304!\305W\203\306\307!\210\2021\310\303\304!	@\311>\205*	A@\n\312U\203(\313\202)\314W#\210\315\316\"\210\317\320\"\207" [n calc-float-format calc-number-radix calc-internal-prec prefix-numeric-value 3 error "Precision must be at least 3 digits" calc-change-mode (float sci eng) 10 0 1 calc-record "prec" message "Floating-point precision is %d digits"] 6]] 2 nil "NPrecision: "])
(defalias 'calc-inverse #[(&optional n) "\306=\204\f\307=\203r	q\210\n)\202\n\306=\204#\307=\203,r	q\210\f)\202-\f\211\203:\203:\310\202K\203B\311\202K
\203J\312\202K\313\314\315#+\207" [major-mode calc-main-buffer calc-hyperbolic-flag hyp-flag calc-option-flag opt-flag calc-keypad-mode calc-trail-mode "Option Inverse Hyperbolic..." "Inverse Hyperbolic..." "Option Inverse..." "Inverse..." calc-fancy-prefix calc-inverse-flag msg n] 5 nil "P"])
#@49 Keymap used while processing calc-fancy-prefix.
(defconst calc-fancy-prefix-map (byte-code "\302 \303\304\305#\210\303\306	\307\"\305#\210\303\310\311#\210\303\312\313#\210\303\314\315#\210\303\316\315#\210\303\317\315#\210\303\320\315#\210\303\321\315#\210\303\322\315#\210\303\323\315#\210\303\324\315#\210\303\325\315#\210\303\326\315#\210)\207" [map meta-prefix-char make-sparse-keymap define-key [t] calc-fancy-prefix-other-key vector t [switch-frame] nil [21] universal-argument [48] digit-argument [49] [50] [51] [52] [53] [54] [55] [56] [57]] 5) (#$ . 57466))
(byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list calc-is-keypad-press default-boundp set-default nil] 3)
(defalias 'calc-fancy-prefix #[(flag msg n) "\306\307\310!\210\205`	?\205`\311\303!\203\n\211\202`\312\313!\211@\211\314=\203-\315 \202_
\250\203D
\316Y\203H
\317W\203H
\320>\204H\307\321!\210\fA\211\250\203V
\322=\203[\323 \202_\324!))\207" [prefix calc-is-keypad-press calc-fancy-prefix-map overriding-terminal-local-map event last-command-event nil calc-do #[nil "\305\306!\210\305\307!\210\211J?L\n\310\311	\203\f\202\312\"\207" [flag prefix n prefix-arg msg calc-set-command-flag keep-flags no-align message "%s" ""] 3] boundp calc-read-key t 21 universal-argument 0 32 (27) #[nil "\300\207" [nil] 1] 45 calc-unread-command digit-argument n] 3])
(defalias 'calc-fancy-prefix-other-key #[(arg) "\305=\204'\306=\204'\250\203#\307Y\203'\310W\203'	=\204'\311\312!\210\n\313 \210\314\211\207" [last-command-event meta-prefix-char arg prefix-arg overriding-terminal-local-map tab M-tab 0 32 calc-do #[nil "\300\207" [nil] 1] calc-unread-command nil] 2 nil "P"])
(defalias 'calc-invert-func #[nil "\212\303 \210\304 ?\305 \306\211)\207" [calc-inverse-flag calc-hyperbolic-flag current-prefix-arg calc-select-buffer calc-is-inverse calc-is-hyperbolic nil] 2])
(defalias 'calc-is-inverse #[nil "\207" [calc-inverse-flag] 1])
(defalias 'calc-hyperbolic #[(&optional n) "\306=\204\f\307=\203r	q\210\n)\202\n\306=\204#\307=\203,r	q\210\f)\202-\f\211\203:\203:\310\202K
\203B\311\202K\203J\312\202K\313\314\315#+\207" [major-mode calc-main-buffer calc-inverse-flag inv-flag calc-option-flag opt-flag calc-keypad-mode calc-trail-mode "Option Inverse Hyperbolic..." "Option Hyperbolic..." "Inverse Hyperbolic..." "Hyperbolic..." calc-fancy-prefix calc-hyperbolic-flag msg n] 5 nil "P"])
(defalias 'calc-hyperbolic-func #[nil "\212\303 \210\304 \305 ?\306\211)\207" [calc-inverse-flag calc-hyperbolic-flag current-prefix-arg calc-select-buffer calc-is-inverse calc-is-hyperbolic nil] 2])
(defalias 'calc-is-hyperbolic #[nil "\207" [calc-hyperbolic-flag] 1])
(defalias 'calc-option #[(&optional n) "\306=\204\f\307=\203r	q\210\n)\202\n\306=\204#\307=\203,r	q\210\f)\202-\f\211\203:\203:\310\202K
\203B\311\202K\203J\312\202K\313\314\315#+\207" [major-mode calc-main-buffer calc-inverse-flag inv-flag calc-hyperbolic-flag hyp-flag calc-keypad-mode calc-trail-mode "Option Inverse Hyperbolic..." "Option Hyperbolic..." "Option Inverse..." "Option..." calc-fancy-prefix calc-option-flag msg n] 5 nil "P"])
(defalias 'calc-is-option #[nil "\207" [calc-option-flag] 1])
(defalias 'calc-keep-args #[(&optional n) "\301\302\303#\207" [n calc-fancy-prefix calc-keep-args-flag "Keep args..."] 4 nil "P"])
(defalias 'calc-change-mode #[(var value &optional refresh option) "\203	\203\306	!\307V\202\nJ?\n:\204\nC	C\203`\310
\204-\311\312!\210\313\314!\210\315\216\n\203T@J\fB@	@L\210A	A\2026\316\314!\210\317 \210\n@J+\207\310\n\203\245@J	@\232\204\232@	@L\210@\320=\203\227	@@\321=\203\220\322\202\223	@@\307D\323A	A\202f\203\306
\203\263\324 \204\266\317 \210\325=\203\306\n\326\232\204\306\327 \210\203\317\330\n!\210\n@J*\207" [option value var calc-inverse-flag old refresh prefix-numeric-value 0 nil error "Not a display-mode command" calc-check-stack 1 ((byte-code "\n\237	\203	@\n@L\210	A\nA\202@\303=\203%\305\f\306#\210)\303\207" [var v old calc-language calc-language-option calc-set-language t] 4)) calc-refresh-top calc-refresh-evaltos calc-float-format fix float t calc-do-refresh save (calc-mode-save-mode) calc-save-modes calc-embedded-modes-change v chg calc-full-float-format calc-mode-save-mode calc-embedded-info] 2])
#@78 Toggle display of the friendly greeting calc normally shows above the stack.
(defalias 'calc-toggle-banner #[nil "?\301 \207" [calc-show-banner calc-refresh] 1 (#$ . 61903) nil])
(defalias 'calc-refresh-top #[(n) "\300\301!\207" [calc-do #[nil "\305W\203$[\306\303\"\307\211\310\311\312#\210\313@C\3148C#+\207\305U\203-\315 \207\316\311\303#\307\211\310\311\312#\210\313\317\320\f\"\311\317\321\f\"#+\207" [n calc-redo-list calc-undo-list entry entries 0 calc-top nil calc-pop-stack 1 t calc-push-list 2 calc-refresh calc-top-list mapcar car #[(x) "\3018\207" [x 2] 2]] 6]] 2 nil "p"])
(byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\304\"\210\304\207" [current-load-list calc-refreshing-evaltos default-boundp set-default nil calc-no-refresh-evaltos] 3)
(defalias 'calc-refresh-evaltos #[(&optional which-var) "\203q	\203q\n\204q\306\307 \310\211\211\211\311V\203o\312\313\"\314\f8\204f\f@\211\203f\f\242\315=\204M\f\242\316=\203f\fA@\242\315=\203f\317\f!\211\f\232\204f\320C\"\210\321\322T\306#\210S\211\202.\205\205\323!\207" [calc-any-evaltos calc-auto-recompute calc-no-refresh-evaltos new-val value calc-redo-list t calc-stack-size nil 0 calc-top entry 2 calcFunc-evalto vec math-normalize calc-push-list calc-pop-stack 1 calc-embedded-var-change calc-undo-list num calc-refreshing-evaltos calc-embedded-active which-var] 7])
(defalias 'calc-push #[(&rest vals) "\301!\207" [vals calc-push-list] 2])
(defalias 'calc-pop-push #[(n &rest vals) "\302	\"\207" [n vals calc-pop-push-list] 3])
(defalias 'calc-pop-push-record #[(n prefix &rest vals) "\303	\n#\207" [n prefix vals calc-pop-push-record-list] 4])
(defalias 'calc-evaluate #[(n) "\300\301`\"\207" [calc-do #[nil "\302U\203	\303 	\304>?\205	\302W\203(\305\306\307\310\311[!![$\210\2023\305\307\312\310\313!\"#\210)\314 \207" [n calc-simplify-mode 0 calc-stack-size (none num) calc-pop-push-record-list 1 "eval" math-evaluate-expr calc-top mapcar calc-top-list calc-handle-whys] 7]] 3 nil "p"])
(defalias 'calc-eval-num #[(n) "\300\301`\"\207" [calc-do #[nil "\305!\211\306Y\203	\202	\307W\203\n	\\\306]\202\n\310\f\311>?\205(\f\312\313\314\315\316\313!!#\210,\317 \207" [n nn calc-internal-prec calc-symbolic-mode calc-simplify-mode prefix-numeric-value 3 0 nil (none num) calc-pop-push-record 1 "num" math-evaluate-expr calc-top calc-handle-whys] 7]] 3 nil "P"])
#@53 The history list for calc-execute-extended-command.
(defvar calc-extended-command-history nil (#$ . 64371))
(defalias 'calc-execute-extended-command #[(n) "\305!\306P\307\310	\n\311\312\313\314&!\315!*\207" [n prompt obarray cmd prefix-arg calc-num-prefix-name "M-x " intern completing-read commandp t "calc-" calc-extended-command-history command-execute] 8 nil "P"])
(defalias 'calc-realign #[(&optional num) "\203	\305=\203\306!\210\307!\210\n\205;\310u\207\2038p\311H=\2038\312Hb\210r\313Hq\210\f)\205;\313y\207\314\315!\207" [num major-mode calc-line-numbering calc-embedded-info calc-show-plain calc-mode calc-check-stack calc-cursor-stack-index 4 0 2 1 calc-do #[nil "\300p!\205\f\301\300p!\302\"\207" [get-buffer-window set-window-hscroll 0] 3]] 3 nil "P"])
(byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list math-cache-list default-boundp set-default nil] 3)
(defalias 'calc-var-value #[(v) "9\205>\302!\205>J\205>J9\203\211J L\207J;\203<\303J!\211\242\304=\2037\304\305\306	8\"\202:	L)\207J\207" [v val boundp math-read-expr error "Bad format in variable contents: %s" 2] 5])
(byte-code "\301B\302\303!\210\304B\305\304!\204\306\304\307\"\210\310B\305\310!\204&\306\310\311\"\210\312B\305\312!\2045\306\312\313\"\210\314B\305\314!\204D\306\314\315\"\210\316B\305\316!\204S\306\316\317\"\210\320B\305\320!\204b\306\320\321\"\210\322B\323\324!\207" [current-load-list calc-assoc-ops (lambda (#1=#:defconst-tmp-var) (defconst calc-assoc-ops #1#)) ((+ (+ -) (+)) (- (+ -) (+)) (* (*) (*)) (/ (/) nil) (| (|) (|)) (calcFunc-land (calcFunc-land) (calcFunc-land)) (calcFunc-lor (calcFunc-lor) (calcFunc-lor))) var-CommuteRules default-boundp set-default calc-CommuteRules var-JumpRules calc-JumpRules var-DistribRules calc-DistribRules var-MergeRules calc-MergeRules var-NegateRules calc-NegateRules var-InvertRules calc-InvertRules calc-tweak-eqn-table (lambda (#2=#:defconst-tmp-var) (defconst calc-tweak-eqn-table #2#)) ((calcFunc-eq calcFunc-eq calcFunc-neq) (calcFunc-neq calcFunc-neq calcFunc-eq) (calcFunc-lt calcFunc-gt calcFunc-geq) (calcFunc-gt calcFunc-lt calcFunc-leq) (calcFunc-leq calcFunc-geq calcFunc-gt) (calcFunc-geq calcFunc-leq calcFunc-lt))] 3)
(defalias 'calc-float #[(arg) "\300\301`\"\207" [calc-do #[nil "\301\302\303 \203\304\202\f\305#\207" [arg calc-unary-op "flt" calc-is-hyperbolic calcFunc-float calcFunc-pfloat] 4]] 3 nil "P"])
(byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list calc-gnuplot-process default-boundp set-default nil] 3)
(defalias 'calc-gnuplot-alive #[nil "\205	\205\303	!\205\n\205\303\n!\205\304!\305>\207" [calc-gnuplot-process calc-gnuplot-buffer calc-gnuplot-input buffer-name process-status (run stop)] 2])
(defalias 'calc-load-everything #[nil "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\210\300\311!\210\300\312!\210\300\313!\210\300\314!\210\300\315!\210\300\316!\210\300\317!\210\300\320!\210\300\321!\210\300\322!\210\300\323!\210\300\324!\210\300\325!\210\300\326!\210\300\327!\210\300\330!\210\300\331!\210\300\332!\210\300\333!\210\300\334!\210\300\335!\210\300\336!\210\300\337!\210\300\340!\210\300\341!\210\300\342!\210\300\343!\210\300\344!\210\300\345!\210\300\346!\210\300\347!\210\350\351!\207" [require calc-aent calc-alg calc-arith calc-bin calc-comb calc-cplx calc-embed calc-fin calc-forms calc-frac calc-funcs calc-graph calc-help calc-incom calc-keypd calc-lang calc-macs calc-map calc-math calc-misc calc-mode calc-mtx calc-poly calc-prog calc-rewr calc-rules calc-sel calc-stat calc-store calc-stuff calc-trail calc-undo calc-units calc-vec calc-yank calcalg2 calcalg3 calccomp calcsel2 message "All parts of Calc are now loaded"] 2 nil nil])
(defalias 'calc-concat #[(arg) "\300\301!\207" [calc-do #[nil "\301 \203$\302 \203\303\304\305\306\307\310!\307\304!E#\207\303\304\311\312\307\310!\307\304!E#\207\302 \2030\313\305\306\314$\207\313\311\312\315\316\317&\207" [arg calc-is-inverse calc-is-hyperbolic calc-enter-result 2 "apnd" calcFunc-append calc-top 1 "|" calcFunc-vconcat calc-binary-op (vec) (vec) nil |] 7]] 2 nil "P"])
(defalias 'calc-append #[(arg) "\301 \210\302!\207" [arg calc-hyperbolic-func calc-concat] 2 nil "P"])
(byte-code "\301B\302\303!\207" [current-load-list calc-arg-values (lambda (#1=#:defconst-tmp-var) (defconst calc-arg-values #1#)) ((var ArgA var-ArgA) (var ArgB var-ArgB) (var ArgC var-ArgC) (var ArgD var-ArgD) (var ArgE var-ArgE) (var ArgF var-ArgF) (var ArgG var-ArgG) (var ArgH var-ArgH) (var ArgI var-ArgI) (var ArgJ var-ArgJ))] 2)
(defalias 'calc-invent-args #[(n) "G	Z\302!\233\237\207" [calc-arg-values n reverse] 3])
(defalias 'calc-user-key-map #[nil "\302\303\"A\211@@\304=\203	A\202	)\207" [calc-mode-map res lookup-key "z" 27] 4])
(byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\304\"\210\304\207" [current-load-list calc-z-prefix-buf default-boundp set-default nil calc-z-prefix-msgs] 3)
(defalias 'calc-z-prefix-help #[nil "\304\305\306\307\310 !\311\"\312\313\314\315\n\"\"\316\317\"\320U\203%\321\n\322\"\210\2025\321\n\323\"\210	B\305\321\n\324\"\210\320U\204?	B\325\237\326\327#,\207" [calc-z-prefix-msgs calc-z-prefix-buf kmap flags nil "" sort copy-sequence calc-user-key-map #[(x y) "@	@W\207" [x y] 2] apply logior mapcar #[(k) "\301@!\207" [k calc-user-function-classify] 2] logand 8 0 calc-user-function-list 7 1 6 calc-do-prefix-help "user" 122] 5 nil nil])
(defalias 'calc-user-function-classify #[(key) "\211\227U\204\227\301 \236\203\302\207\303\207\211\226U\204\304\207\305U\203$\306\207\307\207" [key calc-user-key-map 9 1 2 63 0 4] 2])
(defalias 'calc-user-function-list #[(map flags) "\205\312@@\306	!@A\307\n\f\"\310U\204\3049\203\304\311!\312\313
\"\2030
\314\315O\2021
\312\316	!
\"9\203t\307\n\317\"\310U\203P\320\321	
#\202x\203j\320\322
\310O\227	\226
T\315O\227$\202x\320\323	\226
\227#\202x\316	\226!G\310U\203\225\f\324U\203\214\325\202\215\326P\202\303GG\\\327V\203\273B\f\324U\203\262\325\202\263\326P\202\303\330Q,\331A\f\"+\207" [map key kind func flags name calc-user-function-classify logand 0 symbol-name string-match "\\`calc-" 5 nil char-to-string 3 format "`%c' = %s" "%s%c%s" "%c = %s" 1 "SHIFT + " "" 58 ", " calc-user-function-list pos desc calc-z-prefix-buf calc-z-prefix-msgs] 7])
(defalias 'calc-shift-Z-prefix-help #[nil "\300\301\302\303#\207" [calc-do-prefix-help ("Define, Undefine, Formula, Kbd-macro, Edit, Get-defn" "Composition, Syntax; Invocation; Permanent; Timing" "kbd-macros: [ (if), : (else), | (else-if), ] (end-if)" "kbd-macros: < > (repeat), ( ) (for), { } (loop)" "kbd-macros: / (break)" "kbd-macros: ` (save), ' (restore)") "user" 90] 4 nil nil])
(defalias 'math-defcache '(macro . #[(name init form) "\306\307!\310P!\306\307!\311P!\306\307!\312P!\306\307!\313P!\314\315\f\316\317
D\320\321\322
EDD
\321\322\320\323
DDED\324BBBE\315\316\317
D
D
\323
DD\325
DFE\315\n\326E\315	\327E\330\331\332\333\fD\332\333\nD\331EEE\334\327\335\336\n\337E\330	\340\314\335\341\f\337E\330\342\343%E\f\344\257EED\n\337\257E	\257\257,\207" [name last-val last-prec cache-val cache-prec init intern symbol-name "-cache-prec" "-cache" "-last-prec" "-last" progn defvar cond consp math-numdigs nth 1 eval ((t -100)) t -100 nil setq math-cache-list cons quote defun or = calc-internal-prec math-normalize >= let ((calc-internal-prec (+ calc-internal-prec 4))) (+ calc-internal-prec 2) form] 22]))
(put 'math-defcache 'lisp-indent-hook 2)
#@26 An approximation for pi.
(defconst math-approx-pi (math-read-number-simple "3.141592653589793238463") (#$ . 72048))
(byte-code "\303B\304\303!\204*\305\303	:\203\306	A@!\202(	\203'\306\307	!!A@\202(\310\"\210\311B\304\311!\204L\305\311	:\203?	\202J	\203I\307	!\202J	\"\210\312B\304\312!\204[\305\312\310\"\210\313B\304\313!\204j\305\313\314\"\210\303\312\nBB\314\207" [current-load-list math-approx-pi math-cache-list math-pi-cache-prec default-boundp set-default math-numdigs eval -100 math-pi-cache math-pi-last-prec math-pi-last nil] 5)
(defalias 'math-pi #[nil "	U\204,\305\n	Y\204'	\306\\\307\310\311\312\313!\"\310\314\312\315\316!!\"\")	\317\\!	\f\207" [math-pi-last-prec calc-internal-prec math-pi-cache-prec math-pi-cache math-pi-last math-normalize 4 math-add-float math-mul-float (float 16 0) math-arctan-raw (float 2 -1) (float -4 0) math-float (frac 1 239) 2] 8])
(byte-code "\302B\303\302!\204\304\302\305\"\210\306B\303\306!\204\304\306\307\"\210\310B\303\310!\204-\304\310\305\"\210\311B\303\311!\204<\304\311\307\"\210\302\310	BB\307\207" [current-load-list math-cache-list math-two-pi-cache-prec default-boundp set-default -100 math-two-pi-cache nil math-two-pi-last-prec math-two-pi-last] 3)
(defalias 'math-two-pi #[nil "	U\204!\305\n	Y\204	\306\\\307\310 \311\")	\312\\!	\f\207" [math-two-pi-last-prec calc-internal-prec math-two-pi-cache-prec math-two-pi-cache math-two-pi-last math-normalize 4 math-mul-float math-pi (float 2 0) 2] 4])
(byte-code "\302B\303\302!\204\304\302\305\"\210\306B\303\306!\204\304\306\307\"\210\310B\303\310!\204-\304\310\305\"\210\311B\303\311!\204<\304\311\307\"\210\302\310	BB\307\207" [current-load-list math-cache-list math-pi-over-2-cache-prec default-boundp set-default -100 math-pi-over-2-cache nil math-pi-over-2-last-prec math-pi-over-2-last] 3)
(defalias 'math-pi-over-2 #[nil "	U\204!\305\n	Y\204	\306\\\307\310 \311\")	\312\\!	\f\207" [math-pi-over-2-last-prec calc-internal-prec math-pi-over-2-cache-prec math-pi-over-2-cache math-pi-over-2-last math-normalize 4 math-mul-float math-pi (float 5 -1) 2] 4])
(byte-code "\302B\303\302!\204\304\302\305\"\210\306B\303\306!\204\304\306\307\"\210\310B\303\310!\204-\304\310\305\"\210\311B\303\311!\204<\304\311\307\"\210\302\310	BB\307\207" [current-load-list math-cache-list math-pi-over-4-cache-prec default-boundp set-default -100 math-pi-over-4-cache nil math-pi-over-4-last-prec math-pi-over-4-last] 3)
(defalias 'math-pi-over-4 #[nil "	U\204!\305\n	Y\204	\306\\\307\310 \311\")	\312\\!	\f\207" [math-pi-over-4-last-prec calc-internal-prec math-pi-over-4-cache-prec math-pi-over-4-cache math-pi-over-4-last math-normalize 4 math-mul-float math-pi (float 25 -2) 2] 4])
(byte-code "\302B\303\302!\204\304\302\305\"\210\306B\303\306!\204\304\306\307\"\210\310B\303\310!\204-\304\310\305\"\210\311B\303\311!\204<\304\311\307\"\210\302\310	BB\307\207" [current-load-list math-cache-list math-pi-over-180-cache-prec default-boundp set-default -100 math-pi-over-180-cache nil math-pi-over-180-last-prec math-pi-over-180-last] 3)
(defalias 'math-pi-over-180 #[nil "	U\204!\305\n	Y\204	\306\\\307\310 \311\")	\312\\!	\f\207" [math-pi-over-180-last-prec calc-internal-prec math-pi-over-180-cache-prec math-pi-over-180-cache math-pi-over-180-last math-normalize 4 math-div-float math-pi (float 18 1) 2] 4])
(byte-code "\302B\303\302!\204\304\302\305\"\210\306B\303\306!\204\304\306\307\"\210\310B\303\310!\204-\304\310\305\"\210\311B\303\311!\204<\304\311\307\"\210\302\310	BB\307\207" [current-load-list math-cache-list math-sqrt-pi-cache-prec default-boundp set-default -100 math-sqrt-pi-cache nil math-sqrt-pi-last-prec math-sqrt-pi-last] 3)
(defalias 'math-sqrt-pi #[nil "	U\204 \305\n	Y\204	\306\\\307\310 !)	\311\\!	\f\207" [math-sqrt-pi-last-prec calc-internal-prec math-sqrt-pi-cache-prec math-sqrt-pi-cache math-sqrt-pi-last math-normalize 4 math-sqrt-float math-pi 2] 3])
(byte-code "\302B\303\302!\204\304\302\305\"\210\306B\303\306!\204\304\306\307\"\210\310B\303\310!\204-\304\310\305\"\210\311B\303\311!\204<\304\311\307\"\210\302\310	BB\307\207" [current-load-list math-cache-list math-sqrt-2-cache-prec default-boundp set-default -100 math-sqrt-2-cache nil math-sqrt-2-last-prec math-sqrt-2-last] 3)
(defalias 'math-sqrt-2 #[nil "	U\204\305\n	Y\204	\306\\\307\310!)	\311\\!	\f\207" [math-sqrt-2-last-prec calc-internal-prec math-sqrt-2-cache-prec math-sqrt-2-cache math-sqrt-2-last math-normalize 4 math-sqrt-float (float 2 0) 2] 3])
(byte-code "\302B\303\302!\204\304\302\305\"\210\306B\303\306!\204\304\306\307\"\210\310B\303\310!\204-\304\310\305\"\210\311B\303\311!\204<\304\311\307\"\210\302\310	BB\307\207" [current-load-list math-cache-list math-sqrt-12-cache-prec default-boundp set-default -100 math-sqrt-12-cache nil math-sqrt-12-last-prec math-sqrt-12-last] 3)
(defalias 'math-sqrt-12 #[nil "	U\204\305\n	Y\204	\306\\\307\310!)	\311\\!	\f\207" [math-sqrt-12-last-prec calc-internal-prec math-sqrt-12-cache-prec math-sqrt-12-cache math-sqrt-12-last math-normalize 4 math-sqrt-float (float 12 0) 2] 3])
(byte-code "\302B\303\302!\204\304\302\305\"\210\306B\303\306!\204\304\306\307\"\210\310B\303\310!\204-\304\310\305\"\210\311B\303\311!\204<\304\311\307\"\210\302\310	BB\307\207" [current-load-list math-cache-list math-sqrt-two-pi-cache-prec default-boundp set-default -100 math-sqrt-two-pi-cache nil math-sqrt-two-pi-last-prec math-sqrt-two-pi-last] 3)
(defalias 'math-sqrt-two-pi #[nil "	U\204 \305\n	Y\204	\306\\\307\310 !)	\311\\!	\f\207" [math-sqrt-two-pi-last-prec calc-internal-prec math-sqrt-two-pi-cache-prec math-sqrt-two-pi-cache math-sqrt-two-pi-last math-normalize 4 math-sqrt-float math-two-pi 2] 3])
#@31 An approximation for sqrt(3).
(defconst math-approx-sqrt-e (math-read-number-simple "1.648721270700128146849") (#$ . 77931))
(byte-code "\303B\304\303!\204*\305\303	:\203\306	A@!\202(	\203'\306\307	!!A@\202(\310\"\210\311B\304\311!\204L\305\311	:\203?	\202J	\203I\307	!\202J	\"\210\312B\304\312!\204[\305\312\310\"\210\313B\304\313!\204j\305\313\314\"\210\303\312\nBB\314\207" [current-load-list math-approx-sqrt-e math-cache-list math-sqrt-e-cache-prec default-boundp set-default math-numdigs eval -100 math-sqrt-e-cache math-sqrt-e-last-prec math-sqrt-e-last nil] 5)
(defalias 'math-sqrt-e #[nil "	U\204\"\305\n	Y\204	\306\\\307\310\311\312!\")	\313\\!	\f\207" [math-sqrt-e-last-prec calc-internal-prec math-sqrt-e-cache-prec math-sqrt-e-cache math-sqrt-e-last math-normalize 4 math-add-float (float 1 0) math-exp-minus-1-raw (float 5 -1) 2] 5])
(byte-code "\302B\303\302!\204\304\302\305\"\210\306B\303\306!\204\304\306\307\"\210\310B\303\310!\204-\304\310\305\"\210\311B\303\311!\204<\304\311\307\"\210\302\310	BB\307\207" [current-load-list math-cache-list math-e-cache-prec default-boundp set-default -100 math-e-cache nil math-e-last-prec math-e-last] 3)
(defalias 'math-e #[nil "	U\204!\305\n	Y\204	\306\\\307\310 \311\")	\311\\!	\f\207" [math-e-last-prec calc-internal-prec math-e-cache-prec math-e-cache math-e-last math-normalize 4 math-pow math-sqrt-e 2] 4])
(byte-code "\302B\303\302!\204\304\302\305\"\210\306B\303\306!\204\304\306\307\"\210\310B\303\310!\204-\304\310\305\"\210\311B\303\311!\204<\304\311\307\"\210\302\310	BB\307\207" [current-load-list math-cache-list math-phi-cache-prec default-boundp set-default -100 math-phi-cache nil math-phi-last-prec math-phi-last] 3)
(defalias 'math-phi #[nil "	U\204%\305\n	Y\204 	\306\\\307\310\311\312!\313\"\314\")	\315\\!	\f\207" [math-phi-last-prec calc-internal-prec math-phi-cache-prec math-phi-cache math-phi-last math-normalize 4 math-mul-float math-add-float math-sqrt-raw (float 5 0) (float 1 0) (float 5 -1) 2] 5])
#@29 An approximation for gamma.
(defconst math-approx-gamma-const (math-read-number-simple "0.5772156649015328606065120900824024310421593359399235988057672348848677267776646709369470632917467495") (#$ . 80005))
(byte-code "\302B\303\302!\204\304\302\305\"\210\306B\303\306!\204\304\306\307\"\210\310B\303\310!\204-\304\310\305\"\210\311B\303\311!\204<\304\311\307\"\210\302\310	BB\307\207" [current-load-list math-cache-list math-gamma-const-cache-prec default-boundp set-default -100 math-gamma-const-cache nil math-gamma-const-last-prec math-gamma-const-last] 3)
(defalias 'math-gamma-const #[nil "	U\204\306\n	Y\204	\307\\)	\310\\\f!	
\207" [math-gamma-const-last-prec calc-internal-prec math-gamma-const-cache-prec math-approx-gamma-const math-gamma-const-cache math-gamma-const-last math-normalize 4 2] 3])
(defalias 'math-half-circle #[(symb) "\302=\203	\203\f\303\207\304 \207\305\207" [calc-angle-mode symb rad (var pi var-pi) math-pi 180] 2])
(defalias 'math-full-circle #[(symb) "\301\302\303!\"\207" [symb math-mul 2 math-half-circle] 4])
(defalias 'math-quarter-circle #[(symb) "\301\302!\303\"\207" [symb math-div math-half-circle 2] 3])
(byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list math-expand-formulas default-boundp set-default nil] 3)
(defalias 'math-oddp #[(a) ":\203@\301>\205A@\302\246\303U\207\302\246\304U?\207" [a (bigpos bigneg) 2 1 0] 2])
(defalias 'math-integerp #[(a) "\250\206	\242\301>\207" [a (bigpos bigneg)] 2])
(defalias 'math-natnump #[(a) "\301!\206\n\242\302=\207" [a natnump bigpos] 2])
(defalias 'math-ratp #[(a) "\250\206	\242\301>\207" [a (bigpos bigneg frac)] 2])
(defalias 'math-realp #[(a) "\250\206	\242\301>\207" [a (bigpos bigneg frac float)] 2])
(defalias 'math-anglep #[(a) "\250\206	\242\301>\207" [a (bigpos bigneg frac float hms)] 2])
(defalias 'math-numberp #[(a) "\250\206	\242\301>\207" [a (bigpos bigneg frac float cplx polar)] 2])
(defalias 'math-scalarp #[(a) "\250\206	\242\301>\207" [a (bigpos bigneg frac float cplx polar hms)] 2])
(defalias 'math-vectorp #[(a) "\242\301=\207" [a vec] 2])
(defalias 'math-objvecp #[(a) "\250\206	\242\301>\207" [a (bigpos bigneg frac float cplx polar hms date sdev intv mod vec incomplete)] 2])
(defalias 'math-primp #[(a) "\250\206	\242\301>\207" [a (bigpos bigneg frac float cplx polar hms date mod var)] 2])
(defalias 'math-messy-integerp #[(a) "\242\301=\203
\3028\303Y\207\242\304=\205#\305!\211:?\206\"@\306>)\207" [a float 2 0 frac math-normalize (bigpos bigneg)] 3])
(defalias 'math-num-integerp #[(a) "\211:?\206\f@\301>)\206$\211:\205#@\302=\205#\3038\304Y)\207" [a (bigpos bigneg) float 2 0] 3])
(defalias 'math-num-natnump #[(a) "\301!\2060\242\302=\2060\242\303=\2050A@\211:\203$@\302=\202'\304Y)\2050\3058\304Y\207" [a natnump bigpos float 0 2] 3])
(defalias 'math-provably-integerp #[(a) "\211:?\206\f@\301>)\206\242\302>\205G\303U\207" [a (bigpos bigneg) (calcFunc-trunc calcFunc-round calcFunc-rounde calcFunc-roundu calcFunc-floor calcFunc-ceil) 2] 3])
(defalias 'math-provably-realp #[(a) "\211:?\206\f@\301>)\206\302!\206\242\303>\207" [a (bigpos bigneg frac float) math-provably-integerp (abs arg)] 3])
(defalias 'math-complexp #[(a) "\242\301>\207" [a (cplx polar)] 2])
(defalias 'math-rect-complexp #[(a) "\242\301=\207" [a cplx] 2])
(defalias 'math-polar-complexp #[(a) "\242\301=\207" [a polar] 2])
(defalias 'math-matrixp #[(a) "\211:\205@\302=)\205QA@\211:\205@\302=)\205QA@A\205QA@GAA\211\203N@\211:\205B@\302=)\203N@G	U\204/)?\207" [a len vec] 3])
(defalias 'math-matrixp-step #[(a len) "?\206\"@\211:\205@\302=)\205\"@G	U\205\"\303A	\"\207" [a len vec math-matrixp-step] 4])
(defalias 'math-square-matrixp #[(a) "\302!\211A\205	@	A@U)\207" [a dims math-mat-dimens] 3])
(defalias 'math-identity-matrix-p #[(mat &optional mul) "\305!\2059	\203A@A@\202\306GS\306\nX\2031\307\n8\n\f#\2031\nT\211\202\nV\2058\f+\207" [mat mul i n a math-square-matrixp 1 math-ident-row-p] 5])
(defalias 'math-ident-row-p #[(row n &optional a) "\204\303\304\305\306	T\n\233\">?\205)\304\305\307\310\nA\nG	Z\"\">?\205)\n	\234=\207" [a n row 1 nil mapcar #[(x) "\301=\207" [x 0] 2] #[(x) "\301=\207" [x 0] 2] butlast] 7])
(defalias 'math-objectp #[(a) "\250\206	\242\301>\207" [a (bigpos bigneg frac float cplx polar hms date sdev intv mod)] 2])
(defalias 'math-check-integer #[(a) "\250\203\207\301!\203\207\302!\203\303!\207\304\305\"\207" [a math-integerp math-messy-integerp math-trunc math-reject-arg integerp] 3])
(defalias 'math-check-fixnum #[(a &optional allow-inf) "\250\203\207\211:?\206\"@\303>\206\"@\304=\205\"\3058\306Y)\203b\307!\211\250\2033\202`\310\311\211\"\312	\"\311U*\204V\310\311\211\"[\312	\"\311U*\203]\313\314\"\202`\315!)\207\n\203q\316\232\203q\310\311\211\"\207\n\203\201\317\232\203\201\310\311\211\"[\207\313\314\"\207" [a b allow-inf (bigpos bigneg) float 2 0 math-trunc lsh -1 math-compare math-reject-arg fixnump math-fixnum (var inf var-inf) (neg (var inf var-inf))] 5])
(defalias 'math-check-natnum #[(a) "\301!\203\207\302!\2041\211:?\206)@\303>\206)@\304=\205)\3058\306Y)\2031\307!\207\310\301\"\207" [a natnump math-negp (bigpos bigneg) float 2 0 math-trunc math-reject-arg] 4])
(defalias 'math-check-float #[(a) "\242\301=\203	\207\211:\205@\302=)\203\303\304\"\207\211:?\206)@\305>)\2031\306!\207\207" [a float vec math-map-vec math-check-float (bigpos bigneg frac float cplx polar hms date sdev intv mod) math-float] 4])
(defalias 'math-check-const #[(a &optional exp-ok) "\303!\204	\203\n\203\207\304\305\"\207" [a exp-ok math-expand-formulas math-constp math-reject-arg constp] 3])
#@78 Get the mean value of the error form X.
If X is not an error form, return X.
(defalias 'math-get-value #[(x) "\242\301=\203A@\207\207" [x sdev] 2 (#$ . 85865)])
#@86 Get the standard deviation of the error form X.
If X is not an error form, return 1.
(defalias 'math-get-sdev #[(x &optional one) "\242\302=\203\3038\207	\203\304\207\305\207" [x one sdev 2 1 0] 2 (#$ . 86037)])
#@48 Non-nil if the list LS contains an error form.
(defalias 'math-contains-sdev-p #[(ls) "\242\301=\203\fA\202
\302\303\304\">)\207" [ls vec t mapcar #[(x) "\242\301=\207" [x sdev] 2]] 4 (#$ . 86261)])
(defalias 'math-fixnum #[(a) ":\203A\203@\301=\203\302A![\207\302A!\207\303\207\207" [a bigneg math-fixnum-big 0] 2])
(defalias 'math-fixnum-big #[(a) "A\203@\302A!	_\\\207@\207" [a math-bignum-digit-size math-fixnum-big] 3])
(byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list math-simplify-only default-boundp set-default nil] 3)
(defalias 'math-normalize-fancy #[(a) "@\306=\203\307\310A@!\310\3118!\"\207@\312=\203;\310A@!\310\3118!\313	!\2035\2045\n\2029\312\n	E*\207@\314=\203F\315!\207@\316=\203Q\317!\207@\320=\203`\320\310A@!D\207@\321=\203k\322!\207@\323=\203\313\310A@!\310\3118!\211\211:?\206\212@\324>)\203\236
\211:?\206\232@\325>)\203\276\f\211:?\206\252@\324>)\203\305\f\211:?\206\272@\325>)\204\305\326
\fE\202\311\327
\f\"*\207@\330=\203R\310A@!\310\3118!\310\3318!-./.\242\320=\203\370-\242\320=?\202:.\211:?\206@\324>)\203.\211:?\206@\332>)\203=-\211:?\206'@\324>)\203H-\211:?\2068@\332>)?\203H\333/.-F\202P\334/.-#+\207@\335=\203a\335\336\310A\"B\207@\337=\203n\310A@!\207@\340=\203\2100\341>?\20500\310A@!)\207@\342=\203\224\342AB\207@\343=\203\237\344!\207@\345>\203\263\3460@\336\310A\")B\207@\347=\203\nA@\206\301\3501\204\317\3460\310!)\242\351=\203\343G\331U\203\343\3118\202\3442\3470\346=\203\366\3102!\2020\341>?\20500\3522!)E)\207@\250\204@:\205#A\204 \310@!\207\353\354!\207" [a imag real math-simplify-only s x frac math-make-frac math-normalize 2 cplx math-zerop polar math-normalize-polar hms math-normalize-hms date mod math-normalize-mod sdev (bigpos bigneg frac float cplx polar hms date sdev intv mod) (bigpos bigneg frac float cplx polar hms) calcFunc-sdev math-make-sdev intv 3 (bigpos bigneg frac float hms) calcFunc-intv math-make-intv vec mapcar quote special-const (none num) var calcFunc-if math-normalize-logical-op (calcFunc-lambda calcFunc-quote calcFunc-condition) none calcFunc-evalto 0 calcFunc-assign math-evaluate-expr error "Can't use multi-valued function in an expression" hi lo mask calc-simplify-mode calc-refreshing-evaltos b] 6])
(defalias 'math-normalize-nonstandard #[nil ":\203
\304	\243\242\305\207	@9\205I\304=\204A\306=\205I	@\307\310	A\"B\211\211\203<\311@!\203<A\211\204.)\205I	@\307\310	A\"B\207" [calc-simplify-mode math-normalize-a math-simplify-only aptr none nil num mapcar math-normalize math-constp] 5])
(defalias 'math-norm-bignum #[(a) "\303\211\203\n@\304=\204\n\nA\211\204	\205!	\303\241\210*\207" [a last digs nil 0] 3])
(defalias 'math-bignum-test #[(a) ":\203\207\301!\207" [a math-bignum] 2])
(defalias 'calcFunc-sign #[(a &optional x) "\303!\211\304=\203\n\206S\305\202S	\306=\203\307\202S	\305=\2030\n\203,\310\n!\202S\311\202S\312!\203@\310\313\310!!!\202S\314\315\"\210\n\203P\313\nE\202S\313D)\207" [a signs x math-possible-signs 4 1 2 0 math-neg -1 math-looks-negp calcFunc-sign calc-record-why realp] 5])
(defalias 'math-compare #[(a b) "	\232\203:\203@\305>\203\306!\203\307\207\310\207\250\203K	\211:?\206-@\311>)\203K	:\203A	@\312=\203?\313\207\314\207	W\203I\313\207\314\207\242\312=\203r	\211:?\206^@\311>)\203r	\242\312=\203p\315A	A\"\207\314\207\242\316=\203\231	\211:?\206\205@\311>)\203\231	\242\316=\203\227\315	AA\"\207\313\207\242\317=\203\306	\242\317=\203\272\320\321A@\307	8\"\321	A@\3078\"\"\207\320A@\321	\3078\"\"\207	\242\317=\203\331\320\321\307	8\"	A@\"\207\242\322=\203\362	\242\322=\203\362\323	\"\203\360\313\207\314\207\242\324=\203		\242\324=\203	\320A@	A@\"\207\211:?\206@\325>)\204(@\326=\203P\3078\310=\203P	\211:?\2064@\325>)\204G	@\326=\203P\307	8\310=\203P\327\330\331	!\"!\207\242\332=\203\267	\211:?\206c@\325>)\204n	\242\324=\203\267\320\3078	\"\211\314=\203\314\202\265\n\310=\203\221A@\333>\203\221\314\202\265\320\3348	\"\211\313=\203\242\313\202\265\n\310=\203\264A@\335>\203\264\313\202\265\307)\207	\242\332=\203\211:?\206\312@\325>)\204\325\242\324=\203\320\307	8\"\211\313=\203\346\313\202\n\310=\203\370	A@\336>\203\370\313\202\320\334	8\"\211\314=\203	\314\202\n\310=\203	A@\337>\203\314\202\307)\207\242\332=\203\211	\242\332=\203\211\320\3348\307	8\"\211\313=\203?\313\202\207\n\310=\203YA@\340>\204U	A@\341>\203Y\313\202\207\320\3078\334	8\"\211\314=\203l\314\202\207\n\310=\203\206A@\342>\204\202	A@\343>\203\206\314\202\207\307)\207\306!\203\367\344\232\204\233\345\232\203\235\307\207\346!\306	!\203\340	\347\232\204\263	\350\232\203\267\307\202\365\346	!\314=\203\313\f\313=\203\313\314\202\334\313=\203\333\f\314=\203\333\313\202\334\307)\202\365\314=\203\352\314\202\365\313=\203\364\313\202\365\307)\207\306	!\203&	\351\232\204		\352\232\203\307\207\346	!\211\314=\203\313\202$\f\313=\203#\314\202$\307)\207\242\353=\203E	\242\354=\203E	A@\355\232\203E\320A@\307	8\"\207	\242\353=\203d\242\354=\203dA@\356\232\203d\320\3078	A@\"\207\242\357=\203\202	\242\354=\203\202\307	8\360\232\204\240\307	8\361\232\204\240	\242\357=\203\251\242\354=\203\251\3078\362\232\204\240\3078\363\232\203\251\320A@	A@\"\207\242\364=\203\262\307\207:\203\317	:\203\317@	@=\203\317\365A	A\"\203\317\310\207\307\207" [a b res dira dirb (var neg * /) math-infinitep 2 0 (bigpos bigneg) bigpos -1 1 math-compare-bignum bigneg frac math-compare math-mul float math-lessp-float date (bigpos bigneg frac float hms) cplx calcFunc-sign math-add math-neg intv (0 1) 3 (0 2) (0 1) (0 2) (0 2) (0 1) (0 1) (0 2) (var uinf var-uinf) (var nan var-nan) math-infinite-dir (var uinf var-uinf) (var nan var-nan) (var uinf var-uinf) (var nan var-nan) calcFunc-exp ^ (var e var-e) (var e var-e) calcFunc-sqrt (frac 1 2) (float 5 -1) (frac 1 2) (float 5 -1) var math-compare-lists] 7])
(defalias 'math-compare-bignum #[(a b) "\303	\203*\n\203*	@\n@W\203\304\202!	@\n@V\203!\305	A\nA\202	\203H	@\303=\203<	A\211\202/	\203D\305\202_\202_\n@\303=\203V\nA\211\202I\n\203^\304\202_)\207" [res a b 0 -1 1] 3])
(defalias 'math-compare-lists #[(a b) "\204	?\207	\204
\302\207@	@\303	\"\304U*\205#\305A	A\"\207" [a b nil math-compare 0 math-compare-lists] 3])
(defalias 'math-lessp-float #[(a b) "\3048\304	8Z\211\305Y\203a\n\211\\Y\203LA@\305=\2035	A@\211:\203.@\306=\2021\305V)\202\264A@\211:\203E@\307=\202H\305W)\202\264\310A@\n\"	A@\311	\"\312U*\202\264\n[\211\211\\Y\203\242	A@\305=\203\213A@\211:\203\204@\307=\202\207\305W)\202\264	A@\211:\203\233@\306=\202\236\305V)\202\264A@\310	A@\n\"\311	\"\312U*)\207" [a b ediff calc-internal-prec 2 0 bigpos bigneg math-scale-int math-compare -1] 5])
(defalias 'math-equal #[(a b) "\302	\"\303U\207" [a b math-compare 0] 3])
(defalias 'math-lessp #[(a b) "\302	\"\303U\207" [a b math-compare -1] 3])
(defalias 'math-equal-int #[(a b) "	=\206\242\302=\205A@	=\205\3038\304U\207" [a b float 2 0] 2])
(defalias 'math-mat-dimens #[(m) "\301!\205\302!\203GS\303A@!B\207GSC\207" [m math-vectorp math-matrixp math-mat-dimens] 3])
(defalias 'calc-binary-op-fancy #[(name func arg ident unary) "\306!\211\307V\203\310	\n\311\312!\313\314	!BE#\202]	\307U\2031\f\205]\310\307\n\f\315\307!D#\202]	\316U\203I
\203C\310\316\n
#\202]\317\320!\202]\315\307!\310\307	Z\n\321\322\314	[\323\"\"#))\207" [arg n name func unary ident prefix-numeric-value 1 calc-enter-result calcFunc-reduce math-calcFunc-to-var vec calc-top-list-n calc-top-n 0 error "Argument must be nonzero" mapcar #[(x) "	\nE\207" [func x rhs] 3] 2 rhs] 9])
(defalias 'calc-unary-op-fancy #[(name func arg) "\304!\211\305U\203
\306 	\305V\203 \307	\n\310\311\312	!\"#\2022	\305W\2052\307\313\n\314	[!D	[$)\207" [arg n name func prefix-numeric-value 0 calc-stack-size calc-enter-result mapcar #[(x) "	D\207" [func x] 2] calc-top-list-n 1 calc-top-n] 8])
(byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\306C\"\210\301\207" [current-load-list var-Holidays default-boundp set-default (vec (var sat var-sat) (var sun var-sun)) var-Decls vec] 3)
(defalias 'math-inexact-result #[nil "\205\301\302\303\"\207" [calc-symbolic-mode signal inexact-result nil] 3])
(defalias 'math-overflow #[(&optional exp) "\203
\301!\203
\302 \207\303\304\305\"\207" [exp math-negp math-underflow signal math-overflow nil] 3])
(defalias 'math-underflow #[nil "\300\301\302\"\207" [signal math-underflow nil] 3])
(defalias 'math-gcd #[(a b) ":\204>	:\204>\303W\203[	\303W\203	[\304	W\203*	\n	\303V\203;		\246\n\202*)\207\303=\203F	\207	\303=\203N\207\211:\203\\@\305=\202_\303W)\203g\306!	\211:\203u@\305=\202x\303W)\203\200\306	!\304	\211:\203\233	:\205\243\307A	A\"\310U\202\243	:\206\243	W*\203\255	\n:\203\305	\303=\204\305	\311	\"\n\211\202\256	\303V\203\326		\246\n\202\305)\207" [a b c 0 nil bigneg math-neg math-compare-bignum -1 math-imod] 4])
(defalias 'math-evaluate-expr #[(x) "\203\302	!\207\303\304	!!\207" [calc-embedded-info x calc-embedded-evaluate-expr calc-normalize math-evaluate-expr-rec] 3])
(defalias 'calcFunc-evalv 'math-evaluate-expr)
(defalias 'calcFunc-evalvn #[(x &optional prec) "\203P\304!\204.\305!\203)G\306U\203)\304A@!\203)\307A@	\"\202.\310\311\"\210\312!\211\313W\203:\313	V\203I\314\315\n!)!\207\315\n!)\207\316\317\n!)\207" [prec calc-internal-prec x calc-symbolic-mode math-num-integerp math-vectorp 2 math-add math-reject-arg integerp math-trunc 3 math-normalize calcFunc-evalvn nil math-evaluate-expr] 4])
(defalias 'math-evaluate-expr-rec #[(x) ":\203y@\304>\203(@\305=\203&G\306U\203&@A@\307\3108!E\207\207@\311=\203^\312\3108!\203\\\3108J\242\313=\204\\\3108J\211\242\314=\203Y\n\203U\202Z	\202Z	)\207\207\211:?\206j@\315>)\203p\207@\316\307A\"B\207\207" [x val calc-symbolic-mode a (calcFunc-quote calcFunc-condition calcFunc-evalto calcFunc-assign) calcFunc-assign 3 math-evaluate-expr-rec 2 var calc-var-value incomplete special-const (bigpos bigneg frac float cplx polar hms date mod var) mapcar] 6])
(defalias 'math-any-floats #[(expr) "\211:?\206\f	@\302>)\203\303!\207A\211\203\"\304@!\203\207" [expr a (bigpos bigneg frac float cplx polar hms date mod var) math-floatp math-any-floats] 3])
(byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\306\"\210\307B\302\307!\204-\303\307\306\"\210\306\207" [current-load-list var-FactorRules default-boundp set-default calc-FactorRules math-mt-many nil math-mt-func] 3)
(defalias 'math-map-tree #[(math-mt-func mmt-expr &optional math-mt-many) "\204\302\303	!\207" [math-mt-many mmt-expr 1000000 math-map-tree-rec] 2])
(defalias 'math-map-tree-rec #[(mmt-expr) "\306U\204m\307\211\n\204l\306U\2046\f!\211\2036\f	\232\2046	\306V\203/S\2021T\211\202\f\211:?\206B
@\310>)\204L\306X\203R\311\211\202\f@\312\313\fA\"B\211\f\232\203g\311\211\202	\202\n*\f\207" [math-mt-many mmt-nextval mmt-done math-mt-func mmt-expr a 0 nil (bigpos bigneg frac float cplx polar hms date mod var) t mapcar math-map-tree-rec] 5])
(defalias 'math-is-true #[(expr) "\211:?\206\f	@\302>)\203:\211:\2034	@\303>?\2057	@\304=\203.	A@\305=\2027\306	!\2027	\305=)?\207\307!\207" [expr a (bigpos bigneg frac float cplx polar) (bigpos bigneg) float 0 math-zerop math-known-nonzerop] 3])
(defalias 'math-const-var #[(expr) ":\205*@\301=\205*\30289\203%\303\3028!\203%\3028J\242\304=\206*\3028\305>\207" [expr var 2 boundp special-const (var-inf var-uinf var-nan)] 3])
(defalias 'math-defintegral '(macro . #[(funcs &rest code) "\302\303\304\305\306	9\203	C\202	\"\"\207" [math-integral-cache funcs nil append (progn) mapcar #[(func) "\302\303D\304\305\306\303D\307E\310\311\312\313	\"DDEF\207" [func code put quote 'math-integral nconc get 'math-integral list function append (lambda (u))] 10]] 5]))
(put 'math-defintegral 'lisp-indent-hook 1)
(defalias 'math-defintegral-2 '(macro . #[(funcs &rest code) "\302\303\304\305\306	9\203	C\202	\"\"\207" [math-integral-cache funcs nil append (progn) mapcar #[(func) "\302\303D\304\305\306\303D\307E\310\311\312\313	\"DDEF\207" [func code put quote 'math-integral-2 nconc get 'math-integral-2 list function append (lambda (u v))] 10]] 5]))
(byte-code "\301\302\303\304#\210\305B\306\305!\204\307\305\310\"\210\311B\306\311!\204$\307\311\312\"\210\313B\306\313!\2043\307\313\314\"\210\315B\306\315!\204B\307\315\314\"\210\316B\306\316!\204Q\307\316\304\"\210\317B\306\317!\204`\307\317\314\"\210\320B\306\320!\204o\307\320\314\"\210\314\207" [current-load-list put math-defintegral-2 lisp-indent-hook 1 var-IntegAfterRules default-boundp set-default calc-IntegAfterRules var-FitRules calc-FitRules math-poly-base-variable nil math-poly-neg-powers math-poly-mult-powers math-poly-frac-powers math-poly-exp-base] 4)
(defalias 'math-build-var-name #[(name) ";\203	\301!\302\303\304!\"\203\305\301\304!\306\307O!E\207\305\301\310\304!P!E\207" [name intern string-match "\\`var-." symbol-name var 4 nil "var-"] 6])
(byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\306\"\210\304\207" [current-load-list math-simplifying-units default-boundp set-default nil math-combining-units t] 3)
(defalias 'math-read-number-fancy #[(s) "\306\307\"\203u\310\311\"\310\312\"\310\313\"\211G\314V\203#\315!\202$\314\nG\314V\2031\315\n!\2022\311\nG\314V\203?\315	!\202@\311\211\205r\n\205r	\205r\316!\205r\316\n!\205r\316	!\205r\317	!?\205r\320\321\n\322	\"\"	E.\207\306\323\"\203\305\310\311\"\310\312\"\211G\314V\203\223\315\n!\202\224\311\nG\314V\203\241\315	!\202\242\311\211\205\303	\205\303\316\n!\205\303\316	!\205\303\317	!?\205\303\320\n	E,\207\306\324\"\203\370\310\311\"\310\312\"\315\f!\315
!\f\205\366
\205\366\325\f!\205\366\325
!\205\366\326\f
E,\207\306\327\"\2037\310\311\"<\310\312\"=\315<!<\315=!=<\2055=\2055\330<!\2055\325=!\2055\331<=E,\207\306\332\"\204E\306\333\"\203\317\310\311\">\310\312\"?\315>!>?G\314V\203f\315?!\202g\314?>\205\315?\205\315\334>!\205\315\335>!?\205\315\335?!?\205\315\334?!\203\256?\336@A\337A@\"\340U*\205\315\341>?\314F\202\315?\242\341=\203\314\317?A@!\203\314\321\341>\314\211F?\"\202\315\342,\207\306\343\"\203i\310\311\"B\310\312\"C\315B!BCG\314V\203\367\315C!\202\370\314CB\205gC\205g\334B!\205g\335B!?\205g\335C!?\205g\344C!\203?B\336@A\337A@\"\340U*\205g\341\314BCF\202gC\242\341=\203f\317CA@!\203f\317\312C8!\203f\321\341\314B\314FC\"\202g\342,\207\306\345\"\203\246\315\310\311\"!\211C\205\244\344C!\205\244\335C!?\205\244C\336@A\337A@\"\340U*\205\244\341\314\211CF)\207\306\346\"\203\347\310\311\"!\310\313\"\310\350\"\310\351\"DG\314V\203\323\352D\"\202\324\314\nG\314V\203\343\352\nD\"\202\344\311	G\314V\203\363\352	D\"\202\364\311\211\205\n\205	\205\317	!?\205\320\321\n\322	\"\"	E.\207\306\353\"\203g\347\310\311\"!\310\313\"\310\350\"D\nG\314V\203?\352\nD\"\202@\311	G\314V\203O\352	D\"\202P\311\211\205e	\205e\317	!?\205e\320\n	E-\207\306\354\"\204u\306\355\"\203\254\347\310\312\"!\310\311\"\310\350\"EFD\315F!\315E!E\211F\205\252E\205\252\322F\356\357D!E\"\"-\207\306\360\"\203\347\310\311\"!\310\313\"\310\350\"GDG\314V\203\325\352D\"\202\326\314GG\314V\203\347\352GD\"\202\350\314\342H\211\205\205\321\361\356DGG\"\"\".\207\306\362\"\203\352\310\313\"\347\310\311\"!\"\207\306\363\"\203X\352\310\313\"\347\310\311\"!\"\211I@A\337A@\"\340U*\203U\337J\n\"\314X\203U\364\nI\"\202V\n)\207K\365=\203s\306\366\"\203s\310\311\"L\352L\367\")\207K\370=\203\216\306\371\"\203\216\310\311\"L\352L\367\")\207\306\372\"\203\242\315\310\311\"\373\310\312\"Q!\207\342\207" [s den num int n m string-match "^\\([0-9]*\\)[:/]\\([0-9]*\\)[:/]\\([0-9]*\\)$" math-match-substring 1 2 3 0 math-read-number math-integerp math-zerop frac math-add math-mul "^\\([0-9]*\\)[:/]\\([0-9]*\\)$" "^\\(.*\\) *mod *\\(.*\\)$" math-anglep mod "^\\(.*\\) *\\+/- *\\(.*\\)$" math-scalarp sdev "^\\([^#^]+\\)[@oOhH]\\(.*\\)$" "^\\([^#^]+\\)[dD][eE]?[gG]?\\(.*\\)$" math-num-integerp math-negp 60 math-compare -1 hms nil "^\\([^'#^]+\\)[mM']\\(.*\\)$" math-realp "^\\([^\"#^]+\\)[sS\"]$" "^\\([0-9]+\\)\\(#\\|\\^\\^\\)\\([0-9a-zA-Z]*\\)[:/]\\([0-9a-zA-Z]*\\)[:/]\\([0-9a-zA-Z]\\)$" string-to-number 4 5 math-read-radix "^\\([0-9]+\\)\\(#\\|\\^\\^\\)\\([0-9a-zA-Z]*\\)[:/]\\([0-9a-zA-Z]*\\)$" "^0*\\(\\([2-9]\\|1[0-4]\\)\\(#\\|\\^\\^\\)[0-9a-dA-D.]+\\)[eE]\\([-+]?[0-9]+\\)$" "^\\(\\([0-9]+\\)\\(#\\|\\^\\^\\)[0-9a-zA-Z.]+\\) *\\* *\\2\\.? *\\^ *\\([-+]?[0-9]+\\)$" math-pow math-float "^\\([0-9]+\\)\\(#\\|\\^\\^\\)\\([0-9a-zA-Z]*\\)\\.\\([0-9a-zA-Z]*\\)$" math-div "^\\([0-9]+\\)\\(#&?\\|\\^\\^\\)\\([0-9a-zA-Z]+\\)$" "^\\([0-9]+\\)\\(##\\)\\([0-9a-zA-Z]+\\)$" math-sub c "^0[xX]\\([0-9a-fA-F]+\\)$" 16 pascal "^\\$\\([0-9a-fA-F]+\\)$" "^\\([0-9]+\\)/\\([0-9/]+\\)$" ":" x sigma hours minsec b a minutes seconds radix exp mant fracs calc-prefer-frac math-2-word-size math-half-2-word-size calc-language digs] 8])
(defalias 'math-read-radix #[(s r) "\226\305\211\306\211GW\203/\307\234!\211\203/	\fW\203/\310\311\n\f\"	\"T\211\202\nGU\2057\n+\207" [s dig res i r 0 nil math-read-radix-digit math-add math-mul] 5])
(defalias 'math-read-expr #[(math-exp-str) "\306\211\307\211\211\310
!\311\312
\"\211\203'
\306	O\313
	\314\\\307OQ\202\315 \210\316 \210\317\320\215\211;\203?\321E\202N	\322\232\203J\202N\321\323E.\207" [math-expr-data math-exp-token math-exp-keep-spaces math-exp-old-pos math-exp-pos math-exp-str 0 nil math-read-preprocess-string string-match "\\.\\.\\([^.]\\|.[^.]\\)" "\\dots" 2 math-build-parse-table math-read-token syntax (math-read-expr-level 0) error end "Syntax error" val] 6])
(defalias 'math-read-plain-expr #[(exp-str &optional error-check) "\305\306 \307\n!\f\203\242\310=\203\310\311\3128\n#\210+\207" [calc-language math-expr-opers exp-str val error-check nil math-standard-ops math-read-expr error "%s: %s" 2] 4])
(defalias 'math-read-string #[nil "\302\303P!\211AGTU\203	@;\204\304\305\306\"\210\307 \210\310\311	@\312#)\207" [math-expr-data str read-from-string "\"" throw syntax "Error in string constant" math-read-token append (vec) nil] 5])
(defalias 'math-read-big-expr #[(str) "G\306V\203\307\310\311!P	\"\203	\306\211\224O	\306\225\312OP\nG\306V\203<\307\311\n!\313P	\"\203<	\306\211\224O	\306\225\312OP\307\314	\"\203d\315=\203M\316	!\207\315\312\315\317N\315\320N\315\321N\316	!-\207\312\306\211\312\211\211\211\211 \307\322	#\211\203\233	O B T\202|	\312O B\237\211 \211\203\277@G]A\211\204\255\323 !\203\325\324\325\215\206\330\206\330\326\202\330\316	!.\207" [calc-left-label str calc-right-label calc-language math-expr-variable-mapping math-expr-function-mapping 0 string-match "^" regexp-quote nil " *$" "\\\\[^ \n|]" latex math-read-expr math-oper-table math-function-table math-variable-table "\n" math-read-big-bigp syntax (byte-code "\302\303\211	G$\207" [width math-read-big-lines math-read-big-rec 0] 5) (error 0 "Syntax error") math-expr-opers calc-language-option p new-pos math-read-big-h2 math-read-big-baseline math-read-big-err-msg width pos math-read-big-lines] 9])
(defalias 'math-read-big-bigp #[(math-read-big-lines) "A\205\323\306\307@G\307V\203\310\202\307A\203\305\307\306@A@GG^G\307V\203=	T\fW\203\234\fH\311>\204\225\fH\312>\204\225\fH\313>\203k\fH\fHU\204\225\fH\314=\203\234\fH\314=\203\234G\315\fT\n\316#\211)\203\234
S\211\203\234\fT\211\202>\fU\206\270\fH\314=\203\267\fH\314=\203\267\317\306-\203\305A\nT\202	\310V\203\321A?\206\322+\207" [math-read-big-lines height v matrix i j nil 0 1 (32 45 95) (32 45) (124 44) 91 math-read-big-balance "[" t l1 l2 len math-rb-h2] 5])
(byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\304\"\210\304\207" [current-load-list math-format-hash-args default-boundp set-default nil calc-can-abbrev-vectors] 3)
(defalias 'math-format-flat-expr-fancy #[(a prec) "@\306=\203\307\310A@\"\207@\311=\203Z	\204$\n\203$G\312W\2038\313\314A\315AA\2033\316\2024\317#\320Q\207\313\321A@\316\"\315\321\3228\316\"\315\321\3238\316\"\324\321GS8\316\"\320\260	\207@\325=\203\213A@\326>\203m\327\202n\313\321\3228\317\"\330\321\3238\317\"A@\331>\203\207\332\202\210\320\260\207@\333=\203\231\334\335!\336Q\207@\337=\203\367G\322V\203\367AG\323U\203\265\340\202\266\341;;A\203\324;@
@\232\203\324;A;
A\202\272\334;A\203\352\314\342A!A\237\315\316#\343P\202\353\344\321GS8\316\"\336R+\207@\345=\203F\f\203@\340<;;\203(;@\232\204(\f\341=\205;A;<T<\202;\205<\f\340=\2037\346\202<\307\347<\"*\206$\350A@!\207@\351>\203uG\322U\203u\352A@!\203u\353A@!\203u\350@!\354\355O\327\356A@\341\"\332R\207\357@\360 \"\211=\203\356G\323U\203\356>\322=8\323=8^V\203\241\327\321\316\"\332Q\202#\321A@\322=8\"\321\3228\323=8\"?@=@\211=\361\232\204\311=\362\232\203\334@\316H\363U\203\343\327@\332Q@\202\343\364=\364Q=@=?Q*\202#@\365=\203\366\321A@\317\"P\202#\367\370\371\350@!\"\203\372\350@!\340\"\202\350@!!\327\314A\315\316#\332R)\207" [a calc-full-trail-vectors calc-can-abbrev-vectors calc-arg-values math-format-hash-args ap incomplete format "<incomplete %s>" vec 7 "[" math-format-flat-vector ", " 0 1000 "]" math-format-flat-expr 2 3 ", ..., " intv (0 1) "(" " .. " (0 2) ")" date "<" math-format-date ">" calcFunc-lambda 1 t reverse " : " "" var "#" "#%d" symbol-name (calcFunc-string calcFunc-bstring) math-vectorp math-vector-is-string 9 nil math-vector-to-string math-assq2 math-standard-ops "^" "_" 45 " " neg "-" math-remove-dashes string-match "\\`calcFunc-\\([a-zA-ZÎ±-Ï‰Î‘-Î©0-9']+\\)\\'" math-match-substring p v op prec rhs lhs] 11])
(defalias 'math-format-flat-vector #[(vec sep prec) "\203 \304@	\"A\211\203\n\304@	\"Q\202\n\n)\207\305\207" [vec prec buf sep math-format-flat-expr ""] 5])
(defalias 'math-format-nice-expr #[(x w) "\242\306=\2039AA\2039\307A@\242	>\206+\3108\242	>\206+\3118\242	>\206+\n)\2039\312\313A\314\315#\316Q\207\317\315\"\315\320\321\322
\"\204\211\f\\\211
GX\203\211S\211\fV\203f
H\323U\203U\f\324\\V\203\200
\315O\325
\320OQT\211\202J\f\\\211\202J
+\207" [x ops calc-break-vectors p pos str vec (vec calcFunc-assign calcFunc-condition calcFunc-schedule calcFunc-iterations calcFunc-phase) 2 3 "[ " math-format-flat-vector ",\n  " 0 " ]" math-format-flat-expr nil string-match "\"" 32 5 "\n " w] 6])
(defalias 'math-assq2 #[(v a) "\203	@A@=\204A\211\204@\207" [a v] 3])
(defalias 'math-format-number-fancy #[(a prec) "@\306=\203^A@\211:\203@\307=\202\310W)\203&\311\312\313!!P\207	\203:\n\314>\204:	\315\f\"\"\202B\316\317\315\f\"#\f\203[\f\320V\203[\321\322
\"\203[\323
\324Q\202\\
)\207@\325=\203\346\326!=@G\327V\203\314A@\211:\203\202@\307=\202\205\310W)\203\221\311\312\313!!P\207\330A@\3318\">\332=\312>@!)=@\310\327O\332\211=?\312>A!*=@\327\331O\332\211=?\312\3318!*\260)\207\332=\312A@!)=@\332\211=?\312\3318!*Q\207@\333=\203\217\334\3318!\203\373\312A@!\207@\204\323\312A@!\335\312\3318!\324\260\207\334A@!\203P\336\3318\327\"\203&\337@!\207\336\3318\340\"\2036\311\337@!P\207\f\203D\341\342\3318\343E\f\"\207\312\3318!\344\337@!Q\207\f\203q\341\345\3318!\203a\346\202b\347A@\333\310\350\3318!EE\f\"\207\312A@!\345\3318!\203\202\351\202\203\352\312\333\310\350\3318!E!Q\207@\353=\203\246\323\312A@!\354\312\3318!\324\260\207@\355=\203\343\345!\203\273\311\312\313!!P\207\356\332\211\211ABC\316D\357=\312A@!)\360=\312\3318!)\312\3618!$,\207@\362=\203A@\363>\203\366\323\202\367\364\312\3318!\365\312\3618!A@\366>\203\324\202\367\260\207@\370=\203&\312A@!\371\312\3318!Q\207@\372=\2032\373\310\"\207\316\374\"\207" [a calc-radix-formatter calc-language calc-number-radix prec str float bigneg 0 "-" math-format-number math-neg (c pascal) math-format-radix-float format "%d#%s" 191 string-match "\\*" "(" ")" frac math-adjust-fraction 1 math-idivmod 2 nil cplx math-zerop ", " math-equal-int symbol-name -1 math-compose-expr * (cplx 0 1) " " math-negp - + math-abs " - " " + " polar "; " hms 10 (":" nil) (":" nil) 3 intv (0 1) "[" " .. " (0 2) "]" sdev " +/- " vec math-format-flat-expr "%s" calc-frac-format q math-radix-explicit-format calc-complex-format calc-group-digits calc-leading-zeros calc-twos-complement-mode calc-hms-format] 9])
(defalias 'math-adjust-fraction #[(a) "A@\2039	\211:?\206	@\303>)\203\304	\305E\306A@\307\310	8A@\"\"\304\311	A@\n\"\311\310	8\n\"E)\207	\207" [calc-frac-format a g (bigpos bigneg) frac 1 math-quotient math-gcd 2 math-mul] 6])
(defalias 'math-format-bignum-fancy #[(a) "\306U\203\f\307	!\2023\310U\203\311	!\2023\312U\203$\313	!\2023\314U\2030\315	!\2023\316	!\203Y\317\320\321
!\"\nG\211W\203X\322Z\323\"\nP+\203\237\nG\250\203m\321!\202x\324>\203w\325\202x\326V\203\234Z\n\327O \n\330OQ\202|\n\210*\306U\204\277!\203\277\"\203\267\"\n\"\202\300\331\332\n#\202\300\n)\207" [calc-number-radix a str calc-leading-zeros calc-internal-prec calc-word-size 10 math-format-bignum-decimal 2 math-format-bignum-binary 8 math-format-bignum-octal 16 math-format-bignum-hex math-format-bignum-radix 6 math-compute-max-digits math-abs make-string 48 (2 16) 4 3 0 nil format "%d#%s" digs len calc-group-digits g i calc-group-char math-radix-explicit-format calc-radix-formatter] 6])
(defalias 'math-group-float #[(str) "\306\307\"\206	G\n\250\203\310\n!\202 \311>\203\312\202 \313	\n\250\203Q\n\314W\203Q
T\f\\\211GW\203Q\314
O
\315OQ
GS\\\211\202/	
\fV\203l
\fZ\314
O
\315OQ\202S+\207" [str pt calc-group-digits calc-number-radix g i string-match "[^0-9a-zA-Z]" math-abs (2 16) 4 3 0 nil calc-group-char] 6])
#@408 If non-nil, this describes an additional menu for calc-keypad.
It should contain a list of three rows.
Each row should be a list of six keys.
Each key should be a list of a label string, plus a Calc command name spec.
A command spec is a command name symbol, a keyboard macro string, a
list containing a numeric entry string, or nil.
A key may contain additional specs for Inverse, Hyperbolic, and Inv+Hyp.
(defvar calc-keypad-user-menu nil (#$ . 113040))
(byte-code "\300\301!\210\302\303!\207" [run-hooks calc-ext-load-hook provide calc-ext] 2)
