Linux ns8.secondary29.go.th 2.6.32-754.28.1.el6.x86_64 #1 SMP Wed Mar 11 18:38:45 UTC 2020 x86_64
Apache/2.2.15 (CentOS)
: 122.154.134.11 | : 122.154.134.9
Cant Read [ /etc/named.conf ]
5.6.40
apache
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
23.1 /
lisp /
calc /
[ HOME SHELL ]
Name
Size
Permission
Action
README
7.89
KB
-rw-r--r--
README.prev
31.02
KB
-rw-r--r--
calc-aent.elc
26.85
KB
-rw-r--r--
calc-alg.elc
46.35
KB
-rw-r--r--
calc-arith.elc
81.62
KB
-rw-r--r--
calc-bin.elc
21.53
KB
-rw-r--r--
calc-comb.elc
30.12
KB
-rw-r--r--
calc-cplx.elc
8.5
KB
-rw-r--r--
calc-embed.elc
29.83
KB
-rw-r--r--
calc-ext.elc
108.83
KB
-rw-r--r--
calc-fin.elc
11.84
KB
-rw-r--r--
calc-forms.elc
48.05
KB
-rw-r--r--
calc-frac.elc
5.58
KB
-rw-r--r--
calc-funcs.elc
25.78
KB
-rw-r--r--
calc-graph.elc
35.09
KB
-rw-r--r--
calc-help.elc
19.55
KB
-rw-r--r--
calc-incom.elc
5.29
KB
-rw-r--r--
calc-keypd.elc
15.83
KB
-rw-r--r--
calc-lang.elc
57.72
KB
-rw-r--r--
calc-loaddefs.el
10.61
KB
-rw-r--r--
calc-macs.elc
6.09
KB
-rw-r--r--
calc-map.elc
29.56
KB
-rw-r--r--
calc-math.elc
60.12
KB
-rw-r--r--
calc-menu.elc
32.85
KB
-rw-r--r--
calc-misc.elc
20.54
KB
-rw-r--r--
calc-mode.elc
19.45
KB
-rw-r--r--
calc-mtx.elc
6.77
KB
-rw-r--r--
calc-nlfit.elc
13.59
KB
-rw-r--r--
calc-poly.elc
24.53
KB
-rw-r--r--
calc-prog.elc
51.27
KB
-rw-r--r--
calc-rewr.elc
40.01
KB
-rw-r--r--
calc-rules.elc
17.6
KB
-rw-r--r--
calc-sel.elc
19.83
KB
-rw-r--r--
calc-stat.elc
13.97
KB
-rw-r--r--
calc-store.elc
17.31
KB
-rw-r--r--
calc-stuff.elc
8.07
KB
-rw-r--r--
calc-trail.elc
4.67
KB
-rw-r--r--
calc-undo.elc
3.35
KB
-rw-r--r--
calc-units.elc
37.86
KB
-rw-r--r--
calc-vec.elc
37.25
KB
-rw-r--r--
calc-yank.elc
16.66
KB
-rw-r--r--
calc.elc
101.08
KB
-rw-r--r--
calcalg2.elc
80.01
KB
-rw-r--r--
calcalg3.elc
42.38
KB
-rw-r--r--
calccomp.elc
32.86
KB
-rw-r--r--
calcsel2.elc
6.04
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : calc-lang.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:37 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/calc/calc-lang.el ;;; in Emacs version 23.1.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`calc-lang.el' was compiled for Emacs 19.29 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#\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) (\\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-Z0-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-Z0-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-Z0-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-Z0-9]+\\)}" math-exp-str math-exp-pos) (string-match "\\\\text *{\\([a-zA-Z0-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=\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] 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 [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)))) 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 (#$ . 30591) 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 (#$ . 34851)]) #@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 (#$ . 35069)]) #@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 (#$ . 35337)]) #@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 (#$ . 35640)]) #@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 (#$ . 35978) 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 (#$ . 38301)]) #@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 (#$ . 38524)]) (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 (#$ . 39128)]) #@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 (#$ . 39472)]) #@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 (#$ . 39724)]) (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 (#$ . 40695) 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 (#$ . 44403)]) (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 (#$ . 45060)]) (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\202)B\203\267CKBF\320 KF$\320 FTK\n$ L M\321M!\203\253\321L!\203\253\322ML\"\202\261\323MLEE*\202)H\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\202)H\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\202)H\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\202)H\316U\203@\337\320 T \f\nF\340\327&DE@FAK\202)H\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*\202)H\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+\202)H\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\202)\364E\237BE\202)H\367U\203\263F 8I\334\370I #\210\306\225K\307 KF\314\327&\210\307 FTK\n\314\327&\210\320 FKFTF%E\202)H\371Y\203\301H\372X\204\317H\373Y\203\344H\374X\203\344F 8I\334\375I #\210\350\225K\306\225B\376I\350\"E\307 KF\314\327&\210\307 FTK\n\314\327&\210\317BF\"\333U\203\266\334\377E\"\203 \201V E!\202*\201V \201W 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\204O\317KSF\"\346U\204\253\310KSF\345#\210IE\237BE\202)\201X \201V \201Y E!!\334\377E\"\203\324\201V E!\202\336\201V \201Z EP!EE\202)F 8I\334\201[ I # U\204\310KF\201\\ #\210\306\225K\201] \376I\306\"!E\307 KF\314\327&\210\307 FTK\n\314\327&\210N\203BFNU\204F\310 F\201^ #\210\202FFNN 8I\fIG^JK\211BJW\203qIBH\315U\203qBT\211B\202XBJY\203|\fB\307KFB\n$\203\263\307K BF$\203\233BK\202\324\201_ E\320K BF$EEBK\202\324\307K BF$\203\324\201` E\320KFB\n$EEBKKJW\203\310 \307K KTF$\205 \307KFTKT\n$\205 \334\201a IK#\205 \201b \376I\306\"\201c \"\211B\203' \313B8Y\203\310 \306\225\211K\202< \334\201d IK#K=\204\310 \201e \211B\203\310 \366B8\201f =\203V BA@EDE\202\324B@\201g \232\203\250 \320K \f\nN\314\327& T\317AN\"\201h U\204\205 \310AN\201i #\210BA@ET\320AT \f\nN\366B8\327&FEAK)\202\324BA@E\320K \f\nN\366B8\327&EEA\211K\202\326N@KAU\204\343 A\fU\204\343 \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 "\\([a-zA-Z'_]+\\) *" math-match-substring "-" 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 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)
Close
