\newcount\num
\newcount\res
\newcount\total
\def\pc#1{\num=#1\multiply\num by 1000 \divide \num by
\total \res=\num
\divide\res by 10 \multiply\res by 10 \advance\num by -5
\ifnum \num > \res
\divide \res by 10 \advance \res by 1
\else
\divide \res by10
\fi
#1 (\number\res\%)}
Hay que definir el número total de datos mediante \total=47, por ejemplo, y luego \pc{13} da 13 (28%)
Javier Ortiz me ha enviado esta forma de conseguir
manualmente
una página
en blanco:
\newpage{\pagestyle{empty}\cleardoublepage}
Aquí tienes mi QED inteligente. La instrucción \qed así definida pone un cuadradito negro a una distancia fija del margen derecho de la línea y, si no cabe, lo pone en la línea siguiente, pero siempre a la derecha. Si no te gusta el cuadradito negro puedes sustituir \blacksquare por cualquier otra cosa.
\def\blacksquare{\hbox{\vrule width 4pt height 4pt depth
0pt}}
\def\qed{\ \ \ \hbox{}\nolinebreak\hfill $\blacksquare
\ \
\ \ $ \par{}\medskip}