Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2011

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Astronomical question

  • To: mathgroup at smc.vnet.net
  • Subject: [mg115359] Re: Astronomical question
  • From: Robert Zimmerman <rlz at uoregon.edu>
  • Date: Sun, 9 Jan 2011 02:16:32 -0500 (EST)

  Here is a possible general template for lunar phases that will get  
you started:

AD=AstronomicalData;

(* Enter the data in the form {Time, Magnitude}*)
  mag={ DateList[{2010,1,#}],AD["Moon",{"ApparentMagnitude",DateList 
[{2010,1,#}]}]}&/@Range[13,13+ 30 ] ;

(* date and magnitude for the full and new moon*)
  fullnew=  Take[SortBy[mag,Last] ,#]& /@{1,-1} //Flatten[#,1]&

(* constellations *)
AD["Moon",{"Constellation",#}]&/@{{2010,1,15},{2010,1,23},{2010,1,30}, 
{2010,2,5}}

(* options for graphics*)
optionsphase={Joined->True,GridLines-> 
{Automatic,Automatic} ,GridLinesStyle->Black,PlotStyle-> 
{Thick,Black},Filling-> Bottom,FillingStyle-> Opacity[. 
4,Black] ,PlotLabel-> {"Full and New",fullnew } ,Epilog->{Text["New 
\nSagittarius",{{2010,1,15},- 6}],  Text["First\nAries", 
{{2010,1,23},- 8}], Text["Full\nCancer",{{2010,1,30},- 12}], Text 
["Last\nVirgo",{{2010,2,5},- 8}] } } ;

(* Graph*)
DateListPlot[mag ,optionsphase ]

>   Mokambo wrote
> Dear all,
> -------
> I want to write a program in Mathematica using AstronomicalData to  
> be able to trace the moon from a given point (given coordinates)  
> and a certain period of time.  I want to learn by doing so any  
> links to useful formulas or a general template would be greatly  
> appreciated.
> Thanks.


  • Prev by Date: Re: How to change the directory for the docs?
  • Next by Date: Re: check if a square matrix is diagonal
  • Previous by thread: Astronomical question
  • Next by thread: Extracting pixel values from an image under a polygon (region of interest)