Benutzer:CarstenV/Quellcodes

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}