75 lines
1.4 KiB
Text
75 lines
1.4 KiB
Text
\" Quality of life utilities
|
|
\" for easier eqn usage.
|
|
|
|
.EQ
|
|
delim $$
|
|
define / 'over'
|
|
define grad '\[gr]'
|
|
define . '~ \[md] ~'
|
|
define * '~ \[mu] ~'
|
|
define +- '~ \[+-] ~'
|
|
define -+ '~ + bar ~'
|
|
define tf '~ \[tf] ~'
|
|
define and '~ \[AN] ~'
|
|
define div '~ \[di] ~'
|
|
|
|
define sen 'roman "sen"'
|
|
define tan 'roman "tan"'
|
|
define sec 'roman "sec"'
|
|
define cos 'roman "cos"'
|
|
define cot 'roman "cot"'
|
|
define csc 'roman "csc"'
|
|
define sinh 'roman "sinh"'
|
|
define tanh 'roman "tanh"'
|
|
define sech 'roman "sech"'
|
|
define cosh 'roman "cosh"'
|
|
define coth 'roman "coth"'
|
|
define csch 'roman "csch"'
|
|
define arcsin 'roman "arcsin"'
|
|
define arctan 'roman "arctan"'
|
|
define arcsec 'roman "arcsec"'
|
|
define arccos 'roman "arccos"'
|
|
define arccot 'roman "arccot"'
|
|
define arccsc 'roman "arccsc"'
|
|
define arcsinh 'roman "arcsinh"'
|
|
define arctanh 'roman "arctanh"'
|
|
define arcsech 'roman "arcsech"'
|
|
define arccosh 'roman "arccosh"'
|
|
define arccoth 'roman "arccoth"'
|
|
define arccsch 'roman "arccsch"'
|
|
.EN
|
|
|
|
\" From eqn manual, draws a diagonal
|
|
\" line through an expression
|
|
.EQ
|
|
define cancel 'special Ca'
|
|
.EN
|
|
.de Ca
|
|
. ds 0s \
|
|
\Z'\\*(0s'\
|
|
\v'\\n(0du'\
|
|
\D'l \\n(0wu -\\n(0hu-\\n(0du'\
|
|
\v'\\n(0hu'
|
|
..
|
|
|
|
\" From eqn manual, draws a box
|
|
\" round an expression
|
|
.EQ
|
|
define box 'special Bx'
|
|
.EN
|
|
.de Bx
|
|
. ds 0s \
|
|
\Z'\h'1n'\\*(0s'\
|
|
\Z'\
|
|
\v'\\n(0du+1n'\
|
|
\D'l \\n(0wu+2n 0'\
|
|
\D'l 0 -\\n(0hu-\\n(0du-2n'\
|
|
\D'l -\\n(0wu-2n 0'\
|
|
\D'l 0 \\n(0hu+\\n(0du+2n'\
|
|
'\
|
|
\h'\\n(0wu+2n'
|
|
. nr 0w +2n
|
|
. nr 0d +1n
|
|
. nr 0h +1n
|
|
..
|
|
|