This document was created this way. Remember that you have to use the environment \texttt{postscript}
if you do not use the environment \texttt{pspicture} or a lot of PS-code outside this environment:
\begin{lstlisting}
\begin{postscript}
\pstVerb{/LL 1 def /RR 140 def /CCmy 6 def /RsqC RR dup mul 1000 div CCmy mul 1000 div def
/omegam LL RR div 1000 mul RR div CCmy div 1000 mul 1 sub sqrt RR mul 3 sqrt div LL div def
/phiomegafunc {/omega exch def LL RsqC sub omega CCmy mul 1000 div omega mul 1000 div
LL mul LL mul sub omega mul dup 0 ge {RR atan}{RR atan 360 sub} ifelse} def
/phimax omegam phiomegafunc def}
\begin{center}
\begin{psgraph}[axesstyle=frame,yAxisLabel=$\varphi$,xAxisLabel=$\omega$/Hz,
yticksize=0 16cm,xticksize=-90
90,subticksize=1,Dy=20,Dx=100,xsubticks=2](0,0)(0,-90)(800,90){16cm}{8cm}
\psplot[linecolor=Blue1,plotpoints=200,linewidth=2pt]{0}{800}{x phiomegafunc}
\uput{0pt}[0](10,75){$R=$\psPrintValue{RR}\hspace{2em}$\Omega$}
\uput{0pt}[0](10,65){$C=$\psPrintValue{CCmy}\hspace{0.75em}$\mu$F}
\uput{0pt}[0](10,55){$L=\psPrintValue{LL}\hspace{0.75em}\text{H}$}
\pscircle*[linecolor=Red1](!omegam phimax){2pt}
\end{psgraph}
\end{center}
\end{postscript}
\end{lstlisting}
\resizebox{\linewidth}{!}{%
\begin{postscript}
\pstVerb{/LL 1 def /RR 140 def /CCmy 6 def /RsqC RR dup mul 1000 div CCmy mul 1000 div def /omegam
LL RR div 1000 mul RR div CCmy div 1000 mul 1 sub sqrt RR mul 3 sqrt div LL div def /phiomegafunc
{/omega exch def LL RsqC sub omega CCmy mul 1000 div omega mul 1000 div LL mul LL mul sub omega mul
dup 0 ge {RR atan}{RR atan 360 sub} ifelse} def /phimax omegam phiomegafunc def}
\begin{psgraph}[axesstyle=frame,yAxisLabel=$\varphi$,xAxisLabel=$\omega$/Hz,
yticksize=0 16cm,xticksize=-90
90,subticksize=1,Dy=20,Dx=100,xsubticks=2](0,0)(0,-90)(800,90){16cm}{8cm}
\psplot[linecolor=Blue1,plotpoints=200,linewidth=2pt]{0}{800}{x phiomegafunc}
\uput*{0pt}[0](10,75){$R=$\psPrintValue{RR}\hspace{2em}$\Omega$}
\uput*{0pt}[0](10,65){$C=$\psPrintValue{CCmy}\hspace{0.75em}$\mu$F}
\uput*{0pt}[0](10,55){$L=\psPrintValue{LL}\hspace{0.75em}\text{H}$}
\psdot[linecolor=Red1](!omegam phimax)
\end{psgraph}
\end{postscript}%
}
The function \texttt{Grid} supports GridDX and GridDY.
The current version 1.32 should handle transparency for all Ghostscript versions.
For versions > 9.52 you need for \verb|ps2pdf| the optional argument \verb|-dALLOWPSTRANSPARENCY|
instead of \verb|-dNOSAFER|, which is still needed if you want to write Postscript files from within
the \TeX-run.