(* 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[ 57737, 1488] NotebookOptionsPosition[ 21262, 701] NotebookOutlinePosition[ 56324, 1440] CellTagsIndexPosition[ 56281, 1437] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Inverse of Curved Quaternions", "Subtitle", Evaluatable->False, CellChangeTimes->{{3.42467793434649*^9, 3.424677942094417*^9}, { 3.4246802833280697`*^9, 3.424680293276375*^9}}, AspectRatioFixed->True], Cell["doug ", "Subsubtitle", Evaluatable->False, CellChangeTimes->{{3.4246811164950457`*^9, 3.424681121367169*^9}}, AspectRatioFixed->True], Cell["Define the curved quaternion:", "Text", CellChangeTimes->{{3.424681111464645*^9, 3.424681113350587*^9}, { 3.424682146608716*^9, 3.424682166984853*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"qCurved", "[", RowBox[{"t_", ",", " ", "x_", ",", " ", "y_", ",", " ", "z_", ",", RowBox[{"M_:", "M"}], ",", RowBox[{"G_:", "G"}], ",", RowBox[{"C_:", "C"}]}], "]"}], " ", ":=", " ", 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}, {3.424685413801382*^9, 3.424685442065469*^9}}], Cell["\<\ Show the inverse is the same as the Hamilton quaernion should M go to zero\ \>", "Text", CellChangeTimes->{{3.424682192848386*^9, 3.424682225915588*^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}, 3.4246854578154593`*^9}] }, Open ]], Cell["Get the inverse in the general case:", "Text", CellChangeTimes->{{3.424682263988958*^9, 3.424682273613697*^9}}], 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 ]], Cell["Look at a specific example:", "Text", CellChangeTimes->{{3.424682288141634*^9, 3.424682299838665*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Inverse", "[", RowBox[{"qCurved", "[", RowBox[{"t", ",", "x", ",", "0", ",", "0"}], "]"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4246779871075773`*^9, 3.4246779896645203`*^9}, { 3.42467917848308*^9, 3.424679212562366*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"G", " ", "M"}], RowBox[{ SuperscriptBox["C", "2"], " ", SqrtBox[ SuperscriptBox["x", "2"]]}]]], " ", "t"}], RowBox[{ SuperscriptBox["t", "2"], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"4", " ", "G", " ", "M"}], RowBox[{ SuperscriptBox["C", "2"], " ", SqrtBox[ SuperscriptBox["x", "2"]]}]]], " ", SuperscriptBox["x", "2"]}]}]], ",", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"3", " ", "G", " ", "M"}], RowBox[{ SuperscriptBox["C", "2"], " ", SqrtBox[ SuperscriptBox["x", "2"]]}]]], " ", "x"}], RowBox[{ SuperscriptBox["t", "2"], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"4", " ", "G", " ", "M"}], RowBox[{ SuperscriptBox["C", "2"], " ", SqrtBox[ SuperscriptBox["x", "2"]]}]]], " ", SuperscriptBox["x", "2"]}]}]]}], ",", "0", ",", "0"}], "}"}]], "Output",\ CellChangeTimes->{3.424677991064493*^9, 3.424679214369676*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Inverse", "[", RowBox[{ RowBox[{"qCurved", "[", RowBox[{"t", ",", "x", ",", "0", ",", "0"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"t", "->", "1"}], ",", RowBox[{"x", "->", "1"}]}], "}"}]}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4246779871075773`*^9, 3.4246779896645203`*^9}, { 3.42467917848308*^9, 3.424679219202879*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox[ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"G", " ", "M"}], SuperscriptBox["C", "2"]]], RowBox[{"1", "+", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"4", " ", "G", " ", "M"}], SuperscriptBox["C", "2"]]]}]], ",", RowBox[{"-", FractionBox[ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"3", " ", "G", " ", "M"}], SuperscriptBox["C", "2"]]], RowBox[{"1", "+", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"4", " ", "G", " ", "M"}], SuperscriptBox["C", "2"]]]}]]}], ",", "0", ",", "0"}], "}"}]], "Output", CellChangeTimes->{3.424679220880567*^9}] }, Open ]], Cell["Trivial proof.", "Text", CellChangeTimes->{{3.424680909371316*^9, 3.424680915245964*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"qCurved", "[", RowBox[{"t", ",", "x", ",", "0", ",", "0"}], "]"}], ".", RowBox[{"Inverse", "[", RowBox[{"qCurved", "[", RowBox[{"t", ",", "x", ",", "0", ",", "0"}], "]"}], "]"}], ".", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4246779871075773`*^9, 3.4246779896645203`*^9}, { 3.424679085375223*^9, 3.4246791060155163`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}]], "Output", CellChangeTimes->{3.424679106655614*^9}] }, Open ]], Cell["Look at the product of t with its inverse:", "Text", CellChangeTimes->{{3.424680928712141*^9, 3.424680948111595*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ FractionBox[ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"G", " ", "M"}], SuperscriptBox["C", "2"]]], RowBox[{"1", "+", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"4", " ", "G", " ", "M"}], SuperscriptBox["C", "2"]]]}]], SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ RowBox[{"G", " ", "M"}], SuperscriptBox["C", "2"]]}]]}]], "Input", CellChangeTimes->{{3.424680489449692*^9, 3.424680494904086*^9}}], Cell[BoxData[ FractionBox["1", RowBox[{"1", "+", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"4", " ", "G", " ", "M"}], SuperscriptBox["C", "2"]]]}]]], "Output", CellChangeTimes->{3.424680496767486*^9}] }, Open ]], Cell["One over the norm.", "Text", CellChangeTimes->{{3.4246809559744473`*^9, 3.4246809611599607`*^9}}], Cell["Look at the product of x with its inverse:", "Text", CellChangeTimes->{{3.424680967956706*^9, 3.4246809776249237`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"3", " ", "G", " ", "M"}], SuperscriptBox["C", "2"]]], RowBox[{"1", "+", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"4", " ", "G", " ", "M"}], SuperscriptBox["C", "2"]]]}]]}], SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"G", " ", "M"}], SuperscriptBox["C", "2"]]]}]], "Input", CellChangeTimes->{{3.424680527514689*^9, 3.424680531415883*^9}}], Cell[BoxData[ RowBox[{"-", FractionBox[ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"4", " ", "G", " ", "M"}], SuperscriptBox["C", "2"]]], RowBox[{"1", "+", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"4", " ", "G", " ", "M"}], SuperscriptBox["C", "2"]]]}]]}]], "Output", CellChangeTimes->{3.424680533097213*^9}] }, Open ]], Cell["This is minus an exponential factor to the fourth.", "Text", CellChangeTimes->{{3.424680997583446*^9, 3.4246810435238447`*^9}}], Cell["Subtract these two results due to the sign of x*x", "Text", CellChangeTimes->{{3.424681072842185*^9, 3.4246810963657618`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ RowBox[{ FractionBox[ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"G", " ", "M"}], SuperscriptBox["C", "2"]]], RowBox[{"1", "+", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"4", " ", "G", " ", "M"}], SuperscriptBox["C", "2"]]]}]], SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ RowBox[{"G", " ", "M"}], SuperscriptBox["C", "2"]]}]]}], "+", RowBox[{ FractionBox[ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"3", " ", "G", " ", "M"}], SuperscriptBox["C", "2"]]], RowBox[{"1", "+", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"4", " ", "G", " ", "M"}], SuperscriptBox["C", "2"]]]}]], SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"G", " ", "M"}], SuperscriptBox["C", "2"]]]}]}], "]"}]], "Input", CellChangeTimes->{{3.424680578365944*^9, 3.4246806184283037`*^9}}], Cell[BoxData["1"], "Output", CellChangeTimes->{{3.42468060580264*^9, 3.424680619773726*^9}}] }, Open ]], Cell["Bingo, bing.", "Text", CellChangeTimes->{{3.424685494218605*^9, 3.4246854962643547`*^9}}] }, Open ]] }, AutoGeneratedPackage->None, WindowToolbars->{"RulerBar", "EditBar"}, CellGrouping->Automatic, WindowSize->{941, 576}, WindowMargins->{{5, Automatic}, {Automatic, 16}}, 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, 211, 4, 39, "Subtitle", Evaluatable->False], Cell[804, 29, 166, 3, 35, "Subsubtitle", Evaluatable->False], Cell[973, 34, 160, 2, 28, "Text"], Cell[1136, 38, 6348, 202, 177, "Input", InitializationCell->True], Cell[7487, 242, 164, 3, 28, "Text"], Cell[CellGroupData[{ Cell[7676, 249, 393, 10, 42, "Input"], Cell[8072, 261, 962, 31, 65, "Output"] }, Open ]], Cell[9049, 295, 118, 1, 28, "Text"], Cell[CellGroupData[{ Cell[9192, 300, 336, 8, 26, "Input"], Cell[9531, 310, 3982, 126, 85, "Output"] }, Open ]], Cell[13528, 439, 109, 1, 28, "Text"], Cell[CellGroupData[{ Cell[13662, 444, 388, 9, 26, "Input"], Cell[14053, 455, 1352, 45, 80, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15442, 505, 527, 14, 26, "Input"], Cell[15972, 521, 775, 25, 70, "Output"] }, Open ]], Cell[16762, 549, 96, 1, 28, "Text"], Cell[CellGroupData[{ Cell[16883, 554, 481, 11, 26, "Input"], Cell[17367, 567, 135, 3, 26, "Output"] }, Open ]], Cell[17517, 573, 124, 1, 28, "Text"], Cell[CellGroupData[{ Cell[17666, 578, 532, 17, 70, "Input"], Cell[18201, 597, 238, 7, 58, "Output"] }, Open ]], Cell[18454, 607, 104, 1, 28, "Text"], Cell[18561, 610, 126, 1, 28, "Text"], Cell[CellGroupData[{ Cell[18712, 615, 548, 17, 70, "Input"], Cell[19263, 634, 386, 12, 70, "Output"] }, Open ]], Cell[19664, 649, 134, 1, 28, "Text"], Cell[19801, 652, 133, 1, 28, "Text"], Cell[CellGroupData[{ Cell[19959, 657, 1080, 34, 70, "Input"], Cell[21042, 693, 93, 1, 26, "Output"] }, Open ]], Cell[21150, 697, 96, 1, 28, "Text"] }, Open ]] } ] *) (* End of internal cache information *)