Return to tex_symbols.rr CVS log

Up to [local] / OpenXM / src / asir-contrib / packages / src

Bug fix: truncated step might be 0. In this case, minimal step size is decreased to minimal step size/10.
Bug: print_tex_form(phi) does not return \phi.

/* $OpenXM: OpenXM/src/asir-contrib/packages/src/tex_symbols.rr,v 1.6 2018/11/13 02:17:43 takayama Exp $ */
Tex_symbol_table_ = [
 /* Built-in high school level special functions */
 ["sin","\\sin"],
 ["cos","\\cos"],
 ["tan","\\tan"],
 ["sinh","\\sinh"],
 ["cosh","\\cosh"],
 ["tanh","\\tanh"],
 ["exp","\\exp"],
 ["log","\\log"],

/* Greek Letters (lower case) */
 ["alpha","\\alpha"],
 ["beta","\\beta"],
 ["gamma","\\gamma"],
 ["delta","\\delta"],
 ["epsilon","\\epsilon"],
 ["varepsilon","\\varepsilon"],
 ["zeta","\\zeta"],
 ["eta","\\eta"],
 ["theta","\\theta"],
 ["vartheta","\\vartheta"],
 ["iota","\\iota"],
 ["kappa","\\kappa"],
 ["lambda","\\lambda"],
 ["mu","\\mu"],
 ["nu","\\nu"],
 ["xi","\\xi"],
 ["pi","\\pi"],
 ["varpi","\\varpi"],
 ["rho","\\rho"],
 ["sigma","\\sigma"],
 ["varsigma","\\varsigma"],
 ["tau","\\tau"],
 ["upsilon","\\upsilon"],
 ["phi","\\phi"],
 ["psi","\\psi"],
 ["varphi","\\varphi"],
 ["chi","\\chi"],
 ["omega","\\omega"],

/* Greek Letters, (upper case) */
 ["ggamma","\\Gamma"],
 ["ddelta","\\Delta"],
 ["ttheta","\\Theta"],
 ["llambda","\\Lambda"],
 ["xxi","\\Xi"],
 ["ppi","\\Pi"],
 ["ssigma","\\Sigma"],
 ["uupsilon","\\Upsilon"],
 ["pphi","\\Phi"],
 ["ppsi","\\Psi"],
 ["oomega","\\Omega"],

 /* Our own mathematical functions */
 ["algebra_tensor","\\otimes"],
 ["base_where","{\\rm \\ where \\ }"],
 /* Mathematical constants */
 ["c_pi","\\pi"],
 ["c_i","\\sqrt{-1}"],

 /* Temporary  */
 ["dx","\\partial"]

]$
Tex_symbol_table = newmat(length(Tex_symbol_table_),2,
                           Tex_symbol_table_)$

end$