Search for the Hilda Family of Asteroids

Query for the orbital period of Jupiter:

In[1]:=

jup=Entity["Planet","Jupiter"]["OrbitPeriod"]

Out[1]=

11.862615

a

Query for asteroids with an orbital period nearly 2/3 that of Jupiter:

In[2]:=

ents=EntityClass["MinorPlanet",{"OrbitPeriod"Between[{.65jup,.68jup}]}];

Compute the position of Jupiter and the asteroids on a given date:

In[3]:=

jupiterpos=QuantityMagnitude[EntityValue[Entity["Planet","Jupiter"],EntityProperty["Planet","HelioCoordinates",{"Date"DateObject[{2024,4,17}]}]],"AstronomicalUnit"]

Out[3]=

{2.8368,4.12632,-0.0808423}

In[4]:=

asteroidpos=QuantityMagnitude[EntityValue[ents,EntityProperty["MinorPlanet","HelioCoordinates",{"Date"DateObject[{2024,4,17}]}]],"AstronomicalUnit"];

Plot the position of these asteroids in 3D, along with Jupiter:

In[5]:=

Graphics3D{Point[asteroidpos],Red,PointSize[.02],Point[jupiterpos],Darker[Yellow,.1],Point[{0,0,0}],Black,Text["Sun",{0,0,0},{0,2}],Text["Jupiter",jupiterpos,{0,2}]},



Out[5]=

Related Symbols

Publisher Information