blob: 5f446d64022ef3cda1accab401e6346163c0aeb1 (
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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
|
%%
%% This is file `deleq.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% deleq.dtx (with options: `paketkod')
%%
%%
%% Copyright (c) 1994-97 by Mats Dahlgren <matsd@homenet.se>.
%% All rights reserved. See the file `deleq.ins' for information
%% on how you may (re-)distribute the `deleq' package files.
%%
\NeedsTeXFormat{LaTeX2e}[1996/12/01]
\ProvidesPackage{deleq}[1997/07/07 v.4.41 Partial equation numbering]
\def\deleqver{\textsf{deleq} version 4.41 (July~7, 1997)}
\newcounter{deleq}[equation]
\newcounter{Deleq}
\newlength{\jotbaseline}
\renewcommand{\thedeleq}{\ensuremath{\theequation\mathrm{\alph{deleq}}}}
\renewcommand{\theDeleq}{\ensuremath{\mathrm{\alph{Deleq}}}}
\def\@deleqnnum{(\thedeleq)}
\def\@deleqrnum#1{(\ref{#1}\theDeleq)}
\def\@eqrnum#1{(\ref{#1})}
\def\@deqncr{{\ifnum0=`}\fi\@ifstar{\global\@eqpen\@M
\@ydeqncr}{\global\@eqpen\interdisplaylinepenalty \@ydeqncr}}
\def\@ydeqncr{\@ifnextchar [{\@xdeqncr}{\@xdeqncr[\z@]}}
\def\@xdeqncr[#1]{\ifnum0=`{\fi}\@@deqncr
\noalign{\penalty\@eqpen\vskip\jot\vskip #1\relax}}
\def\@@deqncr{\let\@tempa\relax
\ifcase\@eqcnt \def\@tempa{& & &}\or \def\@tempa{& &}%
\else \def\@tempa{&}\fi
\@tempa \if@eqnsw\@deleqnnum\stepcounter{deleq}\fi
\global\@eqnswtrue\global\@eqcnt\z@\cr}
\newcommand{\@xeqrcr}[2]{\ifnum0=`{\fi}\@@eqrcr{#2}
\noalign{\penalty\@eqpen\vskip\jot\vskip #1\relax}}
\def\@@eqrcr#1{\let\@tempa\relax
\ifcase\@eqcnt \def\@tempa{& & &}\or \def\@tempa{& &}%
\else \def\@tempa{&}\fi
\@tempa \if@eqnsw\@eqrnum{#1}\fi
\global\@eqnswtrue\global\@eqcnt\z@\cr}
\newcommand{\@xdeqrcr}[2]{\ifnum0=`{\fi}\@@deqrcr{#2}
\noalign{\penalty\@eqpen\vskip\jot\vskip #1\relax}}
\def\@@deqrcr#1{\let\@tempa\relax
\ifcase\@eqcnt \def\@tempa{& & &}\or \def\@tempa{& &}%
\else \def\@tempa{&}\fi
\@tempa \if@eqnsw\@deleqrnum{#1}\fi
\global\@eqnswtrue\global\@eqcnt\z@\cr}
\def\@deqrarcr{{\ifnum0=`}\fi\@ifstar{\global\@eqpen\@M
\@ydeqrarcr}{\global\@eqpen\interdisplaylinepenalty \@ydeqrarcr}}
\def\@ydeqrarcr{\@ifnextchar [{\@xdeqrarcr}{\@xdeqrarcr[\z@]}}
\def\@xdeqrarcr[#1]{\ifnum0=`{\fi}\@@deqrarcr
\noalign{\penalty\@eqpen\vskip\jot\vskip #1\relax}}
\def\@@deqrarcr{\let\@tempa\relax
\ifcase\@eqcnt \def\@tempa{& & &}\or \def\@tempa{& &}%
\else \def\@tempa{&}\fi
\@tempa \global\@eqnswtrue\global\@eqcnt\z@\cr}
\newcommand{\nydeleqno}{\stepcounter{equation}\stepcounter{deleq}
\let\@currentlabel\thedeleq \eqno (\thedeleq)}
\newcommand{\deleqno}{\refstepcounter{deleq} \let\@currentlabel\thedeleq
\eqno (\thedeleq)}
\newcommand{\reqno}[1]{\setcounter{Deleq}{-1}\refstepcounter{Deleq}
\eqno (\ref{#1})}
\newcommand{\rdeqno}[1]{\refstepcounter{Deleq}
\eqno (\ref{#1}\theDeleq)}
\newcommand{\rndeqno}[1]{\setcounter{Deleq}{0}\refstepcounter{Deleq}
\eqno (\ref{#1}\theDeleq)}
\newcommand{\eqreqno}[2][0pt]{{\ifnum0=`}\fi\@ifstar{\global\@eqpen\@M
\@xeqrcr{#1}{#2}}{\global\@eqpen\interdisplaylinepenalty
\@xeqrcr{#1}{#2}}}
\newcommand{\deqreqno}[2][0pt]{\setcounter{Deleq}{0}\refstepcounter{Deleq}
{\ifnum0=`}\fi\@ifstar{\global\@eqpen\@M
\@xdeqrcr{#1}{#2}}{\global\@eqpen\interdisplaylinepenalty
\@xdeqrcr{#1}{#2}}}
\newcommand{\ddeqreqno}[2][0pt]{\refstepcounter{Deleq}
{\ifnum0=`}\fi\@ifstar{\global\@eqpen\@M
\@xdeqrcr{#1}{#2}}{\global\@eqpen\interdisplaylinepenalty
\@xdeqrcr{#1}{#2}}}
\newcommand{\arrlabel}[1]{\let\@currentlabel\theequation \label{#1}}
\newcommand{\nydeqno}{\stepcounter{equation}\stepcounter{deleq}}
\newcommand{\heqno}{\stepcounter{equation}}
\def\where{\let\@tempa\relax \def\@tempa{& & &}
\@tempa {\hbox to .01\p@{}\rlap{\hskip -\displaywidth where}}\cr}
\def\rem#1{\let\@tempa\relax \def\@tempa{& & &}
\@tempa {\hbox to .01\p@{}\rlap{\hskip -\displaywidth #1}}\cr}
\def\@dlqnv{\setlength{\jotbaseline}{\baselineskip}%
\addtolength{\jotbaseline}{\jot} \global\@eqnswtrue\m@th
\global\@eqcnt\z@\tabskip\@centering
$$\halign to\displaywidth\bgroup\@eqnsel\hskip\@centering
$\displaystyle\tabskip\z@{##}$&\global\@eqcnt\@ne
\hskip 2\arraycolsep \hfil${##}$\hfil
&\global\@eqcnt\tw@ \hskip 2\arraycolsep $\displaystyle\tabskip\z@{##}$\hfil
\tabskip\@centering&\llap{##}\tabskip\z@\cr}
\newenvironment{deqarr}{\stepcounter{equation}\stepcounter{deleq}
\let\@currentlabel\thedeleq \let\\\@deqncr \@dlqnv}
{\@@deqncr\egroup
\global\advance\c@deleq\m@ne$$\global\@ignoretrue}
\newenvironment{ddeqar}{\stepcounter{deleq}
\let\@currentlabel\thedeleq \let\\\@deqncr \@dlqnv}
{\enddeqarr}
\newenvironment{deqn}{$$\refstepcounter{equation}\stepcounter{deleq}
\let\@currentlabel\thedeleq}
{\eqno \hbox{\@deleqnnum} $$\global\@ignoretrue}
\newenvironment{ddeqn}{$$\refstepcounter{deleq} \let\@currentlabel\thedeleq}
{\enddeqn}
\newenvironment{deqrarr}{\let\@currentlabel\theDeleq
\let\\\@deqrarcr \@dlqnv}
{\@deqrarcr \egroup $$\global\@ignoretrue}
\newif\ifl@qn \l@qnfalse
\DeclareOption{leqno}{%
\global\l@qntrue%
\renewcommand{\@deleqnnum}{\hbox to .01\p@{}\rlap{\reset@font\rmfamily
\hskip -\displaywidth(\thedeleq)}}
\renewcommand{\nydeleqno}{\stepcounter{equation}\stepcounter{deleq}
\let\@currentlabel\thedeleq \leqno (\thedeleq)}
\renewcommand{\deleqno}{\refstepcounter{deleq} \let\@currentlabel\thedeleq
\leqno (\thedeleq)}
\renewcommand{\reqno}[1]{\setcounter{Deleq}{-1}\refstepcounter{Deleq}
\leqno (\ref{#1})}
\renewcommand{\rdeqno}[1]{\refstepcounter{Deleq}
\leqno (\ref{#1}\theDeleq)}
\renewcommand{\rndeqno}[1]{\setcounter{Deleq}{0}\refstepcounter{Deleq}
\leqno (\ref{#1}\theDeleq)}
\renewcommand{\@eqrnum}[1]{\hbox to .01\p@{}\rlap{\reset@font\rmfamily
\hskip -\displaywidth(\ref{#1})}}
\renewcommand{\@deleqrnum}[1]{\hbox to .01\p@{}\rlap{\reset@font\rmfamily
\hskip -\displaywidth(\ref{#1}\theDeleq)}}
}
\DeclareOption{fleqn}{%
\ifl@qn \AtBeginDocument{\addtolength{\mathindent}{1em}} \fi
\renewenvironment{deqn}%
{\@beginparpenalty\predisplaypenalty
\@endparpenalty\postdisplaypenalty
\refstepcounter{equation}\stepcounter{deleq}
\let\@currentlabel\thedeleq%
\trivlist \item[]\leavevmode
\hb@xt@\linewidth\bgroup $\m@th% $
\displaystyle
\hskip\mathindent}%
{$\hfil % $
\displaywidth\linewidth\hbox{\@deleqnnum}%
\egroup
\endtrivlist}
\renewenvironment{ddeqn}%
{\@beginparpenalty\predisplaypenalty
\@endparpenalty\postdisplaypenalty
\refstepcounter{deleq}
\let\@currentlabel\thedeleq%
\trivlist \item[]\leavevmode
\hb@xt@\linewidth\bgroup $\m@th% $
\displaystyle
\hskip\mathindent}%
{\enddeqn}
\renewcommand{\@dlqnv}{%
\setlength{\jotbaseline}{\baselineskip}
\addtolength{\jotbaseline}{\jot}
\global\@eqcnt\z@
\tabskip\mathindent
\setlength\abovedisplayskip{\topsep}%
\ifvmode
\addtolength\abovedisplayskip{\partopsep}%
\fi
\addtolength\abovedisplayskip{\parskip}%
\setlength\belowdisplayskip{\abovedisplayskip}%
\setlength\belowdisplayshortskip{\abovedisplayskip}%
\setlength\abovedisplayshortskip{\abovedisplayskip}%
$$\everycr{}\halign to\linewidth% $$
\bgroup
\hskip\@centering
$\displaystyle\tabskip\z@skip{##}$\@eqnsel&%
\global\@eqcnt\@ne \hskip \tw@\arraycolsep \hfil${##}$\hfil&%
\global\@eqcnt\tw@ \hskip \tw@\arraycolsep
$\displaystyle{##}$\hfil \tabskip\@centering&%
\global\@eqcnt\thr@@
\hb@xt@\z@\bgroup\hss##\egroup\tabskip\z@skip\cr}
}
\DeclareOption*{\OptionNotUsed}
\ProcessOptions
\endinput
%%
%% End of file `deleq.sty'.
|
