Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2013

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

Search the Archive

Re: Animate cannot be combined?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg132034] Re: Animate cannot be combined?
  • From: Alexei Boulbitch <Alexei.Boulbitch at iee.lu>
  • Date: Tue, 19 Nov 2013 02:59:36 -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

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

Hi, Narasimhan,

You can combine them, but do it inside the Animate statement, rather than outside. Here you are:

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

Try it. Have fun,

Alexei



Alexei BOULBITCH, Dr., habil.
IEE S.A.
ZAE Weiergewan,
11, rue Edmond Reuter,
L-5326 Contern, LUXEMBOURG

Office phone :  +352-2454-2566
Office fax:       +352-2454-3566
mobile phone:  +49 151 52 40 66 44

e-mail: alexei.boulbitch at iee.lu





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