Perfetto.
Prova anche questa
`\newsavebox{\phasebox}
\newlength{\phasedp}
\newlength{\phaseht}
\newlength{\phasetot}
\newlength{\phasewd}
\makeatletter
\def\phase#1{%
\sbox\phasebox{$\displaystyle#1$}%
\phaseht=\ht\phasebox
\phasedp=\dp\phasebox
\phasetot=\phasedp \advance\phasetot 0.23ex
\advance\phasetot\phaseht
\phasewd=\wd\phasebox
\advance\phasewd .5\phasetot
\vbox to\phaseht{\hbox{\setlength{\unitlength}{1pt}\linethickness{.6pt}%
\edef\ph@x{\strip@pt\phasewd}\edef\ph@y{\strip@pt\phasetot}%
\dimen@ .5\phasetot \edef\ph@dx{\strip@pt\dimen@}%
\begin{picture}(\ph@x,\ph@y)
\put(0,0){\circle*{.4}}
\put(0,0){\line(1,0){\ph@x}}\put(0,0){\line(1,2){\ph@dx}}
\put(\ph@dx,1){\raise\phasedp\vbox{\box\phasebox}}
\end{picture}%
}\vss}}
\makeatother`
Non ci dovrebbero essere più necessità di aggiustamenti. Occorre caricare il pacchetto pict2e, in modo da avere linee e cerchi di grandezza arbitraria.
Ciao
Enrico