Group Abstract

Message Boards

WOLFRAM COMMUNITY

3.3K Views

2 Replies

10 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Astronomy Curated Data Wolfram Language

How to verify a statement about the position of Moon?

Peter Burbery

Peter Burbery, Marshall University

Posted 2 years ago

POSTED BY: Peter Burbery

2 Replies

Sort By:

Jose Martin-Garcia

Jose Martin-Garcia, Wolfram Research

Posted 2 years ago

Take the astro position you computed: ap = AstroPosition[Entity["PlanetaryMoon", "Moon"], {"Equatorial", DateObject[{2010, 1, 1, 0, 0, 0.}, "Instant", "Gregorian", 0., "TT"]}] Then you can extract the coordinates you are interested in, which are given in degrees, and manually convert them into mixed units: In[39]:= UnitConvert[Quantity[ap["RightAscension"], "AngularDegrees"],MixedUnit["RightAscensionHMS"]] Out[39]= Quantity[MixedMagnitude[{6, 57, 48.8581}], MixedUnit[{"HoursOfRightAscension", "MinutesOfRightAscension", "SecondsOfRightAscension"}]] In[40]:= UnitConvert[Quantity[ap["Declination"], "AngularDegrees"], MixedUnit["ArcDMS"]] Out[40]= Quantity[MixedMagnitude[{23, 30, 5.48298}], MixedUnit[{"AngularDegrees", "Arcminutes", "Arcseconds"}]] Then you can see more digits, and we can check that the results agree to the precision quoted by the Wikipedia.

Take the astro position you computed:

ap = AstroPosition[Entity["PlanetaryMoon", "Moon"],
       {"Equatorial", DateObject[{2010, 1, 1, 0, 0, 0.}, "Instant", "Gregorian", 0., "TT"]}]

Then you can extract the coordinates you are interested in, which are given in degrees, and manually convert them into mixed units:

In[39]:= UnitConvert[Quantity[ap["RightAscension"], "AngularDegrees"],MixedUnit["RightAscensionHMS"]]
Out[39]= Quantity[MixedMagnitude[{6, 57, 48.8581}], 
   MixedUnit[{"HoursOfRightAscension", "MinutesOfRightAscension", "SecondsOfRightAscension"}]]

In[40]:= UnitConvert[Quantity[ap["Declination"], "AngularDegrees"], MixedUnit["ArcDMS"]]
Out[40]= Quantity[MixedMagnitude[{23, 30, 5.48298}], 
  MixedUnit[{"AngularDegrees", "Arcminutes", "Arcseconds"}]]

Then you can see more digits, and we can check that the results agree to the precision quoted by the Wikipedia.

POSTED BY: Jose Martin-Garcia

Peter Burbery

Peter Burbery, Marshall University

Posted 2 years ago

MixedUnit["RightAscensionHMS"] and MixedUnit["ArcDMS"] worked successfully. Here is the content. ap = AstroPosition[ Entity["PlanetaryMoon", "Moon"], {"Equatorial", DateObject[{2010, 1, 1, 0, 0, 0.}, "Instant", "Gregorian", 0., "TT"]}] AstroPosition[{104.45357536810378`, 23.50152305129125, \ 0.002402213329988384}, {"TETE", "Date" -> DateObject[{2010, 1, 1, 0, 0, 3.92901711165905*^-8}, "Instant", "Gregorian", 0., "TT"]}, "RADec"] UnitConvert[Quantity[ap["RightAscension"], "AngularDegrees"], MixedUnit["RightAscensionHMS"]] Quantity[MixedMagnitude[{6, 57, 48.8580883449}], MixedUnit[{"HoursOfRightAscension", "MinutesOfRightAscension", "SecondsOfRightAscension"}]] UnitConvert[Quantity[ap["Declination"], "AngularDegrees"], MixedUnit["ArcDMS"]] Quantity[MixedMagnitude[{23, 30, 5.4829846485}], MixedUnit[{"AngularDegrees", "Arcminutes", "Arcseconds"}]]

MixedUnit["RightAscensionHMS"] and MixedUnit["ArcDMS"] worked successfully. Here is the content.

ap = AstroPosition[
  Entity["PlanetaryMoon", "Moon"], {"Equatorial", 
   DateObject[{2010, 1, 1, 0, 0, 0.}, "Instant", "Gregorian", 0., 
    "TT"]}]
AstroPosition[{104.45357536810378`, 23.50152305129125, \
0.002402213329988384}, {"TETE", 
  "Date" -> DateObject[{2010, 1, 1, 0, 0, 3.92901711165905*^-8}, 
    "Instant", "Gregorian", 0., "TT"]}, "RADec"]
UnitConvert[Quantity[ap["RightAscension"], "AngularDegrees"], 
     MixedUnit["RightAscensionHMS"]]
Quantity[MixedMagnitude[{6, 57, 48.8580883449}], 
 MixedUnit[{"HoursOfRightAscension", "MinutesOfRightAscension", 
   "SecondsOfRightAscension"}]]
UnitConvert[Quantity[ap["Declination"], "AngularDegrees"], 
 MixedUnit["ArcDMS"]]
Quantity[MixedMagnitude[{23, 30, 5.4829846485}], 
 MixedUnit[{"AngularDegrees", "Arcminutes", "Arcseconds"}]]

POSTED BY: Peter Burbery

Reply to this discussion

Reply Preview

Attachments

Remove Add a file to this post

Follow this discussion

or Discard

Feedback