I am trying to create an animation of sine and cosine on the unit circle. Here is what I have thus far:
Animate[ParametricPlot[{{Cos[2 Pi t], Sin[2 Pi t]},
{t Cos[2 Pi s], t Sin[2 Pi s]},
{t Cos[2 Pi s], 0},
{Cos[2 Pi s], t Sin[2 Pi s]},
{.1 Cos[2 Pi s t], .1 Sin[2 Pi s t ]}},
{t, 0, 1}, PlotStyle -> {{Thick, Blue}, {Thick, Black}, {Thick, Green}, {Thick, Red},
{Thick, Orange}},
PlotRange -> {{-1.3, 1.3}, {-1.3, 1.3}},
Epilog -> {PointSize[Large], Point[{Cos[2 Pi s], 0}]}],
{s, 0, 1}]
I would like to add a dynamic label that keeps track of the expanding angle and a dynamic label for each side of the triangle that keeps track of the sine and cosine functions.