%     P H Y S F . S T Y
%
%     version 1.05 (March 2004) by k-fleak
%
%
%_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/

\makeatletter
\def\tensor{\@ifnextchar[{\@tensor}{\@tensor[]}}
\def\@tensor[#1]#2#3#4{\if#1b\bigg(\frac{\partial\if#21\else^#2\fi#3}{\partial#4\if#21\else^#2\fi}\bigg) \else\frac{\partial^#2#3}{\partial#4^#2} \fi}
\def\func{\@ifnextchar[{\@func}{\@func[]}}
\def\@func[#1]#2#3#4{\if#1n#2_{\rm #3} \else#2_{\rm #3}(#4)\fi}
\def\tfunc{\@ifnextchar[{\@tfunc}{\@tfunc[]}}
\def\@tfunc[#1]#2#3#4{\if#1n$#2_{\rm #3}$ \else$#2_{\rm #3}(#4)$\fi}
\def\eVJ#1{
\newdimen\ee
\newdimen\jj
\ee=#1\p@
\jj=1.602\ee
\expandafter\Con\the\jj}
{\catcode`\p=12\catcode`t=12\gdef\Con#1pt{#1e-19 J}}
\def\proj#1{\left|#1\right>\left<#1\right|}
\def\norm#1#2{\left<#1|#2\right>}
\def\tkb{$k_{\rm B}$}
\def\kb{k_{\rm B}}
\def\te#1{$e^{#1}}
\def\DebT{\Theta_{\rm D}}
\def\eqnd#1#2#3#4{\begin{eqnarray}#1\vphantom{#3} \nonumber \\ #2\vphantom{#4}\end{eqnarray}}
\def\eqnt#1#2#3#4#5#6{\begin{eqnarray}#1\vphantom{#4} \nonumber \\ #2\vphantom{#5} \nonumber \\ #3\vphantom{#6} \end{eqnarray}}
%\def\seqn2#1#2#3#4#5{\begin{equation}\begin{split}#1&#2\vphantom{#4}\\&#3\vphantom{#5}\end{split}\end{equation}} %Use in the environment where "amsmath package" is included. 
%\def\seqn3#1#2#3#4#5#6#7{\begin{equation}\begin{split}#1&#2\vphantom{#5}\\&#3\vphantom{#6}\\&4\vphantom{\7}\end{split}\end{equation}} %%Use in the environment where "amsmath package" is included.
\makeatother


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%
%                                    Instruction
%
%Installation
%~~~~~~~~~~~~~
%o At first, put this file in the proper directory, i.e. /texmf/tex/.../misc, then
%  include this file: type "\usepackage{Physf}" in the preamble.
%
%Command list
%~~~~~~~~~~~~~
%o \tensor[a1]{a2}{a3}{a4} : a2th-order partial differentiation.
%         The 1st argument can be omitted: if argument a1="b", bracketed off.
%         a3 is the numerator, and a4 is the denominator.
%
%o  \func[a1]{a2}{a3}{a4}  : Print function with its parameter.
%          Please use in the {equation} environment.
%          The 1st argument can be omitted: if argument a1="n", parameter is omitted.
%          a2 is the name of function, a3 is subscript written in roman style, and 
%          a4 is its parameter.
%
%o  \tfunc[a1]{a2}{a3}{a4} : It has the same function of \func. Please use in plain text.
%
%o  \eVJ{} : Convert (eV) to (J): For example, \eVJ{20} results in "32.04e-19 J".
%
%o  \proj{a1} : Print projector operator |a1><a1| in the {equation} environment.
%
%o  \norm{a1}{a2} : Print dot product <a1|a2>.  
%
%o  \tproj{a1} : Print projector operator |a1><a1| in the plain text.
%
%o  \tkb   : Boltzmann constant. Please use in the plain text.
%
%o  \kb    : Boltzmann constant. Please use in the {equation} environment.
%
%o  \te    : exponential.
%
%o  \DebT  : Debye temperature.
%
%o  \eqnd{a1}{a2}{a3}{a4]  : Print equation in 2 line, with its running number only in its tag end.
%            The 1st and the 2nd argment correspond to the 1st and 2nd line in equation, respectively.
%            The 3rd and the 4th argment is the valign of the reference tag for each line, that is, 
%            using "\vphantom{argment}".
%o  \eqnt{a1-a6} : It has almost the same function of \eqnd: using equation for 3 line.
%            Argment a1-a3 are each line of equation, and a4-a6 the reference tag, as described above.
%                 
%
%                         Send problem reports to bloodsugar10@hotmail.com