path: root/Master/texmf-dist/tex/phyzzx/base/myphyx.tex

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% MYPHYX for TEX Version 2.9   -- created 12/15/88
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
\def\MYHEAD{\setbox0=\vtop{\baselineskip=10pt
     \ialign{\eightrm ##\hfil\cr
        \slacbin\cr
        P.~O.~Box 4349\cr
        Stanford, CA 94309\cropen{1\jot}
        (415) 926--4423\cr
        SHARON at SLACVM\cr}}%
   \setbox2=\hbox{\caps Stanford Linear Accelerator Center}%
   \hrule height 0pt \kern -0.5in
   \vbox to 0pt{\vss\centerline{\seventeenrm STANFORD UNIVERSITY}}
   \vbox{} \medskip
   \line{\hbox to 0.7\hsize{\hss \lower 10pt \box2 \hfill }\hfil
         \hbox to 0.25\hsize{\box0 \hfil }}\medskip }
 
  \def\myletter{\let\letterhead=\MYHEAD \letter}
  \def\binno{81}
  \def\slacext{2266}
  \def\half{\hbox{${1\over 2}\,$}}
  \def\etal{{\it et al.}}
 
  \def\bar#1{\overline{#1}}
  \def\kbar{{\mathchar'26\mskip-9muk}}
  \def\pbar{{\rlap/p}}
  \def\ubar{\bar{u}}
  \def\dbar{\bar{d}}
 
  \def\str{\penalty-10000\hfilneg\ }    % line break with right adjust
  \def\Str{\penalty-10000\hfilneg\ }    % line break with right adjust
  \def\nostr{\hfill\penalty-10000\ }    % line break with ragged right
  \let\brk=\nextline
  \def\|{\vrule height 16pt depth 6 pt}
 
\def\ZZ{\hbox{$\not\kern0.15em\not\kern-0.21em\lower0.2em
        \vbox{\hrule width 0.52em height 0.06em depth 0pt}
        \kern-0.50em\raise0.7em
        \vbox{\hrule width 0.52em height 0.06em depth 0pt}$}}
 
\def\frac#1/#2{\leavevmode\kern.1em\raise.5ex\hbox{\the\scriptfont0
         #1}\kern-.1em/\kern-.15em\lower.25ex\hbox{\the\scriptfont0 #2}}
 
%   \frac3/4 gives you a very nice 3/4 - slanted.
 
  \def\IR{{$\rm I\!R$}}
  \def\lozenge{\boxit{\hbox to 1.5pt{
               \vrule height 1pt width 0pt \hfill}}}
 
  \def\Buildrel#1\under#2{\mathrel{\mathop{#2}\limits_{#1}}}
  \def\simZ{{\Buildrel \sim \under Z}}
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% This macro inserts pictures (and, more generally, \vbox es) neatly
%   into the MIDDLE of a paragraph.
%        --- #1 should be a \vbox ---
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
  \def\pix#1{\vadjust{\vbox{\kern 1.0cm #1 \kern 1.0cm}}}
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% These macros insert (\vbox es) using respectively \topinsert and
%     \pageinsert.  Since these macros put you into vertical mode,
%     they should only be called BETWEEN paragraphs.
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
  \def\tpix#1{\topinsert #1 \endinsert}
  \def\ppix#1{\pageinsert #1 \endinsert}
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%  To define a \vbox for an inserted figure, use the following command:
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% \Picture\CompEP\height=4.125in \width=\hsize\caption{\narrower
%         The caption goes here.}
% \savepicture\FigureOne
%        (\Picture  calls \FIG and assigns the figure the caption
%                indicated and the figure number \CompEP.  It also
%                creates a \vbox of the right size for a picture
%                of the indicated height, and \savepicture assigns this
%                to the macro \FigureOne.)
%
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% TWO LINE MACRO (used in tables)
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
\def\twoline#1:#2#3{\vtop{\hbox to #1{\hss \strut #2 \hss}
                          \hbox to #1{\hss \strut #3 \hss}}}
%
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% Three nice dots left to right moving upward.
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
\def\mddots{\mathinner{\mskip1mu\raise1pt\hbox{.}\mskip2mu
   \raise4pt\hbox{.}\mskip2mu\raise7pt\vbox{\kern7pt\hbox{.}}\mskip1mu}}
%
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% \clock returns time in hours:minutes on a 24 hour basis
% check \fullclock too
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
\newcount\timecount
\newcount\hours \newcount\minutes  \newcount\temp \newcount\pmhours
 
\hours = \time
\divide\hours by 60
\temp = \hours
\multiply\temp by 60
\minutes = \time
\advance\minutes by -\temp
\def\hour{\the\hours}
\def\minute{\ifnum\minutes<10 0\the\minutes
            \else\the\minutes\fi}
\def\clock{
\ifnum\hours=0 12:\minute\ AM
\else\ifnum\hours<12 \hour:\minute\ AM
      \else\ifnum\hours=12 12:\minute\ PM
            \else\ifnum\hours>12
                 \pmhours=\hours
                 \advance\pmhours by -12
                 \the\pmhours:\minute\ PM
                 \fi \fi \fi \fi }
 
\def\fullclock{\hour:\minute}
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% \draft causes the symbolic names of equations to be printed
%        alongside the equation numbers
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
\let\eqnameold=\eqname
\def\draft{\def\eqname##1{\eqnameold##1:{\tt\string##1}}}
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% Letter with no letterhead
% insert \blankheads after \letters
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
\def\blankheads{\let\letterhead=\blankletterhead
    \lettertopskip=7pt plus 3pt}
\def\blankletterhead{\hrule height 0pt \vskip 1.3in}
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%  this gives you a boldface character in math mode.
%     $\bold\beta$
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
\def\bold#1{\setbox0=\hbox{$#1$}%
     \kern-.025em\copy0\kern-\wd0
     \kern.05em\copy0\kern-\wd0
     \kern-.025em\raise.0433em\box0 }
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%  Definition for a slash over a letter
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
% from M. Peskin
\def\dslash{\not{\hbox{\kern-2pt $\partial$}}}
\def\Dslash{\not{\hbox{\kern-4pt $D$}}}
\def\Qslash{\not{\hbox{\kern-4pt $Q$}}}
\def\pslash{\not{\hbox{\kern-2.3pt $p$}}}
\def\kslash{\not{\hbox{\kern-2.3pt $k$}}}
\def\qslash{\not{\hbox{\kern-2.3pt $q$}}}
%
%
 \newtoks\slashfraction
 \slashfraction={.13}
 \def\slash#1{\setbox0\hbox{$ #1 $}
 \setbox0\hbox to \the\slashfraction\wd0{\hss \box0}/\box0 }
 
% EXAMPLE OF HOW TO USE IT
% $\slash D$
% {\slashfraction={.075} $\slash{\cal A}$}
% $\slash B$
% $\slash a$
% {\slashfraction={.09} $\slash p$}
% $\slash q$
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% this gives you \leftrightarrow over \slash\partial
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
 \def\leftrightarrowfill{$\mathord-\mkern-6mu%
   \cleaders\hbox{$\mkern-2mu\mathord-\mkern-2mu$}\hfill
   \mkern-6mu\mathord\leftrightarrow$}
 \def\overlrarrow#1{\vbox{\ialign{##\crcr
       \leftrightarrowfill\crcr\noalign{\kern-1pt\nointerlineskip}
       $\hfil\displaystyle{#1}\hfil$\crcr}}}
 
%  $$ \overlrarrow{\slash\partial} $$
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%  This is a macro written by Marvin which makes Young tableaux:
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
  \def\yboxit#1#2{\vbox{\hrule height #1 \hbox{\vrule width #1
                  \vbox{#2}\vrule width #1 }\hrule height #1 }}
 
  \def\fillbox#1{\hbox to #1{\vbox to #1{\vfil}\hfil}}
  \def\ybox{\yboxit{0.4pt}{\fillbox{8pt}}\hskip-0.4pt}
  \def\nbox{\yboxit{0pt}{\fillbox{8pt}}}
 
  \def\tableaux#1{\vcenter{\offinterlineskip
                  \halign{&\tabskip 0pt##\cr #1}}}
  \def\cry{\cropen{-0.4pt}}
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
% An example of the use of \tableaux is:
% $$ X = \tableaux{\ybox & \ybox & \ybox \cry
%                  \ybox & \ybox & \nbox \cry
%                  \ybox & \nbox & \nbox \cry} $$
%
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%       by M. Peskin
%       These macros make 4- and 5-pt skeleton diagrams
%            with labelled endpoints and internal lines.
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
  \def\fourptfcn#1#2#3#4#5{ \matrix{#1\cr\cr#2\cr}
      \hbox{$  \Bigg\rangle \kern -2.5pt
         {\phantom{whichcan}\over {\textstyle \downabit #5} }
           \kern-2.5pt  \Bigg\langle$} \matrix{#3\cr\cr#4\cr} }
  \def\fiveptfcn#1#2#3#4#5#6#7{ \matrix{#1\cr\cr#2\cr}
      \hbox{$  \Bigg\rangle \kern -2.5pt
        {{\pile} \lower  6pt\hbox{$\spire#5$} {\pile}\over
           \phantom{can}{\textstyle \downabit#6}\phantom{which}
             {\textstyle \downabit #7}\phantom{can}}
               \kern-2.5pt \Bigg\langle$} \matrix{#3\cr\cr#4\cr} }
  \def\spire#1{\matrix{#1\cr\Bigm|\cr}}
  \def\pile{\phantom{\matrix{1\cr2\cr3\cr}}}
  \def\downabit{\vphantom{\bigm|}}
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
\def\unlock{\catcode`@=11}   % This allows us to modify PLAIN macros.
%
\def\lock{\catcode`@=12}     % at signs are no longer letters
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% These changes give you references on the line in brackets [3]
% and in the reference list.  [1]  A. Einstein ...
%
%
%\unlock
%\def\step@ver#1{\rel@x \ifmmode #1\else \ifhmode
%        \roll@ver{$\ {} #1$ }\else {\setbox0=\hbox{${} #1$ }}\fi\fi }
%\def\attach#1{\step@ver{\strut {\mkern 4mu #1} }}
%\def\normalrefmark#1{\attach{ [ #1 ] }}
%\def\NPrefmark#1{\step@ver{{\ [#1]}}}
%\def\refitem#1{\r@fitem{[#1]}}
%\lock
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%