Avise-me quando o número da equação for empurrado para a próxima linha

Question

É possível avisar amsmathquando a equação é muito longa e empurra o número para a próxima linha?

Espero que seja impresso Equation (1) too longno console ou deixe a (1)parte vermelha.

\documentclass[twocolumn]{article}

\usepackage{amsmath}

\begin{document}

    \begin{equation}
        A+B+C+D+R+F+G+H+I+J+L+M+N+O+P
    \end{equation}

\end{document}

Answer 1

Não quero dizer que seja impossível, mas é definitivamente um problema difícil, porque amsmathdepende do \eqnoprimitivo para fazer esse trabalho pelo equationmeio ambiente.

\hsize=8cm
$$A+B+C+D+R+F+G+H+I+J+L+M+N+O+P\eqno(1)$$
\bye

Portanto, a única maneira que vejo é substituir o \eqnoprimitivo e medir as penalidades para ver se o número será liberado para a próxima linha.

---

Para a alignfamília de ambientes é um pouco mais fácil porque a mudança de tags é tratada por macros, nas quais você simplesmente conecta seu erro ou aviso personalizado

\documentclass[twocolumn]{article}

\usepackage{amsmath}

\makeatletter
\def\place@tag{%
    \iftagsleft@
        \kern-\tagshift@
        \if1\shift@tag\row@\relax
            \errmessage{Equation too wide}%
            \rlap{\vbox{%
                \normalbaselines
                \boxz@
                \vbox to\lineht@{}%
                \raise@tag
            }}%
        \else
            \rlap{\boxz@}%
        \fi
        \kern\displaywidth@
    \else
        \kern-\tagshift@
        \if1\shift@tag\row@\relax
            \errmessage{Equation too wide}%
            \llap{\vtop{%
                \raise@tag
                \normalbaselines
                \setbox\@ne\null
                \dp\@ne\lineht@
                \box\@ne
                \boxz@
            }}%
        \else
            \llap{\boxz@}%
        \fi
    \fi
}
\makeatother


\begin{document}

    \begin{align}
        A+B+C+D+R+F+G+H+I+J+L+M+N+O+P
    \end{align}

\end{document}

---

Outra possibilidade seria compor a equação duas vezes, mas uma vez com largura zero (usando \vphantom), de forma que o número não possa ir para a segunda linha. Em seguida, compare a altura da equação composta regular com a de largura zero. Se a altura do normal for maior que o outro, houve quebra de linha.

\documentclass[twocolumn]{article}

\usepackage{amsmath}
\usepackage{environ}

\NewEnviron{warnequation}{
  \setbox0=\vbox{\begin{equation}\BODY\end{equation}}%
  \setbox1=\vbox{\begin{equation}\vphantom{\BODY}\end{equation}}%
  \ifdim\ht0>\ht1
    \errmessage{Equation too wide}%
  \fi
  \box0
}

\begin{document}

    \begin{warnequation}
        A+B+C+D+R+F+G+H+I+J+L+M+N+O+P
    \end{warnequation}

\end{document}