tikz-斜面平抛模型

\documentclass[tikz,border=0.5cm]{standalone}
\usetikzlibrary{optics}
\usetikzlibrary{math}
\usepackage[UTF8]{ctex}
\usetikzlibrary{calc}
\usetikzlibrary{intersections}
\usepackage{tkz-euclide}
\begin{document}
\foreach \j in {16,19,...,100}{
  \begin{tikzpicture}
\draw[white](-0.5,-2.5)rectangle(10,3.5);
\draw[red,opacity=0.3](0,0)--(7,0);
\foreach \x in {0,1,...,43}
\draw[red,opacity=0.3](\x ex,0)--++(-135:1ex);
\filldraw[red,opacity=0.2](0,0)--(0,3)--(4,0);
\fill[opacity=0.6](0,3)circle(2pt);
\pgfmathsetmacro{\vo}{0.02*\j}
\path[put coordinate=p at 0.01*\j](0,3)--(4,0)--(7,0);
\draw[opacity=0.7](0,3) parabola(p);
\path[name path=line1](0,3) parabola (p)--([turn]0:2.8)coordinate(p1);
\path[name path=line2](p)--++(0:\vo)--++(-90:2) ;
\path [name intersections={of=line1 and line2}];
\coordinate(v)at(intersection-2);
\draw[-stealth](p)--++(0:\vo)coordinate(vx);
\draw[-stealth](p)--(v);
\fill[opacity=0.6](p)circle(2pt);
\draw[-stealth](0,3)--++(0:\vo);
\tkzFindAngle(v,p,vx)\tkzGetAngle{a}
\draw[red]($(p)+(0:1.5ex)$)arc(0:-\a:1.5ex);
\node [below right]at (3,3)
{\fangsong 速度与水平面的夹角：$\pgfmathprintnumber \a ^\circ$} ;
\end{tikzpicture}}
\end{document}