(* 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[ 27927, 796] NotebookOptionsPosition[ 15562, 504] NotebookOutlinePosition[ 26102, 743] CellTagsIndexPosition[ 26025, 738] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["Math 421 \[FilledSmallCircle] Fall 2010", "Subsubtitle", CellChangeTimes->{{3.498167306953125*^9, 3.4981673073125*^9}}, TextAlignment->Center], Cell[CellGroupData[{ Cell["Contours and contour integrals", "Subtitle", TextAlignment->Center, TextJustification->0], Cell["8 November 2010", "Subsubtitle", CellChangeTimes->{{3.49816733175*^9, 3.498167334375*^9}}, TextAlignment->Center], Cell["\<\ Copyright \[Copyright] 2004\[Dash]2010 by Murray Eisenberg. All rights \ reserved.\ \>", "SmallText", CellChangeTimes->{ 3.46720487134375*^9, {3.49816729275*^9, 3.498167317078125*^9}}, TextAlignment->Center, TextJustification->0], Cell[CellGroupData[{ Cell["Initialization", "Section", ShowGroupOpener->True, CellChangeTimes->{{3.4906339376875*^9, 3.49063394653125*^9}, { 3.490638317984375*^9, 3.49063833975*^9}, {3.490735161125*^9, 3.490735165125*^9}, 3.490984367984375*^9}, CellTags->"initialization"], Cell[TextData[{ "When you opened this notebook, it should have prompted you whether you want \ to evaluate Initialization Cells. You should have answered \ \[OpenCurlyDoubleQuote]yes.\[CloseCurlyDoubleQuote]\nIf you did not, then ", StyleBox["evaluate the following Input cell now", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], ". (Even if the cell was already evaluated, it won\[CloseCurlyQuote]t hurt \ if you evaluate it again.)" }], "Text", ShowGroupOpener->True, CellChangeTimes->{{3.490634229484375*^9, 3.49063436175*^9}, 3.490634682*^9, { 3.490634737515625*^9, 3.4906347940625*^9}, {3.490700557578125*^9, 3.49070056315625*^9}, 3.49073510265625*^9, 3.490735145640625*^9, { 3.491059504265625*^9, 3.4910595165*^9}}, ParagraphSpacing->{0.5, 0.}], Cell[BoxData[ RowBox[{"<<", "Presentations`"}]], "Input", ShowGroupOpener->True, InitializationCell->True, CellChangeTimes->{{3.49063458959375*^9, 3.490634598328125*^9}, { 3.490650191265625*^9, 3.49065019440625*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["The two-arched cycloid: a non-smooth, piecewise-smooth curve", "Section"], Cell[BoxData[{ RowBox[{"Clear", "[", "\[Gamma]", "]"}], "\n", RowBox[{ RowBox[{"\[Gamma]", "[", "t_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{"t", "-", RowBox[{"Sin", "[", "t", "]"}], "-", "1"}], ")"}], "+", RowBox[{"\[ImaginaryI]", RowBox[{"(", RowBox[{"1", "-", RowBox[{"Cos", "[", "t", "]"}]}], ")"}]}]}]}]}], "Input", CellChangeTimes->{{3.467204912625*^9, 3.4672049263125*^9}}], Cell[BoxData[ RowBox[{"Draw2D", "[", RowBox[{ RowBox[{"{", RowBox[{"Red", ",", "Thick", ",", RowBox[{"ComplexCurve", "[", RowBox[{ RowBox[{"\[Gamma]", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"4", "\[Pi]"}]}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"Axes", "\[Rule]", "True"}]}], "]"}]], "Input", CellChangeTimes->{{3.4672048894375*^9, 3.4672048946875*^9}, { 3.46720492909375*^9, 3.46720493821875*^9}, {3.498167368703125*^9, 3.498167378875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Gamma]", "'"}], "[", "t", "]"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"\[Gamma]", "'"}], "[", RowBox[{"{", RowBox[{"0", ",", RowBox[{"2", "\[Pi]"}], ",", RowBox[{"4", "\[Pi]"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.467204996875*^9, 3.467204998484375*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Approximating a contour integral by Riemann sums", "Section"], Cell[TextData[{ "The example: Find the integral of the conjugate function ", Cell[BoxData[ FormBox[ RowBox[{"z", "\[Conjugate]"}], TraditionalForm]]], " around the unit circle ", Cell[BoxData[ FormBox["C", TraditionalForm]]], " (traversed once, in the positive direction). That is, evaluate:\n\t", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[ContourIntegral]", RowBox[{" ", "C"}]], " ", RowBox[{ RowBox[{"z", "\[Conjugate]"}], " ", RowBox[{"\[DifferentialD]", "z"}]}]}], TraditionalForm]]] }], "Text", CellChangeTimes->{ 3.4672050068125*^9, {3.467207100046875*^9, 3.46720710628125*^9}, { 3.467207138109375*^9, 3.467207151625*^9}, {3.49816747015625*^9, 3.4981674733125*^9}}, ParagraphSpacing->{0.5, 0}], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"f", ",", "\[Gamma]"}], "]"}]], "Input", CellChangeTimes->{{3.467205009796875*^9, 3.467205013296875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "z_", "]"}], ":=", RowBox[{"z", "\[Conjugate]"}]}]], "Input", CellChangeTimes->{{3.467205017015625*^9, 3.467205022484375*^9}, { 3.467206469328125*^9, 3.4672064735625*^9}, {3.467207127890625*^9, 3.46720713175*^9}}], Cell[TextData[{ "Use one of the usual parametrizations of ", Cell[BoxData[ FormBox["C", TraditionalForm]]], ":" }], "Text"], Cell[BoxData[{ RowBox[{ RowBox[{"\[Gamma]", "[", "t_", "]"}], ":=", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", "t"}]]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", "0"}], ";", RowBox[{"b", "=", RowBox[{"2", "\[Pi]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.467205026875*^9, 3.467205037546875*^9}}], Cell["The parametrization is smooth:", "Text", CellChangeTimes->{3.467205045453125*^9}], Cell[BoxData[ RowBox[{ RowBox[{"\[Gamma]", "'"}], "[", "t", "]"}]], "Input"], Cell[TextData[{ "Approximate the contour integral using ", Cell[BoxData[ FormBox[ RowBox[{"n", "=", "8"}], TraditionalForm]]], " points in the partition:" }], "Text", CellChangeTimes->{{3.46720505053125*^9, 3.467205051515625*^9}}], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{"n", "=", "8"}], ";", RowBox[{"\[CapitalDelta]t", "=", RowBox[{ RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}], "/", "n"}]}]}]}]], "Input", CellChangeTimes->{{3.4672050559375*^9, 3.467205068109375*^9}}], Cell[TextData[{ "Subidvide the time interval ", Cell[BoxData[ FormBox[ RowBox[{"[", RowBox[{"a", ",", " ", "b"}], "]"}], TraditionalForm]]], ":" }], "Text"], Cell[BoxData[{ RowBox[{ SubscriptBox["t", "k_"], ":=", RowBox[{"a", "+", RowBox[{"k", " ", "\[CapitalDelta]t"}]}]}], "\n", RowBox[{"Table", "[", RowBox[{ SubscriptBox["t", "k"], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.46720507728125*^9, 3.46720509396875*^9}}], Cell["Take the corresponding points on the curve:", "Text"], Cell[BoxData[{ RowBox[{ SubscriptBox["z", "k_"], ":=", RowBox[{"\[Gamma]", "[", SubscriptBox["t", "k"], "]"}]}], "\n", RowBox[{"zs", "=", RowBox[{"Table", "[", RowBox[{ SubscriptBox["z", "k"], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.467205100328125*^9, 3.46720511603125*^9}}], Cell[BoxData[ RowBox[{"Draw2D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ComplexCirclePoint", "[", RowBox[{"#", ",", "4", ",", "Black", ",", "Pink"}], "]"}], "&"}], "/@", "zs"}], ",", RowBox[{"Legacy", "@", "DarkGreen"}], ",", "Thick", ",", RowBox[{"ComplexCircle", "[", RowBox[{"0", ",", "1"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"4", " ", "72"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.467205119828125*^9, 3.467205178828125*^9}, { 3.467205255*^9, 3.46720526675*^9}, {3.46720530503125*^9, 3.467205402859375*^9}, {3.46720548684375*^9, 3.4672055543125*^9}, { 3.4672056249375*^9, 3.467205635296875*^9}, 3.46720570409375*^9, { 3.467205774140625*^9, 3.467205845796875*^9}, {3.4981675150625*^9, 3.498167521265625*^9}}], Cell[TextData[{ "The increments in ", Cell[BoxData[ FormBox["z", TraditionalForm]]], ":" }], "Text"], Cell[BoxData[{ RowBox[{ SubscriptBox["\[CapitalDelta]z", "k_"], ":=", RowBox[{ SubscriptBox["z", "k"], "-", SubscriptBox["z", RowBox[{"k", " ", "-", " ", "1"}]]}]}], "\n", RowBox[{ RowBox[{"Table", "[", RowBox[{ SubscriptBox["\[CapitalDelta]z", "k"], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}], " "}]}], "Input", CellChangeTimes->{{3.467205420359375*^9, 3.467205433234375*^9}}], Cell[TextData[{ "As ", StyleBox["sample points", FontWeight->"Bold"], ", choose midpoints of each arc on ", Cell[BoxData[ FormBox["C", TraditionalForm]]], ":" }], "Text"], Cell[BoxData[{ RowBox[{ SubscriptBox["c", "k_"], ":=", RowBox[{"\[Gamma]", "[", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ SubscriptBox["t", RowBox[{"k", "-", "1"}]], "+", SubscriptBox["t", "k"]}], ")"}]}], "]"}]}], "\n", RowBox[{"cs", "=", RowBox[{"Table", "[", RowBox[{ SubscriptBox["c", "k"], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.467205439796875*^9, 3.46720546653125*^9}}], Cell["Visualize all that so far:", "Text"], Cell[BoxData[ RowBox[{"Draw2D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ComplexCirclePoint", "[", RowBox[{"#", ",", "4", ",", "Black", ",", "Pink"}], "]"}], "&"}], "/@", "zs"}], ",", RowBox[{"Legacy", "@", "DarkGreen"}], ",", "Thick", ",", RowBox[{"ComplexCircle", "[", RowBox[{"0", ",", "1"}], "]"}], ",", "\[IndentingNewLine]", "Blue", ",", RowBox[{"PointSize", "[", "Large", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"ComplexCirclePoint", "[", RowBox[{"#", ",", "4", ",", RowBox[{"Legacy", "@", "Ultramarine"}], ",", "LightGreen"}], "]"}], "&"}], "/@", "cs"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Axes", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", RowBox[{"4", " ", "72"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.467205119828125*^9, 3.467205178828125*^9}, { 3.467205255*^9, 3.46720526675*^9}, {3.46720530503125*^9, 3.467205402859375*^9}, 3.467205519375*^9, {3.4672055715625*^9, 3.467205572125*^9}, {3.467205723796875*^9, 3.46720574190625*^9}, { 3.467205854765625*^9, 3.467205855640625*^9}, {3.467206525703125*^9, 3.467206560390625*^9}, {3.46720659978125*^9, 3.46720683540625*^9}, { 3.49816754246875*^9, 3.498167546203125*^9}}], Cell[TextData[{ "Evaluate the given function ", Cell[BoxData[ FormBox["f", TraditionalForm]]], " at each of those sample points:" }], "Text"], Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"f", "[", SubscriptBox["c", "k"], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.467205885359375*^9, 3.46720588928125*^9}}], Cell["Form the Riemann sum approximation:", "Text"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], RowBox[{ RowBox[{"f", "[", SubscriptBox["c", "k"], "]"}], " ", SubscriptBox["\[CapitalDelta]z", "k"]}]}], "//", "N"}], "//", "Chop"}]], "Input", CellChangeTimes->{{3.46720589521875*^9, 3.467205899703125*^9}}], Cell["Automate the process:", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"MidpointSum", "[", RowBox[{"f_", ",", "\[Gamma]_", ",", RowBox[{"{", RowBox[{"a_", ",", "b_"}], "}"}], ",", "n_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[CapitalDelta]t", "=", RowBox[{ RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}], "/", "n"}]}], ",", "k", ",", "t", ",", "z", ",", "\[CapitalDelta]z", ",", "c"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"t", "[", "k_", "]"}], ":=", RowBox[{"a", "+", RowBox[{"k", " ", "\[CapitalDelta]t"}]}]}], ";", RowBox[{ RowBox[{"z", "[", "k_", "]"}], ":=", RowBox[{"\[Gamma]", "[", RowBox[{"t", "[", "k", "]"}], "]"}]}], ";", " ", RowBox[{ RowBox[{"\[CapitalDelta]z", "[", "k_", "]"}], ":=", RowBox[{ RowBox[{"z", "[", "k", "]"}], "-", RowBox[{"z", "[", RowBox[{"k", "-", "1"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"c", "[", "k_", "]"}], ":=", RowBox[{"\[Gamma]", "[", RowBox[{ FractionBox["1", "2"], RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"k", "-", "1"}], "]"}], "+", RowBox[{"t", "[", "k", "]"}]}], ")"}]}], "]"}]}], ";", "\[IndentingNewLine]", " ", RowBox[{"Chop", " ", "@", " ", RowBox[{"N", "[", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], RowBox[{ RowBox[{"f", "[", RowBox[{"c", "[", "k", "]"}], "]"}], " ", RowBox[{"\[CapitalDelta]z", "[", "k", "]"}]}]}], "]"}]}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.467206855015625*^9, 3.467206925453125*^9}}], Cell[TextData[{ "Here's that same Riemann sum using midpoints of the subintervals of the ", Cell[BoxData[ FormBox["t", TraditionalForm]]], "-interval:" }], "Text"], Cell[BoxData[ RowBox[{"MidpointSum", "[", RowBox[{"f", ",", "\[Gamma]", ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}], ",", "8"}], "]"}]], "Input", CellChangeTimes->{{3.46720694540625*^9, 3.467206951046875*^9}}], Cell["\<\ Now take such midpoint-using Riemann sum approximations where the number of \ subintervals keeps increasing by a factor of 10; we'll want to see many more \ decimal places here. (The evaluation may take a while!)\ \>", "Text", CellChangeTimes->{3.467206957921875*^9}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"NumberForm", "[", RowBox[{"#", ",", "15"}], "]"}], "&"}], "/@", RowBox[{"Table", "[", RowBox[{ RowBox[{"MidpointSum", "[", RowBox[{"f", ",", "\[Gamma]", ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}], ",", SuperscriptBox["10", "j"]}], "]"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "5"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.46720696078125*^9, 3.467206979171875*^9}}], Cell["\<\ Does that suggest an exact value as the limits of these sums?\ \>", "Text", CellChangeTimes->{{3.46720703309375*^9, 3.46720707075*^9}}], Cell[BoxData[ RowBox[{"N", "[", RowBox[{ RowBox[{"2", "\[Pi]", " ", "\[ImaginaryI]"}], ",", "15"}], "]"}]], "Input", CellChangeTimes->{{3.46720704596875*^9, 3.46720705821875*^9}}], Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", RowBox[{"2", "\[Pi]"}]], RowBox[{ RowBox[{"f", "[", RowBox[{"\[Gamma]", "[", "t", "]"}], "]"}], RowBox[{ RowBox[{"\[Gamma]", "'"}], "[", "t", "]"}], RowBox[{"\[DifferentialD]", "t"}]}]}]], "Input", CellChangeTimes->{{3.467207223578125*^9, 3.46720723053125*^9}}] }, Closed]] }, Open ]] }, AutoGeneratedPackage->None, ScreenStyleEnvironment->"Working", InitializationCellEvaluation->True, WindowSize->{567, 554}, WindowMargins->{{70, Automatic}, {Automatic, 23}}, Magnification->1, 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]]}, WindowSize -> {616, 750}, WindowMargins -> {{220, Automatic}, {102, Automatic}}, 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->{ "initialization"->{ Cell[1215, 45, 261, 5, 66, "Section", CellTags->"initialization"]} } *) (*CellTagsIndex CellTagsIndex->{ {"initialization", 25929, 732} } *) (*NotebookFileOutline Notebook[{ Cell[545, 20, 152, 2, 41, "Subsubtitle"], Cell[CellGroupData[{ Cell[722, 26, 97, 2, 43, "Subtitle"], Cell[822, 30, 121, 2, 41, "Subsubtitle"], Cell[946, 34, 244, 7, 24, "SmallText"], Cell[CellGroupData[{ Cell[1215, 45, 261, 5, 66, "Section", CellTags->"initialization"], Cell[1479, 52, 774, 15, 104, "Text"], Cell[2256, 69, 222, 5, 49, "Input", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[2515, 79, 79, 0, 62, "Section"], Cell[2597, 81, 429, 12, 68, "Input"], Cell[3029, 95, 543, 14, 68, "Input"], Cell[3575, 111, 79, 2, 47, "Input"], Cell[3657, 115, 247, 7, 47, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[3941, 127, 67, 0, 36, "Section"], Cell[4011, 129, 761, 22, 81, "Text"], Cell[4775, 153, 154, 3, 47, "Input"], Cell[4932, 158, 266, 6, 47, "Input"], Cell[5201, 166, 128, 5, 30, "Text"], Cell[5332, 173, 349, 9, 71, "Input"], Cell[5684, 184, 88, 1, 30, "Text"], Cell[5775, 187, 79, 2, 47, "Input"], Cell[5857, 191, 239, 7, 30, "Text"], Cell[6099, 200, 272, 8, 47, "Input"], Cell[6374, 210, 169, 7, 30, "Text"], Cell[6546, 219, 348, 10, 70, "Input"], Cell[6897, 231, 59, 0, 30, "Text"], Cell[6959, 233, 373, 11, 70, "Input"], Cell[7335, 246, 925, 21, 88, "Input"], Cell[8263, 269, 105, 5, 30, "Text"], Cell[8371, 276, 444, 13, 70, "Input"], Cell[8818, 291, 179, 8, 31, "Text"], Cell[9000, 301, 528, 17, 84, "Input"], Cell[9531, 320, 42, 0, 30, "Text"], Cell[9576, 322, 1350, 29, 168, "Input"], Cell[10929, 353, 146, 5, 30, "Text"], Cell[11078, 360, 258, 7, 47, "Input"], Cell[11339, 369, 51, 0, 30, "Text"], Cell[11393, 371, 352, 11, 71, "Input"], Cell[11748, 384, 37, 0, 30, "Text"], Cell[11788, 386, 1821, 52, 227, "Input"], Cell[13612, 440, 168, 5, 49, "Text"], Cell[13783, 447, 253, 6, 47, "Input"], Cell[14039, 455, 278, 5, 68, "Text"], Cell[14320, 462, 519, 15, 70, "Input"], Cell[14842, 479, 146, 3, 30, "Text"], Cell[14991, 484, 187, 4, 47, "Input"], Cell[15181, 490, 353, 10, 64, "Input"] }, Closed]] }, Open ]] } ] *) (* End of internal cache information *)