Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2006
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*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 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}] ;



  • 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?