       RE: Showing Animation Outputs together

• To: mathgroup at smc.vnet.net
• Subject: [mg64495] RE: [mg64468] Showing Animation Outputs together
• From: "David Park" <djmp at earthlink.net>
• Date: Sun, 19 Feb 2006 05:36:05 -0500 (EST)
• Sender: owner-wri-mathgroup at wolfram.com

```With DrawGraphics I would do it this way...

Needs["DrawGraphics`DrawingMaster`"]

cylinder[t_][u_, v_] = {u Cos[t] + Cos[v] Sin[t], -u Sin[t] + Cos[v] Cos[t],
Sin[v]};

Draw3DItems[
{Table[
ParametricDraw3D[cylinder[t][u, v], {u, 2, 3}, {v, 0, 2*Pi},
PlotPoints -> {9, 7}],
{t, 0, 2*Pi, Pi/4}]},
ImageSize -> 500];

Or with regular Mathematica plotting, which works just as well in this
case...

ParametricPlot3D[Evaluate[Table[cylinder[t][u, v], {t, 0, 2*Pi, Pi/4}]],
{u, 2, 3}, {v, 0, 2*Pi}, PlotPoints -> {9, 7}, ImageSize -> 500];

David Park

From: Narasimham [mailto:mathma18 at hotmail.com]
To: mathgroup at smc.vnet.net

How to group together all animated (here 8) hexagonal prisms around the
spin axis into one single final frame?  ( It is assumed that there is
less interference between individual objects which do not clutter up
much in 3-space) . TIA .

cylspin= {u Cos[t]+ Cos[v] Sin[t] ,-u Sin[t]+ Cos[v]  Cos[t],Sin[v]} ;
Do[ParametricPlot3D[cylspin,{u,2,3},{v,0,2*Pi},
PlotPoints->{9,7}],{t,0,2 Pi,Pi/4}] ;

```

• Prev by Date: Re: Showing Animation Outputs together
• Next by Date: Re: multiple plots from a list of parameters?
• Previous by thread: Re: Showing Animation Outputs together
• Next by thread: How to do a family of plots?