CCD Photometry with Mathematica

Introduction Reduction Conversions Dates Display Image Headers Image Load Image Save Photometry

Table of Contents

CCDPhotometry`Dates`

This package contains functions for calculating dates from various Julian based calendar systems.

JulianDate[date] Returns the Julian date for the specified Gregorian date.
ModifiedJulianDate[date] Returns the modified Julian date for the specified Gregorian date.
HeliocentricCorrectionTime[date, {hour, min, sec}, {d, m, s}] Returns the heliocentric correction time in seconds for the specified date, right ascension, and declination.
HeliocentricJulianDate[date, {hour, min, sec}, {d, m, s}] Returns the heliocentric Julian date

Calculating Julian calendar dates

This loads the package

In[1]:=

Needs["CCDPhotometry`Dates`"]

Here is the Julian date for the current date.

In[2]:=

AccountingForm[JulianDate[Date[]], 16]

Out[2]//AccountingForm=

2452747.127926552

The modified Julian date corresponds to 2400000.5 days after day 0 of the Julian calendar. It therefore gives the number of days since midnight on November 17, 1858. The modified Julian date is still in common usage in tabulations by the U. S. Naval Observatory.

Here is the modified Julian date for the current date.

In[3]:=

AccountingForm[ModifiedJulianDate[Date[]], 16]

Out[3]//AccountingForm=

52746.62794735003

The heliocentric Julian date is the Julian date for a specified set of sky coordinates in a heliocentric coordinate system.  This is necessary to compensate for the difference in light travel time between the earth and the sun.  The earth's position in its orbit changes with time and can therefore result in at most an 8^m13^svariation in timing observations.  To compensate for this, the sun is chosen as the origin of the coordinate system since its distance from the source object is more stable.

Here is the heliocentric correction time for the current date in days.

In[4]:=

HeliocentricCorrectionTime[Date[], {23, 23, 8.8}, {18, 28, 59.}]

Out[4]=

-0.0014933

Here is the heliocentric Julian date for the current date.

In[5]:=

AccountingForm[HeliocentricJulianDate[Date[], {23, 23, 8.8}, {18, 28, 59.}], 16]

Out[5]//AccountingForm=

2452747.12649148

HOME


Created by Mathematica  (October 24, 2004) Valid XHTML 1.1!