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



(byte-code "\300\301!\210\300\302!\207" [require calc-ext calc-macs] 2)
#@12 

(fn ARG)
(defalias 'calc-equal-to #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\300\250\203\300\301V\203\302\300\303\304\305\300!B#\207\306\303\304\300#\207" [V0 2 calc-enter-result "eq" calcFunc-eq calc-top-list-n calc-binary-op] 6]] 5 (#$ . 156) "P"])
#@12 

(fn ARG)
(defalias 'calc-remove-equal #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\301\302\303\300#\207" [V0 calc-unary-op "rmeq" calcFunc-rmeq] 4]] 5 (#$ . 433) "P"])
#@12 

(fn ARG)
(defalias 'calc-not-equal-to #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\300\250\203\300\301V\203\302\300\303\304\305\300!B#\207\306\303\304\300#\207" [V0 2 calc-enter-result "neq" calcFunc-neq calc-top-list-n calc-binary-op] 6]] 5 (#$ . 621) "P"])
#@12 

(fn ARG)
(defalias 'calc-less-than #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\301\302\303\300#\207" [V0 calc-binary-op "lt" calcFunc-lt] 4]] 5 (#$ . 904) "P"])
#@12 

(fn ARG)
(defalias 'calc-greater-than #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\301\302\303\300#\207" [V0 calc-binary-op "gt" calcFunc-gt] 4]] 5 (#$ . 1086) "P"])
#@12 

(fn ARG)
(defalias 'calc-less-equal #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\301\302\303\300#\207" [V0 calc-binary-op "leq" calcFunc-leq] 4]] 5 (#$ . 1272) "P"])
#@12 

(fn ARG)
(defalias 'calc-greater-equal #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\301\302\303\300#\207" [V0 calc-binary-op "geq" calcFunc-geq] 4]] 5 (#$ . 1458) "P"])
#@12 

(fn ARG)
(defalias 'calc-in-set #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\301\302\303\300#\207" [V0 calc-binary-op "in" calcFunc-in] 4]] 5 (#$ . 1647) "P"])
#@12 

(fn ARG)
(defalias 'calc-logical-and #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\301\302\303\300\304$\207" [V0 calc-binary-op "land" calcFunc-land 1] 5]] 5 (#$ . 1827) "P"])
#@12 

(fn ARG)
(defalias 'calc-logical-or #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\301\302\303\300\304$\207" [V0 calc-binary-op "lor" calcFunc-lor 0] 5]] 5 (#$ . 2022) "P"])
#@12 

(fn ARG)
(defalias 'calc-logical-not #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\301\302\303\300#\207" [V0 calc-unary-op "lnot" calcFunc-lnot] 4]] 5 (#$ . 2214) "P"])
(defalias 'calc-logical-if #[0 "\300\301!\207" [calc-do #[0 "\300\301\302\303\304\301!B#\207" [calc-enter-result 3 "if" calcFunc-if calc-top-list-n] 6]] 2 nil nil])
#@10 

(fn N)
(defalias 'calc-timing #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\302\301\300\303\304$\210\305	\203\306\202\307!\207" [V0 calc-timing calc-change-mode nil t message "Reporting timing of slow commands in Trail" "Not reporting timing of commands"] 5]] 5 (#$ . 2567) "P"])
(defalias 'calc-pass-errors #[0 "\30012\301\211\302K88\303H\211\242\242\304>\204\301\211\302K88\305H\262
\211@@\306>\204*\307\310!\210\211@\311\240\262
0\207\210\307\312!\207" [(error) 2 calc-do 15 (error xxxerror) 27 (error xxxerror) error "Foo" xxxerror "The calc-do function has been modified; unable to patch"] 4 nil nil])
(defalias 'calc-user-define #[0 "\301\302!\210\303 \304
!\305U\203\306\307!\210\310\311\312\313!\314Q\315\316\317%!\320 
\236\211\203-\211\241\207
BAB\241\207" [obarray message "Define user key: z-" read-char calc-user-function-classify 0 error "Can't redefine \"?\" key" intern completing-read "Set key z " char-to-string " to command: " commandp t "calc-" calc-user-key-map] 8 nil nil])
(defalias 'calc-user-undefine #[0 "\300\301!\210\302 \303
!\304U\203\305\306!\210\307 \310\236\206,\226\236\206,\227\236\206,\305\311!\"\207" [message "Undefine user key: z-" read-char calc-user-function-classify 0 error "Can't undefine \"?\" key" calc-user-key-map delq "No such user key is defined"] 5 nil nil])
(defalias 'calc-user-define-formula #[0 "\300\301!\207" [calc-do #[0 "\305\306!\307\211\242\310=\205\211G\311Y\307\211\211\211\211\211\211\211\307\2036\312\313\314\fA!A\237\"	GS\n8\262\n\202@\315\n!\210\316\317\"\320\321!\210\322 \262\323!\324U\203U\325\326!\210\327>?\205_\262\205\234\330X\203t\331X\204\220\332X\203\202\333X\204\220\334X\203\227\335X\203\227\336!\202\234\337\340\"\262\341 \236\262\204\264\337\342\343\344 \345\246!\"\262\346P\262\347\350\351Q\n\352\307\f\203\326\fA9\203\326\353
A!\202\327\354%\262\355\230\204\346\354\230\203\354\356P\262\357\360\"\205\370\361\306\"\262\362!\262\203$
\363!\203$
\203$
\364\365N\203
\366\353!\367Q\202 
\370!\203\264\203<
\357\371\"\2038
\372\373\307OP\202@
\202@
\372P\262\374\347\375\351Q\312\376\377\374\n\"\"\201@\307$P\262
\374\230\203e
\362\374P!\202h
\362!\262
\203\224
\363!\203\224
\363!\204\224
\203\224
\364\365N\203\217
\366\353!\367Q\202\220
\370!\203$

\204\270
\362\201A\206\264
\203\255
\353!\206\264
\337\342\344 \345\246\"P!\262\203\302
\202\356
\201B\201C\203\324
\201D!\202\327
\201E\201F$\201G	\"\204\356
\364\201H!\203\302
	\205\373

\205\373
\364\201I!\262
\312\201J	\"\203W\201K\201L!\210\201M\307\201N\201O\201P	G\353	\206(\f!\357\201Q\"\2056\361
\306\"\262
\201R\201SD\201T	GDEFDFM\210\201U\365\201F#\210\201V\201W!D\201X\201M	D\205t\312\201Y	\"C#M\266\201U\365\f#\210\307\203\251\341 
\236\211\203\235\211\241\266\202\251
	BAB\241\266*\266\n\320\355!\207" [math-arglist calc-user-formula-alist obarray minibuffer-local-map math-integral-cache-state calc-top 1 nil calcFunc-lambda 2 mapcar #[257 "\211A@\207" [] 2 "\n\n(fn X)"] reverse calc-default-formula-arglist sort string-lessp message "Define user key: z-" read-char calc-user-function-classify 0 error "Can't redefine \"?\" key" (13 32) 48 57 97 122 65 90 char-to-string format "%03d" calc-user-key-map "%05d" abs random 10000 "User-" completing-read "Define M-x command name (default calc-" "): " commandp symbol-name "calc-" "" "calc-User-" string-match "\\`calc-\\(.+\\)\\'" math-match-substring intern fboundp y-or-n-p calc-user-defn "Replace previous definition for " "? " "That name conflicts with a built-in Emacs function.  Replace this function? " "\\`User-.+" "User" 5 "calcFunc-" "Define algebraic function name (default " #[257 "\211\300\301O\207" [9 nil] 4 "\n\n(fn X)"] all-completions #[257 "\300\301\302P!!\207" [fboundp intern "calcFunc-"] 5 "\n\n(fn X)"] "calcFunc-User" read-from-minibuffer "Function argument list: " prin1-to-string "()" t calc-subsetp "Okay for arguments that don't appear in formula to be ignored? " "Leave it symbolic for non-constant arguments? " #[257 "\211\300\236A\206\211\207" [((nil . arg-nil) (t . arg-t))] 3 "\n\n(fn X)"] require calc-macs lambda (interactive) calc-wrapper calc-enter-result "\\([^-][^-]?[^-]?[^-]?\\)[^-]*\\'" cons quote calc-top-list-n put math-normalize calc-fix-user-formula append #[257 "\300
\301E\207" [math-check-const t] 4 "\n\n(fn V)"]] 22]] 2 nil nil])
#@13 

(fn FORM)
(defalias 'calc-default-formula-arglist #[257 "\211:\205'\211@\301=\203#\211A@>\206\302
!?\205'\211A@B\211\207\303
A!\207" [math-arglist var math-const-var calc-default-formula-arglist-step] 3 (#$ . 7087)])
#@10 

(fn L)
(defalias 'calc-default-formula-arglist-step #[257 "\211\205
\300
@!\210\301
A!\207" [calc-default-formula-arglist calc-default-formula-arglist-step] 3 (#$ . 7320)])
#@12 

(fn A B)
(defalias 'calc-subsetp #[514 "
?\206
@
>\205\300A\"\207" [calc-subsetp] 5 (#$ . 7502)])
#@10 

(fn F)
(defalias 'calc-fix-user-formula #[257 "\211:\203\205\301
@\302=\203\"
A@\303\236A\206
A@\211\262>\203\"\207\304!\204/
@\302=\2033\305D\207
@\306=\203L
G\307U\203L\310\311\312\313A@!DE\207
@\314=\203b
G\307U\203b\315\313A@!D\207
@\316=\203x
G\307U\203x\317\313A@!D\207\320\305@D\321\313A\"BB\207\207" [calc-user-formula-alist nil var ((nil . arg-nil) (t . arg-t)) math-constp quote calcFunc-eval 2 let ((calc-simplify-mode nil)) math-normalize calc-fix-user-formula calcFunc-evalsimp math-simplify calcFunc-evalextsimp math-simplify-extended list mapcar] 7 (#$ . 7614)])
(defalias 'calc-user-define-composition #[0 "\300\301!\207" [calc-do #[0 "\305=\203\n\306\307!\210\310\311!\312\313\314\315\316\317\320\313	\"\"\321#P!\211\322N\323\211\211\323\324!\203A\236\211\262\203\237\325\322\326\"#\210\202\237\327!\210\330\n\331\"\332\333\n\203V\334\n!\202W\335\f\336$\337\n\"\204h\340\341!\204J\236\211\262\204~\325\322C\211\262B#\210GA\236\211\262\204\225
GC\211\262AB\241\210\211\342\343!E\241\210\344\311!\210\345 *\207" [calc-language obarray math-arglist calc-user-formula-alist minibuffer-local-map unform error "Can't define formats for unformatted mode" calc-top 1 intern "calcFunc-" completing-read "Define format for which function: " mapcar #[257 "\211\300\301O\207" [9 nil] 4 "\n\n(fn X)"] all-completions #[257 "\300\301\302P!!\207" [fboundp intern "calcFunc-"] 5 "\n\n(fn X)"] math-compose-forms nil math-zerop put delq calc-default-formula-arglist sort string-lessp read-from-minibuffer "Composition argument list: " prin1-to-string "()" t calc-subsetp y-or-n-p "Okay for arguments that don't appear in formula to be invisible? " lambda calc-fix-user-formula calc-pop-stack calc-do-refresh] 11]] 2 nil nil])
#@12 

(fn ARG)
(defalias 'calc-user-define-kbd-macro #[257 "\204\302\303!\210\304\305!\210\306 \307
!\310U\203\302\311!\210\312\313\314	\315\316\317\320Y\203/\321X\204K\322Y\203=\323X\204K\324Y\203R\325X\203R\326!\202W\327\330	\"P%!\331
!\203|\211K\211;\206r\211:\205r\332
8\242\333=\262
\204|\302\334\"\210\335
\336\337#\210\211\340!\310W\203\217\202\241\341\342\343\333\344\345!\"\346\327\347\n\"FFM\210\350 
\236\211\203\260\211\241\207
BAB\241\207" [last-kbd-macro obarray error "No keyboard macro defined" message "Define last kbd macro on user key: z-" read-char calc-user-function-classify 0 "Can't redefine \"?\" key" intern completing-read "Full name for new command: " commandp nil "calc-User-" 97 122 65 90 48 57 char-to-string format "%03d" fboundp 3 calc-execute-kbd-macro "Function %s is already defined and not a keyboard macro" put calc-user-defn t prefix-numeric-value lambda (arg) (interactive "P") vector key-description arg "z%c" calc-user-key-map] 13 (#$ . 9413) "P"])
(defalias 'calc-edit-user-syntax #[0 "\300\301!\210\302 \207" [calc-do #[0 "\302\303\304\"\305\306\307\310\267\202\311\202!\312\202!\313\202!\314\315!!\"#\210\316
	\236A\"\207" [calc-language calc-user-parse-tables calc--edit-mode make-closure #[0 "\301\300!\207" [V0 calc-finish-user-syntax-edit] 2] t format "Editing %s-Mode Syntax Table. " #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 15 tex 19 latex 23)) "Normal" "TeX" "LaTeX" capitalize symbol-name calc-write-parse-table] 9] calc-show-edit-buffer] 2 nil nil])
#@13 

(fn LANG)
(defalias 'calc-finish-user-syntax-edit #[257 "\302\"
	\236
\203\211\206C	B\211@\241\266\202(\211\203&\303
	\"\266\304!\207" [calc-original-buffer calc-user-parse-tables calc-read-parse-table delq switch-to-buffer] 6 (#$ . 11023)])
#@17 

(fn TAB LANG)
(defalias 'calc-write-parse-table #[514 "\211
\211\205#\302
@@!\210\303\304\305@A\306\")\307\261\210\211A\262
\202)\207" [calc-lang math-format-hash-args calc-write-parse-table-part ":= " t math-format-flat-expr 0 "\n"] 8 (#$ . 11288)])
#@10 

(fn P)
(defalias 'calc-write-parse-table-part #[257 "\211\205\273\211@;\203O\211@\301\302\"\203!\303>\204!\304
\305\306OP\262
\301\307\"\203/\301\310\"\204;\311
\312\"\203F
A\204F\313
!\314\261\266\202\264\211\314\261\266\202\264\211@\250\203m\315c\210\211@\316U\204g\317\320@!\261\210\314c\210\202\264\211@@\321=\203\213\322
@8@\323\232\203\213\211@A@@\314\261\210\202\264\324c\210\325
@A@!\210\326\327@@!\261\210\322
@8\203\261\325\322@8@C!\210\202\264\314c\210\211A\262
\202\207" [calc-lang string-match "\\`\\\\dots\\>" (tex latex) ".." 5 nil "[a-zA-Z0-9\"{}]\\|\\`:=\\'\\|\\`#\\|\\`%%" "[^a-zA-Z0-9\\]" assoc ((")") ("]") (">")) prin1-to-string " " "#" 0 "/" int-to-string \? 2 "$$" "{ " calc-write-parse-table-part "}" symbol-name] 6 (#$ . 11555)])
#@22 

(fn CALC-BUF LANG)
(defalias 'calc-read-parse-table #[514 "\211\305
\306\305w\210m\204~\307\310!\203\305\210\202`\311\312\313\"\211@;\2047\211@\250\2030\211A@;\2047
b\210\314\315!\210`\305\210\211`{rq\210\305\211\316 \317\320\321\322\"\203\\
\317\211\224O\202]
!-\211\242\314=\203s
A@\\b\210\314\3238!\210BC\244\266\206\202)\207" [calc-lang calc-hashes-used math-expr-opers calc-language calc-user-parse-tables nil "\n	 " looking-at "%%" calc-read-parse-table-part ":=[\n	 ]+" ":=" error "Malformed syntax rule" math-standard-ops 0 math-read-expr string-match ",[ 	]*\\'" 2] 12 (#$ . 12352)])
#@32 

(fn NAME &optional UNQUOTED)
(defalias 'calc-fix-token-name #[513 "\301\302\"\203\303\304\305OP\207
\306\232\203\307>\203\310\207
\311\232\203*\312>\203*\313\207
\314\232\2038\315>\2038\316\207
\317\232\203F\320\317!\210\321\322!\207\211\203U\323\317\"\203U\321\324!\207\301\325\"\204f\320\326\305\327#\210\321\330!\207
\207" [calc-lang string-match "\\`\\.\\." "\\dots" 2 nil "{" (tex latex eqn) "(" "}" (tex latex eqn) ")" "&" (tex latex) "," "#" search-backward error "Token `#' is reserved" string-search "Tokens containing `#' must be quoted" "[^ ]" "\"" t "Blank tokens are not allowed"] 6 (#$ . 12981)])
#@19 

(fn TERM ETERM)
(defalias 'calc-read-parse-table-part #[514 "\300\211\301\300w\210m\203\302\303\"\210\304!\204
\304\305!\203!\300\210\202\304\306!\203\232\307u\210\310\311\211\"\304\312!\2048\302\313!\210\314``T{!\315u\210\304\316!\210`\317\225{\317\225b\210
\320=\203j\211G\317V\203j\211\321\232\204j\211\322\232\204j\302\323!\210\324\325\"\203v\326
!\262
\211G\317V\203\202\327
!\262
G\317V\205\220BEC\244\262\266\202\304\311!\203\247\302\330!\210\202\304\331!\203\275\327\332p!!\262


C\244\262\202\304\333!\203\343
\315\224\315\225U\203\320\317\202\330\334\315\224T\315\225{!C\244\262\317\225b\210\202\304\335!\203\360\302\336!\210\202\304\316!\210\317\225\327`{\337\"C\244\262\211b\266\202\317\225b\210
G\211\315V\2038
\211S\211\262\233\340
@\341\"\2053
\211@=?\2053
\211\320@C\342E\240\262
\204
\210
\207" [nil "\n	 " error "Expected `%s'" looking-at "%%" "{[\n	 ]" 2 calc-read-parse-table-part "}" "[+*?]" "Expected `+', `*', or `?'" intern 1 "[^\n	 ]*" 0 \? "$" "." "Separator not allowed with { ... }?" string-match "\\`\"" read-from-string calc-fix-token-name "Too many }'s" "\"" read "#\\(\\(/[0-9]+\\)?\\)[\n	 ]" string-to-number ":=[\n	 ]" "Misplaced `:='" t assoc ((")") ("]") (">")) ("$$")] 12 (#$ . 13621)])
(defalias 'calc-user-define-invocation #[0 "\204\302\303!\210\304\305!\207" [last-kbd-macro calc-invocation-macro error "No keyboard macro defined" message "Use `C-x * Z' to invoke this macro"] 2 nil nil])
(defalias 'calc-user-define-edit #[0 "\300\301!\210\302C\303 \211\304 \236\206\"\211\226\304 \236\206\"\211\227\304 \236\206\"\305\306!\211A\2119\2033\307!\240\210\211K\262
\211;\204F\211:\203{\310
8\242\311=\203{\310
8A@\312\234\313
\314\"\310\21188\315\316\317	#\314\320\321\242\3108A@\322\234$#\210
\323\261\210\324 \210\325 \207\326
!\211\205\212\2119\205\212\211\327N\330\331@!P\307A!\203\241\307!\332\302O\202\242\333\203\305\334!\203\305\335\336 \"\337\316\340&!\210\325 \207\305\341!\207" [message "Edit definition of command: z-" nil read-char calc-user-key-map error "No command defined for that key" symbol-name 3 calc-execute-kbd-macro 1 edmacro-format-keys t calc--edit-mode make-closure #[0 "\302\300\242\301\"\207" [V0 V1 calc-edit-macro-finish-edit] 3] format "Editing keyboard macro (%s, bound to %s).\nOriginal keys: %s \n" 0 "\n" calc-edit-format-macro-buffer calc-show-edit-buffer calc-stack-command-p calc-user-defn "z" char-to-string 9 "" calc-valid-formula-func math-format-nice-expr frame-width calc-do #[0 "\306\307\310\300\"\311\312\313\302\303\301\304%#\210
\210\304\314\261\207" [V0 V1 V2 V3 V4 calc-full-float-format calc--edit-mode make-closure #[0 "\301\300!\207" [V0 calc-finish-formula-edit] 2] nil format "Editing formula (%s, %s, bound to %s).\nOriginal formula: %s\n" "\n"] 9] "That command's definition cannot be edited"] 18 nil nil])
(defalias 'calc-edit-macro-repeats #[0 "b\210\301\302\303\304#\2053\305\306\307!!`\310 {\311 b\210\312\307!\210
\313V\203.\211\314\261\210
S\262\202\266\202\207" [calc-edit-top re-search-forward "^\\([0-9]+\\)\\*" nil t string-to-number match-string 1 line-end-position line-beginning-position kill-line 0 "\n"] 4])
(defalias 'calc-edit-macro-adjust-buffer #[0 "\301 \210b\210\302\303\304\305#\203\306\307!\210\202b\210\302\310\304\305#\205.`dU?\205.\306\307!\210\202\207" [calc-edit-top calc-edit-macro-repeats re-search-forward "^RET$" nil t delete-char 1 "^$"] 4])
#@72 Return the command on the current line in a Calc macro editing buffer.
(defalias 'calc-edit-macro-command #[0 "\300 \212\301\302\303 \304#\203\305u\210\306\307x\210`)

{\207" [line-beginning-position search-forward ";;" line-end-position 1 -2 " 	" nil] 5 (#$ . 17125)])
#@80 Return the type of command on the current line in a Calc macro editing buffer.
(defalias 'calc-edit-macro-command-type #[0 "\212\300\301\302 \303#\205\304\305w\210`)\212\302 b\210\304\305x\210`)
\203#

{\207\306\207" [search-forward ";;" line-end-position t " 	" nil ""] 4 (#$ . 17403)])
#@49 Put an entire algebraic entry on a single line.
(defalias 'calc-edit-macro-combine-alg-ent #[0 "\300 \301 \302\211\303 b\210\304\305!\210\300 \262
\2036
\306\230\2046\307\310\"\211\262\2046P\262\304\305!\210\300 \262\202\211\203F\304\305!\210\311OP\262\312\313\314\312\315\316	##\262\317\261\210i\320V\203a\321\322!\210\323\324\261\210\211\205m\325c\207" [calc-edit-macro-command calc-edit-macro-command-type nil line-beginning-position kill-line 1 "RET" string-match "<return>" 0 string-replace "SPC" " SPC " " " "" "			" 24 delete-char -1 ";; " "\n" "RET			;; calc-enter\n"] 11 (#$ . 17700)])
#@50 Put an entire extended command on a single line.
(defalias 'calc-edit-macro-combine-ext-command #[0 "\300 \301\302 \303\211\304 b\210\305\306!\210\300 \262
\2037
\307\230\2047\310\311\"\211\262\2047P\262\305\306!\210\300 \262\202\211\203G\305\306!\210\312OP\262\313\314\301#\262\314\315\261\210i\316V\203`\317\320!\210\321\322\261\210\211\205l\323c\207" [calc-edit-macro-command "" calc-edit-macro-command-type nil line-beginning-position kill-line 1 "RET" string-match "<return>" 0 string-replace " " "			" 24 delete-char -1 ";; " "\n" "RET			;; calc-enter\n"] 9 (#$ . 18326)])
#@47 Put an entire variable name on a single line.
(defalias 'calc-edit-macro-combine-var-name #[0 "\300 \301\211\302 b\210\303\304!\210\305\235\203\306\261\207\300 \262
\203?
\307\230\204?\310\311\"\211\262\204?P\262\303\304!\210\300 \262\202\211\203O\303\304!\210\312OP\262\313\314\315#\262\316\261\210i\317V\203e\320\321!\210\322c\210\211\205n\323c\207" [calc-edit-macro-command nil line-beginning-position kill-line 1 ("0" "1" "2" "3" "4" "5" "6" "7" "8" "9") "			;; calc quick variable\n" "RET" string-match "<return>" 0 string-replace " " "" "			" 24 delete-char -1 ";; calc variable\n" "RET			;; calc-enter\n"] 7 (#$ . 18938)])
#@52 Put an entire sequence of digits on a single line.
(defalias 'calc-edit-macro-combine-digits #[0 "\300 \301 b\210\302\303!\210\304 \305\230\203\211\300 P\262
\302\303!\210\202\n\211\306\261\210i\307V\203-\310\311!\210\312c\207" [calc-edit-macro-command line-beginning-position kill-line 1 calc-edit-macro-command-type "calcDigit-start" "			" 24 delete-char -1 ";; calc digits\n"] 3 (#$ . 19602)])
#@40 Rewrite the Calc macro editing buffer.
(defalias 'calc-edit-format-macro-buffer #[0 "\301 \210b\210\302 \211\303\230\204\317\211\304\230\204\211\305\230\203 \306 \210\202\310\211\307\230\203,\310 \210\202\310\211\311\230\2038\312 \210\202\310\211\313\230\204\236\211\314\230\204\236\211\315\230\204\236\211\316\230\204\236\211\317\230\204\236\211\320\230\204\236\211\321\230\204\236\211\322\230\204\236\211\323\230\204\236\211\324\230\204\236\211\325\230\204\236\211\326\230\204\236\211\327\230\204\236\211\330\230\204\236\211\331\230\204\236\211\332\230\204\236\211\333\230\203\247\334y\210\335 \210\202\310\211\336\230\204\271\211\337\230\204\271\211\340\230\203\305\334y\210\335 \210\335 \210\202\310\334y\210\302 \262
\202\210b\207" [calc-edit-top calc-edit-macro-adjust-buffer calc-edit-macro-command-type "" "calc-algebraic-entry" "calc-auto-algebraic-entry" calc-edit-macro-combine-alg-ent "calc-execute-extended-command" calc-edit-macro-combine-ext-command "calcDigit-start" calc-edit-macro-combine-digits "calc-store" "calc-store-into" "calc-store-neg" "calc-store-plus" "calc-store-minus" "calc-store-div" "calc-store-times" "calc-store-power" "calc-store-concat" "calc-store-inv" "calc-store-dec" "calc-store-incr" "calc-store-exchange" "calc-unstore" "calc-recall" "calc-let" "calc-permanent-variable" 1 calc-edit-macro-combine-var-name "calc-copy-variable" "calc-copy-special-constant" "calc-declare-variable"] 3 (#$ . 20010)])
(defalias 'calc-edit-macro-pre-finish-edit #[0 "b\210\301\302\303\304#\205\305\306!\210\307\310!\210\311c\210\202\207" [calc-edit-top re-search-forward "\\(^\\| \\)RET\\($\\|	\\| \\)" nil t search-backward "RET" delete-char 3 "<return>"] 4])
#@84 Finish editing a Calc macro.
Redefine the corresponding command.

(fn CMDNAME KEY)
(defalias 'calc-edit-macro-finish-edit #[514 "\301!\302 \210d{\303
\304\"\211G\305U\203\306!\207\307\310\311\312\313\314!\"\315\nFFM\207" [calc-edit-top intern calc-edit-macro-pre-finish-edit edmacro-parse-keys t 0 fmakunbound lambda (arg) (interactive "P") calc-execute-kbd-macro vector key-description arg] 13 (#$ . 21739) nil])
#@13 

(fn FUNC)
(defalias 'calc-finish-formula-edit #[257 "pd{`\303!	q\210\304!\211\242\305=\203%q\210
A@\\b\210\305\3068!\210
AKA@\307!)\240\210\310\311#\207" [calc-edit-top calc-original-buffer calc-user-formula-alist calc-valid-formula-func math-read-expr error 2 calc-fix-user-formula put calc-user-defn] 10 (#$ . 22170)])
#@13 

(fn FUNC)
(defalias 'calc-valid-formula-func #[257 "\211K\211:\205(\211@\300=\205(\211AA\262
\211\203&\211@@\301=\204&\211A\262
\202\211@\207" [lambda math-normalize] 4 (#$ . 22513)])
(defalias 'calc-get-user-defn #[0 "\300\301!\207" [calc-do #[0 "\300\301!\210\302 \211\303 \236\206 \211\226\303 \236\206 \211\227\303 \236\206 \304\305!\211A\2119\203+\211K\262
\211;\2035\300\306\"\207\307
!\211\205D\2119\205D\211\310N\211\203b\311!\203\\\312\313\314\315KA@\"C#\262
\316\317\320#\207\304\321!\207" [message "Get definition of command: z-" read-char calc-user-key-map error "No command defined for that key" "Keyboard macro: %s" calc-stack-command-p calc-user-defn calc-valid-formula-func append (calcFunc-lambda) mapcar math-build-var-name calc-enter-result 0 "gdef" "That command is not defined by a formula"] 10]] 2 nil nil])
(defalias 'calc-user-define-permanent #[0 "\300\301!\207" [calc-do #[0 "\304\305\"\210\306 \211\307 \236\206V\211\226\307 \236\206V\211\227\307 \236\206V\211\310=\203<\311\312\313\314\315\316\"\317\320\321\313	\"\"\322\323$P!B\206V\211\324=\203S\311\312\314\315\325\"	\326\311\327%!B\206V\330\331!\332\333!!q\210db\210\211A\211\205m\2119\205m\211K\311\334\311\211\311\335\336 \3379\203\205\340!\202\212\315\341\"\342\261\210\203\207
\242\343=\203\207
\344N\203\207
`\3458\242\346=\203\324\347\3458A@!\203\324\326\350!\203\276\350\311!\210\326\351!\203\324\323\211\262\203\324\3458A@\352\311I\210\353\354ABB!\211\262\355\261\210\356\357\"\203\360
\203\365\360
`\"\210\361
`\362#\210\211
T|\210\363\340!\364\353	\344N!\365\261\210\366!\262\205!
9\205!
K`
\203\202

\242\343=\203\202
\344N\203\202
\353\354ABB!\211\262\355\261\210\356\357\"\203O
\203T
\360
`\"\210\361
`\362#\210\211
T|\210`\262
\367\340!\364\353	\344N!\365\261\210\360
`\"\210\361
`\362#\210\211
T|\210\266\202\232
;\203\232
\370\353!\371\353!\365\261\210\204\260
\205\256
9\205\256
\326!\205\256
\262\372N\203\327
`\367\340!\373\353\372N!\365\261\210\360
`\"\210\361
`\362#\210\211
T|\266@\203\356
\374\353\375\376\n!P!\377\353!\365\261\210*\266\201@c\210\201A \207" [calc-settings-file obarray fill-column fill-prefix message "Record in %s the command: z-" read-char calc-user-key-map 39 nil intern "calcFunc-" completing-read format "Record in %s the algebraic function: " mapcar #[257 "\211\300\301O\207" [9 nil] 4 "\n\n(fn X)"] all-completions #[257 "\300\301\302P!!\207" [fboundp intern "calcFunc-"] 5 "\n\n(fn X)"] t 134217848 "Record in %s the command: " fboundp "calc-" error "No command defined for that key" find-file-noselect substitute-in-file-name 70 "\n;;; Definition stored by Calc on " current-time-string "\n(put 'calc-define '" symbol-name "key%d" " '(progn\n" lambda calc-user-defn 3 calc-execute-kbd-macro vectorp edit-kbd-macro edmacro-parse-keys 1 prin1-to-string defun "\n" string-search "\"" fill-region indent-rigidly 2 " (put '" " 'calc-user-defn '" ")\n" calc-stack-command-p "(put '" " (fset '" " " math-compose-forms " 'math-compose-forms '" " (define-key calc-mode-map " "z" char-to-string " '" "))\n" save-buffer] 17]] 2 nil nil])
#@12 

(fn CMD)
(defalias 'calc-stack-command-p #[257 "\211\203\2119\203\300
!\205S\301
K!\207\211:\205S\211@\302=\205S\303
\236\206)\304
\236\211\262\205S\305
\236\211\262\205S\306
8@\307>\205S\306
8A@@\310=\205S\306
8A@A@\207" [fboundp calc-stack-command-p lambda calc-wrapper calc-slow-wrapper calc-enter-result 3 (cons list) quote] 3 (#$ . 25696)])
#@12 

(fn ARG)
(defalias 'calc-call-last-kbd-macro #[257 "\203\302\303!\210	\204\302\304!\210\305	\"\207" [defining-kbd-macro last-kbd-macro error "Can't execute anonymous macro while defining one" "No kbd macro has been defined" calc-execute-kbd-macro] 4 (#$ . 26064) "P"])
#@29 

(fn MAC ARG &rest PREFIX)
(defalias 'calc-execute-kbd-macro #[642 "C\203	\302 \210\303
\242!\203>\211\242G\304V\203>\211\242\304H;\203>\211
\242\305H\206<
\242\305\306\307!\2035\307\310!\210\311\242\304H!I\240\210\312!\304W\203O\313
\242\312![\"\207	\203Y\313
\242\"\207\314\315\316$`\"\207" [calc-keep-args-flag calc-executing-macro calc-keep-args vectorp 0 1 fboundp edit-kbd-macro nil edmacro-parse-keys prefix-numeric-value execute-kbd-macro calc-do make-closure #[0 "\306!\f\307 
\310\311\302&\216\300\242\312\300\242\301\"*\207" [V0 V1 V2 calc-stack calc-stack-top calc-refresh-count copy-sequence buffer-size make-closure #[0 "\306 \210\307
!\307\301!
\203$\211\203$
@
@\232\203$
A\262\211A\262
\202	\300\310\232\204B\311G\312V\2039\313\314\"\202:\315\300@\206@\316\"\210\317\320\321\302E!\210\211\203W\317\322\312\313\314\"E!\210\301\323\324
G!\210*\303\325 U\203\227\304U\203\227\326`d|\210
\203\220\317\327\312D!\210\330@!\331\261\210
A\262\202w\332 \210)\202\253
\203\250\317\327\312D!\210
A\262\202\227\333 \210\317\320\321\323E!\207" [V0 V1 V2 V3 V4 calc-stack calc-select-buffer reverse (nil) calc-record-list 1 mapcar car ("") "kmac" calc-record-undo set saved-stack-top pop 0 calc-cursor-stack-index buffer-size nil push math-format-stack-value "\n" calc-renumber-stack calc-refresh calc-stack-top calc-refresh-count buffer-read-only] 8] execute-kbd-macro calc-executing-macro] 11]] 10 (#$ . 26347)])
#@20 

(fn VALS M SELS)
(defalias 'calc-push-list-in-macro #[771 "@\302@E\206\302\\\211\302V\203 \211\303Z	\233S	\233B\241\207
	B\211\207" [calc-stack-top calc-stack 1 2] 9 (#$ . 27834)])
#@13 

(fn N MM)
(defalias 'calc-pop-stack-in-macro #[514 "\211\301V\203\211\302Z\233\\S\233\241\207
\233\211\207" [calc-stack 1 2] 5 (#$ . 28033)])
(defalias 'calc-kbd-if #[0 "\300\301!\207" [calc-do #[0 "\301\302!\303\302!\210\304
!\203\205 \305\306!\207\203\305\307!\210\310\311!\207" [defining-kbd-macro calc-top-n 1 calc-pop-stack math-is-true message "If true..." "Condition is false; skipping to Z: or Z] ..." calc-kbd-skip-to-else-if t] 3]] 2 nil nil])
(defalias 'calc-kbd-else-if #[0 "\300 \207" [calc-kbd-if] 1 nil nil])
#@18 

(fn ELSE-OKAY)
(defalias 'calc-kbd-skip-to-else-if #[257 "\301\302
\301Y\203\\\303 \262
\211\304U\203\305\306!\210\211\307U\203\303 \262
\211\310U\203-
T\262\202\211\311U\203:
S\262\202\211\312U\203P
\301U\203\203\304\262\202\211\313=\203\314 \210\202\205m\211\312U\203j\315\316!\207\315\317!\207" [defining-kbd-macro 0 nil read-char -1 error "Unterminated Z[ in keyboard macro" 90 91 93 58 7 keyboard-quit message "Else..." "End-if..."] 5 (#$ . 28580)])
(defalias 'calc-kbd-end-if #[0 "\205\301\302!\207" [defining-kbd-macro message "End-if..."] 2 nil nil])
(defalias 'calc-kbd-else #[0 "\203\301\302!\210\303\304!\207" [defining-kbd-macro message "Else; skipping to Z] ..." calc-kbd-skip-to-else-if nil] 2 nil nil])
(defalias 'calc-kbd-repeat #[0 "\300C\301\302\303\"!\210\304
\242!\207" [nil calc-do make-closure #[0 "\300\301\302\303!!\240\210\304\300\242!\204\305\306!\210\300\242\211\250\205\211\307W\262
\203&\300\307\240\210\300\242\250\2040\300\310\240\210\311\303!\207" [V0 math-trunc calc-top-n 1 Math-integerp error "Count must be an integer" 0 1000000 calc-pop-stack] 4] calc-kbd-loop] 5 nil nil])
#@12 

(fn DIR)
(defalias 'calc-kbd-for #[257 "\300C\300C\301\302\303#!\210\304\300\242\242\205\305!$\207" [nil calc-do make-closure #[0 "\300\302\303!\240\210\301\302\304!\240\210\300\242\211:?\206\211@\305>\262
\203.\301\242\211:?\206)\211@\305>\262
\2042\306\307!\210\310\303!\207" [V0 V1 calc-top-n 2 1 (frac float hms) error "Initial and final values must be real numbers" calc-pop-stack] 3] calc-kbd-loop prefix-numeric-value] 9 (#$ . 29741) "P"])
#@46 

(fn RPT-COUNT &optional INITIAL FINAL DIR)
(defalias 'calc-kbd-loop #[1025 "C
C
\211\242\203\302\242!\202\303\240\210\304\305C\306 CC\305	\204'\307\310!\210\304Y\203\244\311 \262
\211\312=\203<\313\314\"\210\211\315=\203\227\311 \262
\316\242\306\315\"\"\240\210\211\317\267\202eT\262\202'S\262\202'\211\320U\203\213\304U\203\213\211\242\316\242\304\321O\306\315\322\"\"C\244\240\210\323\240\210\202'\211\324=\203'\325 \210\202'\316\242\306!\"\240\210\202'\211\326\236AU\204\263\313\327#\210	\204\273\307\330!\210\316\242\304\321O\306\315\322\"\"\240\210	\204\350\242\303U\203\350\242\204\350
\242\204\350\307\331!\210\304\240\210\n\203\375\242\204\375\332
\"\240\210\333\334\335\n
\n\n	&!\210	\206
\307\336!\207" [last-command-event executing-kbd-macro prefix-numeric-value 1000000 0 nil vector message "Reading loop body..." read-event -1 error "Unterminated Z%c in keyboard macro" 90 vconcat #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (60 87 40 87 123 87 62 94 41 94 125 94)) 47 -2 93 "" 7 keyboard-quit ((60 . 62) (40 . 41) (123 . 125)) "Mismatched Z%c and Z%c in keyboard macro" "Looping..." "Warning: Infinite loop! Not executing" math-compare calc-do make-closure #[0 "\300\242\306V\205\261\303\242\305\242\203Y\302\242\306=\203#\301\305\242\307\"\306U\266\202\202J\302\242\310=\2038\301\305\242\307\"\311U\266\202\202J\302\242\311=\203T\305\242\301\307\"\311U\266\202\203T\300\306\240\210\202Y\312\305\242!\210\211\203\203\300\242\306V\203\203\313
@!\210\314\315\310!!\203x\300\306\240\210\202|\211A\262
\316\310!\210\202Y\300\242\306V\203\255\313\304\242!\210\305\242\203\247\315\310!\316\310!\210\305\317\305\242\"\240\266\202\300\211\242S\240\210\210\202\207" [V0 V1 V2 V3 V4 V5 0 math-compare 1 -1 calc-push execute-kbd-macro math-is-true calc-top-n calc-pop-stack calcFunc-add] 6] "Looping...done"] 21 (#$ . 30211) "P"])
(defalias 'calc-kbd-end-repeat #[0 "\300\301!\207" [error "Unbalanced Z> in keyboard macro"] 2 nil nil])
(defalias 'calc-kbd-end-for #[0 "\300\301!\207" [error "Unbalanced Z) in keyboard macro"] 2 nil nil])
(defalias 'calc-kbd-end-loop #[0 "\300\301!\207" [error "Unbalanced Z} in keyboard macro"] 2 nil nil])
(defalias 'calc-kbd-break #[0 "\300\301!\207" [calc-do #[0 "\300\301!\302\301!\210\303
!\205\304\305!\207" [calc-top-n 1 calc-pop-stack math-is-true error "Keyboard macro aborted"] 3]] 2 nil nil])
(defvar calc-kbd-push-level 0)
(defvar var-q0 nil)
(defvar var-q1 nil)
(defvar var-q2 nil)
(defvar var-q3 nil)
(defvar var-q4 nil)
(defvar var-q5 nil)
(defvar var-q6 nil)
(defvar var-q7 nil)
(defvar var-q8 nil)
(defvar var-q9 nil)
#@12 

(fn ARG)
(defalias 'calc-kbd-push #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\300\205	\306\300!\307V	\n\f
  !!\"\"\211\203/\310\2021##\211\203;\311\202=$$\211\203G\312\202I%%\211?\205R&&\300?\205[''\300?\205d((\211?\205m))\211?\205v**\211?\205++\211?\205\210,,\211?\205\221--\307\313\314.\204\240/\203\f
/\203\251\315\316!\210\307Y\203\366\317 \262
\211\320U\203\275\321\322!\210\211\323U\203\354\317 \262

\324\325!Q\262\211\326\267\202\251T\262\202\251S\262\202\251\327 \210\202\251\202\251
\325!P\262\202\251/\203\377\315\330!\210\3070\331\307\332O!)\202
0T0\315\333\334\"\210\335 ).\207" [V0 var-q0 var-q1 var-q2 var-q3 var-q4 prefix-numeric-value 0 12 32 deg "" nil message "Reading body..." read-char -1 error "Unterminated Z` in keyboard macro" 90 "Z" char-to-string #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (96 213 39 220 7 227)) keyboard-quit "Reading body...done" execute-kbd-macro -2 "%s" "Saving modes; type Z' to restore" recursive-edit var-q5 var-q6 var-q7 var-q8 var-q9 calc-internal-prec calc-word-size calc-angle-mode calc-simplify-mode calc-algebraic-mode calc-incomplete-algebraic-mode calc-symbolic-mode calc-matrix-mode calc-prefer-frac calc-complex-mode calc-infinite-mode executing-kbd-macro defining-kbd-macro calc-kbd-push-level] 8]] 5 (#$ . 32937) "P"])
(defalias 'calc-kbd-pop #[0 "\301V\203
\302\303!\210\304 \207\305\306\307\"\207" [calc-kbd-push-level 0 message "Mode settings restored" exit-recursive-edit error "%s" "Unbalanced Z' in keyboard macro"] 3 nil nil])
(defalias 'calc-kbd-query #[0 "\302\211\303\304!C
\211\242\242\305=\204\306\307!\202%\211\310\242!\240\210\311\312\313\"!*\207" [executing-kbd-macro defining-kbd-macro nil calc-top 1 vec error "No prompt string provided" math-vector-to-string calc-do make-closure #[0 "\301\302!\210\303\304\300\242\305\232?\205\300\242\"\207" [V0 calc-pop-stack 1 calc-alg-entry nil ""] 4]] 7 nil nil])
#@23 

(fn A B &rest MORE)
(defalias 'calcFunc-eq #[642 "\211\203b\300!BB\301
\302
A\203K\303=\204K
\262
\211A\211\262\203D\303=\204D\304@@\"\262\301=\203
\305@A\"\241\210\202
A\262\202\303=\203U\266\303\207A\203^\306B\207\266\301\207\304\"\206\216\307!\204u\310!\203\212\307!\204\201\310!\203\212\306\311!\311!E\207\306E\207" [copy-sequence 1 nil 0 math-two-eq delq calcFunc-eq math-looks-negp math-zerop math-neg] 11 (#$ . 34985)])
#@23 

(fn A B &rest MORE)
(defalias 'calcFunc-neq #[642 "\211\203XBB\300\301\302
A\203B\303=\204B
\262
\211A\211\262\203;\303=\204;\304@@\"\262\204\302\262\202
A\262\202
\303=\203L\266\300\207\203T\266\303\207\305B\207\304\"\306\236A\206\207\307!\204n\310!\203\203\307!\204z\310!\203\203\305\311!\311!E\207\305E\207" [0 t nil 1 math-two-eq calcFunc-neq ((0 . 1) (1 . 0)) math-looks-negp math-zerop math-neg] 11 (#$ . 35466)])
#@12 

(fn A B)
(defalias 'math-two-eq #[514 "
\242\300=\203^\211\242\300=\203L
G
GU\203J\301A\262
A\211\262\203I\211\302=\204I\211\2038\303@@\"\262
\202\303@@\"\302=\203\302\262
\202\207\302\207\211\211:?\206W\211@\304>\262
\205]\302\207\211\242\300=\203w
\211:?\206p\211@\304>\262
\205\260\302\207\305\"\211\302U\203\205\301\202\256\211\306U\205\251\211:?\206\226\211@\307>\262
\205\250
\211:?\206\246\211@\307>\262
??\205\256\302\262
\207" [vec 1 0 math-two-eq (frac float cplx polar hms date sdev intv mod) math-compare 2 (frac float cplx polar hms)] 6 (#$ . 35939)])
#@12 

(fn A B)
(defalias 'calcFunc-lt #[514 "\300\"\211\301U\203\f\302\207\211\303U\2038\304!\204\305!\2033\304!\204*\305!\2033\306\307!\307!E\207\310E\207\311\207" [math-compare -1 1 2 math-looks-negp math-zerop calcFunc-gt math-neg calcFunc-lt 0] 7 (#$ . 36546)])
#@12 

(fn A B)
(defalias 'calcFunc-gt #[514 "\300\"\211\301U\203\f\301\207\211\302U\2038\303!\204\304!\2033\303!\204*\304!\2033\305\306!\306!E\207\307E\207\310\207" [math-compare 1 2 math-looks-negp math-zerop calcFunc-lt math-neg calcFunc-gt 0] 7 (#$ . 36831)])
#@12 

(fn A B)
(defalias 'calcFunc-leq #[514 "\300\"\211\301U\203\f\302\207\211\303U\2038\304!\204\305!\2033\304!\204*\305!\2033\306\307!\307!E\207\310E\207\301\207" [math-compare 1 0 2 math-looks-negp math-zerop calcFunc-geq math-neg calcFunc-leq] 7 (#$ . 37113)])
#@12 

(fn A B)
(defalias 'calcFunc-geq #[514 "\300\"\211\301U\203\f\302\207\211\303U\2038\304!\204\305!\2033\304!\204*\305!\2033\306\307!\307!E\207\310E\207\311\207" [math-compare -1 0 2 math-looks-negp math-zerop calcFunc-leq math-neg calcFunc-geq 1] 7 (#$ . 37398)])
#@10 

(fn A)
(defalias 'calcFunc-rmeq #[257 "\211\211\242\301=\262
\203\302\303\"\207\211\242\236\203/\304
8\242\305=\203+\306
A@!\203+\211A@\207\304
8\207\211\242\307=\203:\304
8\207\211\242\310=\203E\211A@\207\303
D\207" [calc-tweak-eqn-table vec math-map-vec calcFunc-rmeq 2 var math-objectp calcFunc-assign calcFunc-evalto] 4 (#$ . 37686)])
#@12 

(fn A B)
(defalias 'calcFunc-land #[514 "
\211:\203\211@\300=\203\211A@\301=\262
\202$\302
!\262
\202$\211\301=\262
\203)
\207\211\211:\203H\211@\300=\203@\211A@\301=\262
\202M\302
!\262
\202M\211\301=\262
\203Q\207\303!\203X\207\303
!\203`
\207\304E\207" [float 0 math-zerop math-is-true calcFunc-land] 5 (#$ . 38042)])
#@12 

(fn A B)
(defalias 'calcFunc-lor #[514 "
\211:\203\211@\300=\203\211A@\301=\262
\202$\302
!\262
\202$\211\301=\262
\203(\207\211\211:\203G\211@\300=\203?\211A@\301=\262
\202L\302
!\262
\202L\211\301=\262
\203Q
\207\303!\203Y
\207\303
!\203`\207\304E\207" [float 0 math-zerop math-is-true calcFunc-lor] 5 (#$ . 38388)])
#@10 

(fn A)
(defalias 'calcFunc-lnot #[257 "\211\211:\203\211@\301=\203\211A@\302=\262
\202$\303
!\262
\202$\211\302=\262
\203)\304\207\305
!\2031\302\207\211G\306U\205<\211@\236\211\203G\307
8AB\207\310D\207" [calc-tweak-eqn-table float 0 math-zerop 1 math-is-true 3 2 calcFunc-lnot] 4 (#$ . 38732)])
#@16 

(fn C E1 E2)
(defalias 'calcFunc-if #[771 "\211:\203\211@\300=\203\211A@\301=\262
\202$\302
!\262
\202$\211\301=\262
\203(\207\303!\203:\211\242\304=\262
\204:
\207\211\242\304=\262
\203\240\305!\203\240
\211\242\304=\262
\203hGGU\203a
A\202j\306\307\"\202j
C
\211\242\304=\262
\203\210GGU\203\201
A\202\212\306\307\"\202\212
C
\205\233\211\205\233\304\310A#B\266\202\206\245\311F\207" [float 0 math-zerop math-is-true vec math-constp calc-record-why "*Dimension error" math-if-vector calcFunc-if] 10 (#$ . 39050)])
#@16 

(fn C E1 E2)
(defalias 'math-if-vector #[771 "\205D@\211:\203$\211@\300=\203\211A@\301=\262
\202)\302
!\262
\202)\211\301=\262
\2031\211@\2023
@\303AA\206<A\206B#B\207" [float 0 math-zerop math-if-vector] 8 (#$ . 39614)])
#@10 

(fn A)
(defalias 'math-normalize-logical-op #[257 "\211@\301=\203\227\211G\302U\203\227\303
A@!\211\211:\2032\211@\304=\203*\211A@\305=\262
\2027\306
!\262
\2027\211\305=\262
\203B\303\3078!\202\222\211\211:?\206M\211@\310>\262
\203Z\303\3118!\202\222
A@\211\242\312=\262
\203\201\313A@!\203\201\301A@\303\3118!\303\3078!#\202\222\314\301
\303\3118!\303\3078!F)\262
\206\230\211\207" [calc-simplify-mode calcFunc-if 4 math-normalize float 0 math-zerop 3 (frac float cplx polar) 2 vec math-constp none] 8 (#$ . 39861)])
#@12 

(fn A B)
(defalias 'calcFunc-in #[514 "\211\242\300=\203J\211\211A\211\262\2030\211@\242\301>\203\"\302@\"\303=\202-
@\304\"\305U\266\202\203\211\2038\303\202E\306!\205E\306
!\205E\305\262
\206

\211\242\307=\203\354\304\3108\"\311
\312U\203b\266\305\207
\305U\203\221A@\310U\203\201\3108\3138\304\"\312U\266\202\203\221A@\314>\203\215\266\303\207\266\305\207\304\3138\"\211\262\303U\203\243\266\305\207\211\305U\203\322A@\303U\203\302\3108\3138\304\"\312U\266\202\203\322A@\315>\203\316\266\303\207\266\305\207
\303U\204\335\266\202\354\211\312U\204\350\266\202\354\266\303\207

\304\"\305U\266\202\203\373\303\207\306!\203	
\306
!\203	
\305\207\302E\207" [vec (vec intv) calcFunc-in 1 math-compare 0 math-constp intv 2 nil -1 3 (2 3) (1 3)] 9 (#$ . 40414)])
#@10 

(fn A)
(defalias 'calcFunc-typeof #[257 "\300
!\203\301\207\211@\302=\203\303\207\211@\304=\203\305\207\211@\306=\203#\307\207\211@\310=\203,\311\207\211@\312=\2035\313\207\211@\314=\203>\315\207\211@\316=\203G\317\207\211@\320=\203P\321\207\211@\322=\203c\300
A@!\203a\323\207\324\207\211@\325=\203v\303
8\326>\203t\327\207\330\207\211@\331=\203\207\332
!\203\205\333\207\334\207\335
@!\207" [Math-integerp 1 frac 2 float 3 hms 4 cplx 5 polar 6 sdev 7 intv 8 mod 9 date 10 11 var (var-inf var-uinf var-nan) 12 100 vec math-matrixp 102 101 math-calcFunc-to-var] 3 (#$ . 41246)])
#@10 

(fn A)
(defalias 'calcFunc-integer #[257 "\300
!\203\301\207\211\211:?\206\211@\302>\262
\203\303\207\304
D\207" [Math-integerp 1 (frac float cplx polar hms date sdev intv mod vec) 0 calcFunc-integer] 4 (#$ . 41851)])
#@10 

(fn A)
(defalias 'calcFunc-real #[257 "\211\211:?\206\211@\300>\262
\203\301\207\211\211:?\206\211@\302>\262
\203$\303\207\304
D\207" [(frac float) 1 (frac float cplx polar hms date sdev intv mod vec) 0 calcFunc-real] 4 (#$ . 42083)])
#@10 

(fn A)
(defalias 'calcFunc-constant #[257 "\300
!\203\301\207\211\211:?\206\211@\302>\262
\203\303\207\304
D\207" [math-constp 1 (frac float cplx polar hms date sdev intv mod vec) 0 calcFunc-constant] 4 (#$ . 42333)])
#@12 

(fn A B)
(defalias 'calcFunc-refers #[514 "\300\"\203	\301\207
\242\302=\203\303E\207\304\207" [math-expr-contains 1 var calcFunc-refers 0] 5 (#$ . 42565)])
#@10 

(fn A)
(defalias 'calcFunc-negative #[257 "\300
!\203\301\207\302
!\204\303
!\203\304\207\305
D\207" [math-looks-negp 1 math-zerop math-posp 0 calcFunc-negative] 3 (#$ . 42737)])
#@10 

(fn A)
(defalias 'calcFunc-variable #[257 "\211\242\300=\203	\301\207\211\211:?\206\211@\302>\262
\203\303\207\304
D\207" [var 1 (frac float cplx polar hms date sdev intv mod vec) 0 calcFunc-variable] 4 (#$ . 42930)])
#@10 

(fn A)
(defalias 'calcFunc-nonvar #[257 "\211\242\300=\203\301
D\207\302\207" [var calcFunc-nonvar 1] 3 (#$ . 43161)])
#@10 

(fn A)
(defalias 'calcFunc-istrue #[257 "\300
!\203\301\207\302\207" [math-is-true 1 0] 3 (#$ . 43290)])
#@23 

(fn FUNC ARGS BODY)
(defalias 'math-do-defmath #[771 "\300\301!\210\302\303\304!P!
@;\205
@CA\262\305\306\"@:\2050@@\307=\2050@A\262\310\"\262\311
\205

G\312V\204I
A@\250\203
\313\211A@;\203yA@\314\232\203`\315\262\202uA@\316\232\203n\315\262
\202u\317\320A@\"\210A\262A@\250\204\204\317\321!\210\322\302\323\304
!P!\204\225\205\226\324\325	\307\204\244\205\245\326B\327\325\205\271\330\331\332\331\333A@FEC\334\n\203\303\331\202\307
A@\3128
\203\343\325\335CD\336A@D\337BBB\202\370\340\335D\336\203\362\331\202\366A@DEFC\"BD\"BBB\266\202\202
\322\302\323\304!P!\325\341\fBD\"BBB\322\325\342
\313\211#\f#BBBE\207" [require calc-macs intern "calcFunc-" symbol-name mapcar math-clean-arg interactive math-define-function-body progn 2 nil "p" t "m" error "Can't handle interactive code string \"%s\"" "Expected an integer in interactive specification" defun "calc-" (&optional n) append ("P") calc-slow-wrapper setq n if (prefix-numeric-value n) calc-enter-result quote calc-top-list-n ((and n (list (math-normalize (prefix-numeric-value n))))) cons calc-wrapper math-do-arg-list-check] 26 (#$ . 43405)])
#@12 

(fn ARG)
(defalias 'math-clean-arg #[257 "\211:\203\300
A@!\207\207" [math-clean-arg] 3 (#$ . 44603)])
#@31 

(fn ARG VAR IS-OPT IS-REST)
(defalias 'math-do-arg-check #[1028 "
\203\300\301\211$\302A\203\303BC\202BBC\207:\205\346\300A@$@\304
!\305\306P!\307
!\203\\\310\203Q\311	\312\313D\fEEC\202Z\311	DEC\"\207\307\305\314P!\211\262!\203\231\310\203\210\312\315\316\317\320B\321\322\313\fDEEE\nEC\202\227\317\nD\321\313	DEEC\"\207\323\324\"\203\340\307\305\314\325\326\"P!\211\262!\203\340\310\203\317\312\315\327\302\330B\321\322\313\fDEEE\nEC\202\336\302\nD\321\313	DEEC\"\207\331\332\"\266\204\207" [math-do-arg-check nil and progn symbol-name intern "math-check-" fboundp append setq mapcar quote "math-" lambda (x) or (x) math-reject-arg x string-match "\\`not-\\(.*\\)\\'" math-match-substring 1 (x) (x) error "Unknown qualifier `%s'"] 19 (#$ . 44716)])
#@28 

(fn ARGS IS-OPT IS-REST)
(defalias 'math-do-arg-list-check #[771 "\204\300\207@:\203 \301\302@\303@!$\304A#\"\207@\305=\203.\304A\306\300#\207@\307=\203<\304A\300\306#\207\304A#\207" [nil append math-do-arg-check math-clean-arg math-do-arg-list-check &optional t &rest] 9 (#$ . 45546)])
(defconst math-prim-funcs '((~= . math-nearly-equal) (% . math-mod) (lsh . calcFunc-lsh) (ash . calcFunc-ash) (logand . calcFunc-and) (logandc2 . calcFunc-diff) (logior . calcFunc-or) (logxor . calcFunc-xor) (lognot . calcFunc-not) (equal . equal) (eq . eq) (and . and) (or . or) (if . if) (^ . math-pow) (expt . math-pow)))
(defconst math-prim-vars '((nil) (t . t) (&optional . &optional) (&rest . &rest)))
#@17 

(fn BODY ENV)
(defalias 'math-define-function-body #[514 "\300\"\301
\302\"\203\303\304BBC\207\207" [math-define-body math-body-refers-to math-return catch 'math-return] 6 (#$ . 46271)])
#@21 

(fn BODY EXP-ENV)
(defalias 'math-define-body #[514 "\211\301!)\207" [math-exp-env math-define-list] 4 (#$ . 46471)])
#@29 

(fn BODY &optional QUOTE)
(defalias 'math-define-list #[513 "
\204\301\207
@\302=\203)
A@;\203)\303\304A@\303\"\305
!)\262
\306AA!B\207\211\203C
@:\203;\306A\303\"\202=
@\306A!B\207\305@!\306A!B\207" [math-read-expr-quotes nil : t math-read-plain-expr math-define-exp math-define-list] 5 (#$ . 46599)])
#@12 

(fn EXP)
(defalias 'math-define-exp #[257 "\211:\203\341\211@\211\303\267\202\224
A@:\203&
A@@\304=\203&\305\306A@\"B\207
\207
A@AA\307\310!\311\312\313!\"\"BB\207
A@AA\314G\315V\203[\307@C\316ABBE\202`\307BB!\207
A@AA
G\315V\203}\314@CABBE!\207\317\236A\320
\310!\311\312\313	!\"\"BB!\207\211\321>\203\270\322A!\203\270
G\323V\203\257\324\325A!B\207\326A@\3278\"\207\211\330\267\202\326\211A@\311AAA@B\"BB\207\211\331A!B\207\211:\203\353\211@\305=\203\353\211A@\332A!B\207\2119\203\332\332A!
	\236\211\203
\211AB\207\333\267\202{\334@\335E\207\336\337\340@A$\207
G\315U\203 
\341B\207\336\342\340@A$\207\336\343\315@A$\207\336\344\315@A$\207\336\345\340@A$\207\336\346\340@A$\207
A@\211:?\206Z
\211@\347>\262
\203l
\350A@!\203l
\351@D\207\352B\207
A@\211:?\206}
\211@\347>\262
\203\217
\350A@!\203\217
\353@D\207\352A@@E\207\354A@\211:?\206\245
\211@\347>\262
\203\271
\350A@!\203\271
\353@D\202\300
\352A@@ED\207\354A@\211:?\206\320
\211@\347>\262
\203\344
\350A@!\203\344
\351@D\202\347
\352BD\207
A@\211:?\206\366
\211@\347>\262
\203\350A@!\203\350@D\207
A@\250\203
A@\355\246\340U\204\356B\207\357B\207\354A@\211:?\206/\211@\347>\262
\203C\350A@!\203C\350@D\202]A@\250\203ZA@\355\246\340U\204Z\356B\202]\357BD\207\337@\315E\207\337@\360E\207
\242=\203w
A@@\207B\207\361=\203\216
AA\203\216\362@A\"\207\320\363!\364\365P!\364\366P!\367!\203\253
B\266\203\202\330\367
!\203\272\211B\266\203\202\330\367!\204\310\370\371\"\203\322B\266\203\202\330
B\266\203!\207\211\332A!B\207\2119\203\n\211\n\236\363!
\203\363
A\207>\203\373\207\372\373\"\203\207\364\374P!\207\211\250\203\"\211\375X\204\211\376Y\203!\305\377!D\207\207\207" [math-exp-env math-prim-funcs math-prim-vars #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (quote 13 function 13 let 40 let* 63 for 98 foreach 98)) lambda quote math-define-lambda let math-define-let math-define-body append math-define-let-env math-define-exp 1 let* ((for . math-for) (foreach . math-foreach)) macroexpand (setq setf) math-complicated-lhs 3 progn math-define-setf-list math-define-setf 2 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (condition-case 190 cond 207)) math-define-cond math-define-list #s(hash-table size 16 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (floatp 262 + 268 - 277 * 297 / 306 min 315 max 324 < 333 > 368 <= 407 >= 450 = 489 /= 545 1+ 607 1- 613 not 619)) eq 'float math-define-binop math-add 0 math-neg math-sub math-mul math-div math-min math-max (frac float cplx polar) math-zerop math-negp math-lessp math-posp not 10 math-equal-int math-equal -1 elt math-define-elt symbol-name intern "calcFunc-" "math-" fboundp string-match "\\`calcFunc-.*" string-search "-" "var-" -1000000 1000000 math-normalize] 13 (#$ . 46924)])
#@14 

(fn FORMS)
(defalias 'math-define-cond #[257 "\211\205
\300
@!\301A!B\207" [math-define-list math-define-cond] 4 (#$ . 49889)])
#@13 

(fn BODY)
(defalias 'math-complicated-lhs #[257 "\211\205\211@9?\206\300
AA!\207" [math-complicated-lhs] 3 (#$ . 50027)])
#@13 

(fn BODY)
(defalias 'math-define-setf-list #[257 "\211\205\300
@A@\"\301AA!B\207" [math-define-setf math-define-setf-list] 4 (#$ . 50161)])
#@20 

(fn PLACE VALUE)
(defalias 'math-define-setf #[514 "\300!\262\300
!\262

9\203\301E\207
\242\302=\203'\303\304A@\3058EE\207
\242\306=\203:\303\304\3058A@EE\207
\242\307=\203H\303A@E\207
\242\310=\203V\311A@E\207\312\313\"\207" [math-define-exp setq nth setcar nthcdr 2 elt car cdr setcdr error "Bad place form for setf: %s"] 7 (#$ . 50313)])
#@27 

(fn OP IDENT ARG1 REST)
(defalias 'math-define-binop #[1028 "\211\203\300@EA$\207
\206\207" [math-define-binop] 10 (#$ . 50684)])
#@14 

(fn VLIST)
(defalias 'math-define-let #[257 "\211\205\211@:\203\211@@\300@A!B\202\211@\301A!B\207" [math-define-list math-define-let] 4 (#$ . 50834)])
#@14 

(fn VLIST)
(defalias 'math-define-let-env #[257 "\211\205\211@:\203\211@@\202\211@\300A!B\207" [math-define-let-env] 4 (#$ . 51001)])
#@20 

(fn EXP EXP-ENV)
(defalias 'math-define-lambda #[514 "
@A@D\300AA\301A@\"\"\244\207" [math-define-function-body append] 8 (#$ . 51150)])
#@16 

(fn SEQ IDX)
(defalias 'math-define-elt #[514 "\211\203\300\301@EA\"\207
\207" [math-define-elt elt] 6 (#$ . 51299)])
#@24 

(fn HEAD &rest BODY)
(defalias 'math-while '(macro . #[385 "\300BB\301
\302\"\203\303\304CBB\207\207" [while math-body-refers-to math-break catch 'math-break] 6 (#$ . 51430)]))
#@24 

(fn HEAD &rest BODY)
(defalias 'math-for '(macro . #[385 "
\203\300\"\202\301\302BB\303
\304\"\203\305\306CBB\207\207" [math-handle-for while t math-body-refers-to math-break catch 'math-break] 6 (#$ . 51620)]))
#@18 

(fn HEAD BODY)
(defalias 'math-handle-for #[514 "
@@@A@\300@8\301@8\206\302A\203#\303A\"C\202$\250\2050\250\2050
\250\250\206K\242\304=\205KA@\211:?\206I\211@\305>\262
\250\206f\242\304=\205fA@\211:?\206d\211@\305>\262

\203n\202q\306\307!
\203y\202|\306\310!\311\312?\205\210\nDC?\205\222\nDC

DC#\313\203\270	\314V\203\257\315
E\202\362\316
E\202\362\317\203\337\320!\204\315\320\243!\203\326\321E\202\361\321E\202\361\322\320D\321E\321\nEFD\312\n\323\f\203

\324\202
\325\nEEC\"BBCBB\207" [2 3 1 math-handle-for quote (frac float) make-symbol "<limit>" "<step>" let append while 0 <= >= not math-posp math-lessp if setq + math-add] 23 (#$ . 51850)])
#@24 

(fn HEAD &rest BODY)
(defalias 'math-foreach '(macro . #[385 "\300\"\301
\302\"\203\303\304CBB\207\207" [math-handle-foreach math-body-refers-to math-break catch 'math-break] 6 (#$ . 52605)]))
#@18 

(fn HEAD BODY)
(defalias 'math-handle-foreach #[514 "
@@\300\301!@A@A\203\302A\"C\202\303DC\304\303\305	DDC\306\307\310
DEC\"BBEE\207" [gensym "foreach" math-handle-foreach let while car append setq cdr] 18 (#$ . 52811)])
#@19 

(fn BODY THING)
(defalias 'math-body-refers-to #[514 "

\232\206
:\205\300@\"\206\300A\"\207" [math-body-refers-to] 5 (#$ . 53061)])
#@24 

(fn &optional VALUE)
(defalias 'math-break #[256 "\300\301\"\207" [throw math-break] 4 (#$ . 53212)])
#@24 

(fn &optional VALUE)
(defalias 'math-return #[256 "\300\301\"\207" [throw math-return] 4 (#$ . 53323)])
#@13 

(fn X OP)
(defalias 'math-composite-inequalities #[514 "\211A@\300>\203 
@
A@=\203\301\302\3038!C\"\207\304\305\306\"\207\307\3108A@\311>\203b@\312>\203[\313@\314=\203?\310\202@\315A@\314=\203L\316\202M\315\\A@\302\3038!#\202\226\304\305\306\"\202\226@\317>\203\222\313A@\320=\203v\310\202w\315@\320=\203\202\316\202\203\315\\\302\3038!A@#\202\226\304\305\306\"E\207" [(calcFunc-eq calcFunc-neq) append math-read-expr-level 3 throw syntax "Syntax error" calcFunc-in 2 (calcFunc-lt calcFunc-leq) (calcFunc-lt calcFunc-leq) math-make-intv calcFunc-leq 0 1 (calcFunc-gt calcFunc-geq) calcFunc-geq] 10 (#$ . 53436)])
(provide 'calc-prog)