Psani jednotek a chem. vzorcu

[Rylek Tomas]

\documentstyle[11pt,czech]{article}

\makeatletter
\def\@chmf#1#2{\@for\@munit:=#2\do{\expandafter\@@chmf\@munit(#1)}}
\def\@@chmf#1=#2(#3){\expandafter\font\csname#1mi\endcsname=#3#2}

\def\setmathfont#1{\@chmf{#1}{fiv=5,six=6,sev=7,egt=8,nin=9,ten=10,%
elv=10\@halfmag,twl=12,frtn=10\@magscale2,svtn=10\@magscale3,%
twnty=10\@magscale4,twfv=10\@magscale5}\unboldmath}

\def\mathrm{\setmathfont{cmr}\mathcode`.="302E\relax}
\def\mathmi{\setmathfont{cmmi}\mathcode`.="303A\relax}

\begin{document}
\mathrm Tohle jsou chemicke vzorce: $H_2SO_4+2.Na=Na_2SO_4+H_2$.

\mathmi A tohle je matematika: $3.e^{i\pi}+3=0$.
\end{document}