%------------------------------------------------------------------ % parts from AMSTeX Version 0.999999 (C) AMS 1983 % \catcode`\@=11 \def\@{\char'100 } \catcode`\~=13 \def\{{\relax@AmS\ifmmode\delimiter\dq4266308 \else$\delimiter\dq4266308$\fi} \def\}{\relax@AmS\ifmmode\delimiter\dq5267309 \else$\delimiter\dq5267309 $\fi} \def\tex{\TeX} % % STYLE, SPACING AND ALTERNATE NAMES \let\dsize=\displaystyle \let\tsize=\textstyle \let\ssize=\scriptstyle \let\sssize=\scriptscriptstyle \def\quad{\relax@AmS\ifmmode \hbox{\hskip1em}\else\hskip1em\relax@AmS\fi} % NOTE 20 \def\qquad{\quad\quad} \def\,{\relax@AmS\ifmmode\mskip\thinmuskip\else$\mskip\thinmuskip$\fi} \def\;{\relax@AmS \ifmmode\mskip\thickmuskip\else$\mskip\thickmuskip$\fi} \def\parsep{\par\penalty -50\vskip 3pt plus 3pt minus 3pt} \def\Parsep{\par\penalty -100\vskip 6pt plus 3pt minus 4pt} \def\frac#1#2{{#1\over#2}} \def\Frac#1#2{{\displaystyle{#1\over#2}}} \def\text#1{\hbox{\rm#1}} % % SOME BASIC CONTROL SEQUENCES USED IN OTHER DEFINITIONS % \def\eat@AmS#1{} \long\def\comp@AmS#1#2{\def\@AmS{#1}\def\@@AmS{#2}\ifx \@AmS\@@AmS\def\cresult@AmS{T}\else\def\cresult@AmS{F}\fi} \def\in@AmS#1#2{\def\intest@AmS##1#1##2{\comp@AmS##2\end@AmS\if T\cresult@AmS \def\cresult@AmS{F}\def\in@@AmS{}\else \def\cresult@AmS{T}\def\in@@AmS####1\end@AmS{}\fi\in@@AmS}% \def\cresult@AmS{F}\intest@AmS#2#1\end@AmS} % % ALIGNED UNITS % \let\relax@AmS=\relax \def\Let@AmS{\relax@AmS\iffalse{\fi\let\\=\cr\iffalse}\fi} \def\align{\def\vspace##1{\noalign{\vskip ##1}} \,\vcenter\bgroup\Let@AmS\tabskip=0pt\openup3pt\mathsurround=0pt \halign\bgroup\strut \hfil$\displaystyle{##}$&$\displaystyle{{}##}$\hfil\cr} \def\endalign{\strut\crcr\egroup\egroup} % \def\bunch{\def\vspace##1{\noalign{\vskip ##1}} \,\vcenter\bgroup\Let@AmS\tabskip=0pt\openup3pt\mathsurround=0pt \halign\bgroup\strut\hfil$\displaystyle{##}$\hfil\cr} \def\endbunch{\strut\crcr\egroup\egroup} % \def\cases{\left\{ \,\vcenter\bgroup\Let@AmS\normalbaselines\tabskip=0pt \halign\bgroup$##\hfil$&\qquad$##\hfil$\cr} \def\endcases{\crcr\egroup\egroup\right.} % \def\matrix{\catcode`\^^I=4 \futurelet\tok@AmS\matrix@AmS} \def\matrix@AmS{\relax@AmS\iffalse{\fi \ifnum`}=0\fi\ifx\tok@AmS\format \def\next@AmS{\expandafter\matrix@@AmS\eat@AmS}\else \def\next@AmS{\matrix@@@AmS}\fi\next@AmS} \def\matrix@@@AmS{ \ifnum`{=0\fi\iffalse}\fi\,\vcenter\bgroup\Let@AmS\tabskip=0pt \normalbaselines\halign\bgroup $\strut\hfil##\hfil$&&\quad$\strut \hfil##\hfil$\cr\strut\cr\noalign{\kern-\baselineskip}} \def\matrix@@AmS#1\\{ \def\premable@AmS{#1}\toks@{##} \def\c{$\copy\strutbox\hfil\the\toks@\hfil$}\def\r {$\copy\strutbox\hfil\the\toks@$}% \def\l{$\copy\strutbox\the\toks@\hfil$}% \setbox0= \hbox{\xdef\Preamble@AmS{\premable@AmS}} \def\vspace##1{\noalign{\vskip ##1}}\ifnum`{=0\fi\iffalse}\fi \,\vcenter\bgroup\Let@AmS \tabskip=0pt\normalbaselines\halign\bgroup\span\Preamble@AmS\cr \mathstrut\cr\noalign{\kern-\baselineskip}} \def\endmatrix{\crcr\mathstrut\cr\noalign{\kern-\baselineskip }\egroup\egroup\,\catcode`\^^I=10 } % STUFF FOR BIBLIOGRAPHY \def\refto#1{\in@AmS,{#1}\if T\cresult@AmS\refto@AmS#1\end@AmS\else [{\bf#1}]\fi} \def\refto@AmS#1,#2\end@AmS{[{\bf#1},#2]} \def\Refs{\bigbreak\hbox to \hsize{\hfil\tenpoint \smc \Referenceword@AmS\hfil}\penalty 10000 \bigskip\eightpoint\sfcode`.=1000 } \newbox\nobox@AmS \newbox\keybox@AmS \newbox\bybox@AmS \newbox\bysamebox@AmS \newbox\paperbox@AmS \newbox\paperinfobox@AmS \newbox\jourbox@AmS \newbox\volbox@AmS \newbox\issuebox@AmS \newbox\yrbox@AmS \newbox\pagesbox@AmS \newbox\bookbox@AmS \newbox\bookinfobox@AmS \newbox\publbox@AmS \newbox\publaddrbox@AmS \newbox\finalinfobox@AmS \def\refset@AmS#1{\expandafter\gdef\csname is\expandafter\eat@AmS \string#1@AmS\endcsname{F}\expandafter \setbox\csname \expandafter\eat@AmS\string#1box@AmS\endcsname=\null} \def\ref@AmS{\refset@AmS\no \refset@AmS\key \refset@AmS\by \gdef\isbysame@AmS{F}% \refset@AmS\paper \refset@AmS\paperinfo \refset@AmS\jour \refset@AmS\vol \refset@AmS\issue \refset@AmS\yr \gdef\istoappear@AmS{F}% \refset@AmS\pages \gdef\ispage@AmS{F}% \refset@AmS\book \gdef\isinbook@AmS{F}% \refset@AmS\bookinfo \refset@AmS\publ \refset@AmS\publaddr \refset@AmS\finalinfo \bgroup \ignorespaces} \def\ref{\noindent\hangindent 20pt \hangafter 1 \def\refi@AmS{T}% \def\refl@AmS{F}\def\\{\egroup\endref@AmS\gdef\refi@AmS{F}\ref@AmS}\ref@AmS} \def\refdef@AmS#1#2{\def#1{\egroup\expandafter \gdef\csname is\expandafter\eat@AmS \string#1@AmS\endcsname{T}\expandafter\setbox \csname \expandafter\eat@AmS\string#1box@AmS\endcsname=\hbox\bgroup#2}} \refdef@AmS\no{} \refdef@AmS\key{} \refdef@AmS\by{} \def\bysame{\egroup\gdef\isbysame@AmS{T}\bgroup} \refdef@AmS\paper\it \refdef@AmS\paperinfo{} \refdef@AmS\jour{} \refdef@AmS\vol\bf \refdef@AmS\issue{} \refdef@AmS\yr{} \def\toappear{\egroup\gdef\istoappear@AmS{T}\bgroup} \refdef@AmS\pages{} \def\page{\egroup\gdef\ispage@AmS{T}\setbox \pagesbox@AmS=\hbox\bgroup} \refdef@AmS\book{} \def\inbook{\egroup\gdef\isinbook@AmS{T}\setbox \bookbox@AmS=\hbox\bgroup} \refdef@AmS\bookinfo{} \refdef@AmS\publ{} \refdef@AmS\publaddr{} \refdef@AmS\finalinfo{} \def\setpunct@AmS{\def\prepunct@AmS{, }} \def\ppunbox@AmS#1{\prepunct@AmS\unhbox#1\unskip} \def\endref@AmS{\def\prepunct@AmS{}% \if T\refi@AmS \if F\isno@AmS\hbox to 10pt{}\else \hbox to 20pt{\hss\unhbox\nobox@AmS\unskip. }\fi \if T\iskey@AmS \unhbox\keybox@AmS\unskip\ \fi \if T\isby@AmS \hbox{\unhcopy\bybox@AmS\unskip}\setpunct@AmS \setbox\bysamebox@AmS=\hbox{\unhcopy\bybox@AmS\unskip}\fi \if T\isbysame@AmS \hbox to \wd\bysamebox@AmS{\leaders\hrule\hfill}\setpunct@AmS\fi \fi \if T\ispaper@AmS\ppunbox@AmS\paperbox@AmS\setpunct@AmS\fi \if T\ispaperinfo@AmS\ppunbox@AmS\paperinfobox@AmS\setpunct@AmS\fi \if T\isjour@AmS\ppunbox@AmS\jourbox@AmS\setpunct@AmS \if T\isvol@AmS \ \unhbox\volbox@AmS\unskip\setpunct@AmS\fi \if T\isissue@AmS \ \unhbox\issuebox@AmS\unskip\setpunct@AmS\fi \if T\isyr@AmS \ (\unhbox\yrbox@AmS\unskip)\setpunct@AmS\fi \if T\istoappear@AmS \ (to appear)\setpunct@AmS\fi \if T\ispages@AmS \ppunbox@AmS\pagesbox@AmS\setpunct@AmS\fi \if T\ispage@AmS \prepunct@AmS p.\ \unhbox\pagesbox@AmS\unskip\setpunct@AmS\fi \fi \if T\isbook@AmS \prepunct@AmS ``\unhbox\bookbox@AmS\unskip''\setpunct@AmS\fi \if T\isinbook@AmS \prepunct@AmS \unskip\ in ``\unhbox\bookbox@AmS\unskip''\setpunct@AmS \gdef\isbook@AmS{T}\fi \if T\isbookinfo@AmS \ppunbox@AmS\bookinfobox@AmS\setpunct@AmS\fi \if T\ispubl@AmS \ppunbox@AmS\publbox@AmS\setpunct@AmS\fi \if T\ispubladdr@AmS \ppunbox@AmS\publaddrbox@AmS\setpunct@AmS\fi \if T\isbook@AmS \if T\isyr@AmS \prepunct@AmS \unhbox\yrbox@AmS\unskip \setpunct@AmS\fi \if T\istoappear@AmS \ (to appear)\setpunct@AmS\fi \if T\ispages@AmS \prepunct@AmS pp.\ \unhbox\pagesbox@AmS\unskip\setpunct@AmS\fi \if T\ispage@AmS \prepunct@AmS p.\ \unhbox\pagesbox@AmS\unskip\setpunct@AmS\fi \fi \if T\isfinalinfo@AmS \period\unhbox\finalinfobox@AmS\else \if T\refl@AmS .\else ; \fi\fi} \def\endref{\egroup\gdef\refl@AmS{T}\endref@AmS\par} % EXTRA FONTS NEEDED \font\eightrm=cmr8 \font\sixrm=cmr7 %cmr6 % fonts not on Atari \font\eighti=cmmi10 %cmmi8 \skewchar\eighti='177 \font\sixi=cmmi7 %cmmi6 \skewchar\sixi='177 \font\eightsy=cmsy10 %cmsy8 \skewchar\eightsy='60 \font\sixsy=cmsy7 %cmsy6 \skewchar\sixsy='60 \font\eightbf=cmbx10 %cmbx8 \font\sixbf=cmbx7 %cmbx6 \font\eightsl=cmsl10 %cmsl8 \font\eightit=cmsl10 %cmti8 \font\tensmc=cmcsc10 % TWO DIFFERENT POINT SIZES \def\tenpoint{\def\pointsize@AmS{t}\normalbaselineskip=12pt % NOTE 1 \abovedisplayskip 12pt plus 3pt minus 9pt \belowdisplayskip 12pt plus 3pt minus 9pt \abovedisplayshortskip 0pt plus 3pt \belowdisplayshortskip 7pt plus 3pt minus 4pt \def\rm{\fam0\tenrm}% \def\it{\fam\itfam\tenit}% \def\sl{\fam\slfam\tensl}% \def\bf{\fam\bffam\tenbf}% \def\smc{\tensmc}% \def\mit{\fam 1}% \def\cal{\fam 2}% \textfont0=\tenrm \scriptfont0=\sevenrm \scriptscriptfont0=\fiverm \textfont1=\teni \scriptfont1=\seveni \scriptscriptfont1=\fivei \textfont2=\tensy \scriptfont2=\sevensy \scriptscriptfont2=\fivesy \textfont3=\tenex \scriptfont3=\tenex \scriptscriptfont3=\tenex \textfont\itfam=\tenit \textfont\slfam=\tensl \textfont\bffam=\tenbf \scriptfont\bffam=\sevenbf \scriptscriptfont\bffam=\fivebf \normalbaselines\rm} \def\eightpoint{\def\pointsize@AmS{8}\normalbaselineskip=10pt \abovedisplayskip 10pt plus 2.4pt minus 7.2pt \belowdisplayskip 10pt plus 2.4pt minus 7.2pt \abovedisplayshortskip 0pt plus 2.4pt \belowdisplayshortskip 5.6pt plus 2.4pt minus 3.2pt \def\rm{\fam0\eightrm}% \def\it{\fam\itfam\eightit}% \def\sl{\fam\slfam\eightsl}% \def\bf{\fam\bffam\eightbf}% \def\mit{\fam 1}% \def\cal{\fam 2}% \textfont0=\eightrm \scriptfont0=\sixrm \scriptscriptfont0=\fiverm \textfont1=\eighti \scriptfont1=\sixi \scriptscriptfont1=\fivei \textfont2=\eightsy \scriptfont2=\sixsy \scriptscriptfont2=\fivesy \textfont3=\tenex \scriptfont3=\tenex \scriptscriptfont3=\tenex \textfont\itfam=\eightit \textfont\slfam=\eightsl \textfont\bffam=\eightbf \scriptfont\bffam=\sixbf \scriptscriptfont\bffam=\fivebf \normalbaselines\rm} \catcode`\@=12