(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 29750, 764] NotebookOptionsPosition[ 18459, 501] NotebookOutlinePosition[ 28790, 733] CellTagsIndexPosition[ 28747, 730] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[TextData[{ "Math 421 ", StyleBox["\[FilledSmallCircle]", FontSlant->"Plain"], " Fall 2010" }], "Subsubtitle", CellChangeTimes->{{3.491932055484375*^9, 3.4919320560625*^9}}, TextAlignment->Center, TextJustification->0], Cell[CellGroupData[{ Cell["Cartesian and polar coordinates drawing", "Subtitle", CellChangeTimes->{{3.493724024375*^9, 3.493724031203125*^9}, { 3.49476553774025*^9, 3.494765539599625*^9}}, TextAlignment->Center], Cell["16 October 2010", "Subsubtitle", CellChangeTimes->{{3.490874635953125*^9, 3.49087464390625*^9}, 3.490907179140625*^9, 3.491167197609375*^9, {3.49193205175*^9, 3.49193205225*^9}, {3.492518926453125*^9, 3.492518929578125*^9}, { 3.493461250984375*^9, 3.4934612513125*^9}, 3.496166519265625*^9, { 3.4963191311875*^9, 3.496319131328125*^9}, {3.496319210625*^9, 3.496319213953125*^9}}, TextAlignment->Center], Cell["\<\ Copyright \[Copyright] 2010 by Murray Eisenberg. All rights reserved.\ \>", "SmallText", CellChangeTimes->{{3.49087462759375*^9, 3.490874627890625*^9}, 3.49087470490625*^9, {3.491932085203125*^9, 3.49193210259375*^9}, { 3.4919322084375*^9, 3.491932244375*^9}, {3.49616653275*^9, 3.49616654371875*^9}}, TextAlignment->Center, TextJustification->0], Cell[CellGroupData[{ Cell["Introduction", "Section", CellChangeTimes->{{3.496166714125*^9, 3.496166716296875*^9}}], Cell["\<\ This notebook indicates begins by making a static drawing of a point in the \ complex plane along with the arrow (vector) from the origin to that point. It \ then enhances that drawing so as to print the point's Cartesian and polar \ coordinates. Finally, it changes the static point and arrow to dynamic \ objects that you can control interactively.\ \>", "Text", CellChangeTimes->{{3.496166718703125*^9, 3.496166789125*^9}, { 3.49625208753125*^9, 3.4962521170625*^9}}], Cell["\<\ The notebook is based upon a demonstration in class 22 September 2010.\ \>", "Text", CellChangeTimes->{{3.49631918853125*^9, 3.49631920659375*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Initialization", "Section", CellChangeTimes->{{3.496166561078125*^9, 3.49616656290625*^9}}], Cell[TextData[{ "Load the ", StyleBox["Presentations", FontSlant->"Italic"], " add-on:" }], "Text", CellChangeTimes->{{3.496166567171875*^9, 3.49616657621875*^9}}], Cell[BoxData[ RowBox[{"<<", "Presentations`"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.493724084328125*^9, 3.49372409*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Static drawing", "Section", CellChangeTimes->{{3.49616665484375*^9, 3.496166660515625*^9}, { 3.496166994359375*^9, 3.4961669955625*^9}}], Cell["The following input expressions produce the basic drawing.", "Text", CellChangeTimes->{{3.49616667278125*^9, 3.49616669371875*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"p", "=", RowBox[{"1", "+", "\[ImaginaryI]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Draw2D", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{"Blue", ",", "Thick", ",", RowBox[{"Arrowheads", "[", "0.075", "]"}], ",", "\[IndentingNewLine]", RowBox[{"ComplexArrow", "[", RowBox[{"{", RowBox[{"0", ",", "p"}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Red", ",", RowBox[{"PointSize", "[", "Large", "]"}], ",", "\[IndentingNewLine]", RowBox[{"ComplexPoint", "[", "p", "]"}]}], "\[IndentingNewLine]", "}"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", RowBox[{"4", " ", "72"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.49372413721875*^9, 3.49372437246875*^9}, { 3.49372443603125*^9, 3.493724475140625*^9}}], Cell[TextData[{ "Enhance that darwing by including output of the Cartesian and polar \ coordinates of the point (and center the drawing at the origin by specifying \ a ", StyleBox["PlotRange", FontFamily->"Courier", FontWeight->"Plain", FontSlant->"Plain"], "):" }], "Text", CellChangeTimes->{{3.49616688078125*^9, 3.496166945859375*^9}, { 3.496167442171875*^9, 3.4961674456875*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"p", "=", RowBox[{"1", "+", "\[ImaginaryI]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Column", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{"Re", "[", "z", "]"}], "\[Equal]", RowBox[{"Re", "[", "pt", "]"}]}], ",", "\"\<, \>\"", ",", RowBox[{ RowBox[{"Im", "[", "z", "]"}], "\[Equal]", RowBox[{"Im", "[", "p", "]"}]}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<|\>\"", ",", "z", ",", "\"\<|\[Equal]\>\"", ",", RowBox[{"Abs", "[", "pt", "]"}], ",", "\"\<, \>\"", ",", RowBox[{ RowBox[{"Arg", "[", "z", "]"}], "==", RowBox[{"Arg", "[", "p", "]"}]}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Draw2D", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{"Blue", ",", "Thick", ",", RowBox[{"Arrowheads", "[", "0.075", "]"}], ",", "\[IndentingNewLine]", RowBox[{"ComplexArrow", "[", RowBox[{"{", RowBox[{"0", ",", "p"}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Red", ",", RowBox[{"PointSize", "[", "Large", "]"}], ",", "\[IndentingNewLine]", RowBox[{"ComplexPoint", "[", "p", "]"}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"BaseStyle", "\[Rule]", "14"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", RowBox[{"4", " ", "72"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], "Input", CellChangeTimes->{{3.493715525359375*^9, 3.493715723*^9}, { 3.493715777203125*^9, 3.493716225765625*^9}, {3.49371702340625*^9, 3.49371703725*^9}, 3.496166967015625*^9, {3.496176585265625*^9, 3.496176586359375*^9}, 3.496176840390625*^9, {3.496176932140625*^9, 3.496176936203125*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Dynamic drawing", "Section", CellChangeTimes->{{3.49616665484375*^9, 3.496166660515625*^9}, { 3.496166994359375*^9, 3.496167007390625*^9}}], Cell[TextData[{ "Replace the fixed point ", StyleBox["p", FontFamily->"Courier", FontWeight->"Plain", FontSlant->"Plain"], " with a variable point and allow that point to be controlled interactively." }], "Text", CellChangeTimes->{{3.496167010140625*^9, 3.4961670645625*^9}}], Cell[TextData[{ "As a naive way to do that, use a pair of real variables ", StyleBox["x", FontFamily->"Courier", FontWeight->"Plain", FontSlant->"Plain"], " and ", StyleBox["y", FontFamily->"Courier", FontWeight->"Plain", FontSlant->"Plain"], "\[LongDash]the real and imaginary parts of the point:" }], "Text", CellChangeTimes->{{3.496167155625*^9, 3.496167184*^9}}], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{ RowBox[{"p", "=", RowBox[{"x", "+", RowBox[{"y", " ", "\[ImaginaryI]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Column", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{"Re", "[", "z", "]"}], "\[Equal]", RowBox[{"Re", "[", "p", "]"}]}], ",", "\"\<, \>\"", ",", RowBox[{ RowBox[{"Im", "[", "z", "]"}], "\[Equal]", RowBox[{"Im", "[", "p", "]"}]}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<|\>\"", ",", "z", ",", "\"\<|\[Equal]\>\"", ",", RowBox[{"Abs", "[", "pt", "]"}], ",", "\"\<, \>\"", ",", RowBox[{ RowBox[{"Arg", "[", "z", "]"}], "==", RowBox[{"Arg", "[", "p", "]"}]}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Draw2D", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{"Blue", ",", "Thick", ",", RowBox[{"Arrowheads", "[", "0.075", "]"}], ",", "\[IndentingNewLine]", RowBox[{"ComplexArrow", "[", RowBox[{"{", RowBox[{"0", ",", "p"}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Red", ",", RowBox[{"PointSize", "[", "Large", "]"}], ",", "\[IndentingNewLine]", RowBox[{"ComplexPoint", "[", "p", "]"}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"BaseStyle", "\[Rule]", "16"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", RowBox[{"4.75", " ", "72"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}], ",", RowBox[{"-", "2"}], ",", "2", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"y", ",", "1"}], "}"}], ",", RowBox[{"-", "2"}], ",", "2", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.493715525359375*^9, 3.493715723*^9}, { 3.493715777203125*^9, 3.493716225765625*^9}, {3.49371699065625*^9, 3.493717012515625*^9}, {3.493717050578125*^9, 3.493717204796875*^9}, 3.493717242890625*^9, 3.49616708671875*^9, {3.496176595109375*^9, 3.496176596625*^9}, {3.496176631140625*^9, 3.496176829984375*^9}, { 3.496176870421875*^9, 3.4961769196875*^9}, 3.49617701721875*^9, 3.496252042484375*^9}], Cell[TextData[{ "As a more direct way to accomplish the same thing, use a two-dimensional \ point ", StyleBox["pt", FontFamily->"Courier", FontWeight->"Plain", FontSlant->"Plain"], " as the control variable:" }], "Text", CellChangeTimes->{{3.496167250609375*^9, 3.496167279953125*^9}}], Cell[BoxData[ RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"p", "=", RowBox[{"ToComplex", "[", "pt", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Column", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{"Re", "[", "z", "]"}], "\[Equal]", RowBox[{"Re", "[", "p", "]"}]}], ",", "\"\<, \>\"", ",", RowBox[{ RowBox[{"Im", "[", "z", "]"}], "\[Equal]", RowBox[{"Im", "[", "p", "]"}]}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<|\>\"", ",", "z", ",", "\"\<|\[Equal]\>\"", ",", RowBox[{"Abs", "[", "p", "]"}], ",", "\"\<, \>\"", ",", RowBox[{ RowBox[{"Arg", "[", "z", "]"}], "==", RowBox[{"Arg", "[", "p", "]"}]}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Draw2D", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{"Blue", ",", "Thick", ",", RowBox[{"Arrowheads", "[", "0.075", "]"}], ",", "\[IndentingNewLine]", RowBox[{"ComplexArrow", "[", RowBox[{"{", RowBox[{"0", ",", "p"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Legacy", "@", "IndianRed"}], ",", RowBox[{"PointSize", "[", "Large", "]"}], ",", "\[IndentingNewLine]", RowBox[{"ComplexPoint", "[", "p", "]"}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"BaseStyle", "\[Rule]", "16"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", RowBox[{"4.75", " ", "72"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"pt", ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.493715525359375*^9, 3.493715723*^9}, { 3.493715777203125*^9, 3.493716308203125*^9}, {3.493716396734375*^9, 3.493716538125*^9}, 3.496167291734375*^9, {3.496176951859375*^9, 3.49617698015625*^9}, {3.496177045859375*^9, 3.496177046265625*^9}}], Cell[TextData[{ "Finally, again use a two-dimensional point as the control variable, but \ make the control a ", StyleBox["Locator", FontFamily->"Courier", FontWeight->"Plain", FontSlant->"Plain"], ". Using the mouse, you may directly move the point." }], "Text", CellChangeTimes->{{3.496177054*^9, 3.49617712453125*^9}}], Cell[BoxData[ RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"p", "=", RowBox[{"ToComplex", "[", "pt", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Column", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{"Re", "[", "z", "]"}], "\[Equal]", RowBox[{"Re", "[", "p", "]"}]}], ",", "\"\<, \>\"", ",", RowBox[{ RowBox[{"Im", "[", "z", "]"}], "\[Equal]", RowBox[{"Im", "[", "p", "]"}]}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<|\>\"", ",", "z", ",", "\"\<|\[Equal]\>\"", ",", RowBox[{"Abs", "[", "p", "]"}], ",", "\"\<, \>\"", ",", RowBox[{ RowBox[{"Arg", "[", "z", "]"}], "==", RowBox[{"Arg", "[", "p", "]"}]}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Draw2D", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{"Blue", ",", "Thick", ",", RowBox[{"Arrowheads", "[", "0.075", "]"}], ",", "\[IndentingNewLine]", RowBox[{"ComplexArrow", "[", RowBox[{"{", RowBox[{"0", ",", "p"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Legacy", "@", "IndianRed"}], ",", RowBox[{"PointSize", "[", "Large", "]"}], ",", "\[IndentingNewLine]", RowBox[{"ComplexPoint", "[", "p", "]"}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"BaseStyle", "\[Rule]", "16"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", RowBox[{"4.75", " ", "72"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"pt", ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", "Locator"}], "}"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.493715525359375*^9, 3.493715723*^9}, { 3.493715777203125*^9, 3.493716308203125*^9}, {3.493716396734375*^9, 3.493716538125*^9}, 3.496167291734375*^9, {3.496176951859375*^9, 3.49617698015625*^9}, {3.49625180159375*^9, 3.496251808921875*^9}}] }, Closed]] }, Open ]] }, AutoGeneratedPackage->None, InitializationCellEvaluation->True, InitializationCellWarning->False, WindowSize->{580, 436}, WindowMargins->{{252, Automatic}, {Automatic, 183}}, ShowSelection->True, FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ CellGroupData[{ Cell["Style Environment Names", "Section"], Cell[ StyleData[All, "Working"], Background -> RGBColor[0.9921568627450981, 0.9607843137254902, 0.9019607843137255]], Cell[ StyleData[All, "Presentation"], Background -> RGBColor[0.9921568627450981, 0.9607843137254902, 0.9019607843137255]], Cell[ StyleData[All, "SlideShow"], Background -> RGBColor[0.9921568627450981, 0.9607843137254902, 0.9019607843137255]], Cell[ StyleData[All, "Condensed"], Background -> RGBColor[0.9921568627450981, 0.9607843137254902, 0.9019607843137255]], Cell[ StyleData[All, "Printout"], Background -> None]}, Closed]], Cell[ CellGroupData[{ Cell["Notebook Options Settings", "Section"], Cell[ StyleData["Notebook"], ShowCellBracket -> Automatic, InputAliases -> {"intt" -> RowBox[{"\[Integral]", RowBox[{"\[SelectionPlaceholder]", RowBox[{"\[DifferentialD]", "\[Placeholder]"}]}]}], "dintt" -> RowBox[{ SubsuperscriptBox[ "\[Integral]", "\[SelectionPlaceholder]", "\[Placeholder]"], RowBox[{"\[Placeholder]", RowBox[{"\[DifferentialD]", "\[Placeholder]"}]}]}], "sumt" -> RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"\[SelectionPlaceholder]", "=", "\[Placeholder]"}], "\[Placeholder]"], "\[Placeholder]"}], "prodt" -> RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"\[SelectionPlaceholder]", "=", "\[Placeholder]"}], "\[Placeholder]"], "\[Placeholder]"}], "dt" -> RowBox[{ SubscriptBox["\[PartialD]", "\[Placeholder]"], " ", "\[SelectionPlaceholder]"}], "prime" -> "\:02b9", "dprime" -> "\:02ba"}, Magnification -> 1.04]}, Closed]], Cell[ CellGroupData[{ Cell["Styles for Title and Section Cells", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["Title"], ShowCellBracket -> False, CellMargins -> {{12, Inherited}, {0, 5}}, AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, FontFamily -> "Helvetica", FontSize -> 36, FontWeight -> "Bold", FontColor -> GrayLevel[0], Background -> RGBColor[0.737255, 0.894118, 0.807843]], Cell[ StyleData["Title", "Printout"], ShowCellBracket -> False, CellMargins -> {{12, Inherited}, {0, 5}}, AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, FontFamily -> "Helvetica", FontSize -> 26, FontWeight -> "Bold", FontColor -> GrayLevel[0], Background -> None]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Subtitle"], ShowCellBracket -> False, CellMargins -> {{12, Inherited}, {0, 0}}, AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, FontFamily -> "Helvetica", FontSize -> 24, Background -> RGBColor[0.815686, 0.901961, 0.92549]], Cell[ StyleData["Subtitle", "Printout"], ShowCellBracket -> False, CellMargins -> {{12, Inherited}, {0, 0}}, AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, FontFamily -> "Helvetica", FontSize -> 18, Background -> None]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Chaptertitle"], ShowCellBracket -> False, CellMargins -> {{12, Inherited}, {0, 0}}, AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, MenuPosition -> 1170, FontFamily -> "Helvetica", FontSize -> 24, Background -> RGBColor[0.941176, 0.87451, 0.784314]], Cell[ StyleData["Chaptertitle", "Printout"], ShowCellBracket -> False, CellMargins -> {{12, Inherited}, {0, 0}}, AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, MenuPosition -> 1170, FontFamily -> "Helvetica", FontSize -> 18, Background -> None]}, Open]], Cell[ StyleData["Subsubtitle"], ShowCellBracket -> False, CellMargins -> {{12, Inherited}, {20, 5}}, FontFamily -> "Helvetica", FontSize -> 14, FontWeight -> "Bold", FontSlant -> "Plain"], Cell[ StyleData["Section"], CellFrame -> False, ShowGroupOpener -> True, AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}], Cell[ StyleData["Subsection"], CellDingbat -> "", ShowGroupOpener -> True, AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}], Cell[ StyleData["Subsubsection"], CellDingbat -> "", ShowGroupOpener -> True, AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}], Cell[ StyleData["Subsubsubsection"], CellDingbat -> "", ShowGroupOpener -> True, AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, MenuPosition -> 1360], Cell[ StyleData["Subsubsubsubsection"], ShowGroupOpener -> True, AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, MenuPosition -> 1370]}, Closed]], Cell[ CellGroupData[{ Cell["Styles for Body Text", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["Text"], AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, FontSize -> 14], Cell[ StyleData["Text", "Printout"], AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, FontSize -> 10]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["EvaluatableText", StyleDefinitions -> StyleData["Text"]], Evaluator -> None, Evaluatable -> True, MenuPosition -> 1405], Cell[ StyleData["EvaluatableText", "Printout"], Evaluator -> None, Evaluatable -> True, AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, MenuPosition -> 1405, FontSize -> 10]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["EmphasisText", StyleDefinitions -> StyleData["Text"]], CellFrame -> True, AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, MenuPosition -> 1410, FontFamily -> "Helvetica", FontSize -> 14], Cell[ StyleData["EmphasisText", "Printout"], CellFrame -> True, AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, MenuPosition -> 1410, FontFamily -> "Helvetica", FontSize -> 10]}, Open]], Cell[ StyleData["BlueComments", StyleDefinitions -> StyleData["Text"]], AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, MenuPosition -> 1420, FontSize -> 14, Background -> RGBColor[0.941207, 0.972503, 1]], Cell[ CellGroupData[{ Cell[ StyleData[ "Exercise", StyleDefinitions -> StyleData["BlueComments"]], CellFrame -> True, TextJustification -> 0.5, Hyphenation -> True, AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, CounterIncrements -> "Exercise", MenuPosition -> 1425, FontSize -> 14, Background -> RGBColor[0.941207, 0.972503, 1]], Cell[ StyleData[ "Exercise", "Printout", StyleDefinitions -> StyleData["Text"]], CellFrame -> True, TextJustification -> 0.5, Hyphenation -> True, AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, CounterIncrements -> "Exercise", MenuPosition -> 1425, FontSize -> 10], Cell[ StyleData[ "BlueComments", "Printout", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{2, 2}, {6, 6}}, TextJustification -> 0.5, Hyphenation -> True, AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, MenuPosition -> 1420, FontSize -> 10]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["PinkComments", StyleDefinitions -> StyleData["Text"]], AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, MenuPosition -> 1430, FontSize -> 14, Background -> RGBColor[1, 0.894102, 0.882399]], Cell[ StyleData[ "PinkComments", "Printout", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{2, 2}, {6, 6}}, TextJustification -> 0.5, Hyphenation -> True, AutoItalicWords -> {"Presentations", "Mathematica", "Tensorial"}, MenuPosition -> 1430, FontSize -> 10]}, Open]]}, Closed]], Cell[ CellGroupData[{ Cell["Styles for Input and Output Cells", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["Input"], FontSize -> 13, FontWeight -> "Bold", Background -> RGBColor[0.976471, 0.909804, 0.815686]], Cell[ StyleData["Input", "Printout"], FontSize -> 10, FontWeight -> "Bold", Background -> None]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Output"], FontSize -> 14, FontWeight -> "Bold"], Cell[ StyleData["Output", "Printout"], FontSize -> 10, FontWeight -> "Bold"]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["MSG"], FontSize -> 14], Cell[ StyleData["MSG", "Printout"], FontSize -> 10]}, Open]]}, Closed]]}, Visible -> False, FrontEndVersion -> "7.0 for Microsoft Windows (32-bit) (February 18, 2009)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[545, 20, 232, 8, 44, "Subsubtitle"], Cell[CellGroupData[{ Cell[802, 32, 194, 3, 44, "Subtitle"], Cell[999, 37, 428, 7, 44, "Subsubtitle"], Cell[1430, 46, 370, 8, 24, "SmallText"], Cell[CellGroupData[{ Cell[1825, 58, 94, 1, 67, "Section"], Cell[1922, 61, 483, 8, 92, "Text"], Cell[2408, 71, 158, 3, 31, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[2603, 79, 98, 1, 36, "Section"], Cell[2704, 82, 169, 6, 32, "Text"], Cell[2876, 90, 144, 3, 49, "Input", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[3057, 98, 145, 2, 36, "Section"], Cell[3205, 102, 138, 1, 32, "Text"], Cell[3346, 105, 892, 20, 196, "Input"], Cell[4241, 127, 395, 11, 54, "Text"], Cell[4639, 140, 2516, 61, 342, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[7192, 206, 148, 2, 36, "Section"], Cell[7343, 210, 285, 8, 32, "Text"], Cell[7631, 220, 384, 13, 32, "Text"], Cell[8018, 235, 3576, 86, 383, "Input"], Cell[11597, 323, 295, 9, 32, "Text"], Cell[11895, 334, 3178, 78, 404, "Input"], Cell[15076, 414, 331, 9, 54, "Text"], Cell[15410, 425, 3021, 72, 404, "Input"] }, Closed]] }, Open ]] } ] *) (* End of internal cache information *)