(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     29753,        962]
NotebookOptionsPosition[     20977,        747]
NotebookOutlinePosition[     21616,        768]
CellTagsIndexPosition[     21573,        765]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Style Definitions", "Subtitle"],

Cell["\<\
Modify the definitions below to change the default appearance of all cells in \
a given style.
Make modifications to any definition using commands in the Format menu.\
\>", "Text"],

Cell[CellGroupData[{

Cell["Style Environment Names", "Section"],

Cell[StyleData[All, "Working"],
 CellBracketOptions->{"Color"->RGBColor[0.771908, 0.399634, 0.262867]},
 ScriptMinSize->9],

Cell[StyleData[All, "Printout"],
 PageWidth->PaperWidth,
 PrivateFontOptions->{"FontType"->"Outline"}],

Cell[StyleData[All, "ColorPrintout"],
 PageWidth->PaperWidth,
 PrivateFontOptions->{"FontType"->"Outline"}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Notebook Options", "Section"],

Cell["\<\
The options defined for the style below will be used at the Notebook level.\
\>", "Text"],

Cell[StyleData["Notebook"],
 PageHeaders->{{
    Cell[
     TextData[{
       CounterBox["Page"]}], "PageNumber"], None, 
    Cell[
     TextData[{
       ValueBox["FileName"]}], "Header"]}, {
    Cell[
     TextData[{
       ValueBox["FileName"]}], "Header"], None, 
    Cell[
     TextData[{
       CounterBox["Page"]}], "PageNumber"]}},
 StyleMenuListing->None]
}, Open  ]],

Cell[CellGroupData[{

Cell["Styles for Headings", "Section",
 CellFrame->{{0, 0}, {0, 2}}],

Cell[CellGroupData[{

Cell[StyleData["Title"],
 CellMargins->{{36, 20}, {2, 10}},
 CellGroupingRules->{"TitleGrouping", 0},
 PageBreakBelow->False,
 CellFrameMargins->{{100, 4}, {8, 10}},
 InputAutoReplacements->{"TeX" -> StyleBox[
     RowBox[{"T", 
       AdjustmentBox[
       "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
        0.5], "X"}]], "LaTeX" -> StyleBox[
     RowBox[{"L", 
       StyleBox[
        AdjustmentBox[
        "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2],
         FontSize -> Smaller], "T", 
       AdjustmentBox[
       "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
        0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> 
   "Mathematica"},
 TextAlignment->Left,
 LineSpacing->{1, -5},
 CounterIncrements->"Title",
 CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, {
   "Subtitle", 0}, {"Subsubtitle", 0}},
 FontSize->60,
 FontSlant->"Italic",
 FontColor->RGBColor[0.620523, 0.66688, 0.409964]],

Cell[StyleData["Title", "Printout"],
 FontSize->48,
 FontColor->GrayLevel[0.4]],

Cell[StyleData["Title", "ColorPrintout"],
 FontSize->48]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["Subtitle"],
 CellMargins->{{144, 20}, {2, 10}},
 CellGroupingRules->{"TitleGrouping", 10},
 PageBreakBelow->False,
 InputAutoReplacements->{"TeX" -> StyleBox[
     RowBox[{"T", 
       AdjustmentBox[
       "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
        0.5], "X"}]], "LaTeX" -> StyleBox[
     RowBox[{"L", 
       StyleBox[
        AdjustmentBox[
        "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2],
         FontSize -> Smaller], "T", 
       AdjustmentBox[
       "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
        0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> 
   "Mathematica"},
 CounterIncrements->"Subtitle",
 CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, {
   "Subsubtitle", 0}},
 FontSize->24,
 FontSlant->"Italic",
 FontColor->RGBColor[0.326787, 0.658763, 0.400732]],

Cell[StyleData["Subtitle", "Printout"],
 FontSize->18,
 FontColor->GrayLevel[0.300008]],

Cell[StyleData["Subtitle", "ColorPrintout"],
 FontSize->18]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["Subsubtitle"],
 CellMargins->{{144, 20}, {2, 2}},
 CellGroupingRules->{"TitleGrouping", 20},
 PageBreakBelow->False,
 InputAutoReplacements->{"TeX" -> StyleBox[
     RowBox[{"T", 
       AdjustmentBox[
       "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
        0.5], "X"}]], "LaTeX" -> StyleBox[
     RowBox[{"L", 
       StyleBox[
        AdjustmentBox[
        "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2],
         FontSize -> Smaller], "T", 
       AdjustmentBox[
       "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
        0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> 
   "Mathematica"},
 CounterIncrements->"Subsubtitle",
 CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}},
 FontFamily->"Helvetica",
 FontSize->15,
 FontSlant->"Italic"],

Cell[StyleData["Subsubtitle", "Printout"],
 FontSize->12],

Cell[StyleData["Subsubtitle", "ColorPrintout"],
 FontSize->12]
}, Open  ]],

Cell[CellGroupData[{

Cell[StyleData["Section"],
 CellFrame->{{0, 0}, {0, 0.25}},
 CellMargins->{{36, 20}, {10, 20}},
 CellGroupingRules->{"SectionGrouping", 30},
 PageBreakBelow->False,
 CellFrameMargins->{{10, 4}, {6, 2}},
 InputAutoReplacements->{"TeX" -> StyleBox[
     RowBox[{"T", 
       AdjustmentBox[
       "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
        0.5], "X"}]], "LaTeX" -> StyleBox[
     RowBox[{"L", 
       StyleBox[
        AdjustmentBox[
        "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2],
         FontSize -> Smaller], "T", 
       AdjustmentBox[
       "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
        0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> 
   "Mathematica"},
 CounterIncrements->"Section",
 CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}},
 FontSize->14,
 FontWeight->"Bold",
 FontColor->RGBColor[0.771908, 0.399634, 0.262867]],

Cell[StyleData["Section", "Printout"],
 FontSize->14,
 FontColor->GrayLevel[0.300008]],

Cell[StyleData["Section", "ColorPrintout"],
 FontSize->14]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["Subsection"],
 CellDingbat->None,
 CellMargins->{{36, 20}, {Inherited, 18}},
 CellGroupingRules->{"SectionGrouping", 40},
 PageBreakBelow->False,
 CellFrameMargins->{{2, 12}, {0, 12}},
 CellFrameLabelMargins->6,
 InputAutoReplacements->{"TeX" -> StyleBox[
     RowBox[{"T", 
       AdjustmentBox[
       "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
        0.5], "X"}]], "LaTeX" -> StyleBox[
     RowBox[{"L", 
       StyleBox[
        AdjustmentBox[
        "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2],
         FontSize -> Smaller], "T", 
       AdjustmentBox[
       "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
        0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> 
   "Mathematica"},
 CounterIncrements->"Subsection",
 CounterAssignments->{{"Subsubsection", 0}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[StyleData["Subsection", "Printout"]],

Cell[StyleData["Subsection", "ColorPrintout"]]
}, Open  ]],

Cell[CellGroupData[{

Cell[StyleData["Subsubsection"],
 CellDingbat->"\[EmptySquare]",
 CellMargins->{{36, Inherited}, {Inherited, 12}},
 CellGroupingRules->{"SectionGrouping", 50},
 PageBreakBelow->False,
 CellFrameLabelMargins->6,
 InputAutoReplacements->{"TeX" -> StyleBox[
     RowBox[{"T", 
       AdjustmentBox[
       "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
        0.5], "X"}]], "LaTeX" -> StyleBox[
     RowBox[{"L", 
       StyleBox[
        AdjustmentBox[
        "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2],
         FontSize -> Smaller], "T", 
       AdjustmentBox[
       "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
        0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> 
   "Mathematica"},
 CounterIncrements->"Subsubsection",
 FontFamily->"Helvetica",
 FontSize->10],

Cell[StyleData["Subsubsection", "Printout"]],

Cell[StyleData["Subsubsection", "ColorPrintout"]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Styles for Body Text", "Section",
 CellFrame->{{0, 0}, {0, 2}}],

Cell[CellGroupData[{

Cell[StyleData["Text"],
 CellFrame->False,
 CellMargins->{{36, 20}, {4, 4}},
 CellFrameMargins->{{4, 10}, {6, 0}},
 CellFrameLabelMargins->4,
 InputAutoReplacements->{"TeX" -> StyleBox[
     RowBox[{"T", 
       AdjustmentBox[
       "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
        0.5], "X"}]], "LaTeX" -> StyleBox[
     RowBox[{"L", 
       StyleBox[
        AdjustmentBox[
        "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2],
         FontSize -> Smaller], "T", 
       AdjustmentBox[
       "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
        0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> 
   "Mathematica"},
 Hyphenation->True,
 LineSpacing->{1, 6},
 CounterIncrements->"Text"],

Cell[StyleData["Text", "Printout"],
 LineSpacing->{1, 5},
 FontSize->10],

Cell[StyleData["Text", "ColorPrintout"],
 LineSpacing->{1, 5},
 FontSize->10]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["SmallText"],
 CellMargins->{{100, 38}, {4, 4}},
 InputAutoReplacements->{"TeX" -> StyleBox[
     RowBox[{"T", 
       AdjustmentBox[
       "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
        0.5], "X"}]], "LaTeX" -> StyleBox[
     RowBox[{"L", 
       StyleBox[
        AdjustmentBox[
        "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2],
         FontSize -> Smaller], "T", 
       AdjustmentBox[
       "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
        0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> 
   "Mathematica"},
 Hyphenation->True,
 LineSpacing->{1.25, 1},
 CounterIncrements->"SmallText",
 FontSize->10],

Cell[StyleData["SmallText", "Printout"],
 FontSize->9],

Cell[StyleData["SmallText", "ColorPrintout"],
 FontSize->9]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Styles for Input/Output", "Section"],

Cell["\<\
The cells in this section define styles used for input and output to the \
kernel.  Be careful when modifying, renaming, or removing these styles, \
because the front end associates special meanings with these style names.\
\>", "Text"],

Cell[CellGroupData[{

Cell[StyleData["Input"],
 CellMargins->{{36, 0}, {0, Inherited}},
 Evaluatable->True,
 CellGroupingRules->"InputGrouping",
 CellHorizontalScrolling->True,
 PageBreakWithin->False,
 GroupPageBreakWithin->False,
 CellLabelMargins->{{3, Inherited}, {Inherited, Inherited}},
 DefaultFormatType->DefaultInputFormatType,
 HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"},
 LanguageCategory->"Formula",
 FormatType->InputForm,
 ShowStringCharacters->True,
 NumberMarks->True,
 LinebreakAdjustments->{0.85, 2, 10, 0, 1},
 CounterIncrements->"Input",
 FontWeight->"Bold",
 FontColor->GrayLevel[0],
 Background->RGBColor[0.800015, 0.900008, 1]],

Cell[StyleData["Input", "Printout"],
 LinebreakAdjustments->{0.85, 2, 10, 1, 1},
 FontSize->10,
 Background->GrayLevel[0.900008]],

Cell[StyleData["Input", "ColorPrintout"],
 LinebreakAdjustments->{0.85, 2, 10, 1, 1},
 FontSize->10]
}, Open  ]],

Cell[StyleData["InlineInput"],
 Evaluatable->True,
 CellGroupingRules->"InputGrouping",
 CellHorizontalScrolling->True,
 PageBreakWithin->False,
 GroupPageBreakWithin->False,
 DefaultFormatType->DefaultInputFormatType,
 HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"},
 AutoItalicWords->{},
 FormatType->InputForm,
 ShowStringCharacters->True,
 NumberMarks->True,
 CounterIncrements->"Input",
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[StyleData["Output"],
 CellMargins->{{36, 0}, {Inherited, 0}},
 CellEditDuplicate->True,
 CellGroupingRules->"OutputGrouping",
 CellHorizontalScrolling->True,
 PageBreakWithin->False,
 GroupPageBreakWithin->False,
 GeneratedCell->True,
 CellAutoOverwrite->True,
 CellLabelMargins->{{3, Inherited}, {Inherited, Inherited}},
 DefaultFormatType->DefaultOutputFormatType,
 HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"},
 LanguageCategory->"Formula",
 FormatType->InputForm,
 CounterIncrements->"Output",
 FontColor->GrayLevel[0],
 Background->RGBColor[0.900008, 0.700008, 0.500008]],

Cell[StyleData["Output", "Printout"],
 FontSize->10,
 Background->GrayLevel[0.8]],

Cell[StyleData["Output", "ColorPrintout"],
 FontSize->10]
}, Open  ]],

Cell[CellGroupData[{

Cell[StyleData["Message"],
 CellDingbat->"\[LongDash]",
 CellMargins->{{64, Inherited}, {Inherited, Inherited}},
 CellGroupingRules->"OutputGrouping",
 PageBreakWithin->False,
 GroupPageBreakWithin->False,
 GeneratedCell->True,
 CellAutoOverwrite->True,
 ShowCellLabel->False,
 CellLabelMargins->{{3, Inherited}, {Inherited, Inherited}},
 DefaultFormatType->DefaultOutputFormatType,
 HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"},
 FormatType->InputForm,
 CounterIncrements->"Message",
 StyleMenuListing->None,
 FontFamily->"Helvetica",
 FontSize->10,
 FontSlant->"Oblique"],

Cell[StyleData["Message", "Printout"],
 FontSize->8],

Cell[StyleData["Message", "ColorPrintout"],
 FontSize->8]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["Print"],
 CellMargins->{{36, 20}, {3, 3}},
 CellGroupingRules->"OutputGrouping",
 CellHorizontalScrolling->True,
 PageBreakWithin->False,
 GroupPageBreakWithin->False,
 GeneratedCell->True,
 CellAutoOverwrite->True,
 ShowCellLabel->False,
 CellLabelMargins->{{3, Inherited}, {Inherited, Inherited}},
 DefaultFormatType->DefaultOutputFormatType,
 TextAlignment->Left,
 HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"},
 FormatType->InputForm,
 CounterIncrements->"Print",
 StyleMenuListing->None,
 Background->GrayLevel[0.900008]],

Cell[StyleData["Print", "Printout"],
 FontSize->10,
 Background->GrayLevel[0.900008]],

Cell[StyleData["Print", "ColorPrintout"],
 FontSize->10]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["Graphics"],
 CellMargins->{{36, 0}, {0, 0}},
 CellGroupingRules->"GraphicsGrouping",
 CellHorizontalScrolling->True,
 PageBreakWithin->False,
 GeneratedCell->True,
 CellAutoOverwrite->True,
 ShowCellLabel->False,
 DefaultFormatType->DefaultOutputFormatType,
 FormatType->InputForm,
 CounterIncrements->"Graphics",
 ImageMargins->{{35, Inherited}, {Inherited, 0}},
 Background->GrayLevel[0.950011]],

Cell[StyleData["Graphics", "Printout"],
 FontSize->10,
 Background->GrayLevel[0.8]],

Cell[StyleData["Graphics", "ColorPrintout"],
 FontSize->10]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["CellLabel"],
 StyleMenuListing->None,
 FontFamily->"Helvetica",
 FontSize->9,
 FontColor->RGBColor[0.551492, 0.231144, 0.313466]],

Cell[StyleData["CellLabel", "Printout"],
 FontSize->8,
 FontColor->GrayLevel[0]],

Cell[StyleData["CellLabel", "ColorPrintout"],
 FontSize->8]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Hyperlink Styles", "Section"],

Cell["\<\
The cells below define styles useful for making hypertext ButtonBoxes.  The \
\"Hyperlink\" style is for links within the same Notebook, or between \
Notebooks.\
\>", "Text"],

Cell[CellGroupData[{

Cell[StyleData["Hyperlink"],
 StyleMenuListing->None,
 ButtonStyleMenuListing->Automatic,
 FontVariations->{"Underline"->True},
 FontColor->RGBColor[0, 0, 1],
 ButtonBoxOptions->{Active->True,
 ButtonFunction:>(FrontEndExecute[{
    FrontEnd`NotebookLocate[#2]}]& ),
 ButtonNote->ButtonData}],

Cell[StyleData["Hyperlink", "Printout"],
 FontSize->10,
 FontVariations->{"Underline"->False},
 FontColor->GrayLevel[0]],

Cell[StyleData["Hyperlink", "ColorPrintout"],
 FontSize->10,
 FontVariations->{"Underline"->False}]
}, Closed]],

Cell["\<\
The following styles are for linking automatically to the on-line help \
system.\
\>", "Text"],

Cell[CellGroupData[{

Cell[StyleData["MainBookLink"],
 StyleMenuListing->None,
 ButtonStyleMenuListing->Automatic,
 FontVariations->{"Underline"->True},
 FontColor->RGBColor[0, 0, 1],
 ButtonBoxOptions->{Active->True,
 ButtonFrame->"None",
 ButtonFunction:>(FrontEndExecute[{
    FrontEnd`HelpBrowserLookup["MainBook", #]}]& )}],

Cell[StyleData["MainBookLink", "Printout"],
 FontSize->10,
 FontVariations->{"Underline"->False},
 FontColor->GrayLevel[0]],

Cell[StyleData["MainBookLink", "ColorPrintout"],
 FontSize->10,
 FontVariations->{"Underline"->False}]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["AddOnsLink"],
 StyleMenuListing->None,
 ButtonStyleMenuListing->Automatic,
 FontFamily->"Courier",
 FontVariations->{"Underline"->True},
 FontColor->RGBColor[0, 0, 1],
 ButtonBoxOptions->{Active->True,
 ButtonFrame->"None",
 ButtonFunction:>(FrontEndExecute[{
    FrontEnd`HelpBrowserLookup["AddOns", #]}]& )}],

Cell[StyleData["AddOnsLink", "Printout"],
 FontSize->10,
 FontVariations->{"Underline"->False},
 FontColor->GrayLevel[0]],

Cell[StyleData["AddOnsLink", "ColorPrintout"],
 FontSize->10,
 FontVariations->{"Underline"->False}]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["RefGuideLink"],
 StyleMenuListing->None,
 ButtonStyleMenuListing->Automatic,
 FontFamily->"Courier",
 FontVariations->{"Underline"->True},
 FontColor->RGBColor[0, 0, 1],
 ButtonBoxOptions->{Active->True,
 ButtonFrame->"None",
 ButtonFunction:>(FrontEndExecute[{
    FrontEnd`HelpBrowserLookup["RefGuide", #]}]& )}],

Cell[StyleData["RefGuideLink", "Printout"],
 FontSize->10,
 FontVariations->{"Underline"->False},
 FontColor->GrayLevel[0]],

Cell[StyleData["RefGuideLink", "ColorPrintout"],
 FontSize->10,
 FontVariations->{"Underline"->False}]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["GettingStartedLink"],
 StyleMenuListing->None,
 ButtonStyleMenuListing->Automatic,
 FontVariations->{"Underline"->True},
 FontColor->RGBColor[0, 0, 1],
 ButtonBoxOptions->{Active->True,
 ButtonFrame->"None",
 ButtonFunction:>(FrontEndExecute[{
    FrontEnd`HelpBrowserLookup["GettingStarted", #]}]& )}],

Cell[StyleData["GettingStartedLink", "Printout"],
 FontSize->10,
 FontVariations->{"Underline"->False},
 FontColor->GrayLevel[0]],

Cell[StyleData["GettingStartedLink", "ColorPrintout"],
 FontSize->10,
 FontVariations->{"Underline"->False}]
}, Closed]],

Cell[CellGroupData[{

Cell[StyleData["OtherInformationLink"],
 StyleMenuListing->None,
 ButtonStyleMenuListing->Automatic,
 FontVariations->{"Underline"->True},
 FontColor->RGBColor[0, 0, 1],
 ButtonBoxOptions->{Active->True,
 ButtonFrame->"None",
 ButtonFunction:>(FrontEndExecute[{
    FrontEnd`HelpBrowserLookup["OtherInformation", #]}]& )}],

Cell[StyleData["OtherInformationLink", "Printout"],
 FontSize->10,
 FontVariations->{"Underline"->False},
 FontColor->GrayLevel[0]],

Cell[StyleData["OtherInformationLink", "ColorPrintout"],
 FontSize->10,
 FontVariations->{"Underline"->False}]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Palette Styles", "Section"],

Cell["\<\
The cells below define styles that define standard ButtonFunctions, for use \
in palette buttons.\
\>", "Text"],

Cell[StyleData["Paste"],
 StyleMenuListing->None,
 ButtonStyleMenuListing->Automatic,
 ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[{
    FrontEnd`NotebookApply[
     FrontEnd`InputNotebook[], #, After]}]& )}],

Cell[StyleData["Evaluate"],
 StyleMenuListing->None,
 ButtonStyleMenuListing->Automatic,
 ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[{
    FrontEnd`NotebookApply[
     FrontEnd`InputNotebook[], #, All], 
    SelectionEvaluate[
     FrontEnd`InputNotebook[], All]}]& )}],

Cell[StyleData["EvaluateCell"],
 StyleMenuListing->None,
 ButtonStyleMenuListing->Automatic,
 ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[{
    FrontEnd`NotebookApply[
     FrontEnd`InputNotebook[], #, All], 
    FrontEnd`SelectionMove[
     FrontEnd`InputNotebook[], All, Cell, 1], 
    FrontEnd`SelectionEvaluateCreateCell[
     FrontEnd`InputNotebook[], All]}]& )}],

Cell[StyleData["CopyEvaluate"],
 StyleMenuListing->None,
 ButtonStyleMenuListing->Automatic,
 ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[{
    FrontEnd`SelectionCreateCell[
     FrontEnd`InputNotebook[], All], 
    FrontEnd`NotebookApply[
     FrontEnd`InputNotebook[], #, All], 
    FrontEnd`SelectionEvaluate[
     FrontEnd`InputNotebook[], All]}]& )}],

Cell[StyleData["CopyEvaluateCell"],
 StyleMenuListing->None,
 ButtonStyleMenuListing->Automatic,
 ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[{
    FrontEnd`SelectionCreateCell[
     FrontEnd`InputNotebook[], All], 
    FrontEnd`NotebookApply[
     FrontEnd`InputNotebook[], #, All], 
    FrontEnd`SelectionEvaluateCreateCell[
     FrontEnd`InputNotebook[], All]}]& )}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{660, 791},
WindowMargins->{{Automatic, 277}, {Automatic, 78}},
Magnification->1.25,
FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (May 21, 2008)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[StyleDefinitions -> "Sean.nb"]]}, WindowSize -> {640, 750}, 
  WindowMargins -> {{70, Automatic}, {Automatic, 80}}, Visible -> False, 
  FrontEndVersion -> "6.0 for Mac OS X x86 (32-bit) (May 21, 2008)", 
  StyleDefinitions -> "PrivateStylesheetFormatting.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 37, 0, 45, "Subtitle"],
Cell[630, 25, 190, 4, 48, "Text"],
Cell[CellGroupData[{
Cell[845, 33, 42, 0, 57, "Section"],
Cell[890, 35, 122, 2, 40, 31, 0, "StyleData", "All", "Working"],
Cell[1015, 39, 102, 2, 40, 32, 0, "StyleData", "All", "Printout"],
Cell[1120, 43, 107, 2, 40, 37, 0, "StyleData", "All", "ColorPrintout"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1264, 50, 35, 0, 57, "Section"],
Cell[1302, 52, 99, 2, 25, "Text"],
Cell[1404, 56, 364, 14, 40, 27, 0, "StyleData", "Notebook", "All",
 StyleMenuListing->None]
}, Open  ]],
Cell[CellGroupData[{
Cell[1805, 75, 68, 1, 59, "Section"],
Cell[CellGroupData[{
Cell[1898, 80, 1013, 26, 112, 24, 0, "StyleData", "Title", "All",
 CounterIncrements->"Title",
 CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, {
   "Subtitle", 0}, {"Subsubtitle", 0}}],
Cell[2914, 108, 79, 2, 87, 36, 0, "StyleData", "Title", "Printout"],
Cell[2996, 112, 56, 1, 87, 41, 0, "StyleData", "Title", "ColorPrintout"]
}, Closed]],
Cell[CellGroupData[{
Cell[3089, 118, 920, 23, 51, 27, 0, "StyleData", "Subtitle", "All",
 CounterIncrements->"Subtitle",
 CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, {
   "Subsubtitle", 0}}],
Cell[4012, 143, 87, 2, 87, 39, 0, "StyleData", "Subtitle", "Printout"],
Cell[4102, 147, 59, 1, 87, 44, 0, "StyleData", "Subtitle", "ColorPrintout"]
}, Closed]],
Cell[CellGroupData[{
Cell[4198, 153, 875, 22, 38, 30, 0, "StyleData", "Subsubtitle", "All",
 CounterIncrements->"Subsubtitle",
 CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}}],
Cell[5076, 177, 57, 1, 40, 42, 0, "StyleData", "Subsubtitle", "Printout"],
Cell[5136, 180, 62, 1, 40, 47, 0, "StyleData", "Subsubtitle", \
"ColorPrintout"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5235, 186, 959, 24, 72, 26, 0, "StyleData", "Section", "All",
 CounterIncrements->"Section",
 CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}}],
Cell[6197, 212, 86, 2, 87, 38, 0, "StyleData", "Section", "Printout"],
Cell[6286, 216, 58, 1, 87, 43, 0, "StyleData", "Section", "ColorPrintout"]
}, Closed]],
Cell[CellGroupData[{
Cell[6381, 222, 916, 24, 39, 29, 0, "StyleData", "Subsection", "All",
 CounterIncrements->"Subsection",
 CounterAssignments->{{"Subsubsection", 0}}],
Cell[7300, 248, 41, 0, 57, 41, 0, "StyleData", "Subsection", "Printout"],
Cell[7344, 250, 46, 0, 39, 46, 0, "StyleData", "Subsection", "ColorPrintout"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7427, 255, 862, 22, 47, 32, 0, "StyleData", "Subsubsection", "All",
 CounterIncrements->"Subsubsection"],
Cell[8292, 279, 44, 0, 87, 44, 0, "StyleData", "Subsubsection", "Printout"],
Cell[8339, 281, 49, 0, 87, 49, 0, "StyleData", "Subsubsection", \
"ColorPrintout"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[8437, 287, 69, 1, 59, "Section"],
Cell[CellGroupData[{
Cell[8531, 292, 785, 21, 40, 23, 0, "StyleData", "Text", "All",
 CounterIncrements->"Text"],
Cell[9319, 315, 72, 2, 87, 35, 0, "StyleData", "Text", "Printout"],
Cell[9394, 319, 77, 2, 87, 40, 0, "StyleData", "Text", "ColorPrintout"]
}, Closed]],
Cell[CellGroupData[{
Cell[9508, 326, 730, 19, 36, 28, 0, "StyleData", "SmallText", "All",
 CounterIncrements->"SmallText"],
Cell[10241, 347, 54, 1, 87, 40, 0, "StyleData", "SmallText", "Printout"],
Cell[10298, 350, 59, 1, 87, 45, 0, "StyleData", "SmallText", "ColorPrintout"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[10406, 357, 42, 0, 57, "Section"],
Cell[10451, 359, 246, 4, 70, "Text"],
Cell[CellGroupData[{
Cell[10722, 367, 649, 18, 55, 24, 0, "StyleData", "Input", "All",
 CounterIncrements->"Input"],
Cell[11374, 387, 129, 3, 57, 36, 0, "StyleData", "Input", "Printout"],
Cell[11506, 392, 100, 2, 37, 41, 0, "StyleData", "Input", "ColorPrintout"]
}, Open  ]],
Cell[11621, 397, 429, 13, 40, 30, 0, "StyleData", "InlineInput", "All",
 CounterIncrements->"Input"],
Cell[CellGroupData[{
Cell[12075, 414, 600, 16, 55, 25, 0, "StyleData", "Output", "All",
 CounterIncrements->"Output"],
Cell[12678, 432, 81, 2, 57, 37, 0, "StyleData", "Output", "Printout"],
Cell[12762, 436, 57, 1, 37, 42, 0, "StyleData", "Output", "ColorPrintout"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12856, 442, 592, 17, 37, 26, 0, "StyleData", "Message", "All",
 CounterIncrements->"Message",
 StyleMenuListing->None],
Cell[13451, 461, 52, 1, 87, 38, 0, "StyleData", "Message", "Printout"],
Cell[13506, 464, 57, 1, 87, 43, 0, "StyleData", "Message", "ColorPrintout"]
}, Closed]],
Cell[CellGroupData[{
Cell[13600, 470, 560, 16, 57, 24, 0, "StyleData", "Print", "All",
 CounterIncrements->"Print",
 StyleMenuListing->None],
Cell[14163, 488, 85, 2, 87, 36, 0, "StyleData", "Print", "Printout"],
Cell[14251, 492, 56, 1, 87, 41, 0, "StyleData", "Print", "ColorPrintout"]
}, Closed]],
Cell[CellGroupData[{
Cell[14344, 498, 413, 12, 50, 27, 0, "StyleData", "Graphics", "All",
 CounterIncrements->"Graphics"],
Cell[14760, 512, 83, 2, 87, 39, 0, "StyleData", "Graphics", "Printout"],
Cell[14846, 516, 59, 1, 87, 44, 0, "StyleData", "Graphics", "ColorPrintout"]
}, Closed]],
Cell[CellGroupData[{
Cell[14942, 522, 145, 4, 35, 28, 0, "StyleData", "CellLabel", "All",
 StyleMenuListing->None],
Cell[15090, 528, 80, 2, 87, 40, 0, "StyleData", "CellLabel", "Printout"],
Cell[15173, 532, 59, 1, 87, 45, 0, "StyleData", "CellLabel", "ColorPrintout"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[15281, 539, 35, 0, 83, "Section"],
Cell[15319, 541, 184, 4, 51, "Text"],
Cell[CellGroupData[{
Cell[15528, 549, 292, 8, 40, 28, 0, "StyleData", "Hyperlink", "All",
 StyleMenuListing->None,
 ButtonStyleMenuListing->Automatic],
Cell[15823, 559, 120, 3, 87, 40, 0, "StyleData", "Hyperlink", "Printout"],
Cell[15946, 564, 99, 2, 87, 45, 0, "StyleData", "Hyperlink", "ColorPrintout"]
}, Closed]],
Cell[16060, 569, 104, 3, 27, "Text"],
Cell[CellGroupData[{
Cell[16189, 576, 306, 8, 40, 31, 0, "StyleData", "MainBookLink", "All",
 StyleMenuListing->None,
 ButtonStyleMenuListing->Automatic],
Cell[16498, 586, 123, 3, 87, 43, 0, "StyleData", "MainBookLink", "Printout"],
Cell[16624, 591, 102, 2, 87, 48, 0, "StyleData", "MainBookLink", \
"ColorPrintout"]
}, Closed]],
Cell[CellGroupData[{
Cell[16763, 598, 326, 9, 39, 29, 0, "StyleData", "AddOnsLink", "All",
 StyleMenuListing->None,
 ButtonStyleMenuListing->Automatic],
Cell[17092, 609, 121, 3, 87, 41, 0, "StyleData", "AddOnsLink", "Printout"],
Cell[17216, 614, 100, 2, 87, 46, 0, "StyleData", "AddOnsLink", \
"ColorPrintout"]
}, Closed]],
Cell[CellGroupData[{
Cell[17353, 621, 330, 9, 39, 31, 0, "StyleData", "RefGuideLink", "All",
 StyleMenuListing->None,
 ButtonStyleMenuListing->Automatic],
Cell[17686, 632, 123, 3, 87, 43, 0, "StyleData", "RefGuideLink", "Printout"],
Cell[17812, 637, 102, 2, 87, 48, 0, "StyleData", "RefGuideLink", \
"ColorPrintout"]
}, Closed]],
Cell[CellGroupData[{
Cell[17951, 644, 318, 8, 39, 37, 0, "StyleData", "GettingStartedLink", "All",
 StyleMenuListing->None,
 ButtonStyleMenuListing->Automatic],
Cell[18272, 654, 129, 3, 87, 49, 0, "StyleData", "GettingStartedLink", \
"Printout"],
Cell[18404, 659, 108, 2, 87, 54, 0, "StyleData", "GettingStartedLink", \
"ColorPrintout"]
}, Closed]],
Cell[CellGroupData[{
Cell[18549, 666, 322, 8, 39, 39, 0, "StyleData", "OtherInformationLink", \
"All",
 StyleMenuListing->None,
 ButtonStyleMenuListing->Automatic],
Cell[18874, 676, 131, 3, 87, 51, 0, "StyleData", "OtherInformationLink", \
"Printout"],
Cell[19008, 681, 110, 2, 87, 56, 0, "StyleData", "OtherInformationLink", \
"ColorPrintout"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[19167, 689, 33, 0, 83, "Section"],
Cell[19203, 691, 121, 3, 51, "Text"],
Cell[19327, 696, 216, 5, 40, 24, 0, "StyleData", "Paste", "All",
 StyleMenuListing->None,
 ButtonStyleMenuListing->Automatic],
Cell[19546, 703, 278, 7, 40, 27, 0, "StyleData", "Evaluate", "All",
 StyleMenuListing->None,
 ButtonStyleMenuListing->Automatic],
Cell[19827, 712, 376, 9, 40, 31, 0, "StyleData", "EvaluateCell", "All",
 StyleMenuListing->None,
 ButtonStyleMenuListing->Automatic],
Cell[20206, 723, 363, 9, 40, 31, 0, "StyleData", "CopyEvaluate", "All",
 StyleMenuListing->None,
 ButtonStyleMenuListing->Automatic],
Cell[20572, 734, 377, 9, 40, 35, 0, "StyleData", "CopyEvaluateCell", "All",
 StyleMenuListing->None,
 ButtonStyleMenuListing->Automatic]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)