☰

Animation einer geraden Linie erstellen

tag-icon • tag-icon tikz-pgf pstricks animations
Animation einer geraden Linie erstellen

Wie kann ich eine Animation der Linie y=-3 erstellen, die um den Winkel $\phi$ und die senkrechte Distanz vom Ursprung zu dieser Linie rotiert? Ich muss außerdem die Form nachzeichnen, die die Schnittpunkte der Linie mit der senkrechten Linie bilden.

Entschuldigung, ich habe vergessen zu erwähnen, dass ich auch Koordinatenachsen brauche.

Antwort1

\documentclass[border=10pt,pstricks]{standalone}
\usepackage{pst-node,pst-plot,pst-eucl,multido}

\begin{document}
\multido{\iA=0+6,\iB=1+1}{60}{%
\begin{pspicture}(-5.2,-5.2)(5.5,2.5)
    \pnode(0,0){O}
    \psaxes[linewidth=0.5pt]{->}(0,0)(-5,-5)(5,2)[$x$,0][$y$,90]
    \rput{\iA}(0,-3){\pnodes(-4,0){A}(4,0){B}\psline(A)(B)}
    \pnode(!\iA\space tan dup 0 eq { -3 0 }{1 exch div neg 5 mul 5} ifelse exch){C}
    \pstInterLL{A}{B}{O}{C}{D}
    \pnode(0,0){Aa}
    \multido{\iC=0+6}{\iB}{%
      \rput{\iC}(0,-3){\pnodes(-4,0){Ab}(4,0){Bb}}%
      \pnode(!\iC\space tan dup 0 eq { -3 0 }{1 exch div neg 5 mul 5} ifelse exch){Cb}%
      \pstInterLL[PointSymbol=none,PointName=none]{Ab}{Bb}{O}{Cb}{Db}%
      \psline(Aa)(Db)\pnode(Db){Aa}}%
    \psline[linestyle=dashed](0,0)(D)
\end{pspicture}%
}
\end{document}

Umgewandelt in ein gifmit:

convert -delay 50 -loop 0 -density 200 -scale 350 -alpha remove test.pdf test.gif

Bildbeschreibung hier eingeben

verwandte Informationen