Wiederholte Strichzeichnung

Wiederholte Strichzeichnung

Ich versuche, ein Diagramm zu zeichnen, das wiederholte Linien enthält. Dafür möchte ich einen neuen Befehl verwenden. Was wäre der beste Befehl? Irgendwelche Vorschläge?

Das ist das Diagramm. Machen Sie sich keine Sorgen um die Gitterlinien.Wiederholte Zeilen

Antwort1

Das Bild stammt von Seite 34 derpstricks-addHandbuch; der Code (nach geringfügigen Verbesserungen) lautet wie folgt:

\documentclass{article}

\usepackage{pstricks-add}

\begin{document}

\psset{yunit = 4, xunit = 2}
\begin{pspicture}(-1,0)(3,2)
\psgrid[subgridcolor = lightgray]
\pnodes(-1,0){A}(1,1){B}
\psline[linecolor = red](A)(3,2)
\multido{\iA = 0+10}{36}{
  \psRelLine[linecolor = blue, angle = \iA](B)(A){-0.5}{EndNode}
  \qdisk(EndNode){2pt}
}
\end{pspicture}

\end{document}

Ausgabe

Antwort2

Über TiKZ zeichnen. Schleife verwenden foreachund die Y-Achse skalieren.

Bildbeschreibung hier eingeben

Code

\documentclass{article} % or standalone
\usepackage{tikz}
\begin{document}
\begin{tikzpicture}[yscale=2]
\draw [help lines, xstep=0.2, ystep=0.4,thin] (-1,0.2) grid (3,2.8);
\foreach \angle in {0,10,...,360}{
\draw[blue](1,1.5)--+(\angle:1.5cm) node[fill=gray,circle,radius=2pt,inner sep=1pt]{};
}
\end{tikzpicture}
\end{document}

Antwort3

Eine empfohlene Lösung mit PSTricks, nur zum Spaß!

\documentclass[pstricks,border=12pt]{standalone}
\usepackage{pst-plot,pst-node}
\psset{algebraic,plotpoints=37}

\begin{document}


\begin{pspicture}[showgrid](-2,-2)(4,4)
\curvepnodes{0}{2 Pi mul}{1.5*cos(t)+1|2.5*sin(t)+1}{P}
\multido{\i=0+1}{\Pnodecount}{\psline{-*}(1,1)(P\i)}
\end{pspicture}

\end{document}

Bildbeschreibung hier eingeben

Animierte Version

Dies ist die Umlaufbahn unserer Erde um die Sonne.

\documentclass[pstricks,border=12pt]{standalone}
\usepackage{pst-plot,pst-node}
\psset{algebraic,plotpoints=37}

\begin{document}

\multido{\i=0+1}{36}{%
\begin{pspicture}[showgrid](-2,-2)(4,4)
\curvepnodes{0}{2 Pi mul}{1.5*cos(t)+1|2.5*sin(t)+1}{P}
\psline{-*}(1,1)(P\i)
\end{pspicture}}

\end{document}

Bildbeschreibung hier eingeben

verwandte Informationen