;ELC   
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.


(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\302A@H\242\201R=\203\273A@\201R\201SA@HBA@HABBI\210\211T\262\202\214\210\201T!\201T\n!\201U\211\201VW\203\211\201W>\204\353	A@\201XI\210\211\201Y>\204\376A@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" "mt" "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\"A\"\207" [mapcar make-closure #[257 "\301\300@\"\207" [V0 autoload] 4 "\n\n(fn FUNC)"]] 5 "\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\"A\"\207" [mapcar make-closure #[257 "\301\300@\302\303$\207" [V0 autoload nil t] 6 "\n\n(fn CMD)"]] 5 "\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 (#$ . 51398)])
#@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 (#$ . 51517)])
#@12 

(fn VAL)
(defalias 'calc-normalize-fancy #[257 ":\203\n @\202 \211\301\267\202- \302!\303!\203  \304\305!!\207\207\306!\207\307!\207\310!\207\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 33 ext 37 units 41)) math-normalize math-realp math-clip math-round math-simplify math-simplify-extended math-simplify-units] 6 (#$ . 51740)])
(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\2118\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\244 \334!\207\304\335\336\203\264 \337\"\202\267 \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 (#$ . 52979)])
#@12 

(fn ARG)
(defalias 'calc-reset #[257 "\211\205 \306!\262\203C \307Hp\232\203C `\310HX\203C `\311HY\203C \312H\313\314 \315\316\"\216\317\320!\210q\210\321!\210)\210\317\320!)\207\n\322=\203\233 \212\211\203V \323!\307V\204X \320\320\211\320\211\211\211!\"#\324\325$\"\210\211\203} \211\307X\203} \326 \210\202\200 \327 \210,\330\320\211\313#\210\322 \210\331\313!\210\332\333!\210)\334\335!\210\336\337!\207\336\340!\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-closure #[0 "\301\300!\207" [V0 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\211U\2062 \310 \311!\210\312Z!\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] 7 (#$ . 53812) "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 (#$ . 55183) "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 (#$ . 55352) "P"])
#@10 

(fn N)
(defalias 'calc-scroll-up #[257 "\3011 \302\206 \303 \304\245!0\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 (#$ . 55523) "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 (#$ . 55864) "P"])
#@10 

(fn N)
(defalias 'calc-precision #[257 "\300\301\302\"!\207" [calc-do make-closure #[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" [V0 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]] 5 (#$ . 56037) "NPrecision: "])
#@20 

(fn &optional N)
(defalias 'calc-inverse #[256 "\304=\204\f \305=\203 r	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 (#$ . 56541) "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\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) (#$ . 57013))
(defvar calc-is-keypad-press nil)
#@19 

(fn FLAG MSG N)
(defalias 'calc-fancy-prefix #[771 "\304C\305\306\307%!\210\211\242\205e ?\205e \310\302!\203$ 	\211\207\311 \211\211\312=\2033 \313 \202c \250\203J \314Y\203N \315W\203N \316=\204N \305\317!\210\211\211\250\203[ \320=\203` \321 \202c \322!\262\207" [calc-is-keypad-press calc-fancy-prefix-map overriding-terminal-local-map last-command-event nil calc-do make-closure #[0 "\305\306!\210\305\307!\210\303\300\211J?L\240\210\302\310\311\303\242\203 \301\202 \312\"\207" [V0 V1 V2 V3 prefix-arg calc-set-command-flag keep-flags no-align message "%s" ""] 3] boundp read-event 21 universal-argument 0 32 27 #[0 "\300\207" [nil] 1] 45 calc-unread-command digit-argument] 11 (#$ . 57630)])
#@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 (#$ . 58359) "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=\203 r	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 (#$ . 58963) "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=\203 r	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 (#$ . 59714) "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 (#$ . 60244) "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\203p \306C\2046 \307\310!\210\311\312!\210\313\314#\216\242\211\203a @J\242B\240\210\211@@L\210\211A\262A\262\202B \315\312!\210\316 \210\242@J\262)\207\306\242\211\203\257 \211@J@\232\204\244 \211@@L\210\211@\317=\203\241 @@\320=\203\233 \321\202\236 @@\305D\322\262\211A\262A\262\202s \203\317 \203\274 \323 \204\277 \316 \210\n\324=\203\317 \242\325\232\204\317 \326 \210\203\330 \327\242!\210\330 \210\242@J\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-closure #[0 "\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" [V0 V1 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] 10 (#$ . 60398)])
#@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 (#$ . 61595) nil])
#@10 

(fn N)
(defalias 'calc-refresh-top #[257 "\211C\300\301\302\"!\207" [calc-do make-closure #[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" [V0 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]] 6 (#$ . 61780) "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=\203d A@\242\315=\203d \317!\262\211\232\204d \320C\"\210\321\322T\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 (#$ . 62395)])
#@19 

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

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

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

(fn N)
(defalias 'calc-evaluate #[257 "\211C\300\301\302\"`\"\207" [calc-do make-closure #[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" [V0 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]] 6 (#$ . 63364) "p"])
#@10 

(fn N)
(defalias 'calc-eval-num #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[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" [V0 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]] 5 (#$ . 63824) "P"])
#@53 The history list for calc-execute-extended-command.
(defvar calc-extended-command-history nil (#$ . 64256))
#@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 (#$ . 64370) "P"])
#@22 

(fn &optional NUM)
(defalias 'calc-realign #[256 "\211\203 \304=\203 \305!\210\306!\210	\205; \307u\207\n\2038 p\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 (#$ . 64646) "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;\2038 \301J!\211\242\302=\2034 \302\303\3048\"\207L\207\211J\207" [boundp math-read-expr error "Bad format in variable contents: %s" 2] 6 (#$ . 65111)])
(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\"`\"\207" [calc-do make-closure #[0 "\301\302\303 \203 \304\202\f \305\300#\207" [V0 calc-unary-op "flt" calc-is-hyperbolic calcFunc-float calcFunc-pfloat] 4]] 5 (#$ . 66094) "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\"!\207" [calc-do make-closure #[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" [V0 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]] 5 (#$ . 67588) "P"])
#@12 

(fn ARG)
(defalias 'calc-append #[257 "\300 \210\301!\207" [calc-hyperbolic-func calc-concat] 3 (#$ . 68031) "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 (#$ . 68385)])
(defalias 'calc-user-key-map #[0 "\301\302\"A\211@@\303=\203 \211A\207\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 (#$ . 69185)])
#@18 

(fn MAP FLAGS)
(defalias 'calc-user-function-list #[514 "\205\276 @@\302!@A\303\"\304U\204\267 \2119\203\267 \305!\306\307\"\203, \211\310\311O\202- \211\306\312!\"9\203n \303\313\"\304U\203K \314\315#\202s \211\203c \316\317\304O\227\226T\311O\227$\202s \316\320\226\227#\202s \312\226!G\304U\203\216 \321U\203\205 \322\202\206 \323P\266\202\267 GG\\\324V\203\260 	B\321U\203\247 \322\202\250 \323P\266\202\267 \325Q\266\326A\"\266\203\207" [calc-z-prefix-buf calc-z-prefix-msgs calc-user-function-classify logand 0 symbol-name string-match "\\`calc-" 5 nil char-to-string 3 format-message "`%c' = %s" format "%s%c%s" "%c = %s" 1 "SHIFT + " "" 58 ", " calc-user-function-list] 15 (#$ . 69410)])
(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\311DD\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\342E\343BBBBEED\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 (#$ . 70552)]))
(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") (#$ . 71528))
(defvar math-pi-cache-prec (byte-code ":\203 \301A@!\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\302BB\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\302BB\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\302BB\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\302BB\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\302BB\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\302BB\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\302BB\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\302BB\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\302BB\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") (#$ . 76461))
(defvar math-sqrt-e-cache-prec (byte-code ":\203 \301A@!\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\302BB\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\302BB\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\302BB\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") (#$ . 78247))
(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\302BB\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 (#$ . 78980)])
#@13 

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

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

(fn A)
(defalias 'math-oddp #[257 "\211\250\205 \300!\207" [cl-oddp] 3 (#$ . 79431)])
(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 (#$ . 79887)])
#@10 

(fn A)
(defalias 'math-primp #[257 "\211\250\206	 \211\242\300>\207" [(frac float cplx polar hms date mod var)] 3 (#$ . 80047)])
#@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 (#$ . 80184)])
#@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 (#$ . 80370)])
#@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 (#$ . 80517)])
#@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 (#$ . 80695)])
#@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 (#$ . 80926)])
#@10 

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

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

(fn A)
(defalias 'math-polar-complexp #[257 "\211\242\300=\207" [polar] 3 (#$ . 81305)])
#@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 (#$ . 81402)])
#@14 

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

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

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

(fn ROW N &optional A)
(defalias 'math-ident-row-p #[770 "\211\204 \300\262\301\302\303T\233\">?\205. \301\302\304\305AGZ\"\">?\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 (#$ . 82145)])
#@10 

(fn A)
(defalias 'math-objectp #[257 "\211\250\206	 \211\242\300>\207" [(frac float cplx polar hms date sdev intv mod)] 3 (#$ . 82436)])
#@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 (#$ . 82581)])
#@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\2033 \305!\301!\203. \207\306\301\"\207\211\203? \307\232\203? \207\211\203L \310\232\203L [\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 (#$ . 82765)])
#@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 (#$ . 83159)])
#@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 (#$ . 83406)])
#@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 (#$ . 83693)])
#@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 (#$ . 83886)])
#@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 (#$ . 84070)])
#@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 (#$ . 84299)])
(defvar math-simplify-only nil)
#@10 

(fn A)
(defalias 'math-normalize-fancy #[257 "\211@\303=\203 \304\305A@!\305\3068!\"\207\211@\307=\2036 \305A@!\305\3068!\310!\2031 \2041 \207\307E\207\211@\311=\203A \312!\207\211@\313=\203L \314!\207\211@\315=\203[ \315\305A@!D\207\211@\316=\203f \317!\207\211@\320=\203\301 \305A@!\305\3068!\211:?\206\202 \211@\321>\262\203\227 \211:?\206\222 \211@\322>\262\203\267 \211\211:?\206\242 \211@\321>\262\203\274 \211\211:?\206\262 \211@\322>\262\204\274 \323E\207\324\"\207\211@\325=\2033\305A@!\305\3068!\305\3268!\242\315=\203\346 \211\242\315=?\202$\211:?\206\361 \211@\321>\262\203\211:?\206\211@\327>\262\203'\211\211:?\206\211@\321>\262\203-\211\211:?\206!\211@\327>\262?\203-\330F\207\331#\207\211@\332=\203B\332\333\305A\"B\207\211@\334=\203O\305A@!\207\211@\335=\203f	\336>?\205^	\305A@!)\207\211@\337=\203r\337AB\207\211@\340=\203}\341!\207\211@\342>\203\220\343\211@\333\305A\")B\207\211@\344=\203\336\211A@\206\236\345\262\n\204\254\343\305!)\262\211\242\346=\203\300\211G\326U\203\300\3068\202\301\211\344	\343=\203\317\305!\202\334	\336>?\205\327	\347!)E\207\211@\250\204\352\211@:\205\367\211A\204\364\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 (#$ . 84570)])
#@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 (#$ . 86435)])
#@22 

(fn A &optional X)
(defalias 'calcFunc-sign #[513 "\300!\211\301\267\202 \206: \302\207\303\207\203 \304!\207\305\207\306!\203) \304\307\304!!!\207\310\311\"\210\2037 \307E\207\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 15 1 17)) 1 0 math-neg -1 math-looks-negp calcFunc-sign calc-record-why realp] 7 (#$ . 86774)])
#@12 

(fn A B)
(defalias 'math-compare #[514 "\232\203 :\203 @\300>\203 \301!\203 \302\207\303\207\250\2031 \304!\2031 W\203/ \305\207\306\207\242\307=\203` \211\242\307=\203S \310\311A@\3028\"\311A@\3028\"\"\207\310A@\311\3028\"\"\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=\203H\211\211:?\206\374 \211@\315>\262\204\211\242\314=\203H\310\3028\"\211\306=\203\306\207\211\303=\203&A@\323>\203&\306\207\310\3248\"\211\262\305=\2036\305\207\211\303=\203FA@\325>\203F\305\207\302\207\211\242\322=\203\246\211:?\206Z\211@\315>\262\204f\242\314=\203\246\310\3028\"\211\305=\203t\305\207\211\303=\203\204A@\326>\203\204\305\207\310\3248\"\211\262\306=\203\224\306\207\211\303=\203\244A@\327>\203\244\306\207\302\207\242\322=\203\211\242\322=\203\310\3248\3028\"\211\305=\203\304\305\207\211\303=\203\334A@\330>\204\332A@\331>\203\334\305\207\310\3028\3248\"\211\262\306=\203\356\306\207\211\303=\203A@\332>\204A@\333>\203\306\207\302\207\301!\203`\334\232\204\335\232\203\302\207\336!\301!\203T\337\232\2041\340\232\2033\302\207\336!\306=\203D\211\305=\203D\306\207\305=\203R\211\306=\203R\305\207\302\207\211\341\267\202^\306\207\305\207\302\207\301!\203\203\211\342\232\204r\211\343\232\203t\302\207\336!\211\344\267\202\201\305\207\306\207\302\207\242\345=\203\242\211\242\346=\203\242\211A@\347\232\203\242\310A@\3028\"\207\211\242\345=\203\301\242\346=\203\301A@\350\232\203\301\310\3028A@\"\207\242\351=\203\337\211\242\346=\203\337\3028\352\232\204\375\3028\353\232\204\375\211\242\351=\203\242\346=\203\3028\354\232\204\375\3028\355\232\203\310A@A@\"\207\242\356=\203\302\207:\203,\211:\203,@@=\203,\357AA\"\203,\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 602 -1 604)) (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 637 -1 639)) 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 (#$ . 87191)])
#@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 (#$ . 90008)])
#@12 

(fn A B)
(defalias 'math-lessp-float #[514 "\3018\3018Z\211\302Y\203E \211\211\\Y\2035 A@\302=\203) A@\211\250\205( \211\302V\207A@\211\250\2054 \211\302W\207\303A@\"A@\304\"\305U\207\211[\211\262\211\\Y\203q A@\302=\203e A@\211\250\205d \211\302W\207A@\211\250\205p \211\302V\207A@\303A@\"\304\"\305U\207" [calc-internal-prec 2 0 math-scale-int math-compare -1] 8 (#$ . 90201)])
#@12 

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

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

(fn A B)
(defalias 'math-equal-int #[514 "\300\"\206 \242\301=\205 \300A@\"\205 \3028\303U\207" [eql float 2 0] 5 (#$ . 90809)])
#@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 (#$ . 90955)])
#@34 

(fn NAME FUNC ARG IDENT UNARY)
(defalias 'calc-binary-op-fancy #[1285 "\300!\211\301V\203 \302\303\304	!\305\306!BE#\207\211\301U\2030 \205` \302\301\307\301!D#\207\211\310U\203E \203A \302\310#\207\311\312!\207\307\301!\302\301Z\313\314\315#\306[\316\"\"#\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-closure #[257 "\300\301E\207" [V0 V1] 4 "\n\n(fn X)"] 2] 15 (#$ . 91121)])
#@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!\"#\207\211\301W\2055 \303\310\311[!D[$\207" [prefix-numeric-value 0 calc-stack-size calc-enter-result mapcar make-closure #[257 "\300D\207" [V0] 3 "\n\n(fn X)"] calc-top-list-n 1 calc-top-n] 11 (#$ . 91654)])
(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 (#$ . 92219)])
(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\301W\203\211 \262\262\211\262:\203\243 \300=\204\243 \262\303\"\262\211\262\202\211 \300V\203\267 \262\246\262\211\262\202\243 \207" [0 nil math-neg math-imod] 6 (#$ . 92481)])
#@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 (#$ . 93004)])
(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\211V\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 (#$ . 93241)])
#@10 

(fn X)
(defalias 'math-evaluate-expr-rec #[257 "\211:\203n \211@\301>\203' \211@\302=\203& \211G\303U\203& \211@A@\304\3058!E\207\207\211@\306=\203T \307\3058!\203S \3058J\242\310=\204S \3058J\211\242\311=\203R \203Q \207\207\207\207\211\211:?\206_ \211@\312>\262\203e \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 (#$ . 93695)])
#@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 (#$ . 94253)])
(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 (#$ . 94574)])
#@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\2021 T\211\202 \211:?\206A \211@\304>\262\204L \302X\203R \305\262\202 @\306\307A\"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 (#$ . 94746)])
#@13 

(fn EXPR)
(defalias 'math-is-true #[257 "\211\211:?\206 \211@\300>\262\2036 \211\211:\203/ \211@\301=\203' \211A@\302=\262\2024 \303!\262\2024 \211\302=\262?\207\304!\207" [(frac float cplx polar) float 0 math-zerop math-known-nonzerop] 4 (#$ . 95171)])
#@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 (#$ . 95440)])
#@25 

(fn FUNCS &rest CODE)
(defalias 'math-defintegral '(macro . #[385 "\301\302\303\304\305\"9\203 C\202 \"B\207" [math-integral-cache nil progn mapcar make-closure #[257 "\301\302D\303\304\305\302D\306BB\307\310\311\300BBDEF\207" [V0 put quote 'math-integral nconc get ('math-integral) list lambda (u)] 10 "\n\n(fn FUNC)"]] 7 (#$ . 95660)]))
(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\"9\203 C\202 \"B\207" [math-integral-cache nil progn mapcar make-closure #[257 "\301\302D\303\304\305\302D\306BB\307\310\311\300BBDEF\207" [V0 put quote 'math-integral-2 nconc get ('math-integral-2) list lambda (u v)] 10 "\n\n(fn FUNC)"]] 7 (#$ . 96160)]))
(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\303!\305\306O!E\207\304\300\307\303!P!E\207" [intern string-match "\\`var-." symbol-name var 4 nil "var-"] 7 (#$ . 96929)])
(defvar math-simplifying-units nil)
(defvar math-combining-units t)
#@10 

(fn S)
(defalias 'math-read-number-fancy #[257 "\304\305\"\203n \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\207\304\321\"\203\271 \306\307\"\306\310\"G\312V\203\212 \313!\202\213 \307G\312V\203\230 \313!\202\231 \307\205\270 \211\205\270 \314!\205\270 \314!\205\270 \315!?\205\270 \316E\207\304\322\"\203\347 \306\307\"\306\310\"\313!\313!\205\346 \211\205\346 \323!\205\346 \323!\205\346 \324E\207\304\325\"\203\306\307\"\306\310\"\313!\313!\205\211\205\326!\205\323!\205\327E\207\304\330\"\203|\331\306\307\"!\306\311\"\306\332\"\306\333\"G\312V\203<\334\"\202=\312G\312V\203L\334\"\202M\307G\312V\203\\\334\"\202]\307\205{\205{\211\205{\315!?\205{\316\317\320\"\"E\207\304\335\"\203\303\331\306\307\"!\306\311\"\306\332\"G\312V\203\237\334\"\202\240\307G\312V\203\256\334\"\202\257\307\205\302\211\205\302\315!?\205\302\316E\207\304\336\"\204\321\304\337\"\203\370\331\306\310\"!\306\307\"\306\332\"\313!\313!\205\367\211\205\367\320\340\341!\"\"\207\304\342\"\203D\331\306\307\"!\306\311\"\306\332\"G\312V\203\334\"\202\312G\312V\203*\334\"\202+\312\343\205B\211\205B\317\344\340	G\"\"\")\207\304\345\"\203X\334\306\311\"\331\306\307\"!\"\207\304\346\"\203\207\334\306\311\"\331\306\307\"!\"\211	\347\"\350U\266\202\203\206\347\n\"\312X\203\206\351	\"\207\207\352=\203\235\304\353\"\203\235\306\307\"\334\354\"\207\355=\203\263\304\356\"\203\263\306\307\"\334\354\"\207\304\357\"\204\301\304\360\"\203)\306\307\"\306\310\"\313!G\312V\203\331\313!\202\332\312\205(\211\205(\361!\205(\362!?\205(\362!?\205(\361!\203\211\363\347\"\350U\266\202\205(\364\312F\207\211\242\364=\203'\315A@!\203'\317\364\312\211F\"\207\343\207\304\365\"\203\240\306\307\"\306\310\"\313!G\312V\203H\313!\202I\312\205\237\211\205\237\361!\205\237\362!?\205\237\362!?\205\237\366!\203~\363\347\"\350U\266\202\205\237\364\312F\207\211\242\364=\203\236\315A@!\203\236\315\3108!\203\236\317\364\312\312F\"\207\343\207\304\367\"\203\321\313\306\307\"!\211\205\320\366!\205\320\362!?\205\320\211\363\347\"\350U\266\202\205\320\364\312\211F\207\304\370\"\203\345\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 (#$ . 97235)])
#@12 

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

(fn STR)
(defalias 'math-read-expr #[257 "\306\306\307\211\211\310\f!\311\312\f\"\211\203) \f\306	O\313\f	\314\\\307OQ\202 \315 \210\316 \210\31727 \320\306!0\211;\203C \321E\202Q 	\322=\203M \211\202Q \321\323E\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 "\\.\\.\\([^.]\\|.[^.]\\)" "\\dots" 2 math-build-parse-table math-read-token syntax math-read-expr-level error end "Syntax error"] 7 (#$ . 101231)])
#@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*\207" [calc-language math-expr-opers nil math-standard-ops math-read-expr error "%s: %s" 2] 7 (#$ . 101768)])
(defalias 'math-read-string #[0 "\301\302P!\211AGTU\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 \211\306\211\224O\306\225\312OP\262	G\306V\203> \307\311	!\313P\"\203> \211\306\211\224O\306\225\312OP\262\307\314\"\203e \n\315=\203O \316!\207\315\312\315\317N\315\320N\315\321N\316!-\207\312\306\211\312\211\211\211\211\322\323\n	#\211\262\203\231 OBT\262\202z \312OB\237\211\262\211\203\272 @G]\262\211A\262\202\250 \324!\203\333 \3252\317 \326\306\211G$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 nil " *$" "\\\\[^ \n|]" latex math-read-expr math-oper-table math-function-table math-variable-table string-search "\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 math-read-big-lines] 15 (#$ . 102259)])
#@23 

(fn READ-BIG-LINES)
(defalias 'math-read-big-bigp #[257 "\211A\205\305 \211\302\303@G\303V\203 \304\202 \303A\203\265 \303\302@A@GG^G\303V\2033 T\262W\203\214 H\305>\204\205 H\306>\204\205 H\307>\203\\ HHU\204\205 H\310=\203\214 H\310=\203\214 G\311T\312#\211\262)\203\214 S\211\262\203\214 T\262\2023 U\206\246 H\310=\203\245 H\310=\203\245 \313\262\302\266\205\203\265 AT\262\202 \211\304V\203\301 A?\206\302 )\266\204\207" [math-read-big-lines math-rb-h2 nil 0 1 (32 45 95) (32 45) (124 44) 91 math-read-big-balance "[" t] 14 (#$ . 103277)])
(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\313AA\2033 \314\2024 \315#\316Q\207\311\317A@\314\"\313\317\3208\314\"\313\317\3218\314\"\322\317	GS\n8\314\"\316\260	\207@\323=\203\220 A@\324>\203q \325\202r \311\317\3208\315\"\326\317\3218\315\"A@\327>\203\214 \330\202\215 \316\260\207@\331=\203\236 \332\333!\334Q\207@\335=\203\371 G\320V\203\371 A\nG\321U\203\272 \336\202\273 \337A\203\324 @@\232\203\324 A\262\211A\262\202\274 \332A\203\352 \312\340A!A\237\313\314#\341P\202\353 \342\317GS8\314\"\334R)\207@\343=\203?\2039\n\336\203\"@\232\204\"\337=\205A\262\211T\262\202\2054\336=\2030\266\344\207\305\345\"\266\202\206\346A@!\207@\347>\203nG\320U\203n\350A@!\203n\351A@!\203n\346@!\352\353O\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\3208\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\312A\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 9 nil math-vector-to-string math-assq2 math-standard-ops "^" "_" 45 " " neg "-" math-remove-dashes string-match "\\`calcFunc-\\([a-zA-Zα-ωΑ-Ω0-9']+\\)\\'" math-match-substring] 12 (#$ . 103956)])
#@21 

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

(fn X W)
(defalias 'math-format-nice-expr #[514 "\242\301=\2039 AA\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\207 \\\211\262GX\203\207 \211S\211\262V\203d H\316U\203R \211\317\\V\203 \310O\320\313OQ\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-search "\"" 32 5 "\n "] 10 (#$ . 106023)])
#@12 

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

(fn A PREC)
(defalias 'math-format-number-fancy #[514 "@\306=\203R A@\211\250\205 \211\307W\262\203 \310\311\312!!P\207\2033 	\313>\2043 \n\314\"\"\202; \315\316\n\314\"#\203Q \317V\203Q \320\321\"\203Q \322\323Q\207\207@\324=\203\304 \325!\262@G\326V\203\256 A@\211\250\205q \211\307W\262\203~ \310\311\312!!P\207\327A@\3308\"\331\311@!)@\307\326O\331\211\311A!*@\326\330O\331\211\311\3308!*\260\207\331\311A@!)@\331\211\311\3308!*Q\207@\332=\203l\333\3308!\203\331 \311A@!\207\204\356 \322\311A@!\334\311\3308!\323\260\207\333A@!\203+\335\3308\326\"\203\336!\207\335\3308\337\"\203\310\336!P\207\211\203 \340\341\3308\342E\"\207\311\3308!\343\336!Q\207\211\203M\340\344\3308!\203<\345\202=\346A@\332\307\347\3308!EE\"\207\311A@!\344\3308!\203^\350\202_\351\311\332\307\347\3308!E!Q\207@\352=\203\204\322\311A@!\353\311\3308!\323\260\207@\354=\203\301\344!\203\231\310\311\312!!P\207\355\331\211\211<=>\315?\356\311A@!)\357\311\3308!)\311\3608!$,\207@\361=\203\361A@\362>\203\324\322\202\325\363\311\3308!\364\311\3608!A@\365>\203\355\323\202\356\366\260\207@\367=\203\311A@!\370\311\3308!Q\207@\371=\203\372\307\"\207\315\373\"\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-search "*" "(" ")" frac math-adjust-fraction 1 math-idivmod 2 nil cplx math-zerop ", " math-equal-int symbol-name -1 math-compose-expr * (cplx 0 1) " " math-negp - + math-abs " - " " + " polar "; " hms 10 (":" nil) (":" nil) 3 intv (0 1) "[" " .. " (0 2) "]" sdev " +/- " vec math-format-flat-expr "%s" calc-group-digits calc-leading-zeros calc-twos-complement-mode calc-hms-format] 10 (#$ . 106738)])
#@10 

(fn A)
(defalias 'math-adjust-fraction #[257 "A@\203. \301!\203 \302\303E\262\304A@\305\3068A@\"\"\302\307A@\"\307\3068\"E\207\207" [calc-frac-format Math-integerp frac 1 math-quotient math-gcd 2 math-mul] 7 (#$ . 108628)])
#@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\203h \211G\f\250\203A \313\f!\202L \316>\203K \317\202L \320V\203f Z\262\321O\322OQ\262\202L \266\306U\204\204 \203\204 \203~ \"\207\323\324#\207\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 0 nil format "%d#%s" math-radix-explicit-format calc-radix-formatter] 9 (#$ . 108872)])
#@12 

(fn STR)
(defalias 'math-group-float #[257 "\303\304\"\206	 \211G\250\203 \305!\202 	\306>\203 \307\202 \310\250\203N \311W\203N \211T\\\211\262GW\203N \311O\n\312OQ\262\211\nGS\\\262\202+ \262\211V\203k \211Z\262\311O\n\312OQ\262\202Q \207" [calc-group-digits calc-number-radix calc-group-char string-match "[^0-9a-zA-Z]" math-abs (2 16) 4 3 0 nil] 9 (#$ . 109499)])
#@410 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 (#$ . 109906))
(byte-code "\300\301\302\303#\210\304\301!\210\305\306!\207" [make-obsolete-variable calc-ext-load-hook "use `with-eval-after-load' instead." "28.1" run-hooks provide calc-ext] 4)