Re: 数式中の脚注

名前: misc
日時: 2004-01-18 04:55:12
IPアドレス: 211.4.46.*

>>24985
次のようなことをなさりたいのでしょうか．
要は，脚注記号と脚注テキストをいったん保存して，
然るべきタイミングで書き出せばよいわけです．
# そのためには，ディスプレイ数式環境の内部で一時的に \footnote の定義を
# 変更します．ただ，まじめにやっている余裕がないので，下記の例では
# eqnarray 環境のみしか再定義していませんし，
#“fleqn”や“leqno”は無視しています．

\documentclass{article}
\makeatletter
\def\eqnarray{%
   \stepcounter{equation}%
   \def\@currentlabel{\p@equation\theequation}%
   \global\@eqnswtrue
   \m@th
   \global\@eqcnt\z@
   \tabskip\@centering
   \let\footnote\@eqnfootnote
   \global\let\@eqnfootnotelist\@empty
   \global\let\@eqnmarklist\@empty
   \let\\\@eqncr
   $$%
   \everycr{}%
   \halign to\displaywidth\bgroup
       \hskip\@centering$\displaystyle\tabskip\z@skip{##}$\@eqnsel
      &\global\@eqcnt\@ne\hfil$\displaystyle{{}##{}}$\hfil
      &\global\@eqcnt\tw@$\displaystyle{##}$\hfil\tabskip\@centering
      &\global\@eqcnt\thr@@ \hb@xt@\z@\bgroup\hss##\egroup
       \tabskip\z@skip
      \cr}
\def\@@eqncr{%
   \let\reserved@a\relax
   \ifcase\@eqcnt \def\reserved@a{& & &}%
   \or            \def\reserved@a{& &}%
   \or            \def\reserved@a{&}%
   \else
      \let\reserved@a\@empty
      \@latex@error{Too many columns in eqnarray environment}\@ehc
   \fi
   \reserved@a
   \if@eqnsw
      \@eqnnum\hbox{\@eqnmarklist}%
      \stepcounter{equation}%
   \else
      \ifx\@eqnmarklist\@empty\else
         \@latex@error{Footnotes in eqnarray require formula-number}\@ehc
      \fi
   \fi
   \global\let\@eqnmarklist\@empty
   \global\@eqnswtrue
   \global\@eqcnt\z@
   \cr
   \noalign{%
      \@eqnfootnotelist
      \global\let\@eqnfootnotelist\@empty}}
\def\@eqnfootnote{%
   \@ifnextchar[%
      \@xeqnfootnote
      {\stepcounter{footnote}%
       \edef\@tempa{\noexpand\@xeqnfootnote[\the\c@footnote]}%
       \@tempa}}
\long\def\@xeqnfootnote[#1]#2{%
   \begingroup
   \count@#1\relax
   \toks@\expandafter{\@eqnmarklist}%
   \xdef\@eqnmarklist{%
      \the\toks@
      \noexpand\@eqnmakefnmark{\the\count@}}%
   \@temptokena\expandafter{\@eqnfootnotelist}%
   \toks@{#2}%
   \xdef\@eqnfootnotelist{%
      \the\@temptokena
      \noexpand\footnotetext[\the\count@]{\the\toks@}}%
   \endgroup}
\def\@eqnmakefnmark#1{%
   \begingroup
   \c@footnote#1\relax
   \protected@edef\@thefnmark{\thefootnote}%
   \@makefnmark
   \endgroup}
\makeatother
\begin{document}

Sample of footnotes in eqnarray environment.
\begin{eqnarray}
        \Gamma(x + 1) \footnote{Gamma function.}
  & = & \int_0^{\infty} t^x e^{-t} dt
  \footnote{Apply partial integration.} \\
  & = & [- t^x e^{-t}]_0^{\infty} + \int_0^{\infty} x t^{x - 1} e^{-t} dt \\
  & = & \cdots \\
  & = & x \Gamma(x) \footnote{Completed.}
\end{eqnarray}
\end{document}

この書き込みへの返事：