chemicke vzorce

[Josef Svoboda]

Nova verze makra. Pro jistotu prikladam definicni cast jako prilohu.
Josef Svoboda

% Tiskne cisla jako dolni indexy
% Strada si cisla a tiskne je jako celek
% Dovoluje michat dolni a horni indexy
% Od zacatku do konce pracuje v matematickem modu
% Dovoluje pouzit ridici sekvence, napriklad \to
%%% Definice:

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

\def\subscript{}
\newif\ifgroup \groupfalse
\def\finish#1{\ifx\empty\subscript\else_{\subscript}\def\subscript{}\fi #1}

\def\chem#1{$\fam0
\for{#1}{%
\ifgroup \subsup{##1}\groupfalse \else
\ifcat _##1 \finish\relax \grouptrue \let\subsup=_\else
\ifcat ^##1 \finish\relax \grouptrue \let\subsup=^\else
\ifcat 0##1 \ifnum`##1>47 \ifnum`##1<58 \edef\subscript{\subscript ##1}\else
 \finish{##1}\fi \else\finish{##1}\fi \else\finish{##1}\fi \fi
\fi\fi
}\endfor
\finish\relax
$}


%%% Pouziti:

\chem{H2SO4}

\chem{C12H22O11 + HNO3 + S2 + Hg
 {\buildrel 666^\circ C \over \longrightarrow} Au}

\chem{{}^{235}_{92}U}   nebo   \chem{{}^{235} 92 U}

\chem{SO_{4}^{2-}}   nebo   \chem{SO4^{2-}}

\chem{H3O^+ + OH^- \to H2O + H2O}

\chem{H3O^+ + OH^- \to {\relax 2} H2O}

\chem{CaCO3 \cdot {\relax {1\over2}} H2O}

\end

-------------- next part --------------
A non-text attachment was scrubbed...
Name: chem.tex
Type: application/octet-stream
Size: 635 bytes
Desc: not available
URL: <http://lists.felk.cvut.cz/pipermail/cstex/attachments/20011201/04ed58b3/attachment-0001.obj>