Benutzer:CarstenV/Quellcodes
Aus Opennet
Grafik mit LaTeX/PSTricks
Das Ergebnis: https://de.wikipedia.org/wiki/Datei:Ebene_polarkoordinaten.svg
\documentclass{standalone} \usepackage[utf8]{inputenc} \usepackage{lmodern} \usepackage[T1]{fontenc} \usepackage{pstricks} \usepackage{multido} \usepackage{textcomp} \newpsstyle{polarsys}{linecolor=black!30} \newpsstyle{active}{linecolor=blue,linewidth=.05} \newcommand{\labelfont}{\Large\sffamily} \begin{document} \begin{pspicture}(-9,-9)(9,9)\psframe(-9,-9)(9,9) \multido{\n=1.0+1.0,\i=1+1}{6}{% \pscircle[style=polarsys](0,0){\n} \uput[-45](\n,0){\labelfont \i} }%multido \multido{\i=0+45}{8}{% \psline[style=polarsys](7;\i) \uput[\i](7;\i){\labelfont \i°} }%multido \psline[style=active](6.5;0)(0,0)(5;45) \uput[135](2.5;45){\Large\color{blue}$\mathsf{r=5}$} \psdot[style=active,dotstyle=+](5;45) \uput[-45](5;45){\Large\color{blue}$\mathsf{P(r;\phi)=P(5;45^\circ)}$} \psarc[style=active,arrows=->](0,0){1.5}{0}{45} \uput[22.5](1.4;22.5){\Large\color{blue}$\mathsf{\phi=45^\circ}$} \end{pspicture} \begin{pspicture}(-9,-9)(9,9)\psframe(-9,-9)(9,9) \multido{\n=1.0+1.0,\i=1+1}{6}{% \pscircle[style=polarsys](0,0){\n} \uput[-45](\n,0){\labelfont \i} }%multido \multido{\i=0+45}{8}{% \psline[style=polarsys](7;\i) \uput[\i](7;\i){\labelfont \i°} }%multido \psline[style=active](6.5;0)(0,0)(5;45) \uput[135](2.5;45){\Large\color{blue}$\mathsf{r=5}$} \psdot[style=active,dotstyle=+,linecolor=red](5;45) \uput[-45](5;45){\Large\color{red}$\mathsf{P(x,y)}$} \psarc[style=active,arrows=->](0,0){1.5}{0}{45} \uput[22.5](1.4;22.5){\Large\color{blue}$\mathsf{\phi=45^\circ}$} \SpecialCoor \psline[style=active,linecolor=red](5;45)(!45 sin 5 mul 0) \uput[0](3.5,2){\Large\color{red}$\mathsf{y=r\cdot\sin(\phi)}$} \psline[style=active,linecolor=red](5;45)(!0 45 cos 5 mul) \uput[90](2,3.5){\Large\color{red}$\mathsf{x=r\cdot\cos(\phi)}$} %\psline[style=active](5;45)(5;90) \end{pspicture} \end{document}