Retour

Source de Fig164.tex

Fichier TeX
\begin{center}
\definecolor{Roue} {rgb}{0.93,0.93,0.65}
\definecolor{arrowA} {rgb}{0.83,0.93,0.25}
\psset{unit=0.5}
\begin{pspicture}(-6,-8)(6,8.1)
\pscircle*[linecolor=Roue]{8.5}
\pscircle*{8}
\parametricplot[plotpoints=360,linecolor=gray,linewidth=0.1]{0}{360}{%
    /R 3 def
    /X R t cos mul def
    /Y R t sin mul R 1 add add def
    /RHO X dup mul Y dup mul add sqrt def
    /ALPHA X Y atan def
    /X' RHO ALPHA 2 mul sin mul def
    /Y' RHO ALPHA 2 mul cos mul def
    X' Y'
    }
\pscircle[linestyle=dashed,linecolor=gray](0,4){3}
\psline[linecolor=white](0,8)(0,0)(8,0)
\uput[60](0,7){\white A}
\uput[130](0,1){\white E}
\uput[-90](0,0){\white O}
\pnode(! /R 3 def
    /X R 30 cos mul def
    /Y R 30 sin mul R 1 add add def
    /RHO X dup mul Y dup mul add sqrt def
    /ALPHA X Y atan def
    /ALPHA2 ALPHA 2 mul def
    /X' RHO ALPHA 2 mul sin mul def
    /Y' RHO ALPHA 2 mul cos mul def
    X' Y'){b}
\pnode(! /R 3 def
    /X R 30 cos mul def
    /Y R 30 sin mul R 1 add add def
    X Y){B}
\psline[doubleline=true](0,8)
\pcline[doubleline=true,nodesepB=-1.9](0,0)(B)
\psline[linecolor=white](b)
\psdots[linecolor=white](B)
\psdots[linecolor=white](b)
\uput[180](B){\white B}
\uput[0](b){\white b}
\parametricplot[linestyle=dashed,linecolor=white]{ALPHA}{ALPHA2}{%
    /X2 RHO t sin mul def
    /Y2 RHO t cos mul def
    X2 Y2}
\parametricplot[linecolor=white]{ALPHA}{0}{%
    /X2 2.5 t sin mul def
    /Y2 2.5 t cos mul def
    X2 Y2}
\uput[75](2.5;80){\white $\ALPHA$}
\psarcn[linewidth=0.2,arrowinset=0,linecolor=arrowA]{->}(0,0){8.5}{100}{80}
\psarc[linewidth=0.2,arrowinset=0,linecolor=gray]{->}(0,0){8.5}{260}{280}
%
\pnode(! /R 3 def
    /X R 5 cos mul def
    /Y R 5 sin mul R 1 add add def
    /RHO X dup mul Y dup mul add sqrt def
    /ALPHA X Y atan def
    /ALPHA2 ALPHA 2 mul def
    /X' RHO ALPHA 2 mul sin mul def
    /Y' RHO ALPHA 2 mul cos mul def
    X' Y'){c}
\pnode(! /R 3 def
    /X R 5 cos mul def
    /Y R 5 sin mul R 1 add add def
    X Y){C}
\pcline[doubleline=true,nodesepB=-2.8](0,0)(C)
\psline[linecolor=white](c)
\psdots[linecolor=white](C)
\psdots[linecolor=white](c)
\uput[180](C){\white C}
\uput[0](c){\white c}
\parametricplot[linestyle=dashed,linecolor=white]{ALPHA}{ALPHA2}{%
    /X2 RHO t sin mul def
    /Y2 RHO t cos mul def
    X2 Y2}
\end{pspicture}
\end{center}