MathGroup Archive 2013

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

Search the Archive

Animate cannot be combined?


It appears an Animate-d graph can no more combine with an unanimated graph object.In following example,where skew lines join two points on two displaced circles as Hypar (one-sheet) generators, how to Show the static and dynamic components together?

If juxtaposed Show succeeds, how to further leave permanent traces of generators?

h = 0.5; dt = 0.8;
HypPar[u_] = 
  Line[{{Cos[u], Sin[u], 0}, { Cos[u + dt], Sin[u + dt], h }}];
Genrtr = Animate[ 
  Graphics3D[HypPar[u], Axes -> False, 
   PlotRange -> {{-1.02, 1.02}, {-1.02, 1.02}, {-1.02, 1.02}}, 
   AspectRatio -> 1], {u, 0, 2 Pi, .1}, AnimationRunning -> True]
EndCircs = 
 ParametricPlot3D[{{ Cos[u + 1.5], Sin[u + 1.5] , 0}, {Cos[u], Sin[u],
     h}}, {u, 0, 2 Pi}]
Show[Genrtr, EndCircs]

I hope you see the aim, viz.to visualize it the way we go about constructing a mechanical assembly.

Regards
Narasimham



  • Prev by Date: Re: TeXForm
  • Next by Date: Re: TeXForm
  • Previous by thread: Re: Programming Fail
  • Next by thread: Re: Animate cannot be combined?