(* 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[ 48253, 1177] NotebookOptionsPosition[ 12787, 423] NotebookOutlinePosition[ 47933, 1164] CellTagsIndexPosition[ 47890, 1161] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Inverse of ", "Subtitle", Evaluatable->False, CellChangeTimes->{{3.42467793434649*^9, 3.424677942094417*^9}}, AspectRatioFixed->True], Cell["doug ", "Subsubtitle", Evaluatable->False, AspectRatioFixed->True], Cell[BoxData[ RowBox[{ RowBox[{"qCurved", "[", RowBox[{"t_", ",", " ", "x_", ",", " ", "y_", ",", " ", "z_"}], "]"}], " ", ":=", " ", RowBox[{"(", GridBox[{ { RowBox[{"t", " ", RowBox[{"Exp", "[", RowBox[{"-", FractionBox[ RowBox[{"G", " ", "M"}], RowBox[{ SuperscriptBox["C", "2"], SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}]]}]]}], "]"}]}], RowBox[{ RowBox[{"-", "x"}], " ", RowBox[{"Exp", "[", FractionBox[ RowBox[{"G", " ", "M"}], RowBox[{ SuperscriptBox["C", "2"], SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}]]}]], "]"}]}], RowBox[{ RowBox[{"-", "y"}], " ", RowBox[{"Exp", "[", FractionBox[ RowBox[{"G", " ", "M"}], RowBox[{ SuperscriptBox["C", "2"], SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}]]}]], "]"}]}], RowBox[{ RowBox[{"-", "z"}], " ", RowBox[{"Exp", "[", FractionBox[ RowBox[{"G", " ", "M"}], RowBox[{ SuperscriptBox["C", "2"], SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}]]}]], "]"}]}]}, { RowBox[{"x", " ", RowBox[{"Exp", "[", FractionBox[ RowBox[{"G", " ", "M"}], RowBox[{ SuperscriptBox["C", "2"], SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}]]}]], "]"}]}], RowBox[{"t", " ", RowBox[{"Exp", "[", RowBox[{"-", FractionBox[ RowBox[{"G", " ", "M"}], RowBox[{ SuperscriptBox["C", "2"], SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}]]}]]}], "]"}]}], RowBox[{ RowBox[{"-", "z"}], " ", RowBox[{"Exp", "[", FractionBox[ RowBox[{"G", " ", "M"}], RowBox[{ SuperscriptBox["C", "2"], SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}]]}]], "]"}]}], RowBox[{"y", " ", RowBox[{"Exp", "[", FractionBox[ RowBox[{"G", " ", "M"}], RowBox[{ SuperscriptBox["C", "2"], SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}]]}]], "]"}]}]}, { RowBox[{"y", " ", RowBox[{"Exp", "[", FractionBox[ RowBox[{"G", " ", "M"}], RowBox[{ SuperscriptBox["C", "2"], SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}]]}]], "]"}]}], RowBox[{"z", " ", RowBox[{"Exp", "[", FractionBox[ RowBox[{"G", " ", "M"}], RowBox[{ SuperscriptBox["C", "2"], SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}]]}]], "]"}]}], RowBox[{"t", " ", RowBox[{"Exp", "[", RowBox[{"-", FractionBox[ RowBox[{"G", " ", "M"}], RowBox[{ SuperscriptBox["C", "2"], SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}]]}]]}], "]"}]}], RowBox[{ RowBox[{"-", "x"}], " ", RowBox[{"Exp", "[", FractionBox[ RowBox[{"G", " ", "M"}], RowBox[{ SuperscriptBox["C", "2"], SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}]]}]], "]"}]}]}, { RowBox[{"z", " ", RowBox[{"Exp", "[", FractionBox[ RowBox[{"G", " ", "M"}], RowBox[{ SuperscriptBox["C", "2"], SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}]]}]], "]"}]}], RowBox[{ RowBox[{"-", "y"}], " ", RowBox[{"Exp", "[", FractionBox[ RowBox[{"G", " ", "M"}], RowBox[{ SuperscriptBox["C", "2"], SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}]]}]], "]"}]}], RowBox[{"x", " ", RowBox[{"Exp", "[", FractionBox[ RowBox[{"G", " ", "M"}], RowBox[{ SuperscriptBox["C", "2"], SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}]]}]], "]"}]}], RowBox[{"t", " ", RowBox[{"Exp", "[", RowBox[{"-", FractionBox[ RowBox[{"G", " ", "M"}], RowBox[{ SuperscriptBox["C", "2"], SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}]]}]]}], "]"}]}]} }], ")"}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.424677041424322*^9, 3.4246770717893677`*^9}, { 3.4246771158000383`*^9, 3.424677279704988*^9}, {3.424677418628837*^9, 3.424677479869522*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Inverse", "[", RowBox[{ RowBox[{"qCurved", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "/.", RowBox[{"G", "->", "0"}]}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.424677303728942*^9, 3.4246773772918367`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["t", RowBox[{ SuperscriptBox["t", "2"], "+", SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}]], ",", RowBox[{"-", FractionBox["x", RowBox[{ SuperscriptBox["t", "2"], "+", SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}]]}], ",", RowBox[{"-", FractionBox["y", RowBox[{ SuperscriptBox["t", "2"], "+", SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}]]}], ",", RowBox[{"-", FractionBox["z", RowBox[{ SuperscriptBox["t", "2"], "+", SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}]]}]}], "}"}]], "Output", CellChangeTimes->{{3.424677357500925*^9, 3.424677379207941*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"qCurved", "[", RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "]"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.424677303728942*^9, 3.424677392500477*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"G", " ", "M"}], RowBox[{ SuperscriptBox["C", "2"], " ", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}]]}]]], " ", "t"}], RowBox[{ SuperscriptBox["t", "2"], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"4", " ", "G", " ", "M"}], RowBox[{ SuperscriptBox["C", "2"], " ", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}]]}]]], " ", RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}], ")"}]}]}]], ",", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"3", " ", "G", " ", "M"}], RowBox[{ SuperscriptBox["C", "2"], " ", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}]]}]]], " ", "x"}], RowBox[{ SuperscriptBox["t", "2"], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"4", " ", "G", " ", "M"}], RowBox[{ SuperscriptBox["C", "2"], " ", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}]]}]]], " ", RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}], ")"}]}]}]]}], ",", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"3", " ", "G", " ", "M"}], RowBox[{ SuperscriptBox["C", "2"], " ", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}]]}]]], " ", "y"}], RowBox[{ SuperscriptBox["t", "2"], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"4", " ", "G", " ", "M"}], RowBox[{ SuperscriptBox["C", "2"], " ", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}]]}]]], " ", RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}], ")"}]}]}]]}], ",", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"3", " ", "G", " ", "M"}], RowBox[{ SuperscriptBox["C", "2"], " ", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}]]}]]], " ", "z"}], RowBox[{ SuperscriptBox["t", "2"], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"4", " ", "G", " ", "M"}], RowBox[{ SuperscriptBox["C", "2"], " ", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}]]}]]], " ", RowBox[{"(", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}], ")"}]}]}]]}]}], "}"}]], "Output", CellChangeTimes->{3.424677393839595*^9, 3.424677486180593*^9}] }, Open ]] }, Open ]] }, AutoGeneratedPackage->None, WindowToolbars->{"RulerBar", "EditBar"}, CellGrouping->Automatic, WindowSize->{941, 576}, WindowMargins->{{5, Automatic}, {Automatic, 16}}, DockedCells->FEPrivate`FrontEndResource[ "FEExpressions", "CompatibilityToolbar"], PrintingCopies->1, PrintingPageRange->{2, 10}, PrivateNotebookOptions->{"ColorPalette"->{RGBColor, 128}}, ShowCellTags->False, RenderingOptions->{"ObjectDithering"->True, "RasterDithering"->False}, CharacterEncoding->"MacintoshAutomaticEncoding", FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (June 19, 2007)", StyleDefinitions->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"], PageWidth -> WindowWidth, ScriptMinSize -> 9], Cell[ StyleData[All, "Presentation"], PageWidth -> WindowWidth, ScriptMinSize -> 12, FontSize -> 16], Cell[ StyleData[All, "Condensed"], PageWidth -> WindowWidth, CellBracketOptions -> {"Margins" -> {1, 1}, "Widths" -> {0, 5}}, ScriptMinSize -> 8, FontSize -> 11], Cell[ StyleData[All, "Printout"], PageWidth -> PaperWidth, ScriptMinSize -> 5, FontSize -> 10, PrivateFontOptions -> {"FontType" -> "Outline"}]}, Closed]], Cell[ CellGroupData[{ Cell["Notebook Options", "Section", FontFamily -> "New York"], Cell[ "The options defined for the style below will be used at the \ Notebook level.", "Text", FontFamily -> "New York"], 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"]}}, CellFrameLabelMargins -> 6, StyleMenuListing -> None, FontFamily -> "New York"]}, Closed]], Cell[ CellGroupData[{ Cell["Styles for Headings", "Section", FontFamily -> "New York"], Cell[ CellGroupData[{ Cell[ StyleData["Title"], CellMargins -> {{7, Inherited}, {8, 40}}, Evaluatable -> False, CellGroupingRules -> {"TitleGrouping", 0}, CellHorizontalScrolling -> False, PageBreakBelow -> False, TextAlignment -> Center, CounterIncrements -> "Title", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Subtitle", 0}, {"Subsubtitle", 0}}, AspectRatioFixed -> True, FontFamily -> "New York", FontSize -> 24, FontWeight -> "Bold"], Cell[ StyleData["Title", "Presentation"], CellMargins -> {{24, 10}, {20, 40}}, LineSpacing -> {1, 0}, FontFamily -> "New York", FontSize -> 44], Cell[ StyleData["Title", "Condensed"], CellMargins -> {{8, 10}, {4, 8}}, FontFamily -> "New York", FontSize -> 20], Cell[ StyleData["Title", "Printout"], CellMargins -> {{2, 10}, {12, 30}}, FontFamily -> "New York", FontSize -> 24]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subtitle"], CellMargins -> {{7, Inherited}, {6, 15}}, Evaluatable -> False, CellGroupingRules -> {"TitleGrouping", 10}, CellHorizontalScrolling -> False, PageBreakBelow -> False, TextAlignment -> Center, CounterIncrements -> "Subtitle", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Subsubtitle", 0}}, AspectRatioFixed -> True, FontFamily -> "New York", FontSize -> 18], Cell[ StyleData["Subtitle", "Presentation"], CellMargins -> {{24, 10}, {20, 20}}, LineSpacing -> {1, 0}, FontFamily -> "New York", FontSize -> 36], Cell[ StyleData["Subtitle", "Condensed"], CellMargins -> {{8, 10}, {4, 4}}, FontFamily -> "New York", FontSize -> 14], Cell[ StyleData["Subtitle", "Printout"], CellMargins -> {{2, 10}, {12, 8}}, FontFamily -> "New York", FontSize -> 18]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubtitle"], CellMargins -> {{7, Inherited}, {6, 15}}, Evaluatable -> False, CellGroupingRules -> {"TitleGrouping", 20}, CellHorizontalScrolling -> False, PageBreakBelow -> False, TextAlignment -> Center, CounterIncrements -> "Subsubtitle", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}}, AspectRatioFixed -> True, FontFamily -> "New York", FontSize -> 14, FontSlant -> "Italic"], Cell[ StyleData["Subsubtitle", "Presentation"], CellMargins -> {{24, 10}, {20, 20}}, LineSpacing -> {1, 0}, FontFamily -> "New York", FontSize -> 24], Cell[ StyleData["Subsubtitle", "Condensed"], CellMargins -> {{8, 10}, {8, 8}}, FontFamily -> "New York", FontSize -> 12], Cell[ StyleData["Subsubtitle", "Printout"], CellMargins -> {{2, 10}, {12, 8}}, FontFamily -> "New York", FontSize -> 14]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Section"], CellDingbat -> "\[GraySquare]", CellMargins -> {{22, Inherited}, {8, 20}}, Evaluatable -> False, CellGroupingRules -> {"SectionGrouping", 30}, CellHorizontalScrolling -> False, PageBreakBelow -> False, CounterIncrements -> "Section", CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}}, AspectRatioFixed -> True, FontFamily -> "New York", FontSize -> 18, FontWeight -> "Bold", FontVariations -> {"Underline" -> True}], Cell[ StyleData["Section", "Presentation"], CellMargins -> {{40, 10}, {11, 32}}, LineSpacing -> {1, 0}, FontFamily -> "New York", FontSize -> 24], Cell[ StyleData["Section", "Condensed"], CellMargins -> {{18, Inherited}, {6, 12}}, FontFamily -> "New York", FontSize -> 12], Cell[ StyleData["Section", "Printout"], CellMargins -> {{13, 0}, {7, 22}}, FontFamily -> "New York", FontSize -> 14]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsection"], CellDingbat -> "\[FilledSquare]", CellMargins -> {{19, Inherited}, {8, 15}}, Evaluatable -> False, CellGroupingRules -> {"SectionGrouping", 40}, CellHorizontalScrolling -> False, PageBreakBelow -> False, CounterIncrements -> "Subsection", CounterAssignments -> {{"Subsubsection", 0}}, AspectRatioFixed -> True, FontFamily -> "Times New Roman", FontSize -> 14, FontWeight -> "Bold"], Cell[ StyleData["Subsection", "Presentation"], CellMargins -> {{36, 10}, {11, 32}}, LineSpacing -> {1, 0}, FontFamily -> "Times New Roman", FontSize -> 22], Cell[ StyleData["Subsection", "Condensed"], CellMargins -> {{16, Inherited}, {6, 12}}, FontFamily -> "Times New Roman", FontSize -> 12], Cell[ StyleData["Subsection", "Printout"], CellMargins -> {{9, 0}, {7, 22}}, FontFamily -> "Times New Roman", FontSize -> 12]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubsection"], CellDingbat -> "\[EmptySquare]", CellMargins -> {{18, Inherited}, {8, 12}}, Evaluatable -> False, CellGroupingRules -> {"SectionGrouping", 50}, CellHorizontalScrolling -> False, PageBreakBelow -> False, CounterIncrements -> "Subsubsection", AspectRatioFixed -> True, FontFamily -> "Times New Roman", FontSize -> 12, FontWeight -> "Bold"], Cell[ StyleData["Subsubsection", "Presentation"], CellMargins -> {{34, 10}, {11, 26}}, LineSpacing -> {1, 0}, FontFamily -> "New York", FontSize -> 18], Cell[ StyleData["Subsubsection", "Condensed"], CellMargins -> {{17, Inherited}, {6, 12}}, FontFamily -> "New York", FontSize -> 10], Cell[ StyleData["Subsubsection", "Printout"], CellMargins -> {{9, 0}, {7, 14}}, FontFamily -> "New York", FontSize -> 11]}, Closed]]}, Open]], Cell[ CellGroupData[{ Cell["Styles for Body Text", "Section", FontFamily -> "New York"], Cell[ CellGroupData[{ Cell[ StyleData["Text"], CellMargins -> {{7, 10}, {7, 7}}, Evaluatable -> False, CellHorizontalScrolling -> False, PageBreakWithin -> Automatic, LineSpacing -> {1, 3}, CounterIncrements -> "Text", AspectRatioFixed -> True, FontFamily -> "Times New Roman", FontSize -> 12], Cell[ StyleData["Text", "Presentation"], CellMargins -> {{24, 10}, {10, 10}}, LineSpacing -> {1, 5}, FontFamily -> "Times New Roman"], Cell[ StyleData["Text", "Condensed"], CellMargins -> {{8, 10}, {6, 6}}, LineSpacing -> {1, 1}, FontFamily -> "Times New Roman"], Cell[ StyleData["Text", "Printout"], CellMargins -> {{2, 2}, {6, 6}}, FontFamily -> "Times New Roman"]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["SmallText"], CellMargins -> {{7, 10}, {6, 6}}, Evaluatable -> False, CellHorizontalScrolling -> False, PageBreakWithin -> Automatic, LineSpacing -> {1, 3}, CounterIncrements -> "SmallText", AspectRatioFixed -> True, FontFamily -> "New York", FontSize -> 10], Cell[ StyleData["SmallText", "Presentation"], CellMargins -> {{24, 10}, {8, 8}}, LineSpacing -> {1, 5}, FontFamily -> "New York", FontSize -> 12], Cell[ StyleData["SmallText", "Condensed"], CellMargins -> {{8, 10}, {5, 5}}, LineSpacing -> {1, 2}, FontFamily -> "New York", FontSize -> 9], Cell[ StyleData["SmallText", "Printout"], CellMargins -> {{2, 2}, {5, 5}}, FontFamily -> "New York", FontSize -> 7]}, Closed]]}, Open]], Cell[ CellGroupData[{ Cell[ "Styles for Input/Output", "Section", FontFamily -> "Courier", FontSize -> 14, FontWeight -> "Plain"], 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", FontFamily -> "Courier", FontSize -> 14], Cell[ CellGroupData[{ Cell[ StyleData["Input"], PageWidth -> Infinity, CellMargins -> {{42, 10}, {5, 7}}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, CellLabelMargins -> {{23, Inherited}, {Inherited, Inherited}}, DefaultFormatType -> DefaultInputFormatType, LineSpacing -> {1, 0}, AutoItalicWords -> {}, FormatType -> InputForm, ShowStringCharacters -> True, NumberMarks -> True, CounterIncrements -> "Input", AspectRatioFixed -> True, FontFamily -> "Courier", FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", FontTracking -> "Plain", FontVariations -> { "Outline" -> False, "Shadow" -> False, "Underline" -> False}], Cell[ StyleData["Input", "Presentation"], CellMargins -> {{72, Inherited}, {8, 10}}, LineSpacing -> {1, 0}, FontFamily -> "Courier", FontSize -> 14, FontWeight -> "Plain"], Cell[ StyleData["Input", "Condensed"], CellMargins -> {{40, 10}, {2, 3}}, FontFamily -> "Courier", FontSize -> 14, FontWeight -> "Plain"], Cell[ StyleData["Input", "Printout"], CellMargins -> {{39, 0}, {4, 6}}, FontFamily -> "Courier", FontSize -> 14, FontWeight -> "Plain"]}, Closed]], Cell[ StyleData["InputOnly"], Evaluatable -> True, CellGroupingRules -> "InputGrouping", CellHorizontalScrolling -> True, DefaultFormatType -> DefaultInputFormatType, AutoItalicWords -> {}, FormatType -> InputForm, ShowStringCharacters -> True, NumberMarks -> True, CounterIncrements -> "Input", StyleMenuListing -> None, FontFamily -> "Courier", FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", FontTracking -> "Plain", FontVariations -> { "Outline" -> False, "Shadow" -> False, "Underline" -> False}], Cell[ CellGroupData[{ Cell[ StyleData["Output"], PageWidth -> Infinity, CellMargins -> {{42, 10}, {7, 5}}, CellEditDuplicate -> True, Evaluatable -> False, CellGroupingRules -> "OutputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, CellLabelMargins -> {{23, Inherited}, {Inherited, Inherited}}, DefaultFormatType -> DefaultOutputFormatType, LineSpacing -> {1, 0}, AutoItalicWords -> {}, FormatType -> InputForm, CounterIncrements -> "Output", AspectRatioFixed -> True, FontFamily -> "Courier", FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", FontTracking -> "Plain", FontVariations -> { "Outline" -> False, "Shadow" -> False, "Underline" -> False}], Cell[ StyleData["Output", "Presentation"], CellMargins -> {{72, Inherited}, {10, 8}}, LineSpacing -> {1, 0}, FontFamily -> "Courier", FontSize -> 14], Cell[ StyleData["Output", "Condensed"], CellMargins -> {{41, Inherited}, {3, 2}}, FontFamily -> "Courier", FontSize -> 14], Cell[ StyleData["Output", "Printout"], CellMargins -> {{39, 0}, {6, 4}}, FontFamily -> "Courier", FontSize -> 14]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Message"], PageWidth -> Infinity, CellMargins -> {{42, Inherited}, {Inherited, Inherited}}, Evaluatable -> False, CellGroupingRules -> "OutputGrouping", PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, ShowCellLabel -> False, CellLabelMargins -> {{23, Inherited}, { Inherited, Inherited}}, DefaultFormatType -> DefaultOutputFormatType, LineSpacing -> {1, 0}, AutoItalicWords -> {}, FormatType -> InputForm, CounterIncrements -> "Message", AspectRatioFixed -> True, StyleMenuListing -> None, FontFamily -> "Courier", FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", FontTracking -> "Plain", FontVariations -> { "Outline" -> False, "Shadow" -> False, "Underline" -> False}, FontColor -> RGBColor[0.500008, 0, 0]], Cell[ StyleData["Message", "Presentation"], CellMargins -> {{72, Inherited}, {Inherited, Inherited}}, LineSpacing -> {1, 0}, FontFamily -> "Courier", FontSize -> 14], Cell[ StyleData["Message", "Condensed"], CellMargins -> {{41, Inherited}, {Inherited, Inherited}}, FontFamily -> "Courier", FontSize -> 14], Cell[ StyleData["Message", "Printout"], CellMargins -> {{39, Inherited}, {Inherited, Inherited}}, FontFamily -> "Courier", FontSize -> 14, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Print"], PageWidth -> Infinity, CellMargins -> {{42, Inherited}, {Inherited, Inherited}}, Evaluatable -> False, CellGroupingRules -> "OutputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, ShowCellLabel -> False, CellLabelMargins -> {{23, Inherited}, {Inherited, Inherited}}, DefaultFormatType -> DefaultOutputFormatType, LineSpacing -> {1, 0}, AutoItalicWords -> {}, FormatType -> InputForm, CounterIncrements -> "Print", AspectRatioFixed -> True, StyleMenuListing -> None, FontFamily -> "Courier", FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", FontTracking -> "Plain", FontVariations -> { "Outline" -> False, "Shadow" -> False, "Underline" -> False}], Cell[ StyleData["Print", "Presentation"], CellMargins -> {{72, Inherited}, {Inherited, Inherited}}, LineSpacing -> {1, 0}, FontFamily -> "Courier", FontSize -> 14], Cell[ StyleData["Print", "Condensed"], CellMargins -> {{41, Inherited}, {Inherited, Inherited}}, FontFamily -> "Courier", FontSize -> 14], Cell[ StyleData["Print", "Printout"], CellMargins -> {{39, Inherited}, {Inherited, Inherited}}, FontFamily -> "Courier", FontSize -> 14]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Graphics"], PageWidth -> Infinity, CellMargins -> {{7, Inherited}, {Inherited, Inherited}}, Evaluatable -> False, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, ShowCellLabel -> False, DefaultFormatType -> DefaultOutputFormatType, FormatType -> InputForm, CounterIncrements -> "Graphics", AspectRatioFixed -> True, ImageSize -> {387, 393}, ImageMargins -> {{34, Inherited}, {Inherited, 0}}, StyleMenuListing -> None, FontFamily -> "Courier", FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", FontTracking -> "Plain", FontVariations -> { "Outline" -> False, "Shadow" -> False, "Underline" -> False}], Cell[ StyleData["Graphics", "Presentation"], ImageMargins -> {{62, Inherited}, {Inherited, 0}}, FontFamily -> "Courier", FontSize -> 14], Cell[ StyleData["Graphics", "Condensed"], ImageSize -> {175, 175}, ImageMargins -> {{38, Inherited}, {Inherited, 0}}, FontFamily -> "Courier", FontSize -> 14], Cell[ StyleData["Graphics", "Printout"], ImageSize -> {250, 250}, ImageMargins -> {{30, Inherited}, {Inherited, 0}}, FontFamily -> "Courier", FontSize -> 14]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["CellLabel"], StyleMenuListing -> None, FontFamily -> "Courier", FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", FontTracking -> "Plain", FontVariations -> { "Outline" -> False, "Shadow" -> False, "Underline" -> False}, FontColor -> RGBColor[0, 0, 1]], Cell[ StyleData["CellLabel", "Presentation"], FontFamily -> "Courier", FontSize -> 14], Cell[ StyleData["CellLabel", "Condensed"], FontFamily -> "Courier", FontSize -> 14], Cell[ StyleData["CellLabel", "Printout"], FontFamily -> "Courier", FontSize -> 14, FontColor -> GrayLevel[0]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Formulas and Programming", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["InlineFormula"], CellMargins -> {{10, 4}, {0, 8}}, CellHorizontalScrolling -> True, ScriptLevel -> 1, SingleLetterItalics -> True], Cell[ StyleData["InlineFormula", "Presentation"], CellMargins -> {{24, 10}, {10, 10}}, LineSpacing -> {1, 5}], Cell[ StyleData["InlineFormula", "Condensed"], CellMargins -> {{8, 10}, {6, 6}}, LineSpacing -> {1, 1}], Cell[ StyleData["InlineFormula", "Printout"], CellMargins -> {{2, 0}, {6, 6}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["DisplayFormula"], CellMargins -> {{42, Inherited}, {Inherited, Inherited}}, CellHorizontalScrolling -> True, DefaultFormatType -> DefaultInputFormatType, ScriptLevel -> 0, SingleLetterItalics -> True, UnderoverscriptBoxOptions -> {LimitsPositioning -> True}], Cell[ StyleData["DisplayFormula", "Presentation"], LineSpacing -> {1, 5}], Cell[ StyleData["DisplayFormula", "Condensed"], LineSpacing -> {1, 1}], Cell[ StyleData["DisplayFormula", "Printout"]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Styles for Headers and Footers", "Section"], Cell[ StyleData["Header"], CellMargins -> {{7, 0}, {4, 1}}, Evaluatable -> False, PageBreakWithin -> Automatic, AspectRatioFixed -> True, StyleMenuListing -> None, FontFamily -> "Times", FontSize -> 12, FontSlant -> "Italic"], Cell[ StyleData["Footer"], CellMargins -> {{7, 0}, {0, 4}}, Evaluatable -> False, PageBreakWithin -> Automatic, TextAlignment -> Center, AspectRatioFixed -> True, StyleMenuListing -> None, FontFamily -> "Times", FontSize -> 12, FontSlant -> "Italic"], Cell[ StyleData["PageNumber"], CellMargins -> {{0, 0}, {4, 1}}, StyleMenuListing -> None, FontFamily -> "Times", FontSize -> 10]}, Closed]], 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]}]& )}]}, Closed]], 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", "Presentation"]], Cell[ StyleData["Hyperlink", "Condensed"]], Cell[ StyleData["Hyperlink", "Printout"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, 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", "Presentation"]], Cell[ StyleData["MainBookLink", "Condensed"]], Cell[ StyleData["MainBookLink", "Printout"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, 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", "Presentation"]], Cell[ StyleData["AddOnsLink", "Condensed"]], Cell[ StyleData["AddOnLink", "Printout"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, 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["RefGuideLink", #]}]& )}], Cell[ StyleData["RefGuideLink", "Presentation"]], Cell[ StyleData["RefGuideLink", "Condensed"]], Cell[ StyleData["RefGuideLink", "Printout"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, 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", "Presentation"]], Cell[ StyleData["GettingStartedLink", "Condensed"]], Cell[ StyleData["GettingStartedLink", "Printout"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, 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", "Presentation"]], Cell[ StyleData["OtherInformationLink", "Condensed"]], Cell[ StyleData["OtherInformationLink", "Printout"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Placeholder Styles", "Section"], Cell[ "The cells below define styles useful for making placeholder objects \ in palette templates.", "Text"], Cell[ CellGroupData[{ Cell[ StyleData["Placeholder"], Editable -> False, Selectable -> False, StyleBoxAutoDelete -> True, Placeholder -> True, StyleMenuListing -> None], Cell[ StyleData["Placeholder", "Presentation"]], Cell[ StyleData["Placeholder", "Condensed"]], Cell[ StyleData["Placeholder", "Printout"]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SelectionPlaceholder"], Editable -> False, Selectable -> False, StyleBoxAutoDelete -> True, Placeholder -> Primary, StyleMenuListing -> None, DrawHighlighted -> True], Cell[ StyleData["SelectionPlaceholder", "Presentation"]], Cell[ StyleData["SelectionPlaceholder", "Condensed"]], Cell[ StyleData["SelectionPlaceholder", "Printout"]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["FormatType Styles", "Section"], Cell[ "The cells below define styles that are mixed in with the styles of \ most cells. If a cell's FormatType matches the name of one of the styles \ defined below, then that style is applied between the cell's style and its \ own options.", "Text"], Cell[ StyleData["CellExpression"], PageWidth -> Infinity, CellMargins -> {{6, Inherited}, {Inherited, Inherited}}, ShowCellLabel -> False, ShowSpecialCharacters -> False, AllowInlineCells -> False, AutoItalicWords -> {}, StyleMenuListing -> None, FontFamily -> "Courier", Background -> GrayLevel[1]], Cell[ StyleData["InputForm"], AllowInlineCells -> False, StyleMenuListing -> None, FontFamily -> "Courier"], Cell[ StyleData["OutputForm"], PageWidth -> Infinity, TextAlignment -> Left, LineSpacing -> {1, -5}, StyleMenuListing -> None, FontFamily -> "Courier"], Cell[ StyleData["StandardForm"], LineSpacing -> {1.25, 0}, StyleMenuListing -> None, FontFamily -> "Courier"], Cell[ StyleData["TraditionalForm"], LineSpacing -> {1.25, 0}, SingleLetterItalics -> True, TraditionalFunctionNotation -> True, DelimiterMatching -> None, StyleMenuListing -> None], Cell[ "The style defined below is mixed in to any cell that is in an \ inline cell within another.", "Text"], Cell[ StyleData["InlineCell"], TextAlignment -> Left, ScriptLevel -> 1, StyleMenuListing -> None], Cell[ StyleData["InlineCellEditing"], StyleMenuListing -> None, Background -> RGBColor[1, 0.749996, 0.8]]}, Closed]]}, Open]]}, Visible -> False, FrontEndVersion -> "6.0 for Mac OS X x86 (32-bit) (June 19, 2007)", StyleDefinitions -> "Default.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 142, 3, 39, "Subtitle", Evaluatable->False], Cell[735, 28, 99, 2, 35, "Subsubtitle", Evaluatable->False], Cell[837, 32, 6209, 200, 177, "Input", InitializationCell->True], Cell[CellGroupData[{ Cell[7071, 236, 393, 10, 42, "Input"], Cell[7467, 248, 934, 30, 65, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8438, 283, 336, 8, 42, "Input"], Cell[8777, 293, 3982, 126, 101, "Output"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)