%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% bsp02.tex --- %% Autor : Herbert Voss (nach einer Idee von %% Denos Girou) %% Datum : 2004-04-25 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \documentclass{article} \usepackage{pstricks} \usepackage{pst-grad} \usepackage{multido} \parindent=0pt \pagestyle{empty} \begin{document} \begin{pspicture}(-6,-5)(5,8) \psset{gradbegin=white,gradend=black,gradmidpoint=1} \multido{\in=35+90,\im=59+90}{4}{% \ifodd\im\pswedge[fillstyle=gradient](0,0){4}{\in}{\im}\fi } \pscircle*[linecolor=white](0,0){1} \pscircle[linewidth=1cm,linecolor=lightgray](0,0){5} \pscircle[linewidth=0.2,linecolor=cyan](0,0){1} \pscircle(0,0){1}\pscircle(0,0){0.8} \psline{->}(0,0)(0.8,0)\uput[90](0.4,0){r} \uput[180](0,0){S} \psframe[fillcolor=cyan,fillstyle=solid](0.8,0)(1.0,7) \psframe[fillstyle=vlines,linestyle=none](-0.1,7)(2,7.5) \psline(-0.1,7)(2,7) \psline[linewidth=0.2,linecolor=red]{->}(0.9,0)(0.9,3)\uput[0](0.9,2.8){\LARGE $F_f$} {\psset{arrowscale=2,linewidth=0.075,linecolor=red} \psline{->}(0,0)(0,3)\uput[-180](0,2.8){\LARGE $F_f^\prime$} \psline{->}(0,0)(0,-3)\uput[-180](0,-2.8){\LARGE $-F_f^\prime$} \psline{->}(0,0)(0,-6)\uput[-180](0,-5.8){\LARGE $F_g$} } \psarc{->}(0,0){2}{100}{170}\uput[-45](-1.5,1.5){\Large $\varphi$} \psline[linestyle=dashed](-5.5,0)(0,0) \psline[linestyle=dashed](-5.5,6)(2,6) \psline{->}(-5.5,-6)(-5.5,7) \uput[180](-5.5,6){\Large $h_0$} \uput[180](-5.5,0){\Large $h(t)$} \end{pspicture} \end{document}