\newcount\ancho \newcount\anchom \newcount\anchoa \newcount\anchob
                     % Usadas para el comando \triangulo


\newcommand{\arctg}{\mathop{\rm arctg}\nolimits}   % Función arcotangente
\newcommand{\arcsen}{\mathop{\rm arcsen}\nolimits}   % Función arcoseno


\newcommand{\circulo}[1]{% http://www.gt.matfun.ull.es/angel/latexps/circulo.pdf
           \begin{picture}(10,10)(0,0)
                \setlength{\unitlength}{#1pt}
                \qbezier(1,0)(1,-.41421)(.70710,-.70710)
                \qbezier(.70710,-.70710)(.41421,-1)(0,-1)
                \qbezier(0,-1)(-.41421,-1)(-.70710,-.70710)
                \qbezier(-.70710,-.70710)(-1,-.41421)(-1,0)
                \qbezier(-1,0)(-1,.41421)(-.70710,.70710)
                \qbezier(-.70710,.70710)(-.41421,1)(0,1)
                \qbezier(0,1)(.41421,1)(.70710,.70710)
                \qbezier(.70710,.70710)(1,.41421)(1,0)
           \end{picture} }

\newcommand{\comp}{\makebox[7pt]{\raisebox{1.5pt}{\tiny $\circ$}}}
                 % Circulito para composión
\newcommand{\cotg}{\mathop{\rm cotg}\nolimits}   % Función cotangente
\newcommand{\fboxn}[1]{\fboxrule=.8pt \fboxsep=5pt \fbox{#1}%
               \fboxrule=.4pt \fboxsep= 3pt} % Nuevo grueso y espacio entre
               % texto y marco. Después establece los valores por defecto
\newcommand{\grados}{{\mbox{\textordmasculine}}}
\newcommand{\integral}[2]{\int_{_{\scriptstyle #1}}^{#2}}
                 % Nueva colocación del límite inferior
\newcommand{\M}[1]{{\sf #1}}  % Notacion para una variedad
\newcommand{\MM}{${\cal M}\,$}  % Notacion para una superficie
\newcommand{\RR}{\mbox{{\sl I}}\!\mbox{{\sl R}}}
\newcommand{\SC}{\mathop{\mathfrak S}\limits} % Suma cíclica, permite subíndic
\newcommand{\sech}{\mathop{\rm sech}\nolimits} % Función sech
\newcommand{\sen}{\mathop{\rm sen}\nolimits} % Función sen (Usada a veces)
\newcommand{\senh}{\mathop{\rm senh}\nolimits} % Función senh
\newcommand{\tagh}{\mathop{\rm tagh}\nolimits}   % Función tangente hiperbóli
\newcommand{\tag}{\mathop{\rm tag}\nolimits}   % Función tangente
\newcommand{\triangulo}[1]{\ancho=20
           \anchom=\ancho \divide\anchom by 2
           \anchoa=\ancho \divide\anchoa by 4
           \anchob=\anchom \advance\anchob by \anchoa
           \stackrel{
           \begin{picture}(1,3)(\anchom,0)
                \linethickness{.2pt}
                \qbezier(0,0)(\anchom,0)(\ancho,0)
                \qbezier(0,0)(\anchoa,1.5)(\anchom,3)
                \qbezier(\ancho,0)(\anchob,1.5)(\anchom,3)
           \end{picture}}
           {#1}         }