MathGroup Archive 2007

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

Search the Archive

Two sphers joined by a line and moving on an ellipse! (animation)


Hello everybody,

I'am trying to create an animation of two sphers joined by a line and
moving on an ellipse.

I have ploted the ellipse as

Graphics[{Dashed, Circle[{0, 0}, {10, 5}]}]

and the two sphers joined by a line as

Graphics3D[{Sphere[{0, 0, 0}, 1],
  Sphere[{-5, -1, -1}], {Thick, Orange,
   Line[{{0, 0, 0}, {-5, -1, -1}}]}}, Boxed -> False,
 ImageSize -> 100]

after that I could not make any further step!

I would appreciate any help.


thanks, Mark



  • Prev by Date: Changing Sqrt{(z-1)(z-2)(z-3)} to coffee mug
  • Next by Date: Bug of Integrate
  • Previous by thread: Changing Sqrt{(z-1)(z-2)(z-3)} to coffee mug
  • Next by thread: Re: Two sphers joined by a line and moving on an ellipse! (animation)