| Current Path : /usr/share/emacs/24.3/lisp/calc/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/calc/calc-lang.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:44 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/calc/calc-lang.el
;;; in Emacs version 24.3.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 "`%s' 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\325 D\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#\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)
#@37 Parse C's j0, j1, y0, y1 functions.
(defalias 'math-C-parse-bess #[(f val) "\302 \303 \210\304 \305=\203 \306\202, \307=\203 \310\202, \311=\203% \312\202, \313=\205, \314\")\207" [args val math-read-expr-list math-read-token append j0 (calcFunc-besJ 0) j1 (calcFunc-besJ 1) y0 (calcFunc-besY 0) y1 (calcFunc-besY 1)] 3 (#$ . 3534)])
#@51 Parse C's fma function fma(x,y,z) => (x * y + z).
(defalias 'math-C-parse-fma #[(f val) "\301 \302 \210\303\304@A@E\3058E)\207" [args math-read-expr-list math-read-token calcFunc-add calcFunc-mul 2] 4 (#$ . 3881)])
(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 #[(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 "\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 #[(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] 4)
(defvar math-parsing-fortran-vector nil)
(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 "\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) ("+" + 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 ")] 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-match "}" math-exp-str math-exp-pos))) (and right (setq math-exp-str (copy-sequence math-exp-str)) (aset math-exp-str right 93))))))))))
(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 "\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 #[(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=\205 AT\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]] 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 #[(func a) "\306\211\307\310\n\"\203* \311\nG\312\224\313#\n\312 [O S\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))))] 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 #[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 (#$ . 31250) 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 (#$ . 35510)])
#@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 (#$ . 35728)])
#@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 (#$ . 35996)])
#@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 (#$ . 36299)])
#@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 (#$ . 36637) 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 (#$ . 38960)])
#@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 (#$ . 39183)])
(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 (#$ . 39787)])
#@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 (#$ . 40131)])
#@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 (#$ . 40383)])
(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 (#$ . 41354) 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 (#$ . 45062)])
(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 (#$ . 45719)])
(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\220 T\211\202z \fW\203\246 \307\fS \f\n$\203\246 \fS\202\220 \314 B\306 C
\233\211 D E F\314\211 G H\314\211 I J\314 KF\nW\203bE@I\fIG^J JW\203UI H\315U\204UI H\316U\203F TJW\203I TH\316U\204\317 FS\"\315U\203\317 FT\"\315U\204F KKT\211KJW\2033IKH\316U\204 KCV\203UFBKC\202UG\204UFGI HHFTFEAE\202\306 G\211F\204r\310 \"\210\202QB\203\267CKBF\320 KF$\320 FTK\n$ L M\321M!\203\253\321L!\203\253\322ML\"\202\261\323MLEE*\202QH\324U\203E\317 TF\"\325U\204\321\310 TF\326#\210\307 TF\314\327&\210\317 TFS\211F\"\325U\204\335\317 \313\\\211KF\"\330U\204\310KF\326#\210\317KT\211KF\"\330U\204\307 TF\314\327&\210\307 GTK\n\314\327&\210\331\320 \313\\FTKGTN%DE@F\202QH\332U\203\251\317 TFS\"\330U\203\251 TK\307 KFS\314\327&\210\307 FTK\n\314\327&\210\307 TF\314\327&\210\317KT\211KFS\"\330U\204\202\331\320 TFKFT\327%DE@F\202QH\333U\203 \317 TF\"\315U\203 \334\335F
8 # U\203 \306\225K\307 TF\314\327&\210\307 FT T\n\314\327&\210\307KS KF\314\327&\210\307KSFTK\n\314\327&\210\336\320 T KSF$\320 TFTKS\n$EE\202QH\316U\203@\337\320 T \f\nF\340\327&DE@FAK\202QH\333U\203m\307 TF\314\327&\210\307 FT T\n\314\327&\210\341 TF\342\327$K\307KS KF\314\327&\210\307KSFTK\n\314\327&\210\317KSF\"\314 O\211 P\343U\203\236KTKP\344U\203\256\310KSF\345#\210P\346U\203\305\320 T 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;\310 F\353#\210\354EBE\202iP\355U\203i\352E@!\203\\\356EA@!\204c\310 F\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\314 Q R S\314E\341RTF\361#KQ\203\363KQU\204\367\310QF\362#\210\202\367KQ\320RFKFT$EBE\317KF\"\363>\203&\317RFT\"\360U\203&FTF\202\321R U\204Z\317KF\"\315U\203=KTK\317KF\"\344U\203QKT\211K\204Z\310KSF\362#\210\317KS\"\351U\203jKTK\307 FTKS\n\314\327&\210SFSZ\313\245\\F\364E\237BE+\202QH\360U\203q\307 TF\314\327&\210\307 FT T\n\314\327&\210\314E TK\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\307 FTK\n\314\327&\210\320 FKFTF%E\202QH\371Y\203\301H\372X\204\355H\373Y\203\317H\374X\204\355H\375Y\203\335H\376X\204\355H\377Y\203\nH\201V X\203\nF
8I\334\201W I #\210\350\225K\306\225B\201X I\350\"E\307 KF\314\327&\210\307 FTK\n\314\327&\210\317BF\"\333U\203\332\334\201Y E\"\203D\201Z E!\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\201Y E\"\203\372\201Z E!\202\201Z \201^ EP!EE\202QF
8I\334\201_ I # U\204'\310KF\201` #\210\306\225K\201a \201X I\306\"!E\307 KF\314\327&\210\307 FTK\n\314\327&\210N\203jFNU\204n\310 F\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\201c E\320K BF$EEBK\202\374\307K BF$\203\374\201d E\320KFB\n$EEBKKJW\203\362 \307K KTF$\205: \307KFTKT\n$\205: \334\201e IK#\205: \201f \201X I\306\"\201g \"\211B\203Q \313B8Y\203\362 \306\225\211K\202f \334\201h IK#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\"\201l U\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\2032 8\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 \n W\203 \f
V\203
\n V\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\213 TA\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# A S\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=\203z T\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)