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

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

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


(byte-code "\300\301!\210\300\302!\207" [require calc-ext calc-macs] 2)
(defalias 'calc-set-language #[(lang &optional option no-refresh) "\306N\206\307 \310N\311N\312N\313N\314N\206 \315\316N\317N\320N\2063\321\322N\206<\323\203L\211\207\324\325D\326#\207" [lang math-expr-opers math-expr-function-mapping math-expr-variable-mapping calc-language-input-filter calc-language-output-filter 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-vector-brackets calc-complex-format calc-radix-formatter calc-function-open calc-function-close no-refresh calc-language option calc-language-option] 4])
(defalias 'calc-normal-language #[nil "\300\301!\207" [calc-do #[nil "\300\301!\210\302\303!\207" [calc-set-language nil message "Normal language mode"] 2]] 2 nil nil])
(defalias 'calc-flat-language #[nil "\300\301!\207" [calc-do #[nil "\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 #[nil "\300\301!\207" [calc-do #[nil "\300\301!\210\302\303!\207" [calc-set-language big message "\"Big\" language mode"] 2]] 2 nil nil])
(defalias 'calc-unformatted-language #[nil "\300\301!\207" [calc-do #[nil "\300\301!\210\302\303!\207" [calc-set-language unform message "Unformatted language mode"] 2]] 2 nil nil])
(defalias 'calc-c-language #[nil "\300\301!\207" [calc-do #[nil "\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#\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\"\210\316\321\301\"\210\316\322\301\"\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)) math-variable-table ((M_PI . var-pi) (M_E . var-e)) math-vector-brackets "{}" math-radix-formatter #[(r s) "\302U\203\303\304	\"\207\305U\203\303\306	\"\207\303\307	#\207" [r s 16 format "0x%s" 8 "0%s" "%d#%s"] 4] math-compose-subscr #[(a) "AA\302\303A@\304\"\305\306	\307\310#\311\257)\207" [a args horiz math-compose-expr 1000 "[" math-compose-vector ", " 0 "]"] 7] add-to-list calc-lang-slash-idiv calc-lang-allow-underscores calc-lang-c-type-hex calc-lang-brackets-are-subscripts] 4)
(defalias 'calc-pascal-language #[(n) "\300\301!\207" [calc-do #[nil "\203\301!\302\303\"\210\304\203&\305U\204&\305V\203\"\306\202'\307\202'\310!\207" [n prefix-numeric-value calc-set-language pascal message 0 "Pascal language mode (all uppercase)" "Pascal language mode (all lowercase)" "Pascal language mode"] 3]] 2 nil "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 #[(r s) "\302U\203\303\304	\"\207\303\305	#\207" [r s 16 format "$%s" "%d#%s"] 4] math-lang-read-symbol ((36 (eq (string-match "\\(\\$[0-9a-fA-F]+\\)\\($\\|[^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 #[(a) "AAA@\242\302=\203\303A@AA	\"A@\211\202\304\305A@\306\"\307\310	\311\312#\313\257)\207" [a args calcFunc-subscr append horiz math-compose-expr 1000 "[" math-compose-vector ", " 0 "]"] 8] add-to-list calc-lang-allow-underscores calc-lang-brackets-are-subscripts] 4)
(defalias 'calc-input-case-filter #[(str) "\203\n\302U\203\f	\207	\227\207" [calc-language-option str 0] 2])
(defalias 'calc-output-case-filter #[(str) "\203\n\302U\203\f	\207\302V\203	\226\207	\227\207" [calc-language-option str 0] 2])
(defalias 'calc-fortran-language #[(n) "\300\301!\207" [calc-do #[nil "\203\301!\302\303\"\210\304\203&\305U\204&\305V\203\"\306\202'\307\202'\310!\207" [n prefix-numeric-value calc-set-language fortran message 0 "FORTRAN language mode (all uppercase)" "FORTRAN language mode (all lowercase)" "FORTRAN language mode"] 3]] 2 nil "P"])
(byte-code "\301\302\303\304#\210\301\302\305\306#\210\301\302\307\310#\210\301\302\311\312#\210\301\302\313\314#\210\301\302\315\316#\210\301\302\317\320#\210\321\322\302\"\210\321\323\302\"\210\321\324\302\"\210\325B\326\325!\204H\327\325\330\"\210\330\207" [current-load-list 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 #[(a) "AAA@\242\302=\203\303A@AA	\"A@\211\202\304\305A@\306\"\307\310	\311\312#\313\257)\207" [a args calcFunc-subscr append horiz math-compose-expr 1000 "(" math-compose-vector ", " 0 ")"] 8] add-to-list calc-lang-slash-idiv calc-lang-allow-underscores calc-lang-parens-are-subscripts math-parsing-fortran-vector default-boundp set-default nil] 4)
(defalias 'math-parse-fortran-vector #[(op) "\303\304\305\306\"@A)\207" [math-parsing-fortran-vector math-exp-token math-expr-data (end . "") math-read-brackets t "]"] 3])
(defalias 'math-parse-fortran-vector-end #[(x op) "\203	\nB\304\305\207\306\307\310\"\207" [math-parsing-fortran-vector math-exp-token math-expr-data x end "" throw syntax "Unmatched closing `/'"] 3])
(defalias 'math-parse-fortran-subscr #[(sym args) "\302!	\203\303	@E	A\211\204\207" [sym args math-build-var-name calcFunc-subscr] 4])
(defalias 'calc-tex-language #[(n) "\300\301!\207" [calc-do #[nil "\203\301!\302\303\"\210\204\304\305!\207\306U\203\304\307!\207\310U\203)\304\311!\207\310V\2033\304\312!\207\313U\203=\304\314!\207\313W\205F\304\315!\207" [n 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]] 2 nil "P"])
(defalias 'calc-latex-language #[(n) "\300\301!\207" [calc-do #[nil "\203\301!\302\303\"\210\204\304\305!\207\306U\203\304\307!\207\310U\203)\304\311!\207\310V\2033\304\312!\207\313U\203=\304\314!\207\313W\205F\304\315!\207" [n 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]] 2 nil "P"])
(byte-code "\302\303\304\305#\210\302\306\304\307#\210\302\303\310\311#\210\302\303\312\313#\210\302\303\314\315#\210\302\303\316\317#\210\302\303\320\321#\210\302\303\322\323#\210\302\303\324\325#\210\302\303\326\327#\210\302\303\330\331#\210\302\303\332\333#\210\302\303\334\335#\210\302\303\336\337#\210\302\303\340\341#\210\301B\342\343!\210\344B\345\346	\347\"!\210\302\303\350\351#\207" [current-load-list math-tex-ignore-words 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) ("+" + 180 181) ("-" - 180 181) ("\\over" / 170 171) ("/" / 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 #[(a) "\250\203 \302U\204\303V\204\304W\203 \305\306\307	A!\310#\207\305\311\307	A!\312#\207" [calc-language-option a 0 1 -1 append (vleft 0 "\\matrix{") math-compose-tex-matrix ("}") (horiz "\\matrix{ ") (" }")] 4] 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 ") (lambda (#1=#:defconst-tmp-var) (defconst math-tex-ignore-words #1#)) (("\\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 "]")) math-latex-ignore-words (lambda (#2=#:defconst-tmp-var) (defconst math-latex-ignore-words #2#)) append (("\\begin" begenv)) 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-match "}" math-exp-str math-exp-pos))) (and right (setq math-exp-str (copy-sequence math-exp-str)) (aset math-exp-str right 93)))))))))] 4)
(defalias 'math-compose-tex-matrix #[(a &optional ltx) "A\203\302\303@A\304\305#	\203\306\202\307\"\310A	\"B\207\303@A\304\305#C\207" [a ltx append math-compose-vector " & " 0 (" \\\\ ") (" \\cr ") math-compose-tex-matrix] 5])
(defalias 'math-compose-tex-sum #[(a fn) "\3028\203*\303	A@\304\305\3068\307\"\310\305\3118\307\"\312\305\3028\307\"\313\305A@\307\"\314\257\207\3118\203M\303	A@\304\305\3068\307\"\310\305\3118\307\"\313\305A@\307\"\314\257	\207\303	A@\304\305\3068\307\"\313\305A@\307\"\314\257\207" [a fn 4 horiz "_{" math-compose-expr 2 0 "=" 3 "}^{" "}{" "}"] 12])
(defalias 'math-parse-tex-sum #[(f val) "\306\211\211\307\232\204\310\311\312\"\210\313 \210\f\314 \211\242\315=\204(T\310\311\316\"\210\317\232\2043\310\311\320\"\210\313 \210\314 \321
8\314 \nA@\321\n8	\257+\207" [save high low math-expr-data math-exp-old-pos f nil "_" throw syntax "Expected `_'" math-read-token math-read-factor calcFunc-eq "Expected equation" "^" "Expected `^'" 2] 6])
(defalias 'math-tex-input-filter #[(str) "\301\302\"\203\303\211\224TO\303\225S\304OP\202\207" [str string-match "[0-9]\\\\,[0-9]" 0 nil] 4])
(defalias 'math-compose-tex-sqrt #[(a) "\301\302\303A@\304\"\305F\207" [a horiz "\\sqrt{" math-compose-expr 0 "}"] 5])
(defalias 'math-compose-tex-intv #[(a) "\301A@\302>\203
\303\202\304\305\3068\307\"\310\305\3118\307\"A@\312>\203'\313\202(\314\257\207" [a horiz (0 1) "(" "[" math-compose-expr 2 0 " \\ldots " 3 (0 2) ")" "]"] 7])
(defalias 'math-compose-tex-var #[(a prec) "\203-\303U\204-\304\305\306	A@!\"\203-\n\307=\203$\310\311\306	A@!\"\207\310\312\306	A@!\"\207\313	!\207" [calc-language-option a calc-language 0 string-match "\\`[a-zA-ZÎ±-Ï‰Î‘-Î©][a-zA-ZÎ±-Ï‰Î‘-Î©0-9]+\\'" symbol-name latex format "\\text{%s}" "\\hbox{%s}" math-compose-var] 4])
(defalias 'math-compose-tex-func #[(func a) "\306\211\n\2037\n\307U\2047\310\311\"\2037\312\n!\307W\203%\313\314\"\2027\f\315=\2032\313\316\"\2026\313\317\"
G\320V\204F\321
A@!\204M\322\323\202\222\307H\324=\203\214\310\325\"\204\214\310\326\"\204\214
G\320U\203\214
A@\211:?\206x
@\327>)\204\205
A@@\330>\203\214\331\332\202\222\333	\334
A\335\307#\257*\207" [right left calc-language-option func calc-language a 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{" (bigpos bigneg frac float) (var *) "{" "}" horiz math-compose-vector ", " calc-function-open calc-function-close] 8])
(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 #[(a) "\250\203!\302U\204\303V\204\304W\203!\305\306\307	A\310\"\311#\207\305\312\307	A\310\"\313#\207" [calc-language-option a 0 1 -1 append (vleft 0 "\\begin{pmatrix}") math-compose-tex-matrix t ("\\end{pmatrix}") (horiz "\\begin{pmatrix} ") (" \\end{pmatrix}")] 5] 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-match "}" math-exp-str math-exp-pos))) (and right (setq math-exp-str (copy-sequence math-exp-str)) (aset math-exp-str right 93)))))))))] 6)
(defalias 'math-latex-parse-frac #[(f val) "\303\211\304 @\305 \210\306 	\211:?\206)\n@\307>\206)\n@\310=\205)\311\n8\312Y)\203S\211:?\206H\n@\307>\206H\n@\310=\205H\311\n8\312Y)\203S\313	E\202W\314	E*\207" [denom numer a nil math-read-expr-list math-read-token math-read-factor (bigpos bigneg) float 2 0 frac /] 4])
(defalias 'math-latex-parse-two-args #[(f val) "\303\211\304 @\305 \210\306 \307\n8	E*\207" [second first f nil math-read-expr-list math-read-token math-read-factor 2] 3])
(defalias 'math-compose-latex-frac #[(a fn) "\302A@\303\304	A@\305\"\306\304\307	8\305\"\310\257\207" [fn a horiz "{" math-compose-expr -1 "}{" 2 "}"] 8])
(put 'latex 'math-input-filter 'math-tex-input-filter)
(defalias 'calc-eqn-language #[(n) "\300\301!\207" [calc-do #[nil "\300\301!\210\302\303!\207" [calc-set-language eqn message "Eqn language mode"] 2]] 2 nil "P"])
(byte-code "\301\302\303\304#\210\301\302\305\306#\210\301\302\307\310#\210\301\302\311\312#\210\301\302\313\314#\210\301\302\315\316#\210\301\302\317\320#\210\301\302\321\322#\210\301\302\323\324#\210\301\302\325\326#\210\327B\330\331!\210\301\302\332\333#\210\301\302\334\335#\210\336B\337\340!\210\301\302\341\342#\210\301\302\343\344#\207" [current-load-list 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 #[(a) "\301\302\303\304!A!\305#\207" [a append (horiz "matrix { ") math-compose-eqn-matrix math-transpose ("}")] 5] math-var-formatter #[(a prec) "\306	\203:\n\307\203$@\f\232\204$	\310=\205AT\202\n)\203:	\307=\2033\311\202h\312\313\"\202h\314\315\316\317\f8!\"\203c\320\321\322\323\316\fA@!\324\325O!\323\316\317\f8!\324\325O!ED
\"\202h\316\fA@!)\207" [v math-compose-hash-args calc-arg-values p a prec nil 1 t "#" format "#%d" string-match ".'\\'" symbol-name 2 math-compose-expr calcFunc-Prime var intern 0 -1] 8] math-eqn-special-funcs (lambda (#1=#:defconst-tmp-var) (defconst math-eqn-special-funcs #1#)) (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) math-func-formatter #[(func a) "\306\211\307\310\n\"\203*\311\nG\312\224\313#\n\312[OS\211\312Y\203)\n\314P\202)\fG\315V\2049\316\fA@!\204@\317\320\202t\f@
>\203p\fG\315U\203p\fA@\211:?\206\\\f@\321>)\204i\fA@@\322>\203p\323\324\202t\325\326\327\n	\330\fA\331\312#\257*\207" [right left func n a math-eqn-special-funcs nil string-match "[^']'+\\'" - 0 1 " prime" 2 math-tex-expr-is-flat "{left ( " " right )}" (bigpos bigneg frac float) (var *) "~{" "}" " ( " " )" horiz math-compose-vector " , "] 8] 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)))) math-eqn-ignore-words (lambda (#2=#:defconst-tmp-var) (defconst math-eqn-ignore-words #2#)) (("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 ",")) math-lang-adjust-words #[nil "\304	\"\211?\206H\nA\204\305 \202H\nA@:\2031\305 \210\304\nA\"\205H\306\307\n@#\211\202H\nA@\310=\203C\310\311\n8\211\202H\305 \210\305 )\207" [math-expr-data math-eqn-ignore-words code 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)
(defalias 'math-compose-eqn-matrix #[(a) "\2052	\303=\203\304\202	\305=\203\306\202\307\310\nD\311\nT\312@A\313\314#)\315\316A!BBBBB\207" [a calc-matrix-just math-compose-level right "rcol " center "ccol " "lcol " break "{ " math-compose-vector " above " 1000 " } " math-compose-eqn-matrix] 7])
(defalias 'math-parse-eqn-matrix #[(f sym) "\304\305	\306\"\2032\307 \210	\n\232\204\310\311\312\"\210\307 \210\300\313 BB	\232\204,\310\311\314\"\210\307 \210\202	\232\204=\310\311\314\"\210\307 \210\315\300\237B!)\207" [vec math-expr-data calc-function-open calc-function-close nil assoc (("ccol") ("lcol") ("rcol")) math-read-token throw syntax "Expected `{'" math-read-expr-list "Expected `}'" math-transpose] 3])
(defalias 'math-parse-eqn-prime #[(x sym) "\242\306=\203U	\n\232\203@\307 \210	\232\206\f\310=?\205\311 	\232\2041\f\310=\2041\312\313\314\"\210\307 \210\315\316\317A@\"!
)B\207\306\315\320A@!\321P!\315\320\3228!\321P!E\207\323D\207" [x math-expr-data calc-function-open calc-function-close math-exp-token args var math-read-token end math-read-expr-list throw syntax "Expected `)'" intern format "calcFunc-%s'" symbol-name "'" 2 calcFunc-Prime] 6])
(defalias 'math-compose-eqn-intv #[(a) "\301A@\302>\203
\303\202\304\305\3068\307\"\310\305\3118\307\"A@\312>\203'\313\202(\314\257\207" [a horiz (0 1) "(" "[" math-compose-expr 2 0 " ... " 3 (0 2) ")" "]"] 7])
#@44 Change the Calc language to be Yacas-like.
(defalias 'calc-yacas-language #[nil "\300\301!\207" [calc-do #[nil "\300\301!\210\302\303!\207" [calc-set-language yacas message "`Yacas' language mode"] 2]] 2 (#$ . 30811) 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 #[(a) "AA\302\303A@\304\"\305\306	\307\310#\311\257)\207" [a args horiz math-compose-expr 1000 "[" math-compose-vector ", " 0 "]"] 7]] 4)
#@54 Read in the arguments to "Sum" in Calc's Yacas mode.
(defalias 'math-yacas-parse-Sum #[(f val) "\302 \303 \210\304	8\3058@A@\3048\257)\207" [args f math-read-expr-list math-read-token 2 3] 6 (#$ . 35071)])
#@50 Compose the "Sum" function in Calc's Yacas mode.
(defalias 'math-yacas-compose-sum #[(a fn) "\302A@\303\304\305	8\306\"\307\304\310	8\306\"\307\304\311	8\306\"\307\304	A@\306\"\312\257\207" [fn a horiz "(" math-compose-expr 2 -1 "," 3 4 ")"] 12 (#$ . 35289)])
#@52 Compose the "Deriv" function in Calc's Yacas mode.
(defalias 'math-yacas-compose-deriv #[(a fn) "\302A@\303\304\305	8\306\"\307	8\204\310\202&\311\304\307	8\306\"\311\304\312	8\306\"\310\260\313\304	A@\306\"\257\207" [fn a horiz "(" math-compose-expr 2 -1 3 ")" "," 4 " "] 10 (#$ . 35557)])
#@53 Compose the "Taylor" function in Calc's Yacas mode.
(defalias 'math-yacas-compose-taylor #[(a) "\301\302\3038\242\304=\203 \305\3038A@\306\"\307\305\303\21188\306\"Q\202(\305\3038\306\"\310P\307\305\3118\306\"\312\305A@\306\"\257\207" [a horiz "Taylor(" 2 calcFunc-eq math-compose-expr -1 "," ",0" 3 ") "] 9 (#$ . 35860)])
#@45 Change the Calc language to be Maxima-like.
(defalias 'calc-maxima-language #[nil "\300\301!\207" [calc-do #[nil "\300\301!\210\302\303!\207" [calc-set-language maxima message "`Maxima' language mode"] 2]] 2 (#$ . 36198) 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)
#@57 Read in the arguments to "subst" in Calc's Maxima mode.
(defalias 'math-maxima-parse-subst #[(f val) "\301 \302 \210\303A@\3048@F)\207" [args math-read-expr-list math-read-token calcFunc-subst 2] 4 (#$ . 38521)])
#@58 Read in the arguments to "taylor" in Calc's Maxima mode.
(defalias 'math-maxima-parse-taylor #[(f val) "\301 \302 \210\303@\304A@\3058E\3068F)\207" [args math-read-expr-list math-read-token calcFunc-taylor calcFunc-eq 2 3] 6 (#$ . 38744)])
(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)
#@54 Compose the "taylor" function in Calc's Maxima mode.
(defalias 'math-maxima-compose-taylor #[(a) "\301\302\303A@\304\"\305\3068\242\307=\203'\303\3068A@\304\"\305\303\306\21188\304\"Q\202/\303\3068\304\"\310P\305\303\3118\304\"\312\257\207" [a horiz "taylor(" math-compose-expr -1 "," 2 calcFunc-eq ",0" 3 ")"] 10 (#$ . 39348)])
#@53 Compose the "subst" function in Calc's Maxima mode.
(defalias 'math-maxima-compose-subst #[(a) "\301\302\303\3048\305\"\306\303\3078\305\"\306\303A@\305\"\310\257\207" [a horiz "substitute(" math-compose-expr 2 -1 "," 3 ")"] 9 (#$ . 39692)])
#@50 Compose the "if" function in Calc's Maxima mode.
(defalias 'math-maxima-compose-if #[(a) "\301\302\303A@\304\"\305\303\3068\304\"\307\303\3108\304\"\257\207" [a horiz "if " math-compose-expr -1 " then " 2 " else " 3] 9 (#$ . 39944)])
(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 #[(a) "AA\302\303A@\304\"\305\306	\307\310#\311\257)\207" [a args horiz math-compose-expr 1000 "[" math-compose-vector ", " 0 "]"] 7] math-matrix-formatter #[(a) "\303\304\305A	\306P\n#\307F\207" [a math-comp-comma math-comp-vector-prec horiz "matrix(" math-compose-vector " " ")"] 6]] 4)
#@43 Change the Calc language to be Giac-like.
(defalias 'calc-giac-language #[nil "\300\301!\207" [calc-do #[nil "\300\301!\210\302\303!\207" [calc-set-language giac message "`Giac' language mode"] 2]] 2 (#$ . 40915) 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)
#@146 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.
(defalias 'math-lang-switch-args #[(f val) "\302 \303 \210\304	8A@@E)\207" [args f math-read-expr-list math-read-token 2] 3 (#$ . 44623)])
(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)
#@149 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.
(defalias 'math-lang-compose-switch-args #[(a fn) "\302A@\303\304\305	8\306\"\307\304	A@\306\"\310\257\207" [fn a horiz "(" math-compose-expr 2 0 "," ")"] 8 (#$ . 45280)])
(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 #[(a) "AA\302\303A@\304\"\305\303\306\307\3108\311E!\312\"\313\257)\207" [a args horiz math-compose-expr 1000 "[" calc-normalize - 2 1 0 "]"] 8]] 4)
(defalias 'math-read-giac-subscr #[(x op) "\303\304!	\305\232\204\306\307\310\"\210\311 \210\312\n\313\314\315E!E)\207" [idx math-expr-data x math-read-expr-level 0 "]" throw syntax "Expected ']'" math-read-token calcFunc-subscr calc-normalize + 1] 6])
(add-to-list 'calc-lang-c-type-hex 'giac)
(defalias 'calc-mathematica-language #[nil "\300\301!\207" [calc-do #[nil "\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 #[(r s) "\302\303	#\207" [r s format "%d^^%s"] 4] 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 #[(a) "\301\302A@\303\"\304\302\3058\306\"\307\257\207" [a horiz math-compose-expr 1000 "[[" 2 0 "]]"] 6]] 4)
(defalias 'math-read-math-subscr #[(x op) "\303\304!	\305\232\203\306 \210	\305\232\204\307\310\311\"\210\306 \210\312\nE)\207" [idx math-expr-data x math-read-expr-level 0 "]" math-read-token throw syntax "Expected ']]'" calcFunc-subscr] 3])
(defalias 'calc-maple-language #[nil "\300\301!\207" [calc-do #[nil "\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 #[(a) "\305\306\307	A\n\310P#\f\311\257\207" [math-comp-left-bracket a math-comp-comma math-comp-vector-prec math-comp-right-bracket horiz "matrix(" math-compose-vector " " ")"] 7] math-compose-subscr #[(a) "AA\302\303A@\304\"\305\306	\307\310#\311\257)\207" [a args horiz math-compose-expr 1000 "[" math-compose-vector ", " 0 "]"] 7] add-to-list calc-lang-allow-underscores calc-lang-brackets-are-subscripts] 4)
(defalias 'math-compose-maple-intv #[(a) "\301\302\3038\304\"\305\302\3068\304\"F\207" [a horiz math-compose-expr 2 0 " .. " 3] 6])
(defalias 'math-read-maple-dots #[(x op) "\302\303\304\303	8!F\207" [x op intv 3 math-read-expr-level] 6])
(defalias 'math-read-big-rec #[(math-rb-h1 math-rb-v1 math-rb-h2 math-rb-v2 &optional baseline prec short) "\204\306	\nW\203\307	\f	T$\203	T\211\202	\nW\2033\307\nS\f\n$\2033\nS\202\n	TX\203y\n	X\204K	
8\211GV\203P\310	\"\207	@\fA	
8\311\n\f\nG^O!\211\242\312=\203w\310\fA@\\	\313\f8#\207\f\207\fW\203\220\307	T\n$\203\220T\211\202z\fW\203\246\307\fS	\f\n$\203\246\fS\202\220\314B\306C	
\233\211DE	F\314\211GH\314\211IJ\314KF\nW\203bE@I\fIG^JJW\203UIH\315U\204UIH\316U\203FTJW\203ITH\316U\204\317FS\"\315U\203\317FT\"\315U\204FKKT\211KJW\2033IKH\316U\204KCV\203UFBKC\202UG\204UFGIHHFTFEAE\202\306G\211F\204r\310	\"\210\202QB\203\267CKBF\320	KF$\320FTK\n$LM\321M!\203\253\321L!\203\253\322ML\"\202\261\323MLEE*\202QH\324U\203E\317TF\"\325U\204\321\310TF\326#\210\307	TF\314\327&\210\317TFS\211F\"\325U\204\335\317\313\\\211KF\"\330U\204\310KF\326#\210\317KT\211KF\"\330U\204\307	TF\314\327&\210\307GTK\n\314\327&\210\331\320\313\\FTKGTN%DE@F\202QH\332U\203\251\317TFS\"\330U\203\251TK\307	KFS\314\327&\210\307FTK\n\314\327&\210\307	TF\314\327&\210\317KT\211KFS\"\330U\204\202\331\320TFKFT\327%DE@F\202QH\333U\203\317TF\"\315U\203\334\335F
8#U\203\306\225K\307	TF\314\327&\210\307FTT\n\314\327&\210\307KS	KF\314\327&\210\307KSFTK\n\314\327&\210\336\320T	KSF$\320TFTKS\n$EE\202QH\316U\203@\337\320T	\f\nF\340\327&DE@FAK\202QH\333U\203m\307	TF\314\327&\210\307FTT\n\314\327&\210\341TF\342\327$K\307KS	KF\314\327&\210\307KSFTK\n\314\327&\210\317KSF\"\314O\211P\343U\203\236KTKP\344U\203\256\310KSF\345#\210P\346U\203\305\320T	KS\nF%E\202i\341KF\342#OE\320K	OS\nF%DEOKP\343U\203\347\317KSF\"\346U\203\372\306\202\373\350EBBE\202i\317KSF\"\344U\203\310KSF\345#\210\202iP\351U\203D\352E@!\2034\352EA@!\204;\310F\353#\210\354EBE\202iP\355U\203i\352E@!\203\\\356EA@!\204c\310F\353#\210\357EBE*\202QH\360U\203\217\317\211KFT\"\360U\204\253\317KT\211KF\"\360U\204\253\317KF\"\315U\203\217\317KT\211KF\"\360U\203\217\317KFT\"\360U\203\217\307	KF\314\327&\210FK\314QRS\314E\341RTF\361#KQ\203\363KQU\204\367\310QF\362#\210\202\367KQ\320RFKFT$EBE\317KF\"\363>\203&\317RFT\"\360U\203&FTF\202\321RU\204Z\317KF\"\315U\203=KTK\317KF\"\344U\203QKT\211K\204Z\310KSF\362#\210\317KS\"\351U\203jKTK\307FTKS\n\314\327&\210SFSZ\313\245\\F\364E\237BE+\202QH\360U\203q\307	TF\314\327&\210\307FTT\n\314\327&\210\314ETK\341KF\361\327$B\307KS	KF\314\327&\210\307KSFTK\n\314\327&\210\320K	BS\nF%EBEBK\317KSF\"\351U\204\266\317KSF\"\211B\365>\204B\343=\203\"EA\203\"\310KSF\362#\210B\343U\203gKTK\341KF\361#BE\320K	BS\nF%C\244EBK\347\317KSF\"\344U\203]\366\202^\313EBBE\202Q\364E\237BE\202QH\367U\203\263F
8I\334\370I#\210\306\225K\307	KF\314\327&\210\307FTK\n\314\327&\210\320FKFTF%E\202QH\371Y\203\301H\372X\204\355H\373Y\203\317H\374X\204\355H\375Y\203\335H\376X\204\355H\377Y\203\nH\201VX\203\nF
8I\334\201WI#\210\350\225K\306\225B\201XI\350\"E\307	KF\314\327&\210\307FTK\n\314\327&\210\317BF\"\333U\203\332\334\201YE\"\203D\201ZE!\202N\201Z\201[EP!IBTK\314E\307B	KF\314\327&\210\307BFTK\n\314\327&\210\341KF\342\327$B\307KS	KF\314\327&\210\307KSFTK\n\314\327&\210\320K	BS\nF%EBEBK\317KSF\"\351U\204s\317KSF\"\346U\204\317\310KSF\345#\210IE\237BE\202Q\201\\\201Z\201]E!!\334\201YE\"\203\372\201ZE!\202\201Z\201^EP!EE\202QF
8I\334\201_I#U\204'\310KF\201`#\210\306\225K\201a\201XI\306\"!E\307	KF\314\327&\210\307FTK\n\314\327&\210N\203jFNU\204n\310F\201b#\210\202nFNN
8I\fIG^JK\211BJW\203\231IBH\315U\203\231BT\211B\202\200BJY\203\244\fB\307KFB\n$\203\333\307K	BF$\203\303BK\202\374\201cE\320K	BF$EEBK\202\374\307K	BF$\203\374\201dE\320KFB\n$EEBKKJW\203\362	\307K	KTF$\205:	\307KFTKT\n$\205:	\334\201eIK#\205:	\201f\201XI\306\"\201g \"\211B\203Q	\313B8Y\203\362	\306\225\211K\202f	\334\201hIK#K=\204\362	\201i\211B\203\362	\366B8\201j=\203\200	BA@EDE\202\374B@\201k\232\203\322	\320K	\f\nN\314\327&T\317AN\"\201lU\204\257	\310AN\201m#\210BA@ET\320AT	\f\nN\366B8\327&FEAK)\202\374BA@E\320K	\f\nN\366B8\327&EEA\211K\202\376N@KAU\204
\nA\fU\204
\n\310KN\"\210E.\n\207" [prec math-rb-v1 math-rb-v2 math-rb-h1 math-rb-h2 math-read-big-lines 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 40 string-match "( *)" calcFunc-choose neg 250 math-read-big-balance "(" 46 93 "Expected `)'" 41 intv 1 44 math-realp "Complex components must be real" cplx 59 math-anglep polar 91 "[" "Expected `]'" (32 44) vec (59 41) 3 60 ">" 97 122 65 90 945 969 913 math-read-big-baseline math-read-big-h2 widest widest-h2 lines-v1 p v other-v other-char line len h den num baseline hmid sep hright hleft vtop y short 937 "\\([a-zA-ZÎ±-Ï‰Î‘-Î©'_]+\\) *" math-match-substring "-" 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 `:'"] 12])
(defalias 'math-read-big-char #[(h v) "	Y\2032\nW\2032\fY\2032
W\20328\211\205.GW\205.H)\2063\306\207" [h math-rb-h1 math-rb-h2 v math-rb-v1 math-rb-v2 32 math-read-big-lines line] 3])
(defalias 'math-read-big-emptyp #[(eh1 ev1 eh2 ev2 &optional what error) "	W\203	\nW\203\f
V\203
\nV\203$\n\f\204,\306\f
\233\307\fW\203\213\n@G^S\211\nY\203[@H\fU\204D\203y\nY\203y\310;\203v\202w\311#\210\nW\203\213TA\2025\fY*\207" [ev1 math-rb-v1 eh1 math-rb-h1 ev2 math-rb-v2 32 nil math-read-big-error "Whitespace expected" eh2 math-rb-h2 what math-read-big-lines h p error] 4])
(defalias 'math-read-big-error #[(h v &optional msg) "\306\306V\203\307\n\310	@G#	AS\211\202\n\f	@G^\\\311\f
\206+\312E\313\314\315\"*\207" [math-read-big-lines p pos v h msg 0 + 1 error "Syntax error" throw syntax nil math-read-big-err-msg] 5])
(defalias 'math-read-big-balance #[(h v what &optional commas) "	8\nG^\306
\307V\203\202\fY\2030\203*\310\311\312\313\"#\210\202\307\211\202\f\nH\314>\203?
T\202z\203n
\306U\203n\nH\315>\204w\nH\316=\203zT\fW\203z\nTH\316=\202t\nH\317>\203z
ST\202+\207" [v math-read-big-lines line math-rb-h2 len count 1 0 math-read-big-error nil format "Unmatched `%s'" (40 91) (41 93 44 59) 46 (41 93) h what commas] 7])
(provide 'calc-lang)
