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
djmp at earthlink.net
http://home.earthlink.net/~djmp/
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}] ;