Dibujo de líneas repetidas

Dibujo de líneas repetidas

Estoy intentando dibujar un diagrama que contiene líneas repetidas y me gustaría usar un nuevo comando. ¿Cuál sería el mejor comando? ¿alguna sugerencia?

Ese diagrama es este y no te preocupes por las líneas de la cuadrícula.Líneas repetidas

Respuesta1

La imagen es de la página 34 delpstricks-addmanual; el código (después de haber sido ligeramente mejorado) es el siguiente:

\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}

producción

Respuesta2

A través del sorteo TiKZ. Uso de foreachbucle y escala del eje y.

ingrese la descripción de la imagen aquí

Código

\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}

Respuesta3

¡Una solución recomendada con PSTricks solo por diversión!

\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}

ingrese la descripción de la imagen aquí

Versión animada

Esta es la órbita de nuestra tierra alrededor del sol.

\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}

ingrese la descripción de la imagen aquí

información relacionada