Student Support Forum: 'About animation!' topicStudent Support Forum > General > "About animation!"

 Next Comment > Help | Reply To Topic
 Author Comment/Response Radu Sorici 09/30/06 5:55pm I have written down this code: i = 1; << Graphics`Arrow`; << Graphics`PlotField3D`; While[i < 100, a = ParametricPlot3D[{2 Cos[t], 2 Sin[t], t, {Hue[0.8], Thickness[0.005]}}, \ {t, 0, 4 Pi}, BoxStyle -> Dashing[{0.02, 0.02}], BoxRatios -> { 1, 1, 2}, AxesEdge -> {{-1, -1}, {-1, -1}, {-1, -1}}]; b = ListPlotVectorField3D[{{ {N[2 Cos[i Pi / 25]], N[2 Sin[i Pi / 25]], N[i Pi / 25]}, {- N[Sqrt[1 / 5]] N[2 Sin[i Pi / 25]], N[Sqrt[1 / 5]] N[2 Cos[ i Pi / 25]], 1 / N[Sqrt[5]]}}}, VectorHeads -> True, Axes -> True, AxesEdge -> {{-1, -1}, {-1, -1}, {-1, -1}}]; c = ListPlotVectorField3D[{{ {N[2 Cos[i Pi / 25]], N[2 Sin[i Pi / 25]], N[i Pi / 25]}, { - N[Sqrt[1 / 5]] N[2 Cos[i Pi / 25]], - N[Sqrt[1 / 5]] N[2 Sin[i Pi / 25]], 0} }}, VectorHeads -> True, Axes -> True, AxesEdge -> {{-1, -1}, {-1, -1}, {-1, -1}}]; Show[a, b, c]; i++] and it drows 400 frames but I need only the Show[a,b,c] frames. How do I get the other ones not to be drawn ? Thanx a lot! URL: ,