Ecuación con una flecha de bucle (ver imagen)

Question

¿Cómo puedo componer esta ecuación?

Answer 1

Dado que este parece ser un diagrama conmutativo, debe utilizar herramientas dedicadas para ese tipo de diagramas, comotikz-cd. Dado que el paquete ya le ofrece los elementos necesarios, el código ahora es de una sola línea:

\documentclass{standalone}
\usepackage{tikz-cd}

\begin{document}
\begin{tikzcd}[column sep=small]
S\ar[r] & K\ar[r]\ar[loop,"D",swap,looseness=4] & S
\end{tikzcd}
\end{document}

Answer 2

\documentclass{article}
\usepackage{stackengine,amssymb,graphicx}
\newcommand\blivet[2]{\stackengine{-.3ex}{#1}{\stackon[1pt]{\CAL}{#2}}{O}{c}{F}{T}{L}}
\newcommand\CAL{\scalebox{2}{\rotatebox[origin=center]{170}{$\circlearrowleft$}}}
\stackMath
\begin{document}
\begin{equation}
S\rightarrow \blivet{K}{D}\rightarrow S
\end{equation}
\end{document}

Nota: EDITADO para modificar un poco los parámetros.

---

Aquí hay una versión con un bucle un poco más pequeño, cuyo grosor de línea se adapta mejor al grosor de línea de \rightarrow.

\documentclass{article}
\usepackage{stackengine,amssymb,graphicx}
\newcommand\blivet[2]{\stackengine{-.1ex}{#1}{\stackon[.5pt]{\CAL}{#2}}{O}{c}{F}{T}{L}}
\newcommand\CAL{\scalebox{1.7}{\rotatebox[origin=center]{170}{$\circlearrowleft$}}}
\stackMath
\begin{document}
\begin{equation}
S\rightarrow \blivet{K}{D}\rightarrow S
\end{equation}
\end{document}

Answer 3

Es un tikzgráfico, pero:

\documentclass{standalone}
\usepackage{tikz}
\usetikzlibrary{positioning}
\begin{document}
\begin{tikzpicture}
    \node (A) {A};
    \node (B) [right= of A] {B};
    \node (C) [right= of B] {C};
    \draw [->] (A) -- (B);
    \draw [->] (B) -- (C);
    \draw [->] (B) edge [loop, out=45, in=135, looseness=5] node [above] {D} (B);
\end{tikzpicture}
\end{document}