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



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

(fn LANG &optional OPTION NO-REFRESH)
(defalias 'calc-set-language #[769 "\306N\206\307 \310N\311N\312N\313N\314N\206 \315\316N\317N\320N\2062\321\322N\206;\323\211\203I
\211\207\324\325D\326#\207" [math-expr-opers math-expr-function-mapping math-expr-variable-mapping calc-language-input-filter calc-language-output-filter calc-vector-brackets math-oper-table math-standard-ops math-function-table math-variable-table math-input-filter math-output-filter math-vector-brackets "[]" math-complex-format math-radix-formatter math-function-open "(" math-function-close ")" calc-change-mode (calc-language calc-language-option) t calc-complex-format calc-radix-formatter calc-function-open calc-function-close calc-language calc-language-option] 7 (#$ . 156)])
(defalias 'calc-normal-language #[0 "\300\301!\207" [calc-do #[0 "\300\301!\210\302\303!\207" [calc-set-language nil message "Normal language mode"] 2]] 2 nil nil])
(defalias 'calc-flat-language #[0 "\300\301!\207" [calc-do #[0 "\300\301!\210\302\303!\207" [calc-set-language flat message "Flat language mode (all stack entries shown on one line)"] 2]] 2 nil nil])
(defalias 'calc-big-language #[0 "\300\301!\207" [calc-do #[0 "\300\301!\210\302\303!\207" [calc-set-language big message "\"Big\" language mode"] 2]] 2 nil nil])
(defalias 'calc-unformatted-language #[0 "\300\301!\207" [calc-do #[0 "\300\301!\210\302\303!\207" [calc-set-language unform message "Unformatted language mode"] 2]] 2 nil nil])
(defalias 'calc-c-language #[0 "\300\301!\207" [calc-do #[0 "\300\301!\210\302\303!\207" [calc-set-language c message "C language mode"] 2]] 2 nil nil])
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put c math-oper-table (("u!" calcFunc-lnot -1 1000) ("~" calcFunc-not -1 1000) ("u+" ident -1 197) ("u-" neg -1 197) ("*" * 190 191) ("/" / 190 191) ("%" % 190 191) ("+" + 180 181) ("-" - 180 181) ("<<" calcFunc-lsh 170 171) (">>" calcFunc-rsh 170 171) ("<" calcFunc-lt 160 161) (">" calcFunc-gt 160 161) ("<=" calcFunc-leq 160 161) (">=" calcFunc-geq 160 161) ("==" calcFunc-eq 150 151) ("!=" calcFunc-neq 150 151) ("&" calcFunc-and 140 141) ("^" calcFunc-xor 131 130) ("|" calcFunc-or 120 121) ("&&" calcFunc-land 110 111) ("||" calcFunc-lor 100 101) ("?" (math-read-if) 91 90) ("!!!" calcFunc-pnot -1 88) ("&&&" calcFunc-pand 85 86) ("|||" calcFunc-por 75 76) ("=" calcFunc-assign 51 50) (":=" calcFunc-assign 51 50) ("::" calcFunc-condition 45 46)) math-function-table ((acos . calcFunc-arccos) (acosh . calcFunc-arccosh) (asin . calcFunc-arcsin) (asinh . calcFunc-arcsinh) (atan . calcFunc-arctan) (atan2 . calcFunc-arctan2) (atanh . calcFunc-arctanh) (fma math-C-parse-fma) (fmax . calcFunc-max) (j0 math-C-parse-bess) (jn . calcFunc-besJ) (j1 math-C-parse-bess) (yn . calcFunc-besY) (y0 math-C-parse-bess) (y1 math-C-parse-bess) (tgamma . calcFunc-gamma))] 4)
#@49 Parse C's j0, j1, y0, y1 functions.

(fn F VAL)
(defalias 'math-C-parse-bess #[514 "\300 \301 \210\302\303\267\202\304\202\305\202\306\202\307\202\310\"\207" [math-read-expr-list math-read-token append #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (j0 12 j1 16 y0 20 y1 24)) (calcFunc-besJ 0) (calcFunc-besJ 1) (calcFunc-besY 0) (calcFunc-besY 1) nil] 6 (#$ . 3041)])
#@63 Parse C's fma function fma(x,y,z) => (x * y + z).

(fn F VAL)
(defalias 'math-C-parse-fma #[514 "\300 \301 \210\302\303@A@E\3048E\207" [math-read-expr-list math-read-token calcFunc-add calcFunc-mul 2] 7 (#$ . 3466)])
(byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307#\210\300\301\310\311#\210\312\313\301\"\210\312\314\301\"\210\312\315\301\"\210\312\316\301\"\207" [put c math-variable-table ((M_PI . var-pi) (M_E . var-e)) math-vector-brackets "{}" math-radix-formatter #[514 "
\300U\203\301\302\"\207
\303U\203\301\304\"\207\301\305#\207" [16 format "0x%s" 8 "0%s" "%d#%s"] 6 "\n\n(fn R S)"] math-compose-subscr #[257 "\211AA\300\301A@\302\"\303\304\305\306#\307\257\207" [horiz math-compose-expr 1000 "[" math-compose-vector ", " 0 "]"] 9 "\n\n(fn A)"] add-to-list calc-lang-slash-idiv calc-lang-allow-underscores calc-lang-c-type-hex calc-lang-brackets-are-subscripts] 4)
#@10 

(fn N)
(defalias 'calc-pascal-language #[257 "\211C\300\301\302\"!\207" [calc-do make-closure #[0 "\300\242\203\f\300\301\300\242!\240\210\302\303\300\242\"\210\304\300\242\203.\300\242\305U\204.\300\242\305V\203*\306\202/\307\202/\310!\207" [V0 prefix-numeric-value calc-set-language pascal message 0 "Pascal language mode (all uppercase)" "Pascal language mode (all lowercase)" "Pascal language mode"] 3]] 6 (#$ . 4384) "P"])
(byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307#\210\300\301\310\311#\210\300\301\312\313#\210\300\301\314\315#\210\316\317\301\"\210\316\320\301\"\207" [put pascal math-oper-table (("not" calcFunc-lnot -1 1000) ("*" * 190 191) ("/" / 190 191) ("and" calcFunc-and 190 191) ("div" calcFunc-idiv 190 191) ("mod" % 190 191) ("u+" ident -1 185) ("u-" neg -1 185) ("+" + 180 181) ("-" - 180 181) ("or" calcFunc-or 180 181) ("xor" calcFunc-xor 180 181) ("shl" calcFunc-lsh 180 181) ("shr" calcFunc-rsh 180 181) ("in" calcFunc-in 160 161) ("<" calcFunc-lt 160 161) (">" calcFunc-gt 160 161) ("<=" calcFunc-leq 160 161) (">=" calcFunc-geq 160 161) ("=" calcFunc-eq 160 161) ("<>" calcFunc-neq 160 161) ("!!!" calcFunc-pnot -1 85) ("&&&" calcFunc-pand 80 81) ("|||" calcFunc-por 75 76) (":=" calcFunc-assign 51 50) ("::" calcFunc-condition 45 46)) math-input-filter calc-input-case-filter math-output-filter calc-output-case-filter math-radix-formatter #[514 "
\300U\203\301\302\"\207\301\303#\207" [16 format "$%s" "%d#%s"] 6 "\n\n(fn R S)"] math-lang-read-symbol ((36 (eq (string-match "\\(\\$[[:xdigit:]]+\\)\\($\\|[^0-9a-zA-Zα-ωΑ-Ω]\\)" math-exp-str math-exp-pos) math-exp-pos) (setq math-exp-token 'number math-expr-data (math-match-substring math-exp-str 1) math-exp-pos (match-end 1)))) math-compose-subscr #[257 "\211AA
A@\242\300=\203\301A@AA\"\262

A@\262\202\302\303A@\304\"\305\306\307\310#\311\257\207" [calcFunc-subscr append horiz math-compose-expr 1000 "[" math-compose-vector ", " 0 "]"] 9 "\n\n(fn A)"] add-to-list calc-lang-allow-underscores calc-lang-brackets-are-subscripts] 4)
#@12 

(fn STR)
(defalias 'calc-input-case-filter #[257 "\203\n\301U\203\207\211\227\207" [calc-language-option 0] 3 (#$ . 6459)])
#@12 

(fn STR)
(defalias 'calc-output-case-filter #[257 "\203\n\301U\203\207\301V\203\211\226\207\211\227\207" [calc-language-option 0] 3 (#$ . 6596)])
#@10 

(fn N)
(defalias 'calc-fortran-language #[257 "\211C\300\301\302\"!\207" [calc-do make-closure #[0 "\300\242\203\f\300\301\300\242!\240\210\302\303\300\242\"\210\304\300\242\203.\300\242\305U\204.\300\242\305V\203*\306\202/\307\202/\310!\207" [V0 prefix-numeric-value calc-set-language fortran message 0 "FORTRAN language mode (all uppercase)" "FORTRAN language mode (all lowercase)" "FORTRAN language mode"] 3]] 6 (#$ . 6758) "P"])
(byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307#\210\300\301\310\311#\210\300\301\312\313#\210\300\301\314\315#\210\300\301\316\317#\210\320\321\301\"\210\320\322\301\"\210\320\323\301\"\207" [put fortran math-oper-table (("u/" (math-parse-fortran-vector) -1 1) ("/" (math-parse-fortran-vector-end) 1 -1) ("**" ^ 201 200) ("u+" ident -1 191) ("u-" neg -1 191) ("*" * 190 191) ("/" / 190 191) ("+" + 180 181) ("-" - 180 181) (".LT." calcFunc-lt 160 161) (".GT." calcFunc-gt 160 161) (".LE." calcFunc-leq 160 161) (".GE." calcFunc-geq 160 161) (".EQ." calcFunc-eq 160 161) (".NE." calcFunc-neq 160 161) (".NOT." calcFunc-lnot -1 121) (".AND." calcFunc-land 110 111) (".OR." calcFunc-lor 100 101) ("!!!" calcFunc-pnot -1 85) ("&&&" calcFunc-pand 80 81) ("|||" calcFunc-por 75 76) ("=" calcFunc-assign 51 50) (":=" calcFunc-assign 51 50) ("::" calcFunc-condition 45 46)) math-vector-brackets "//" math-function-table ((acos . calcFunc-arccos) (acosh . calcFunc-arccosh) (aimag . calcFunc-im) (aint . calcFunc-ftrunc) (asin . calcFunc-arcsin) (asinh . calcFunc-arcsinh) (atan . calcFunc-arctan) (atan2 . calcFunc-arctan2) (atanh . calcFunc-arctanh) (conjg . calcFunc-conj) (log . calcFunc-ln) (nint . calcFunc-round) (real . calcFunc-re)) math-input-filter calc-input-case-filter math-output-filter calc-output-case-filter math-lang-read-symbol ((46 (eq (string-match "\\.[a-zA-Zα-ωΑ-Ω][a-zA-Zα-ωΑ-Ω][a-zA-Zα-ωΑ-Ω]?\\." math-exp-str math-exp-pos) math-exp-pos) (setq math-exp-token 'punc math-expr-data (upcase (math-match-substring math-exp-str 0)) math-exp-pos (match-end 0)))) math-compose-subscr #[257 "\211AA
A@\242\300=\203\301A@AA\"\262

A@\262\202\302\303A@\304\"\305\306\307\310#\311\257\207" [calcFunc-subscr append horiz math-compose-expr 1000 "(" math-compose-vector ", " 0 ")"] 9 "\n\n(fn A)"] add-to-list calc-lang-slash-idiv calc-lang-allow-underscores calc-lang-parens-are-subscripts] 4)
(defvar math-parsing-fortran-vector nil)
#@11 

(fn OP)
(defalias 'math-parse-fortran-vector #[257 "\303\304\305\306\"@A)\207" [math-parsing-fortran-vector math-exp-token math-expr-data (end . "") math-read-brackets t "]"] 4 (#$ . 9191)])
#@13 

(fn X OP)
(defalias 'math-parse-fortran-vector-end #[514 "\203	\nB\303\304
\207\305\306\307\"\207" [math-parsing-fortran-vector math-exp-token math-expr-data end "" throw syntax "Unmatched closing `/'"] 5 (#$ . 9396)])
#@17 

(fn SYM ARGS)
(defalias 'math-parse-fortran-subscr #[514 "\300!\262\211\203\301@E\262\211A\262
\202
\207" [math-build-var-name calcFunc-subscr] 5 (#$ . 9630)])
#@10 

(fn N)
(defalias 'calc-tex-language #[257 "\211C\300\301\302\"!\207" [calc-do make-closure #[0 "\300\242\203\f\300\301\300\242!\240\210\302\303\300\242\"\210\300\242\204\304\305!\207\300\242\306U\203&\304\307!\207\300\242\310U\2031\304\311!\207\300\242\310V\203<\304\312!\207\300\242\313U\203G\304\314!\207\300\242\313W\205Q\304\315!\207" [V0 prefix-numeric-value calc-set-language tex message "TeX language mode" 0 "TeX language mode with multiline matrices" 1 "TeX language mode with \\hbox{func}(\\hbox{var})" "TeX language mode with \\hbox{func}(\\hbox{var}) and multiline matrices" -1 "TeX language mode with \\func(\\hbox{var})" "TeX language mode with \\func(\\hbox{var}) and multiline matrices"] 3]] 6 (#$ . 9807) "P"])
#@10 

(fn N)
(defalias 'calc-latex-language #[257 "\211C\300\301\302\"!\207" [calc-do make-closure #[0 "\300\242\203\f\300\301\300\242!\240\210\302\303\300\242\"\210\300\242\204\304\305!\207\300\242\306U\203&\304\307!\207\300\242\310U\2031\304\311!\207\300\242\310V\203<\304\312!\207\300\242\313U\203G\304\314!\207\300\242\313W\205Q\304\315!\207" [V0 prefix-numeric-value calc-set-language latex message "LaTeX language mode" 0 "LaTeX language mode with multiline matrices" 1 "LaTeX language mode with \\text{func}(\\text{var})" "LaTeX language mode with \\text{func}(\\text{var}) and multiline matrices" -1 "LaTeX language mode with \\func(\\text{var})" "LaTeX language mode with \\func(\\text{var}) and multiline matrices"] 3]] 6 (#$ . 10552) "P"])
(byte-code "\300\301\302\303#\210\300\304\302\305#\210\300\301\306\307#\210\300\301\310\311#\210\300\301\312\313#\210\300\301\314\315#\210\300\301\316\317#\210\300\301\320\321#\210\300\301\322\323#\210\300\301\324\325#\210\300\301\326\327#\210\300\301\330\331#\210\300\301\332\333#\210\300\301\334\335#\210\300\301\336\337#\207" [put tex math-lang-name "TeX" latex "LaTeX" math-oper-table (("\\hat" calcFunc-hat -1 950) ("\\check" calcFunc-check -1 950) ("\\tilde" calcFunc-tilde -1 950) ("\\acute" calcFunc-acute -1 950) ("\\grave" calcFunc-grave -1 950) ("\\dot" calcFunc-dot -1 950) ("\\ddot" calcFunc-dotdot -1 950) ("\\breve" calcFunc-breve -1 950) ("\\bar" calcFunc-bar -1 950) ("\\vec" calcFunc-Vec -1 950) ("\\underline" calcFunc-under -1 950) ("u|" calcFunc-abs -1 0) ("|" closing 0 -1) ("\\lfloor" calcFunc-floor -1 0) ("\\rfloor" closing 0 -1) ("\\lceil" calcFunc-ceil -1 0) ("\\rceil" closing 0 -1) ("\\pm" sdev 300 300) ("!" calcFunc-fact 210 -1) ("^" ^ 201 200) ("_" calcFunc-subscr 201 200) ("u+" ident -1 197) ("u-" neg -1 197) ("\\times" * 191 190) ("*" * 191 190) ("2x" * 191 190) ("/" / 185 186) ("+" + 180 181) ("-" - 180 181) ("\\over" / 170 171) ("\\choose" calcFunc-choose 170 171) ("\\mod" % 170 171) ("<" calcFunc-lt 160 161) (">" calcFunc-gt 160 161) ("\\leq" calcFunc-leq 160 161) ("\\geq" calcFunc-geq 160 161) ("=" calcFunc-eq 160 161) ("\\neq" calcFunc-neq 160 161) ("\\ne" calcFunc-neq 160 161) ("\\lnot" calcFunc-lnot -1 121) ("\\land" calcFunc-land 110 111) ("\\lor" calcFunc-lor 100 101) ("?" (math-read-if) 91 90) ("!!!" calcFunc-pnot -1 85) ("&&&" calcFunc-pand 80 81) ("|||" calcFunc-por 75 76) ("\\gets" calcFunc-assign 51 50) (":=" calcFunc-assign 51 50) ("::" calcFunc-condition 45 46) ("\\to" calcFunc-evalto 40 41) ("\\to" calcFunc-evalto 40 -1) ("=>" calcFunc-evalto 40 41) ("=>" calcFunc-evalto 40 -1)) math-function-table ((\\arccos . calcFunc-arccos) (\\arcsin . calcFunc-arcsin) (\\arctan . calcFunc-arctan) (\\arg . calcFunc-arg) (\\cos . calcFunc-cos) (\\cosh . calcFunc-cosh) (\\cot . calcFunc-cot) (\\coth . calcFunc-coth) (\\csc . calcFunc-csc) (\\det . calcFunc-det) (\\exp . calcFunc-exp) (\\gcd . calcFunc-gcd) (\\ln . calcFunc-ln) (\\log . calcFunc-log10) (\\max . calcFunc-max) (\\min . calcFunc-min) (\\sec . calcFunc-sec) (\\sin . calcFunc-sin) (\\sinh . calcFunc-sinh) (\\sqrt . calcFunc-sqrt) (\\tan . calcFunc-tan) (\\tanh . calcFunc-tanh) (\\phi . calcFunc-totient) (\\mu . calcFunc-moebius)) math-special-function-table ((calcFunc-sum math-compose-tex-sum "\\sum") (calcFunc-prod math-compose-tex-sum "\\prod") (calcFunc-sqrt . math-compose-tex-sqrt) (intv . math-compose-tex-intv)) math-variable-table ((\\alpha . var-alpha) (\\beta . var-beta) (\\gamma . var-gamma) (\\Gamma . var-Gamma) (\\delta . var-delta) (\\Delta . var-Delta) (\\epsilon . var-epsilon) (\\varepsilon . var-varepsilon) (\\zeta . var-zeta) (\\eta . var-eta) (\\theta . var-theta) (\\vartheta . var-vartheta) (\\Theta . var-Theta) (\\iota . var-iota) (\\kappa . var-kappa) (\\lambda . var-lambda) (\\Lambda . var-Lambda) (\\mu . var-mu) (\\nu . var-nu) (\\xi . var-xi) (\\Xi . var-Xi) (\\pi . var-pi) (\\varpi . var-varpi) (\\Pi . var-Pi) (\\rho . var-rho) (\\varrho . var-varrho) (\\sigma . var-sigma) (\\sigma . var-varsigma) (\\Sigma . var-Sigma) (\\tau . var-tau) (\\upsilon . var-upsilon) (\\Upsilon . var-Upsilon) (\\phi . var-phi) (\\varphi . var-varphi) (\\Phi . var-Phi) (\\chi . var-chi) (\\psi . var-psi) (\\Psi . var-Psi) (\\omega . var-omega) (\\Omega . var-Omega) (pt . var-texpt) (pc . var-texpc) (bp . var-texbp) (dd . var-texdd) (cc . var-texcc) (sp . var-texsp) (pint . var-pt) (parsec . var-pc) (\\ell . var-ell) (\\infty . var-inf) (\\infty . var-uinf) (\\sum math-parse-tex-sum calcFunc-sum) (\\prod math-parse-tex-sum calcFunc-prod)) math-punc-table ((123 . 40) (125 . 41) (38 . 44)) math-complex-format i math-input-filter math-tex-input-filter math-matrix-formatter #[257 "\250\203 \301U\204\302V\204\303W\203 \304\305\306A!\307#\207\304\310\306A!\311#\207" [calc-language-option 0 1 -1 append (vleft 0 "\\matrix{") math-compose-tex-matrix ("}") (horiz "\\matrix{ ") (" }")] 5 "\n\n(fn A)"] math-var-formatter math-compose-tex-var math-func-formatter math-compose-tex-func math-dots "\\ldots" math-big-parens ("\\left( " . " \\right)") math-evalto ("\\evalto " . " \\to ")] 4)
(defconst math-tex-ignore-words '(("\\hbox") ("\\mbox") ("\\text") ("\\left") ("\\right") ("\\,") ("\\>") ("\\:") ("\\;") ("\\!") ("\\ ") ("\\quad") ("\\qquad") ("\\hfil") ("\\hfill") ("\\displaystyle") ("\\textstyle") ("\\dsize") ("\\tsize") ("\\scriptstyle") ("\\scriptscriptstyle") ("\\ssize") ("\\sssize") ("\\rm") ("\\bf") ("\\it") ("\\sl") ("\\roman") ("\\bold") ("\\italic") ("\\slanted") ("\\cal") ("\\mit") ("\\Cal") ("\\Bbb") ("\\frak") ("\\goth") ("\\evalto") ("\\matrix" mat) ("\\bmatrix" mat) ("\\pmatrix" mat) ("\\begin" begenv) ("\\cr" punc ";") ("\\\\" punc ";") ("\\*" punc "*") ("\\{" punc "[") ("\\}" punc "]")))
(defconst math-latex-ignore-words (append math-tex-ignore-words '(("\\begin" begenv))))
(put 'tex 'math-lang-read-symbol '((92 (< math-exp-pos (1- (length math-exp-str))) (progn (or (string-match "\\\\hbox *{\\([a-zA-Zα-ωΑ-Ω0-9]+\\)}" math-exp-str math-exp-pos) (string-match "\\(\\\\\\([a-zA-Zα-ωΑ-Ω]+\\|[^a-zA-Zα-ωΑ-Ω]\\)\\)" math-exp-str math-exp-pos)) (setq math-exp-token 'symbol math-exp-pos (match-end 0) math-expr-data (math-restore-dashes (math-match-substring math-exp-str 1))) (let ((code (assoc math-expr-data math-latex-ignore-words))) (cond ((null code)) ((null (cdr code)) (math-read-token)) ((eq (nth 1 code) 'punc) (setq math-exp-token 'punc math-expr-data (nth 2 code))) ((and (eq (nth 1 code) 'mat) (string-match " *{" math-exp-str math-exp-pos)) (setq math-exp-pos (match-end 0) math-exp-token 'punc math-expr-data "[") (let ((right (string-search "}" math-exp-str math-exp-pos))) (and right (setq math-exp-str (copy-sequence math-exp-str)) (aset math-exp-str right 93))))))))))
#@24 

(fn A &optional LTX)
(defalias 'math-compose-tex-matrix #[513 "
A\203\300\301@A\302\303#\203\304\202\305\"\306A\"B\207\301@A\302\303#C\207" [append math-compose-vector " & " 0 (" \\\\ ") (" \\cr ") math-compose-tex-matrix] 7 (#$ . 17305)])
#@13 

(fn A FN)
(defalias 'math-compose-tex-sum #[514 "\3008\203.\301
A@\302\303\3048\305\"\306\303\3078\305\"\310\303\300\n8\305\"\311\303A@\305\"\312\257\207\3078\203T\301
A@\302\303\3048\305\"\306\303\3078\305\"\311\303	A@\305\"\312\257	\207\301
A@\302\303\3048\305\"\311\303A@\305\"\312\257\207" [4 horiz "_{" math-compose-expr 2 0 "=" 3 "}^{" "}{" "}"] 14 (#$ . 17564)])
#@14 

(fn F VAL)
(defalias 'math-parse-tex-sum #[514 "\302\211\211\303\232\204\304\305\306\"\210\307 \210	\262
\310 \262\242\311=\204'\211T\304\305\312\"\210\313\232\2042\304\305\314\"\210\307 \210\310 \262\3158\310 A@\3158\257\207" [math-expr-data math-exp-old-pos nil "_" throw syntax "Expected `_'" math-read-token math-read-factor calcFunc-eq "Expected equation" "^" "Expected `^'" 2] 10 (#$ . 17964)])
#@12 

(fn STR)
(defalias 'math-tex-input-filter #[257 "\300\301\"\203\211\302\211\224TO
\302\225S\303OP\262
\202\207" [string-match "[0-9]\\\\,[0-9]" 0 nil] 5 (#$ . 18389)])
#@10 

(fn A)
(defalias 'math-compose-tex-sqrt #[257 "\300\301\302A@\303\"\304F\207" [horiz "\\sqrt{" math-compose-expr 0 "}"] 6 (#$ . 18570)])
#@10 

(fn A)
(defalias 'math-compose-tex-intv #[257 "\300
A@\301>\203
\302\202\303\304\3058\306\"\307\304\3108\306\"A@\311>\203(\312\202)\313\257\207" [horiz (0 1) "(" "[" math-compose-expr 2 0 " \\ldots " 3 (0 2) ")" "]"] 8 (#$ . 18716)])
#@15 

(fn A PREC)
(defalias 'math-compose-tex-var #[514 "\203(\302U\204(\303\304\305A@!\"\203(\306	\307=\203 \310\202!\311\305A@!\"\207\312!\207" [calc-language-option calc-language 0 string-match "\\`[a-zA-Zα-ωΑ-Ω][a-zA-Zα-ωΑ-Ω0-9]+\\'" symbol-name format latex "\\text{%s}" "\\hbox{%s}" math-compose-var] 6 (#$ . 18968)])
#@15 

(fn FUNC A)
(defalias 'math-compose-tex-func #[514 "\304\211\2037\305U\2047\306\307\"\2037\310!\305W\203$\311\312\"\262\2027	\313=\2031\311\314\"\2025\311\315\"\262G\316V\204F\317A@!\204O\320\262\321\262
\202\226\305H\322=\203\220\306\323\"\204\220\306\324\"\204\220G\316U\203\220A@\211:?\206y\211@\325>\262
\204\207A@@\326>\203\220\327\262\330\262
\202\226\n\262\262
\331\332A\333\305#\257\207" [calc-language-option calc-language calc-function-open calc-function-close nil 0 string-match "\\`[a-zA-Zα-ωΑ-Ω][a-zA-Zα-ωΑ-Ω0-9]+\\'" prefix-numeric-value format "\\%s" latex "\\text{%s}" "\\hbox{%s}" 2 math-tex-expr-is-flat "\\left( " " \\right)" 92 "\\\\hbox{" "\\\\text{" (frac float) (var *) "{" "}" horiz math-compose-vector ", "] 11 (#$ . 19312)])
(byte-code "\300\301\302\303\304\302N\305\"#\210\300\301\306\303\304\306N\307\"#\210\300\301\310\311#\210\300\301\312\304\312N#\210\300\301\313\314#\210\300\301\315\316#\210\300\301\317\320#\210\300\301\321\322#\210\300\301\323\324#\210\300\301\325\326#\210\300\301\327\330#\210\300\301\331\332#\210\300\301\333\334#\207" [put latex math-oper-table append tex (("\\Hat" calcFunc-Hat -1 950) ("\\Check" calcFunc-Check -1 950) ("\\Tilde" calcFunc-Tilde -1 950) ("\\Acute" calcFunc-Acute -1 950) ("\\Grave" calcFunc-Grave -1 950) ("\\Dot" calcFunc-Dot -1 950) ("\\Ddot" calcFunc-Dotdot -1 950) ("\\Breve" calcFunc-Breve -1 950) ("\\Bar" calcFunc-Bar -1 950) ("\\Vec" calcFunc-VEC -1 950) ("\\dddot" calcFunc-dddot -1 950) ("\\ddddot" calcFunc-ddddot -1 950) ("\\div" / 170 171) ("\\le" calcFunc-leq 160 161) ("\\leqq" calcFunc-leq 160 161) ("\\leqsland" calcFunc-leq 160 161) ("\\ge" calcFunc-geq 160 161) ("\\geqq" calcFunc-geq 160 161) ("\\geqslant" calcFunc-geq 160 161) ("=" calcFunc-eq 160 161) ("\\neq" calcFunc-neq 160 161) ("\\ne" calcFunc-neq 160 161) ("\\lnot" calcFunc-lnot -1 121) ("\\land" calcFunc-land 110 111) ("\\lor" calcFunc-lor 100 101) ("?" (math-read-if) 91 90) ("!!!" calcFunc-pnot -1 85) ("&&&" calcFunc-pand 80 81) ("|||" calcFunc-por 75 76) ("\\gets" calcFunc-assign 51 50) (":=" calcFunc-assign 51 50) ("::" calcFunc-condition 45 46) ("\\to" calcFunc-evalto 40 41) ("\\to" calcFunc-evalto 40 -1) ("=>" calcFunc-evalto 40 41) ("=>" calcFunc-evalto 40 -1)) math-function-table ((\\frac math-latex-parse-frac) (\\tfrac math-latex-parse-frac) (\\dfrac math-latex-parse-frac) (\\binom math-latex-parse-two-args calcFunc-choose) (\\tbinom math-latex-parse-two-args calcFunc-choose) (\\dbinom math-latex-parse-two-args calcFunc-choose) (\\phi . calcFunc-totient) (\\mu . calcFunc-moebius)) math-special-function-table ((/ math-compose-latex-frac "\\frac") (calcFunc-choose math-compose-latex-frac "\\binom") (calcFunc-sum math-compose-tex-sum "\\sum") (calcFunc-prod math-compose-tex-sum "\\prod") (calcFunc-sqrt . math-compose-tex-sqrt) (intv . math-compose-tex-intv)) math-variable-table math-punc-table ((123 . 40) (125 . 41) (38 . 44)) math-complex-format i math-matrix-formatter #[257 "\250\203!\301U\204\302V\204\303W\203!\304\305\306A\307\"\310#\207\304\311\306A\307\"\312#\207" [calc-language-option 0 1 -1 append (vleft 0 "\\begin{pmatrix}") math-compose-tex-matrix t ("\\end{pmatrix}") (horiz "\\begin{pmatrix} ") (" \\end{pmatrix}")] 6 "\n\n(fn A)"] math-var-formatter math-compose-tex-var math-func-formatter math-compose-tex-func math-dots "\\ldots" math-big-parens ("\\left( " . " \\right)") math-evalto ("\\evalto " . " \\to ") math-lang-read-symbol ((92 (< math-exp-pos (1- (length math-exp-str))) (progn (or (string-match "\\\\hbox *{\\([a-zA-Zα-ωΑ-Ω0-9]+\\)}" math-exp-str math-exp-pos) (string-match "\\\\text *{\\([a-zA-Zα-ωΑ-Ω0-9]+\\)}" math-exp-str math-exp-pos) (string-match "\\(\\\\\\([a-zA-Zα-ωΑ-Ω]+\\|[^a-zA-Zα-ωΑ-Ω]\\)\\)" math-exp-str math-exp-pos)) (setq math-exp-token 'symbol math-exp-pos (match-end 0) math-expr-data (math-restore-dashes (math-match-substring math-exp-str 1))) (let ((code (assoc math-expr-data math-tex-ignore-words)) envname) (cond ((null code)) ((null (cdr code)) (math-read-token)) ((eq (nth 1 code) 'punc) (setq math-exp-token 'punc math-expr-data (nth 2 code))) ((and (eq (nth 1 code) 'begenv) (string-match " *{\\([^}]*\\)}" math-exp-str math-exp-pos)) (setq math-exp-pos (match-end 0) envname (match-string 1 math-exp-str) math-exp-token 'punc math-expr-data "[") (cond ((or (string= envname "matrix") (string= envname "bmatrix") (string= envname "smallmatrix") (string= envname "pmatrix")) (if (string-match (concat "\\\\end{" envname "}") math-exp-str math-exp-pos) (setq math-exp-str (replace-match "]" t t math-exp-str)) (error "%s" (concat "No closing \\end{" envname "}")))))) ((and (eq (nth 1 code) 'mat) (string-match " *{" math-exp-str math-exp-pos)) (setq math-exp-pos (match-end 0) math-exp-token 'punc math-expr-data "[") (let ((right (string-search "}" math-exp-str math-exp-pos))) (and right (setq math-exp-str (copy-sequence math-exp-str)) (aset math-exp-str right 93)))))))))] 6)
#@14 

(fn F VAL)
(defalias 'math-latex-parse-frac #[514 "\300\211\301 @\262\302 \210\303 \262

\211\250\206%\211:\205%\211@\304=\205%\305
8\306Y\262
\203K\211\211\250\206A\211:\205A\211@\304=\205A\305
8\306Y\262
\203K\307E\207\310E\207" [nil math-read-expr-list math-read-token math-read-factor float 2 0 frac /] 7 (#$ . 24323)])
#@14 

(fn F VAL)
(defalias 'math-latex-parse-two-args #[514 "\300\211\301 @\262\302 \210\303 \262
\3048E\207" [nil math-read-expr-list math-read-token math-read-factor 2] 7 (#$ . 24668)])
#@13 

(fn A FN)
(defalias 'math-compose-latex-frac #[514 "\300
A@\301\302A@\303\"\304\302\3058\303\"\306\257\207" [horiz "{" math-compose-expr -1 "}{" 2 "}"] 10 (#$ . 24862)])
(put 'latex 'math-input-filter 'math-tex-input-filter)
#@10 

(fn N)
(defalias 'calc-eqn-language #[257 "\300\301!\207" [calc-do #[0 "\300\301!\210\302\303!\207" [calc-set-language eqn message "Eqn language mode"] 2]] 3 (#$ . 25099) "P"])
(byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307#\210\300\301\310\311#\210\300\301\312\313#\210\300\301\314\315#\210\300\301\316\317#\210\300\301\320\321#\210\300\301\322\323#\210\300\301\324\325#\207" [put eqn math-oper-table (("prime" (math-parse-eqn-prime) 950 -1) ("prime" calcFunc-Prime 950 -1) ("dot" calcFunc-dot 950 -1) ("dotdot" calcFunc-dotdot 950 -1) ("hat" calcFunc-hat 950 -1) ("tilde" calcFunc-tilde 950 -1) ("vec" calcFunc-Vec 950 -1) ("dyad" calcFunc-dyad 950 -1) ("bar" calcFunc-bar 950 -1) ("under" calcFunc-under 950 -1) ("sub" calcFunc-subscr 931 930) ("sup" ^ 921 920) ("sqrt" calcFunc-sqrt -1 910) ("over" / 900 901) ("u|" calcFunc-abs -1 0) ("|" closing 0 -1) ("left floor" calcFunc-floor -1 0) ("right floor" closing 0 -1) ("left ceil" calcFunc-ceil -1 0) ("right ceil" closing 0 -1) ("+-" sdev 300 300) ("!" calcFunc-fact 210 -1) ("u+" ident -1 197) ("u-" neg -1 197) ("times" * 191 190) ("*" * 191 190) ("2x" * 191 190) ("/" / 180 181) ("%" % 180 181) ("+" + 170 171) ("-" - 170 171) ("<" calcFunc-lt 160 161) (">" calcFunc-gt 160 161) ("<=" calcFunc-leq 160 161) (">=" calcFunc-geq 160 161) ("=" calcFunc-eq 160 161) ("==" calcFunc-eq 160 161) ("!=" calcFunc-neq 160 161) ("u!" calcFunc-lnot -1 121) ("&&" calcFunc-land 110 111) ("||" calcFunc-lor 100 101) ("?" (math-read-if) 91 90) ("!!!" calcFunc-pnot -1 85) ("&&&" calcFunc-pand 80 81) ("|||" calcFunc-por 75 76) ("<-" calcFunc-assign 51 50) (":=" calcFunc-assign 51 50) ("::" calcFunc-condition 45 46) ("->" calcFunc-evalto 40 41) ("->" calcFunc-evalto 40 -1) ("=>" calcFunc-evalto 40 41) ("=>" calcFunc-evalto 40 -1)) math-function-table ((arc\ cos . calcFunc-arccos) (arc\ cosh . calcFunc-arccosh) (arc\ sin . calcFunc-arcsin) (arc\ sinh . calcFunc-arcsinh) (arc\ tan . calcFunc-arctan) (arc\ tanh . calcFunc-arctanh) (GAMMA . calcFunc-gamma) (phi . calcFunc-totient) (mu . calcFunc-moebius) (matrix math-parse-eqn-matrix)) math-special-function-table ((intv . math-compose-eqn-intv)) math-punc-table ((123 . 40) (125 . 41)) math-variable-table ((inf . var-uinf)) math-complex-format i math-big-parens ("{left ( " . " right )}") math-evalto ("evalto " . " -> ") math-matrix-formatter #[257 "\300\301\302\303!A!\304#\207" [append (horiz "matrix { ") math-compose-eqn-matrix math-transpose ("}")] 6 "\n\n(fn A)"] math-var-formatter #[514 "\302\2038	\303\262\211\203%\211@\232\204%\304=\205\211A\262

T\262\202	\211\262
\2038\303=\2033\305\207\306\307\"\207\310\311\312\3138!\"\203b\314\315\316\317\312A@!\320\321O!\317\312\313	8!\320\321O!ED\"\207\312A@!\207" [math-compose-hash-args calc-arg-values nil 1 t "#" format "#%d" string-match ".'\\'" symbol-name 2 math-compose-expr calcFunc-Prime var intern 0 -1] 11 "\n\n(fn A PREC)"]] 4)
(defconst math-eqn-special-funcs '(calcFunc-log calcFunc-ln calcFunc-exp calcFunc-sin calcFunc-cos calcFunc-tan calcFunc-sec calcFunc-csc calcFunc-cot calcFunc-sinh calcFunc-cosh calcFunc-tanh calcFunc-sech calcFunc-csch calcFunc-coth calcFunc-arcsin calcFunc-arccos calcFunc-arctan calcFunc-arcsinh calcFunc-arccosh calcFunc-arctanh))
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put eqn math-func-formatter #[514 "\301\211\302\303\"\203)G\304\224ZS\304[O\262\211S\211\262\304Y\203(\305P\262\202\210G\306V\2048\307A@!\204A\310\262\311\262
\202y@>\203sG\306U\203sA@\211:?\206\\\211@\312>\262
\204jA@@\313>\203s\314\262\315\262
\202y\316\262\317\262
\320\321A\322\304#\257\207" [math-eqn-special-funcs nil string-match "[^']'+\\'" 0 " prime" 2 math-tex-expr-is-flat "{left ( " " right )}" (frac float) (var *) "~{" "}" " ( " " )" horiz math-compose-vector " , "] 11 "\n\n(fn FUNC A)"] math-lang-read-symbol ((34 (string-match "\\(\"\\([^\"\\]\\|\\\\.\\)*\\)\\(\"\\|\\'\\)" math-exp-str math-exp-pos) (progn (setq math-exp-str (copy-sequence math-exp-str)) (aset math-exp-str (match-beginning 1) 123) (if (< (match-end 1) (length math-exp-str)) (aset math-exp-str (match-end 1) 125)) (math-read-token))))] 4)
(defconst math-eqn-ignore-words '(("roman") ("bold") ("italic") ("mark") ("lineup") ("evalto") ("left" ("floor") ("ceil")) ("right" ("floor") ("ceil")) ("arc" ("sin") ("cos") ("tan") ("sinh") ("cosh") ("tanh")) ("size" n) ("font" n) ("fwd" n) ("back" n) ("up" n) ("down" n) ("above" punc ",")))
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put eqn math-lang-adjust-words #[0 "\303	\"\211?\206A\211A\204\304 \207\211A@:\203,\304 \210\303A\"\205A\305\306@#\211\207\211A@\307=\203<\307\310
8\211\207\304 \210\304 \207" [math-expr-data math-eqn-ignore-words math-exp-token assoc math-read-token format "%s %s" punc 2] 5] math-lang-read ((eq (string-match "->\\|<-\\|\\+-\\|\\\\dots\\|~\\|\\^" math-exp-str math-exp-pos) math-exp-pos) (progn (setq math-exp-token 'punc math-expr-data (math-match-substring math-exp-str 0) math-exp-pos (match-end 0)) (and (eq (string-match "\\\\dots\\." math-exp-str math-exp-pos) math-exp-pos) (setq math-exp-pos (match-end 0))) (if (memq (aref math-expr-data 0) '(126 94)) (math-read-token))))] 4)
#@10 

(fn A)
(defalias 'math-compose-eqn-matrix #[257 "\211\205-\302\267\202\303\202\304\202\305\306	D\307	T\310@A\311\312#)\313\314A!BBBBB\207" [calc-matrix-just math-compose-level #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (right 10 center 14)) "rcol " "ccol " "lcol " break "{ " math-compose-vector " above " 1000 " } " math-compose-eqn-matrix] 8 (#$ . 30358)])
#@14 

(fn F SYM)
(defalias 'math-parse-eqn-matrix #[514 "\303\304\305\"\2032\306 \210	\232\204\307\310\311\"\210\306 \210\312\313 B
B\262
\n\232\204,\307\310\314\"\210\306 \210\202
\n\232\204=\307\310\314\"\210\306 \210\315\312\237B!\207" [math-expr-data calc-function-open calc-function-close nil assoc (("ccol") ("lcol") ("rcol")) math-read-token throw syntax "Expected `{'" vec math-read-expr-list "Expected `}'" math-transpose] 6 (#$ . 30779)])
#@14 

(fn X SYM)
(defalias 'math-parse-eqn-prime #[514 "
\242\304=\203T	\232\203>\305 \210\n\232\206\306=?\205\307 \n\232\2040\306=\2040\310\311\312\"\210\305 \210\313\314\315A@\"!
B\207\304\313\316A@!\317P!\313\316\3208!\317P!E\207\321D\207" [math-expr-data calc-function-open calc-function-close math-exp-token var math-read-token end math-read-expr-list throw syntax "Expected `)'" intern format "calcFunc-%s'" symbol-name "'" 2 calcFunc-Prime] 8 (#$ . 31241)])
#@10 

(fn A)
(defalias 'math-compose-eqn-intv #[257 "\300
A@\301>\203
\302\202\303\304\3058\306\"\307\304\3108\306\"A@\311>\203(\312\202)\313\257\207" [horiz (0 1) "(" "[" math-compose-expr 2 0 " ... " 3 (0 2) ")" "]"] 8 (#$ . 31726)])
#@44 Change the Calc language to be Yacas-like.
(defalias 'calc-yacas-language #[0 "\300\301!\207" [calc-do #[0 "\300\301!\210\302\303!\207" [calc-set-language yacas message "Yacas language mode"] 2]] 2 (#$ . 31974) nil])
(byte-code "\300\301\302\303#\210\300\301\304\305#\210\306\307\301\"\210\300\301\310\311#\210\300\301\312\313#\210\300\301\314\315#\210\300\301\316\317#\210\300\301\320\321#\210\300\301\322\323#\207" [put yacas math-vector-brackets "{}" math-complex-format I add-to-list calc-lang-brackets-are-subscripts math-variable-table ((Infinity . var-inf) (Infinity . var-uinf) (Undefined . var-nan) (Pi . var-pi) (E . var-e) (GoldenRatio . var-phi) (Gamma . var-gamma)) math-parse-table ((("Deriv(" 0 ")" 0) calcFunc-deriv (var ArgB var-ArgB) (var ArgA var-ArgA)) (("D(" 0 ")" 0) calcFunc-deriv (var ArgB var-ArgB) (var ArgA var-ArgA)) (("Integrate(" 0 ")" 0) calcFunc-integ (var ArgB var-ArgB) (var ArgA var-ArgA)) (("Integrate(" 0 "," 0 "," 0 ")" 0) calcFunc-integ (var ArgD var-ArgD) (var ArgA var-ArgA) (var ArgB var-ArgB) (var ArgC var-ArgC)) (("Subst(" 0 "," 0 ")" 0) calcFunc-subst (var ArgC var-ArgC) (var ArgA var-ArgA) (var ArgB var-ArgB)) (("Taylor(" 0 "," 0 "," 0 ")" 0) calcFunc-taylor (var ArgD var-ArgD) (calcFunc-eq (var ArgA var-ArgA) (var ArgB var-ArgB)) (var ArgC var-ArgC))) math-oper-table (("+" + 30 30) ("-" - 30 60) ("*" * 60 60) ("/" / 70 70) ("u-" neg -1 60) ("^" ^ 80 80) ("u+" ident -1 30) ("<<" calcFunc-lsh 80 80) (">>" calcFunc-rsh 80 80) ("!" calcFunc-fact 80 -1) ("!!" calcFunc-dfact 80 -1) ("X" calcFunc-cross 70 70) ("=" calcFunc-eq 10 10) ("!=" calcFunc-neq 10 10) ("<" calcFunc-lt 10 10) (">" calcFunc-gt 10 10) ("<=" calcFunc-leq 10 10) (">=" calcFunc-geq 10 10) ("And" calcFunc-land 5 5) ("Or" calcFunc-or 4 4) ("Not" calcFunc-lnot -1 3) (":=" calcFunc-assign 1 1)) math-function-table ((Div . calcFunc-idiv) (Mod . calcFunc-mod) (Abs . calcFunc-abs) (Sign . calcFunc-sign) (Sqrt . calcFunc-sqrt) (Max . calcFunc-max) (Min . calcFunc-min) (Floor . calcFunc-floor) (Ceil . calcFunc-ceil) (Round . calcFunc-round) (Conjugate . calcFunc-conj) (Arg . calcFunc-arg) (Re . calcFunc-re) (Im . calcFunc-im) (Rationalize . calcFunc-pfrac) (Sin . calcFunc-sin) (Cos . calcFunc-cos) (Tan . calcFunc-tan) (Sec . calcFunc-sec) (Csc . calcFunc-csc) (Cot . calcFunc-cot) (ArcSin . calcFunc-arcsin) (ArcCos . calcFunc-arccos) (ArcTan . calcFunc-arctan) (Sinh . calcFunc-sinh) (Cosh . calcFunc-cosh) (Tanh . calcFunc-tanh) (Sech . calcFunc-sech) (Csch . calcFunc-csch) (Coth . calcFunc-coth) (ArcSinh . calcFunc-arcsinh) (ArcCosh . calcFunc-arccosh) (ArcTanh . calcFunc-arctanh) (Ln . calcFunc-ln) (Exp . calcFunc-exp) (Gamma . calcFunc-gamma) (Gcd . calcFunc-gcd) (Lcm . calcFunc-lcm) (Bin . calcFunc-choose) (Bernoulli . calcFunc-bern) (Euler . calcFunc-euler) (StirlingNumber1 . calcFunc-stir1) (StirlingNumber2 . calcFunc-stir2) (IsPrime . calcFunc-prime) (Factors . calcFunc-prfac) (NextPrime . calcFunc-nextprime) (Moebius . calcFunc-moebius) (Random . calcFunc-random) (Concat . calcFunc-vconcat) (Head . calcFunc-head) (Tail . calcFunc-tail) (Length . calcFunc-vlen) (Reverse . calcFunc-rev) (CrossProduct . calcFunc-cross) (Dot . calcFunc-mul) (DiagonalMatrix . calcFunc-diag) (Transpose . calcFunc-trn) (Inverse . calcFunc-inv) (Determinant . calcFunc-det) (Trace . calcFunc-tr) (RemoveDuplicates . calcFunc-rdup) (Union . calcFunc-vunion) (Intersection . calcFunc-vint) (Difference . calcFunc-vdiff) (Apply . calcFunc-apply) (Map . calcFunc-map) (Simplify . calcFunc-simplify) (ExpandBrackets . calcFunc-expand) (Solve . calcFunc-solve) (Degree . calcFunc-pdeg) (If . calcFunc-if) (Contains math-lang-switch-args calcFunc-in) (Sum math-yacas-parse-Sum calcFunc-sum) (Factorize math-yacas-parse-Sum calcFunc-prod)) math-special-function-table ((calcFunc-sum math-yacas-compose-sum "Sum") (calcFunc-prod math-yacas-compose-sum "Factorize") (calcFunc-deriv math-yacas-compose-deriv "Deriv") (calcFunc-integ math-yacas-compose-deriv "Integrate") (calcFunc-taylor . math-yacas-compose-taylor) (calcFunc-in math-lang-compose-switch-args "Contains")) math-compose-subscr #[257 "\211AA\300\301A@\302\"\303\304\305\306#\307\257\207" [horiz math-compose-expr 1000 "[" math-compose-vector ", " 0 "]"] 9 "\n\n(fn A)"]] 4)
#@66 Read in the arguments to "Sum" in Calc's Yacas mode.

(fn F VAL)
(defalias 'math-yacas-parse-Sum #[514 "\300 \301 \210\3028\3038@A@\3028\257\207" [math-read-expr-list math-read-token 2 3] 9 (#$ . 36235)])
#@61 Compose the "Sum" function in Calc's Yacas mode.

(fn A FN)
(defalias 'math-yacas-compose-sum #[514 "\300
A@\301\302\3038\304\"\305\302\3068\304\"\305\302\307\n8\304\"\305\302A@\304\"\310\257\207" [horiz "(" math-compose-expr 2 -1 "," 3 4 ")"] 14 (#$ . 36452)])
#@63 Compose the "Deriv" function in Calc's Yacas mode.

(fn A FN)
(defalias 'math-yacas-compose-deriv #[514 "\300
A@\301\302\3038\304\"\3058\204\306\202*\307\302\3058\304\"\307\302\310\n8\304\"\306\260\311\302A@\304\"\257\207" [horiz "(" math-compose-expr 2 -1 3 ")" "," 4 " "] 12 (#$ . 36728)])
#@61 Compose the "Taylor" function in Calc's Yacas mode.

(fn A)
(defalias 'math-yacas-compose-taylor #[257 "\300\301\3028\242\303=\203!\304\3028A@\305\"\306\304\302\21188\305\"Q\202)\304\3028\305\"\307P\306\304\3108\305\"\311\304A@\305\"\257\207" [horiz "Taylor(" 2 calcFunc-eq math-compose-expr -1 "," ",0" 3 ") "] 10 (#$ . 37040)])
#@45 Change the Calc language to be Maxima-like.
(defalias 'calc-maxima-language #[0 "\300\301!\207" [calc-do #[0 "\300\301!\210\302\303!\207" [calc-set-language maxima message "Maxima language mode"] 2]] 2 (#$ . 37388) nil])
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put maxima math-oper-table (("+" + 100 100) ("-" - 100 134) ("*" * 120 120) ("." * 130 129) ("/" / 120 120) ("u-" neg -1 180) ("u+" ident -1 180) ("^" ^ 140 139) ("**" ^ 140 139) ("!" calcFunc-fact 160 -1) ("!!" calcFunc-dfact 160 -1) ("=" calcFunc-eq 80 80) ("#" calcFunc-neq 80 80) ("<" calcFunc-lt 80 80) (">" calcFunc-gt 80 80) ("<=" calcFunc-leq 80 80) (">=" calcFunc-geq 80 80) ("and" calcFunc-land 65 65) ("or" calcFunc-or 60 60) ("not" calcFunc-lnot -1 70) (":" calcFunc-assign 180 20)) math-function-table ((matrix . vec) (abs . calcFunc-abs) (cabs . calcFunc-abs) (signum . calcFunc-sign) (floor . calcFunc-floor) (entier . calcFunc-floor) (fix . calcFunc-floor) (conjugate . calcFunc-conj) (carg . calcFunc-arg) (realpart . calcFunc-re) (imagpart . calcFunc-im) (rationalize . calcFunc-pfrac) (asin . calcFunc-arcsin) (acos . calcFunc-arccos) (atan . calcFunc-arctan) (atan2 . calcFunc-arctan2) (asinh . calcFunc-arcsinh) (acosh . calcFunc-arccosh) (atanh . calcFunc-arctanh) (log . calcFunc-ln) (plog . calcFunc-ln) (bessel_j . calcFunc-besJ) (bessel_y . calcFunc-besY) (factorial . calcFunc-fact) (binomial . calcFunc-choose) (primep . calcFunc-prime) (next_prime . calcFunc-nextprime) (prev_prime . calcFunc-prevprime) (append . calcFunc-vconcat) (rest . calcFunc-tail) (reverse . calcFunc-rev) (innerproduct . calcFunc-mul) (inprod . calcFunc-mul) (row . calcFunc-mrow) (columnvector . calcFunc-mcol) (covect . calcFunc-mcol) (transpose . calcFunc-trn) (invert . calcFunc-inv) (determinant . calcFunc-det) (mattrace . calcFunc-tr) (member . calcFunc-in) (lmax . calcFunc-vmax) (lmin . calcFunc-vmin) (distrib . calcFunc-expand) (partfrac . calcFunc-apart) (rat . calcFunc-nrat) (product . calcFunc-prod) (diff . calcFunc-deriv) (integrate . calcFunc-integ) (quotient . calcFunc-pdiv) (remainder . calcFunc-prem) (divide . calcFunc-pdivrem) (equal . calcFunc-eq) (notequal . calcFunc-neq) (rhs . calcFunc-rmeq) (subst math-maxima-parse-subst) (substitute math-maxima-parse-subst) (taylor math-maxima-parse-taylor))] 4)
#@69 Read in the arguments to "subst" in Calc's Maxima mode.

(fn F VAL)
(defalias 'math-maxima-parse-subst #[514 "\300 \301 \210\302
A@\3038@F\207" [math-read-expr-list math-read-token calcFunc-subst 2] 7 (#$ . 39705)])
#@70 Read in the arguments to "taylor" in Calc's Maxima mode.

(fn F VAL)
(defalias 'math-maxima-parse-taylor #[514 "\300 \301 \210\302
@\303A@\3048E\3058F\207" [math-read-expr-list math-read-token calcFunc-taylor calcFunc-eq 2 3] 9 (#$ . 39929)])
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put maxima math-parse-table ((("if" 0 "then" 0 "else" 0) calcFunc-if (var ArgA var-ArgA) (var ArgB var-ArgB) (var ArgC var-ArgC))) math-special-function-table ((calcFunc-taylor . math-maxima-compose-taylor) (calcFunc-subst . math-maxima-compose-subst) (calcFunc-if . math-maxima-compose-if))] 4)
#@62 Compose the "taylor" function in Calc's Maxima mode.

(fn A)
(defalias 'math-maxima-compose-taylor #[257 "\300\301\302A@\303\"\304\3058\242\306=\203)\302\3058A@\303\"\304\302\305\211	88\303\"Q\2022\302\3058\303\"\307P\304\302\3108\303\"\311\257\207" [horiz "taylor(" math-compose-expr -1 "," 2 calcFunc-eq ",0" 3 ")"] 11 (#$ . 40534)])
#@61 Compose the "subst" function in Calc's Maxima mode.

(fn A)
(defalias 'math-maxima-compose-subst #[257 "\300\301\302\3038\304\"\305\302\3068\304\"\305\302A@\304\"\307\257\207" [horiz "substitute(" math-compose-expr 2 -1 "," 3 ")"] 10 (#$ . 40888)])
#@58 Compose the "if" function in Calc's Maxima mode.

(fn A)
(defalias 'math-maxima-compose-if #[257 "\300\301\302A@\303\"\304\302\3058\303\"\306\302\3078\303\"\257\207" [horiz "if " math-compose-expr -1 " then " 2 " else " 3] 10 (#$ . 41149)])
(byte-code "\300\301\302\303#\210\300\301\304\305#\210\306\307\301\"\210\306\310\301\"\210\306\311\301\"\210\300\301\312\313#\210\300\301\314\315#\207" [put maxima math-variable-table ((infinity . var-uinf) (%pi . var-pi) (%e . var-e) (%i . var-i) (%phi . var-phi) (%gamma . var-gamma)) math-complex-format %i add-to-list calc-lang-allow-underscores calc-lang-allow-percentsigns calc-lang-brackets-are-subscripts math-compose-subscr #[257 "\211AA\300\301A@\302\"\303\304\305\306#\307\257\207" [horiz math-compose-expr 1000 "[" math-compose-vector ", " 0 "]"] 9 "\n\n(fn A)"] math-matrix-formatter #[257 "\302\303\304A\305P	#\306F\207" [math-comp-comma math-comp-vector-prec horiz "matrix(" math-compose-vector " " ")"] 7 "\n\n(fn A)"]] 4)
#@43 Change the Calc language to be Giac-like.
(defalias 'calc-giac-language #[0 "\300\301!\207" [calc-do #[0 "\300\301!\210\302\303!\207" [calc-set-language giac message "Giac language mode"] 2]] 2 (#$ . 42146) nil])
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put giac math-oper-table (("[" (math-read-giac-subscr) 250 -1) ("+" + 180 181) ("-" - 180 181) ("/" / 191 192) ("*" * 191 192) ("^" ^ 201 200) ("u+" ident -1 197) ("u-" neg -1 197) ("!" calcFunc-fact 210 -1) (".." (math-read-maple-dots) 165 165) ("\\dots" (math-read-maple-dots) 165 165) ("intersect" calcFunc-vint 191 192) ("union" calcFunc-vunion 180 181) ("minus" calcFunc-vdiff 180 181) ("<" calcFunc-lt 160 160) (">" calcFunc-gt 160 160) ("<=" calcFunc-leq 160 160) (">=" calcFunc-geq 160 160) ("=" calcFunc-eq 160 160) ("==" calcFunc-eq 160 160) ("!=" calcFunc-neq 160 160) ("and" calcFunc-land 110 111) ("or" calcFunc-lor 100 101) ("&&" calcFunc-land 110 111) ("||" calcFunc-lor 100 101) ("not" calcFunc-lnot -1 121) (":=" calcFunc-assign 51 50)) math-function-table ((rdiv . calcFunc-div) (iquo . calcFunc-idiv) (irem . calcFunc-mod) (remain . calcFunc-mod) (floor . calcFunc-floor) (iPart . calcFunc-floor) (ceil . calcFunc-ceil) (ceiling . calcFunc-ceil) (re . calcFunc-re) (real . calcFunc-re) (im . calcFunc-im) (imag . calcFunc-im) (float2rational . calcFunc-pfrac) (exact . calcFunc-pfrac) (evalf . calcFunc-pfloat) (bitand . calcFunc-and) (bitor . calcFunc-or) (bitxor . calcFunc-xor) (asin . calcFunc-arcsin) (acos . calcFunc-arccos) (atan . calcFunc-arctan) (asinh . calcFunc-arcsinh) (acosh . calcFunc-arccosh) (atanh . calcFunc-arctanh) (log . calcFunc-ln) (logb . calcFunc-log) (factorial . calcFunc-fact) (comb . calcFunc-choose) (binomial . calcFunc-choose) (nCr . calcFunc-choose) (perm . calcFunc-perm) (nPr . calcFunc-perm) (bernoulli . calcFunc-bern) (is_prime . calcFunc-prime) (isprime . calcFunc-prime) (isPrime . calcFunc-prime) (ifactors . calcFunc-prfac) (euler . calcFunc-totient) (phi . calcFunc-totient) (rand . calcFunc-random) (concat . calcFunc-vconcat) (augment . calcFunc-vconcat) (mid . calcFunc-subvec) (length . calcFunc-length) (size . calcFunc-length) (nops . calcFunc-length) (SortA . calcFunc-sort) (SortB . calcFunc-rsort) (revlist . calcFunc-rev) (cross . calcFunc-cross) (crossP . calcFunc-cross) (crossproduct . calcFunc-cross) (mul . calcFunc-mul) (dot . calcFunc-mul) (dotprod . calcFunc-mul) (dotP . calcFunc-mul) (scalar_product . calcFunc-mul) (scalar_Product . calcFunc-mul) (row . calcFunc-mrow) (col . calcFunc-mcol) (dim . calcFunc-mdims) (tran . calcFunc-trn) (transpose . calcFunc-trn) (lu . calcFunc-lud) (trace . calcFunc-tr) (member . calcFunc-in) (sum . calcFunc-vsum) (add . calcFunc-vsum) (product . calcFunc-vprod) (mean . calcFunc-vmean) (median . calcFunc-vmedian) (stddev . calcFunc-vsdev) (stddevp . calcFunc-vpsdev) (variance . calcFunc-vpvar) (map . calcFunc-map) (apply . calcFunc-map) (of . calcFunc-map) (zip . calcFunc-map) (expand . calcFunc-expand) (fdistrib . calcFunc-expand) (partfrac . calcFunc-apart) (ratnormal . calcFunc-nrat) (diff . calcFunc-deriv) (derive . calcFunc-deriv) (integrate . calcFunc-integ) (int . calcFunc-integ) (Int . calcFunc-integ) (romberg . calcFunc-ninteg) (nInt . calcFunc-ninteg) (lcoeff . calcFunc-plead) (content . calcFunc-pcont) (primpart . calcFunc-pprim) (quo . calcFunc-pdiv) (rem . calcFunc-prem) (quorem . calcFunc-pdivrem) (divide . calcFunc-pdivrem) (equal . calcFunc-eq) (ifte . calcFunc-if) (not . calcFunc-lnot) (rhs . calcFunc-rmeq) (right . calcFunc-rmeq) (prepend math-lang-switch-args calcFunc-cons) (contains math-lang-switch-args calcFunc-in) (has math-lang-switch-args calcFunc-refers))] 4)
#@158 Read the arguments to a Calc function in reverse order.
This is used for various language modes which have functions in reverse
order to Calc's.

(fn F VAL)
(defalias 'math-lang-switch-args #[514 "\300 \301 \210\3028
A@@E\207" [math-read-expr-list math-read-token 2] 6 (#$ . 45848)])
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put giac math-parse-table ((("set" 0) calcFunc-rdup (var ArgA var-ArgA))) math-special-function-table ((calcFunc-cons math-lang-compose-switch-args "prepend") (calcFunc-in math-lang-compose-switch-args "contains") (calcFunc-refers math-lang-compose-switch-args "has") (intv . math-compose-maple-intv))] 4)
#@160 Compose the arguments to a Calc function in reverse order.
This is used for various language modes which have functions in reverse
order to Calc's.

(fn A FN)
(defalias 'math-lang-compose-switch-args #[514 "\300
A@\301\302\3038\304\"\305\302A@\304\"\306\257\207" [horiz "(" math-compose-expr 2 0 "," ")"] 10 (#$ . 46504)])
(byte-code "\300\301\302\303#\210\300\301\304\305#\210\306\307\301\"\210\300\301\310\311#\207" [put giac math-variable-table ((infinity . var-inf) (infinity . var-uinf)) math-complex-format i add-to-list calc-lang-allow-underscores math-compose-subscr #[257 "\300\301A@\302\"\303\301\304\305\3068\307E!\310\"\311\257\207" [horiz math-compose-expr 1000 "[" calc-normalize - 2 1 0 "]"] 9 "\n\n(fn A)"]] 4)
#@13 

(fn X OP)
(defalias 'math-read-giac-subscr #[514 "\301\302!\303\232\204\304\305\306\"\210\307 \210\310\311\312\313E!E\207" [math-expr-data math-read-expr-level 0 "]" throw syntax "Expected `]'" math-read-token calcFunc-subscr calc-normalize + 1] 9 (#$ . 47246)])
(add-to-list 'calc-lang-c-type-hex 'giac)
(defalias 'calc-mathematica-language #[0 "\300\301!\207" [calc-do #[0 "\300\301!\210\302\303!\207" [calc-set-language math message "Mathematica language mode"] 2]] 2 nil nil])
(byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307#\210\300\301\310\311#\210\300\301\312\313#\210\300\301\314\315#\210\300\301\316\317#\210\300\301\320\321#\210\300\301\322\323#\210\300\301\324\325#\207" [put math math-oper-table (("[[" (math-read-math-subscr) 250 -1) ("!" calcFunc-fact 210 -1) ("!!" calcFunc-dfact 210 -1) ("^" ^ 201 200) ("u+" ident -1 197) ("u-" neg -1 197) ("/" / 195 196) ("*" * 190 191) ("2x" * 190 191) ("+" + 180 181) ("-" - 180 181) ("<" calcFunc-lt 160 161) (">" calcFunc-gt 160 161) ("<=" calcFunc-leq 160 161) (">=" calcFunc-geq 160 161) ("==" calcFunc-eq 150 151) ("!=" calcFunc-neq 150 151) ("u!" calcFunc-lnot -1 121) ("&&" calcFunc-land 110 111) ("||" calcFunc-lor 100 101) ("!!!" calcFunc-pnot -1 85) ("&&&" calcFunc-pand 80 81) ("|||" calcFunc-por 75 76) (":=" calcFunc-assign 51 50) ("=" calcFunc-assign 51 50) ("->" calcFunc-assign 51 50) (":>" calcFunc-assign 51 50) ("::" calcFunc-condition 45 46)) math-function-table ((Abs . calcFunc-abs) (ArcCos . calcFunc-arccos) (ArcCosh . calcFunc-arccosh) (ArcSin . calcFunc-arcsin) (ArcSinh . calcFunc-arcsinh) (ArcTan . calcFunc-arctan) (ArcTanh . calcFunc-arctanh) (Arg . calcFunc-arg) (Binomial . calcFunc-choose) (Ceiling . calcFunc-ceil) (Conjugate . calcFunc-conj) (Cos . calcFunc-cos) (Cosh . calcFunc-cosh) (Cot . calcFunc-cot) (Coth . calcFunc-coth) (Csc . calcFunc-csc) (Csch . calcFunc-csch) (D . calcFunc-deriv) (Dt . calcFunc-tderiv) (Det . calcFunc-det) (Exp . calcFunc-exp) (EulerPhi . calcFunc-totient) (Floor . calcFunc-floor) (Gamma . calcFunc-gamma) (GCD . calcFunc-gcd) (If . calcFunc-if) (Im . calcFunc-im) (Inverse . calcFunc-inv) (Integrate . calcFunc-integ) (Join . calcFunc-vconcat) (LCM . calcFunc-lcm) (Log . calcFunc-ln) (Max . calcFunc-max) (Min . calcFunc-min) (Mod . calcFunc-mod) (MoebiusMu . calcFunc-moebius) (Random . calcFunc-random) (Round . calcFunc-round) (Re . calcFunc-re) (Sec . calcFunc-sec) (Sech . calcFunc-sech) (Sign . calcFunc-sign) (Sin . calcFunc-sin) (Sinh . calcFunc-sinh) (Sqrt . calcFunc-sqrt) (Tan . calcFunc-tan) (Tanh . calcFunc-tanh) (Transpose . calcFunc-trn) (Length . calcFunc-vlen)) math-variable-table ((I . var-i) (Pi . var-pi) (E . var-e) (GoldenRatio . var-phi) (EulerGamma . var-gamma) (Infinity . var-inf) (ComplexInfinity . var-uinf) (Indeterminate . var-nan)) math-vector-brackets "{}" math-complex-format I math-function-open "[" math-function-close "]" math-radix-formatter #[514 "\300\301#\207" [format "%d^^%s"] 6 "\n\n(fn R S)"] math-lang-read ((eq (string-match "\\[\\[\\|->\\|:>" math-exp-str math-exp-pos) math-exp-pos) (setq math-exp-token 'punc math-expr-data (math-match-substring math-exp-str 0) math-exp-pos (match-end 0))) math-compose-subscr #[257 "\300\301A@\302\"\303\301\3048\305\"\306\257\207" [horiz math-compose-expr 1000 "[[" 2 0 "]]"] 7 "\n\n(fn A)"]] 4)
#@13 

(fn X OP)
(defalias 'math-read-math-subscr #[514 "\301\302!\303\232\203\304 \210\303\232\204\305\306\307\"\210\304 \210\310E\207" [math-expr-data math-read-expr-level 0 "]" math-read-token throw syntax "Expected `]]'" calcFunc-subscr] 6 (#$ . 50595)])
(defalias 'calc-maple-language #[0 "\300\301!\207" [calc-do #[0 "\300\301!\210\302\303!\207" [calc-set-language maple message "Maple language mode"] 2]] 2 nil nil])
(byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\301\306\307#\210\300\301\310\311#\210\300\301\312\313#\210\300\301\314\315#\210\300\301\316\317#\210\320\321\301\"\210\320\322\301\"\207" [put maple math-oper-table (("matrix" ident -1 300) ("MATRIX" ident -1 300) ("!" calcFunc-fact 210 -1) ("^" ^ 201 200) ("**" ^ 201 200) ("u+" ident -1 197) ("u-" neg -1 197) ("/" / 191 192) ("*" * 191 192) ("intersect" calcFunc-vint 191 192) ("+" + 180 181) ("-" - 180 181) ("union" calcFunc-vunion 180 181) ("minus" calcFunc-vdiff 180 181) ("mod" % 170 170) (".." (math-read-maple-dots) 165 165) ("\\dots" (math-read-maple-dots) 165 165) ("<" calcFunc-lt 160 160) (">" calcFunc-gt 160 160) ("<=" calcFunc-leq 160 160) (">=" calcFunc-geq 160 160) ("=" calcFunc-eq 160 160) ("<>" calcFunc-neq 160 160) ("not" calcFunc-lnot -1 121) ("and" calcFunc-land 110 111) ("or" calcFunc-lor 100 101) ("!!!" calcFunc-pnot -1 85) ("&&&" calcFunc-pand 80 81) ("|||" calcFunc-por 75 76) (":=" calcFunc-assign 51 50) ("::" calcFunc-condition 45 46)) math-function-table ((bernoulli . calcFunc-bern) (binomial . calcFunc-choose) (diff . calcFunc-deriv) (GAMMA . calcFunc-gamma) (ifactor . calcFunc-prfac) (igcd . calcFunc-gcd) (ilcm . calcFunc-lcm) (int . calcFunc-integ) (modp . %) (irem . %) (iquo . calcFunc-idiv) (isprime . calcFunc-prime) (length . calcFunc-vlen) (member . calcFunc-in) (crossprod . calcFunc-cross) (inverse . calcFunc-inv) (trace . calcFunc-tr) (transpose . calcFunc-trn) (vectdim . calcFunc-vlen)) math-special-function-table ((intv . math-compose-maple-intv)) math-variable-table ((I . var-i) (Pi . var-pi) (E . var-e) (infinity . var-inf) (infinity . var-uinf) (infinity . var-nan)) math-complex-format I math-matrix-formatter #[257 "\304\305\306A	\307P\n#\310\257\207" [math-comp-left-bracket math-comp-comma math-comp-vector-prec math-comp-right-bracket horiz "matrix(" math-compose-vector " " ")"] 8 "\n\n(fn A)"] math-compose-subscr #[257 "\211AA\300\301A@\302\"\303\304\305\306#\307\257\207" [horiz math-compose-expr 1000 "[" math-compose-vector ", " 0 "]"] 9 "\n\n(fn A)"] add-to-list calc-lang-allow-underscores calc-lang-brackets-are-subscripts] 4)
#@10 

(fn A)
(defalias 'math-compose-maple-intv #[257 "\300\301\3028\303\"\304\301\3058\303\"F\207" [horiz math-compose-expr 2 0 " .. " 3] 7 (#$ . 53197)])
#@13 

(fn X OP)
(defalias 'math-read-maple-dots #[514 "\300\301\302\3018!F\207" [intv 3 math-read-expr-level] 8 (#$ . 53357)])
#@62 

(fn RB-H1 RB-V1 RB-H2 RB-V2 &optional BASELINE PREC SHORT)
(defalias 'math-read-big-rec #[1796 "
\204\306\262\nW\203*\307\n	\nT$\203*\nT\211\202\nW\203@\307S	$\203@S\202*\nTX\203\213\nX\204X\n\f8\211GV\203_\310\n\"\202\203	\n	@\n\f8\311	G^O!\211\242\312=\203\207\310	A@\\\n\313	8#\202\203		\202\203		W\203\242\307\nT$\203\242T\211\202\214	W\203\270\307	S\n	$\203\270	S\202\242\314\306\n\f\233\211\n\314\211\211\211\211W\203N
@\262	G^\262W\203B
H\315U\204B
H\316U\2036
TW\203\373TH\316U\204
\317S\"\315U\203
\317T\"\315U\2046
\262
\211T\211\262W\203&

H\316U\204
\211	V\203B
\262\n\211\262	\202B
\204B
\262H\262T\262A\262\202\304\211\262\204]
\310\n\"\210\202\344	\203\227
\262
	\262\320\n	$\320T$\321!\203\214
\321
!\203\214
\322\"\202\220
\323E\262	\266\202\344\324U\203\317T\"\325U\204\260
\310T\326#\210\307\nT	\314\327&\210\317TS\211\262	\"\325U\204\274
\317\313\\\211\262\"\330U\204\341
\310
\326#\210\317
T\211\262\"\330U\204\341
\307\nT	\314\327&\210\307T\314\327&\210\331\320\313\\T	T%D\262
\262\202\344\332>\203}\317TS\"\330U\203}T\262
\307\n	S\314\327&\210\307T\314\327&\210\307\nT	\314\327&\210\317
T\211\262S\"\330U\204Y\331\320T\nT\327%D\262
\262\202\344\333U\203\353\317T\"\315U\203\353\334\335\f8#U\203\353\306\225\262
\307\nT	\314\327&\210\307TT\314\327&\210\307
S\n	\314\327&\210\307
ST\314\327&\210\336\320T\nS\n$\320T	TS$E\262\202\344\316U\203\337\320T\n	\340\327&D\262
\262@\262
\202\344\333U\203O\307\nT	\314\327&\210\307TT\314\327&\210\341T\342\327$\262
\307
S\n	\314\327&\210\307
ST\314\327&\210\317
S\"\314
\343U\203^T\262
\344U\203l\310S	\345#\210
\346U\203\203\320T\nS\f%\262	\266\202\344\341	\342#\262
\320\nS
%D\262	\211\262
\343U\203\276\347\317S\n\"\346U\203\262\306\202\263\350\nBB\262	\266\202\344\317S	\"\344U\203\325\310S	\345#\266\202\344
\351U\203@\211:?\206\350\211@\352>\262
\203A@\211:?\206\373\211@\352>\262
\204\310	\353#\210\354	B\262	\266\202\344
\355U\203J@\211:?\206%\211@\352>\262
\203=A@\211:?\2068\211@\356>\262
\204D\310	\353#\210\357	B\262	\266\202\344\360U\203P\317\211\262T\"\360U\204\211\317
T\211\262\"\360U\204\211\317
\"\315U\203P\317
T\211\262\"\360U\203P\317
T\"\360U\203P\307\n	\314\327&\210
\314\211\262\n\341T\n\361#\262\211\203\302
U\204\305\310
\n\362#\210\202\305\262
\320\n\fT$\nB\262\n\317\n\"\363>\203\361\317\nT\"\360U\203\361T\262	\202\245
U\204\317\n\"\315U\203T\262\317\n\"\344U\203T\211\262\204\310S\n\362#\210\317\"\351U\203,T\262\307\nTS\314\327&\210	Z\313\245\\\262	\364\n\237B\262\n\266\202\344\360U\203%\307\nT	\314\327&\210\307TT\314\327&\210\314\262T\262
\341
\361\327$\262\n\307
S\n	\314\327&\210\307
ST\314\327&\210\320
\n\fS\n%B\262	\262
\317
S\"\351U\204v\317
S\"\262\n	\365>\204\322	\343=\203\332A\203\332\310
S\362#\210	\343U\203\211T\262
\341
\361#\262\n\320\n
S%C\244\262	\262
\347\317S\"\344U\203\366\202\313BB\262\202\344\364\237B\262\202\344\367U\203a\f8\262\334\370#\210\306\225\262
\307\n	\314\327&\210\307T\314\327&\210\320	T\n%\262\202\344\371Y\203m\372X\204\223\373Y\203y\374X\204\223\375Y\203\205\376X\204\223\377Y\203\243\201AX\203\243\f8\262\334\201B#\210\350\225\262
\306\225\262\n\201C\350\"\262\307\n	\314\327&\210\307T\314\327&\210\317\n\"\333U\203q\201D\201E\"\203\347\201F!\202\361\201F\201GP!\262	T\262
\314\262\307\n\n	\314\327&\210\307\nT\314\327&\210\341
\342\327$\262\n\307
S\n	\314\327&\210\307
ST\314\327&\210\320
\n\fS\n%B\262	\262
\317
S\"\351U\204\317
S\"\346U\204g\310
S\345#\210\237B\262\202\344\201H\201F\201I	!!\201D\201E\n\"\203\223\201F	!\202\235\201F\201J\nP!E\262\202\344\f8\262\334\201K#U\204\275\310
\201L#\210\306\225\262
\201M\201C\306\"!\262\307\n	\314\327&\210\307T\314\327&\210\f\203\374
U\204\377\310\201N#\210\202\377\262
\f\f8\262	G^\262\211\262\n	W\203&\nH\315U\203&	T\262\n\202	Y\2030	\262\n\307
\f$\203d\307
\n\f	$\203M	\262
\202\203\201O\320\n$E\262	\262
\202\203\307
\n\f	$\203\203\201P\320	$E\262	\262
\211W\203g	\307
\nT	$\205\270\307
TT$\205\270\334\201Q#\205\270\201R\201C\306\"\201S \"\211\262\203\320\313\n8\fY\203g	\306\225\211\262\202\342\334\201T#
=\204g	\201U\211\262\203g	\366\n8\201V=\203\374	A@D\262\202\203	@\201W\232\203I	\320
\n	\314\327&\317@\"\201XU\204(	\310@\201Y#\210\nA@\320@T\n	\3668\327&F\262@\266\202\202\203	A@\320\n	\3668\327&E\262@\262
\202\203\f\211@\n\204	@	U\204	\310
\"\210\266\212,\207" [math-rb-v2 math-rb-h2 math-rb-v1 math-rb-h1 math-read-big-lines math-read-big-baseline 0 math-read-big-emptyp math-read-big-error math-read-expr error 2 nil 32 45 math-read-big-char math-read-big-rec math-integerp math-make-frac / 92 124 "Malformed root sign" t 95 calcFunc-sqrt (86 8730) 40 string-match "( *)" calcFunc-choose neg 250 math-read-big-balance "(" 46 93 "Expected `)'" 41 intv 1 44 (frac float) "Complex components must be real" cplx 59 (frac float hms) polar 91 "[" "Expected `]'" (32 44) vec (59 41) 3 60 ">" 97 122 65 90 945 969 913 math-read-big-h2 937 "\\([a-zA-Zα-ωΑ-Ω'_]+\\) *" math-match-substring string-search "-" intern "calcFunc-" var math-remove-dashes "var-" "_?\\([0-9]+.?0*@ *\\)?\\([0-9]+.?0*' *\\)?\\([0-9]+\\(#\\|\\^\\^\\)[0-9a-zA-Z:]+\\|[0-9]+:[0-9:]+\\|[0-9.]+\\([eE][-+_]?[0-9]+\\)?\"?\\)?" "Expected a number" math-read-number "Inconsistent baseline in formula" ^ calcFunc-subscr "<=\\|>=\\|\\+/-\\|!=\\|&&\\|||\\|:=\\|=>\\|." assoc math-standard-ops ",\\|;\\|\\.\\.\\|)\\|\\]\\|:" ("2x" * 196 195) -1 "?" 58 "Expected `:'"] 30 (#$ . 53488)])
#@12 

(fn H V)
(defalias 'math-read-big-char #[514 "
Y\203.
	W\203.\211\nY\203.\211W\203.\211\f8\211\205)
GW\205)\211H\262
\206/\305\207" [math-rb-h1 math-rb-h2 math-rb-v1 math-rb-v2 math-read-big-lines 32] 5 (#$ . 59660)])
#@45 

(fn EH1 EV1 EH2 EV2 &optional WHAT ERROR)
(defalias 'math-read-big-emptyp #[1540 "W\203	\262	W\203	\262\nV\203\n\262V\203$\262
\204+\305\262\f\233\306W\203@G^\262
\211S\211\262Y\203Q
@
HU\204=\203l\211Y\203l\307
;\203i\202j\310#\210\211W\203T\262
A\262\202/Y\207" [math-rb-v1 math-rb-h1 math-rb-v2 math-rb-h2 math-read-big-lines 32 nil math-read-big-error "Whitespace expected"] 12 (#$ . 59897)])
#@26 

(fn H V &optional MSG)
(defalias 'math-read-big-error #[770 "\302\302V\203
T
@G\\\262\211A\262
S\262\202
@G^\\\262\303\206+\304E\305\306\307\"\207" [math-read-big-lines math-read-big-err-msg 0 error "Syntax error" throw syntax nil] 8 (#$ . 60359)])
#@34 

(fn H V WHAT &optional COMMAS)
(defalias 'math-read-big-balance #[1027 "8	
G^\302\211\303V\203\200Y\203-\203'\304\305\306\307	\"#\210\202\303\262
\202H\310>\203=\211T\262
\202x\203k\211\302U\203kH\311>\204tH\312=\203xTW\203xTH\312=\202qH\313>\203x\211S\262
T\262\202\207" [math-read-big-lines math-rb-h2 1 0 math-read-big-error nil format-message "Unmatched `%s'" (40 91) (41 93 44 59) 46 (41 93)] 13 (#$ . 60632)])
(provide 'calc-lang)