\input fontex
\hsize 5.9truein
\vsize 9.5truein
\global \topskip .7truein
%
%
% *******************************************************************
% *                                              WICC               *
% *   TEX82 MACROS                               September, 1984    *
% *                                                                 *
% * This macro package uses the PHYZZL macro package written by     *
% * M. Weinstein at SLAC as its basis.                              *
% *                                                                 *
% * This version of WIZZLE does not define fonts.  One of the       *
% * following files should be input in addition to WIZZLE:          *
% *     1. $FONTEX TEX - to use the TeX fonts                       *
% *     2. $F4250 TEX - to use the IBM fonts for the 4250           *
% *     3. $F3812 TEX - to use the IBM fonts for the 3812           *
% * The font file should be input before WIZZLE.                    *
% *                                                                 *
% * In order to make TeX run faster, A FMT file has been made that  *
% * includes both the PLAIN macros and the WIZZLE macros.  This     *
% * FMT file includes the file $FONTEX i.e. it uses the TeX fonts   *
% * and cannot be used for the 4250 or 3812 fonts. In order to use  *
% * WIZZLE FMT, make sure %macropackage=wizzle appears at the       *
% * beginning of your file.  Then issue the command TEX fn          *
% * If you write to any external files,                             *
% * (table of contents, references, figures, tables) add the        *
% * line \input openfile at the beginning of your file.             *
% * This will open up the external files so you won't get lots of   *
% * junk on your terminal.                                          *
% * *
% *******************************************************************
% The following initializes a set of counters for numbering purposes.
%
\newcount\chapnum
\chapnum = 0
\newcount\sectnum
\sectnum = 0
\newcount\subsecnum            %17.1.84 mc
\subsecnum = 0        %17.1.84 mc
\newcount\eqnum
% This initializes a set of counters for numbering purposes.
%
\newcount\chapnum
\chapnum = 0
\newcount\sectnum
\sectnum = 0
\newcount\subsecnum            %17.1.84 mc
\subsecnum = 0        %17.1.84 mc
\newcount\eqnum
\eqnum = 0
\newcount\refnum
\refnum = 0
\newcount\tabnum
\tabnum = 0
\newcount\fignum
\fignum = 0
\newcount\footnum
\footnum = 1
\newcount\pointnum
\pointnum = 0
\newcount\subpointnum
\subpointnum = 96
\newcount\subsubpointnum
\subsubpointnum = -1
\newcount\letnum
\letnum = 0
%
%Here we define boxes in which to store references, figure and tables
%
\newbox\referens
\newbox\figures
\newbox\tables
%
%Here we define boxes called \tempa--\tempe for temporary storage
%
\newbox\tempa
\newbox\tempb
\newbox\tempc
\newbox\tempd
\newbox\tempe
%
%Here we define a reference size variable for convenience
%
\hbadness=10000
\newbox\refsize
\setbox\refsize\hbox to\hsize{ }
\hbadness=1000
%
\newskip\refbetweenskip
\refbetweenskip = 5pt
%
%The following definitions are to make Version .8 compatible
%with Version 1.0
%
\def\ctrline#1{\line{\hss#1\hss}}
\def\rjustline#1{\line{\hss#1}}
\def\ljustline#1{\line{#1\hss}}
\def\lft#1{{#1}\hfill}
\def\ctr#1{\hfill{#1}\hfill}
\def\rt#1{\hfill{#1}}
%
\def\spose#1{\hbox to 0pt{#1\hss}}
%
% The following parameters are used to define spacing between
% chapters, sections, etc.
%
\def\chskipt{\vskip .125in plus 0pt minus 0pt }              %WICC
\def\chskipl{\vskip .7in plus 18pt minus 10pt}               %WICC
\def\secskipt{\penalty-500\vskip 24pt plus 2pt minus 2pt}    %WICC
\def\secskipl{\vskip 3.5pt plus 1pt }
\def\subsecskip{\penalty-500\vskip 6pt plus 2pt minus 2pt }
\def\unchskip{\vskip -.7in }                                 %WICC
\def\conskip{\vskip 14pt }
%
% Here we define the output routine to be used for papers
% The routine checks to see if oneside or bothsides has been
% specified. (WIZZLE defaults to oneside.)  If oneside, then
% the page is shifted \oddmargin  to the right; i.e. the left
% margin is \oddmargin. If bothsides, then the odd pages have
% a left margin of oddmargin and the even pages have a left margin
% of \evenmargin. (\oddmargin is set to 1.25 in; \evenmargin
% is set to 1. in.)
% The pages are automatically numbered.  If you don't want them
% numbered, put \nopagenumbers at the beginning.
%
\newif\ifoddeven
\gdef\oneside{\oddevenfalse}
\gdef\bothsides{\oddeventrue}
%
\oneside
%
\newif\ifnonumpageone
\gdef\numberfirst{\nonumpageonefalse}
\gdef\nonumberfirst{\nonumpageonetrue}
\nonumberfirst
%
\output{\ifoddeven\leftright\else\samemarg\fi
        \ifnonumpageone\checkpage\else\empty\fi
        \plainoutput}
%
\def\leftright{\ifodd\count0{\global\hoffset=\oddmargin}
                       \else{\global\hoffset=\evenmargin}\fi}
\def\samemarg{\global\hoffset=\oddmargin}
\gdef\oddmargin{.25truein}
\gdef\evenmargin{0truein}
\def\checkpage{\ifnum\count0=1\nopagenumbers\else\empty\fi}
\footline={{\pagefont\hss--\hquad\folio\hquad--\hss}}
\def\pagefont{\teniu}
%
% * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
%
\setbox\referens\vbox{\ctrline{\bf References }\chskipt }
\setbox\figures\vbox{\ctrline{\bf Figure Captions }\chskipt }
\setbox\tables\vbox{\ctrline{\bf Table Captions }\chskipt }
%
% * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
%
%
% TITLE PAGE MACROS
%
% This set of macros can be used to construct a title page.
% Insert space after each line in the file. (no automatic spacing)
%
% \pubdate{January 1983)     to get    January 1983
%
% \title{title of            The title will be centered and typed
%          paper}            in 18 pt roman. Change \titfnt for a
%                            different font.  If the title is
%                            longer than one line, use \title
%                            again.
%
%
% \author{name}              The author's name will be centered
%                            in 12 pt roman. Change \autfnt for a
%                            different font.
%
% \weizadd                   The Weizmann Institute's name and addres
%                            are centered in italic type. Change
%                            \addfnt for a different font.
%
% \instit{name}{address}     Institute name and address will be
%                            centered in italic type. Change \addfnt
%                            if desired.  However, the } at the end of
%                            name and the { at the beginning of
%                            address must be on the same line with
%                            no space between them.  For example,
%                            "\instit{SLAC}{Stanford etc.}"
%
% \abstract{text}            The word ABSTRACT will be centered
%                            with the text of the abstract below.
%
% \endpage                   same as \par \vfill \eject
%
%
\def\pubdate#1{\ctrline{#1}}
%
\def\title#1{\ctrline {\titfnt #1} }
\def\titfnt{\eighteenpoint}
%
\def\author#1{\ctrline{\autfnt #1}\par}
\def\autfnt{\bigfnt}
%
\def\weizadd{
\ctrline{\addfnt Weizmann Institute of Science}
\ctrline{\addfnt Rehovot, Israel} \par }
\def\addfnt{\tenit}
\def\instit#1#2{\ctrline{\addfnt #1} \ctrline{\addfnt #2} \par  }
%
\def\abstract{
\ctrline{\bf ABSTRACT}\chskipt}
%
\def\submit#1{\ctrline {Submitted to #1 }  }
%
% * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
%
% CHAPTER MACRO
%
% \chap{chapter name}        This command numbers the chapter,
%                            generates part of the number to be
%                            used in defining equation numbers,
%                            left justifies the chapter title
%                            on even pages, and right justifies
%                            the chapter title on odd pages.
%                            The title is printed in eighteen pt
%                            roman type by default.  Change
%                            \chapfont to chage the font.
%                            The proper entry is added to the
%                            table of contents.
%                            The lack of space
%                            between \chap and { } is important.
%
\def\reset{\global\sectnum = 0 \global\eqnum = 0
     \global\subsecnum = 0}
%
\def\chap#1{\global\advance\chapnum by 1 \reset %\chskipt    WICC
\endpage
\chskipt
\ifodd\count0{
\rightline{{\chapnumfont Chapter \the\chapnum}}
\medskip
\rightline{{\chapfont #1}}}
\else{
\leftline{{\chapnumfont Chapter \the\chapnum}}
\medskip
\ljustline{{\chapfont #1}}}\fi
\penalty 100000 \chskipl  \penalty 100000
{\let\number=0\edef\next{
\write2{\bigskip\noindent
  \tofcfont Chapter \the\chapnum.{ }#1
  \leadtofc\number\count0\smallskip}}
\next}}
\def\titcon#1{\unchskip
\ifodd\count0{
\rightline{{\chapfont #1}}}
\else{
\leftline{{\chapfont #1}}}\fi
\penalty 100000 \chskipl \penalty 100000 }
%
\def\chapnumfont{\tenit}
\def\chapfont{\eighteenpoint}
%
\def\chapter#1{\chap{#1}}
\def\chapterbegin#1{\chap{#1}}     %for Facil Tex users
%
% * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
%
% SECTION MACRO
%
% \sect{name}             The \sect macro prints the section sign
%                            (change \secsign for a different
%                            symbol), sets the name in upper
%                            and lower case letters, prints the
%                            section name and number (left adjusted)
%                            in twelve pt roman (change \sectfont
%                            to change the font), adds the entry
%                            to the table of contents,
%                            and skips the appropriate amount of space.
%
%
\def\sect#1{\global\advance\sectnum by 1 \global\subsecnum = 0
\secskipt
\ifnum\chapnum=0{{\sectfont\par\noindent
\secsign\the\sectnum{ }{ }#1}\par
         {\let\number=0\edef\next{
         \write2{\vskip 0pt\noindent\hangindent 30pt
         \tofcfont\hbox to 30pt{\hfill\the\sectnum\quad}\unskip#1
         \leadtofc\number\count0}}
         \next}}
\else{{\sectfont\par\noindent
\secsign\the\chapnum .\the\sectnum{ }{ }#1}\par
      {\let\number=0\edef\next{
       \write2{\vskip 0pt\noindent\hangindent 30pt
       \tofcfont\hbox to 30pt{\hfill\the\chapnum
              .\the\sectnum\quad}\unskip#1
         \leadtofc\number\count0}}
       \next}}\fi
       \nobreak\medskip\nobreak}
\def\sectfont{\twelvepoint}
\def\sectionbegin#1{\sect{#1}}       %for Facil Tex users
\def\secsign{\S}
%
%
% * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
%
% SUBSECTION MACRO 17.1.84 mc
%
% \subsect{name}             The \subsect macro numbers subsections
%                            as chapnum.sectnum.subsecnum.  An entry
%                            is placed in the table of contents.
%
% \subsec{name}              The \subsec macro allows you to title
%                            subsections with an underlined phrase.
%
\def\subsec#1{\secskipt \noindent \undertext{#1}\par}
%
\def\subsect#1{\global\advance\subsecnum by 1 \secskipt
\noindent
\ifnum\chapnum=0{
     {\subsecfont\the\sectnum .\the\subsecnum{ }{ }#1}
      \nobreak\par
     {\let\number=0\edef\next{
     \write2{\vskip 0pt\noindent\hangindent 58pt\tofcfont
     \hbox to 60pt{\hfill\the\sectnum
           .\the\subsecnum\quad}\unskip#1
     \leadtofc\number\count0}}\next}}
\else{{
     \subsecfont\the\chapnum .\the\sectnum
        .\the\subsecnum{ }{ }#1}\nobreak\par
     {\let\number=0\edef\next{
     \write2{\vskip 0pt\noindent\hangindent 58pt\tofcfont
     \hbox to 60pt{\hfill\the\chapnum.\the\sectnum
           .\the\subsecnum\quad}\unskip#1
     \leadtofc\number\count0}}\next}}\fi
     \nobreak\medskip\nobreak}
%
\def\subsectionbegin#1{\subsec{#1}}
\def\subsecfont{\twelvepoint}        %17.1.84 mc
%
%* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
%
% TABLE OF CONTENTS MACRO
%
\immediate\openout 2 tofc
%
\def\tableofcontents#1{\endpage
\count0=#1
\chskipt
\ifodd0{
\rjustline{{\chapfont Contents}}}
\else{
\ljustline{{\chapfont Contents}}}\fi
\chskipl
\rjustline{{\tofcfont Page}}
\bigskip
\immediate\closeout 2
\input tofc
\endpage}
%
% The \contentsout macro should be used if the table of contents
% has to be generated by itself because of problems (as with
% superscripts).  Rename the TOFC TEX file, edit it (change whatever
% is bad).  Put the following at the beginning of the file:
%            %macropackage=wizzle
%            \numberfirst
%            \contentsout{pageno}
% The TOFC (renamed) file should follow.  At the very end put in \bye.
% Then ,tex and dvi the file just created.
%
\def\contentsout#1{\endpage
\count0=#1
\chskipt
\ifodd0{
\rjustline{{\chapfont Contents}}}
\else{
\ljustline{{\chapfont Contents}}}\fi
\chskipl
\rjustline{{\tofcfont Page}}
\bigskip}
%
\def\tofcfont{\ninerm}
\def\leadtofc{\leaders\hbox to 8pt{\hfill.\hfill}\hfill}
% * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
%
% REFERENCE MACROS
%
% There are several reference macros that do slightly different
% things - all are used to create references which are stored in
% a file.  This file will be printed at the end of the paper by
% using the command \refout.
%
% * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
%
%
% SINGLE REFERENCE
%
% \ref{text of reference}    To generate a superscripted reference
%                            number with the next sequential number
%                            (you don't have to keep track of
%                            the number - TeX does it for you).
%                            The command \ref{ } automatically
%                            generates this number.  In order to print
%                            the reference, use \refend.
% or
%
% \REF{\name}{text}          This also generates a
%                            reference number.  In this case you can
%                            give the reference a dummy name.  The
%                            name must be preceded by the character
%  upper case and lower      \ and be enclosed in { }.  You can use
%  case is important         Roman numerals for the dummy name, i.e.
%  in TEX                    "...word\REF{\iv}{text}...", but you
%                            CANNOT use Arabic numbers.  The next set
%                            of { } contains the text to be stored in
%                            the reference.
%
% \refend                    To end the reference, you use
%                            the command \refend, i.e.
%                            "...word\REF{text}\refend"
%
%                            While the \REF and \ref macros generate a
%                            reference numbers to be
%                            attached to the last word immediately
%                            preceding the command \REF, this
%                            number is not attached to the last word
%                            unless you finish the reference by using
%                            \refend.
%
%                            In other words, if you type
%                            "...word\REF{text}...", you generate the
%                            appropriate numbered reference but no
%                            superscripted reference number is printed.
%
%                            When you wish to print the superscripted
%                            reference number, insert \refend at the end
%                            of the {text} for that reference, i.e.
%                            "...word\REF{text}\refend".
%
%                            The appropriate number for a reference
%                            with a dummy name will be inserted in the
%                            text if you type Ref. {\name} for an
%                            in-line referral to the reference, or
%                            $^{\name}$ to get a superscripted form of
%                            the reference number.
%
% \refout                    When you wish to print the list of
%                            references at the end of the paper.
%                            They will be printed on a separate
%                            page with References written at the top.
%
% \refsout                   Use if the original refc had lines longer
%                            than 255 characters.  Edit the refc tex
%                            file: i.e. put %macropackage=wizzle,
%                            \startpage
%                            (if necessary), and \refsout at the
%                            beginning of the file, \bye at the end,
%                            and make sure there are no lines longer
%                            than 255 characters.  Rename the file,
%                            (DON'T call it REFC) and tex it.
%
\immediate\openout 4 refc
%
\def\refbegin#1#2{\unskip\global\advance\refnum by1
\xdef\rnum{\the\refnum}
\xdef#1{\the\refnum}
\xdef\rtemp{$^{\rnum}$}
\unskip
\immediate\write4{\vskip 5pt\par\noindent\tofcfont
  \hangindent .11\wd\refsize \hbox to .11\wd\refsize{\hfill
  \the\refnum . \quad } \unskip}\unskip
  \immediate\write4{#2}\unskip}
%
\def\refend{\nobreak\rtemp\unskip}
%
\def\ref#1{\refbegin{\?}{#1}}
\def\refs#1{\refsbegin{\?}{#1}}
%
%
\def\REF#1#2{\refbegin{#1}{#2}}
%
% * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
%
%
% MULTIPLE REFERENCES
%
% The multiple reference macro is similar to the single reference
% macro except it allows you to generate multiple references.
%
% The difference between \refs and \ref is in the way the super-
% script for the reference is generated.  (When you use \refs it
% is necessary to use \refsend.)
% For \ref the superscript is a single number.  For \refs the super-
% script is a range of numbers.  If you have already typed three
% references and now you wish to type in four more and refer to them
% all at once in the text (and also have the freedom to refer to
% them individually) you type
%
% "...word\refs{text}\refscon{text}\refscon{text}
%         \refscon{text}\refsend"
%
%
% and you will get "...word" followed by a superscripted (4-7).
%
%
% \refs{text}                To begin a set of multiple references.
% or
% \REFS{\name}{text}         To begin a set of multiple references
%                            using the dummy name option.
%
% \refscon{text}             To generate the next reference.
% or
% \REFSCON{\name}{text}      Next reference using dummy name option.
%
% \refsend                   To end multiple references.
%                            "...\refscon{text}\refsend"
%
%
\def\refsbegin#1#2{\unskip\global\advance\refnum by 1
\xdef\refb{\the\refnum}
\xdef#1{\the\refnum}
\xdef\rrnum{\the\refnum}
\unskip
\immediate\write4{\vskip 5pt\par\noindent\tofcfont
  \hangindent .11\wd\refsize \hbox to .11\wd\refsize{\hfill
  \the\refnum . \quad } \unskip}\unskip
  \immediate\write4{#2}\unskip}
%
\def\REFSCON#1#2{\unskip \global\advance\refnum by 1
\xdef#1{\the\refnum}
\xdef\rrrnum{\the\refnum}
\unskip
\immediate\write4{\vskip 5pt\par\noindent\tofcfont
  \hangindent .11\wd\refsize \hbox to .11\wd\refsize{\hfill
  \the\refnum . \quad } \unskip}\unskip
  \immediate\write4{#2}\unskip}
%
\def\refscon#1{\REFSCON{\?}{#1}}
%
\def\refsend{\nobreak$^{\refb-\the\refnum}$\unskip}
%
\def\refout{\endpage
\write2{\bigskip\noindent
  {\tofcfont References\leadtofc\number\count0}\par\smallskip}
\chskipt
\ifodd0{
\rjustline{{\chapfont References}}}
\else{
\ljustline{{\chapfont References}}}\fi
\chskipl
\immediate\closeout 4
\input refc
\endpage}
%
\def\refsout{
\chskipt
\ifodd0{
\rjustline{{\chapfont References}}}
\else{
\ljustline{{\chapfont References}}}\fi
\chskipl}
%
\def\REFOUT{\refout }
\def\TABOUT{\tabout }
\def\FIGOUT{\figout }
%
\def\REFS#1#2{\refsbegin{#1}{#2} }
%
% * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
%
% FOOTNOTE MACRO
%
% \foot{text}                To generate a footnote.  The footnote
%                            will appear at at the bottom of the
%                            page, single spaced, preceded by a number.
%                            If there is more than one footnote on
%                            a page, the footnotes will be separated
%                            by a blank line.
%
% \footnote{symbol}{text}    To generate a footnote.  The footnote
%                            will appear at at the bottom of the
%                            page, single spaced, preceded by {symbol}.
%                            The {symbol} will also appear in the text.
%                            If there is more than one footnote on
%                            a page, the footnotes will be separated
%                            by a blank line.
%
% \def\footfont{fontname}    The default fonts for the footnotes is nine
%                            point.  Re-define \footfont for a
%                            different font.
%
%
%\def\footnote#1{\edef\asf{\spacefactor\the\spacefactor}#1\asf
%  \insert\footins\bgroup\footfont
%  \interlinepenalty100\let\par=\endgraf
%   \leftskip=0pt \rightskip=0pt
%   \splittopskip=10pt plus 1pt minus 1pt \floatingpenalty=20000
%   \smallskip\item{#1}\bgroup\strut\aftergroup\strut\egroup\let\next}
%\skip\footins=12pt plus 2pt minus 4pt   %extra space on page
%\dimen\footins=30pc    %maximum size of footnotes
%
\def\foot#1{\footnote{$^{\the\footnum}$}{#1}
  \global\advance\footnum by 1}
%
\def\footfont{\ninepoint}
%
% * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
%
% FIGURE CAPTION MACROS            23.1.84 mc
%
% The Figure Caption macro generates a list of figure captions.  It
% is similar to the reference macro.  It also centers the figure caption
% on the page in italic type.  To change the font in which the caption
% is typed, redefine \Figure.  No  space is skipped before the figure-
% the user must use \vskip before he says \fig.
%
%
% \fig{caption}               To generate a one-line figure caption and
%                             center it in italics on the page.
% \figs{caption line1}{line2} To generate a two-line figure caption and
% or                          center them in italics on the page.
% \FIG{\name}{caption}        To generate a one-line figure caption with
%                             a dummy name.
% \FIGS{\name}{caption line1} To generate a two-line figure caption with
%  {line2}                    a dummy name.
%
% \figout                    To print the list of figure captions at
%                            the end of the paper.  They will be
%                            printed on a separate page with
%                            Figure Captions at the top of the page.
%
% \figsout                   Use if the original figc had lines longer
%                            than 255 characters.  Edit the figc tex82
%                            file: i.e. put \input wizzle, \startpage
%                            (if necessary), and \figsout at the
%                            beginning of the file, \bye at the end,
%                            and make sure there are no lines longer
%                            than 255 characters.  Rename the file,
%                            plaintex it and dvi82 it.
%
\def\figure#1#2{\global\advance\fignum by 1
\xdef#1{\the\fignum }
\ctrline{\Figure . #2}\par\conskip
{\let\number=0\edef\next{
\write3{\par\noindent\tofcfont
  \hangindent .11\wd\refsize \hbox to .11\wd\refsize{\hfill
  \the\fignum . \quad } \unskip}
\write3{#2\leadtofc\number\count0\par}}
\next}}
%
\def\figurs#1#2#3{\global\advance\fignum by 1
\xdef#1{\the\fignum }
\ctrline{\Figure . \it #2}
\ctrline{\it #3}\par\conskip
{\let\number=0\edef\next{
\write3{\par\noindent\tofcfont
  \hangindent .11\wd\refsize \hbox to .11\wd\refsize{\hfill
  \the\fignum . \quad}\unskip}
\write3{#2 #3\leadtofc\number\count0\par}}
\next}}
%
\def\fig#1{\figure{\?}{#1}}
\def\FIG#1#2{\figure{#1}{#2}}
\def\figs#1#2{\figurs{\?}{#1}{#2}}
\def\FIGS#1#2#3{\figurs{#1}{#2}{#3}}
\def\figcon{\ctrline{{\it Figure  \the\fignum} -- cont'd}\par\conskip}
%
\def\Figure{{\it Figure  \the\fignum}}
%
\immediate\openout 3 figc
%
\def\figout{\endpage
\chskipt
\ifodd0{
\rjustline{{\chapfont Figure Captions}}}
\else{
\ljustline{{\chapfont Figure Captions}}}\fi
\chskipl
\rjustline{{\tofcfont Page}}
\bigskip
\immediate\closeout 3
\input figc
\endpage}
%
\def\figsout{
\chskipt
\ifodd0{
\rjustline{{\chapfont Figure Captions}}}
\else{
\ljustline{{\chapfont Figure Captions}}}\fi
\chskipl
\rjustline{{\tofcfont Page}}
\bigskip}
%
% * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
% TABLE CAPTION MACRO               23.1.84 mc
%
% The Table Caption macro generates a list of table captions.  It
% is similar to the figure macro.  It also centers the table caption
% on the page in italic type.  To change the font in which the caption
% is typed, redefine \Table.  No  space is skipped before the table-
% the user must use \vskip before he says \tab.
%
%
% \tab{caption}               To generate a one-line table caption
% \tabss{caption line}{line 2} To generate a two-line table caption
% or
% \TAB{\name}{caption}        To generate a one-line table caption with a
%                             dummy name.
% \TABS{\name}{caption line1} To generate a two-line table caption with a
%      {line 2}               dummy name.
%
% \tabout                    When you wish to print the list of
%                            table captions at the end of the paper.
%                            They will be printed on a separate
%                            page with Table Captions written at the
%                            top.
%
% \tabsout                   Use if the original tabc had lines longer
%                            than 255 characters.  Edit the tabc tex82
%                            file: i.e. put \input wizzle, \startpage
%                            (if necessary), and \tabsout at the
%                            beginning of the file, \bye at the end,
%                            and make sure there are no lines longer
%                            than 255 characters.  Rename the file,
%                            plaintex it and dvi82 it.
%
\def\table#1#2{\global\advance\tabnum by 1
\xdef#1{\the\tabnum }
\ctrline{\Table . #2}\par\conskip
{\let\number=0\edef\next{
\write5{\par\noindent\tofcfont
  \hangindent .11\wd\refsize \hbox to .11\wd\refsize{\hfill
  \the\tabnum . \quad } \unskip}
\write5{#2\leadtofc\number\count0\par}}
\next}}
%
\def\tabls#1#2#3{\global\advance\tabnum by 1
\xdef#1{\the\tabnum }
\ctrline{\Table . #2}
\ctrline{\it #3}\par\conskip
{\let\number=0\edef\next{
\write5{\par\noindent\tofcfont
  \hangindent .11\wd\refsize \hbox to .11\wd\refsize{\hfill
  \the\tabnum . \quad}\unskip}
\write5{#2 #3\leadtofc\number\count0\par}}
\next}}
%
\def\tab#1{\table{\?}{#1} }
\def\TAB#1#2{\table{#1}{#2} }
\def\tabss#1#2{\tabls{\?}{#1}{#2}}
\def\TABS#1#2#3{\tabls{#1}{#2}{#3}}
%
\def\Table{\it Table  \the\tabnum}
%
\immediate\openout 5 tabc
%
\def\tabout{\endpage
\chskipt
\ifodd0{
\rjustline{{\chapfont Table Captions}}}
\else{
\ljustline{{\chapfont Table Captions}}}\fi
\chskipl
\rjustline{{\tofcfont Page}}
\bigskip
\immediate\closeout 5
\input tabc
\endpage}
%
\def\tabsout{
\chskipt
\ifodd0{
\rjustline{{\chapfont Table Captions}}}
\else{
\ljustline{{\chapfont Table Captions}}}\fi
\chskipl
\rjustline{{\tofcfont Page}}
\bigskip}
%
% * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
%
% EQUATION NUMBER MACRO
%
% \eqno (any number)         In display math mode, i.e. between
%                            $$...$$, you can use \eqno (any
%                            number), i.e.
%                            "$$...equation... \eqno (43)$$"
%                            gives you (43) on the right hand
%                            side of the page next to the equation.
%                            \eqno is defined in plain.tex as is
%                            \leqno which puts the equation number
%                            on the left hand side of the page.
%
% \eqno{\eq}                 You can use \eqno{\eq} in display
%                            math mode to number the equations
%                            sequentially.  The number will appear
%                            on the right hand side of the page.
%                            TEX automatically numbers the equations
%                            for you. Use
%                            "$$ ...equation...\eqno{\eq} $$".
%                            {\eq} is a synonym for {\enum}.
%
% \eqn{\name}                In display math mode, if you wish to
%                            generate a dummy name for an equation,
%                            use \eqn{\name} as the argument.  From
%                            that point on \name will always be
%                            associated with that particular equation,
%                            and when \name is typed TEX will convert
%                            it to the appropriate number.
%
%                            The virtue of the dummy name is that if
%                            equations are added at a later time,
%                            named equations or equations numbered
%                            using \eqno{\eq} will be automatically
%                            correctly renumbered.  If \name is used
%                            then all textual references to that
%                            equation will also be renumbered.
%
%
%
\def\eqname#1{\global\advance\eqnum by 1
\ifnum\chapnum=0{
   \xdef#1{ (\the\eqnum ) }(\the\eqnum )  }
\else{
   \xdef#1{ (\the\chapnum .\the\eqnum ) }
            (\the\chapnum .\the\eqnum ) }\fi}
%
\def\enum{\global\advance\eqnum by 1
  \ifnum\chapnum=0{ (\the\eqnum )  }
  \else{(\the\chapnum .\the\eqnum ) }\fi}
%
\def\eq{\enum }
%
\def\eqn#1{\eqno \eqname{#1} }
%
\def\eqnameap#1{\global\advance\eqnum by 1
   \xdef#1{ (\copy\appbox .\the\eqnum ) }
            (\copy\appbox .\the\eqnum ) }
%
\def\enumap{\global\advance\eqnum by 1
  (\copy\appbox .\the\eqnum ) }
%
\def\eqap{\enumap }
%
\def\eqnap#1{\eqno \eqnameap{#1} }
% * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
%
% UNNUMBERED LISTS
%
% This is similar to the Itemized List Macro except it doesn't
% number the items.  Instead it allows you to pick a symbol to
% highlight the line.
%
% \item{\symbol} text        You pick the symbol to be used.
%
% \sitem{\symbol} text       For sub-item (same as above).
%
% \ssitem{\symbol} text      For sub-sub-item (same as above).
%
%                            A blank line will end the items and
%                            give you a new paragraph.  If you don't
%                            want a new paragraph at the end of the
%                            item, type \noindent after you skip
%                            a line.  \par will also end the item.
%
% \item{\ } text             Used to continue an item when you have
%                            more than one paragraph; you get a blank
%                            instead of a symbol.
%
\def\item#1{\par\noindent\hangindent .08\wd\refsize
\hbox to .08\wd\refsize{\hfill #1\quad}\unskip}
%
\def\sitem#1{\par \noindent\hangindent .13\wd\refsize
\hbox to .13\wd\refsize{\hfill #1\quad}\unskip}
%
\def\ssitem#1{\par\noindent\hangindent .195\wd\refsize
\hbox to .195\wd\refsize{\hfill #1\quad}\unskip}
%
\def\itemcon{\item\  }
\def\sitemcon{\sitem\  }
\def\ssitemcon{\ssitem\  }
%
\def\subitem#1#2{\sitem#1#2}
%
%
% ITEMIZED LIST MACRO
%
% These commands are used to make itemized lists, to write
% outlines or make points within a body of text.
%
%
% \pointbegin text           To start a list.  The list will be
%      or                    numbered in Arabic numerals and
% \pointbegin                indented. You can begin the text
% text                       after the \pointbegin command -
%                            separated by a space - or you can
%                            begin on the following line.
%
% \point text                To continue a list.
%
%                            A blank line will end the points and
%                            give you a new paragraph.  If you don't
%                            want a new paragraph at the end of the
%                            point, type \noindent after you skip
%                            a line.
%
% \spointbegin text          To begin a sub-point list; indented,
%                            lowercase Roman letter, in ( ).
%
% \spoint text               To continue a sub-point list.
%
% \sspointbegin text         To start a sub-sub-point list;
%                            indented, lowercase Roman numerials,
%                            in ( ).
%
% \sspoint text              To continue a sub-sub-point list.
%
% \par                       To end a list.  You can also leave a
%                            blank line and TEX will end the point
%                            and start a new paragraph.
%
% \pointcon text             If you want a point to contain more
%                            than one paragraph, but you don't want
%                            to generate a new number, use
%                            \pointcon text.  This will also work
%                            with \spointcon and \sspointcon.
%
\def\pointbegin{\pointnum = 0 \point }
%
\def\point{\par \global\advance\pointnum by 1
\noindent\hangindent .08\wd\refsize \hbox to .08\wd\refsize{\hfill
\the\pointnum .\quad}\unskip}
%
\def\spointbegin{\subpointnum 96 \spoint}
%
\def\spoint{\par \global\advance\subpointnum by 1
\noindent\hangindent .13\wd\refsize
\hbox to .13\wd\refsize{\hfill
(\char\the\subpointnum )\quad}\unskip}
%
\def\sspointbegin{\subsubpointnum = 0  \sspoint}
%
\def\sspoint{\par \global\advance\subsubpointnum by 1
\noindent\hangindent .195\wd\refsize
\hbox to .195\wd\refsize {\hfill\hbox to 20pt{
(\romannumeral\subsubpointnum\hfill)}\quad}\unskip}
%
\def\pointcon{\item\  }
\def\spointcon{\sitem\ }
\def\sspointcon{\ssitem\ }
%
\def\subpoint#1{\spoint#1}
\def\subsubpoint#1{\sspoint#1}
%
%
% * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
%
% BULLET, STAR AND DASH ITEM
%
% This is similar to the Itemized List Macro except that you
% specify a bullet, a star or a dash instead of a number.
%
% \bullitem text             Type the text beginning on the same line
%                            (with a space between \bullitem and
%                            whatever follows).  You can also begin
%                            the text on the following line.
%                            The text will be indented, preceded by
%                            a bullet.  To end the text, type \endlist.
%                            You can type \par or leave a blank line
%                            and get the same result.
%
% \staritem text             The same as \bullitem above.
% \dashitem text             The same as \bullitem above.
%
% \sbullitem text            This command will give you a sub-bullitem.
% \sstaritem text            You will get a sub-staritem.
% \sdashitem text            You will get a sub-dashitem.
%
% \ssbullitem text           You get sub-sub-bullitem.
% \ssstaritem text           You get sub-sub-staritem.
% \ssdashitem text           You get sub-sub-dashitem.
%
% \endlist                   Ends the list.
%
\def\bullitem{\item{$\bullet $}}
\def\staritem{\item{$\ast $}}
\def\dashitem{\item{---}}
\def\sbullitem{\sitem{$\bullet $}}
\def\sstaritem{\sitem{$\ast $ }}
\def\sdashitem{\sitem{---}}
\def\ssbullitem{\ssitem{$\bullet $}}
\def\ssstaritem{\ssitem{$\ast $ }}
\def\ssdashitem{\ssitem{---}}
\def\endlist{\par}
%
% * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
%
% USEFUL COMMANDS
%
% General Information        Use { } if the text after a macro
%                            command is more than one characer.
%                            If the input is only one character,
%                            no brackets are needed, i.e.
%                            "\chap(My Story}" or "\chap A".
%
% \appendix A                gives you APPENDIX A, centered and typed
%                            in boldface type. A table of contents
%                            entry is generated.
%
% \ack                       ACKNOWLEDGMENTS will be centered and
%                            typed in boldface type.
%
% \endpage                   same as \par \vfill \eject
%
% \ket{\symbol}              gives you "^ symbol >"
% \bra{\symbol}              gives you "< symbol ^"
%
% \colvec{text}              This command is used in displayed
%                            math mode.  When you type
%                            $$ B = \colvec{ u\cr s\cr d\cr }$$
%                            you will get
%
%                                    u    with
%                               B =  s    parentheses
%                                    d    around u,s,d.
%
% \mat{number}{text}         This command is used in displayed
%                            math mode. {number} means number of
%                            horizontal columns from 2 to 6.  If
%                            you only have one column, use \colvec
%                            described above.  The symbol & is
%                            used to separate columns.  \cr is
%                            used at the end of each vertical line.
%
%                            For example, if you type
%
%                            $$ B = \mat3{1 & 2 & 3 \cr
%                                         4 & 5 & 6 \cr
%                                         7 & 8 & 9 \cr}$$
%                            you will get
%
%                                         1  2  3
%                                    B =  4  5  6
%                                         7  8  9
%
%                            with the numbers enclosed in large ( ).
%
%
% \secsign                   The symbol that is used for section.
%
% \midpoint{text}            This command will give you a line
%                            across the paper and then the (text}
%                            followed with another line.  You have
%                            to leave a blank line before the
%                            \midpoint command and a blank line
%                            following the text.
%
%                            Math mode is used for symbols.
% \hat{symbol}               If you type "$\hat{\alpha}$" you will
% or                         get the alpha symbol with a hat.
% \hat A                     "\hat A" will give you an A with a hat.
%
% \vec{symbol}               Same as above except you get a vector
%                            over the letter or symbol.
% \bar{symbol}               Same as above except you get a bar
%                            over the letter or symbol.
%
% \bk                        Causes a line break
%
% \physrev                   Put this command the top of your file.
%                            It changes the space between the
%                            lines to conform with Phys. Rev.'s
%                            requirements.
%
% \bspace{12pt}              To backspace - 10pt is about the width
%                            of one character in this version of
%   or                       wizzle.
%
% \bspace{1in}               You can also specify backspace in inches,
%                            etc.
%
% \bye                       Same as \endpage\end.
%
% \lbrk                      Same as \bk = \penalty -10000
%
%
% \small{text}               Invoke this macro when you want text
%                            in small (eightpoint) type.
%                            If you want to ensure the small
%                            type section is not broken over a page
%                            boundary, the parts of the macro
%                            following \par should be put into a
%                            \vbox.  If you don't want the first
%                            line indented, put \noindent just
%                            before the text.
%
\def\bye{\endpage\end}              %for Facil Tex users
%
%
\def\small#1{\par\eightpoint\baselineskip 9pt\lineskip 1pt
#1\par}
%
\def\bspace#1{\hbox to -#1{}}
%
\newbox\appbox
\def\appendix#1{\endpage\reset
\setbox\appbox\hbox{#1}
\chskipt \ctrline {\bf APPENDIX #1 }\penalty 10000
\chskipl \penalty 10000
\write2{\bigskip\noindent
 {\tofcfont Appendix #1\leadtofc\number\count0\par\smallskip}}}
%
\def\ack{
\chskipt \ctrline {\bf ACKNOWLEDGEMENTS}\penalty 10000
\chskipl \penalty 10000}
%
\def\ket#1{\mid #1 \rangle }
\def\bra#1{\langle #1 \mid }
%
\def\colvec#1{\left( \vcenter{\halign{$\hfill##\hfill$\cr #1 }}\right)}
%
\def\mat#1#2{\if 2#1 {\left( \  \vcenter{\halign{$\ctr{## }$ \quad
& $\ctr{## }$\cr #2}} \  \right) } \else{ }\fi
\if 3#1 {\left( \  \vcenter{\halign{
$\ctr{## }$ \quad & $\ctr{## }$ \quad
& $\ctr{## }$\cr #2}} \  \right) } \else{ }\fi
\if 4#1 {\left( \  \vcenter{\halign{$\ctr{## }$ \quad &
$\ctr{## }$ \quad & $\ctr{## }$ \quad
& $\ctr{## }$\cr #2}} \  \right) } \else{ }\fi
\if 5#1 {\left( \  \vcenter{\halign{$\ctr{## }$ \quad
& $\ctr{## }$ \quad & $\ctr{## }$ \quad
& $\ctr{## }$ \quad & $\ctr{## }$\cr #2}} \  \right)} \else{ }\fi
\if 6#1 {\left( \  \vcenter{\halign{$\ctr{## }$ \quad
& $\ctr{## }$ \quad & $\ctr{## }$ \quad & $\ctr{## }$ \quad
& $\ctr{## }$ \quad & $\ctr{## }$\cr #2}} \  \right)} \else{ }\fi }
%
\def\lftcol#1{\vbox{\halign{\lft{##}\cr #1\cr}}}
\def\ctrcol#1{\ctrline{\vbox{\halign{\ctr{##}\cr #1\cr}}}}
\def\rtcol#1{\rjustline{\vbox{\halign{\rt{##}\cr #1\cr}}}}
%
%
%
\def\midpoint#1{\vbox{\rule \vskip 10pt \vbox{\hsize 1\wd\refsize
{#1}}\vskip 10pt \rule}}
%
\def\endpage{\par \vfill \eject}
%
\def\physrev{\baselineskip 24pt
\lineskip 1pt
\parskip 1pt plus 1pt
\abovedisplayskip 15pt plus 7pt minus 13.33pt
\belowdisplayskip 15pt plus 7pt minus 13.33pt
\abovedisplayshortskip 14pt plus 11pt
\belowdisplayshortskip 9pt plus 7pt minus 7pt
\def\chskipt{\vskip 24pt }
\def\chskipl{\vskip 6.5pt }
\def\secskipt{\vskip 7pt plus 3pt minus 1.33pt }
\def\secskipl{\vskip 3.5pt plus 2pt }
\def\subsecskip{\vskip 7pt plus 2pt minus 2pt }
\def\unchskip{\vskip -6.5pt }
\def\conskip{\vskip 24pt }
\refbetweenskip = \the\baselineskip
\multskip\refbetweenskip by 5
\divskip\refbetweenskip by 10
\twelverm }
%
\def\bk{\hfil\break}         %WICC
\def\lbrk{\bk}               %for Faci Tex users
%
% * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
%
% WICC MEMO MACRO
%
% \memodate{date}            Weizmann Institute Memo is printed
%                            in boldface type
%                            at the left hand margin and the date
%                            is printed at the right hand margin.
%
% \to text
% \from text
% \topic text
%
% \rule                      gives you a line across the page
%
%                            The text of the memo follows the rule
%                            command.
%
\def\memodate#1{\line{{\bf Weizmann Institute Memo} \hfill #1}
\vskip 24pt }
%
\def\To{\par\noindent\hangindent .18\wd\refsize
\hbox to .18\wd\refsize {To: \hfill \qquad }}
%
%
\def\from{\par\noindent\hangindent .18\wd\refsize
\hbox to .18\wd\refsize {From: \hfill \qquad }}
%
\def\topic{\par\noindent\hangindent .18\wd\refsize
\hbox to .18\wd\refsize{Topic: \hfill \qquad }}
%
\def\rule{\par \vskip 12pt \hrule height .8pt \par \vskip 12pt }
%
% * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
%
% START MACROS
%
% If you wish to start printing a file in the middle and want the
% page numbers to come out correctly start your input file with
% \startpage{arabic number}
%
% \startpage{number}         The page count will start with the
%                            given number.
%
% \startchapter{number}      The paper will be printed starting with
%                            the given chapter number.
%
% \startref{number}          The references will be printed starting
%                            with the given reference number.
%
% \startfig{number}          The figures will be printed starting
%                            with the given figure number.
%
% \starttab{number}          The tables will be printed starting
%                            with the given table number.
%
\def\startpage#1 {\count0 = #1}
\def\startchapter#1{\chapnum = #1 \advance\chapnum by -1}
\def\startref#1{\refnum = #1}
\def\startfig#1{\fignum = #1 \advance\fignum by -1}
\def\starttab#1{\tabnum = #1 \advance\tabnum by -1}
%
%
% * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
%
% ADDITIONAL SYMBOLS
%
%
\def\larrow{\leftarrow}
\def\rarrow{\rightarrow }
\def\uarrow{\uparrow }
\def\darrow{\downarrow }
\def\dblarrow{\leftrightarrow }
%
% These are big braces.
\def\biglb{\mathopen{\vcenter{\hbox{\tenex\char'2}}}}
\def\bigrb{\mathclose{\vcenter{\hbox{\tenex\char'3}}}}
\def\bigglb{\mathopen{\vcenter{\hbox{\tenex\char'24}}}}
\def\biggrb{\mathclose{\vcenter{\hbox{\tenex\char'25}}}}
\def\biggglb{\mathopen{\vcenter{\hbox{\tenex\char'42}}}}
\def\bigggrb{\mathclose{\vcenter{\hbox{\tenex\char'43}}}}
%
% These are big curly braces.
\def\bigclb{\mathopen{\vcenter{\hbox{\tenex\char'10}}}}
\def\bigcrb{\mathclose{\vcenter{\hbox{\tenex\char'11}}}}
\def\biggclb{\mathopen{\vcenter{\hbox{\tenex\char'32}}}}
\def\biggcrb{\mathclose{\vcenter{\hbox{\tenex\char'33}}}}
\def\bigggclb{\mathopen{\vcenter{\hbox{\tenex\char'50}}}}
\def\bigggcrb{\mathclose{\vcenter{\hbox{\tenex\char'51}}}}
%
% These are big brackets.
\def\bigbra{\mathopen{\vcenter{\hbox{\tenex\char'12}}}}
\def\bigket{\mathclose{\vcenter{\hbox{\tenex\char'13}}}}
\def\biggbra{\mathopen{\vcenter{\hbox{\tenex\char'34}}}}
\def\biggket{\mathclose{\vcenter{\hbox{\tenex\char'35}}}}
\def\bigggbra{\mathopen{\vcenter{\hbox{\tenex\char'52}}}}
\def\bigggket{\mathclose{\vcenter{\hbox{\tenex\char'53}}}}
%
\def\us#1{$\underline{\hbox{#1}}$}
\def\undertext#1{$\underline{\hbox{#1}}$}
%
\def\bull{$\bullet $}
\def\sbull{$^\bullet$}
\def\ssbull{$^{^\bullet}$}
%
\def\twodot{\ddot}
\def\squiggle{\tilde}
\def\hook{\check}
%
%
%Here is the place I have stored the boxing commands.  For wizards only.
%
% \boxit{box specification}            Encloses the specified box
%                                      in a box with rules the default
%                                      width (.4pt).
%
% \fboxit{rule width}{box specification}  Encloses the specified box
%                                         in a box with rules {rule
%                                         width} points wide.  Just
%                                       give the number of points and
%                                       not the letters 'pt'.
%
\newbox\xa\newbox\xb
\def\boxit#1{ \setbox\xa\vbox {\vskip \boxitsep
\hbox{\hskip \boxitsep #1\hskip \boxitsep }\vskip \boxitsep }
\setbox\xb\hbox{\vrule \copy\xa \vrule}
\vbox{\hrule width 1\wd\xb \copy\xb \hrule width 1\wd\xb }}
%
\def\fboxit#1#2{ \setbox\xa\vbox {\vskip \boxitsep
\hbox{\hskip \boxitsep #2\hskip \boxitsep }\vskip \boxitsep }
\setbox\xb\hbox{\vrule width #1pt \copy\xa \vrule width #1pt}
\vbox{\hrule height #1pt width 1\wd\xb
\copy\xb \hrule height #1pt width 1\wd\xb }}
%
\def\reboxit#1#2#3{ \setbox\xa\vbox{\vskip \boxitsep
\hbox{\hskip \boxitsep #3\hskip \boxitsep }\vskip \boxitsep }
\setbox\xb\hbox{\vrule width #1pt\bspace{#2}
\copy\xa \vrule width #1pt}
\vbox{\hrule height #1pt width 1\wd\xb
\copy\xb \hrule height #1pt width 1\wd\xb}}
%
\def\boxitsep{4pt}
 
% * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
\newdimen\offdimen
\def\offset#1#2{\offdimen #1
   \noindent \hangindent \offdimen
   \hbox to \offdimen{#2\hfil}\ignorespaces}
%
%The following comes from TEXMAG V1N7
%Here is a basic, no frills solution to the problem of aligning
%definitional  material.
%   Definitions
%    \definition        is used to align multiline
%                       definitions like this
%    \defnamespace      is used to change the amount
%                       of space allowed for the name
%
\newdimen\defnamespace   % Space for name in aligned definition
\defnamespace=2in        % Default value
\def\definition#1#2{     % Aligned definition
    \def\itema{\par\hang\textindent}
    {\advance\parindent by \defnamespace
     \advance\defnamespace by -.5em
     \itema{\hbox to \defnamespace{#1\hfil}}#2\par}}
% For more or less space for the name, say \defnamespace=xin before using
% \definition.  To avoid the indentation of the names,
% set \parindent to 0in before using.
% See the file DEF TEX for an example
%
%Miscellaneous Symbols
%
\def\notsign{\hbox{\sy\char'072}}     %^   YF
\def\TEX{\hbox{T\hskip-2pt\lower1.94pt\hbox{E}\hskip-2pt X}}
\def\wyz{\hbox{WI\hskip-1pt\lower.9pt\hbox{Z\hskip-1.85pt
\raise1.7pt\hbox{Z}}LE}}
\def\cents{\spose/c}    %cents sign
\def\\{$\backslash $}%\ when not in MM
\def\lc{$\{ $}     % \lc & \rc make braces when not in MM
\def\rc{$\} $}
% The command underwiggle puts a `wiggle' under the corresponding character.
% It is an adaptation of the TeX command \underbrace (TeXbook, page359)
\def\underwiggle#1{\mathop{\vtop{\ialign{##\crcr
    $\hfil\displaystyle{#1}\hfil$\crcr\noalign{\kern2pt\nointerlineskip}
    $\scriptscriptstyle\sim$\crcr\noalign{\kern2pt}}}}\limits}
% Define \( and \) to mean square braces as in Tex80%WICC
\def\({[}
\def\){]}
%
\def\uscore{$\underline{\ \ \ }$}
%
\def\hquad{\hskip.5em{}}
\mathchardef\app"3218
\def\degree{$ ^{\hbox{\sixsy\char'016}}$}
%
% Definitions to make version .8 compatible with version 1.1
\def\linebreak{\break}
\mathchardef\oprod="220A
\mathchardef\inter="225C
\mathchardef\union="225B
\def\rslash{\delimiter"26E30F }
\mathchardef\relv="326A
\mathchardef\leftv="326A
\mathchardef\rightv="326A
\mathchardef\relvv"326B
\mathchardef\leftvv"326B
\mathchardef\rightvv"326B
\mathchardef\Zscr"25A
\mathchardef\Yscr"259
\mathchardef\Xscr"258
\mathchardef\Wscr"257
\mathchardef\Vscr"256
\mathchardef\Uscr"255
\mathchardef\Tscr"254
\mathchardef\Sscr"253
\mathchardef\Rscr"252
\mathchardef\Qscr"251
\mathchardef\Pscr"250
\mathchardef\Oscr"24F
\mathchardef\Nscr"24E
\mathchardef\Mscr"24D
\mathchardef\Lscr"24C
\mathchardef\Kscr"24B
\mathchardef\Jscr"24A
\mathchardef\Iscr"249
\mathchardef\Hscr"248
\mathchardef\Gscr"247
\mathchardef\Fscr"246
\mathchardef\Escr"245
\mathchardef\Dscr"244
\mathchardef\Cscr"243
\mathchardef\Bscr"242
\mathchardef\Ascr"241
\mathchardef\lscr"160
\def\letterhead{
\vbox{\hbox{\hskip 1truein%
\special{insert(letall.imagen.*)}}\vskip 1.5truein}
\par}
\def\tree{
\vbox{\hbox{\hskip 2.251truein%
\special{insert(tree.imagen.*)}}\vskip .6truein}
\par}
\def\weiztree{
\vbox{\medskip\hbox{%
\special{insert(weiztree.imagen.*)}}\vskip 1.5truein}
\par}
\def\permil{\hbox{\tenpermille\char'045}}


