blob: 9ec53d62a17739e45623751f78e9dc47cbf55344 (
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
|
%%
%% This is file `dotseqn.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% dotseqn.dtx (with options: `package')
%%
%% D O T S E Q N . S T Y is Copyright (c) 1995 by Donald Arseneau
%%
%% This file may be freely transmitted and reproduced, but it may not be
%% changed unless the name is changed also. This notice must remain intact.
%%
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{dotseqn}
[1995/03/22 v1.1 \space Dots leading to equation numbers]
\newcommand\EqnDots{\leaders\hbox{\kern4\p@ .\kern4\p@}\hfill}
\@ifundefined{mathindent}{\newdimen\mathindent \mathindent\leftmargini}{}
\renewcommand{\[}{\relax \ifmmode\@badmath \else
\begin{trivlist}%
\@beginparpenalty\predisplaypenalty \@endparpenalty\postdisplaypenalty
\item[]\leavevmode \hbox to\linewidth\bgroup $\m@th\displaystyle %$
\hskip\mathindent\bgroup
\fi}
\renewcommand{\]}{\relax\ifmmode \egroup $\hfil% $
\egroup \end{trivlist}%
\else \@badmath \fi}
\renewenvironment{equation}%
{\@beginparpenalty\predisplaypenalty \@endparpenalty\postdisplaypenalty
\refstepcounter{equation}\trivlist \item[]\leavevmode
\hbox to\linewidth\bgroup $\m@th% $
\displaystyle \hskip\mathindent}%
{$\EqnDots % $ Replace `\hfil' with dotted leaders `\EqnDots'.
\displaywidth\linewidth\hbox{\@eqnnum}\egroup \endtrivlist}
\renewenvironment{eqnarray}{%
\stepcounter{equation}%
\def\@currentlabel{\p@equation\theequation}%
\global\@eqnswtrue \m@th \global\@eqcnt\z@ \tabskip\mathindent
\let\\\@eqncr \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 \hfil${\DEQ@acs##\DEQ@acs}$\hfil&%
\global\@eqcnt\tw@ $\displaystyle{##}$\hskip\@centering\cr%
}% end of "\begin" part
{\@@eqncr
\noalign{% vertical skip up to overlay phantom line
\penalty\@M \vskip-\prevdepth
\edef\@tempa{\omit\span\omit\span\omit % span three columns
\vrule\@depth\the\prevdepth \@width\z@ % strut of proper depth
\kern-\mathindent \kern\linewidth}% % full line width
\nointerlineskip \expandafter % use saved |\@tempa| outside group
}\@tempa\cr
\egroup
\global\advance\c@equation\m@ne$$% $$
\global\@ignoretrue
}
\def\@@eqncr{\let\reserved@a\@empty
\ifcase\@eqcnt \def\reserved@a{& &}\or \def\reserved@a{&}\fi
\reserved@a
\if@eqnsw \egroup $\EqnDots \@eqnnum $\bgroup \stepcounter{equation}%
\fi \global\@eqnswtrue\global\@eqcnt\z@\cr}
\def\DEQ@acs{\hskip\tw@\arraycolsep}
\DeclareOption{leftjust}{\let\@eqnsel\hfil}
\DeclareOption{nocolsep}{\let\DEQ@acs\null}
\ProcessOptions
\endinput
%%
%% End of file `dotseqn.sty'.
|
