Gecko [ 122.154.134.11 ]

Name	Size	Permission	Action
mhequ.sty	9.44 KB	-rw-r--r--

Code Editor : mhequ.sty

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% mhequ.sty v1.5, Copyright 2000 by Martin Hairer
%   This package is public domain. You are strongly encouraged to
%   use it and to widespread it.
%
%   You may download the latest version of this package on my homepage:
%
%              http://www.unige.ch/math/folks/hairer/martin/
%
% Notes:
%   Version 1.5 supports the packages "showkeys" (thus the [draft] option is suppressed)
%   and "hyperref".
%
% Options:
%
%   [lefttag] : Puts the tags to the left side of the page
%   [righttag]: Puts the tags to the right side of the page (default)
%
% Syntax:
%
%   \begin{equ}[label]
%
%	label : if a label is given, the equation is numbered. (default : no label)
%
%
%   \begin{equs}[n]
%
%	n : number of columns. (default : 1) You can also choose n=0.
%           Each line can be labelled separately with the \label command.
%
%   \begin{equa}[n][label]
%
%	n : number of columns. (default : 1) You can also choose n=0.
%	label : if a label is given, the equation is numbered. (default : no label)
%     The order of [n] and [label] is irrelevant.
%
%     In both the equs and the equa environment, the number of '&' signs per line
%     has to be equal to 2*n-1 if n>0 and to 0 if n=0. If there are less '&' signs, they
%     are automatically appended at the end of the line.
%
% Provided commands:
%
%   \tag{theTag}     Replaces the number of the current equation by "theTag"
%
%   \minilab{label}  If "label" has already been used, switches to the minilab "label".
%                    If not, creates a new minilab. Inside a minilab, equations are labelled
%                    (1a), (1b),... instead of (1), (2), etc... You can refer to the number
%                    of the minilab with \ref.
%
%   \setlabtype{style}  Sets the style of the numbering of the minilab. Default is
%                    \setlabtype{alph}.
%
%   \intertext{material} Inserts 'material' between two lines in normal text mode.
%
%   \multicol{n}{material} Spans n columns of the equation array with 'material'. It
%                    has to be placed between two & signs, or at the end or the start
%                    of the line.
%
%   \text{material} Creates a \hbox containing 'material'.
%
% Warnings:
%
%   If you use the \tag command, a quite large number of runs may be needed in
%   order to get the desired output.
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{mhequ}
\DeclareOption{righttag}{\global\@leftfalse}
\DeclareOption{lefttag}{\global\@lefttrue}

\newif\if@haslab
\newif\if@useminilab
\newcount\@nocols
\newcount\@nocolstot
\newif\if@tag
\newif\if@left
\@haslabfalse

\ProcessOptions

\def\@MHputleft#1{\kern-\displaywidth\rlap{#1\@MHputnumber}\kern\displaywidth} 
\def\@MHputright#1{\llap{#1\@MHputnumber}}

\if@left\let\@MHput@lbl\@MHputleft%
	\else\let\@MHput@lbl\@MHputright\fi

\def\@MHref#1{\@ifundefined{r@#1}{??}{\@saveref{#1}}}
%%%%% Computes the length of its argument
\newcount\@MHLength
\def\computelength#1{\@MHLength=0 \getlength#1\end}
\def\getlength#1{\ifx#1\end \let\next=\relax \else \advance\@MHLength by1 \let\next=\getlength \fi \next}
	
\def\@makelabel#1{\stepcounter{equation}\global\def\@mylabel{#1}
	\newcounter{lab@#1}\setcounter{lab@#1}{0}
	\global\expandafter\let\expandafter\c@MHCurrentCount\csname c@lab@#1\endcsname
	\global\@namedef{MHused@#1}{}
	\def\@currentlabel{\theequation}\MHsavelabel{#1}
	}
\def\@uselabel#1{\global\def\@mylabel{#1}
	\global\expandafter\let\expandafter\c@MHCurrentCount\csname c@lab@#1\endcsname
	}
\def\@MHreset{\global\def\@MHeqno{\theequation}\global\@useminilabfalse\global\@haslabfalse}
\def\@MHbuildlab#1{\@ifundefined{r@#1}
	{\global\def\@MHeqno{??\sublabeltype{MHCurrentCount}}}
	{\global\def\@MHeqno{\ref{\@mylabel}\sublabeltype{MHCurrentCount}}}
	}
\def\@MHUseLab#1{\@MHbuildlab{#1}\global\@useminilabtrue}
\def\minilab#1{\let\MHsavelabel=\label%
	\@MHUseLab{#1}\@ifundefined{MHused@#1}{\@makelabel{#1}}{\@uselabel{#1}}%
	\let\label=\MHsavelabel}

\newskip\MHcenter \MHcenter=0pt plus 1000pt minus 1000pt
\newskip\MHbig \MHbig=1000pt plus 0pt minus 1000pt
\newskip\@MHlineskip
\def\openup{\afterassignment\@penup\dimen@=}
\def\@penup{\advance\lineskip\dimen@
  \advance\baselineskip\dimen@
  \advance\lineskiplimit\dimen@}
\newif\ifdt@p
\def\displ@y{\global\dt@ptrue\openup\jot\m@th
  \everycr{\noalign{\ifdt@p \global\dt@pfalse \ifdim\prevdepth>-1000\p@
      \vskip-\lineskiplimit \vskip\normallineskiplimit \fi
      \else \vskip\@MHlineskip\penalty\interdisplaylinepenalty \fi}}}
\def\@lign{\tabskip\z@skip\everycr{}}%% restore inside \displ@y
\def\displaylines#1{\displ@y \tabskip\z@skip
  \halign{\hbox to\displaywidth{$\@lign\hfil\displaystyle##\hfil$}\crcr
    #1\crcr}}

\def\@MHcrl{{\ifnum0=`}\fi\@ifnextchar[{\@MHcrlwith}{\@MHcrlwith[\z@]}}
\def\@MHcrlwith[#1]{\ifnum0=`{\fi}\MH@dd@nds&\global\@MHlineskip=#1\cr}

\def\@MHcrb{{\ifnum0=`}\fi\@ifnextchar[{\@MHcrbwith}{\@MHcrbwith[\z@]}}
\def\@MHcrbwith[#1]{\ifnum0=`{\fi}\MH@dd@nds\global\@MHlineskip=#1\cr}

\def\@MHlabel#1{\global\@haslabtrue\global\def\@MHcurrentlabel{#1}}

\def\@MHwritelabel{\def\@currentlabel{\@MHeqno}%
	\if@left\kern\displaywidth\kern0.2truecm\else\kern0.2cm\fi%
	\MHsavelabel{\@MHcurrentlabel}%
	\if@left\kern-\displaywidth\kern-0.2truecm\else\kern-0.2cm\fi}

\def\@MHstep{\if@tag\else\if@useminilab\refstepcounter{MHCurrentCount}%
	\else\refstepcounter{equation}\fi\fi}
\def\@MHputnumber{\if@haslab\@MHstep\if@left\@MHwritelabel\fi%
        \hbox{\rm(\@MHeqno)}%
	\if@left\else\@MHwritelabel\fi%
	\fi\global\@haslabfalse}

\def\@saveMHComms{\@restoretag\let\MHsavecr=\\\let\\=\@MHcr\let\@saveref=\ref\let\ref=\@MHref%
	\let\MHsavelabel=\label\let\label=\@MHlabel\let\@MHsavemult\multicol%
	\let\multicol\@MHspan\let\@MHsavetext\text\let\text\hbox}
\def\@restoreMHComms{\let\\=\MHsavecr\let\label=\MHsavelabel\@MHreset\let\ref=\@saveref%
	\let\multicol\@MHsavemult\let\text\@MHsavetext}

%% Preamble commands
\def\MHpre@ne{\MHs@tr@m\hfil$\MH@lign\displaystyle{\MHsh@rp}$\tabskip\z@skip&%
	\MHdecrt@t$\MH@lign\displaystyle{{}\MHsh@rp}$}
\def\MHpretw@{\tabskip\z@skip&\hfil\MHdecrt@t$\MH@lign\displaystyle{\MHsh@rp}$%
	\tabskip\z@skip&\MHdecrt@t$\MH@lign\displaystyle{{}\MHsh@rp}$}
\def\MHprethr@@{\hfil\tabskip\MHcenter&\tabskip\z@skip\my@MHput{\MHsh@rp}\crcr}
\def\MHprethr@@notag{\hfil\tabskip\MHcenter\crcr}
\def\MHd@cr{\global\advance\MHrem@inc@ls by -1}

\def\@MHspan#1#2{\multispan{#1}\ifnum\MHrem@inc@ls<1\global\MHrem@inc@ls=\MHt@tc@ls
	\global\advance\MHrem@inc@ls by 1\fi%
	\global\advance\MHrem@inc@ls by -#1%
	{\hfill$\displaystyle{#2}$\hfill}}

%% Building the preamble
\newcount\MHC@ls
\newcount\MHt@tc@ls
\newcount\MHrem@inc@ls
\def\MH@ddonecol{\xdef\MHpre@mble{\MHpre@mble\MHpretw@}}
\def\MH@ddcols{\if\the\MHC@ls1\let\comm\relax\else%
	\global\advance\MHt@tc@ls by 2%
	\MH@ddonecol\advance\MHC@ls by -1%
	\let\comm\MH@ddcols\fi\comm}
\def\MHm@kepre@mble#1{
	\if#10
	\global\MHt@tc@ls=0
	\xdef\MHpre@mble{\MHs@tr@m\hfil$\MH@lign\displaystyle{\MHsh@rp}$\MHpre@nd}
	\else
	\MHC@ls=#1
	\global\MHt@tc@ls=1
	\xdef\MHpre@mble{\MHpre@mble\MHpre@ne}
	\MH@ddcols
	\xdef\MHpre@mble{\MHpre@mble\MHpre@nd}
	\fi
	}

%% Build enough & signs to fill up the box
\def\MHm@ke@nds{\if\the\MHrem@inc@ls0\let\comm\relax\else%
	\xdef\MH@nds{\MH@nds &}\global\advance\MHrem@inc@ls by -1%
	\let\comm\MHm@ke@nds%
	\fi\comm}
\def\MH@dd@nds{\def\MH@nds{}\MHm@ke@nds\MH@nds}
\def\MHr@mto@ne{\global\MHrem@inc@ls=\MHt@tc@ls}

\def\MH@initone{\gdef\MHpre@mble{}
	\let\MH@restoretag\relax\let\MHsh@rp\relax\let\MH@lign\relax
	\let\my@MHput\relax\let\MHdecrt@t\relax\let\MHs@tr@m\relax%\let\@MHfill\relax
	}
\def\MH@inittwo{\let\MH@restoretag\@restoretag\let\MHsh@rp##\let\MH@lign\@lign
	\let\my@MHput\@MHput@lbl\let\MHdecrt@t\MHd@cr\let\MHs@tr@m\MHr@mto@ne%\let\@MHfill\my@fill
	\MHpre@mble
	}

\def\@newalign#1{\displ@y\tabskip\MHcenter
	\MH@initone
	\let\MHpre@nd\MHprethr@@
	\MHm@kepre@mble{#1}
	\xdef\MHpre@mble{\halign to\displaywidth\bgroup\MH@restoretag\MHpre@mble}
	\MH@inittwo
	}  
\def\@newbalign#1{\vcenter\bgroup\displ@y\tabskip\MHcenter
	\MH@initone
	\let\MHpre@nd\MHprethr@@notag
	\MHm@kepre@mble{#1}
	\xdef\MHpre@mble{\halign to\displaywidth\bgroup\MHpre@mble}
	\MH@inittwo
	}

\def\@begalign[#1]{\global\let\@MHcr\@MHcrl$$\@saveMHComms\@newalign{#1}}

\def\@ealign{\@MHcr\egroup}

\def\@restoretag{\if@tag\global\@tagfalse\global\let\@MHeqno=\@MHsaveno\fi}
\def\tag#1{\global\@tagtrue\global\let\@MHsaveno=\@MHeqno\global\def\@MHeqno{#1}}

\def\@equnolabel{\global\@haslabfalse}
\def\@equlabel[#1]{\label{#1}\global\@haslabtrue}

\def\@ealignb{\@MHcr\egroup\egroup}
  
\def\@equbopt[#1]{\computelength{#1}\ifnum\@MHLength=1\@nocols=#1\else
	\label{#1}\global\@haslabtrue\fi
	\@ifnextchar[{\@equbopt}{\@equb}}
\def\@equb{\@newbalign{\the\@nocols}}

\def\equa{\global\let\@MHcr\@MHcrb$$\@saveMHComms\global\@nocols=1%
	\@ifnextchar[{\@equbopt}{\@equb}}
\def\endequa{\@ealignb\if@haslab\@MHput@lbl{}\fi%
	\@restoreMHComms$$\global\@ignoretrue}

\def\equ{$$\@saveMHComms\@ifnextchar[\@equlabel\@equnolabel}
\def\endequ{\if@haslab\if@left\leqno{\@MHputnumber}\else\eqno{\@MHputnumber}\fi\fi%
	\@restoreMHComms$$\global\@ignoretrue}

\def\equs{\@ifnextchar[{\@begalign}{\@begalign[1]}}
\def\endequs{\@ealign\@restoreMHComms$$\global\@ignoretrue}

\def\setlabtype#1{\global\expandafter\let\expandafter\sublabeltype\csname #1\endcsname}

\@MHreset
\let\sublabeltype=\alph
\def\intertext#1{\noalign{\noindent#1}}

\def\strutdepth{0pt}
\def\@MHmargin#1{\strut\vadjust{\kern-\strutdepth\@MHspecial{#1}}}
\def\@MHspecial#1{\vtop to \strutdepth{\baselineskip\strutdepth\vss\llap{#1}\null}}

\let\MHgobble\@gobblecr

${this.title}

Code Editor : mhequ.sty