Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'About animation!' topicStudent Support Forum > General > Archives > "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: ,

Subject (listing for 'About animation!')
Author Date Posted
About animation! Radu Sorici 09/30/06 5:55pm
Re: About animation! Peter Pein 10/10/06 03:33am
Next Comment >Help | Reply To Topic