\font\tenrm    time at 10.3pt % roman text
\font\sevenrm  time at 7.6pt
\font\fiverm   time at 5.6pt

\font\teni     mtmi2 at 10.3pt
\font\seveni   mtmi2 at 7.6pt
\font\fivei    mtmi2 at 5.6pt

\font\tensy    mtsy2 at 10.3pt % math symbols
\font\sevensy  mtsy2 at 7.6pt
\font\fivesy   mtsy2 at 5.6pt

\font\tenex    mtex2 at 10.3pt % math extension
%%

\def\vdelta{{\teni\char1}}
\def\vphi{{\teni\char8}}


%%
% URW grotesk pro vektory
\newfam\vefam
\font\tenve    ugrot at 10.3pt
\textfont\vefam=\tenve
\def\vec#1{{\fam\vefam #1}}

% Silvio Levy's nonslanted greek
\font\tengr    gr10 scaled 1030
\font\sevengr  gr7
\font\fivegr   gr5
\let\oldpi\pi
\def\pi{{\mathchoice{\hbox{\tengr p}}{\hbox{\tengr p}}
            {\hbox{\sevengr p}}{\hbox{\fivegr p}}}}
\def\mugr{\mathchoice{\hbox{\tengr m}}{\hbox{\tengr m}}
            {\hbox{\sevengr m}}{\hbox{\fivegr m}}}
\let\mathmu\mu
\def\mu{\ifmmode\mathmu\else$\mugr$\fi}

\skewchar\teni='55 \skewchar\seveni='55 %\skewchar\fivei='55
\skewchar\tensy='60 \skewchar\sevensy='60 %\skewchar\fivesy='60
\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\bffam\tenbf \scriptfont\bffam\sevenbf \scriptscriptfont\bffam\fivebf

% \newfam\safam % math symbols
% \font\tensa   msam10 at 10.3pt
% \font\sevensa msam7
% \skewchar\tensa='60   \skewchar\ninesa='60
% \skewchar\sevensa='60 \skewchar\fivesa='60
%  \textfont\safam=\tensa \scriptfont\safam=\sevensa
%   \scriptscriptfont\safam=\fivesa

\catcode`\@=11
\mathchardef\Gamma="0130
\mathchardef\Delta="0131
\mathchardef\Theta="0132
\mathchardef\Lambda="0133
\mathchardef\Xi="0134
\mathchardef\Pi="0135
\mathchardef\Sigma="0136
\mathchardef\Upsilon="0137
\mathchardef\Phi="0138
\mathchardef\Psi="0139
\mathchardef\Omega="017F
\mathchardef\varGamma="0100
\mathchardef\varDelta="0101
\mathchardef\varTheta="0102
\mathchardef\varLambda="0103
\mathchardef\varXi="0104
\mathchardef\varPi="0105
\mathchardef\varSigma="0106
\mathchardef\varUpsilon="0107
\mathchardef\varPhi="0108
\mathchardef\varPsi="0109
\mathchardef\varOmega="010A
\mathchardef\varkappa="017E
\let\phi\varphi
\let\kpa\varkappa
\mathcode`\(="412E
\mathcode`\)="512F
\delcode`\(="12E300
\delcode`\)="12F301
\mathcode`\.="013A
\mathcode`\,="613B
\mathchardef\ldotp="613A
\mathchardef\triangleleft="2247
\mathchardef\triangleright="2246
% \def\vec{\mathaccent"0245 }
\mathchardef\comp="2242
\mathcode`\+="2243
\mathcode`\=="3244
\mathchardef\Relbar="3248
\mathcode`\;="6249

% \mathchardef\le="3935
% \mathchardef\ge="393D
\def\,{\relax\ifmmode\mskip\thinmuskip
        \else\thinspace\penalty\@M\hskip0pt\fi}
\let\;\,
\def\!{\relax\ifmmode\mskip-\thinmuskip\else\negthinspace\fi}
\def\frac#1#2{{#1\over#2}}
\def\dfrac #1#2{{\displaystyle{#1\over#2}}}
\let\frc\dfrac
\delimiterfactor 900 \delimitershortfall 6pt
\def\tfrac#1#2{{\textstyle{#1\over#2}}}
\def\rad{\mathop{\rm rad}\nolimits}
\def\tg{\mathop{\rm tg}\nolimits}
\def\tgh{\mathop{\rm tgh}\nolimits}
\def\arctg{\mathop{\rm arctg}\nolimits}
\def\cotg{\mathop{\rm cotg}\nolimits}
\def\cotgh{\mathop{\rm cotgh}\nolimits}
\def\arccotg{\mathop{\rm arccotg}\nolimits}

\def\vv{\vec v}
\def\vF{\vec F}
\def\veE{\vec E}
\def\vE{\vec E}

