Deseo crear un comando que defina dos nuevos operadores matemáticos, siendo uno una versión en mayúscula del otro. Por ejemplo, el comando \makeoperator{log}
crearía \log
y \Log
componería registros en minúsculas y mayúsculas. Hasta ahora, tengo lo siguiente (crédito de la primera parte para egreg):
\makeatletter
\newcommand{\Capitalize}[1]{%
\edef\@tempa{\expandafter\@gobble\string#1}%
\edef\@tempb{\expandafter\@car\@tempa\@nil}%
\edef\@tempa{\expandafter\@cdr\@tempa\@nil}%
\uppercase\expandafter{\expandafter\def\expandafter\@tempb\expandafter{\@tempb}}%
\@namedef{\@tempb\@tempa}{\expandafter\MakeUppercase\expandafter{#1}}}
\makeatother
\def\makeoperator#1{%
\expandafter\def\csname #1\endcsname{\operatorname{#1}}%
\Capitalize{\csname #1\endcsname}%
}
pero esto produce un error de secuencia de control indefinido. ¿Lo que está mal?
Respuesta1
Si prefieres los comandos primitivos TeX en lugar de los comandos Expl3 (similares a mí), entonces puedes hacer:
\def\DeclareDoubleMathOperator#1{\ddmoA#1\end}
\def\ddmoA#1#2\end{\uppercase{\ddmoB#1}#1{#2}}
\def\ddmoB#1#2#3{%
\expandafter\def\csname #1#3\endcsname{\mathop{\rm#1#3}\nolimits}%
\expandafter\def\csname #2#3\endcsname{\mathop{\rm#2#3}\nolimits}%
}
\DeclareDoubleMathOperator{log}
\DeclareDoubleMathOperator{blob}
$\log x+\Log x$
$\blob x+\Blob x$
\bye
Respuesta2
Hay mejores métodos hoy en día.
\documentclass{article}
\usepackage{amsmath}
\ExplSyntaxOn
\NewDocumentCommand{\DeclareDoubleMathOperator}{m}
{
% lowercase version
\cs_if_exist:cF { #1 }
{
\exp_args:Nc \DeclareMathOperator{#1}{#1}
}
% capitalized version
\cs_if_exist:cF { \text_titlecase:n { #1 } }
{
\exp_args:Ncx \DeclareMathOperator{ \text_titlecase:n { #1 } } { \text_titlecase:n { #1 } }
}
}
\ExplSyntaxOff
\DeclareDoubleMathOperator{log}
\DeclareDoubleMathOperator{blob}
\begin{document}
$\log x+\Log x$
$\blob x+\Blob x$
\end{document}
Pero lo evitaría. Simplemente defina los operadores que necesita.