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>

```

• Prev by Date: Re: Solve for parameters of a truncated normal distribution
• Next by Date: Re: Function fits with combinations
• Previous by thread: Re: Animate drawing of a ruled surface?
• Next by thread: Solve for parameters of a truncated normal distribution