Services & ResourcesWolfram ForumsMathGroup Archive

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

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

• To: mathgroup at smc.vnet.net
• Subject: [mg82701] Two sphers joined by a line and moving on an ellipse! (animation)
• From: markmgg at googlemail.com
• Date: Mon, 29 Oct 2007 05:32:21 -0500 (EST)

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

• Follow-Ups:
  • Re: Two sphers joined by a line and moving on an ellipse! (animation)
    • From: "Ricardo Samad" <resamad@gmail.com>