Astronomy with Wolfram: spooky moon calendar

DOWNLOAD-DESKTOP-NOTEBOOK.nb (1.54 MB)

6 Likes

news-congrads-kkluyshnik-02-04-19.jpg – you have earned Featured Contributor Badge 2015-11-02_10-07-11.png
Your exceptional post has been selected for our editorial column Staff Picks http://wolfr.am/StaffPicks and Your Profile is now distinguished by a Featured Contributor Badge and is displayed on the Featured Contributor Board. Thank you!

You can find the distance between Earth and the Moon using

In[135]:= AstroDistance[Entity["Planet", "Earth"], 
 Dated[Entity["PlanetaryMoon", "Moon"], 
  DateObject[{2025, 4, 17, 0, 0, 0}, TimeZone -> -6]]]

Out[135]= Quantity[0.00268902, "AstronomicalUnit"]
4 Likes