fix the comma in mathptmx

\usepackage{mathptmx}

\mathcode`,"8000

\begingroup

\lccode`\~`\,\lowercase{\endgroup

\def~{\mathpunct{\textrm{,}}}}

\usepackage{eucal}

\begin{document}

\showoutput

,$,$

\end{document}