(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 5.0' Mathematica-Compatible Notebook This notebook can be used with any Mathematica-compatible application, such as Mathematica, MathReader or Publicon. The data for the notebook starts with the line containing stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. *******************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 45332, 1344]*) (*NotebookOutlinePosition[ 299311, 10184]*) (* CellTagsIndexPosition[ 299195, 10177]*) (*WindowFrame->Normal*) Notebook[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], \(\(\ \)\(of\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Initializations", "Section"], Cell[CellGroupData[{ Cell["Spelling", "SubsectionIcon"], Cell[TextData[{ "Turn off some annoying warning messages that might otherwise appear about \ similarly-named objects. (If you want to see these messages so as to be sure \ to avoid harm, evaluate expressions like the ones below but replace ", StyleBox["Off", FontFamily->"Courier"], " there by ", StyleBox["On", FontFamily->"Courier"], ".)" }], "Text"], Cell[BoxData[{ \(Off[General::spell]\), "\[IndentingNewLine]", \(Off[General::spell1]\)}], "Input", CellLabel->"In[8]:=", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell["Notations ", "SubsectionIcon"], Cell[BoxData[ \(Needs["\"]\)], "Input", CellLabel->"In[1]:=", InitializationCell->True], Cell[BoxData[ RowBox[{"Notation", "[", RowBox[{ TagBox[\(X_\ \[Intersection] \ Y_\), NotationBoxTag, TagStyle->"NotationTemplateStyle"], " ", "\[DoubleLongLeftRightArrow]", " ", TagBox[\(Intersection[X_, \ Y_]\), NotationBoxTag, TagStyle->"NotationTemplateStyle"]}], "]"}]], "Input", CellLabel->"In[2]:=", InitializationCell->True], Cell[BoxData[ RowBox[{"Notation", "[", RowBox[{ TagBox[\(a_\ mod\ b_\), NotationBoxTag, TagStyle->"NotationTemplateStyle"], " ", "\[DoubleLongLeftRightArrow]", " ", TagBox[\(Mod[a_, \ b_]\), NotationBoxTag, TagStyle->"NotationTemplateStyle"]}], "]"}]], "Input", CellLabel->"In[3]:=", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell["Standard add-on package Combinatorica", "SubsectionIcon"], Cell[BoxData[ \(Needs["\"]\)], "Input", CellLabel->"In[4]:=", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell["David Park's ComplexAnalysis application packages", "SubsectionIcon"], Cell["Load David Park's ComplexAnalysis application packages:", "Text"], Cell[BoxData[{ \(Needs["\"]\), "\[IndentingNewLine]", \(Needs["\"]\), "\[IndentingNewLine]", \ \(Needs["\"]\)}], "Input", CellLabel->"In[5]:=", InitializationCell->True], Cell[TextData[{ "Define the ", StyleBox["ComplexGraphics", FontFamily->"Courier"], " primitive function ", StyleBox["ComplexCurve", FontFamily->"Courier"], ":" }], "Text"], Cell[BoxData[{ \(\(ComplexCurve::usage\ = \ "\";\)\), "\[IndentingNewLine]", \(ComplexCurve[expr_, \ {t_, \ tmin_, \ tmax_}, \ opts___?OptionQ]\ := \ First\ @\ DontShow[ ParametricPlot[ Evaluate\ @\ Simplify[coord[\ expr], \ t\ \[Element] \ Reals], \ {t, \ tmin, \ tmax}, \ opts]]\)}], "Input", CellLabel->"In[10]:=", InitializationCell->True] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Last Slide"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], \(\(\ \)\(of\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[TextData[{ "Computer Technology in Undergraduate Mathematics\n\n", StyleBox["20 November 2003", FontWeight->"Plain", FontSlant->"Italic"] }], "Subsection", TextAlignment->Center, TextJustification->0] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " in Complex Analysis and Discrete Structures: Some examples" }], "Section", TextAlignment->Center, TextJustification->0], Cell[TextData[{ "Murray Eisenberg\nUniversity of Massachusetts/Amherst", StyleBox["\n", FontWeight->"Plain"], StyleBox["murray@math.umass.edu\n\n", FontWeight->"Plain", FontSlant->"Italic"], ButtonBox["http://www.math.umass.edu/~murray", ButtonData:>{ URL[ "http://www.math.umass.edu/~murray"], None}, ButtonStyle->"Hyperlink"], StyleBox["\n\n\n\n\n\n\n\n\n", FontWeight->"Plain", FontSlant->"Italic"], StyleBox["Copyright \[Copyright] 2003 by Murray Eisenberg. All rights \ reserved.", FontSize->8] }], "Subsection", TextAlignment->Center, TextJustification->0] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Last Slide"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], \(\(\ \)\(of\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Discrete structures: greatest common divisor", "Section"], Cell[TextData[{ StyleBox["Problem", FontWeight->"Bold"], ": Find gcd(144375, 21175)." }], "Text", CellFrame->True, Background->GrayLevel[0.833326]], Cell[CellGroupData[{ Cell["Built-in function", "SubsectionIcon"], Cell[BoxData[ \(GCD[144375, 21175]\)], "Input", CellLabel->"In[11]:="] }, Closed]], Cell[CellGroupData[{ Cell["Definition", "SubsectionIcon"], Cell[BoxData[{ \({Divisors[144375], Divisors[21175]}\), "\n", \(\((Divisors[144375])\) \[Intersection] \((Divisors[21175])\)\), "\n", \(Max[\((Divisors[144375])\) \[Intersection] \((Divisors[ 21175])\)]\)}], "Input", CellLabel->"In[50]:="], Cell[BoxData[{ \(FTAa\ = \ FactorInteger[144375]\), "\[IndentingNewLine]", \(FTAb\ = \ FactorInteger[21175]\)}], "Input", CellLabel->"In[53]:="], Cell[BoxData[ \(5\^2\ 7\^1\ 11\^1\)], "Input", CellLabel->"In[55]:="] }, Closed]], Cell[CellGroupData[{ Cell["Euclidean algorithm", "SubsectionIcon"], Cell[TextData[{ "\t", Cell[BoxData[{ \(TraditionalForm\`gcd(a, \ 0)\ = \ a\), "\[IndentingNewLine]", \(TraditionalForm\`gcd(a, \ b)\ = \ gcd(b, \ a\ mod\ b)\)}]] }], "Text", CellFrame->True, ParagraphSpacing->{0.5, 12}, FontWeight->"Bold", Background->GrayLevel[0.833326]], Cell[BoxData[ \({q = Quotient[144375, 21175], \ r0 = 144375\ ~Mod~21175}\)], "Input", CellLabel->"In[44]:="], Cell[BoxData[ \({q1 = Quotient[21175, r0], \ r1 = 21175\ ~Mod~\ r0}\)], "Input", CellLabel->"In[45]:="], Cell[BoxData[ \({q2 = Quotient[r0, r1], r2 = \ r0~Mod~\ r1}\)], "Input", CellLabel->"In[46]:="], Cell[BoxData[ \({q3 = Quotient[r1, r2], r3 = r1\ ~Mod~\ r2}\)], "Input", CellLabel->"In[48]:="] }, Closed]], Cell[CellGroupData[{ Cell["Procedural", "SubsectionIcon"], Cell[BoxData[ \(gcdProgram[a_, \ b_]\ := \ \[IndentingNewLine]If[ b\ \[Equal] \ 0\ && \ a\ \[NotEqual] \ 0, \ (*\ then\ *) \ a, \[IndentingNewLine] (*\ else\ *) \ gcdProgram[b, \ a\ ~Mod~\ b]\[IndentingNewLine]]\)], "Input", CellLabel->"In[12]:="], Cell[BoxData[ \(gcdProgram[144375, \ 21175]\)], "Input", CellLabel->"In[13]:="] }, Closed]], Cell[CellGroupData[{ Cell["Recursive definition", "SubsectionIcon"], Cell[TextData[{ "The mathematical version of Euclidean algorithm:\n\t", Cell[BoxData[{ \(TraditionalForm\`gcd(a, \ 0)\ = \ a\), "\[IndentingNewLine]", \(TraditionalForm\`gcd(a, \ b)\ = \ gcd(b, \ a\ mod\ b)\)}]] }], "Text", ParagraphSpacing->{0.5, 0}], Cell[TextData[{ "A ", StyleBox["Mathematica", FontSlant->"Italic"], " implementation:" }], "Text"], Cell[BoxData[{ \(gcd[a_, \ 0]\ := \ a\), "\[IndentingNewLine]", \(gcd[a_, \ b_]\ := \ gcd[b, \ a\ mod\ b]\)}], "Input", CellLabel->"In[56]:="], Cell[BoxData[ \(gcd[144375, 21175]\)], "Input", CellLabel->"In[60]:="] }, Closed]] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Last Slide"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], \(\(\ \)\(of\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Complex analyis: the 6th roots of unity", "Section", CellTags->"LastSlide"], Cell[CellGroupData[{ Cell[TextData[{ "Solve ", StyleBox[" ", FontWeight->"Plain", FontSlant->"Plain"], Cell[BoxData[ \(TraditionalForm\`z\^6\ = \ 1\)]] }], "SubsectionIcon"], Cell[BoxData[ \(Solve[z\^6\ \[Equal] \ 1, \ z]\)], "Input"], Cell[BoxData[ \(ComplexExpand[z\ /. \ Solve[z\^6\ \[Equal] \ 1, \ z]]\)], "Input", CellLabel->"In[188]:="] }, Closed]], Cell[CellGroupData[{ Cell["Calculate using polar form", "SubsectionIcon"], Cell[BoxData[ \(roots6\ = \ ComplexExpand\ /@ \ Exp[\(\(2 \[Pi]\)\/6\) Range[0, \ 5] \[ImaginaryI]]\)], "Input", CellLabel->"In[39]:="], Cell[CellGroupData[{ Cell["Calculate as powers of primitive 6th root of unity", "SubsubsectionIcon"], Cell[BoxData[{ \(\(\[Omega]\_1\ = \ \ ComplexExpand[ Exp[\(2 \[Pi]\)\/6\ \[ImaginaryI]]];\)\), "\n", \(\[Omega]\_k_\ := \ ComplexExpand[\[Omega]\_1\^k]\), "\n", \(roots6\ = \ Table[\[Omega]\_k, \ {k, \ 0, \ 5}]\)}], "Input", CellLabel->"In[40]:="] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Visualize", "SubsectionIcon"], Cell[BoxData[ \(\(ComplexGraphics[\[IndentingNewLine]{\[IndentingNewLine]Cobalt, \ Thickness[0.01], \ \[IndentingNewLine]ComplexLine[ Append[roots6, \ First\ @\ roots6]], \[IndentingNewLine]ForestGreen, \ ComplexCircle[0, \ 1], \ \[IndentingNewLine]Red, \ PointSize[0.04], \ \[IndentingNewLine]ComplexPoint\ /@ \ roots6\[IndentingNewLine]}, \[IndentingNewLine]ImageSize\ \ \[Rule] \ 3\ \[Times]\ 72];\)\)], "Input", CellLabel->"In[56]:="] }, Closed]] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], \(\(\ \)\(of\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ "Visualize mapping ", Cell[BoxData[ FormBox[Cell[TextData[Cell[BoxData[ \(TraditionalForm\`sin\ : \ \[DoubleStruckCapitalC]\ \[Rule] \ \ \[DoubleStruckCapitalC]\)]]]], TraditionalForm]]] }], "Section"], Cell[BoxData[ \(f[z_]\ := \ Sin[z]\)], "Input", CellLabel->"In[150]:="], Cell[CellGroupData[{ Cell["Image of a grid", "SubsectionIcon"], Cell[BoxData[{ \(\(grids = {{{MediumBlue}, {\(-\[Pi]\), \ \[Pi], \ 12}, {\(-\[Pi]\), \ \[Pi], 0}}, {{VenetianRed}, {\(-\[Pi]\)\ , \[Pi], \ 0}, {\(-\[Pi]\), \ \[Pi], 12}}};\)\), "\[IndentingNewLine]", \(\(TwoPanelPlot[\[IndentingNewLine]{{# &}, \ CartesianGrid, \ {0, \ \[Pi]}, \ {grids}, \ \ {}}, \ \[IndentingNewLine]{{f[#] &}, \ CartesianGrid, \ {0, \ 4}, \ {grids}, \ {}}, \[IndentingNewLine]\ ImageSize\ \[Rule] \ 6*72];\)\)}], "Input", CellLabel->"In[76]:="] }, Closed]], Cell[CellGroupData[{ Cell["Image of horizontal line?", "SubsectionIcon"], Cell[BoxData[{\(horizontal\ = \ {CobaltGreen, \ Thickness[0.012], \ ComplexCurve[\((1\ - \ s)\) \((\(-\[Pi]\)\ \ + \ \[Pi]\/4\ \[ImaginaryI])\)\ + \ \ s \((\[Pi]\ + \ \[Pi]\/4\ \[ImaginaryI])\), \ {s, \ 0, \ 1}]};\), "\[IndentingNewLine]", \(pts\ = \ {PointSize[0.04], \ Sepia, \ ComplexPoint[\(-\(\[Pi]\/2\)\)\ \ + \ \[Pi]\/4\ \[ImaginaryI]], \ GeraniumLake, \ ComplexPoint[\(\[Pi]\/4\) \[ImaginaryI]], \ CadmiumOrange, \ ComplexPoint[\ \[Pi]\/2\ + \ \[Pi]\/4\ \[ImaginaryI]]};\), "\n", \ \(grid\ = \ {{{LightBlue}, \ \ {\(-\[Pi]\), \ \[Pi], \ 12}, \ {\(-\[Pi]\), \ \[Pi], \ 12}}};\), "\n", RowBox[{ RowBox[{"TwoPanelPlot", "[", "\[IndentingNewLine]", RowBox[{\({{# &}, \ CartesianGrid, \ {0, \ \[Pi]}, \ {grid}, \ \ {horizontal, \ pts}}\), ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ StyleBox["f", FontColor->RGBColor[1, 0, 0]], "[", "#", "]"}], "&"}], "}"}], ",", " ", "CartesianGrid", ",", " ", \({0, \ 4}\), ",", " ", \({grid}\), ",", " ", \({horizontal, \ pts}\)}], "}"}], ",", "\[IndentingNewLine]", " ", \(ImageSize\ \[Rule] \ 6*72\)}], "]"}], ";"}]}], "Input", CellLabel->"In[155]:="] }, Closed]] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], \(\(\ \)\(of\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["The Riemann sphere", "Section"], Cell[CellGroupData[{ Cell["A quarter-circular wedge", "SubsectionIcon"], Cell[BoxData[{ \(\(grid = \[IndentingNewLine]{{{RoyalBlue}, \ {0. , 1, 10}, \ {0. , \[Pi]/2, 16}}, \[IndentingNewLine]{{IndianRed}, \ {1, 2. , 10}, \ {0. , \[Pi]/2, 16}}};\)\), "\[IndentingNewLine]", \(\(\(gridmap = First[PolarGrid[{# &}, {0, 8}, {grid}]] // FineGrainLines[0.02, 8];\)\(\[IndentingNewLine]\) \)\), "\[IndentingNewLine]", \(\(\(northPole\ = \ {CadmiumLemon, \ PointSize[0.03], \ Point[{0, \ 0, \ 1}]};\)\(\[IndentingNewLine]\) \)\), "\[IndentingNewLine]", \(\(origin\ = \ {CadmiumOrange, \ PointSize[0.02], \ ComplexPoint[0]};\)\), "\[IndentingNewLine]", \(\(xAxis\ = \ {CadmiumLemon, \ Thickness[0.01], \ ComplexLine[{0, \ 2}]\ // \ FineGrainLines[0.2, \ 8]};\)\), "\[IndentingNewLine]", \(\(\(quarterCircle\ = \ {Purple, \ Thickness[0.01], \ ComplexCurve[ Exp[\[Theta]\ I], \ {\[Theta], \ 0, \ \[Pi]/2}]}\ ;\)\(\[IndentingNewLine]\) \)\), "\[IndentingNewLine]", \(\(TwoPanelPlot[\[IndentingNewLine]{\[IndentingNewLine]{# &}, PolarGrid, {0, 3}, {grid}, \ {origin, \ xAxis, quarterCircle}\[IndentingNewLine]}, \[IndentingNewLine]{\ \[IndentingNewLine]{# &}, \[IndentingNewLine]RiemannSphere, \ \[IndentingNewLine]{0, 1}, \[IndentingNewLine]{\(ColoredRiemannSphere[]\)[], {gridmap}}, \ {{northPole}, \ {{origin, \ xAxis, \ quarterCircle}\ // \ ComplexPlaneToRiemann}}, \[IndentingNewLine]{ViewPoint \ \[Rule] \ {2.486, \ 1.127, \ 1.5}}\[IndentingNewLine]}, \[IndentingNewLine]ImageSize \ \[Rule] 7*72];\)\)}], "Input", CellLabel->"In[316]:="] }, Closed]] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], \(\(\ \)\(of\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ "Visualize reciprocal mapping ", Cell[BoxData[ \(TraditionalForm\`\[DoubleStruckCapitalC]\ \[Rule] \ \ \[DoubleStruckCapitalC]\)]] }], "Section"], Cell[BoxData[ \(f[z_]\ := \ 1\/z\)], "Input", CellLabel->"In[293]:="], Cell[CellGroupData[{ Cell[TextData[{ "Visualize image of circle under ", Cell[BoxData[ \(TraditionalForm\`z\ \[RightTeeArrow] \ 1\/z\)]], " in complex plane ", Cell[BoxData[ \(TraditionalForm\`\[DoubleStruckCapitalC]\)]] }], "SubsectionIcon"], Cell[BoxData[{ \(\(circle\ = \ {Purple, \ Thickness[0.01], \ ComplexCurve[\(-1\)\ + \ \[ImaginaryI] + 2 \[ExponentialE]\^\(\[ImaginaryI]\ \[Theta]\), {\[Theta], 0, 2 \[Pi]}, \ PlotPoints\ \[Rule] \ 100]};\)\), "\n", \(\(center\ = \ {CobaltGreen, \ PointSize[0.025], \ ComplexPoint[\(-1\)\ + \ \[ImaginaryI]]};\)\), \ "\[IndentingNewLine]", \(\(grid\ = \ {{{White}, \ {\(-3.5\), \ 3.5, \ 6}, \ {\(-3.5\), \ \ 3.5, \ \ 6}}};\)\), "\[IndentingNewLine]", \ \(\(TwoPanelPlot[\[IndentingNewLine]{{# &}, \ CartesianGrid, \ {0, \ 3.5}, \ {grid}, \ \ {circle, \ center}}, \[IndentingNewLine]{{f[#] &}, \ CartesianGrid, \ {0, \ 3.5, False}, \ {grid}, \ {circle, \ center}}, \[IndentingNewLine]ImageSize\ \[Rule] \ 7*\ 72];\)\)}], "Input", CellLabel->"In[274]:="] }, Closed]], Cell[CellGroupData[{ Cell["Visualize on Riemann sphere", "SubsectionIcon"], Cell[BoxData[{ \(\(northPole\ = \ {CadmiumLemon, \ PointSize[0.03], \ Point[{0, \ 0, \ 1}]};\)\), "\[IndentingNewLine]", \(\(TwoPanelPlot[\[IndentingNewLine]{\[IndentingNewLine]{# &}, \ \[IndentingNewLine]RiemannSphere, \[IndentingNewLine]{0, 1}, \[IndentingNewLine]{\(ColoredRiemannSphere[]\)[], {circle, \ center}}, \[IndentingNewLine]{{northPole}}, \ \[IndentingNewLine]{ViewPoint -> {2.482, \ 2.124, \ 0.943}}\[IndentingNewLine]}, \[IndentingNewLine]{\ \[IndentingNewLine]{f[#] &}, \[IndentingNewLine]RiemannSphere, \ \[IndentingNewLine]{0, 1}, \[IndentingNewLine]{\(ColoredRiemannSphere[]\)[], {circle, \ center}}, \[IndentingNewLine]{{northPole}}, \ \[IndentingNewLine]{ViewPoint -> {2.482, \ 2.124, \ 0.943}}\[IndentingNewLine]}, \[IndentingNewLine]ImageSize \ \[Rule] 7*72];\)\)}], "Input", CellLabel->"In[278]:="], Cell[CellGroupData[{ Cell["Animate the display", "SubsubsectionIcon"], Cell[BoxData[ \(\(\(TwoPanelAnimation[\[IndentingNewLine]{\[IndentingNewLine]{# &}, \ \[IndentingNewLine]RiemannSphere, rotation, \ \[IndentingNewLine]{0, 1}, \[IndentingNewLine]{\(ColoredRiemannSphere[]\)[], {circle, \ \ center}}, \[IndentingNewLine]{{northPole}}, \[IndentingNewLine]{ViewPoint -> \ {2.482, \ 2.124, \ 0.943}}\[IndentingNewLine]}, \[IndentingNewLine]{\ \[IndentingNewLine]{f[#] &}, \[IndentingNewLine]RiemannSphere, rotation, \ \[IndentingNewLine]{0, 1}, \[IndentingNewLine]{\(ColoredRiemannSphere[]\)[], {circle, \ \ center}}, \[IndentingNewLine]{{northPole}}, \[IndentingNewLine]{ViewPoint -> \ {2.482, \ 2.124, \ 0.943}}\[IndentingNewLine]}, \[IndentingNewLine]ImageSize \ \[Rule] 7*72]\)[24];\)\)], "Input", CellLabel->"In[281]:="] }, Closed]] }, Closed]] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], \(\(\ \)\(of\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ "Visualize reciprocal mapping ", Cell[BoxData[ \(TraditionalForm\`\[DoubleStruckCapitalC]\ \[Rule] \ \ \[DoubleStruckCapitalC]\)]], ", continued" }], "Section"], Cell[CellGroupData[{ Cell[BoxData[ \(f[z]\)], "Input", CellLabel->"In[294]:="], Cell[BoxData[ \(1\/z\)], "Output", CellLabel->"Out[294]="] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Visualize image of a vertical strip under ", Cell[BoxData[ \(TraditionalForm\`z\ \[RightTeeArrow] \ 1\/z\)]], " in complex plane ", Cell[BoxData[ \(TraditionalForm\`\[DoubleStruckCapitalC]\)]] }], "SubsectionIcon"], Cell[BoxData[{ \(\(grid\ = \ {{{Cerulean}, \ {0.01, \ 0.49, \ 11}, \ {\(-4\), \ 4, \ 55}}};\)\), "\[IndentingNewLine]", \(\(segmentHalf\ = \ {Cobalt, \ Dashing[{0.05, \ 0.03}], \ Thickness[0.01], \ ComplexCurve[\((1\ - \ t)\) \((1\/2\ - \ \[ImaginaryI])\)\ + \ t \((\ 1\/2\ + \ \[ImaginaryI])\), \ {t, \ 0, \ 1}]};\)\ \), "\[IndentingNewLine]", \(\(segmentZero\ = \ {Cobalt, \ Dashing[{0.05, \ 0.03}], \ Thickness[0.0077], \ ComplexCurve[\((1\ - \ t)\) \((\(-\ \[ImaginaryI]\))\)\ + \ t \((\ \[ImaginaryI])\), \ {t, \ 0, \ 1}]};\)\), "\[IndentingNewLine]", \(\(TwoPanelPlot[\[IndentingNewLine]{{# &}, \ CartesianGrid, \ {0, \ 1}, \ {grid}, \ \ {segmentZero, \ segmentHalf}}, \[IndentingNewLine]{{f[#] &}, \ CartesianGrid, \ {0, \ 4, \ False}, \ {grid}, \ {segmentZero, \ segmentHalf}}, \[IndentingNewLine]ImageSize\ \[Rule] \ 7\ *\ 72];\)\)}], "Input", CellLabel->"In[309]:="] }, Closed]], Cell[CellGroupData[{ Cell["Visualize on Riemann sphere", "SubsectionIcon"], Cell[BoxData[{\(gridmap = First[CartesianGrid[{# &}, {0.5, 0.5}, {grid}]] // FineGrainLines[0.02, 8];\), "\[IndentingNewLine]", \(northPole\ = \ {CadmiumLemon, \ PointSize[0.03], \ Point[{0, \ 0, \ 1}]};\), "\[IndentingNewLine]", RowBox[{ RowBox[{"TwoPanelPlot", "[", "\[IndentingNewLine]", RowBox[{\({\[IndentingNewLine]{# &}, \ \[IndentingNewLine]RiemannSphere, \[IndentingNewLine]{0, 1}, \[IndentingNewLine]{\(ColoredRiemannSphere[]\)[], \ {gridmap}}, \[IndentingNewLine]{{northPole}, \ {}}, \ \[IndentingNewLine]{ViewPoint -> {3.260, \ 0.907, \ \(-0.026\)}}\[IndentingNewLine]}\), ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ StyleBox["f", FontColor->RGBColor[1, 0, 0]], "[", "#", "]"}], "&"}], "}"}], ",", "\[IndentingNewLine]", "RiemannSphere", ",", "\[IndentingNewLine]", \({0, 1}\), ",", "\[IndentingNewLine]", \({\(ColoredRiemannSphere[]\)[], \ {gridmap}}\), ",", "\[IndentingNewLine]", \({{northPole}, \ {}}\), ",", "\[IndentingNewLine]", \({ViewPoint -> {3.260, \ 0.907, \ \(-0.026\)}}\)}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", \(ImageSize \[Rule] 7*72\)}], "]"}], ";"}]}], "Input", CellLabel->"In[313]:="] }, Closed]] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], \(\(\ \)\(of\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["\<\ Do the Cauchy-Riemann equations suffice for differentiability?\ \>", "Section"], Cell[TextData[{ "If ", Cell[BoxData[ \(TraditionalForm\`f(z)\)]], " is differentiable at ", Cell[BoxData[ \(TraditionalForm\`z\_0\ = \ x\_0\ + \ \[ImaginaryI]\ y\_0\)]], ", then ", Cell[BoxData[ \(TraditionalForm\`u\ = \ Re\ f\)]], " and ", Cell[BoxData[ \(TraditionalForm\`v\ = \ Im\ f\)]], " satisfy the Cauchy-Riemann equations there:\n\t", Cell[BoxData[ \(TraditionalForm\`\[PartialD]\ u\/\[PartialD]x\ = \ \ \(\[PartialD]\ v\/\[PartialD]y\) \((0, \ 0)\)\)]], ", ", Cell[BoxData[ \(TraditionalForm\`\[PartialD]\ u\/\[PartialD]y\ = \ \ \(-\ \(\ \[PartialD]\ v\/\[PartialD]x\)\)\)]], "." }], "Text", ParagraphSpacing->{0.5, 8}], Cell[BoxData[{ \(TraditionalForm\`f(z_)\ := \ z\^5\/\[LeftBracketingBar]z\[RightBracketingBar]\^4\), "\n", \(TraditionalForm\`\(f(0)\ = \ 0;\)\)}], "Input", CellLabel->"In[323]:="], Cell[CellGroupData[{ Cell["Check Cauchy-Riemann equations", "SubsectionIcon"], Cell[BoxData[ \(TraditionalForm\`ComplexCollect( coord(f(x + \[ImaginaryI]\ y)))\)], "Input", CellLabel->"In[352]:="], Cell[BoxData[{ \(TraditionalForm\`u(x_, \ y_)\ := \ First[ComplexCollect(coord(f(x\ + \ \[ImaginaryI]\ y)))]\), "\n", \(TraditionalForm\`v(x_, \ y_)\ := \ Last[ComplexCollect(coord(f(x\ + \ \[ImaginaryI]\ y)))]\), "\n", \(TraditionalForm\`u(0, 0)\ = \ 0; \ v(0, 0)\ = \ 0;\)}], "Input", CellLabel->"In[353]:="], Cell["Caauchy-Riemann equations hold at origin:", "Text"], Cell[BoxData[{ \(TraditionalForm\`{\(u(\[CapitalDelta]x, 0)\ - \ u(0, 0)\)\/\ \[CapitalDelta]x, \ \(v(0, \[CapitalDelta]y)\ - \ v(0, \ 0)\)\/\[CapitalDelta]y}\), "\n", \(TraditionalForm\`{\(u(\[CapitalDelta]x, 0)\ - \ u(0, 0)\)\/\ \[CapitalDelta]x, \ \(v(0, \[CapitalDelta]y)\ - \ v(0, \ 0)\)\/\[CapitalDelta]y}\)}], "Input", CellLabel->"In[350]:="] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Is ", Cell[BoxData[ \(TraditionalForm\`f\)]], " differentiable at origin?" }], "SubsectionIcon"], Cell[BoxData[{ FormBox[ RowBox[{ RowBox[{"Simplify", "[", RowBox[{\(\(f(\[CapitalDelta]x\ + \ 0)\ - \ f(0)\)\/\[CapitalDelta]x\), ",", " ", RowBox[{"\[CapitalDelta]x", " ", "\[Element]", " ", TagBox["\[DoubleStruckCapitalR]", Function[ {}, Reals]]}]}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"along", " ", "line", " ", Cell[TextData[Cell[BoxData[ \(TraditionalForm\`\[CapitalDelta]y\ = \ 0\)]]]]}], " ", "*)"}]}], TraditionalForm], "\n", FormBox[ RowBox[{ RowBox[{"Simplify", "[", RowBox[{\(\(f(\[ImaginaryI]\ \ \[CapitalDelta]x\ + \ \ \[CapitalDelta]x\ + 0) - f(0)\)\/\(\[ImaginaryI]\ \[CapitalDelta]x\ + \ \[CapitalDelta]x\)\), ",", " ", RowBox[{"\[CapitalDelta]x", " ", "\[Element]", " ", TagBox["\[DoubleStruckCapitalR]", Function[ {}, Reals]]}]}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"along", " ", "line", " ", Cell[TextData[Cell[BoxData[ \(TraditionalForm\`\[CapitalDelta]x\ = \ \ \[CapitalDelta]y\)]]]]}], " ", "*)"}]}], TraditionalForm]}], "Input", CellLabel->"In[356]:="] }, Closed]] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], \(\(\ \)\(of\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Calculus for Life and Social Sciences: doubling time", "Section"], Cell[TextData[{ "From a Discovery Module used in Math 127\[LongDash]a ", Cell[BoxData[ FormBox[ RowBox[{"web", StyleBox[ AdjustmentBox["Mathematica", BoxMargins->{{-0.175, 0}, {0, 0}}], FontSlant->"Italic"]}], TextForm]]], "application\n", ButtonBox["http://webmath.oit.umass.edu/webmath/index.html", ButtonData:>{ URL[ "http://webmath.oit.umass.edu/webmath/index.html"], None}, ButtonStyle->"Hyperlink"] }], "Text"] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], \(\(\ \)\(of\)\(\ \)\), CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Web sites", "Section"], Cell[TextData[{ "Math 421, Complex Variables\n", ButtonBox["http://www.math.umass.edu/Courses/Math_421/", ButtonData:>{ URL[ "http://www.math.umass.edu/Courses/Math_421/"], None}, ButtonStyle->"Hyperlink"] }], "Text"], Cell[TextData[{ "Math 455, Discrete Structures\n", ButtonBox["http://www.math.umass.edu/Courses/Math_455_Eisenberg/", ButtonData:>{ URL[ "http://www.math.umass.edu/Courses/Math_455_Eisenberg/"], None}, ButtonStyle->"Hyperlink"] }], "Text"] }, Open ]] }, FrontEndVersion->"5.0 for Microsoft Windows", ScreenRectangle->{{0, 1280}, {0, 979}}, AutoGeneratedPackage->None, ScreenStyleEnvironment->"Brackets", WindowToolbars->{}, InitializationCellEvaluation->True, WindowSize->{903, 741}, WindowMargins->{{Automatic, 171}, {-141, Automatic}}, Visible->True, 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]"}], "notation"->RowBox[ {"Notation", "[", RowBox[ { TagBox[ "\[Placeholder]", NotationBoxTag, TagStyle -> "NotationTemplateStyle"], " ", "\[DoubleLongLeftRightArrow]", " ", TagBox[ "\[Placeholder]", NotationBoxTag, TagStyle -> "NotationTemplateStyle"]}], "]"}], "notation>"->RowBox[ {"Notation", "[", RowBox[ { TagBox[ "\[Placeholder]", NotationBoxTag, TagStyle -> "NotationTemplateStyle"], " ", "\[DoubleLongRightArrow]", " ", TagBox[ "\[Placeholder]", NotationBoxTag, TagStyle -> "NotationTemplateStyle"]}], "]"}], "notation<"->RowBox[ {"Notation", "[", RowBox[ { TagBox[ "\[Placeholder]", NotationBoxTag, TagStyle -> "NotationTemplateStyle"], " ", "\[DoubleLongLeftArrow]", " ", TagBox[ "\[Placeholder]", NotationBoxTag, TagStyle -> "NotationTemplateStyle"]}], "]"}], "symb"->RowBox[ {"Symbolize", "[", TagBox[ "\[Placeholder]", NotationBoxTag, TagStyle -> "NotationTemplateStyle"], "]"}], "infixnotation"->RowBox[ {"InfixNotation", "[", RowBox[ { TagBox[ "\[Placeholder]", NotationBoxTag, TagStyle -> "NotationTemplateStyle"], ",", "\[Placeholder]"}], "]"}], "addia"->RowBox[ {"AddInputAlias", "[", RowBox[ {"\"\[Placeholder]\"", "\[Rule]", TagBox[ "\[Placeholder]", NotationBoxTag, TagStyle -> "NotationTemplateStyle"]}], "]"}], "pattwraper"->TagBox[ "\[Placeholder]", NotationPatternTag, TagStyle -> "NotationPatternWrapperStyle"], "madeboxeswraper"->TagBox[ "\[Placeholder]", NotationMadeBoxesTag, TagStyle -> "NotationMadeBoxesWrapperStyle"]}, Magnification->1.5, StyleDefinitions -> Notebook[{ Cell[CellGroupData[{ Cell["\<\ Murray's Nov 20 Special Colloquium Style Definitions: minor variant of \ HelpBrowser styles\ \>", "Subtitle"], Cell["\<\ These styles are carefully tuned for all aspects of the online help. It's \ recommended that they remain unchanged.\ \>", "Text"], Cell[CellGroupData[{ Cell["Style Environment Names", "Section"], Cell[StyleData[All, "Working"], PageWidth->WindowWidth, ShowCellBracket->False, CellBracketOptions->{"Color"->RGBColor[0.269993, 0.308507, 0.6]}, ShowAutoStyles->False, ScriptMinSize->9], Cell[StyleData[All, "Brackets"], PageWidth->WindowWidth, ShowCellBracket->True, CellBracketOptions->{"Color"->RGBColor[0.269993, 0.308507, 0.6]}, ShowAutoStyles->False, ScriptMinSize->9], Cell[StyleData[All, "Presentation"], PageWidth->WindowWidth, ShowCellBracket->False, CellBracketOptions->{"Color"->RGBColor[0.269993, 0.308507, 0.6]}, ShowAutoStyles->False, ScriptMinSize->9], Cell[StyleData[All, "SlideShow"], PageWidth->WindowWidth, ScrollingOptions->{"PagewiseDisplay"->True}, ShowCellBracket->False, ScriptMinSize->9], Cell[StyleData[All, "Printout"], PageWidth->PaperWidth, ShowCellBracket->False, ShowAutoStyles->False, ScriptMinSize->5, PrivateFontOptions->{"FontType"->"Outline"}], Cell[StyleData[All, "EnhancedPrintout"], PageWidth->PaperWidth, ShowCellBracket->True, ScriptMinSize->5, FontFamily->"Palatino", PrivateFontOptions->{"FontType"->"Outline"}], Cell[StyleData[All, "EnhancedPrintoutNonGray"], PageWidth->PaperWidth, ShowCellBracket->False, ScriptMinSize->5, FontFamily->"Palatino", PrivateFontOptions->{"FontType"->"Outline"}] }, Open ]], Cell[CellGroupData[{ Cell["Notebook Options", "Section"], Cell["\<\ The options defined for the style below will be used at the Notebook level. \ \ \>", "Text"], Cell[CellGroupData[{ 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"]}}, PageHeaderLines->{True, True}, CellLabelAutoDelete->False, CellFrameLabelMargins->6, StyleMenuListing->None], Cell[StyleData["Notebook", "Printout"], PageHeaders->{{Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"], None, Cell[ TextData[ { ValueBox[ "FileName"]}], "Header"]}, {Cell[ TextData[ { ValueBox[ "FileName"]}], "Header"], None, Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"]}}, PageHeaderLines->{True, True}], Cell[StyleData["Notebook", "EnhancedPrintout"], PageFooters->{{None, None, None}, {None, None, None}}, PageHeaderLines->{True, True}, PageFooterLines->{False, False}, PrintingOptions->{"PrintingMargins"->{{54, 54}, {36, 72}}, "PageSize"->{594, 657}, "PrintRegistrationMarks"->True, "FirstPageHeader"->False, "FacingPages"->True, "FirstPageFace"->Right}] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Headings", "Section"], Cell[CellGroupData[{ Cell[StyleData["Chapter"], CellFrame->{{0, 0}, {0.5, 0}}, CellMargins->{{27, 27}, {10, 40}}, CellGroupingRules->{"TitleGrouping", 0}, PageBreakBelow->False, DefaultNewInlineCellStyle->"None", InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-.074999999999999997, \ -.085000000000000006}, {0, 0}}, BoxBaselineShift -> .5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-.35999999999999999, \ -.10000000000000001}, {0, 0}}, BoxBaselineShift -> -.20000000000000001], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-.074999999999999997, \ -.085000000000000006}, {0, 0}}, BoxBaselineShift -> .5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica", "gridMathematica"->FormBox[ RowBox[ {"grid", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-.17499999999999999, 0}, {0, 0}}]}], TextForm], "webMathematica"->FormBox[ RowBox[ {"web", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-.17499999999999999, 0}, {0, 0}}]}], TextForm]}, LanguageCategory->"NaturalLanguage", CounterIncrements->"Title", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, { "Subtitle", 0}, {"Subsubtitle", 0}}, FontFamily->"Helvetica", FontSize->24, FontWeight->"Plain", FontColor->RGBColor[0.592157, 0.313726, 0.313726]], Cell[StyleData["Chapter", "Presentation"], FontSize->36], Cell[StyleData["Chapter", "Printout"], CellMargins->{{2, 10}, {6, 30}}, FontSize->24], Cell[StyleData["Chapter", "EnhancedPrintout"], CellMargins->{{2, 10}, {6, 30}}, FontFamily->"Frutiger 55 Roman", FontSize->24, FontColor->GrayLevel[0]], Cell[StyleData["Chapter", "EnhancedPrintoutNonGray"], CellMargins->{{2, 10}, {6, 30}}, FontFamily->"Frutiger 55 Roman", FontSize->24] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Section"], CellMargins->{{27, 27}, {12, 18}}, CellGroupingRules->{"SectionGrouping", 30}, PageBreakBelow->False, InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-.074999999999999997, \ -.085000000000000006}, {0, 0}}, BoxBaselineShift -> .5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-.35999999999999999, \ -.10000000000000001}, {0, 0}}, BoxBaselineShift -> -.20000000000000001], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-.074999999999999997, \ -.085000000000000006}, {0, 0}}, BoxBaselineShift -> .5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica", "gridMathematica"->FormBox[ RowBox[ {"grid", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-.17499999999999999, 0}, {0, 0}}]}], TextForm], "webMathematica"->FormBox[ RowBox[ {"web", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-.17499999999999999, 0}, {0, 0}}]}], TextForm]}, CounterIncrements->"Section", FontFamily->"Helvetica", FontSize->20, FontWeight->"Bold", FontColor->RGBColor[0.592157, 0.313726, 0.313726]], Cell[StyleData["Section", "Presentation"], FontSize->30], Cell[StyleData["Section", "SlideShow"], CellFrame->{{0, 0}, {0, 0.5}}, ShowCellBracket->False, CellMargins->{{0, 0}, {5, 0}}, PageBreakBelow->False, CellFrameMargins->{{36, 36}, {Inherited, 15}}, FontFamily->"Helvetica", FontSize->18, FontWeight->"Bold", FontColor->GrayLevel[1], Background->RGBColor[0.408011, 0.440726, 0.8]], Cell[StyleData["Section", "Printout"], CellMargins->{{2, 0}, {0, 18}}, PageBreakBelow->False, FontSize->18], Cell[StyleData["Section", "EnhancedPrintout"], CellFrame->{{0, 0}, {0.5, 0}}, CellMargins->{{2, 2}, {5, 30}}, CellGroupingRules->{"SectionGrouping", 30}, PageBreakBelow->False, CellFrameMargins->8, CounterIncrements->"Section", CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}}, FontFamily->"Frutiger 65 Bold", FontSize->16, FontWeight->"Plain", FontColor->GrayLevel[0]], Cell[StyleData["Section", "EnhancedPrintoutNonGray"], CellFrame->{{0, 0}, {0.5, 0}}, CellMargins->{{2, Inherited}, {5, 30}}, CellGroupingRules->{"SectionGrouping", 30}, PageBreakBelow->False, CellFrameMargins->8, CounterIncrements->"Section", CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}}, FontFamily->"Frutiger 65 Bold", FontSize->16, FontWeight->"Plain"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsection"], CellDingbat->None, CellMargins->{{27, 27}, {0, 18}}, CellElementSpacings->{"ClosedGroupTopMargin"->18}, CellGroupingRules->{"SectionGrouping", 40}, PageBreakBelow->False, CellFrameLabelMargins->6, InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-.074999999999999997, \ -.085000000000000006}, {0, 0}}, BoxBaselineShift -> .5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-.35999999999999999, \ -.10000000000000001}, {0, 0}}, BoxBaselineShift -> -.20000000000000001], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-.074999999999999997, \ -.085000000000000006}, {0, 0}}, BoxBaselineShift -> .5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica", "gridMathematica"->FormBox[ RowBox[ {"grid", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-.17499999999999999, 0}, {0, 0}}]}], TextForm], "webMathematica"->FormBox[ RowBox[ {"web", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-.17499999999999999, 0}, {0, 0}}]}], TextForm]}, FontFamily->"Helvetica", FontSize->16, FontWeight->"Bold", FontColor->RGBColor[0.592157, 0.313726, 0.313726]], Cell[StyleData["Subsection", "Presentation"], FontSize->24], Cell[StyleData["Subsection", "SlideShow"], CellDingbat->None, CellMargins->{{70, 0}, {4, 12}}, FontSize->12], Cell[StyleData["Subsection", "Printout"], CellMargins->{{2, 0}, {5, 24}}, FontSize->12], Cell[StyleData["Subsection", "EnhancedPrintout"], CellMargins->{{2, 0}, {5, 20}}, FontFamily->"Frutiger 65 Bold", FontSize->12, FontWeight->"Plain", FontColor->GrayLevel[0]], Cell[StyleData["Subsection", "EnhancedPrintoutNonGray"], CellMargins->{{9, 0}, {5, 20}}, FontFamily->"Frutiger 65 Bold", FontSize->12, FontWeight->"Plain"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsubsection"], CellMargins->{{27, 27}, {0, 18}}, CellElementSpacings->{"ClosedGroupTopMargin"->18}, CellGroupingRules->{"SectionGrouping", 50}, PageBreakBelow->False, InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-.074999999999999997, \ -.085000000000000006}, {0, 0}}, BoxBaselineShift -> .5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-.35999999999999999, \ -.10000000000000001}, {0, 0}}, BoxBaselineShift -> -.20000000000000001], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-.074999999999999997, \ -.085000000000000006}, {0, 0}}, BoxBaselineShift -> .5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica", "gridMathematica"->FormBox[ RowBox[ {"grid", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-.17499999999999999, 0}, {0, 0}}]}], TextForm], "webMathematica"->FormBox[ RowBox[ {"web", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-.17499999999999999, 0}, {0, 0}}]}], TextForm]}, FontFamily->"Helvetica", FontSize->12, FontWeight->"Bold", FontColor->RGBColor[0.592157, 0.313726, 0.313726]], Cell[StyleData["Subsubsection", "Presentation"], FontSize->18], Cell[StyleData["Subsubsection", "Printout"], CellMargins->{{2, 0}, {3, 8}}, FontSize->10], Cell[StyleData["Subsubsection", "EnhancedPrintout"], CellMargins->{{2, 0}, {3, 8}}, FontFamily->"Frutiger 65 Bold", FontSize->10, FontWeight->"Plain", FontColor->GrayLevel[0]], Cell[StyleData["Subsubsection", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {3, 8}}, FontFamily->"Frutiger 65 Bold", FontSize->10, FontWeight->"Plain"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SubsubsectionColor"], CellMargins->{{27, 27}, {0, 18}}, CellElementSpacings->{"ClosedGroupTopMargin"->18}, CellGroupingRules->{"SectionGrouping", 50}, InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-.074999999999999997, \ -.085000000000000006}, {0, 0}}, BoxBaselineShift -> .5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-.35999999999999999, \ -.10000000000000001}, {0, 0}}, BoxBaselineShift -> -.20000000000000001], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-.074999999999999997, \ -.085000000000000006}, {0, 0}}, BoxBaselineShift -> .5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica", "gridMathematica"->FormBox[ RowBox[ {"grid", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-.17499999999999999, 0}, {0, 0}}]}], TextForm], "webMathematica"->FormBox[ RowBox[ {"web", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-.17499999999999999, 0}, {0, 0}}]}], TextForm]}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->12, FontWeight->"Bold", FontColor->RGBColor[0.297993, 0, 0.454994]], Cell[StyleData["SubsubsectionColor", "Presentation"], FontSize->18], Cell[StyleData["SubsubsectionColor", "Printout"], CellMargins->{{2, 0}, {0, 18}}, PageBreakBelow->False, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SubsectionIcon"], ShowGroupOpenCloseIcon->True, CellMargins->{{46, 27}, {0, 18}}, CellElementSpacings->{"ClosedGroupTopMargin"->8}, CellGroupingRules->{"SectionGrouping", 40}, InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-.074999999999999997, \ -.085000000000000006}, {0, 0}}, BoxBaselineShift -> .5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-.35999999999999999, \ -.10000000000000001}, {0, 0}}, BoxBaselineShift -> -.20000000000000001], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-.074999999999999997, \ -.085000000000000006}, {0, 0}}, BoxBaselineShift -> .5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica", "gridMathematica"->FormBox[ RowBox[ {"grid", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-.17499999999999999, 0}, {0, 0}}]}], TextForm], "webMathematica"->FormBox[ RowBox[ {"web", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-.17499999999999999, 0}, {0, 0}}]}], TextForm]}, CounterIncrements->"Section", FontFamily->"Helvetica", FontSize->16, FontWeight->"Bold", FontColor->RGBColor[0.592157, 0.313726, 0.313726]], Cell[StyleData["SubsectionIcon", "Presentation"], FontSize->24], Cell[StyleData["SubsectionIcon", "Printout"], CellDingbat->"\[FilledSquare]", ShowGroupOpenCloseIcon->False, CellMargins->{{16, 0}, {0, 18}}, PageBreakBelow->False, FontSize->14] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SubsubsectionIcon"], ShowGroupOpenCloseIcon->True, CellMargins->{{46, 27}, {0, 8}}, CellElementSpacings->{"ClosedGroupTopMargin"->4}, CellGroupingRules->{"SectionGrouping", 50}, InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-.074999999999999997, \ -.085000000000000006}, {0, 0}}, BoxBaselineShift -> .5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-.35999999999999999, \ -.10000000000000001}, {0, 0}}, BoxBaselineShift -> -.20000000000000001], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-.074999999999999997, \ -.085000000000000006}, {0, 0}}, BoxBaselineShift -> .5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica", "gridMathematica"->FormBox[ RowBox[ {"grid", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-.17499999999999999, 0}, {0, 0}}]}], TextForm], "webMathematica"->FormBox[ RowBox[ {"web", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-.17499999999999999, 0}, {0, 0}}]}], TextForm]}, CounterIncrements->"Subsection", CounterAssignments->{{"Subsubsection", 0}}, FontFamily->"Helvetica", FontSize->12, FontWeight->"Bold", FontColor->RGBColor[0.592157, 0.313726, 0.313726]], Cell[StyleData["SubsubsectionIcon", "Presentation"], FontSize->18], Cell[StyleData["SubsubsectionIcon", "Printout"], ShowGroupOpenCloseIcon->False, CellMargins->{{2, 0}, {0, 18}}, PageBreakBelow->False, FontSize->10] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Text", "Section"], Cell[CellGroupData[{ Cell[StyleData["Text"], CellMargins->{{27, 27}, {0, 8}}, InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-.074999999999999997, \ -.085000000000000006}, {0, 0}}, BoxBaselineShift -> .5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-.35999999999999999, \ -.10000000000000001}, {0, 0}}, BoxBaselineShift -> -.20000000000000001], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-.074999999999999997, \ -.085000000000000006}, {0, 0}}, BoxBaselineShift -> .5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica", "gridMathematica"->FormBox[ RowBox[ {"grid", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-.17499999999999999, 0}, {0, 0}}]}], TextForm], "webMathematica"->FormBox[ RowBox[ {"web", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-.17499999999999999, 0}, {0, 0}}]}], TextForm]}, ParagraphSpacing->{0, 8}, FontSize->12], Cell[StyleData["Text", "Presentation"], FontSize->18], Cell[StyleData["Text", "SlideShow"], CellMargins->{{36, 24}, {4, 4}}, Hyphenation->False, FontSize->14], Cell[StyleData["Text", "Printout"], CellMargins->{{2, 2}, {6, 6}}, TextJustification->1, Hyphenation->True, FontSize->10], Cell[StyleData["Text", "EnhancedPrintout"], CellMargins->{{2, 2}, {6, 6}}, TextJustification->1, Hyphenation->True, FontFamily->"Palatino", FontSize->10], Cell[StyleData["Text", "EnhancedPrintoutNonGray"], CellMargins->{{2, 2}, {6, 6}}, TextJustification->1, Hyphenation->True, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["CompactText"], CellMargins->{{27, 27}, {0, 8}}, ParagraphSpacing->{0, 0}, StyleMenuListing->None, FontSize->10], Cell[StyleData["CompactText", "Presentation"], FontSize->15], Cell[StyleData["CompactText", "Printout"], CellMargins->{{2, 0}, {0, 8}}, Hyphenation->True, FontSize->8], Cell[StyleData["CompactText", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, Hyphenation->True, FontFamily->"Palatino", FontSize->8], Cell[StyleData["CompactText", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}, Hyphenation->True, FontFamily->"Palatino", FontSize->8] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Compact12Text"], CellMargins->{{27, 27}, {0, 8}}, ParagraphSpacing->{0, 0}, StyleMenuListing->None], Cell[StyleData["Compact12Text", "Presentation"], FontSize->18], Cell[StyleData["Compact12Text", "Printout"], CellMargins->{{2, 0}, {0, 8}}, Hyphenation->True, FontSize->10], Cell[StyleData["Compact12Text", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, Hyphenation->True, FontFamily->"Palatino", FontSize->10], Cell[StyleData["Compact12Text", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}, Hyphenation->True, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TextSans"], CellMargins->{{27, 27}, {0, 8}}, CellHorizontalScrolling->True, ParagraphSpacing->{0, 8}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->10], Cell[StyleData["TextSans", "Presentation"], FontSize->15], Cell[StyleData["TextSans", "Printout"], CellMargins->{{2, 0}, {0, 8}}, Hyphenation->True, FontSize->8], Cell[StyleData["TextSans", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, Hyphenation->True, FontFamily->"Frutiger 55 Roman", FontSize->8], Cell[StyleData["TextSans", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}, Hyphenation->True, FontFamily->"Frutiger 55 Roman", FontSize->8] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ItemizedText"], CellMargins->{{66, 4}, {4, 4}}, LineSpacing->{1, 3}, ParagraphIndent->-22, CounterIncrements->"ItemizedText", StyleMenuListing->None], Cell[StyleData["ItemizedText", "Presentation"], FontSize->18], Cell[StyleData["ItemizedText", "Printout"], CellMargins->{{16, 4}, {2, 4}}, Hyphenation->True, FontSize->10], Cell[StyleData["ItemizedText", "EnhancedPrintout"], CellMargins->{{16, 4}, {2, 4}}, Hyphenation->True, LineSpacing->{1, 1}, FontFamily->"Palatino", FontSize->10], Cell[StyleData["ItemizedText", "EnhancedPrintoutNonGray"], Hyphenation->True, LineSpacing->{1, 1}, ParagraphIndent->-18, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ItemizedTextNote"], CellMargins->{{88, 4}, {4, 0}}, LineSpacing->{1, 2}, CounterIncrements->"Text", StyleMenuListing->None], Cell[StyleData["ItemizedTextNote", "Presentation"], FontSize->18], Cell[StyleData["ItemizedTextNote", "Printout"], CellMargins->{{34, 4}, {4, 1}}, Hyphenation->True, FontSize->10], Cell[StyleData["ItemizedTextNote", "EnhancedPrintout"], CellMargins->{{39, 4}, {4, 1}}, Hyphenation->True, LineSpacing->{1, 1}, FontFamily->"Palatino", FontSize->10], Cell[StyleData["ItemizedTextNote", "EnhancedPrintoutNonGray"], CellMargins->{{39, 4}, {4, 1}}, Hyphenation->True, LineSpacing->{1, 1}, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["IndentedText"], CellMargins->{{66, 4}, {0, 6}}, LineSpacing->{1, 3}, CounterIncrements->"Text", StyleMenuListing->None], Cell[StyleData["IndentedText", "Presentation"], FontSize->18], Cell[StyleData["IndentedText", "SlideShow"], CellMargins->{{80, 24}, {5, 5}}, Hyphenation->False, FontSize->13], Cell[StyleData["IndentedText", "Printout"], CellMargins->{{16, 4}, {2, 4}}, Hyphenation->True, FontSize->10], Cell[StyleData["IndentedText", "EnhancedPrintout"], CellMargins->{{39, Inherited}, {Inherited, Inherited}}, Hyphenation->True, LineSpacing->{1, 1}, FontFamily->"Palatino", FontSize->10], Cell[StyleData["IndentedText", "EnhancedPrintoutNonGray"], Hyphenation->True, LineSpacing->{1, 1}, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ItemizedList"], CellMargins->{{58, 4}, {4, 4}}, CellFrameLabels->{{Cell[ TextData[ { StyleBox[ CounterBox[ "ItemizedList"], "TB"], StyleBox[ ".", "TB"]}], CellBaseline -> Baseline, CellSize -> { 24, Inherited}, TextAlignment -> Right], Inherited}, { Inherited, Inherited}}, LineSpacing->{1, 3}, CounterIncrements->"ItemizedList", StyleMenuListing->None], Cell[StyleData["ItemizedList", "Presentation"], FontSize->18], Cell[StyleData["ItemizedList", "Printout"], CellMargins->{{9, 4}, {2, 4}}, Hyphenation->True, FontSize->10], Cell[StyleData["ItemizedList", "EnhancedPrintout"], CellMargins->{{9, 4}, {2, 4}}, Hyphenation->True, LineSpacing->{1, 1}, FontFamily->"Palatino", FontSize->10], Cell[StyleData["ItemizedList", "EnhancedPrintoutNonGray"], Hyphenation->True, LineSpacing->{1, 1}, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ItemizedSubList"], CellMargins->{{92, 4}, {4, 4}}, CellFrameLabels->{{Cell[ TextData[ { StyleBox[ CounterBox[ "ItemizedSubList"], "TB"], StyleBox[ ".", "TB"]}], CellBaseline -> Baseline, CellSize -> { 24, Inherited}, TextAlignment -> Right], Inherited}, { Inherited, Inherited}}, CounterIncrements->"ItemizedSubList", StyleMenuListing->None, CounterBoxOptions->{CounterFunction:>(Part[ CharacterRange[ "a", "z"], #]&)}], Cell[StyleData["ItemizedSubList", "Presentation"], FontSize->18], Cell[StyleData["ItemizedSubList", "Printout"], CellMargins->{{34, 4}, {4, 1}}, Hyphenation->True, FontSize->10], Cell[StyleData["ItemizedSubList", "EnhancedPrintout"], CellMargins->{{26, 4}, {2, 4}}, Hyphenation->True, FontFamily->"Palatino", FontSize->10], Cell[StyleData["ItemizedSubList", "EnhancedPrintoutNonGray"], Hyphenation->True, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ItemizedSubListNote"], CellMargins->{{110, 4}, {4, 4}}, CounterIncrements->"ItemizedSubList", StyleMenuListing->None, CounterBoxOptions->{CounterFunction:>(Part[ CharacterRange[ "a", "z"], #]&)}], Cell[StyleData["ItemizedSubListNote", "Presentation"], FontSize->18], Cell[StyleData["ItemizedSubListNote", "Printout"], CellMargins->{{34, 4}, {4, 1}}, Hyphenation->True, FontSize->10], Cell[StyleData["ItemizedSubListNote", "EnhancedPrintout"], CellMargins->{{56, 4}, {2, 4}}, Hyphenation->True, FontFamily->"Palatino", FontSize->10], Cell[StyleData["ItemizedSubListNote", "EnhancedPrintoutNonGray"], CellMargins->{{48, 4}, {2, 4}}, Hyphenation->True, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["BulletedList"], CellMargins->{{76, 4}, {4, 4}}, CellFrameLabels->{{ Cell[ "\[Bullet]", "BulletedList", CellBaseline -> Baseline], Inherited}, {Inherited, Inherited}}, LineSpacing->{1, 3}, CounterIncrements->"BulletText", StyleMenuListing->None], Cell[StyleData["BulletedList", "Presentation"], FontSize->18], Cell[StyleData["BulletedList", "Printout"], CellMargins->{{16, 4}, {4, 1}}, Hyphenation->True, FontSize->10], Cell[StyleData["BulletedList", "EnhancedPrintout"], CellMargins->{{26, 4}, {2, 4}}, Hyphenation->True, LineSpacing->{1, 1}, FontFamily->"Palatino", FontSize->10], Cell[StyleData["BulletedList", "EnhancedPrintoutNonGray"], Hyphenation->True, LineSpacing->{1, 1}, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ListNote"], CellMargins->{{88, 4}, {4, 0}}, LineSpacing->{1, 2}, CounterIncrements->"ListNote", StyleMenuListing->None], Cell[StyleData["ListNote", "Presentation"], FontSize->18], Cell[StyleData["ListNote", "Printout"], CellMargins->{{34, 4}, {4, 1}}, Hyphenation->True, FontSize->10], Cell[StyleData["ListNote", "EnhancedPrintout"], CellMargins->{{39, 4}, {4, 1}}, Hyphenation->True, LineSpacing->{1, 1}, FontFamily->"Palatino", FontSize->10], Cell[StyleData["ListNote", "EnhancedPrintoutNonGray"], CellMargins->{{39, 4}, {4, 1}}, Hyphenation->True, LineSpacing->{1, 1}, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["MathCaption"], CellFrame->{{0, 0}, {0, 0.5}}, CellMargins->{{66, 12}, {2, 20}}, PageBreakBelow->False, CellFrameMargins->{{8, 8}, {8, 2}}, CellFrameColor->GrayLevel[0.700008], CellFrameLabelMargins->4, LineSpacing->{1, 1}, ParagraphSpacing->{0, 8}, FontColor->GrayLevel[0.2]], Cell[StyleData["MathCaption", "Presentation"], FontSize->18], Cell[StyleData["MathCaption", "SlideShow"], ShowCellBracket->False, CellMargins->{{36, 36}, {6, 6}}], Cell[StyleData["MathCaption", "Printout"], CellMargins->{{9, 0}, {0, 14}}, Hyphenation->True, FontSize->9, FontColor->GrayLevel[0]], Cell[StyleData["MathCaption", "EnhancedPrintout"], CellMargins->{{9, 0}, {0, 14}}, Hyphenation->True, FontFamily->"Palatino", FontSize->9, FontColor->GrayLevel[0]], Cell[StyleData["MathCaption", "EnhancedPrintoutNonGray"], CellMargins->{{9, 0}, {0, 14}}, Hyphenation->True, FontFamily->"Palatino", FontSize->9, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SmallText"], CellMargins->{{27, 27}, {0, 8}}, LineSpacing->{1, 3}, ParagraphSpacing->{0.7, 0}, CounterIncrements->"SmallText", FontSize->9], Cell[StyleData["SmallText", "Presentation"], FontSize->14], Cell[StyleData["SmallText", "Printout"], CellMargins->{{2, 2}, {5, 5}}, TextJustification->1, Hyphenation->True, FontSize->7], Cell[StyleData["SmallText", "EnhancedPrintout"], CellMargins->{{2, 2}, {5, 5}}, TextJustification->1, Hyphenation->True, FontFamily->"Palatino", FontSize->7], Cell[StyleData["SmallText", "EnhancedPrintoutNonGray"], CellMargins->{{2, 2}, {5, 5}}, TextJustification->1, Hyphenation->True, FontFamily->"Palatino", FontSize->7] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Input/Output", "Section"], Cell["\<\ The cells in this section define styles used for input and output to the \ kernel. Be careful when modifying, renaming, or removing these styles, \ because the front end associates special meanings with these style names. \ \ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["Input"], ShowCellBracket->True, CellMargins->{{66, 4}, {3, 8}}, Evaluatable->True, CellGroupingRules->"InputGrouping", PageBreakWithin->False, GroupPageBreakWithin->False, CellLabelAutoDelete->False, CellLabelMargins->{{14, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultInputFormatType, ShowSpecialCharacters->Automatic, "TwoByteSyntaxCharacterAutoReplacement"->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, LanguageCategory->"Mathematica", FormatType->StandardForm, ShowStringCharacters->True, NumberMarks->True, FontWeight->"Bold"], Cell[StyleData["Input", "Presentation"], FontSize->18], Cell[StyleData["Input", "SlideShow"], ShowCellBracket->True, CellMargins->{{100, 50}, {0, 6}}, PageBreakWithin->False, GroupPageBreakWithin->False, CellFrameMargins->{{8, 8}, {4, 8}}, Background->RGBColor[1, 1, 0.8]], Cell[StyleData["Input", "Printout"], ShowCellBracket->False, CellMargins->{{39, 0}, {4, 6}}, FontSize->9], Cell[StyleData["Input", "EnhancedPrintout"], ShowCellBracket->False, CellMargins->{{39, 0}, {4, 6}}, FontSize->9], Cell[StyleData["Input", "EnhancedPrintoutNonGray"], ShowCellBracket->False, CellMargins->{{39, 0}, {4, 6}}, FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Output"], ShowCellBracket->True, CellMargins->{{66, 4}, {8, 2}}, CellEditDuplicate->True, CellGroupingRules->"OutputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, CellLabelAutoDelete->False, CellLabelMargins->{{14, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement"->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, AutoItalicWords->{}, LanguageCategory->None, FormatType->StandardForm], Cell[StyleData["Output", "Presentation"], FontSize->18], Cell[StyleData["Output", "SlideShow"], ShowCellBracket->True, CellMargins->{{100, 50}, {6, 0}}, PageBreakWithin->False, GroupPageBreakWithin->False, CellFrameMargins->{{8, 8}, {8, 4}}, Background->RGBColor[1, 1, 0.8]], Cell[StyleData["Output", "Printout"], ShowCellBracket->False, CellMargins->{{39, 0}, {6, 4}}, FontSize->9], Cell[StyleData["Output", "EnhancedPrintout"], ShowCellBracket->False, CellMargins->{{39, 0}, {6, 4}}, FontSize->9], Cell[StyleData["Output", "EnhancedPrintoutNonGray"], ShowCellBracket->False, CellMargins->{{39, 0}, {6, 4}}, FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["InputOnly"], ShowCellBracket->True, CellMargins->{{66, 4}, {8, 8}}, Evaluatable->True, CellGroupingRules->"InputGrouping", PageBreakWithin->False, GroupPageBreakWithin->False, CellLabelAutoDelete->False, CellLabelMargins->{{14, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultInputFormatType, ShowSpecialCharacters->Automatic, "TwoByteSyntaxCharacterAutoReplacement"->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, LanguageCategory->"Mathematica", FormatType->StandardForm, ShowStringCharacters->True, NumberMarks->True, StyleMenuListing->None, FontWeight->"Bold"], Cell[StyleData["InputOnly", "Presentation"], FontSize->18], Cell[StyleData["InputOnly", "SlideShow"], ShowCellBracket->True, CellMargins->{{100, 50}, {6, 6}}, PageBreakWithin->False, GroupPageBreakWithin->False, Background->RGBColor[1, 1, 0.8]], Cell[StyleData["InputOnly", "Printout"], ShowCellBracket->False, CellMargins->{{39, 0}, {6, 6}}, FontSize->9], Cell[StyleData["InputOnly", "EnhancedPrintout"], ShowCellBracket->False, CellMargins->{{39, 0}, {6, 6}}, FontSize->9], Cell[StyleData["InputOnly", "EnhancedPrintoutNonGray"], ShowCellBracket->False, CellMargins->{{39, 0}, {6, 6}}, FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Message"], ShowCellBracket->True, CellMargins->{{66, 4}, {4, 2}}, CellGroupingRules->"OutputGrouping", PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, CellLabelMargins->{{14, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement"->True, AutoStyleOptions->{"UnmatchedBracketStyle"->None}, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, AutoItalicWords->{}, LanguageCategory->None, FormatType->InputForm, CounterIncrements->"Message", StyleMenuListing->None, FontFamily->"Helvetica", FontSize->10, FontColor->RGBColor[0.6, 0.100008, 0.100008]], Cell[StyleData["Message", "Presentation"], FontSize->18], Cell[StyleData["Message", "SlideShow"], CellMargins->{{100, 50}, {6, 6}}, FontSize->10, FontColor->RGBColor[0.699992, 0.4, 0]], Cell[StyleData["Message", "Printout"], ShowCellBracket->False, CellMargins->{{39, Inherited}, {Inherited, Inherited}}, FontSize->9, FontColor->GrayLevel[0]], Cell[StyleData["Message", "EnhancedPrintout"], ShowCellBracket->False, CellMargins->{{39, Inherited}, {Inherited, Inherited}}, FontFamily->"Courier", FontSize->9, FontColor->GrayLevel[0]], Cell[StyleData["Message", "EnhancedPrintoutNonGray"], ShowCellBracket->False, CellMargins->{{39, Inherited}, {Inherited, Inherited}}, FontFamily->"Courier", FontSize->9, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Print"], ShowCellBracket->True, CellMargins->{{66, 4}, {4, 2}}, CellGroupingRules->"OutputGrouping", PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, CellLabelMargins->{{14, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement"->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, AutoItalicWords->{}, LanguageCategory->None, FormatType->InputForm, StyleMenuListing->None], Cell[StyleData["Print", "Presentation"], FontSize->18], Cell[StyleData["Print", "SlideShow"], CellMargins->{{100, 50}, {6, 6}}], Cell[StyleData["Print", "Printout"], ShowCellBracket->False, CellMargins->{{57, Inherited}, {Inherited, Inherited}}, FontSize->9], Cell[StyleData["Print", "EnhancedPrintout"], ShowCellBracket->False, CellMargins->{{57, Inherited}, {Inherited, Inherited}}, FontFamily->"Courier Std", FontSize->9], Cell[StyleData["Print", "EnhancedPrintoutNonGray"], ShowCellBracket->False, CellMargins->{{57, Inherited}, {Inherited, Inherited}}, FontFamily->"Courier Std", FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Graphics"], ShowCellBracket->True, CellMargins->{{66, 4}, {4, 2}}, CellGroupingRules->"GraphicsGrouping", PageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, DefaultFormatType->Utilities`Notation`Private`DefaultFormatTypeForOutput, LanguageCategory->None, FormatType->InputForm, StyleMenuListing->None, FontWeight->"Plain"], Cell[StyleData["Graphics", "Presentation"], FontSize->18], Cell[StyleData["Graphics", "SlideShow"], ShowCellBracket->True, CellMargins->{{100, 50}, {6, 0}}, PageBreakWithin->False, GroupPageBreakWithin->False, CellFrameMargins->{{8, 8}, {4, 4}}, Background->RGBColor[1, 1, 0.8]], Cell[StyleData["Graphics", "Printout"], ShowCellBracket->False, CellMargins->{{39, Inherited}, {Inherited, Inherited}}, ImageSize->{250, 250}, FontSize->9], Cell[StyleData["Graphics", "EnhancedPrintout"], ShowCellBracket->False, CellMargins->{{32, Inherited}, {Inherited, Inherited}}, ImageSize->{250, 250}, FontFamily->"Courier Std", FontSize->9], Cell[StyleData["Graphics", "EnhancedPrintoutNonGray"], ShowCellBracket->False, CellMargins->{{32, Inherited}, {Inherited, Inherited}}, ImageSize->{250, 250}, FontFamily->"Courier Std", FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["CellLabel"], LanguageCategory->None, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->9, FontWeight->"Plain", FontColor->RGBColor[0.269993, 0.308507, 0.6]], Cell[StyleData["CellLabel", "Presentation"], FontSize->14], Cell[StyleData["CellLabel", "SlideShow"], FontColor->RGBColor[0.8, 0.6, 0.4]], Cell[StyleData["CellLabel", "Printout"], FontFamily->"Courier", FontSize->8, FontSlant->"Oblique", FontColor->GrayLevel[0]], Cell[StyleData["CellLabel", "EnhancedPrintout"], FontFamily->"Courier Std", FontSize->8, FontSlant->"Oblique", FontColor->GrayLevel[0]], Cell[StyleData["CellLabel", "EnhancedPrintoutNonGray"], FontFamily->"Courier Std", FontSize->8, FontSlant->"Oblique", FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Name"], StyleMenuListing->None, FontFamily->"Helvetica", FontSize->9, FontWeight->"Plain", FontSlant->"Italic", FontColor->RGBColor[0.269993, 0.308507, 0.6]], Cell[StyleData["Name", "Presentation"], FontSize->14], Cell[StyleData["Name", "Printout"], FontSize->7, FontSlant->"Oblique", FontColor->GrayLevel[0]], Cell[StyleData["Name", "EnhancedPrintout"], FontFamily->"Frutiger 56 Italic", FontSize->7, FontSlant->"Plain", FontColor->GrayLevel[0]], Cell[StyleData["Name", "EnhancedPrintoutNonGray"], FontFamily->"Frutiger 56 Italic", FontSize->7, FontSlant->"Plain", FontColor->GrayLevel[0]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Hyperlinks", "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. The others point to the various sections of the help browser. \ These styles will modify individual words or letters in a cell exclusive of \ the cell tag.\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["Hyperlink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0.269993, 0.308507, 0.6], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookLocate[ #2]}]&), Active->True, ButtonNote->ButtonData}], Cell[StyleData["Hyperlink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["Hyperlink", "EnhancedPrintout"], FontFamily->"Palatino", FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["Hyperlink", "EnhancedPrintoutNonGray"], FontFamily->"Palatino", FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["MainBookLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0.269993, 0.308507, 0.6], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "MainBook", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["MainBookLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["MainBookLink", "EnhancedPrintout"], FontFamily->"Palatino", FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["MainBookLink", "EnhancedPrintoutNonGray"], FontFamily->"Palatino", FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["MainBookLinkMR"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontFamily->"Courier", FontColor->RGBColor[0.269993, 0.308507, 0.6], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "MainBook", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["MainBookLinkMR", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["MainBookLinkMR", "EnhancedPrintout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["MainBookLinkMR", "EnhancedPrintoutNonGray"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["AddOnsLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontFamily->"Courier", FontColor->RGBColor[0.269993, 0.308507, 0.6], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "AddOns", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["AddOnsLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["AddOnsLink", "EnhancedPrintout"], FontFamily->"WRICourier", FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["AddOnsLink", "EnhancedPrintoutNonGray"], FontFamily->"WRICourier", FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["AddOnsLinkText"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontFamily->"Times", FontColor->RGBColor[0.269993, 0.308507, 0.6], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "AddOns", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["AddOnsLinkText", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["AddOnsLinkText", "EnhancedPrintout"], FontFamily->"Palatino", FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["AddOnsLinkText", "EnhancedPrintoutNonGray"], FontFamily->"Palatino", FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["RefGuideLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontFamily->"Courier", FontColor->RGBColor[0.269993, 0.308507, 0.6], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "RefGuide", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["RefGuideLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["RefGuideLink", "EnhancedPrintout"], FontFamily->"WRICourier", FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["RefGuideLink", "EnhancedPrintoutNonGray"], FontFamily->"WRICourier", FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["GettingStartedLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0.269993, 0.308507, 0.6], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "GettingStarted", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["GettingStartedLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["GettingStartedLink", "EnhancedPrintout"], FontFamily->"Palatino", FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["GettingStartedLink", "EnhancedPrintoutNonGray"], FontFamily->"Palatino", FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DemosLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0.269993, 0.308507, 0.6], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "Demos", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["DemosLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["DemosLink", "EnhancedPrintout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["DemosLink", "EnhancedPrintoutNonGray"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TourLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0.269993, 0.308507, 0.6], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "Tour", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["TourLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["TourLink", "EnhancedPrintout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["TourLink", "EnhancedPrintoutNonGray"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["OtherInformationLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0.269993, 0.308507, 0.6], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "OtherInformation", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["OtherInformationLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["OtherInformationLink", "EnhancedPrintout"], FontFamily->"Palatino", FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["OtherInformationLink", "EnhancedPrintoutNonGray"], FontFamily->"Palatino", FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["OtherInformationLinkMR"], StyleMenuListing->None, FontFamily->"Courier", FontColor->RGBColor[0.269993, 0.308507, 0.6], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "OtherInformation", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["OtherInformationLinkMR", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["OtherInformationLinkMR", "EnhancedPrintout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["OtherInformationLinkMR", "EnhancedPrintoutNonGray"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["MasterIndexLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0.269993, 0.308507, 0.6], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "MasterIndex", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["MasterIndexLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["MasterIndexLink", "EnhancedPrintout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["MasterIndexLink", "EnhancedPrintoutNonGray"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Palette Styles", "Section"], Cell["\<\ The cells below define styles that define standard ButtonFunctions, for use \ in palette buttons.\ \>", "Text"], Cell[StyleData["Paste"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, After]}]&)}], Cell[StyleData["Evaluate"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, All], SelectionEvaluate[ FrontEnd`InputNotebook[ ], All]}]&)}], Cell[StyleData["EvaluateCell"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, All], FrontEnd`SelectionMove[ FrontEnd`InputNotebook[ ], All, Cell, 1], FrontEnd`SelectionEvaluateCreateCell[ FrontEnd`InputNotebook[ ], All]}]&)}], Cell[StyleData["CopyEvaluate"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`SelectionCreateCell[ FrontEnd`InputNotebook[ ], All], FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, All], FrontEnd`SelectionEvaluate[ FrontEnd`InputNotebook[ ], All]}]&)}], Cell[StyleData["CopyEvaluateCell"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`SelectionCreateCell[ FrontEnd`InputNotebook[ ], All], FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, All], FrontEnd`SelectionEvaluateCreateCell[ FrontEnd`InputNotebook[ ], All]}]&)}] }, Open ]], Cell[CellGroupData[{ Cell["Inline Formatting", "Section"], Cell["\<\ These styles are for modifying individual words or letters in a cell \ exclusive of the cell tag.\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["JT"], StyleMenuListing->None, FontFamily->"JFontText"], Cell[StyleData["JT", "Printout"]], Cell[StyleData["JT", "EnhancedPrintout"]], Cell[StyleData["JT", "EnhancedPrintoutNonGray"]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["JS"], StyleMenuListing->None, FontFamily->"JFontSans"], Cell[StyleData["JS", "Printout"]], Cell[StyleData["JS", "EnhancedPrintout"]], Cell[StyleData["JS", "EnhancedPrintoutNonGray"]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["JSB"], StyleMenuListing->None, FontFamily->"JFontSansBold"], Cell[StyleData["JSB", "Printout"]], Cell[StyleData["JSB", "EnhancedPrintout"]], Cell[StyleData["JSB", "EnhancedPrintoutNonGray"]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["RM"], StyleMenuListing->None, FontWeight->"Plain", FontSlant->"Plain"], Cell[StyleData["RM", "Printout"]], Cell[StyleData["RM", "EnhancedPrintout"]], Cell[StyleData["RM", "EnhancedPrintoutNonGray"]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["BF"], StyleMenuListing->None, FontWeight->"Bold"], Cell[StyleData["BF", "Printout"]], Cell[StyleData["BF", "EnhancedPrintout"]], Cell[StyleData["BF", "EnhancedPrintoutNonGray"]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["IT"], StyleMenuListing->None, FontSlant->"Italic"], Cell[StyleData["IT", "Printout"]], Cell[StyleData["IT", "EnhancedPrintout"]], Cell[StyleData["IT", "EnhancedPrintoutNonGray"]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TR"], StyleMenuListing->None, FontFamily->"Times", FontWeight->"Plain", FontSlant->"Plain"], Cell[StyleData["TR", "Printout"]], Cell[StyleData["TR", "EnhancedPrintout"], FontFamily->"Palatino"], Cell[StyleData["TR", "EnhancedPrintoutNonGray"], FontFamily->"Palatino"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TI"], StyleMenuListing->None, FontFamily->"Times", FontSlant->"Italic"], Cell[StyleData["TI", "Printout"]], Cell[StyleData["TI", "EnhancedPrintout"], FontFamily->"Palatino"], Cell[StyleData["TI", "EnhancedPrintoutNonGray"], FontFamily->"Palatino"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TB"], StyleMenuListing->None, FontFamily->"Times", FontWeight->"Bold", FontSlant->"Plain"], Cell[StyleData["TB", "Printout"]], Cell[StyleData["TB", "EnhancedPrintout"], FontFamily->"Palatino"], Cell[StyleData["TB", "EnhancedPrintoutNonGray"], FontFamily->"Palatino"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TBI"], StyleMenuListing->None, FontFamily->"Times", FontWeight->"Bold", FontSlant->"Italic"], Cell[StyleData["TBI", "Printout"]], Cell[StyleData["TBI", "EnhancedPrintout"], FontFamily->"Palatino"], Cell[StyleData["TBI", "EnhancedPrintoutNonGray"], FontFamily->"Palatino"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["MR"], Hyphenation->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, AutoItalicWords->{}, StyleMenuListing->None, FontFamily->"Courier", FontWeight->"Plain", FontSlant->"Plain"], Cell[StyleData["MR", "Printout"]], Cell[StyleData["MR", "EnhancedPrintout"], FontFamily->"Courier Std"], Cell[StyleData["MR", "EnhancedPrintoutNonGray"], FontFamily->"Courier Std"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["MO"], HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, StyleMenuListing->None, FontFamily->"Courier", FontWeight->"Plain", FontSlant->"Italic"], Cell[StyleData["MO", "Printout"], FontSlant->"Oblique"], Cell[StyleData["MO", "EnhancedPrintout"], FontFamily->"Courier Std", FontSlant->"Oblique"], Cell[StyleData["MO", "EnhancedPrintoutNonGray"], FontFamily->"Courier Std", FontSlant->"Oblique"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["MB"], HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, StyleMenuListing->None, FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Plain"], Cell[StyleData["MB", "Printout"]], Cell[StyleData["MB", "EnhancedPrintout"], FontFamily->"Courier Std"], Cell[StyleData["MB", "EnhancedPrintoutNonGray"], FontFamily->"Courier Std"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["MBO"], HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, StyleMenuListing->None, FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Italic"], Cell[StyleData["MBO", "Printout"], FontSlant->"Oblique"], Cell[StyleData["MBO", "EnhancedPrintout"], FontFamily->"Courier Std", FontSlant->"Oblique"], Cell[StyleData["MBO", "EnhancedPrintoutNonGray"], FontFamily->"Courier Std", FontSlant->"Oblique"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SR"], StyleMenuListing->None, FontFamily->"Helvetica", FontWeight->"Plain", FontSlant->"Plain"], Cell[StyleData["SR", "Printout"]], Cell[StyleData["SR", "EnhancedPrintout"], FontFamily->"Frutiger 55 Roman"], Cell[StyleData["SR", "EnhancedPrintoutNonGray"], FontFamily->"Frutiger 55 Roman"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SO"], StyleMenuListing->None, FontFamily->"Helvetica", FontWeight->"Plain", FontSlant->"Italic"], Cell[StyleData["SO", "Printout"], StyleMenuListing->None, FontFamily->"Helvetica", FontWeight->"Plain", FontSlant->"Italic"], Cell[StyleData["SO", "EnhancedPrintout"], FontFamily->"Frutiger 56 Italic", FontSlant->"Plain"], Cell[StyleData["SO", "EnhancedPrintoutNonGray"], FontFamily->"Frutiger 56 Italic", FontSlant->"Plain"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SB"], StyleMenuListing->None, FontFamily->"Helvetica", FontWeight->"Bold", FontSlant->"Plain"], Cell[StyleData["SB", "Printout"], StyleMenuListing->None], Cell[StyleData["SB", "EnhancedPrintout"], FontFamily->"Frutiger 65 Bold", FontWeight->"Plain"], Cell[StyleData["SB", "EnhancedPrintoutNonGray"], FontFamily->"Frutiger 65 Bold", FontWeight->"Plain"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SBColor"], StyleMenuListing->None, FontFamily->"Helvetica", FontWeight->"Bold", FontSlant->"Plain"], Cell[StyleData["SBColor", "Printout"], StyleMenuListing->None], Cell[StyleData["SBColor", "EnhancedPrintout"], FontFamily->"Frutiger 65 Bold", FontWeight->"Plain"], Cell[StyleData["SBColor", "EnhancedPrintoutNonGray"], FontFamily->"Frutiger 65 Bold", FontWeight->"Plain"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SBO"], StyleMenuListing->None, FontFamily->"Helvetica", FontWeight->"Bold", FontSlant->"Italic"], Cell[StyleData["SBO", "Printout"], StyleMenuListing->None, FontFamily->"Helvetica", FontWeight->"Bold", FontSlant->"Italic"], Cell[StyleData["SBO", "EnhancedPrintout"], FontFamily->"Frutiger 66 BoldItalic", FontWeight->"Plain", FontSlant->"Plain"], Cell[StyleData["SBO", "EnhancedPrintoutNonGray"], FontFamily->"Frutiger 66 BoldItalic", FontWeight->"Plain", FontSlant->"Plain"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["M4"], ShowCellBracket->True, StyleMenuListing->None, FontFamily->"Mathematica4", CharacterEncoding->"Mathematica4"], Cell[StyleData["M4", "Printout"], ShowCellBracket->True, StyleMenuListing->None, FontFamily->"Mathematica4", CharacterEncoding->"Mathematica4"], Cell[StyleData["M4", "EnhancedPrintout"], ShowCellBracket->True, StyleMenuListing->None, FontFamily->"Mathematica4", CharacterEncoding->"Mathematica4"], Cell[StyleData["M4", "EnhancedPrintoutNonGray"], ShowCellBracket->True, StyleMenuListing->None, FontFamily->"Mathematica4", CharacterEncoding->"Mathematica4"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SO10"], StyleMenuListing->None, FontFamily->"Helvetica", FontSize->10, FontWeight->"Plain", FontSlant->"Italic"], Cell[StyleData["SO10", "Printout"], StyleMenuListing->None, FontFamily->"Helvetica", FontSize->8, FontWeight->"Plain", FontSlant->"Italic"], Cell[StyleData["SO10", "EnhancedPrintout"], StyleMenuListing->None, FontFamily->"Frutiger 56 Italic", FontSize->8, FontWeight->"Plain", FontSlant->"Plain"], Cell[StyleData["SO10", "EnhancedPrintoutNonGray"], StyleMenuListing->None, FontFamily->"Frutiger 56 Italic", FontSize->8, FontWeight->"Plain", FontSlant->"Plain"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["S9"], StyleMenuListing->None, FontFamily->"Helvetica", FontSize->9, FontWeight->"Plain"], Cell[StyleData["S9", "Printout"], FontSize->9, FontWeight->"Plain"], Cell[StyleData["S9", "EnhancedPrintout"], FontFamily->"Frutiger 55 Roman", FontSize->9, FontWeight->"Plain"], Cell[StyleData["S9", "EnhancedPrintoutNonGray"], FontFamily->"Frutiger 55 Roman", FontSize->9, FontWeight->"Plain"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["S10"], StyleMenuListing->None, FontFamily->"Helvetica", FontSize->10, FontWeight->"Plain"], Cell[StyleData["S10", "Printout"], FontSize->10, FontWeight->"Plain"], Cell[StyleData["S10", "EnhancedPrintout"], FontFamily->"Frutiger 55 Roman", FontSize->10, FontWeight->"Plain"], Cell[StyleData["S10", "EnhancedPrintoutNonGray"], FontFamily->"Frutiger 55 Roman", FontSize->10, FontWeight->"Plain"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SB9"], StyleMenuListing->None, FontFamily->"Helvetica", FontSize->9, FontWeight->"Bold", PrivateFontOptions->{"OperatorSubstitution"->False}], Cell[StyleData["SB9", "Printout"], FontSize->7], Cell[StyleData["SB9", "EnhancedPrintout"], FontFamily->"Frutiger 65 Bold", FontSize->7, FontWeight->"Plain"], Cell[StyleData["SB9", "EnhancedPrintoutNonGray"], FontFamily->"Frutiger 65 Bold", FontSize->7, FontWeight->"Plain"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SB10"], StyleMenuListing->None, FontFamily->"Helvetica", FontSize->10, FontWeight->"Bold"], Cell[StyleData["SB10", "Printout"], FontSize->8], Cell[StyleData["SB10", "EnhancedPrintout"], FontFamily->"Frutiger 65 Bold", FontSize->8, FontWeight->"Plain"], Cell[StyleData["SB10", "EnhancedPrintoutNonGray"], FontFamily->"Frutiger 65 Bold", FontSize->8, FontWeight->"Plain"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["MR10"], Hyphenation->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, SingleLetterItalics->False, StyleMenuListing->None, FontFamily->"Courier", FontSize->10, FontWeight->"Plain", FontSlant->"Plain"], Cell[StyleData["MR10", "Printout"], FontSize->7], Cell[StyleData["MR10", "EnhancedPrintout"], FontFamily->"Courier Std", FontSize->7], Cell[StyleData["MR10", "EnhancedPrintoutNonGray"], FontFamily->"Courier Std", FontSize->7] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["C1"], StyleMenuListing->None, FontColor->RGBColor[0.4, 0, 1]], Cell[StyleData["C1", "Printout"], FontSize->10, FontColor->GrayLevel[0]], Cell[StyleData["C1", "EnhancedPrintout"], FontFamily->"Palatino", FontSize->10, FontColor->GrayLevel[0]], Cell[StyleData["C1", "EnhancedPrintoutNonGray"], FontFamily->"Palatino", FontSize->10, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["C1MR"], StyleMenuListing->None, FontFamily->"Courier", FontColor->RGBColor[0.4, 0, 1]], Cell[StyleData["C1MR", "Printout"], FontSize->10, FontColor->GrayLevel[0]], Cell[StyleData["C1MR", "EnhancedPrintout"], FontFamily->"Courier Std", FontSize->10, FontColor->GrayLevel[0]], Cell[StyleData["C1MR", "EnhancedPrintoutNonGray"], FontFamily->"Courier Std", FontSize->10, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SmallCaps"], StyleMenuListing->None, Magnification->0.8], Cell[StyleData["SmallCaps", "Printout"]], Cell[StyleData["SmallCaps", "EnhancedPrintout"], FontFamily->"Palatino"], Cell[StyleData["SmallCaps", "EnhancedPrintoutNonGray"], FontFamily->"Palatino"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["KeyboardChars"], StyleMenuListing->None, FontSize->12], Cell[StyleData["KeyboardChars", "Printout"], FontSize->10], Cell[StyleData["KeyboardChars", "EnhancedPrintout"], FontFamily->"Palatino", FontSize->10], Cell[StyleData["KeyboardChars", "EnhancedPrintoutNonGray"], FontFamily->"Palatino", FontSize->10] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Emphasis Boxes and Pictures", "Section"], Cell[CellGroupData[{ Cell[StyleData["Box"], CellFrame->0.5, CellMargins->{{27, 12}, {0, 8}}, CellHorizontalScrolling->True, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], StyleMenuListing->None, Background->RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions->{BoxFrame->0.5, BoxMargins->True}, GridBoxOptions->{ColumnSpacings->1}], Cell[StyleData["Box", "Presentation"], FontSize->18], Cell[StyleData["Box", "Printout"], CellMargins->{{2, 0}, {0, 8}}, CellFrameColor->GrayLevel[0], FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["Box", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, CellFrameColor->GrayLevel[0], FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["Box", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}, CellFrameColor->GrayLevel[0], FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DoubleBox"], CellFrame->0.5, CellMargins->{{27, 12}, {0, 8}}, CellHorizontalScrolling->True, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], StyleMenuListing->None, Background->RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions->{BoxFrame->0.5, BoxMargins->True}, GridBoxOptions->{ColumnSpacings->2, RowAlignments->Top}], Cell[StyleData["DoubleBox", "Presentation"], FontSize->18], Cell[StyleData["DoubleBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, CellFrameColor->GrayLevel[0], FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["DoubleBox", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, CellFrameColor->GrayLevel[0], FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["DoubleBox", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}, CellFrameColor->GrayLevel[0], FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["1ColumnBox"], CellFrame->0.5, CellMargins->{{27, 12}, {0, 8}}, CellHorizontalScrolling->True, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], LineIndent->0, StyleMenuListing->None, Background->RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions->{BoxFrame->0.5, BoxMargins->True}, GridBoxOptions->{ColumnSpacings->1}], Cell[StyleData["1ColumnBox", "Presentation"], FontSize->18], Cell[StyleData["1ColumnBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, CellFrameColor->GrayLevel[0], FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["1ColumnBox", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, CellFrameColor->GrayLevel[0], FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["1ColumnBox", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}, CellFrameColor->GrayLevel[0], FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["2ColumnBox"], CellFrame->0.5, CellMargins->{{27, 12}, {0, 8}}, CellHorizontalScrolling->True, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], SingleLetterItalics->False, LineIndent->0, StyleMenuListing->None, Background->RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions->{BoxFrame->0.5, BoxMargins->True}, GridBoxOptions->{ColumnWidths->{0.31, 0.67}}], Cell[StyleData["2ColumnBox", "Presentation"], FontSize->18], Cell[StyleData["2ColumnBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, CellFrameColor->GrayLevel[0], FontSize->9, Background->GrayLevel[0.900008]], Cell[StyleData["2ColumnBox", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, CellFrameColor->GrayLevel[0], FontSize->9, Background->GrayLevel[0.900008]], Cell[StyleData["2ColumnBox", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}, CellFrameColor->GrayLevel[0], FontSize->9, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["2ColumnEvenBox"], CellFrame->0.5, CellMargins->{{27, 12}, {0, 8}}, CellHorizontalScrolling->True, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], LineIndent->0, StyleMenuListing->None, Background->RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions->{BoxFrame->0.5, BoxMargins->True}, GridBoxOptions->{ColumnWidths->0.46}], Cell[StyleData["2ColumnEvenBox", "Presentation"], FontSize->18], Cell[StyleData["2ColumnEvenBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, CellFrameColor->GrayLevel[0], FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["2ColumnEvenBox", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, CellFrameColor->GrayLevel[0], FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["2ColumnEvenBox", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}, CellFrameColor->GrayLevel[0], FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["2ColumnSmallBox"], CellFrame->0.5, CellMargins->{{27, 12}, {0, 8}}, CellHorizontalScrolling->True, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], LineIndent->0, StyleMenuListing->None, Background->RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions->{BoxFrame->0.5, BoxMargins->True}, GridBoxOptions->{ColumnSpacings->1.5, ColumnWidths->0.35, ColumnAlignments->{Right, Left}}], Cell[StyleData["2ColumnSmallBox", "Presentation"], FontSize->18], Cell[StyleData["2ColumnSmallBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, CellFrameColor->GrayLevel[0], FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["2ColumnSmallBox", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, CellFrameColor->GrayLevel[0], FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["2ColumnSmallBox", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}, CellFrameColor->GrayLevel[0], FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["3ColumnBox"], CellFrame->0.5, CellMargins->{{27, 12}, {0, 8}}, CellHorizontalScrolling->True, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], LineIndent->0, StyleMenuListing->None, Background->RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions->{BoxFrame->0.5, BoxMargins->True}, GridBoxOptions->{ColumnWidths->0.32}], Cell[StyleData["3ColumnBox", "Presentation"], FontSize->18], Cell[StyleData["3ColumnBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, CellFrameColor->GrayLevel[0], FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["3ColumnBox", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, CellFrameColor->GrayLevel[0], FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["3ColumnBox", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}, CellFrameColor->GrayLevel[0], FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["3ColumnSmallBox"], CellFrame->0.5, CellMargins->{{27, 12}, {0, 8}}, CellHorizontalScrolling->True, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], LineIndent->0, StyleMenuListing->None, Background->RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions->{BoxFrame->0.5, BoxMargins->True}, GridBoxOptions->{ColumnSpacings->1.5, ColumnWidths->0.24, ColumnAlignments->{Right, Center, Left}}], Cell[StyleData["3ColumnSmallBox", "Presentation"], FontSize->18], Cell[StyleData["3ColumnSmallBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, CellFrameColor->GrayLevel[0], FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["3ColumnSmallBox", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, CellFrameColor->GrayLevel[0], FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["3ColumnSmallBox", "EnhancedPrintoutNonGray"], CellFrame->0.5, CellMargins->{{2, 0}, {0, 8}}, CellFrameColor->GrayLevel[0], FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["4ColumnBox"], CellFrame->0.5, CellMargins->{{27, 12}, {0, 8}}, CellHorizontalScrolling->True, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], SingleLetterItalics->False, LineIndent->0, StyleMenuListing->None, Background->RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions->{BoxFrame->0.5, BoxMargins->True}, GridBoxOptions->{ColumnWidths->{0.13, 0.35, 0.13, 0.35}}], Cell[StyleData["4ColumnBo