chemicke vzorce

[Josef Svoboda]

> chtel bych se zeptat zda nekdoresil a vyresil nasledujici vec, nejde nejak
> sikovne nadefinovat prikaz ktery by fungoval podobne jako treba ceske
> uvozovky, tj. daval by se text a cisla a on by cisla automaticky vysázel
> jako dolni index, pokud mu je explicitne nenapisu jinak?
> napr. /chem_vz (H2SO4 + HH4NO3 )

S pomoci TBN jsem to dal dohromady.
Josef Svoboda

%%% definice:

\def\for #1#2\endfor{\def\forbody##1{#2}\let\next=\forcycle
\next #1^^X}
\def\forcycle#1{\if \noexpand #1^^X\let\next=\relax
\else \forbody #1%
\fi \next}

\def\chem#1{
\for{#1}%
{\def\sazej{##1}%
\ifnum`##1>47 \ifnum`##1<58 \def\sazej{${}_##1$}\else\fi \else\fi
\sazej}%
\endfor
}

%%% pouziti:

\chem{H2SO4 + HNO3}

\end