blob: 022e5afeb96d07519e62f434d91fd4848e5dff05 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
%-*-tex-*-
% Copyright Michael J. Ferguson, INRS-Telecommunications
% All rights reserved.
% ========== Equation Tags ===========
% Since equation numbering plays a big part in scientific documentation
% a special set of tag generation forms were produced for this case.
% Special versions of autoeqnum to insert automatically insert
% parentheses around the equation number.
% \aneq no argument, no tag generated. This version
% does nothing if autonumbering is off.
% \aneqtag{<tag>} tag generated. This version inserts the argument
% inside parentheses if autoreferencing is off.
% These special forms have a \eqnumfont ... as there is no other way
% to get the information inside. These are defined in the documentfonts.
%\let\eqnumfont=\tenrm ... for tenpoint family
\def\aneq{\a@utotag{}{\eqnum}{\eqtagrefformat
}{\e@qno \eqnumfont (\eqtagrefformat)}{}}
\def\aneqtag#1{\a@utotag{#1}{\eqnum}{\eqtagrefformat
}{\e@qno\eqnumfont (\eqtagrefformat)}{\e@qno\eqnumfont (#1)}}
%===== for full left or right equation numbering and to allow ====
% \aneq and \aneqtag to work
\let\e@qql = \eqalignno
\let\l@eqql= \leqalignno
\def\e@qalignno{\let\e@qno=\relax \e@qql}
\def\l@eqalignno{\let\e@qno=\relax \l@eqql}
%redefines \eqalignno and \leqalignno --- normal unset mode
\let\eqalignno = \e@qalignno
\let\leqalignno = \l@eqalignno
\let\e@qno = \eqno
%---- left/right equation numbering ----
\def\leftequationnumbering{\let\eqalignno = \l@eqalignno
\let\leqalignno = \l@eqalignno
\let\e@qno = \leqno}
\def\rightequationnumbering{\let\leqalignno = \e@qalignno
\let\eqalignno = \e@qalignno
\let\e@qno = \eqno}
|