New in Wolfram Mathematica 7: Dynamic Astronomical Computation  previous | next 
Search for Minor-Planet Families
Tens of thousands of minor planets are available. Plotting semimajor axis versus inclination reveals several distinct groups of minor planets.
In[1]:=

Click for copyable input
ListPlot[{AstronomicalData[#, "SemimajorAxis"]/149597870691, 

    AstronomicalData[#, "Inclination"]} & /@ 

  AstronomicalData["MinorPlanet"]]
Out[1]=