New in Wolfram Mathematica 7: Dynamic Astronomical Computation ◄ previous | next ►
Plot the Orbits of Apollo Asteroids
Visualize the orbits of solar system objects. Apollo-class asteroids are one group of asteroids that crosses the Earth's orbit.
In[1]:=

Click for copyable input
Graphics3D[{

  AstronomicalData[#, "OrbitPath"] & /@ AstronomicalData["Planet"],

  {Orange, 

   Opacity[.5], (AstronomicalData[#, "OrbitPath"] & /@ 

     AstronomicalData["ApolloAsteroid"])}

  }, PlotRange -> {{-6, 6}, {-6, 6}, {-4, 4}}, Boxed -> False, 

 ViewAngle -> \[Pi]/11]
Out[1]=