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>
- Animate cannot be combined?