I need to create an animated gif for the following function.
rx1=((-T ω Cos[T ω] + Sin[T ω]))/(2ω^2)
ry1=(-2 + 2 Cos[T ω] + T ω Sin[T ω])/(2ω^2)
pulsefrequency=200000*π; τpulse1= 20*10^-6;
When I use
Animate[
Show[ParametricPlot[{rx1, ry1}/. ω -> pulsefrequency,
{T,0,u},PlotStyle -> {Thick, Red}],
Graphics[
{Blue, PointSize[0.02],
Point[{rx1, ry1} /. ω ->
pulsefrequency /. T -> u]}]],
{u, 0, τpulse1}, AnimationRepetitions -> 1]
It works well but when for getting an animated gif, I replace Animate command with Table and then it ceases to work
Table[ Show[
ParametricPlot[{rx1, ry1} /. ω -> pulsefrequency, {T, 0, u /. u -> s}, AspectRatio -> 1, PlotRange -> {{-0.010, 0.010}, {-0.010, 0.010}}, Background -> RGBColor[100.0, 100.0, 100.0]],Graphics[{PointSize[.025], Hue[0], Point[{rx1, ry1} /. ω -> pulsefrequency /. T -> s]}]] , {s, 0, τpulse1, τpulse1/10}]
The output that I recieve is
{Show[ParametricPlot[{rx1, ry1} /. E0 -> pulseamp /. ω ->
pulsefrequency /. m -> mass /. q -> charge, {T, 0,
u /. u -> s}, AspectRatio -> 1, PlotRange -> {{-0.01, 0.01}, {-0.01, 0.01}}, Background -> RGBColor[100., 100., 100.]], \!\(\*GraphicsBox[{Hue[0], PointSize[0.025], PointBox[{0., 0.}]}]\)], **followed by the list of the images**
I have spend hours to figure out how to just get the animated image rather than the command. I am not sure whats going wrong. Any help would be appreciated.
Regards