Re: equaton環境の間隔

名前: しっぽ愛好家
日時: 2003-05-27 09:02:20
IPアドレス: 211.4.46.*

>>18959
equation/eqnarray 環境の前後に ``行間のグルー'' が入るのを強制的に
抑制すると，次のような処理が考えられます．
%%% fleqn/leqno の場合は省略します．

\documentclass{jarticle}
\makeatletter
\def\equation{%
   \refstepcounter{equation}%
   \@sequation}
\def\[{\@sequation}
\def\@sequation{%
   \relax\ifmmode \@badmath \fi
   \@equation@setbeforespace
   \hbox to\linewidth\bgroup
      \hfil $\displaystyle}
\def\@equation@setbeforespace{%
   \ifhmode \unskip\par \fi
   \prevdepth-\@m\p@
   \penalty\predisplaypenalty
   \vskip\abovedisplayskip
   \if@noskipsec \leavevmode \fi
   \if@inlabel \leavevmode \fi}
\def\endequation{%
   \@endequation{\hfil\llap{\@eqnnum}}%
   \@ignoretrue\@endpetrue}
\def\]{%
   \@endqeuation\relax
   \def\par{\@restorepar\everypar{}\par\@endpefalse}%
   \everypar{{\setbox\z@\lastbox}\everypar{}\@endpefalse}
   \ignorespaces}
\def\@endequation#1{%
   $#1\egroup\par
   \@equation@setafterspace}
\def\@equation@setafterspace{%
   \prevdepth-\@m\p@
   \penalty\postdisplaypenalty
   \vskip\belowdisplayskip}
\def\eqnarray{%
   \@equation@setbeforespace
   \stepcounter{equation}%
   \def\@currentlabel{\p@equation\theequation}%
   \global\@eqnswtrue
   \m@th
   \global\@eqcnt\z@
   \tabskip\@centering \advance\tabskip\@totalleftmargin
   \let\\\@eqncr
   \everycr{}%
   \halign to\hsize\bgroup
       \hskip\@centering$\displaystyle\tabskip\z@skip{##}$\@eqnsel
      &\global\@eqcnt\@ne%%% \hskip \tw@\arraycolsep
       \hfil$\displaystyle{{}##{}}$\hfil
      &\global\@eqcnt\tw@%%% \hskip \tw@\arraycolsep
       $\displaystyle{##}$\hfil\tabskip\@centering
      &\global\@eqcnt\thr@@ \hb@xt@\z@\bgroup\hss##\egroup
       \tabskip\z@skip
      \cr}
\def\endeqnarray{%
         \@@eqncr
      \egroup
   \global\advance\c@equation\m@ne
   \@equation@setafterspace
   \@ignoretrue\@endpetrue}
\makeatother

\begin{document}

ディスプレイ数式の前後の空白量の変更．
\begin{equation}
   2^0 + 2^{-1} + 2^{-2} + \cdots = 2
\end{equation}
ディスプレイ数式の前後の空白量の変更．
\begin{equation}
   1 + \frac{1}{2} + \frac{1}{2^2} + \cdots = 2
\end{equation}
ディスプレイ数式の前後の空白量の変更．
\begin{eqnarray}
   2^0 + 2^{-1} + 2^{-2} + \cdots & = & 2 \\
   3^0 + 3^{-1} + 3^{-2} + \cdots & = & 1.5
\end{eqnarray}
ディスプレイ数式の前後の空白量の変更．
\begin{eqnarray}
   1 + \frac{1}{2} + \frac{1}{2^2} + \cdots & = & 2 \\
   1 + \frac{1}{3} + \frac{1}{3^2} + \cdots & = & \frac{3}{2}
\end{eqnarray}
ディスプレイ数式の前後の空白量の変更．

\end{document}

この書き込みへの返事：