183 lines
4.1 KiB
Text
183 lines
4.1 KiB
Text
.\" Quality of life utilities
|
|
.\" for easier eqn usage.
|
|
.
|
|
.EQ
|
|
delim $$
|
|
define / 'over'
|
|
define deg '{\[de]}'
|
|
define . '{~ \[md] ~}'
|
|
define * '{~ \[mu] ~}'
|
|
define +- '{~ \[+-] ~}'
|
|
define -+ '{~ + bar ~}'
|
|
define tf '{~ \[tf] ~}'
|
|
define << '{~ \[la] ~}'
|
|
define >> '{~ \[ra] ~}'
|
|
define ok '{~ \[OK] ~}'
|
|
define grad '{ \[gr] }'
|
|
define and '{~ \[AN] ~}'
|
|
define div '{~ \[di] ~}'
|
|
define <<< '{~ \[<<] ~}'
|
|
define >>> '{~ \[>>] ~}'
|
|
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
|
|
.
|
|
.\" SYMBOLS
|
|
.
|
|
.\" Laplace transform/Lagrangian (CMSS or generic URW)
|
|
.\".char \[letterlikeL] \f[U-HR]\[u2112]
|
|
.char \[letterlikeL] \f[CMSS]L
|
|
.
|
|
.\" Blackboard letters (CMSB)
|
|
.char \[blackboardN] \f[CMSB]N
|
|
.char \[blackboardZ] \f[CMSB]Z
|
|
.char \[blackboardQ] \f[CMSB]Q
|
|
.char \[blackboardR] \f[CMSB]R
|
|
.char \[blackboardC] \f[CMSB]C
|
|
.
|
|
.\" Blackletter letters (CMSF)
|
|
.char \[blackletterA] \f[CMSF]A
|
|
.char \[blackletterB] \f[CMSF]B
|
|
.char \[blackletterC] \f[CMSF]C
|
|
.char \[blackletterD] \f[CMSF]D
|
|
.char \[blackletterE] \f[CMSF]E
|
|
.char \[blackletterF] \f[CMSF]F
|
|
.char \[blackletterG] \f[CMSF]G
|
|
.char \[blackletterH] \f[CMSF]H
|
|
.char \[blackletterI] \f[CMSF]I
|
|
.char \[blackletterJ] \f[CMSF]J
|
|
.char \[blackletterK] \f[CMSF]K
|
|
.char \[blackletterL] \f[CMSF]L
|
|
.char \[blackletterM] \f[CMSF]M
|
|
.char \[blackletterN] \f[CMSF]N
|
|
.char \[blackletterO] \f[CMSF]O
|
|
.char \[blackletterP] \f[CMSF]P
|
|
.char \[blackletterQ] \f[CMSF]Q
|
|
.char \[blackletterR] \f[CMSF]R
|
|
.char \[blackletterS] \f[CMSF]S
|
|
.char \[blackletterT] \f[CMSF]T
|
|
.char \[blackletterU] \f[CMSF]U
|
|
.char \[blackletterV] \f[CMSF]V
|
|
.char \[blackletterW] \f[CMSF]W
|
|
.char \[blackletterX] \f[CMSF]X
|
|
.char \[blackletterY] \f[CMSF]Y
|
|
.char \[blackletterZ] \f[CMSF]Z
|
|
.char \[blackletterz] \f[CMSF]z
|
|
.
|
|
.EQ
|
|
define lap '\[letterlikeL]'
|
|
define lag '\[letterlikeL]'
|
|
define bbN '\[blackboardN]'
|
|
define bbZ '\[blackboardZ]'
|
|
define bbR '\[blackboardR]'
|
|
define bbQ '\[blackboardQ]'
|
|
define bbC '\[blackboardC]'
|
|
define blA '\[blackletterA]'
|
|
define blB '\[blackletterB]'
|
|
define blC '\[blackletterC]'
|
|
define blD '\[blackletterD]'
|
|
define blE '\[blackletterE]'
|
|
define blF '\[blackletterF]'
|
|
define blG '\[blackletterG]'
|
|
define blH '\[blackletterH]'
|
|
define blI '\[blackletterI]'
|
|
define blJ '\[blackletterJ]'
|
|
define blK '\[blackletterK]'
|
|
define blL '\[blackletterL]'
|
|
define blM '\[blackletterM]'
|
|
define blN '\[blackletterN]'
|
|
define blO '\[blackletterO]'
|
|
define blP '\[blackletterP]'
|
|
define blQ '\[blackletterQ]'
|
|
define blR '\[blackletterR]'
|
|
define blS '\[blackletterS]'
|
|
define blT '\[blackletterT]'
|
|
define blU '\[blackletterU]'
|
|
define blV '\[blackletterV]'
|
|
define blW '\[blackletterW]'
|
|
define blX '\[blackletterX]'
|
|
define blY '\[blackletterY]'
|
|
define blZ '\[blackletterZ]'
|
|
.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'\
|
|
\h'+0.4n'
|
|
..
|
|
.
|
|
.\" 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
|
|
..
|
|
.\" Draws a straight line
|
|
.\" for evaluation
|
|
.EQ
|
|
define eval 'special Ev'
|
|
.EN
|
|
.de Ev
|
|
. ds 0s \
|
|
\Z'\\*(0s'\
|
|
\v'\\n(0du+0.1n'\
|
|
\h'\\n(0wu+0.4n'\
|
|
\D'l 0 -\\n(0hu-\\n(0du'\
|
|
\v'\\n(0hu-0.1n'\
|
|
\h'0.3n'
|
|
..
|
|
.\" Roots of n index
|
|
.\" with `root {x} sup n`
|
|
.EQ
|
|
define root % sqrt special Rt %
|
|
.EN
|
|
.de Rt
|
|
. ds 0s \
|
|
\Z'\h'0.3n'\\*(0s'\
|
|
\h'-0.1n-\\n(0hu'\
|
|
\v'\\n(0du-1n'
|
|
..
|