New in Wolfram Mathematica 7: Dynamic Astronomical Computation  previous | next 
Compute Rise Times of Planets through the Year
Determine the value of a number of properties that vary with time. The rise time for the Sun, Mercury, Venus, and Mars changes significantly throughout the year.
In[1]:=

Click for copyable input
DateListPlot[

 Tooltip[Table[

     With[{tmp = 

        AstronomicalData[#, {"NextRiseTime", {2008, 1, 

           i}, {40.1, -88.2}}]}, {tmp, 

       tmp[[4 ;; 5]] /. {hr_, min_} :> hr + min/60.}], {i, 1, 365.25, 

      10}], #] & /@ {"Sun", "Mercury", "Venus", "Mars"}, 

 Joined -> True, Filling -> 0]
Out[1]=