Mathematica 9 is now available
Services & Resources / Wolfram Forums
MathGroup Archive
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2006

[Date Index] [Thread Index] [Author Index]

Search the Archive

RE: Showing Animation Outputs together

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

With DrawGraphics I would do it this way...


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

   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

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

From: Narasimham [mailto:mathma18 at]
To: mathgroup at

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]} ;
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?