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
|
% FLEQN DOCUMENT-STYLE OPTION - released 04 November 1991
% for LaTeX version 2.09
% Copyright (C) 1989,1991 by Leslie Lamport
% The following commands make the displayed math environments flush
% left, with an indentation of \mathindent from the prevailing left
% margin.
\typeout{Document style option `fleqn' - Released 04 Nov 91}
% Definitions of \[ and \] changed 9 Mar 87 to use \begin{trivlist}
% ... \end{trivlist} instead of simulating it; corrects bug that
% caused following text always to start new paragraph.
%
% \[ and \equation changed to set \@beginparpenalty and
% \@endparpenalty to \predisplaypenalty and \postdisplaypenalty.
% Change made 24 May 89, suggested by Rainer Sch\"opf and Frank
% Mittelbach.
%
% \[ and \] changed 26 Sep 89 to correct bug introduced in 24 May 89
% change that caused the following text always to start a new
% paragraph.
%
% Added \m@th at several points to reset \mathsurround if non-zero.
% Change made 04 Nov 91 by RmS.
\def\[{\relax\ifmmode\@badmath\else
\begin{trivlist}%
\@beginparpenalty\predisplaypenalty
\@endparpenalty\postdisplaypenalty
\item[]\leavevmode
\hbox to\linewidth\bgroup $\m@th\displaystyle
\hskip\mathindent\bgroup\fi}
\def\]{\relax\ifmmode \egroup $\hfil
\egroup \end{trivlist}\else \@badmath \fi}
\def\equation{\@beginparpenalty\predisplaypenalty
\@endparpenalty\postdisplaypenalty
\refstepcounter{equation}\trivlist \item[]\leavevmode
\hbox to\linewidth\bgroup $\m@th% $ TO MAKE DOLLAR NESTING OK
\displaystyle
\hskip\mathindent}
\def\endequation{$\hfil % $ TO MAKE DOLLAR NESTING IN THIS FILE OK
\displaywidth\linewidth\@eqnnum\egroup \endtrivlist}
\def\eqnarray{\stepcounter{equation}\let\@currentlabel=\theequation
\global\@eqnswtrue
\global\@eqcnt\z@\tabskip\mathindent\let\\=\@eqncr
\abovedisplayskip\topsep\ifvmode\advance\abovedisplayskip\partopsep\fi
\belowdisplayskip\abovedisplayskip
\belowdisplayshortskip\abovedisplayskip
\abovedisplayshortskip\abovedisplayskip
$$\m@th\halign % $$ DOLLAR MATCHING
to\linewidth\bgroup\@eqnsel\hskip\@centering$\displaystyle\tabskip\z@
{##}$&\global\@eqcnt\@ne \hskip 2\arraycolsep \hfil${##}$\hfil
&\global\@eqcnt\tw@ \hskip 2\arraycolsep $\displaystyle{##}$\hfil
\tabskip\@centering&\llap{##}\tabskip\z@\cr}
\def\endeqnarray{\@@eqncr\egroup
\global\advance\c@equation\m@ne$$\global\@ignoretrue % $$ MATCHING
}
\newdimen\mathindent
\mathindent = \leftmargini
\endinput
|
