Re: Animate cannot be combined?

*To*: mathgroup at smc.vnet.net*Subject*: [mg132025] Re: Animate cannot be combined?*From*: Itai Seggev <itais at wolfram.com>*Date*: Tue, 19 Nov 2013 02:56:35 -0500 (EST)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*Delivered-to*: l-mathgroup@wolfram.com*Delivered-to*: mathgroup-outx@smc.vnet.net*Delivered-to*: mathgroup-newsendx@smc.vnet.net*References*: <20131117232255.BFA716A26@smc.vnet.net>

2013, Narasimham : > 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 Animate is just a special kind of Manipulate: In[3]:= Animate[x, {x, 0, 1}] // Head Out[3]= Manipulate So the solution to your problem is simple: use Manipulate and put the Show inside of it. You can use ControlType -> "Animator" to make sure the control looks the same as you would go from Animate. -- Itai Itai Seggev Mathematica Algorithms R&D

**References**:**Animate cannot be combined?***From:*Narasimham <mathma18@gmail.com>