I'm trying to create a complicated animated plot. The idea is to have a 3D helix, that is a projection of a point moving in a circle. Then the helix would de-convolute in a cosine and sine, similar to the following picture.
So far I can make a 3d helix but I don't know how to put everything together.
This is the code for the helix and this is what I get.
Animate[Module[{a},
Show[ParametricPlot3D[a = {Cos[t], Sin[t], t/4}, {t, 0, u},
ImageSize -> Small, PlotRange -> {{-2, 2}, {-2, 2}, {0, 8}}],
Graphics3D[{Red, Sphere[a, 0.15]}]]], {u, 10.^-6, 30},
AnimationRate -> 3]
Any idea on to do the animated plot?