(************** Content-type: application/mathematica **************
CreatedBy='Mathematica 4.2'
Mathematica-Compatible Notebook
This notebook can be used with any Mathematica-compatible
application, such as Mathematica, MathReader or Publicon. The data
for the notebook starts with the line containing stars above.
To get the notebook into a Mathematica-compatible application, do
one of the following:
* Save the data starting with the line of stars above into a file
with a name ending in .nb, then open the file inside the
application;
* Copy the data starting with the line of stars above to the
clipboard, then use the Paste menu command inside the application.
Data for notebooks contains only printable 7-bit ASCII and can be
sent directly in email or through ftp in text mode. Newlines can be
CR, LF or CRLF (Unix, Macintosh or MS-DOS style).
NOTE: If you modify the data for this notebook not in a Mathematica-
compatible application, you must delete the line below containing
the word CacheID, otherwise Mathematica-compatible applications may
try to use invalid cache data.
For more information on notebooks and Mathematica-compatible
applications, contact Wolfram Research:
web: http://www.wolfram.com
email: info@wolfram.com
phone: +1-217-398-0700 (U.S.)
Notebook reader applications are available free of charge from
Wolfram Research.
*******************************************************************)
(*CacheID: 232*)
(*NotebookFileLineBreakTest
NotebookFileLineBreakTest*)
(*NotebookOptionsPosition[ 12162, 364]*)
(*NotebookOutlinePosition[ 12936, 390]*)
(* CellTagsIndexPosition[ 12892, 386]*)
(*WindowFrame->Normal*)
Notebook[{
Cell[CellGroupData[{
Cell[TextData[{
"Aperture Photometry with ",
StyleBox["Mathematica",
FontSlant->"Italic"]
}], "Chapter"],
Cell[CellGroupData[{
Cell["by Jeff Bryant", "Section"],
Cell[TextData[{
" This notebook shows the steps involved in performing aperture \
photometry on a sequence of star images taken with a CCD camera. Techniques \
required to process a full data set include centroid tracking of a moving \
object and isolation of specified regions. ",
StyleBox["Mathematica",
FontSlant->"Italic"],
"'s support for the FITS image format makes this task much easier to \
accomplish.\n All of the images used here were collected in Flagstaff, \
Arizona by the author using a 31\" telescope at the National Undergraduate \
Research Observatory (NURO) on Anderson Mesa. This observatory is part of \
the Lowell Observatory complex. The camera was a liquid nitrogen cooled CCD \
camera with a 498x511 pixel usable data area. Exposures were all 60 seconds \
in length. The images have all been reduced which only involved \
flat-fielding and bias frames. No dark frame was used since the operating \
temperature kept the thermal noise to a minimum. For a demonstration of how \
a CCD image can be reduced using ",
StyleBox["Mathematica",
FontSlant->"Italic"],
", visit the Wolfram Research website using the following URL."
}], "Text"],
Cell[TextData[ButtonBox["http://library.wolfram.com/howtos/reduce/",
ButtonData:>{
URL[ "http://library.wolfram.com/howtos/reduce/"], None},
ButtonStyle->"Hyperlink"]], "Text"]
}, Open ]],
Cell[CellGroupData[{
Cell["Installation and Initialization", "Subsubtitle"],
Cell[TextData[{
"Once the CCDPhotometry package has been downloaded, place it into the \
AddOns\\Applications folder in the ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" layout. Once this is done, rebuild the help browser. Now the \
documentation should be found under the AddOns section of the Help Browser."
}], "Text"],
Cell["First, we load the package", "MathCaption"],
Cell["Needs[\"CCDPhotometry`\"]", "Input",
CellLabel->"In[1]:="],
Cell["\<\
We can see all of the symbols defined in the package as follows.\
\>", "MathCaption"],
Cell[BoxData[
\(Names["\"]\)], "Input",
CellLabel->"In[2]:="]
}, Open ]],
Cell[CellGroupData[{
Cell["Import the Data", "Subsubtitle"],
Cell[BoxData[
\(data =
ImageLoad[
ToFileName["\", "\<11080154.fit\>"]]\)], "Input",
CellLabel->"In[3]:="]
}, Open ]],
Cell[CellGroupData[{
Cell["Parsing the Header", "Subsubtitle"],
Cell["\<\
The header of a FITS file can be obtained as follows. Also, specific fields \
can be extracted.\
\>", "MathCaption"],
Cell[BoxData[
\(Header[data]\)], "Input",
CellLabel->"In[4]:="],
Cell[BoxData[
\(HeaderField[data, "\