Re:Animate drawing of a ruled surface?
- To: mathgroup at smc.vnet.net
- Subject: [mg122929] Re:Animate drawing of a ruled surface?
- From: Alexei Boulbitch <Alexei.Boulbitch at iee.lu>
- Date: Thu, 17 Nov 2011 06:03:25 -0500 (EST)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
Hi,
Is that:
Animate[
RevolutionPlot3D[{u*Cos[v], u*Sin[v], (1/2)*v}, {u, -1, 1}, {v, 0.1,
a}], {a, 0, 2 \[Pi]}, AnimationRate -> 0.1,
AnimationRepetitions -> 1]
what you would like to get?
If yes, I would propose to make instead a list of graphics, for example like this:
tab = Table[
RevolutionPlot3D[{u*Cos[v], u*Sin[v], (1/2)*v}, {u, -1, 1}, {v, 0,
a}], {a, 0.1, 2 \[Pi], 0.1}];
and then play it in another cell:
ListAnimate[tab, AnimationRepetitions -> 1]
Have fun, Alexei
Hi,
I want to animate the drawing of a ruled surface.
So, for example, say I want to animate the drawing of a helix.
I create the surface with this command:
ParametricPlot3D[{u*Cos[v], u*Sin[v], (1/2)*v}, {u, -1, 1}, {v, 0, 2 \[Pi]}]
Then I want an animation of the surface being drawn as the line sweeps out the surface. So I try this which shows the line but doesn't animate the drawing of the surface.
Animate[ParametricPlot3D[{u*Cos[v], u*Sin[v], (1/2)*v}, {u, -4, 4}, PlotRange -> 6], {v, 0, 4 \[Pi]}]
Any ideas? Thanks!
Alexei BOULBITCH, Dr., habil.
IEE S.A.
ZAE Weiergewan,
11, rue Edmond Reuter,
L-5326 Contern, LUXEMBOURG
Office phone : +352-2454-2566
Office fax: +352-2454-3566
mobile phone: +49 151 52 40 66 44
e-mail: alexei.boulbitch at iee.lu<mailto:alexei.boulbitch at iee.lu>