Commit 62a54f6c authored by Jay Belanger's avatar Jay Belanger
Browse files

(math-function-table, math-oper-table, math-variable-table):

Adjust the LaTeX portions.
parent 86e3afd3
......@@ -428,119 +428,62 @@
(put 'tex 'math-input-filter 'math-tex-input-filter)
(put 'latex 'math-oper-table
'( ( "u+" ident -1 1000 )
( "u-" neg -1 1000 )
( "\\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 )
( "\\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 )
( "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 )
( "\\times" * 191 190 )
( "*" * 191 190 )
( "2x" * 191 190 )
( "+" + 180 181 )
( "-" - 180 181 )
( "\\over" / 170 171 )
( "/" / 170 171 )
( "\div" / 170 171 )
( "\\choose" calcFunc-choose 170 171 )
( "\\mod" % 170 171 )
( "<" calcFunc-lt 160 161 )
( ">" calcFunc-gt 160 161 )
( "\\leq" calcFunc-leq 160 161 )
( "\\le" calcFunc-leq 160 161 )
( "\\leqq" calcFunc-leq 160 161 )
( "\\leqsland" calcFunc-leq 160 161 )
( "\\geq" calcFunc-geq 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 )))
(append (get 'tex '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 )
( "\\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 ))))
(put 'latex 'math-function-table
'( ( \\arccos . calcFunc-arccos )
( \\arcsin . calcFunc-arcsin )
( \\arctan . calcFunc-arctan )
( \\arg . calcFunc-arg )
( \\cos . calcFunc-cos )
( \\cosh . calcFunc-cosh )
( \\det . calcFunc-det )
( \\exp . calcFunc-exp )
( \\gcd . calcFunc-gcd )
( \\ln . calcFunc-ln )
( \\log . calcFunc-log10 )
( \\max . calcFunc-max )
( \\min . calcFunc-min )
( \\tan . calcFunc-tan )
( \\sin . calcFunc-sin )
( \\sinh . calcFunc-sinh )
( \\sqrt . calcFunc-sqrt )
( \\tanh . calcFunc-tanh )
( \\frac . (math-latex-parse-frac /))
( \\tfrac . (math-latex-parse-frac /))
( \\dfrac . (math-latex-parse-frac /))
( \\binom . (math-latex-parse-frac calcFunc-choose))
( \\tbinom . (math-latex-parse-frac calcFunc-choose))
( \\dbinom . (math-latex-parse-frac calcFunc-choose))
( \\phi . calcFunc-totient )
( \\mu . calcFunc-moebius )))
(append
(get 'tex 'math-function-table)
'(( \\frac . (math-latex-parse-frac /))
( \\tfrac . (math-latex-parse-frac /))
( \\dfrac . (math-latex-parse-frac /))
( \\binom . (math-latex-parse-frac calcFunc-choose))
( \\tbinom . (math-latex-parse-frac calcFunc-choose))
( \\dbinom . (math-latex-parse-frac calcFunc-choose))
( \\phi . calcFunc-totient )
( \\mu . calcFunc-moebius ))))
(put 'latex 'math-special-function-table
'((/ . (math-latex-print-frac "\\frac"))
(calcFunc-choose . (math-latex-print-frac "\\binom"))))
(put 'latex 'math-variable-table
'( ( \\pi . var-pi )
( \\infty . var-inf )
( \\infty . var-uinf )
( \\phi . var-phi )
( \\gamma . var-gamma )
( \\sum . (math-parse-tex-sum calcFunc-sum) )
( \\prod . (math-parse-tex-sum calcFunc-prod) )))
(get 'tex 'math-variable-table))
(put 'latex 'math-complex-format 'i)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment