pendulum.tex

\documentclass{article}

\usepackage{pgscript}
\usepackage{pstricks,pst-plot}

\psset{unit=1cm}
\pagestyle{empty}
\setlength{\textwidth}{4cm}
\setlength{\textheight}{7cm}

\let\phi\varphi

\begin{document}
  \psset{unit=1.5cm}%
  \begin{pspicture}(0,0)(0,0)
    \SpecialCoor
    \psline[linewidth=1pt](3;-110)(0,0)
    \rput(3.25;-110){\psline[linewidth=0.5pt,linecolor=lightgray](0.34;-20)(1.00;-90)}
    \rput(3.25;-110){\psline[linewidth=0.5pt,linecolor=lightgray](0.94;-110)(1.00;-90)}
    \rput(3.25;-110){\psline[linewidth=0.5pt,arrows=->](0,0)(0.34;-20)}
    \rput(3.25;-110){\psline[linewidth=0.5pt,arrows=->](0,0)(0.94;-110)}
    \rput(3.25;-110){\psline[linewidth=0.5pt,arrows=->](0,0)(1.00;-90)}
    \rput(3.25;-110){\rput(0.64;-20){\makebox(0,0){$F$}}}
    \rput(3.25;-110){\rput(1.30;-90){\makebox(0,0){$m\cdot g$}}}
    \pscircle*(3;-110){0.07}
    \psline[linewidth=0.5pt,linestyle=dashed](0,0)(0,-1.9)
    \psarc[linewidth=0.5pt,arrows=<-](0,0){1.5}{-110}{-90}
    \rput(1.3;-100){\makebox(0,0){$\phi$}}
    \psarc[linewidth=0.5pt,linestyle=dashed,arrows=<->,arcsepA=0.12](0,0){3}{-110}{-70}
%    \rput(0,-4.5){\psstrut}
  \end{pspicture}
\end{document}