%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/calc/
Upload File :
Create Path :
Current File : //usr/local/share/emacs/27.2/lisp/calc/calc-ext.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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 "`%s' was compiled for Emacs 23 or later" #$))

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


(byte-code "\300\301!\210\300\302!\210\300\303!\207" [require calc calc-macs cl-lib] 2)
(defvar math-simplifying nil)
(defvar math-living-dangerously nil)
(defvar math-integrating nil)
(defvar math-rewrite-selections nil)
(defvar math-compose-level 0)
(defvar math-comp-selected nil)
(defvar math-comp-tagged nil)
(defvar math-comp-sel-hpos nil)
(defvar math-comp-sel-vpos nil)
(defvar math-comp-sel-cpos nil)
(defvar math-compose-hash-args nil)
(defalias 'calc-init-extensions #[0 "\304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\314#\210\304\315\316#\210\304\317\320#\210\304\321\322#\210\304\323\324#\210\304\325\326#\210\304\327\330#\210\304\331\332#\210\304\333\334#\210\304\335\336#\210\304\337\340#\210\304\341\342#\210\304\343\344#\210\304\345\346#\210\304\347\350#\210\304\351\352#\210\304\353\354#\210\304\355\356#\210\304\357\360#\210\304\361\362#\210\304\363\364#\210\304\365\366#\210\304\367\370#\210\304\371\372#\210\304\373\374#\210\304\375\376#\210\304\377\201@#\210\304\201A\201B#\210\304\201C\201D#\210\304\201E\201F#\210\304\201G\201H#\210\304\201I\201J#\210\304\201K\201L#\210\304\201M\201N#\210\304\201O\201P#\210\304\201Q\201R#\210\304\201S\201T#\210\304\201U\201V#\210\304\201W\201X#\210\304\201Y\201Z#\210\304\201[\201\\#\210\304\201]\201^#\210\304\201_\201`#\210\304\201a\201b#\210\304\201c\201d#\210\304\201e\201f#\210\304\201g\201h#\210\304\201i\201j#\210\304\201k\201l#\210\304\201m\201n#\210\304\201o\201p#\210\304\201q\201r#\210\304\201s\201t#\210\304\201u\201v#\210\304\201w\201x#\210\304\201y\201z#\210\304\201{\201|#\210\304\201}\201~#\210\304\201\201\200#\210\304\201\201\201\202#\210\304\201\203\201\204#\210\304\201\205\201\206#\210\304\201\207\201\210#\210\304\201\211\201\212#\210\304\201\213\201\214#\210\304\201\215\201\216#\210\304\201\217\201\220#\210\304\201\221\201\222#\210\304\201\223\201\224#\210\304\201\225\201\226#\210\304\201\227\201\230#\210\304\201\231\201\232#\210\304\201\233\201\234#\210\304\201\235\201\236#\210\304\201\237\201\240#\210\304\201\241\201\242#\210\304\201\243\201\244#\210\304\201\245\201\246#\210\304\201\247\201\250#\210\304\201\251\201\252#\210\304\201\253\201\254#\210\304\201\255\201\256#\210\304\201\257\201\260#\210\304\201\261\201\262#\210\304\201\263\201\264#\210\304\201\265\201\266#\210\304\201\267\201\270#\210\304\201\271\201\272#\210\304\201\273\201\\#\210\304\201\274\201\275#\210\304\201\276\201\277#\210\304\201\300\201\301#\210\304\201\302\201\303#\210\304\201\304\201\305#\210\304\201\306\201\307#\210\304\201\310\201\311#\210\304\201\312\201\313#\210\304\201\314\201\315#\210\304\201\316\201\317#\210\304\201\320\201\321#\210\304\201\322\201\323#\210\304\201\324\201\325#\210\304\201\326\201\327#\210\304\201\330\201\331#\210\304\201\332\201\333#\210\304\201\334\201\335#\210\304\201\336\201\337#\210\304\201\340\201\341#\210\304\201\342\201\343#\210\304\201\344\201\345#\210\304\201\346\201\347#\210\304\201\350\201\351#\210\304\201\352\201\353#\210\304\201\354\201\355#\210\304\201\356\201\357#\210\304\201\360\201\361#\210\304\201\362\201\\#\210\304\201\363\201\364#\210\304\201\365\201\366#\210\304\201\367\201\370#\210\304\201\371\201\372#\210\304\201\373\201\374#\210\304\201\375\201\376#\210\304\201\377\201#\210\304\201\316#\210\304\201\201#\210\304\201\201#\210\304\201\201\\#\210\304\201\201#\210\304\201	\201\n#\210\304\201\201\f#\210\304\201
\201#\210\304\201\201#\210\304\201\201#\210\304\201\201#\210\304\201\201#\210\304\201\201#\210\304\201\201#\210\304\201\201#\210\304\201\201#\210\304\201\201 #\210\304\201!\201\"#\210\304\201#\201$#\210\304\201%\201&#\210\304\201'\201(#\210\304\201)\201*#\210\304\201+\201,#\210\304\201-\201.#\210\304\201/\2010#\210\304\2011\2012#\210\304\2013\2014#\210\304\2015\2016#\210\304\2017\2018#\210\304\2019\201:#\210\304\201;\201<#\210\304\201=\201>#\210\304\201?\201@#\210\304\201A\201B#\210\304\201C\201D#\210\304\201E\201F#\210\304\201G\201H#\210\304\201I\201J#\210\304\201K\201L#\210\304\201M\201N#\210\304\201O\201P#\210\304\201Q\201R#\210\304\201S\201T#\210\304\201U\201V#\210\304\201W\201X#\210\304\201Y\201Z#\210\304\201[\201\\#\210\304\201]\201^#\210\304\201_\201`#\210\304\201a\201b#\210\304\201c\201d#\210\304\201e\201f#\210\304\201g\201h#\210\304\201i\201j#\210\304\201k\201l#\210\304\201m\201n#\210\304\201o\201p#\210\304\201q\201\\#\210\304\201r\201s#\210\304\201t\201u#\210\304\201v\201w#\210\304\201x\201y#\210\304\201z\201{#\210\304\201|\201}#\210\304\201~\201#\210\304\201\200\201\201#\210\304\201\202\201\203#\210\304\201\204\201\205#\210\304\201\206\201\207#\210\304\201\210\201\211#\210\304\201\212\201\213#\210\304\201\214\201\215#\210\304\201\216\201\217#\210\304\201\220\201\221#\210\304\201\222\201\223#\210\304\201\224\201\225#\210\304\201\226\201\227#\210\304\201\230\201\231#\210\304\201\232\201\233#\210\304\201\234\201\235#\210\304\201\236\201\237#\210\304\201\240\201\241#\210\304\201\242\201\243#\210\304\201\244\201\245#\210\304\201\246\201\\#\210\304\201\247\201\250#\210\304\201\251\201\252#\210\304\201\253\201\254#\210\304\201\255\201\256#\210\304\201\257\201\260#\210\304\201\261\201\262#\210\304\201\263\201\264#\210\304\201\265\201\266#\210\304\201\267\201\270#\210\304\201\271\201\272#\210\304\201\273\201\274#\210\304\201\275\201\276#\210\304\201\277\201\300#\210\304\201\301\201\302#\210\304\201\303\201\304#\210\304\201\305\201\306#\210\304\201\307\201\310#\210\304\201\311\201\312#\210\304\201\313\201\314#\210\304\201\315\201\316#\210\304\201\317\201\320#\210\304\201\321\201\322#\210\304\201\323\201\324#\210\304\201\325\201\326#\210\304\201\327\201\330#\210\304\201\331\201\332#\210\304\201\333\201\334#\210\304\201\335\201\336#\210\304\201\337\201\340#\210\304\201\341\201\342#\210\304\201\343\201\344#\210\304\201\345\201\346#\210\304\201\347\201\350#\210\304\201\351\201\352#\210\304\201\353\201\354#\210\304\201\355\201\356#\210\304\201\357\201\360#\210\304\201\361\201\362#\210\304\201\363\201\364#\210\304\201\365\201\366#\210\304\201\367\201\370#\210\304\201\371\201\\#\210\304\201\372\201\373#\210\304\201\374\201\375#\210\304\201\376\201\377#\210\304\201\201#\210\304\201\201#\210\304\201\201#\210\304\201\201#\210\304\201\201	#\210\304\201\n\201#\210\304\201\f\201
#\210\304\201\201#\210\304\201\201#\210\304\201\201#\210\304\201\201#\210\304\201\201#\210\304\201\201#\210\304\201\201#\210\304\201\201#\210\304\201\201#\210\304\201 \326#\210\304\201!\201\"#\210\304\201#\201$#\210\304\201%\201&#\210\304\201'\201(#\210\304\201)\201*#\210\304\201+\201,#\210\304\201-\201.#\210\304\201/\2010#\210\304\2011\2012#\210\304\2013\2012#\210\304\2014\2015#\210\304\2016\2015#\210\304\2017\2018#\210\304\2019\201:#\210\304\201;\201<#\210\304\201=\201>#\210\304\201?\201@#\210\304\201A\201B#\210\304\201C\201D#\210\304\201E\201\\#\210\304\201F\201G#\210\304\201H\201I#\210\304\201J\201K#\210\304\201L\201M#\210\304\201N\201O#\210\304\201P\201Q#\210\304\201R\201S#\210\304\201T\201U#\210\304\201V\201W#\210\304\201X\201Y#\210\304\201Z\201[#\210\304\201\\\201]#\210\304\201^\201_#\210\304\201`\201a#\210\304\201b\201c#\210\304\201d\201e#\210\304\201f\201g#\210\304\201h\201i#\210\304\201j\201k#\210\304\201l\201m#\210\304\201n\201o#\210\304\201p\201q#\210\304\201r\201s#\210\304\201t\201u#\210\304\201v\201\\#\210\304\201w\201x#\210\304\201y\201z#\210\304\201{\201|#\210\304\201}\201~#\210\304\201\201\200#\210\304\201\201\201\202#\210\304\201\203\201\204#\210\304\201\205\201\206#\210\304\201\207\201\210#\210\304\201\211\201\212#\210\304\201\213\201\214#\210\304\201\215\201\\#\210\304\201\216\201\217#\210\304\201\220\201\221#\210\304\201\222\201\223#\210\304\201\224\201\225#\210\304\201\226\201\227#\210\304\201\230\201\231#\210\304\201\232\201\233#\210\304\201\234\201\235#\210\304\201\236\201\237#\210\304\201\240\201\241#\210\304\201\242\201\243#\210\304\201\244\201\245#\210\304\201\246\201\247#\210\304\201\250\201\247#\210\304\201\251\201\247#\210\304\201\252\201\253#\210\304\201\254\201\255#\210\304\201\256\201\257#\210\304\201\260\201\261#\210\304\201\262\201\263#\210\304\201\264\201\265#\210\304\201\266\201\267#\210\304\201\270\201\271#\210\304\201\272\201\273#\210\304\201\274\201\275#\210\304\201\276\201\277#\210\304\201\300\201\301#\210\304\201\302\201\303#\210\304\201\304\201\305#\210\304\201\306\201\307#\210\304\201\310\201\311#\210\304\201\312\201\313#\210\304\201\314\201\\#\210\304\201\315\201\316#\210\304\201\317\201\320#\210\304\201\321\201\322#\210\304\201\323\201\\#\210\304\201\324\201\325#\210\304\201\326\201\327#\210\304\201\330\201\331#\210\304\201\332\201\333#\210\304\201\334\201\335#\210\304\201\336\201\337#\210\304\201\340\201\341#\210\304\201\342\201\343#\210\304\201\344\201\345#\210\304\201\346\201\347#\210\304\201\350\201\351#\210\304\201\352\201\353#\210\304\201\354\201\355#\210\304\201\356\201\357#\210\304\201\360\201\361#\210\304\201\362\201\363#\210\304\201\364\201\365#\210\304\201\366\201\367#\210\304\201\370\201\371#\210\304\201\372\201\373#\210\304\201\374\201\375#\210\304\201\376\201\377#\210\304\201\201#\210\304\201\201#\210\304\201\201#\210\304\201\344#\210\304\201\201#\210\304\201	\201\n#\210\304\201\201\f#\210\304\201
\201#\210\304\201\201#\210\304\201\201#\210\304\201\201#\210\304\201\201#\210\304\201\201#\210\304\201\201#\210\304\201\201#\210\304\201\201#\210\304\201\201 #\210\304\201!\201\"#\210\304\201#\201\\#\210\304\201$\201%#\210\304\201&\201'#\210\304\201(\201)#\210\304\201*\201+#\210\304\201,\201-#\210\304\201.\201/#\210\304\2010\2011#\210\304\2012\2013#\210\304\2014\2015#\210\304\2016\2017#\210\304\2018\2019#\210\304\201:\201;#\210\304\201<\201=#\210\304\201>\201?#\210\304\201@\201A#\210\304\201B\201C#\210\304\201D\201E#\210\304\201F\201G#\210\304\201H\201'#\210\304\201I\201+#\210\304\201J\201K#\210\304\201L\201M#\210\304\201N\201O#\210\304\201P\201Q#\210\304\201R\201S#\210\304\201T\201U#\210\304\201V\201W#\210\304\201X\201Y#\210\304\201Z\346#\210\304\201[\201\\#\210\304\201]\201^#\210\304\201_\201`#\210\304\201a\201b#\210\304\201c\201d#\210\304\201e\201f#\210\304\201g\201\\#\210\304\201h\201i#\210\304\201j\201k#\210\304\201l\201m#\210\304\201n\201o#\210\304\201p\201q#\210\304\201r\201s#\210\304\201t\201u#\210\304\201v\201w#\210\304\201x\201y#\210\304\201z\201{#\210\304\201|\201}#\210\304\201~\201#\210\304\201\200\201\201#\210\304\201\202\201\203#\210\304\201\204\201\205#\210\304\201\206\201\207#\210\304\201\210\201\211#\210\304\201\212\201\213#\210\304\201\214\201\215#\210\304\201\216\201\217#\210\304\201\220\201\221#\210\304\201\222\201\223#\210\304\201\224\350#\210\304\201\225\201\226#\210\304\201\227\201\230#\210\304\201\231\201\232#\210\304\201\233\201\234#\210\304\201\235\201\\#\210\304\201\236\201\237#\210\304\201\240\201\241#\210\304\201\242\201\243#\210\304\201\244\201\245#\210\304\201\246\201\247#\210\304\201\250\201\251#\210\304\201\252\201\253#\210\304\201\254\201\255#\210\304\201\256\201\257#\210\304\201\260\201\261#\210\304\201\262\201\263#\210\304\201\264\201\265#\210\304\201\266\201\267#\210\304\201\270\201\271#\210\304\201\272\201\273#\210\304\201\274\201\275#\210\304\201\276\201\277#\210\304\201\300\201\301#\210\304\201\302\201\303#\210\304\201\304\201\305#\210\304\201\306\201\307#\210\304\201\310\201\311#\210\304\201\312\201\313#\210\304\201\314\201\315#\210\304\201\316\201\317#\210\304\201\320\201\321#\210\304\201\322\201\323#\210\304\201\324\201\325#\210\304\201\326\201\327#\210\304\201\330\201\331#\210\304\201\332\201\333#\210\304\201\334\201\335#\210\304\201\336\201\337#\210\304\201\340\201\341#\210\304\201\342\201\343#\210\304\201\344\201\345#\210\304\201\346\201\347#\210\304\201\350\201\351#\210\304\201\352\201\353#\210\304\201\354\201\355#\210\304\201\356\201\357#\210\304\201\360\201\361#\210\304\201\362\201\363#\210\304\201\364\201\365#\210\304\201\366\201\367#\210\304\201\370\201\371#\210\304\201\372\201\373#\210\304\201\374\201\375#\210\304\201\376\201\377#\210\304\201\201#\210\304\201\201#\210\304\201\201#\210\304\201\201#\210\304\201\201	#\210\304\201\n\201#\210\304\201\f\201
#\210\304\201\201#\210\304\201\201#\210\304\201\201#\210\304\201\201\201\235\"#\210\304\201\201\\#\210\304\201\201#\210\304\201\201\\#\210\304\201\201#\210\304\201\201#\210\304\201\201#\210\304\201\201#\210\304\201 \201!#\210\304\201\"\201##\210\304\201$\201%#\210\304\201&\201'#\210\304\201(\201)#\210\304\201*\201+#\210\304\201,\201-#\210\304\201.\201/#\210\304\2010\2011#\210\304\2012\2013#\210\304\2014\2015#\210\304\2016\2017#\210\304\2018\2019#\210\304\201:\201;#\210\304\201<\201=#\210\304\201>\201?#\210\304\201@\201A#\210\304\201B\201C#\210\304\201D\201E#\210\304\201F\201G#\210\304\201H\201I#\210\304\201J\201K#\210\201L \210\201M\201N\201O\"\210\201P\211\201QX\203\302A@H\242\201R=\203\273A@\201R\201SA@HBA@HABBI\210\211T\262\202\214\210\201T!\201T\n!\201U\211\201VW\203\211\201W>\204\353	A@\201XI\210\211\201Y>\204\376A@A@HI\210\211T\262\202\322\210\304	\201Z#\210\304	\201[\201\\#\210\304	\201]\201^#\210\304	\201_\201`#\210\201M\201a\201b\"\210\201c\201d\201e\"\207" [calc-mode-map 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-lu-quant "ld" calc-db "ln" calc-np "l+" calc-lu-plus "l-" calc-lu-minus "l*" calc-lu-times "l/" calc-lu-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 "mI" calc-basic-simplify-mode "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 "un" calc-convert-exact-units "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 "uR" calc-vector-rms "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-query calc-init-prefixes mapc #[257 "\301\302\303\"\304#\210\301\302\305\"\306#\210\301\302\307\"\310#\210\301\302\311\"\312#\210\301\302\313\"\314#\210\301\302\315\"\316#\207" [calc-mode-map 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] 6 "\n\n(fn X)"] "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 #[257 "\300\301\302\303\304\305!\306\"\307\310%A\"\207" [mapcar make-byte-code 257 "\301\300@\"\207" vconcat vector [autoload] 4 "\n\n(fn FUNC)"] 8 "\n\n(fn X)"] (("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-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-left-click calc-keypad-middle-click calc-keypad-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-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-finish 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-rms 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-lufadd calcFunc-lupadd calcFunc-lufsub calcFunc-lupsub calcFunc-lufmul calcFunc-lupmul calcFunc-lufdiv calcFunc-lupdiv calcFunc-lufquant calcFunc-lupquant calcFunc-dbfield calcFunc-dbpower calcFunc-npfield calcFunc-nppower 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 #[257 "\300\301\302\303\304\305!\306\"\307\310%A\"\207" [mapcar make-byte-code 257 "\301\300@\302\303$\207" vconcat vector [autoload nil t] 6 "\n\n(fn CMD)"] 8 "\n\n(fn X)"] (("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-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-basic-simplify-mode 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-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-rms 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-convert-exact-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-lu-quant calc-db calc-np calc-lu-plus calc-lu-minus calc-lu-times calc-lu-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 #[0 "\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)
#@10 

(fn F)
(defalias 'calc-clear-command-flag #[257 "\301\"\211\207" [calc-command-flags delq] 4 (#$ . 51797)])
#@23 

(fn TAG &rest ARGS)
(defalias 'calc-record-message #[385 "\300\301\"\302\303\"\210\304\"\266\305\306!\207" [apply format-message message "%s" calc-record calc-clear-command-flag clear-message] 6 (#$ . 51916)])
#@12 

(fn VAL)
(defalias 'calc-normalize-fancy #[257 ":\203\n@\202\211\301\267\202:\302!\303!\203\"\304\305!!\202#\211\262\202=\306!\202=\307!\202=\310!\202=\302!\207" [calc-simplify-mode #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (binary 17 alg 40 ext 46 units 52)) math-normalize math-realp math-clip math-round math-simplify math-simplify-extended math-simplify-units] 6 (#$ . 52139)])
(defvar calc-help-map nil)
(byte-code "\204g\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210\302\333\320#\210\302\334\335#\210\302\336\337#\210\302\340\337#\210\301\207" [calc-help-map 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 ""] 4)
(defvar calc-prefix-help-retry nil)
(defvar calc-prefix-help-phase 0)
#@23 

(fn MSGS GROUP KEY)
(defalias 'calc-do-prefix-help #[771 "\203	E\207A\203a	\203\nTGT\246\202\303\2118\304\305\203O\306\307\310\311\312\313\314\"\"GZ\315\"\316	\203I\317\320!\321Q\202J\322\260\202[\203Z\323\324\"\202[\322\"\266\202\206\303\211\203\203v\304\325@$\210\202\206\304\326#\210\202\206\304\327@#\210\330 \331\203\224\332\"\202\227\332!!\333U\211\203\246\334!\202\273\304\335\336\203\266\337\"\202\271\337!!\"\207" [calc-full-help-flag calc-prefix-help-retry calc-prefix-help-phase 0 message "%s" ": " ":" make-string apply max mapcar length 32 "  [MORE]" "  " char-to-string "-" "" format "%c-" "%s: %s: %c-" "%s: (none)  %c-" "%s: %s" read-char local-key-binding string 63 call-interactively "%s is undefined" key-description vector] 17 (#$ . 53398)])
#@12 

(fn ARG)
(defalias 'calc-reset #[257 "\211\205\306!\262\203J\307Hp\232\203J`\310HX\203J`\311HY\203J\312H\313\314 \315\307\316\317\320!\321\"\322$\216\323\324!\210q\210\325!\210)\210\323\324!)\207\n\326=\203\242\212\211\203]\327!\307V\204_\324\324\211\324\211\211\211%&'\330\331(\"\210\211\203\204\211\307X\203\204\332 \210\202\207\333 \210,\334\324\211\313#\210\326 \210\335\313!\210\336\337!\210)\340\341!\210\342\343!\207\342\344!\207" [calc-embedded-info calc-embedded-quiet major-mode calc-stack calc-undo-list calc-redo-list prefix-numeric-value 0 5 4 1 t current-window-configuration make-byte-code "\301\300!\207" vconcat vector [set-window-configuration] 2 calc-embedded nil calc-reset calc-mode abs mapc #[257 "\211\300L\207" [nil] 3 "\n\n(fn V)"] 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 #[0 "\301p!\302\303!\210\211\2054\304 ?\2054\305!\306Z\307`\"\210\211U\2062\310 \311!\210\312Z!\210\311!\262\262\207" [calc-window-height get-buffer-window calc-realign 0 window-full-height-p window-height 2 set-window-point selected-window select-window enlarge-window] 6] message "(Calculator reset)" "(Not inside a Calc buffer)" calc-invocation-macro calc-standard-date-formats calc-user-parse-tables calc-local-var-list] 10 (#$ . 54236) "P"])
#@10 

(fn N)
(defalias 'calc-scroll-left #[257 "\211\206\301 \302\245\303\304!\207" [prefix-arg window-width 2 call-interactively scroll-left] 3 (#$ . 55644) "P"])
#@10 

(fn N)
(defalias 'calc-scroll-right #[257 "\211\206\301 \302\245\303\304!\207" [prefix-arg window-width 2 call-interactively scroll-right] 3 (#$ . 55813) "P"])
#@10 

(fn N)
(defalias 'calc-scroll-up #[257 "\3011\302\206
\303 \304\245!0\202\210\202\210\305\306d\304Z]!\205=\307=\203*\310 \207db\210\311\312 \212\303 S[y\210`)\"\210\313y\207" [major-mode (error) scroll-up window-height 2 pos-visible-in-window-p 1 calc-mode calc-realign set-window-start selected-window -1] 5 (#$ . 55984) "P"])
#@10 

(fn N)
(defalias 'calc-scroll-down #[257 "\300\301!\206\302\206\303 \304\245!\207" [pos-visible-in-window-p 1 scroll-down window-height 2] 4 (#$ . 56331) "P"])
#@10 

(fn N)
(defalias 'calc-precision #[257 "\300\301\302\303\304\305!\306\"\307$!\207" [calc-do make-byte-code 0 "\304\300!\305W\203\306\307!\210\2021\310\303\304\300!	@\311>\205*	A@\n\312U\203(\313\202)\314W#\210\315\316\"\210\317\320\"\207" vconcat vector [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] 8 (#$ . 56504) "NPrecision: "])
#@20 

(fn &optional N)
(defalias 'calc-inverse #[256 "\304=\204\f\305=\203r	q\210\n)\202\n\304=\204\"\305=\203+r	q\210)\202,\211\2038\2038\306\202I\203@\307\202I\211\203H\310\202I\311\312\313#\207" [major-mode calc-main-buffer calc-hyperbolic-flag calc-option-flag calc-keypad-mode calc-trail-mode "Option Inverse Hyperbolic..." "Inverse Hyperbolic..." "Option Inverse..." "Inverse..." calc-fancy-prefix calc-inverse-flag] 8 (#$ . 57042) "P"])
#@49 Keymap used while processing calc-fancy-prefix.
(defconst calc-fancy-prefix-map (byte-code "\301 \302\303\304#\210\302\305\306\"\304#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\314#\210\302\316\314#\210\302\317\314#\210\302\320\314#\210\302\321\314#\210\302\322\314#\210\302\323\314#\210\302\324\314#\210\302\325\314#\210\211\207" [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]] 6) (#$ . 57514))
(defvar calc-is-keypad-press nil)
#@19 

(fn FLAG MSG N)
(defalias 'calc-fancy-prefix #[771 "\304C\305\306\307\310\311\312				$\313\"\314$!\210\211\242\205n?\205n\315\302!\203-	\211\202n\316 \211\211\317=\203<\320 \202l\250\203S\307Y\203W\321W\203W\322=\204W\305\323!\210\211\211\250\203d\324=\203i\325 \202l\326!\262\207" [calc-is-keypad-press calc-fancy-prefix-map overriding-terminal-local-map last-command-event nil calc-do make-byte-code 0 "\305\306!\210\305\307!\210\303\300\211J?L\240\210\302\310\311\303\242\203\301\202\312\"\207" vconcat vector [prefix-arg calc-set-command-flag keep-flags no-align message "%s" ""] 3 boundp read-event 21 universal-argument 32 27 #[0 "\300\207" [nil] 1] 45 calc-unread-command digit-argument] 14 (#$ . 58135)])
#@12 

(fn ARG)
(defalias 'calc-fancy-prefix-other-key #[257 "\304=\204'\305=\204'\250\203#\306Y\203'\307W\203'	=\204'\310\311!\210\211\312 \210\313\211\207" [last-command-event meta-prefix-char prefix-arg overriding-terminal-local-map tab M-tab 0 32 calc-do #[0 "\300\207" [nil] 1] calc-unread-command nil] 3 (#$ . 58889) "P"])
(defalias 'calc-invert-func #[0 "\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 #[0 "\207" [calc-inverse-flag] 1])
#@20 

(fn &optional N)
(defalias 'calc-hyperbolic #[256 "\304=\204\f\305=\203r	q\210\n)\202\n\304=\204\"\305=\203+r	q\210)\202,\211\2038\2038\306\202I\211\203@\307\202I\203H\310\202I\311\312\313#\207" [major-mode calc-main-buffer calc-inverse-flag calc-option-flag calc-keypad-mode calc-trail-mode "Option Inverse Hyperbolic..." "Option Hyperbolic..." "Inverse Hyperbolic..." "Hyperbolic..." calc-fancy-prefix calc-hyperbolic-flag] 8 (#$ . 59493) "P"])
(defalias 'calc-hyperbolic-func #[0 "\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 #[0 "\207" [calc-hyperbolic-flag] 1])
#@20 

(fn &optional N)
(defalias 'calc-option #[256 "\304=\204\f\305=\203r	q\210\n)\202\n\304=\204\"\305=\203+r	q\210)\202,\211\2038\2038\306\202I\211\203@\307\202I\203H\310\202I\311\312\313#\207" [major-mode calc-main-buffer calc-inverse-flag calc-hyperbolic-flag calc-keypad-mode calc-trail-mode "Option Inverse Hyperbolic..." "Option Hyperbolic..." "Option Inverse..." "Option..." calc-fancy-prefix calc-option-flag] 8 (#$ . 60244) "P"])
(defalias 'calc-is-option #[0 "\207" [calc-option-flag] 1])
#@20 

(fn &optional N)
(defalias 'calc-keep-args #[256 "\300\301\302#\207" [calc-fancy-prefix calc-keep-args-flag "Keep args..."] 5 (#$ . 60774) "P"])
#@43 

(fn VAR VALUE &optional REFRESH OPTION)
(defalias 'calc-change-mode #[1026 "C\203\203\304!\305V\202\211\242J?\262\211\242:\204(\211\242C\240\210C\262\203}\306C\2046\307\310!\210\311\312!\210\313\305\314\315\316\"\317\"\320$\216\242\211\203j@J\242B\240\210\211@@L\210\211A\262A\262\202K\321\312!\210\322 \210\242@J\262)\262\202\356\306\242\211\203\274\211@J@\232\204\261\211@@L\210\211@\323=\203\256@@\324=\203\250\325\202\253@@\305D\326\262\211A\262A\262\202\200\203\334\203\311\327 \204\314\322 \210\n\330=\203\334\242\331\232\204\334\332 \210\203\345\333\242!\210\334 \210\242@J\266\202\207" [calc-inverse-flag calc-full-float-format calc-mode-save-mode calc-embedded-info prefix-numeric-value 0 nil error "Not a display-mode command" calc-check-stack 1 make-byte-code "\300\242\301\211\242\237\240\210\211\203 \211@\301\242@L\210\211A\262\301\211\242A\240\210\202\300\242@\302=\205-\304\n\305#\207" vconcat vector [calc-language calc-language-option calc-set-language t] 5 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 calc-set-mode-line] 13 (#$ . 60928)])
#@78 Toggle display of the friendly greeting calc normally shows above the stack.
(defalias 'calc-toggle-banner #[0 "?\301 \207" [calc-show-banner calc-refresh] 1 (#$ . 62178) nil])
#@10 

(fn N)
(defalias 'calc-refresh-top #[257 "\211C\300\301\302\303\304\305!\306\"\307$!\207" [calc-do make-byte-code 0 "\300\242\303W\203*\300\211\242[\240\210\304\300\242\305\"\306\211\307\310\300\242\311#\210\312@C\300\242\3138C#*\207\300\242\303U\2034\314 \207\315\300\242\310\305#\306\211\307\300\242\310\311#\210\312\316\317\"\310\316\320\"#*\207" vconcat vector [calc-redo-list calc-undo-list 0 calc-top entry nil calc-pop-stack 1 t calc-push-list 2 calc-refresh calc-top-list mapcar car #[257 "\3008\207" [2] 3 "\n\n(fn X)"]] 7] 9 (#$ . 62363) "p"])
(defvar calc-refreshing-evaltos nil)
(defvar calc-no-refresh-evaltos nil)
#@28 

(fn &optional WHICH-VAR)
(defalias 'calc-refresh-evaltos #[256 "\203n	\203n\n\204n\306\307 \310\211\211\211\311V\203k\312\313\"\262\3148\204d@\211\262\203d\242\315=\204J\242\316=\203dA@\242\315=\203d\317!\262\211\232\204d\320C\"\210\321\322T\306#\210S\262\202+\266\205z\211\205z\323!\207" [calc-any-evaltos calc-auto-recompute calc-no-refresh-evaltos calc-redo-list calc-undo-list calc-refreshing-evaltos 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-embedded-active] 11 (#$ . 63012)])
#@19 

(fn &rest VALS)
(defalias 'calc-push #[128 "\300!\207" [calc-push-list] 3 (#$ . 63642)])
#@21 

(fn N &rest VALS)
(defalias 'calc-pop-push #[385 "\300\"\207" [calc-pop-push-list] 5 (#$ . 63740)])
#@28 

(fn N PREFIX &rest VALS)
(defalias 'calc-pop-push-record #[642 "\300#\207" [calc-pop-push-record-list] 7 (#$ . 63850)])
#@10 

(fn N)
(defalias 'calc-evaluate #[257 "\211C\300\301\302\303\304\305!\306\"\307$`\"\207" [calc-do make-byte-code 0 "\300\242\302U\203\f\300\303 \240\210	\304>?\205	\300\242\302W\203.\305\306\307\310\311\300\242[!!\300\242[$\210\202;\305\300\242\307\312\310\313\300\242!\"#\210)\314 \207" vconcat vector [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] 9 (#$ . 63981) "p"])
#@10 

(fn N)
(defalias 'calc-eval-num #[257 "\300\301\302\303\304\305!\306\"\307$`\"\207" [calc-do make-byte-code 0 "\304\300!\211\305Y\203
\211\202\211\306W\203	\\\305]\202	\307\310>?\205'\311\312\313\314\315\312!!#\210+\210\316 \207" vconcat vector [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] 8 (#$ . 64475) "P"])
#@53 The history list for calc-execute-extended-command.
(defvar calc-extended-command-history nil (#$ . 64941))
#@10 

(fn N)
(defalias 'calc-execute-extended-command #[257 "\302!\303P\304\305\306\307\310\311&!\312!\207" [obarray prefix-arg calc-num-prefix-name "M-x " intern completing-read commandp t "calc-" calc-extended-command-history command-execute] 10 (#$ . 65055) "P"])
#@22 

(fn &optional NUM)
(defalias 'calc-realign #[256 "\211\203\304=\203\305!\210\306!\210	\205;\307u\207\n\2038p\n\310H=\2038\n\311Hb\210r\n\312Hq\210)\205;\312y\207\313\314!\207" [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 #[0 "\300p!\205\f\301\300p!\302\"\207" [get-buffer-window set-window-hscroll 0] 3]] 4 (#$ . 65331) "P"])
(defvar math-cache-list nil)
#@10 

(fn V)
(defalias 'calc-var-value #[257 "\2119\205<\300!\205<\211J\205<\211J9\203\211J L\207\211J;\203:\301J!\211\242\302=\2036\302\303\3048\"\2029L\207\211J\207" [boundp math-read-expr error "Bad format in variable contents: %s" 2] 6 (#$ . 65796)])
(defconst calc-assoc-ops '((+ (+ -) (+)) (- (+ -) (+)) (* (*) (*)) (/ (/) nil) (| (|) (|)) (calcFunc-land (calcFunc-land) (calcFunc-land)) (calcFunc-lor (calcFunc-lor) (calcFunc-lor))))
(defvar var-CommuteRules 'calc-CommuteRules)
(defvar var-JumpRules 'calc-JumpRules)
(defvar var-DistribRules 'calc-DistribRules)
(defvar var-MergeRules 'calc-MergeRules)
(defvar var-NegateRules 'calc-NegateRules)
(defvar var-InvertRules 'calc-InvertRules)
(defconst calc-tweak-eqn-table '((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)))
#@12 

(fn ARG)
(defalias 'calc-float #[257 "\300\301\302\303\304\305!\306\"\307$`\"\207" [calc-do make-byte-code 0 "\301\302\303 \203\304\202\f\305\300#\207" vconcat vector [calc-unary-op "flt" calc-is-hyperbolic calcFunc-float calcFunc-pfloat] 4] 8 (#$ . 66781) "P"])
(defvar calc-gnuplot-process nil)
(defalias 'calc-gnuplot-alive #[0 "\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 #[0 "\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])
#@12 

(fn ARG)
(defalias 'calc-concat #[257 "\300\301\302\303\304\305!\306\"\307$!\207" [calc-do make-byte-code 0 "\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\300\314$\207\313\311\312\300\315\316\317&\207" vconcat vector [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] 8 (#$ . 68309) "P"])
#@12 

(fn ARG)
(defalias 'calc-append #[257 "\300 \210\301!\207" [calc-hyperbolic-func calc-concat] 3 (#$ . 68786) "P"])
(defconst calc-arg-values '((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)))
#@10 

(fn N)
(defalias 'calc-invent-args #[257 "GZ\301!\233\237\207" [calc-arg-values reverse] 4 (#$ . 69140)])
(defalias 'calc-user-key-map #[0 "\301\302\"A\211@@\303=\203\211A\202\211\207" [calc-mode-map lookup-key "z" 27] 3])
(defvar calc-z-prefix-buf nil)
(defvar calc-z-prefix-msgs nil)
(defalias 'calc-z-prefix-help #[0 "\302\303\304\305\306 !\307\"\310\311\312\313\"\"\314\315\"\316U\203#\317\320\"\210\2023\317\321\"\210	B\303\317\322\"\210\211\316U\204=	B\323\237\324\325#*\207" [calc-z-prefix-msgs calc-z-prefix-buf nil "" sort copy-sequence calc-user-key-map #[514 "@@W\207" [] 4 "\n\n(fn X Y)"] apply logior mapcar #[257 "\300@!\207" [calc-user-function-classify] 3 "\n\n(fn K)"] logand 8 0 calc-user-function-list 7 1 6 calc-do-prefix-help "user" 122] 6 nil nil])
#@12 

(fn KEY)
(defalias 'calc-user-function-classify #[257 "\211\227U\204\211\227\300 \236\203\301\207\302\207\211\226U\204\303\207\211\304U\203$\305\207\306\207" [calc-user-key-map 9 1 2 63 0 4] 3 (#$ . 69946)])
#@18 

(fn MAP FLAGS)
(defalias 'calc-user-function-list #[514 "\205\275@@\302!@A\303\"\304U\204\266\2119\203\266\305!\306\307\"\203,\310\311\"\202-\211\306\312!\"9\203q\303\313\"\304U\203K\314\315#\202v\211\203f\316\317\310\304#\227\226\310T\"\227$\202v\316\320\226\227#\202v\312\226!G\304U\203\217\321U\203\210\322\202\211\323P\202\264GG\\\324V\203\257	B\321U\203\250\322\202\251\323P\202\264\325Q\266\326A\"\266\203\207" [calc-z-prefix-buf calc-z-prefix-msgs calc-user-function-classify logand 0 symbol-name string-match "\\`calc-" substring 5 char-to-string 3 format-message "`%c' = %s" format "%s%c%s" "%c = %s" 1 "SHIFT + " "" 58 ", " calc-user-function-list] 15 (#$ . 70171)])
(defalias 'calc-shift-Z-prefix-help #[0 "\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])
#@23 

(fn NAME INIT FORM)
(defalias 'math-defcache '(macro . #[771 "\300\301!\302P!\300\301!\303P!\300\301!\304P!\300\301!\305P!\306\307\310\311\nD\312\313\314
EDD\n\313\314\312\315\316BBDED\317BBBE\307\310\311DD\315
\320BBD\321
DFE\307\322BB\307\323BB\324\325\326\327\fD\326\327\fD\330BBEE\331
\332\333\334\f\335BB\324\f\336\306\333\337\340BB\324\341\342E\343BBBBEED\344BBBBE\n\257\257\207" [intern symbol-name "-cache-prec" "-cache" "-last-prec" "-last" progn defvar cond consp math-numdigs nth 1 eval (t) ((t -100)) (t) t (-100) (nil) setq math-cache-list cons quote (math-cache-list) defun nil or = (calc-internal-prec) math-normalize >= (calc-internal-prec) let ((calc-internal-prec (+ calc-internal-prec 4))) ((+ calc-internal-prec 2)) (calc-internal-prec)] 29 (#$ . 71314)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put math-defcache lisp-indent-function 2 put edebug-form-spec (symbolp sexp form)] 5)
#@26 An approximation for pi.
(defconst math-approx-pi (math-read-number-simple "3.141592653589793238463") (#$ . 72290))
(defvar math-pi-cache-prec (byte-code ":\203\301A@!\207\203\301\302\303\"!A@\207\304\207" [math-approx-pi math-numdigs eval t -100] 4))
(defvar math-pi-cache (byte-code ":\203\207\203\301\302\"\207\207" [math-approx-pi eval t] 3))
(defvar math-pi-last-prec -100)
(defvar math-pi-last nil)
(byte-code "\301\302BB\301\207" [math-cache-list math-pi-cache-prec math-pi-last-prec] 3)
(defalias 'math-pi #[0 "	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])
(defvar math-two-pi-cache-prec -100)
(defvar math-two-pi-cache nil)
(defvar math-two-pi-last-prec -100)
(defvar math-two-pi-last nil)
(byte-code "\301\302BB\301\207" [math-cache-list math-two-pi-cache-prec math-two-pi-last-prec] 3)
(defalias 'math-two-pi #[0 "	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])
(defvar math-pi-over-2-cache-prec -100)
(defvar math-pi-over-2-cache nil)
(defvar math-pi-over-2-last-prec -100)
(defvar math-pi-over-2-last nil)
(byte-code "\301\302BB\301\207" [math-cache-list math-pi-over-2-cache-prec math-pi-over-2-last-prec] 3)
(defalias 'math-pi-over-2 #[0 "	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])
(defvar math-pi-over-4-cache-prec -100)
(defvar math-pi-over-4-cache nil)
(defvar math-pi-over-4-last-prec -100)
(defvar math-pi-over-4-last nil)
(byte-code "\301\302BB\301\207" [math-cache-list math-pi-over-4-cache-prec math-pi-over-4-last-prec] 3)
(defalias 'math-pi-over-4 #[0 "	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])
(defvar math-pi-over-180-cache-prec -100)
(defvar math-pi-over-180-cache nil)
(defvar math-pi-over-180-last-prec -100)
(defvar math-pi-over-180-last nil)
(byte-code "\301\302BB\301\207" [math-cache-list math-pi-over-180-cache-prec math-pi-over-180-last-prec] 3)
(defalias 'math-pi-over-180 #[0 "	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])
(defvar math-sqrt-pi-cache-prec -100)
(defvar math-sqrt-pi-cache nil)
(defvar math-sqrt-pi-last-prec -100)
(defvar math-sqrt-pi-last nil)
(byte-code "\301\302BB\301\207" [math-cache-list math-sqrt-pi-cache-prec math-sqrt-pi-last-prec] 3)
(defalias 'math-sqrt-pi #[0 "	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])
(defvar math-sqrt-2-cache-prec -100)
(defvar math-sqrt-2-cache nil)
(defvar math-sqrt-2-last-prec -100)
(defvar math-sqrt-2-last nil)
(byte-code "\301\302BB\301\207" [math-cache-list math-sqrt-2-cache-prec math-sqrt-2-last-prec] 3)
(defalias 'math-sqrt-2 #[0 "	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])
(defvar math-sqrt-12-cache-prec -100)
(defvar math-sqrt-12-cache nil)
(defvar math-sqrt-12-last-prec -100)
(defvar math-sqrt-12-last nil)
(byte-code "\301\302BB\301\207" [math-cache-list math-sqrt-12-cache-prec math-sqrt-12-last-prec] 3)
(defalias 'math-sqrt-12 #[0 "	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])
(defvar math-sqrt-two-pi-cache-prec -100)
(defvar math-sqrt-two-pi-cache nil)
(defvar math-sqrt-two-pi-last-prec -100)
(defvar math-sqrt-two-pi-last nil)
(byte-code "\301\302BB\301\207" [math-cache-list math-sqrt-two-pi-cache-prec math-sqrt-two-pi-last-prec] 3)
(defalias 'math-sqrt-two-pi #[0 "	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") (#$ . 77223))
(defvar math-sqrt-e-cache-prec (byte-code ":\203\301A@!\207\203\301\302\303\"!A@\207\304\207" [math-approx-sqrt-e math-numdigs eval t -100] 4))
(defvar math-sqrt-e-cache (byte-code ":\203\207\203\301\302\"\207\207" [math-approx-sqrt-e eval t] 3))
(defvar math-sqrt-e-last-prec -100)
(defvar math-sqrt-e-last nil)
(byte-code "\301\302BB\301\207" [math-cache-list math-sqrt-e-cache-prec math-sqrt-e-last-prec] 3)
(defalias 'math-sqrt-e #[0 "	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])
(defvar math-e-cache-prec -100)
(defvar math-e-cache nil)
(defvar math-e-last-prec -100)
(defvar math-e-last nil)
(byte-code "\301\302BB\301\207" [math-cache-list math-e-cache-prec math-e-last-prec] 3)
(defalias 'math-e #[0 "	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])
(defvar math-phi-cache-prec -100)
(defvar math-phi-cache nil)
(defvar math-phi-last-prec -100)
(defvar math-phi-last nil)
(byte-code "\301\302BB\301\207" [math-cache-list math-phi-cache-prec math-phi-last-prec] 3)
(defalias 'math-phi #[0 "	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") (#$ . 79009))
(defvar math-gamma-const-cache-prec -100)
(defvar math-gamma-const-cache nil)
(defvar math-gamma-const-last-prec -100)
(defvar math-gamma-const-last nil)
(byte-code "\301\302BB\301\207" [math-cache-list math-gamma-const-cache-prec math-gamma-const-last-prec] 3)
(defalias 'math-gamma-const #[0 "	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])
#@13 

(fn SYMB)
(defalias 'math-half-circle #[257 "\301=\203\211\203\f\302\207\303 \207\304\207" [calc-angle-mode rad (var pi var-pi) math-pi 180] 3 (#$ . 79742)])
#@13 

(fn SYMB)
(defalias 'math-full-circle #[257 "\300\301\302!\"\207" [math-mul 2 math-half-circle] 5 (#$ . 79912)])
#@13 

(fn SYMB)
(defalias 'math-quarter-circle #[257 "\300\301!\302\"\207" [math-div math-half-circle 2] 4 (#$ . 80034)])
(defvar math-expand-formulas nil)
#@10 

(fn A)
(defalias 'math-oddp #[257 "\211\250\205\300!\207" [cl-oddp] 3 (#$ . 80193)])
(byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\300\307\310\"\210\300\311\312\"\210\300\313\314\"\210\300\315\316\"\210\300\317\320\"\207" [defalias math-integerp integerp math-natnump natnump math-ratp Math-ratp math-realp Math-realp math-anglep Math-anglep math-numberp Math-numberp math-scalarp Math-scalarp math-vectorp Math-vectorp] 3)
#@10 

(fn A)
(defalias 'math-objvecp #[257 "\211\250\206	\211\242\300>\207" [(frac float cplx polar hms date sdev intv mod vec incomplete)] 3 (#$ . 80649)])
#@10 

(fn A)
(defalias 'math-primp #[257 "\211\250\206	\211\242\300>\207" [(frac float cplx polar hms date mod var)] 3 (#$ . 80809)])
#@10 

(fn A)
(defalias 'math-messy-integerp #[257 "\211\242\300=\203
\3018\302Y\207\211\242\303=\205\304\305!!\207" [float 2 0 frac Math-integerp math-normalize] 4 (#$ . 80946)])
#@10 

(fn A)
(defalias 'math-num-integerp #[257 "\211\250\206\211\211:\205\211@\300=\205\3018\302Y\262\207" [float 2 0] 4 (#$ . 81132)])
#@10 

(fn A)
(defalias 'math-num-natnump #[257 "\300!\206\"\211\242\301=\205\"\211A@\211\250\205\211\302Y\262\205\"\3038\302Y\207" [natnump float 0 2] 4 (#$ . 81279)])
#@10 

(fn A)
(defalias 'math-provably-integerp #[257 "\300!\206\211\242\301>\205\211G\302U\207" [Math-integerp (calcFunc-trunc calcFunc-round calcFunc-rounde calcFunc-roundu calcFunc-floor calcFunc-ceil) 2] 3 (#$ . 81457)])
#@10 

(fn A)
(defalias 'math-provably-realp #[257 "\211\211:?\206\211@\300>\262\206\301!\206\211\242\302>\207" [(frac float) math-provably-integerp (abs arg)] 4 (#$ . 81688)])
#@10 

(fn A)
(defalias 'math-complexp #[257 "\211\242\300>\207" [(cplx polar)] 3 (#$ . 81874)])
#@10 

(fn A)
(defalias 'math-rect-complexp #[257 "\211\242\300=\207" [cplx] 3 (#$ . 81972)])
#@10 

(fn A)
(defalias 'math-polar-complexp #[257 "\211\242\300=\207" [polar] 3 (#$ . 82067)])
#@10 

(fn A)
(defalias 'math-matrixp #[257 "\211\211\242\300=\262\205D\211A@\211\242\300=\262\205D\211A@A\205D\211A@GA\262A\211\262\203@@\211\242\300=\262\203@@GU\204%?\262\207" [vec] 5 (#$ . 82164)])
#@14 

(fn A LEN)
(defalias 'math-matrixp-step #[514 "?\206@\211\242\300=\262\205@GU\205\301A\"\207" [vec math-matrixp-step] 5 (#$ . 82385)])
#@10 

(fn A)
(defalias 'math-square-matrixp #[257 "\300!\211A\205\211@A@U\207" [math-mat-dimens] 4 (#$ . 82541)])
#@26 

(fn MAT &optional MUL)
(defalias 'math-identity-matrix-p #[513 "\300!\2058\211\203A@A@\202\301GS\301\211X\203/\3028#\203/\211T\262\202\211V\2056\266\203\207" [math-square-matrixp 1 math-ident-row-p] 9 (#$ . 82661)])
#@26 

(fn ROW N &optional A)
(defalias 'math-ident-row-p #[770 "\211\204\300\262\301\302\303T\233\">?\205.\301\302\304\305AGZ\"\">?\205.\234=\207" [1 nil mapcar #[257 "\211\300=\207" [0] 3 "\n\n(fn X)"] #[257 "\211\300=\207" [0] 3 "\n\n(fn X)"] butlast] 10 (#$ . 82907)])
#@10 

(fn A)
(defalias 'math-objectp #[257 "\211\250\206	\211\242\300>\207" [(frac float cplx polar hms date sdev intv mod)] 3 (#$ . 83198)])
#@10 

(fn A)
(defalias 'math-check-integer #[257 "\211\250\203\207\300!\203\301!\207\302\303\"\207" [math-messy-integerp math-trunc math-reject-arg integerp] 4 (#$ . 83343)])
#@30 

(fn A &optional ALLOW-INF)
(defalias 'math-check-fixnum #[513 "\301!\203\207\211\250\206\211:\205\211@\302=\205\3038\304Y\262\2036\305!\301!\2031\211\2025\306\301\"\207\211\203B\307\232\203B\207\211\203O\310\232\203O[\207\306\301\"\207" [most-positive-fixnum fixnump float 2 0 math-trunc math-reject-arg (var inf var-inf) (neg (var inf var-inf))] 6 (#$ . 83527)])
#@10 

(fn A)
(defalias 'math-check-natnum #[257 "\300!\203\207\301!\204-\211\211\250\206$\211:\205$\211@\302=\205$\3038\304Y\262\203-\305!\207\306\300\"\207" [natnump math-negp float 2 0 math-trunc math-reject-arg] 4 (#$ . 83927)])
#@10 

(fn A)
(defalias 'math-check-float #[257 "\211\242\300=\203\207\211\211\242\301=\262\203\302\303\"\207\211\211:?\206\"\211@\304>\262\203+\305!\207\207" [float vec math-map-vec math-check-float (frac float cplx polar hms date sdev intv mod) math-float] 4 (#$ . 84174)])
#@27 

(fn A &optional EXP-OK)
(defalias 'math-check-const #[513 "\301!\204\211\203\203\207\302\303\"\207" [math-expand-formulas math-constp math-reject-arg constp] 5 (#$ . 84461)])
#@86 Get the mean value of the error form X.
If X is not an error form, return X.

(fn X)
(defalias 'math-get-value #[257 "\211\242\300=\203\211A@\207\207" [sdev] 3 (#$ . 84654)])
#@108 Get the standard deviation of the error form X.
If X is not an error form, return 1.

(fn X &optional ONE)
(defalias 'math-get-sdev #[513 "\242\300=\203\3018\207\211\203\302\207\303\207" [sdev 2 1 0] 4 (#$ . 84838)])
#@57 Non-nil if the list LS contains an error form.

(fn LS)
(defalias 'math-contains-sdev-p #[257 "\211\242\300=\203\f\211A\202
\211\301\302\303\">\207" [vec t mapcar #[257 "\211\242\300=\207" [sdev] 3 "\n\n(fn X)"]] 6 (#$ . 85067)])
(defvar math-simplify-only nil)
#@10 

(fn A)
(defalias 'math-normalize-fancy #[257 "\211@\303=\203\304\305A@!\305\3068!\"\207\211@\307=\2038\305A@!\305\3068!\310!\2033\2043\2027\307E\207\211@\311=\203C\312!\207\211@\313=\203N\314!\207\211@\315=\203]\315\305A@!D\207\211@\316=\203h\317!\207\211@\320=\203\305\305A@!\305\3068!\211:?\206\204\211@\321>\262\203\231\211:?\206\224\211@\322>\262\203\271\211\211:?\206\244\211@\321>\262\203\300\211\211:?\206\264\211@\322>\262\204\300\323E\202\304\324\"\207\211@\325=\2039\305A@!\305\3068!\305\3268!\242\315=\203\352\211\242\315=?\202(\211:?\206\365\211@\321>\262\203\n\211:?\206\211@\327>\262\203+\211\211:?\206\211@\321>\262\2033\211\211:?\206%\211@\327>\262?\2033\330F\2028\331#\207\211@\332=\203H\332\333\305A\"B\207\211@\334=\203U\305A@!\207\211@\335=\203l	\336>?\205d	\305A@!)\207\211@\337=\203x\337AB\207\211@\340=\203\203\341!\207\211@\342>\203\226\343\211@\333\305A\")B\207\211@\344=\203\344\211A@\206\244\345\262\n\204\262\343\305!)\262\211\242\346=\203\306\211G\326U\203\306\3068\202\307\211\344	\343=\203\325\305!\202\342	\336>?\205\335	\347!)E\207\211@\250\204\360\211@:\205\375\211A\204\372\305@!\207\350\351!\207" [math-simplify-only calc-simplify-mode calc-refreshing-evaltos frac math-make-frac math-normalize 2 cplx math-zerop polar math-normalize-polar hms math-normalize-hms date mod math-normalize-mod sdev (frac float cplx polar hms date sdev intv mod) (frac float cplx polar hms) calcFunc-sdev math-make-sdev intv 3 (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"] 8 (#$ . 85338)])
#@10 

(fn A)
(defalias 'math-normalize-nonstandard #[257 ":\203
\302\211\243\242\303\207\211@9\205J\302=\204B\304=\205J\211@\305\306A\"B\211\262\211\203<\307@!\203<\211A\262\202*\211\262\205J\211@\305\306A\"B\207" [calc-simplify-mode math-simplify-only none nil num mapcar math-normalize math-constp] 5 (#$ . 87216)])
#@10 

(fn A)
(defalias 'math-norm-bignum #[257 "\211\300\203@\301=\204\262A\262\202\211\205 \211\300\241\210\207" [nil 0] 5 (#$ . 87555)])
#@22 

(fn A &optional X)
(defalias 'calcFunc-sign #[513 "\300!\211\301\267\202#\206F\302\202F\303\202F\203\304!\202F\305\202F\306!\2033\304\307\304!!!\202F\310\311\"\210\203C\307E\202F\307D\207" [math-possible-signs #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (4 9 2 17 1 21)) 1 0 math-neg -1 math-looks-negp calcFunc-sign calc-record-why realp] 7 (#$ . 87710)])
#@12 

(fn A B)
(defalias 'math-compare #[514 "\232\203:\203@\300>\203\301!\203\302\207\303\207\250\2031\304!\2031W\203/\305\207\306\207\242\307=\203`\211\242\307=\203S\310\311A@\3028\"\311A@\3028\"\"\207\310A@\311\3028\"\"\207\211\242\307=\203s\310\311\3028\"A@\"\207\242\312=\203\214\211\242\312=\203\214\313\"\203\212\305\207\306\207\242\314=\203\243\211\242\314=\203\243\310A@A@\"\207\211:?\206\256\211@\315>\262\204\302@\316=\203\352\3028\303=\203\352\211\211:?\206\315\211@\315>\262\204\341\211@\316=\203\352\3028\303=\203\352\317\320\321!\"!\207\242\322=\203P\211\211:?\206\374\211@\315>\262\204\211\242\314=\203P\310\3028\"\211\306=\203\306\202O\211\303=\203*A@\323>\203*\306\202O\310\3248\"\211\262\305=\203<\305\202O\211\303=\203NA@\325>\203N\305\202O\302\207\211\242\322=\203\266\211:?\206b\211@\315>\262\204n\242\314=\203\266\310\3028\"\211\305=\203~\305\202\265\211\303=\203\220A@\326>\203\220\305\202\265\310\3248\"\211\262\306=\203\242\306\202\265\211\303=\203\264A@\327>\203\264\306\202\265\302\207\242\322=\203 \211\242\322=\203 \310\3248\3028\"\211\305=\203\326\305\202\211\303=\203\360A@\330>\204\354A@\331>\203\360\305\202\310\3028\3248\"\211\262\306=\203\306\202\211\303=\203A@\332>\204A@\333>\203\306\202\302\207\301!\203\206\334\232\2042\335\232\2034\302\207\336!\301!\203v\337\232\204I\340\232\203M\302\202\205\336!\306=\203`\211\305=\203`\306\202q\305=\203p\211\306=\203p\305\202q\302\262\202\205\211\341\267\202\204\306\202\205\305\202\205\302\207\301!\203\255\211\342\232\204\230\211\343\232\203\232\302\207\336!\211\344\267\202\253\305\202\254\306\202\254\302\207\242\345=\203\314\211\242\346=\203\314\211A@\347\232\203\314\310A@\3028\"\207\211\242\345=\203\353\242\346=\203\353A@\350\232\203\353\310\3028A@\"\207\242\351=\203	\211\242\346=\203	\3028\352\232\204'\3028\353\232\204'\211\242\351=\2030\242\346=\2030\3028\354\232\204'\3028\355\232\2030\310A@A@\"\207\242\356=\2039\302\207:\203V\211:\203V@@=\203V\357AA\"\203V\303\207\302\207" [(var neg * /) math-infinitep 2 0 Math-integerp -1 1 frac math-compare math-mul float math-lessp-float date (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) #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (1 636 -1 640)) (var uinf var-uinf) (var nan var-nan) #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (1 675 -1 679)) 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] 8 (#$ . 88139)])
#@12 

(fn A B)
(defalias 'math-compare-bignum #[514 "\300\203-\203-@@W\203\301\262\202\"@@V\203\"\302\262A\262A\262\202\203K@\300=\203?A\262\2021\203G\302\202b\211\202b@\300=\203YA\262\202K\203a\301\202b\211\207" [0 -1 1] 5 (#$ . 91025)])
#@12 

(fn A B)
(defalias 'math-compare-lists #[514 "\204\211?\207\211\204
\300\207@@\301\"\302U\266\202\205\"\303AA\"\207" [nil math-compare 0 math-compare-lists] 7 (#$ . 91305)])
#@12 

(fn A B)
(defalias 'math-lessp-float #[514 "\3018\3018Z\211\302Y\203Q\211\211\\Y\203=A@\302=\203-A@\211\250\205(\211\302V\262\202\226A@\211\250\2058\211\302W\262\202\226\303A@\"A@\304\"\305U\266\202\202\226\211[\211\262\211\\Y\203\205A@\302=\203uA@\211\250\205p\211\302W\262\202\226A@\211\250\205\200\211\302V\262\202\226A@\303A@\"\304\"\305U\266\202\207" [calc-internal-prec 2 0 math-scale-int math-compare -1] 8 (#$ . 91498)])
#@12 

(fn A B)
(defalias 'math-equal #[514 "\300\"\301U\207" [math-compare 0] 5 (#$ . 91974)])
#@12 

(fn A B)
(defalias 'math-lessp #[514 "\300\"\301U\207" [math-compare -1] 5 (#$ . 92073)])
#@12 

(fn A B)
(defalias 'math-equal-int #[514 "=\206\242\300=\205A@=\205\3018\302U\207" [float 2 0] 4 (#$ . 92173)])
#@10 

(fn M)
(defalias 'math-mat-dimens #[257 "\300!\205\301!\203\211GS\302A@!B\207\211GSC\207" [math-vectorp math-matrixp math-mat-dimens] 4 (#$ . 92305)])
#@34 

(fn NAME FUNC ARG IDENT UNARY)
(defalias 'calc-binary-op-fancy #[1285 "\300!\211\301V\203\302\303\304	!\305\306!BE#\202p\211\301U\2034\205p\302\301\307\301!D#\202p\211\310U\203M\203G\302\310#\202p\311\312!\202p\307\301!\302\301Z\313\314\315\316\317\320\n\"\321\"\322\323%\306[\324\"\"#\262\207" [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 make-byte-code 257 "\300\301E\207" vconcat vector [] 4 "\n\n(fn X)" 2] 18 (#$ . 92471)])
#@22 

(fn NAME FUNC ARG)
(defalias 'calc-unary-op-fancy #[771 "\300!\211\301U\203
\302 \262\211\301V\203-\303\304\305\306\307\310\311!\312\"\313\314%\315!\"#\202?\211\301W\205?\303\316\317[!D[$\207" [prefix-numeric-value 0 calc-stack-size calc-enter-result mapcar make-byte-code 257 "\300D\207" vconcat vector [] 3 "\n\n(fn X)" calc-top-list-n 1 calc-top-n] 14 (#$ . 93050)])
(defvar var-Holidays '(vec (var sat var-sat) (var sun var-sun)))
(defvar var-Decls (list 'vec))
(defalias 'math-inexact-result #[0 "\205\301\302\303\"\207" [calc-symbolic-mode signal inexact-result nil] 3])
#@22 

(fn &optional EXP)
(defalias 'math-overflow #[256 "\211\203
\300!\203
\301 \207\302\303\304\"\207" [math-negp math-underflow signal math-overflow nil] 4 (#$ . 93655)])
(defalias 'math-underflow #[0 "\300\301\302\"\207" [signal math-underflow nil] 3])
#@12 

(fn A B)
(defalias 'math-gcd #[514 ":\204D\211:\204D\300W\203[\262\211\300W\203\211[\262\301W\203.\262\262\211\262\300V\203B\262\246\262\211\262\202.\207\300=\203K\207\211\300=\203S\207\211\250\205\\\211\300W\262\203f\302!\262\211\211\250\205o\211\300W\262\203y\302!\262\301:\203\221\211:\205\231\303AA\"\304U\202\231\211:\206\231W\266\202\203\247\262\262\211\262:\203\301\300=\204\301\262\305\"\262\211\262\202\247\300V\203\325\262\246\262\211\262\202\301\207" [0 nil math-neg math-compare-bignum -1 math-imod] 8 (#$ . 93917)])
#@10 

(fn X)
(defalias 'math-evaluate-expr #[257 "\203\301!\207\302\303!!\207" [calc-embedded-info calc-embedded-evaluate-expr calc-normalize math-evaluate-expr-rec] 4 (#$ . 94536)])
(defalias 'calcFunc-evalv 'math-evaluate-expr)
#@25 

(fn X &optional PREC)
(defalias 'calcFunc-evalvn #[513 "\211\203S\302!\204/\303!\203*\211G\304U\203*\302A@!\203*\305A@\"\262\202/\306\307\"\210\310!\262\211\311W\203=\311\262\211V\203L\312\313!)!\207\211\313!)\207\314\315!)\207" [calc-internal-prec 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] 5 (#$ . 94773)])
#@10 

(fn X)
(defalias 'math-evaluate-expr-rec #[257 "\211:\203t\211@\301>\203'\211@\302=\203&\211G\303U\203&\211@A@\304\3058!E\207\207\211@\306=\203Z\307\3058!\203Y\3058J\242\310=\204Y\3058J\211\242\311=\203W\203S\202X\211\202X\211\207\207\211\211:?\206e\211@\312>\262\203k\207\211@\313\304A\"B\207\207" [calc-symbolic-mode (calcFunc-quote calcFunc-condition calcFunc-evalto calcFunc-assign) calcFunc-assign 3 math-evaluate-expr-rec 2 var calc-var-value incomplete special-const (frac float cplx polar hms date mod var) mapcar] 6 (#$ . 95227)])
#@13 

(fn EXPR)
(defalias 'math-any-floats #[257 "\211\211:?\206\211@\300>\262\203\301!\207\211A\211\262\203#\302@!\203\207" [(frac float cplx polar hms date mod var) math-floatp math-any-floats] 4 (#$ . 95797)])
(defvar var-FactorRules 'calc-FactorRules)
(defvar math-mt-many nil)
(defvar math-mt-func nil)
#@37 

(fn FUNC MMT-EXPR &optional MANY)
(defalias 'math-map-tree #[770 "\206\302\303!*\207" [math-mt-many math-mt-func 1000000 math-map-tree-rec] 5 (#$ . 96118)])
#@17 

(fn MMT-EXPR)
(defalias 'math-map-tree-rec #[257 "\302U\204p\303\211\204n\302U\2046	!\211\262\2036\232\2046\211\262\302V\203/S\2021T\211\202
\211:?\206A\211@\304>\262\204L\302X\203R\305\262\202@\306\307A\"B\262\211\232\203h\305\262\202\211\262\202\266\207" [math-mt-many math-mt-func 0 nil (frac float cplx polar hms date mod var) t mapcar math-map-tree-rec] 8 (#$ . 96290)])
#@13 

(fn EXPR)
(defalias 'math-is-true #[257 "\211\211:?\206\211@\300>\262\2032\211\211:\203+\211@\301=\203%\211A@\302=\202.\303!\202.\211\302=\262?\207\304!\207" [(frac float cplx polar) float 0 math-zerop math-known-nonzerop] 4 (#$ . 96715)])
#@13 

(fn EXPR)
(defalias 'math-const-var #[257 "\211:\205*\211@\300=\205*\30189\203%\302\3018!\203%\3018J\242\303=\206*\3018\304>\207" [var 2 boundp special-const (var-inf var-uinf var-nan)] 4 (#$ . 96974)])
#@25 

(fn FUNCS &rest CODE)
(defalias 'math-defintegral '(macro . #[385 "\301\302\303\304\305\306\307\310!\311\"\312\313%9\203C\202\"B\207" [math-integral-cache nil progn mapcar make-byte-code 257 "\301\302D\303\304\305\302D\306BB\307\310\311\312\300BBDDEF\207" vconcat vector [put quote 'math-integral nconc get ('math-integral) list function lambda (u)] 11 "\n\n(fn FUNC)"] 10 (#$ . 97194)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put math-defintegral lisp-indent-function 1 put edebug-form-spec (sexp body)] 5)
#@25 

(fn FUNCS &rest CODE)
(defalias 'math-defintegral-2 '(macro . #[385 "\301\302\303\304\305\306\307\310!\311\"\312\313%9\203C\202\"B\207" [math-integral-cache nil progn mapcar make-byte-code 257 "\301\302D\303\304\305\302D\306BB\307\310\311\312\300BBDDEF\207" vconcat vector [put quote 'math-integral-2 nconc get ('math-integral-2) list function lambda (u v)] 11 "\n\n(fn FUNC)"] 10 (#$ . 97747)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put math-defintegral-2 lisp-indent-function 1 put edebug-form-spec (sexp body)] 5)
(defvar var-IntegAfterRules 'calc-IntegAfterRules)
(defvar var-FitRules 'calc-FitRules)
(defvar math-poly-base-variable nil)
(defvar math-poly-neg-powers nil)
(defvar math-poly-mult-powers 1)
(defvar math-poly-frac-powers nil)
(defvar math-poly-exp-base nil)
#@13 

(fn NAME)
(defalias 'math-build-var-name #[257 "\211;\203\n\300!\262\301\302\303!\"\203\304\300\305\303!\306\"!E\207\304\300\307\303!P!E\207" [intern string-match "\\`var-." symbol-name var substring 4 "var-"] 7 (#$ . 98569)])
(defvar math-simplifying-units nil)
(defvar math-combining-units t)
#@10 

(fn S)
(defalias 'math-read-number-fancy #[257 "\304\305\"\203p\306\307\"\306\310\"\306\311\"G\312V\203 \313!\202!\312G\312V\203.\313!\202/\307G\312V\203<\313!\202=\307\205m\205m\211\205m\314!\205m\314!\205m\314!\205m\315!?\205m\316\317\320\"\"E\266\203\207\304\321\"\203\275\306\307\"\306\310\"G\312V\203\214\313!\202\215\307G\312V\203\232\313!\202\233\307\205\272\211\205\272\314!\205\272\314!\205\272\315!?\205\272\316E\266\202\207\304\322\"\203\353\306\307\"\306\310\"\313!\313!\205\352\211\205\352\323!\205\352\323!\205\352\324E\207\304\325\"\203\306\307\"\306\310\"\313!\313!\205\211\205\326!\205\323!\205\327E\207\304\330\"\203\202\331\306\307\"!\306\311\"\306\332\"\306\333\"G\312V\203@\334\"\202A\312G\312V\203P\334\"\202Q\307G\312V\203`\334\"\202a\307\205\205\211\205\315!?\205\316\317\320\"\"E\266\203\207\304\335\"\203\313\331\306\307\"!\306\311\"\306\332\"G\312V\203\245\334\"\202\246\307G\312V\203\264\334\"\202\265\307\205\310\211\205\310\315!?\205\310\316E\266\202\207\304\336\"\204\331\304\337\"\203\331\306\310\"!\306\307\"\306\332\"\313!\313!\205\377\211\205\377\320\340\341!\"\"\266\202\207\304\342\"\203P\331\306\307\"!\306\311\"\306\332\"G\312V\203%\334\"\202&\312G\312V\2034\334\"\2025\312\343\205L\211\205L\317\344\340	G\"\"\")\266\202\207\304\345\"\203d\334\306\311\"\331\306\307\"!\"\207\304\346\"\203\226\334\306\311\"\331\306\307\"!\"\211	\347\"\350U\266\202\203\224\347\n\"\312X\203\224\351	\"\202\225\211\207\352=\203\254\304\353\"\203\254\306\307\"\334\354\"\207\355=\203\302\304\356\"\203\302\306\307\"\334\354\"\207\304\357\"\204\320\304\360\"\203<\306\307\"\306\310\"\313!G\312V\203\350\313!\202\351\312\205;\211\205;\361!\205;\362!?\205;\362!?\205;\361!\203 \211\363\347\"\350U\266\202\205;\364\312F\202;\211\242\364=\203:\315A@!\203:\317\364\312\211F\"\202;\343\207\304\365\"\203\267\306\307\"\306\310\"\313!G\312V\203[\313!\202\\\312\205\266\211\205\266\361!\205\266\362!?\205\266\362!?\205\266\366!\203\223\363\347\"\350U\266\202\205\266\364\312F\202\266\211\242\364=\203\265\315A@!\203\265\315\3108!\203\265\317\364\312\312F\"\202\266\343\207\304\367\"\203\350\313\306\307\"!\211\205\347\366!\205\347\362!?\205\347\211\363\347\"\350U\266\202\205\347\364\312\211F\207\304\370\"\203\374\313\306\307\"\371\306\310\"Q!\207\343\207" [calc-prefer-frac math-2-word-size math-half-2-word-size calc-language 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 "^\\([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]*\\)$" nil math-div "^\\([0-9]+\\)\\(#&?\\|\\^\\^\\)\\([0-9a-zA-Z]+\\)$" "^\\([0-9]+\\)\\(##\\)\\([0-9a-zA-Z]+\\)$" math-compare -1 math-sub c "^0[xX]\\([[:xdigit:]]+\\)$" 16 pascal "^\\$\\([[:xdigit:]]+\\)$" "^\\([^#^]+\\)[@oOhH]\\(.*\\)$" "^\\([^#^]+\\)[dD][eE]?[gG]?\\(.*\\)$" math-num-integerp math-negp 60 hms "^\\([^'#^]+\\)[mM']\\(.*\\)$" math-realp "^\\([^\"#^]+\\)[sS\"]$" "^\\([0-9]+\\)/\\([0-9/]+\\)$" ":"] 14 (#$ . 98882)])
#@12 

(fn S R)
(defalias 'math-read-radix #[514 "\226\262\300\211\301GW\2030\302\234!\211\262\2030\211W\2030\303\304\"\"\262T\262\202GU\2058\207" [0 nil math-read-radix-digit math-add math-mul] 9 (#$ . 102714)])
#@12 

(fn STR)
(defalias 'math-read-expr #[257 "\306\306\307\211\211\310\f!\311\312\f\"\211\203*\313\f\306	#\314\313\f	\315\\\"Q\202\316 \210\317 \210\32028\321\306!0\211;\203D\322E\202R	\323=\203N\211\202R\322\324E\262.\207" [math-expr-data math-exp-token math-exp-keep-spaces math-exp-old-pos math-exp-str math-exp-pos 0 nil math-read-preprocess-string string-match "\\.\\.\\([^.]\\|.[^.]\\)" substring "\\dots" 2 math-build-parse-table math-read-token syntax math-read-expr-level error end "Syntax error"] 7 (#$ . 102952)])
#@38 

(fn EXP-STR &optional ERROR-CHECK)
(defalias 'math-read-plain-expr #[513 "\302\303 \304!\203\211\242\305=\203\305\306\3078#\210*\211\207" [calc-language math-expr-opers nil math-standard-ops math-read-expr error "%s: %s" 2] 7 (#$ . 103504)])
(defalias 'math-read-string #[0 "\301\302P!\211AGTU\203\211@;\204\303\304\305\"\210\306 \210\307\310@\311#\207" [math-expr-data read-from-string "\"" throw syntax "Error in string constant" math-read-token append (vec) nil] 5])
#@12 

(fn STR)
(defalias 'math-read-big-expr #[257 "G\306V\203 \307\310\311!P\"\203 \312\306\211\224#\312\306\225\"P\262	G\306V\203@\307\311	!\313P\"\203@\312\306\211\224#\312\306\225\"P\262\307\314\"\203g\n\315=\203Q\316!\207\315\317\315\320N\315\321N\315\322N\316!-\207\317\306\211\317\211\211\211\211\307\323\n	#\211\262\203\230\312	#B\262T\262\202x\312	\"B\237\262\262\211\203\272@G]\262\211A\262\202\250\324!\203\333\3252\317\326\306\211G$0\206\337\206\337\327\202\337\316	!+\207" [calc-left-label calc-right-label calc-language math-expr-variable-mapping math-expr-function-mapping math-expr-opers 0 string-match "^" regexp-quote substring " *$" "\\\\[^ \n|]" latex math-read-expr nil math-oper-table math-function-table math-variable-table "\n" math-read-big-bigp syntax math-read-big-rec (error 0 "Syntax error") calc-language-option math-read-big-h2 math-read-big-baseline math-read-big-err-msg] 14 (#$ . 103999)])
#@28 

(fn MATH-READ-BIG-LINES)
(defalias 'math-read-big-bigp #[257 "\211A\205\303\301\302@G\302V\203\303\202\302A\203\264\302\301@A@GG^G\302V\2031T\262W\203\212H\304>\204\203H\305>\204\203H\306>\203ZHHU\204\203H\307=\203\212H\307=\203\212G\310T\311#\211\262)\203\212S\211\262\203\212T\262\2021U\206\244H\307=\203\243H\307=\203\243\312\262\301\266\205\203\264A\262T\262\202\211\303V\203\300A?\206\301\266\203\207" [math-rb-h2 nil 0 1 (32 45 95) (32 45) (124 44) 91 math-read-big-balance "[" t] 13 (#$ . 105002)])
(defvar math-format-hash-args nil)
(defvar calc-can-abbrev-vectors nil)
#@15 

(fn A PREC)
(defalias 'math-format-flat-expr-fancy #[514 "@\304=\203\305\306A@\"\207@\307=\203^\204$	\203$G\310W\2038\311\312A\313AA\2033\314\2024\315#\316Q\207\311\317A@\314\"\313\317\3208\314\"\313\317\3218\314\"\322\317	GS\n8\314\"\316\260	\207@\323=\203\220A@\324>\203q\325\202r\311\317\3208\315\"\326\317\3218\315\"A@\327>\203\214\330\202\215\316\260\207@\331=\203\236\332\333!\334Q\207@\335=\203\371G\320V\203\371A\nG\321U\203\272\336\202\273\337A\203\324@@\232\203\324A\262\211A\262\202\274\332A\203\352\312\340A!A\237\313\314#\341P\202\353\342\317GS8\314\"\334R)\207@\343=\203?\2039\n\336\203\"@\232\204\"\337=\205A\262\211T\262\202\2054\336=\2030\344\2024\305\345\"\266\202\206
\346A@!\207@\347>\203nG\320U\203n\350A@!\203n\351A@!\203n\352\346@!\353\"\325\354A@\337\"\330R\207\355@\356 \"\211\203\325G\321U\203\325\3208\3218^V\203\225\325\317\314\"\330Q\202\317A@\3208\"\317\3208\3218\"@\262\357\232\204\265\360\232\203\306\314H\361U\203\314\325\330Q\262\202\314\362\362Q\262Q\266\202\202@\363=\203\347\364\317A@\315\"P\202\365\366\367\346@!\"\203\375\370\346@!\336\"\202\346@!!\325\312A\313\314#\330R\262\207" [calc-full-trail-vectors calc-can-abbrev-vectors calc-arg-values math-format-hash-args 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 substring 9 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] 12 (#$ . 105663)])
#@21 

(fn VEC SEP PREC)
(defalias 'math-format-flat-vector #[771 "\203!\300@\"A\211\262\203\211\300@\"Q\262\202	\211\207\301\207" [math-format-flat-expr ""] 9 (#$ . 107547)])
#@12 

(fn X W)
(defalias 'math-format-nice-expr #[514 "\242\301=\2039AA\2039\302A@\242>\206*\3038\242>\206*\3048\242>\206*\262\2039\305\306A\307\310#\311Q\207\312\310\"\310\313\314\315\"\204\210\\\211\262GX\203\210\211S\211\262V\203dH\316U\203R\211\317\\V\203\200\320\310#\321\320\"Q\262\211T\262\202F\\\262\202F\207" [calc-break-vectors 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 substring "\n "] 10 (#$ . 107738)])
#@12 

(fn V A)
(defalias 'math-assq2 #[514 "\211\203@A@=\204\211A\262\202\211@\207" [] 4 (#$ . 108354)])
#@15 

(fn A PREC)
(defalias 'math-format-number-fancy #[514 "@\306=\203UA@\211\250\205\211\307W\262\203\310\311\312!!P\207\2033	\313>\2043\n\314\"\"\202;\315\316\n\314\"#\203S\317V\203S\320\321\"\203S\322\323Q\202T\211\207@\324=\203\311\325!\262@G\326V\203\263A@\211\250\205t\211\307W\262\203\201\310\311\312!!P\207\327A@\3308\"\331\311@!)\332@\307\326#\331\211\311A!*\332@\326\330#\331\211\311\3308!*\260\207\331\311A@!)@\331\211\311\3308!*Q\207@\333=\203q\334\3308!\203\336\311A@!\207
\204\363\322\311A@!\335\311\3308!\323\260\207\334A@!\2030\336\3308\326\"\203\337
!\207\336\3308\340\"\203\310\337
!P\207\211\203%\341\342\3308\343E\"\207\311\3308!\344\337
!Q\207\211\203R\341\345\3308!\203A\346\202B\347A@\333\307\350\3308!EE\"\207\311A@!\345\3308!\203c\351\202d\352\311\333\307\350\3308!E!Q\207@\353=\203\211\322\311A@!\354\311\3308!\323\260\207@\355=\203\306\345!\203\236\310\311\312!!P\207\356\331\211\211=>?\315@\357\311A@!)\360\311\3308!)\311\3618!$,\207@\362=\203\366A@\363>\203\331\322\202\332\364\311\3308!\365\311\3618!A@\366>\203\362\323\202\363\367\260\207@\370=\203\n\311A@!\371\311\3308!Q\207@\372=\203\373\307\"\207\315\374\"\207" [calc-radix-formatter calc-language calc-number-radix calc-frac-format math-radix-explicit-format calc-complex-format float 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 substring 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-group-digits calc-leading-zeros calc-twos-complement-mode calc-hms-format] 10 (#$ . 108470)])
#@10 

(fn A)
(defalias 'math-adjust-fraction #[257 "A@\203.\301!\203\302\303E\262\304A@\305\3068A@\"\"\302\307A@\"\307\3068\"E\207\207" [calc-frac-format Math-integerp frac 1 math-quotient math-gcd 2 math-mul] 7 (#$ . 110389)])
#@10 

(fn A)
(defalias 'math--format-integer-fancy #[257 "\306U\203\f\307!\202\310!	\2030\311\312\313!\"G\211W\203-\314Z\315\"P\262)\266\f\203i\211G\f\250\203A\313\f!\202L\316>\203K\317\202L\320V\203gZ\262\321\322#
\321\"Q\262\202L\266\306U\204\211\203\211\203\201\"\202\212\323\324#\202\212\211\207" [calc-number-radix calc-leading-zeros calc-internal-prec calc-word-size calc-group-digits calc-group-char 10 number-to-string math-format-radix 6 math-compute-max-digits math-abs make-string 48 (2 16) 4 3 substring 0 format "%d#%s" math-radix-explicit-format calc-radix-formatter] 9 (#$ . 110633)])
#@12 

(fn STR)
(defalias 'math-group-float #[257 "\303\304\"\206	\211G\250\203\305!\202	\306>\203\307\202\310\250\203P\311W\203P\211T\\\211\262GW\203P\312\311#\n\312\"Q\262\211\nGS\\\262\202+\262\211V\203o\211Z\262\312\311#\n\312\"Q\262\202S\207" [calc-group-digits calc-number-radix calc-group-char string-match "[^0-9a-zA-Z]" math-abs (2 16) 4 3 0 substring] 9 (#$ . 111288)])
#@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 (#$ . 111713))
(byte-code "\300\301!\210\302\303!\207" [run-hooks calc-ext-load-hook provide calc-ext] 2)

Zerion Mini Shell 1.0