I would like to make a movie of an animated trajectory but the computation seems to be kind of slow on my machine. Consider the harmonic oscillator
harmonicsol = {x, x'} /. NDSolve[{x''[t] + 0.05 x'[t] + 0.5 x[t] == 0, x[0] == 1, x'[0] == -1},{x, x'}, {t, 0, 100}][[1]];
the animation doesn't seem to be very laggy
Animate[Graphics[{Line[{harmonicsol[[1]][#], harmonicsol[[2]][#]} & /@
Range[0, t, 0.01]]}, PlotRange -> 2], {t, 0, 100}, AnimationRate -> 1]
but when I compute a table of graphics (to export them later on)
Table[Graphics[{Line[{harmonicsol[[1]][#], harmonicsol[[2]][#]} & /@ Range[0, t, 0.01]]}, PlotRange -> 2], {t, 0, 100, 0.1}]
it takes quite some time. Are there any ways to speed that up or better ways to make a movie out of this?