Existe um pacote ou método simples para gerar caracteres gregos a partir de seus equivalentes romanos?
Como, por exemplo:
\greek{a}iria gerar\alpha
\greek{b}iria gerar\beta
\greek{B}geraria \Beta,
E assim por diante... Estou ciente de que tal correspondência não seria um mapa individual, mas poderia ser bastante próxima.
Minha necessidade disso está relacionada a um conjunto de comandos que tenho em meu doutorado. documento para garantir um uso compatível (sempre igual) de determinados símbolos em algumas categorias. Por exemplo, tenho alguns comandos como:
\newcommand{\setname}[1]{\ensuremath{\uppercase{#1}}}
\newcommand{\matrixname}[1]{\ensuremath{\mathbf{\uppercase{#1}}}}
\newcommand{\vectorname}[1]{\ensuremath{\vec{\lowercase{#1}}}}
\newcommand{\scalarname}[1]{\ensuremath{\lowercase{#1}}}
Assim, se eu precisar definir um conjunto S, posso usar \setname{S}e o conjunto será garantido como uma letra maiúscula com formatação matemática (como itálico). Se por algum motivo, posteriormente, eu precisar alterar a formatação dos conjuntos para usar letras minúsculas, precisarei apenas alterar a \setnamedefinição do comando.
Agora preciso de um novo comando para um tipo específico de conjunto não vazio: um alfabeto. Quero usar caracteres gregos maiúsculos para definir o nome de um alfabeto. Então, eu gostaria de criar um comando como:
\newcommand{\alphabetname}[1]{\ensuremath{\greek{\uppercase{#1}}}}
Então, para definir um alfabeto Σ eu poderia escrever:
\alphabetname{s}e obtenha Σ.
Responder1
Aqui está a codificação padrão no LaTeX para inserir caracteres gregos com caracteres latinos.
\documentclass{article}
\usepackage{amsmath}
\usepackage{xparse}
\ExplSyntaxOn
\NewDocumentCommand{\ucgreek}{m}
{
\str_case:nn { #1 }
{
{A}{\mathrm{A}}
{B}{\mathrm{B}}
{C}{\Sigma}
{D}{\Delta}
{E}{\mathrm{E}}
{F}{\Phi}
{G}{\Gamma}
{H}{\mathrm{H}}
{I}{\mathrm{I}}
{J}{\Theta}
{K}{\mathrm{K}}
{L}{\Lambda}
{M}{\mathrm{M}}
{N}{\mathrm{N}}
{O}{\mathrm{O}}
{P}{\Pi}
{Q}{\mathrm{X}}
{R}{\mathrm{P}}
{S}{\Sigma}
{T}{\mathrm{T}}
{U}{\Upsilon}
%{V}{}
{W}{\Omega}
{X}{\Xi}
{Y}{\Psi}
{Z}{\mathrm{Z}}
}
}
\NewDocumentCommand{\lcgreek}{m}
{
\str_case:nn { #1 }
{
{a}{\alpha}
{b}{\beta}
{c}{\varsigma}
{d}{\delta}
{e}{\varepsilon}
{f}{\varphi}
{g}{\gamma}
{h}{\eta}
{i}{\iota}
{j}{\vartheta}
{k}{\kappa}
{l}{\lambda}
{m}{\mu}
{n}{\nu}
{o}{o}
{p}{\pi}
{q}{\chi}
{r}{\rho}
{s}{\sigma}
{t}{\tau}
{u}{\upsilon}
%{v}{}
{w}{\omega}
{x}{\xi}
{y}{\psi}
{z}{\zeta}
}
}
\ExplSyntaxOff
\newcommand{\alphabetname}[1]{\uppercase{\ucgreek{#1}}}
\begin{document}
The alphabet $\alphabetname{S}$ is important.
\end{document}
Responder2
Uma maneira é apenas escolher o caractere desejado com base no código do caractere romano correspondente como a seguir (o código está incompleto, apenas as primeiras quatro letras são implementadas, também, você pode querer usar outra correspondência, \gammapor gexemplo):
\documentclass{article}
\newcounter{tmpgreek}
\newcommand{\greek}[1]{%
\setcounter{tmpgreek}{`#1}
\addtocounter{tmpgreek}{-`a}
\ifcase\value{tmpgreek}
\alpha\or\beta\or\gamma\or\delta
\fi
\setcounter{tmpgreek}{`#1}
\addtocounter{tmpgreek}{-`A}
\ifcase\value{tmpgreek}
\mathrm A\or \mathrm B\or\Gamma\or\Delta
\fi
}
\begin{document}
$\greek{a}$
$\greek{b}$
$\greek{c}$
$\greek{d}$
$\greek{A}$
$\greek{B}$
$\greek{C}$
$\greek{D}$
\end{document}