(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 213597, 6890] NotebookOptionsPosition[ 92266, 3174] NotebookOutlinePosition[ 199228, 6472] CellTagsIndexPosition[ 199148, 6467] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}], DefaultStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], RowBox[{" ", "of", " "}], CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell["The Front End as Development Environment", "Title", CellMargins->{{72, 50}, {10, 20}}], Cell["New ways to use the notebook interface to develop your code", "Subtitle"], Cell["John Fultz", "Author"], Cell["Wolfram Research, Inc.", "Affiliation"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlidePreviousNextLink"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlidePreviousNextLink"] }], "PreviousNext"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}], DefaultStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], RowBox[{" ", "of", " "}], CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell["Talk Overview", "Subtitle"], Cell["New support for editing of package files", "Subsection"], Cell[TextData[{ "FE-based ", StyleBox["Mathematica", FontSlant->"Italic"], " debugger" }], "Subsection"], Cell["Syntax coloring", "Subsection"], Cell[TextData[{ "Thoughts about ", StyleBox["Mathematica", FontSlant->"Italic"], " and version control" }], "Subsection"], Cell[CellGroupData[{ Cell["Some future concepts", "Subsection"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlidePreviousNextLink"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlidePreviousNextLink"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}], DefaultStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], RowBox[{" ", "of", " "}], CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell["\<\ Editing Packages \[LongDash] The Old Ways\ \>", "Subtitle"], Cell["Autosave packages", "Subsection"], Cell["\<\ Write your program in a notebook and Save As Special \[FilledRightTriangle] \ Package\ \>", "Subsection"], Cell[CellGroupData[{ Cell["\<\ Open package in notebook, hope it remains a package when you save\ \>", "Subsection"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlidePreviousNextLink"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlidePreviousNextLink"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}], DefaultStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], RowBox[{" ", "of", " "}], CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell["\<\ Editing Packages \[LongDash] Autosave packages\ \>", "Subtitle"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Button", "[", RowBox[{"\"\\"", ",", " ", RowBox[{ "Run", "[", "\"\<\\\"c:\\\\Program Files\\\\Wolfram \ Research\\\\Mathematica\\\\5.2\\\\Mathematica.exe\\\" -directlaunch c:\\\\WRI\ \\\\Conference\\\\2005\\\\Examples\\\\Example1.nb\>\"", "]"}]}], "]"}]], "Input"], Cell[BoxData[ ButtonBox["\<\"Example\"\>", Appearance->"DialogBox", ButtonFrame->"DialogBox", ButtonFunction:>Run[ "\"c:\\Program Files\\Wolfram \ Research\\Mathematica\\5.2\\Mathematica.exe\" -directlaunch \ c:\\WRI\\Conference\\2005\\Examples\\Example1.nb"], Evaluator->Automatic, Method->"Preemptive"]], "Output"] }, {2}]], Cell[BoxData[{ RowBox[{ RowBox[{"SetDirectory", "[", RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"<<", "Examples/Example1.m"}], ";"}]}], "Input"], Cell[BoxData[ RowBox[{"Example1Plot", "[", RowBox[{ RowBox[{"Sin", "[", SuperscriptBox["\[ExponentialE]", "x"], "]"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", " ", "0", ",", " ", "5"}], "}"}]}], "]"}]], "Input"], Cell[CellGroupData[{ Cell["Advantages:", "Subsubsection"], Cell["Document interface allows for literate programming", "BulletedList"], Cell["\<\ Supports the unique features of working in a notebook environment\ \>", "BulletedList"] }, Open ]], Cell[CellGroupData[{ Cell["Disadvantages:", "Subsubsection"], Cell[TextData[{ "Produces package files which are very difficult to read\t", Cell[BoxData[ ButtonBox["\<\"Example\"\>", Appearance->"DialogBox", ButtonFrame->"DialogBox", ButtonFunction:>Run["start notepad Examples\\Example1.m"], Evaluator->Automatic, Method->"Preemptive"]]] }], "BulletedList"], Cell["Can never edit package directly", "BulletedList"], Cell["Annoying to mark cells as part of a package", "BulletedList"], Cell[TextData[{ "Package files themselves are only as documented by ", StyleBox["Mathematica", FontSlant->"Italic"], " comments" }], "BulletedList"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlidePreviousNextLink"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlidePreviousNextLink"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}], DefaultStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], RowBox[{" ", "of", " "}], CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell["\<\ Editing Packages \[LongDash] Autosave packages\ \>", "Subtitle"], Cell[CellGroupData[{ Cell["\<\ Slight improvement \[LongDash] The Code style\ \>", "Subsection"], Cell["Named style that's an initialization cell", "BulletedList"], Cell["Replaces SmallText style as Alt+8/Command+8", "BulletedList"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Button", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"NotebookLocate", "[", RowBox[{"{", RowBox[{ RowBox[{"ToFileName", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\\""}], "}"}], ",", " ", "\"\\""}], "]"}], ",", " ", "None"}], "}"}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ ButtonBox["\<\"Example\"\>", Appearance->"DialogBox", ButtonFrame->"DialogBox", ButtonFunction:>NotebookLocate[{ ToFileName[{ NotebookDirectory[], "Examples"}, "Example2.nb"], None}], Evaluator->Automatic, Method->"Preemptive"]], "Output"] }, {2}]], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlidePreviousNextLink"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlidePreviousNextLink"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}], DefaultStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], RowBox[{" ", "of", " "}], CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell["\<\ Editing Packages \[LongDash] Open package as notebook\ \>", "Subtitle"], Cell[CellGroupData[{ Cell["Opens a .m file as a single cell", "Subsection"], Cell["Fragile", "BulletedList"], Cell["Doesn't preserve notebook-level information", "BulletedList"], Cell["Too easily flips into linear form notation", "BulletedList"], Cell["Difficult to create from scratch", "BulletedList"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Button", "[", RowBox[{"\"\\"", ",", " ", RowBox[{ "Run", "[", "\"\<\\\"c:\\\\Program Files\\\\Wolfram \ Research\\\\Mathematica\\\\5.2\\\\Mathematica.exe\\\" -directlaunch c:\\\\wri\ \\\\conference\\\\2005\\\\Examples\\\\Example3.m\>\"", "]"}]}], "]"}]], "Input"], Cell[BoxData[ ButtonBox["\<\"Example\"\>", Appearance->"DialogBox", ButtonFrame->"DialogBox", ButtonFunction:>Run[ "\"c:\\Program Files\\Wolfram \ Research\\Mathematica\\5.2\\Mathematica.exe\" -directlaunch \ c:\\wri\\conference\\2005\\Examples\\Example3.m"], Evaluator->Automatic, Method->"Preemptive"]], "Output"] }, {2}]], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlidePreviousNextLink"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlidePreviousNextLink"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}], DefaultStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], RowBox[{" ", "of", " "}], CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell["Editing Packages \[LongDash] Goals", "Subtitle"], Cell["First-class package support in the front end", "Subsection"], Cell["\<\ Work with, not against, editing of packages in external editors\ \>", "Subsection"], Cell["Make .m files as human-readable as possible", "Subsection"], Cell[CellGroupData[{ Cell["Full support of FE features in package editing", "Subsection"], Cell["Cell structure", "BulletedList"], Cell["Use of styles to aid literate programming techniques", "BulletedList"], Cell["Syntax highlighting", "BulletedList"], Cell["Bracket matching", "BulletedList"], Cell["\<\ Debugging features (more on that later\[Ellipsis])\ \>", "BulletedList"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlidePreviousNextLink"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlidePreviousNextLink"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}], DefaultStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], RowBox[{" ", "of", " "}], CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell["Editing Packages \[LongDash] The New Way", "Subtitle"], Cell["First-class package support", "Subsection"], Cell[CellGroupData[{ Cell["Creating new packages off the New submenu", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Button", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"Run", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"ToFileName", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"NotebookDirectory", "[", "]"}], ",", " ", "\"\\""}], "}"}], ",", " ", "\"\\""}], "]"}]}], "]"}]}], "]"}]], "Input"], Cell[BoxData[ ButtonBox["\<\"Example\"\>", Appearance->"DialogBox", ButtonFrame->"DialogBox", ButtonFunction:>Run["start notepad", ToFileName[{ NotebookDirectory[], "Examples"}, "MyProduct.m"]], Evaluator->Automatic, Method->"Preemptive"]], "Output"] }, {2}]] }, Open ]], Cell[CellGroupData[{ Cell["Opening existing packages", "Subsection"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlidePreviousNextLink"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlidePreviousNextLink"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}], DefaultStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], RowBox[{" ", "of", " "}], CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell["Editing Packages \[LongDash] The New Way", "Subtitle"], Cell[CellGroupData[{ Cell["More about the Code style", "Subsection"], Cell["Doesn't line-break", "BulletedList"], Cell["Doesn't auto-indent", "BulletedList"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlidePreviousNextLink"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlidePreviousNextLink"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}], DefaultStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], RowBox[{" ", "of", " "}], CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[TextData[{ "Debugging ", StyleBox["Mathematica", FontSlant->"Italic"], " code \[LongDash] Ground rules" }], "Subtitle"], Cell[CellGroupData[{ Cell["No Dynamic code", "Subsection"], Cell[TextData[{ "See Tom Wickham-Jones' ", StyleBox["Mathematica", FontSlant->"Italic"], " Workbench talk for options" }], "BulletedList"], Cell["Could destabilize FE/kernel link", "BulletedList"] }, Open ]], Cell["Must evaluate all cells while debugger is on", "Subsection"], Cell[CellGroupData[{ Cell["\<\ All code to be debugged must be evaluated directly from front end\ \>", "Subsection"], Cell["\<\ Code evaluated by Get[] or Needs[] will not be found by debugger\ \>", "BulletedList"], Cell["\<\ Packages can be opened up by front end and evaluated directly\ \>", "BulletedList"], Cell["\<\ Windows with code should be kept open for the duration of the debugging \ session\ \>", "BulletedList"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlidePreviousNextLink"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlidePreviousNextLink"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}], DefaultStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], RowBox[{" ", "of", " "}], CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[TextData[{ "Debugging ", StyleBox["Mathematica", FontSlant->"Italic"], " code \[LongDash] The Stack" }], "Subtitle"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"FibonacciPrime", "[", "n_Integer", "]"}], ":=", "\[IndentingNewLine]", RowBox[{ RowBox[{"FixedPoint", "[", RowBox[{"fibPrime", ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "1", ",", " ", "2", ",", " ", "n"}], "}"}]}], "]"}], "[", RowBox[{"[", RowBox[{"{", RowBox[{"3", ",", "2"}], "}"}], "]"}], "]"}]}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"fibPrime", "[", RowBox[{"{", RowBox[{ "fibOld_Integer", ",", " ", "fibNew_Integer", ",", " ", "fibIndex_Integer", ",", " ", "primeIndex_Integer"}], "}"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"primeq", "=", RowBox[{"PrimeQ", "[", "fibNew", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"TrueQ", "[", RowBox[{ RowBox[{"primeq", " ", "&"}], " ", RowBox[{"(", RowBox[{"primeIndex", "==", " ", "1"}], ")"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ "fibOld", ",", " ", "fibNew", ",", " ", "fibIndex", ",", " ", "primeIndex"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"fibNew", ",", " ", RowBox[{"fibOld", "+", "fibNew"}], ",", " ", RowBox[{"fibIndex", "+", "1"}], ",", " ", RowBox[{"If", "[", RowBox[{"primeq", ",", RowBox[{"primeIndex", "-", "1"}], ",", "primeIndex"}], "]"}]}], "}"}]}], "]"}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"FibonacciPrime", "[", "6", "]"}]], "Input"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlidePreviousNextLink"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlidePreviousNextLink"] }], "PreviousNext"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}], DefaultStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], RowBox[{" ", "of", " "}], CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[TextData[{ "Debugging ", StyleBox["Mathematica", FontSlant->"Italic"], " code \[LongDash] Breakpoints" }], "Subtitle"], Cell[CellGroupData[{ Cell["What is a breakpoint?", "Subsection"], Cell["Allows you to halt execution only at points of interest", "BulletedList"], Cell["\<\ Can determine whether a particular code fragment is ever executed\ \>", "BulletedList"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"f1", "[", "x_", "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", " ", RowBox[{ RowBox[{"{", RowBox[{"y1", ",", "y2"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"y1", "=", RowBox[{"f2", "[", RowBox[{"x", "^", "2"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"y2", "=", RowBox[{"f2", "[", RowBox[{"x", "^", "3"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"y1", "+", "y2"}]}]}], "\[IndentingNewLine]", "]"}]}], "\n"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f2", "[", "x_", "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"y3", ",", "y4", ",", "y5", ",", "y6", ",", "y7"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"y3", "=", "x"}], ";", RowBox[{"y4", ":=", RowBox[{"x", "+", "1"}]}], ";", "\[IndentingNewLine]", RowBox[{"y5", "=", RowBox[{"f3", "[", RowBox[{"x", "+", "2"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"y6", "=", RowBox[{"f3", "[", RowBox[{"x", "+", "3"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"y7", "=", RowBox[{"x", "+", "4"}]}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"y3", ",", "y4", ",", "y5", ",", "y6", ",", "y7"}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}], "\n"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"f3", "[", "x_", "]"}], ":=", RowBox[{"x", "+", "3"}]}]}], "Input"], Cell[BoxData[ RowBox[{"f1", "[", "1000", "]"}]], "Input"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlidePreviousNextLink"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlidePreviousNextLink"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}], DefaultStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], RowBox[{" ", "of", " "}], CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[TextData[{ "Debugging ", StyleBox["Mathematica", FontSlant->"Italic"], " code \[LongDash] Break anywhere!" }], "Subtitle"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Unprotect", "[", "Graphics", "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Graphics", " ", "/:", "\[IndentingNewLine]", RowBox[{"Power", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"x_", ",", " ", "opts___"}], "]"}], ",", " ", "exp_"}], "]"}], " ", ":=", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"x", "/.", RowBox[{"{", RowBox[{ RowBox[{"Line", "[", RowBox[{"pts", ":", RowBox[{"{", RowBox[{"_", ",", " ", "_", ",", " ", "___"}], "}"}]}], "]"}], " ", ":>", " ", RowBox[{"Line", "[", RowBox[{"N", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"First", "[", "#", "]"}], ",", RowBox[{"Power", "[", RowBox[{ RowBox[{"Last", "[", "#", "]"}], ",", "exp"}], "]"}]}], "}"}], "&"}], ")"}], " ", "/@", " ", "pts"}], "]"}], "]"}]}], "}"}]}], ",", " ", "opts"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Protect", "[", "Graphics", "]"}], ";"}]}], "Input"], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", SqrtBox[ RowBox[{"Abs", "[", "x", "]"}]]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", " ", RowBox[{"-", "1"}], ",", " ", "1"}], "}"}]}], "]"}]], "Input"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlidePreviousNextLink"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlidePreviousNextLink"] }], "PreviousNext"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}], DefaultStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], RowBox[{" ", "of", " "}], CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[TextData[{ "Debugging ", StyleBox["Mathematica", FontSlant->"Italic"], " code \[LongDash] Message Breakpoints" }], "Subtitle"], Cell[BoxData[ RowBox[{ RowBox[{"errFun", "[", "x_", "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", " ", RowBox[{ RowBox[{"{", RowBox[{"y1", ",", "y2"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"y1", "=", RowBox[{"x", "+", "2"}]}], ";", "\[IndentingNewLine]", RowBox[{"y2", "=", RowBox[{"1", "/", "y1"}]}], ";", "\[IndentingNewLine]", RowBox[{"x", "+", RowBox[{"Ceiling", "[", RowBox[{"y2", "^", "2"}], "]"}]}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"errFun", "[", RowBox[{"-", "3"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Nest", "[", RowBox[{"errFun", ",", RowBox[{"-", "5"}], ",", "10"}], "]"}]], "Input"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlidePreviousNextLink"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlidePreviousNextLink"] }], "PreviousNext"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}], DefaultStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], RowBox[{" ", "of", " "}], CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[TextData[{ "Debugging ", StyleBox["Mathematica", FontSlant->"Italic"], " code \[LongDash] Watchpoints" }], "Subtitle"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"outlies", "[", RowBox[{"num_", ",", " ", "mean_", ",", " ", "range_"}], "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"mean", " ", "-", " ", "range"}], " ", ">", " ", "num"}], ")"}], "||", " ", RowBox[{"(", RowBox[{ RowBox[{"mean", " ", "+", " ", "range"}], "<", "num"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"countOutliers", "[", RowBox[{"lst_", ",", " ", "deviations_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"count", "=", "0"}], ",", " ", RowBox[{"range", " ", "=", " ", RowBox[{"deviations", " ", "\[Times]", RowBox[{"StandardDeviation", "[", "lst", "]"}]}]}], ",", " ", RowBox[{"mean", " ", "=", " ", RowBox[{"Mean", "[", "lst", "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"outlies", "[", RowBox[{"#", ",", " ", "mean", ",", " ", "range"}], "]"}], ",", RowBox[{"count", "++"}]}], "]"}], "&"}], ",", " ", "lst"}], "]"}], ";", "\[IndentingNewLine]", "count"}]}], "]"}]}]}], "Input"], Cell[BoxData[ RowBox[{"countOutliers", "[", RowBox[{ RowBox[{"{", RowBox[{ "2", ",", " ", "5", ",", " ", "3", ",", " ", "9", ",", " ", "1", ",", " ", "4", ",", " ", "2", ",", " ", "10"}], "}"}], ",", " ", "1"}], "]"}]], "Input"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlidePreviousNextLink"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlidePreviousNextLink"] }], "PreviousNext"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}], DefaultStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], RowBox[{" ", "of", " "}], CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[TextData[{ "Debugging ", StyleBox["Mathematica", FontSlant->"Italic"], " code \[LongDash] Pattern Matcher Integration" }], "Subtitle"], Cell[BoxData[ RowBox[{ RowBox[{"g", "[", "x_", "]"}], ":=", RowBox[{"x", ">", "10"}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"patt", "[", RowBox[{"x_", "/;", RowBox[{"g", "[", "x", "]"}]}], "]"}], ":=", RowBox[{"{", RowBox[{"x", ",", "g"}], "}"}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"patt", "[", RowBox[{"x_", "/;", RowBox[{"x", "<", "5"}]}], "]"}], ":=", RowBox[{"{", RowBox[{"x", ",", "small"}], "}"}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"patt", "[", RowBox[{"x_", "?", "Positive"}], "]"}], ":=", RowBox[{"{", RowBox[{"x", ",", "pos"}], "}"}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"patt", "[", "x_", "]"}], ":=", RowBox[{"{", "x", "}"}]}]], "Input"], Cell[BoxData[ RowBox[{"patt", "[", "7", "]"}]], "Input"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlidePreviousNextLink"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlidePreviousNextLink"] }], "PreviousNext"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}], DefaultStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], RowBox[{" ", "of", " "}], CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell["Syntax Coloring \[LongDash] Basics", "Subtitle"], Cell[CellGroupData[{ Cell["The Old", "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", " ", "0", ",", " ", RowBox[{"2", "\[Pi]"}]}]}]}]}], "]"}]], "Input", AutoStyleOptions->{"HighlightFunctionLocalVariables"->False, "HighlightUndefinedSymbols"->False}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox[ButtonBox["The New", ButtonFrame->None, ButtonFunction:>(SelectionMove[ ButtonNotebook[], All, ButtonCell]; FrontEndToken[ ButtonNotebook[], "OpenCloseGroup"]), Evaluator->None], FontSize->20]], "Subsubsection", ShowSelection->False], Cell[BoxData[ RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", " ", "0", ",", " ", RowBox[{"2", "\[Pi]"}]}]}]}]}], "]"}]], "Input"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[MediumSpace]Previous ", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlidePreviousNextLink"], "\[ThickSpace]", ButtonBox[" Next\[MediumSpace]\[FilledRightTriangle]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlidePreviousNextLink"] }], "PreviousNext"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlidePreviousNextLink"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlidePreviousNextLink"] }], "PreviousNext"] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}], DefaultStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], RowBox[{" ", "of", " "}], CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell["Syntax Coloring \[LongDash] Basics", "Subtitle"], Cell[CellGroupData[{ Cell["Other incomplete forms", "Subsection"], Cell["Unmatched infix operators", "BulletedList"], Cell[BoxData[ RowBox[{"2", "+"}]], "Input"], Cell["Unmatched string delimiters", "BulletedList"], Cell[BoxData["\"\"], "Input"], Cell["Unmatched comment delimiters", "BulletedList"], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{"a", " ", "comment", "\[IndentingNewLine]", RowBox[{"f", "[", "x_", "]"}]}], ":=", RowBox[{"x", "!"}]}]}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["Other syntactic hints", "Subsection"], Cell[BoxData[{ RowBox[{"2", "+", "2"}], "\[IndentingNewLine]", "\"\\"", "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{"A", " ", "Comment"}], " ", "*)"}]}]}], "Input"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlidePreviousNextLink"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlidePreviousNextLink"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}], DefaultStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], RowBox[{" ", "of", " "}], CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell["\<\ Syntax Coloring \[LongDash] What if I could color anything I wanted to?\ \>", "Subtitle"], Cell[CellGroupData[{ Cell[TextData[StyleBox[ButtonBox["Priority #1", ButtonFrame->None, ButtonFunction:>(SelectionMove[ ButtonNotebook[], All, ButtonCell]; FrontEndToken[ ButtonNotebook[], "OpenCloseGroup"]), Evaluator->None], FontSize->20]], "Subsection", ShowSelection->False], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"min", " ", "=", " ", RowBox[{"Min", "[", "data", "]"}]}], ";"}]], "Input", CellLabel->"In[1]:=", ShowCellLabel->True, CellLabelAutoDelete->False, AutoStyleOptions->{"HighlightUndefinedSymbols"->False}], Cell[BoxData[ RowBox[{ RowBox[{"General", "::", "\<\"spell1\"\>"}], RowBox[{ ":", " "}], "\<\"Possible spelling error: new symbol name \ \\\"\\!\\(min\\)\\\" is similar to existing symbol \\\"\\!\\(Min\\)\\\". \ \\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\ \\\", ButtonFrame->None, ButtonData:>\\\"General::spell1\\\"]\\)\"\>"}]], \ "Message", CellLabel->"From In[1]:=", ShowCellLabel->True, CellLabelAutoDelete->False] }, Open ]], Cell["\<\ The solution \[LongDash] Color any undefined variable\ \>", "BulletedList"], Cell[BoxData[{ RowBox[{ RowBox[{"data", " ", "=", " ", RowBox[{"{", RowBox[{"5", ",", " ", "3", ",", " ", "9"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"min", " ", "=", " ", RowBox[{"Min", "[", "data", "]"}]}], ";"}]}], "Input"], Cell["General::spell1 is dead and buried!", "BulletedList"], Cell[BoxData[ RowBox[{ RowBox[{"line", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "}"}], "]"}]}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"log", " ", "=", " ", RowBox[{"Log", "[", "x", "]"}]}], ";"}]], "Input"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[MediumSpace]Previous ", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlidePreviousNextLink"], "\[ThickSpace]", ButtonBox[" Next\[MediumSpace]\[FilledRightTriangle]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlidePreviousNextLink"] }], "PreviousNext"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlidePreviousNextLink"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlidePreviousNextLink"] }], "PreviousNext"] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}], DefaultStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], RowBox[{" ", "of", " "}], CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell["\<\ Syntax Coloring \[LongDash] Argument counting\ \>", "Subtitle"], Cell[CellGroupData[{ Cell["\<\ Functions called with too many arguments\[Ellipsis]\ \>", "Subsection"], Cell[BoxData[ RowBox[{"Log", "[", RowBox[{"Abs", "[", RowBox[{"base", ",", "z"}], "]"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"NotebookOpen", "[", RowBox[{"ToFileName", "[", RowBox[{ RowBox[{"{", RowBox[{ "$TopDirectory", ",", " ", "\"\\"", ",", " ", "\"\\""}], "}"}], ",", " ", "\"\\"", ",", " ", "\"\\""}], "]"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"DeleteFile", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["\[Ellipsis]or too few", "Subsection"], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{"Plot", "[", "x", "]"}]}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ \[Ellipsis]but we check for double and triple blanks!\ \>", "Subsection"], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "x__", "]"}], ":=", RowBox[{"Plot", "[", "x", "]"}]}]], "Input"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlidePreviousNextLink"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlidePreviousNextLink"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}], DefaultStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], RowBox[{" ", "of", " "}], CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell["Syntax Coloring \[LongDash] Bad options", "Subtitle"], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{"x", ",", " ", RowBox[{"{", RowBox[{"x", ",", " ", "0", ",", " ", "1"}], "}"}], ",", " ", RowBox[{"PlotTitle", "->", "\"\\""}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"ListDensityPlot", "[", RowBox[{"data", ",", RowBox[{"MeshRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "10"}], "}"}]}], "}"}]}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ FractionBox[ RowBox[{"n", "!"}], RowBox[{"n", " ", RowBox[{"Gamma", "[", "n", "]"}]}]], ",", RowBox[{"ExcudedForms", "->", RowBox[{"_", "!"}]}]}], "]"}]], "Input"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlidePreviousNextLink"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlidePreviousNextLink"] }], "PreviousNext"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}], DefaultStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], RowBox[{" ", "of", " "}], CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell["\<\ Syntax Coloring \[LongDash] Variable Localization\ \>", "Subtitle"], Cell[CellGroupData[{ Cell["Local variables", "Subsection"], Cell[BoxData[ RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"$Path", " ", "=", " ", RowBox[{"Append", "[", RowBox[{"$Path", ",", " ", "\"\\""}], "]"}]}], "}"}], ",", " ", RowBox[{"Get", "[", "\"\\"", "]"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"x", "=", "x"}], "}"}], ",", " ", RowBox[{"f", "[", "x", "]"}]}], "]"}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"x", "=", "x"}], "}"}], ",", RowBox[{"f", "[", "x", "]"}]}], "]"}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{"g", "[", RowBox[{"x", ",", "x"}], "]"}]}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["Special use variables", "Subsection"], Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"dummy", "!"}], ",", " ", RowBox[{"{", RowBox[{"dummy", ",", " ", "5", ",", " ", "10"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ SuperscriptBox[ RowBox[{"Abs", "[", RowBox[{"Sin", "[", "x", "]"}], "]"}], "y"], ",", " ", RowBox[{"{", RowBox[{"x", ",", " ", "0", ",", " ", "1"}], "}"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"y", ",", " ", "0", ",", " ", "4"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"Sin", "[", "x", "]"}], RowBox[{"Cos", "[", "y", "]"}]}], ",", " ", RowBox[{"{", RowBox[{"x", ",", " ", "0", ",", "\[Pi]"}], "}"}], ",", " ", "y"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "-", "y"}], ")"}], " ", SuperscriptBox["z", "2"]}], "==", "1"}], ",", RowBox[{ SuperscriptBox["x", "2"], "==", "3"}], ",", RowBox[{ RowBox[{ SuperscriptBox["y", "2"], "+", "yy"}], "==", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}]], "Input"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlidePreviousNextLink"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlidePreviousNextLink"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}], DefaultStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], RowBox[{" ", "of", " "}], CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell["\<\ Syntax Coloring \[LongDash] Variable localization\ \>", "Subtitle"], Cell[CellGroupData[{ Cell["Pattern variables", "Subsection"], Cell[BoxData[ RowBox[{ RowBox[{"Choose", "[", RowBox[{"setSize_", ",", " ", "chooseSize_"}], "]"}], " ", ":=", " ", FractionBox[ RowBox[{"setSize", "!"}], RowBox[{ RowBox[{"(", RowBox[{"setSize", " ", "-", " ", "chooseSize"}], ")"}], "!"}]]}]], "Input"], Cell[BoxData[ RowBox[{"FoldList", "[", RowBox[{ RowBox[{ RowBox[{"#1", "+", SuperscriptBox["#2", "2"]}], "&"}], ",", "0", ",", RowBox[{"Range", "[", "10", "]"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"expr", " ", "/.", " ", RowBox[{ RowBox[{"x_", "-", "a_"}], ":>", RowBox[{ RowBox[{"2", "x"}], "-", "a"}]}]}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ \[Ellipsis]with a warning when things aren't properly scoped\ \>", "Subsection"], Cell[BoxData[ RowBox[{ RowBox[{"Choose", "[", RowBox[{"setSize_", ",", " ", "chooseSize_"}], "]"}], " ", "=", " ", FractionBox[ RowBox[{"setSize", "!"}], RowBox[{ RowBox[{"(", RowBox[{"setSize", " ", "-", " ", "chooseSize"}], ")"}], " ", "!"}]]}]], "Input"], Cell[BoxData[ RowBox[{"FoldList", "[", RowBox[{ RowBox[{"#1", "+", SuperscriptBox["#2", "2"]}], ",", " ", "0", ",", " ", RowBox[{"Range", "[", "10", "]"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"expr", " ", "/.", " ", RowBox[{ RowBox[{"x_", "-", "a_"}], " ", "->", RowBox[{ RowBox[{"2", "x"}], "-", "a"}]}]}]], "Input"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlidePreviousNextLink"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlidePreviousNextLink"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}], DefaultStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], RowBox[{" ", "of", " "}], CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell["\<\ Syntax Coloring \[LongDash] Our programming mistakes; what about yours?\ \>", "Subtitle"], Cell[CellGroupData[{ Cell["Scoping conflicts", "Subsection"], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "z_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "=", "z"}], ",", " ", RowBox[{"y", "=", SuperscriptBox["z", "2"]}], ",", " ", RowBox[{"z", "=", SuperscriptBox["z", "3"]}]}], "}"}], ",", " ", RowBox[{"x", "+", "y", "+", "z"}]}], "]"}]}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["Assignment instead of equality check", "Subsection"], Cell[BoxData[ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"x", " ", "=", " ", "y"}], ",", RowBox[{"Print", "[", "\"\\"", "]"}]}], "]"}], ";"}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["Shadowing", "Subsection"], Cell[BoxData[{ RowBox[{ RowBox[{"Global`xyz", " ", "=", " ", "0"}], ";"}], "\n", RowBox[{ RowBox[{"System`xyz", " ", "=", " ", "1"}], ";"}]}], "Input"], Cell[BoxData["xyz"], "Input"], Cell[BoxData[ RowBox[{"Remove", "[", "System`xyz", "]"}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["Advisory for new syntaxes", "Subsection"], Cell[BoxData[ RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", " ", "0", ",", " ", RowBox[{"2", "\[Pi]"}]}], "}"}]}], "]"}], ";"}]], "Input"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlidePreviousNextLink"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlidePreviousNextLink"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}], DefaultStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], RowBox[{" ", "of", " "}], CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell["\<\ Syntax Coloring \[LongDash] Customize it!\ \>", "Subtitle"], Cell[CellGroupData[{ Cell["\<\ Use the preferences dialog to change the syntax coloring defaults if you \ don't like them\ \>", "Subsection"], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "z_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "=", "z"}], ",", " ", RowBox[{"y", "=", SuperscriptBox["z", "2"]}], ",", " ", RowBox[{"z", "=", SuperscriptBox["z", "3"]}]}], "}"}], ",", " ", RowBox[{"x", "+", "y", "+", "z"}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"x", " ", "=", " ", "y"}], ",", RowBox[{"Print", "[", "\"\\"", "]"}]}], "]"}], ";"}]], "Input"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlidePreviousNextLink"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlidePreviousNextLink"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}], DefaultStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], RowBox[{" ", "of", " "}], CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell["\<\ Version Control \[LongDash] Why it's a Good Thing\[Trademark]\ \>", "Subtitle"], Cell["Complete record of what you've done and why", "Subsection"], Cell["Ability to rewind the clock from broken to working versions", \ "Subsection"], Cell[CellGroupData[{ Cell["Synchronization between multiple developers", "Subsection"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlidePreviousNextLink"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlidePreviousNextLink"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}], DefaultStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], RowBox[{" ", "of", " "}], CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell["Version Control \[LongDash] Options", "Subtitle"], Cell["Subversion", "Subsection"], Cell["CVS", "Subsection"], Cell["SourceSafe (for Windows)", "Subsection"], Cell[CellGroupData[{ Cell["and many, many others", "Subsection"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlidePreviousNextLink"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlidePreviousNextLink"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}], DefaultStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], RowBox[{" ", "of", " "}], CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell["\<\ Version Control \[LongDash] Dealing with Notebooks\ \>", "Subtitle"], Cell[CellGroupData[{ Cell["Textual diffs of notebooks", "Subsection"], Cell["FileOutlineCache option", "BulletedList"] }, Open ]], Cell[CellGroupData[{ Cell["Structural diffs of notebooks", "Subsection"], Cell[BoxData[{ RowBox[{ RowBox[{"Needs", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SetDirectory", "[", RowBox[{"ToFileName", "[", RowBox[{"{", RowBox[{ RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\\""}], "}"}], "]"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NotebookPut", "[", RowBox[{ RowBox[{"NotebookDiff", "[", RowBox[{"\"\\"", ",", " ", "\"\\""}], "]"}], ",", " ", RowBox[{"Saveable", "->", "False"}]}], "]"}], ";"}]}], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["Generated notebooks", "Subsection"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlidePreviousNextLink"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlidePreviousNextLink"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlideHyperlink"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}], DefaultStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], RowBox[{" ", "of", " "}], CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell["Looking into the Future", "Subtitle"], Cell["...all the way to the year 2000!!", "Text"], Cell["Documentation integration tools", "Subsection"], Cell["Profiling", "Subsection"], Cell["Project management", "Subsection"], Cell["Easy deployment of applications", "Subsection"], Cell["Integration with version control", "Subsection"], Cell[CellGroupData[{ Cell["Your ideas", "Subsection"], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide", DefaultStyle->"SlidePreviousNextLink"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", ButtonFrame->"None", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide", DefaultStyle->"SlidePreviousNextLink"] }], "PreviousNext"] }, Open ]] }, Open ]] }, FrontEndVersion->"6.0 for Microsoft Windows", ScreenStyleEnvironment->"SlideShow", PrintingStyleEnvironment->"Presentation", WindowToolbars->{}, WindowSize->{Full, Full}, WindowMargins->{{-2, Automatic}, {Automatic, -2}}, ShowSelection->True, Magnification->1.25, StyleDefinitions -> Notebook[{ Cell[CellGroupData[{ Cell["Wolfram Technology Conference 2005", "Title"], Cell["\<\ Modify the definitions below to change the default appearance of all cells in \ a given style. Make modifications to any definition using commands in the \ Format menu.\ \>", "Text"], Cell[CellGroupData[{ Cell["Style Environment Names", "Section"], Cell[StyleData[All, "Working"], PageWidth->WindowWidth, CellBracketOptions->{"Color"->RGBColor[0.269993, 0.308507, 0.6]}, CellLabelMargins->{{12, Inherited}, {Inherited, Inherited}}, ScriptMinSize->9], Cell[StyleData[All, "Presentation"], PageWidth->WindowWidth, CellLabelMargins->{{24, Inherited}, {Inherited, Inherited}}, ScriptMinSize->12], Cell[StyleData[All, "SlideShow"], PageWidth->WindowWidth, DockedCells->Cell[ GraphicsData[ "CompressedBitmap", "eJztfXvstVl11ul5z+13+e7fXBgYbho1mliTtlFjokkTqLa2aC3gEG4jDHMp \ dDpDByiQEZBINTWNTa1NsbbWStA2bTSGaI3YGE1NK97g68yUKQP0FqwhqSXh \ KuN+1lrPfp+93/2ec37nd/m+D/jjPZf3ui9rPc9aa6+932+/+/vuu+cNd3/f \ /a+5+7nf8vDd33vf/a9543Nf+ODDaVf3dZPJ9G2TyeQlz53g99PpZ3zcOvnw \ i7950k0eu++lk2uv/MuTxx64azKNffiPX9hus89VsY+/+f34Q3fbRc9oXP9D \ 9jnL+/C89D21HbPJr7/19XrbVgmu2ue5yYdf+oL8VL1bevrk117znfaNfbil \ 1Sgde6btmdt/HH/s9S+33zjHntI1Hngl9n3k5d+aH8KC4SZPvOV+u8HUjszy \ OVEwb7G9opVYHlyGWxRleFbfIIt8o6qd/0Q0Y+6u9P1r93zX+Wp3HLKbHTSq \ 9k34tNPPRctoqXiXcyIbT7zxtfbvD9nnxMVmUZTjIy97IYv5jGNKy7dXTY/t \ L5yYBNU9ohLEymySoEHvhQDIvW+T5mMRpnbh3C7Dfh5z2coX7Q/KCMmupSY1 \ +DQLTrQ2zjuC7KTtNGVnlo/Z1S99wfPb4nPt7hdpSY8rPn+R4hMS6S0/PO90 \ RIoA1RIpYMZRRAo12Eqklk2Rgv7g8tuqouPbazkvpOqJR14X96zEijc+SbGa \ FS2ZWu0beUlCZz6wIWas6JiYpf1jYiYKn5rmGRVCt8QMHQadmm6SNd13mrJW \ d6L3UUvW5P86UfO9XVFrtQq2kTNeu62coYdPQ84CRtbJWfr9DVFKKCoxy0jc \ z1/afVi1MWBLrDsqcbNa4rz9D9ZKmoo11P6owgYpJeC1xOcOqXUo3OTO6yOU \ qXnPXCiHlFobYlr5E5BJmoVRWz52g0yyMQYyqTUbM9TYelm1nudSyU5SS7bT \ Hs0ykZt5vy7gmKzeIc/eRky1JdeJqT7yNMV0kcX08e99tYrptJfRZVNGr4W5 \ 1e0oq4oy28gqyPmUZBWtkBw/IV3Dt3Fxfb5IFMt4GN1BFMYdktvQAe1Nn72p \ l1l08Y3GsIqlxscF02hMag22VQgsWIMNP8XZh3GyugmXS5FXkenGpOMERP6F \ lYp5U9yQIu/ea6eyPhkVdtIc/YpxYT8shB3ixP7V+ouw3yb4X8v6NMqo1HEC \ wk6gVObvpF4s/V5b6v9U6AqlW6QcAjyFhFKAsZ8FLARfGgaCj2sh2BRyNDRb \ Qu/VC/4Q10eEfGBg33J8OX9B3LlyTG4cUYcCusG+WdRL24PMaidsA+reHd61 \ a+R8slHQp9FzOIiGxbaloP+xuLcCMcTJsZTI2/UNOs+qbDGsJH1wcWYmi12W \ RlxuPTLXzukjb8/jY0MMuOHeC7e/0+1vtWZZ2RNM1vEdv+nkpdOu4LRldBWI \ oOzXo4l5+r1RzFM9Nog55VkjCH++b8RSLhg8VKP/jIWfxVIIvpmE/znbSfsf \ DQBWaReJN4FfuKnRNxQR2gML84zc3NDHy7G+vZOCIE+kc6IQv4qmwCOoWAbx \ FP30/8COzPJ/fKdzpqF7aoHNQsihDeyieVxut43L0/cqdtN8DdPSYlKr4yjQ \ vN4dqO6V1z5fp0G6b4MGlYEagmEm/Zbi7Bd14jf2WYC0N8ZOUnMOC83JVk4A \ GkVYCluH7bJzd5a6k5lCILtgCjf8VoUzaJ0Qoh965GrUFWo0i0YcBFyJY1qW \ dL/n4sfM+yVssDCLsC3CURIhH+jSfqgEr6PeOYals+zGK8qaVIkyr9H9a7uZ \ VNdPVWa1qohxvIZgUjNkgnGYYStspyZ7fnm0puFcOKVHUhWNXZyoqiybqmLm \ Ocu1pbZscCBYq7UORBb+1F4wjOLWXy9FVbTSVpkL7ZBmuuiyStxN2i0+tIxL \ oYWVdE8K8V4UTWhN5T57LeSBFTeKkNvVzxwT8mngFy5Cu7F3dxFxHqwl9ixE \ XAfDWiIOeahFnI88ARHfb/BEaUKV2L+Xe6ayDms5pxfLpsH/AykD5dxkOp10 \ YQugnhctZZ5NKmBLpKbbCfKsRJmXvqAVhj9bWdZutFBM3/9HkmVQJdufXlaW \ mYq8bz+OaC8K0aarad3aWwMiKRRsFZ5TEOwjYfe4QK8GHcI4WTxvX/m1APcH \ 7lKZJkatl2k239YyLTLWlOlr7XHMlkw/r7HvjjORc5h60vQb5HyuCpu7hTFE \ ynnG2TtOXbiF7U9auFt9sqwF3l2RExd4RXBpIBH4eSnwYSxyjLaN5JcaoNwP \ EOPcRX5i1SBHVwDnVkZsFPKuNBr2hJRiXitFn1JwZM1QS+QomqEyp5rBljmO \ ZtS4pfjuPbjK7NPoxbVqIqS1k5rEIFtLTQK3d7LpGUSNx9WaolpQa0okGIyZ \ /rWyxJaVxbtVLTBYZvg2Lz4pC/7juA5RmKikH7dU1+t50wj75miGRweIDGZ3 \ hOu3TlnYLEdWFg7ICjEqFV5vfZkX+mJbEs5TUJlOnIER8Z6cFq1o57X0JSHm \ 0fVFxzd4xp+Uu/ABikvcl1WmoVlof1UZpvWWKnOBYC9xLPY2VYfijv+uBn3s \ OKvGFep+Q6/C1KM6mT3QDjfj/y2iUtzPGJpW4lzs0wHuS7uolLbeNiqV4w9C \ kMazErSbnahusV9Vb09Nt1ZrdSu19q2nol7zQr1sS3g6l4KxpudvHB0LcbQS \ kQpULLwFJvmQiOqBNA734Z72HcMVFsUuBRd3t31XQq+rBq2DylFctUC1jfH/ \ ltPkq12VSx9yXOXaayoXlYUdSiHRYcUdXX2mhuvA2CKqp7BG+enCOKFx0QLR \ g/7GR1E9SRVqqN5+FFTHAIgQtTpq7wzVsc+MUQOA5x2sVcXnSHOxJIcnoZ73 \ lWmp1YC852mF1bhqWo0c8k/fNfM5U6bPfeEr1p1JLTlbm9+pTY5gUbI4fIRC \ i47i3iRay9aMJpw2anqh0ZhTfzSu3Muwq2NaMVacc+AoJ+rYLlzcXfiGI8eH \ OduDWz2oxu8YwF5xGFTy8fcCZHVfT1A+eqfUIZJh1bvkv5L7VI/8RTOYzaS1 \ ZrhymXun6bgny//elwxwQGKlxAHuwkaa1dupy34cbFDt3AYb3K6UyJFOvjkp \ eDAZjPEFhYeSp9EcmacfysmatTbhRjcQTxMtAK98nNVpr1euZQlV8h20kn7N \ +u5zJbwSfUYlVqNtE0IYxtsUk1nOUNkOJi4LmebCFgVdDNABesLhEwEHbAf4 \ PKihxwZLbLQc5y774dx4kLZQK0Nx75iMr44Qr3PSWGao05w0Xm9QZ9ktF6Kf \ H3/DK5RiipKk/6MZCrGPwkVnkXp4HRAhSddz/OgQKvZFxE4SE4QIRzCBlVFM \ aJgMLlGn7iyrt8Fuef56K2BZNKR+O/P0WCWNMTAEEuTNG+W5ZRcNv9o3yF6W \ WzYiJb8kfR9+1dCgqfQ5cinsOJB42rJKi/rUanRV1TfMaEvOzGy+GmNzflvb \ XK7E0rXLW13t9tpEN7hfbafB3uyLwsGUHrzYYImjKi4BQV2FPalab6bg16yu \ zrgzjo0sTxu5YPkycmz2V0zFjH21QnM+8MADCR+AT6bohVabEuxHg9cp7Pi9 \ xhvIqn2edkAjq+oIJkC01FBpTyi4fDIKP8LrheW/rcJfoLrF4EFpe+AGe70t \ 3ieI9rZ6/GfGaB7Nf4hJc2Gsh0l9Ifap3e+wsLfO7s8mt8HKPAqtIykkAqat \ ZGlsuOAyRnd0gLgztKNl20uAYC8UXW//4TBkzzUkZ1dgUAlYCwwRmD4SMNBj \ 2wAMjN0UwNCzeLQmHzQscamj1MPAh0mZhnzePlcF5pMfaCp6rqXx0sCWviJe \ MYXL/b8RI+CUUCFbehKsuqVn36VaKMW364/joDL0M5U4KXQBh63oRm8fxFQ7 \ Qny2DzFzqCdxdsCi4c0fuC92PLgwH/uKPJE32sZs0Jl+WSvvflGGPMKbEYY7 \ H5SaHGF0T6UJPVY3K+BFKWAZI1gOYgQqo1fdMsFDuox0/g+fqz7ykTazOxK+ \ WBHTd/rf2Y+S4YgZdXdfe2W5UgrZdxuMoSs+hjGLYH11acnWvVGIf13RQfPo \ oMpWGoUg2m8aPdz3k/3mqhceOjssXCll1hZQJZHYjzJRoKL8xI4ypbA/VawP \ U9YAKiqG5o2v4lPlyTr4obt1ChLrlE8xY9lmqmaRm9VmroYGitKbLo5oLyMd \ tVeDljtsdPc6ONN9pB6FMyqf6uRWgY+YfGKdoJHHpQYMVJAWFY1En7dyZVhQ \ lV8r6NItiz7alyN90Sl0arM5krarJwF8e7xxnIvt0D5bdtJyrZ10GPfSqTdz \ cZ7ov13C50WxDQTPptL0LHvNp/jeD7nU6Ev6fRC7AWJGEowAodzLjHumBviO \ /x6ZAcgtTGIaKM+xZ+6GCGzENFrVekK2zxZZDioMa0HYtJa8dCnvrgRjqhem \ r+imqd5S5VKx7cIYtqlrxIqzFw3f3LCj0cWE4waWsZ/WYVlr/rqbOcWcd4qu \ CclVymoAm1PHMFC/Cmm0Xm8RrCKg/fvED73j3OSTP/g2/PzbD0+eerdvc/vs \ TMJKsGkD23QUxEqxSOc+ozfBym7ogsU0k6lwQe8I3wGtzIvUCMih6YpZGLtR \ lDRxNu7o2szwlvu/zRp95mDQN+b5hv53vKf4Yewrx6NFP6GpxBNbI+eK+mwB \ it5fywLn9Dh+syxPvOnejGGLmNv70bd/z+Sj7/w+btPJR9/xcBLMj73n+ydP \ vvvNttmhtBffhEbHKzebrDpwwtJG870CDBK82gU06LswZFrAQe3WDFTxIgas \ uicMzVnFvy7TKIXbggAtmIGjs0Lkrcf9/qwGyn67A1kfVGUhnfjOZxSrXXgW \ iG2n3ZuO8Vlqy3NNkMwu2sNxuXn2c7oDDU8sFf4ZPcp6MbMTwsne6aHzDdTX \ 40w0SmMpArWIi7nhL/5mnl97dyjqb/7oD0wBMFMAzNTwpTOswa+P/60HkwX9 \ 8b/5QNr38XemtnvtXxELejcTaU1GruMAKqrQlWNCXMKpmmM8FcNaBd+RZiil \ t7gLUtpeDa+vefHV3jJYPxzM/60Rn0NhgOx2RQEuN1jknHT+OqAv002X9N6b \ cVtrtYsCxKVpfFh4dmwBrWR13BT6XLgx5qKp4TMV784wL23AQ+wFyFnt33Tv \ XmhDNvd8+Q77XtFNHLBdl6M6vVAtCpkTMZvSjigtlb4v3QhcilYXXeQlm/am \ XFeQeNbkIBJsB9GlSkZTN7Mrq+k+C0CfD3wn3MS9Vw2Q+CNBf5SeqM0tFXgG \ tQ5MGtdZ1x0XynObIkrZSFXNMR05aIDTrGFj7QJE2M5x33senvz6G15WVEor \ 2krXfF5jXytj4ZadwekOxXZVuHUpNWrsLMOZoLwLF/Yk1PvKl4gT4p4tTsIN \ 229IsK0DEkZLbbKmul5WyyqqQ9GZhuvPoIjagjV8VFb1vKfXEo5yEcatrlnD \ 8J41BHQlPQFkiSVX0ufKrK5shT36oO0VsJo2DLCZfc79VihlRLDwvQpclCyP \ HsAkgplFLd2d5zVcucAmamOvkXsBH9rxI2i11wvMKguYKjqbKoHGswIx2IlR \ JJ0PXULNctxXywGbMIPCGp9tYXMt40ztRDNjvenUL7mzYRlN6cQNS+3Rs/Ob \ Bt8GMVf854K/lyvDqyCdfrANVTe8I9RNw8gyoyv9wnYcw8sSHa40QM/cs5la \ TG6mem1HAk53aDgkK650omrZsqFlB30XLYt206G5LUyuw61MLgnw3CH3K4ff \ e+T051aBivR9ZSOq7W9CNXq8Ppp/qOKSuxCn8BbskJCTZ0WoDlKatRMKn3AE \ pxIh8F/zfWoJPXDOdWHR56QbTzcGw8t4Iv1GG8P1Q3tFagSznfgc3mxPHE0+ \ nzjCfRxwqzBmywE3TRKg5M0rKFKZYadZmWZjKHKrG0cGG5dCubReLCe7nd96 \ TjTuDQURo77ZTPpePQ7XkIAU2X+h0eyr3srrsnL3Nl9jCG4TOmjkUS8+58KI \ Ap23kz/+zldNPvF370/t9JrJx976qvUo4ftofICZ64V6M0OkY3ujaLIqB7ui \ GB9747dNnnrriydPvPZbroSaaa8w14QTMR+/5zsmv/nDD9uluIwdUGiBL/+A \ O3PDfw+AHNYAsglgNDddbjng9FT3LpQYBUMhsT35/fdmp4bLcaNS67DoXChk \ DDhnK4Pt7i08FGFOYm9h0UHgJJ9BGKI6atqN1+1cwfwcT86BgJjjzn0sX8y0 \ QSuVbgPH7zfgFu5D20aUYhBQr8QPlyAiOJVYUY1hZGI41U++843WZbPCJREX \ uUgkvFnRbJ7Lyu2JB16W9n7sHQ8x3xg70l/bOnwyVwstl4oz+dTP/rRtv/ev \ f85OQqst+cT0mxfvxy2sOrHfbpgU78m3v0ENUQon4zPUOpyGTkwebupI/Cqn \ QLPDUTQ+dhkPYsYZNg485+KlO9mWfuPevhhMXPfG11b6My/ujw1tNGtUeWqf \ MzsujUzTXjv29973psn/+x9vnjz9X183+dQ/fOWEJoX2GUQfuLayM7vJZz7w \ YDaqODAHxP7Mv7p38qX/9Wi6Bz4P7Gz8wvap9353RnEg/Bevvcf2/8EHH7V9 \ cw/spUtm4e/hibgDtvTEqZ/gxj5K+uX/9j15w39TRotJ43772Vf69PteN/n8 \ Lz+Sa4nz8f3ZD7xq8lvv+qsUmc/8/CtsN7aFfV42sCga4h6f5ICioRFwK1QE \ t8bvL/3n19rjEmfk6xLULEKNn3jgxVbSz/3S/am+3pYoGdoNt+zWRO/QVmyz \ 6jjnpnz0kVdbM+OWnZWnmzz9ofutLp//95xp7V2LEv7++19hJcZx77KFFQr7 \ UXNyjRlY+LFfNBJOUUnCN3D1i//l9R1OmLvI4VRXXV0e2L5hCctq3emGUzu9 \ y33k//wTrcRTOS8I+6Q8s4AYdC13f+rvfxdT4iAXlHd2GSWCT0mnV2rtteb5 \ 6KfKdLVap4a0W1CcsC9JlxVlHvdGY3/0u/9SPxNzYbec5Y7FvyRje8IpUOQv \ f/nL6fz0mXrpS19CUZ9+2nb6gfTPK35gIbfP/+/ftRN40mce+4gBGG17lpqg \ xWvyU9Cu1/6nYqMbg6vJ//3vvzL57CefstO/9Jk/sG/c/tP/8d8Bx/al3GzD \ S6Srazv75yyAT93YH2SUVa+5ORu+QgvNrY1LiOc9Pv0f/k3uhS4+lTIUtsFi \ aMqZnTe3PuC1v/8r/8lkgGYdfvPYftwXR7jfn7Ww8o0yW5eZDafN7IF+65rR \ 0Mt83DQeAMKt96H4NcuBpFVS+RuMN4vrUPWa5fSZ2LyMXu7f/Wc/LpLvwop7 \ SFVbzgi13rgiQSQJXsN52GAgrwIPgC3c7zJx2ULX2E8EgdLyG1fxN57HoBmY \ MbPdL74Z+2L16HQFY+yfeOt3ZMRKcKPZFT1E43NmCEVrzyKAnlEDYALykxKV \ 7ghuACOavnzEkPcWA97D70//5F1Tu+lqQHu4iI/77R+4ixCIOrHwK/u8WMBr \ ZZLmJ+JWbLDq+F7j1stMNulAenyujTWYEhvLCorektgYCEO50+VtYmNvkNgY \ OD45YssGYKJt7saG/8djt70muymn45oZrqdlDgqDJOGCZQgl2yy2ReymlODf \ tT7Bh6QW2yitEUyJJBlxXPWXBhVP/sDbs4NGEcIFi4AYnENDOFI1He/IYIpj \ YDdY4jjZI3gx7+zSwOncgcZ84JbZMkqTmm9+vV0xtMtcsL6mNsVnUptyB89D \ o3/2qY8Gqfl5Sm3TBgeQd06N5uZFUbHB/pmJrGBfz8ZuH/Fch5mV3a+mNhhC \ eFa6B1sFp9U1w+2K1iMQq8XgTTOryzrmwFHV4VwwjxQaSZhI1v/c9Lgzm7Ts \ qMtm8CuqAHx+54dencNguAaYibAR4xc4Ru3OrEZcnDXKIKyGkhQgPblQs5pp \ Ecbt6LmhivCbUEWG5v7Pj73EWIDginqUjO1ASkpMdZjbDS6ZK6aRSBgF5sEF \ obO6IG80BV1bMiuKwPA0fqszmhwgsKU129QKOrOiZWf1vd/tPu5BESA12REv \ T3FjLPs8QTGhHQ2BBgE1TiPM9Tt/5zutJH1nL3JppV9Q0ql55QuruHI6bpF5 \ ct7kyaxs9wQpf+j+yZZEGeMhDaK0vk4y4VLrnyD3LYkSLcHdaPu+nPMBUeIW \ VA/lsW0IknWe9UbI0kwsONw52pAapBcI7xrTqbQPDN7lduqCbVE8CCr+pf7e \ D9iBoyG8abQJ2IgwmEHpNAoB05ZIjW9CCSxoZ8ADgywdDRi75nd+6h8EJO1n \ TOM1cFB+9/3/2FgTlv1vv/cHsS8TaiIAZLriEp8FePqhy0VhvsEWAOh+8j0P \ F5SJ/LjdKHNWUGaiuYVUtsZ79BlhveX15Akqqe3Jln6/ZcGWpBt8oz9YvDNk \ Sogaq0DDAEXhPhwvW8qNgJ7V3GFjFex5j32EbEny1VYZutHDYnmRvX3VxT4G \ YSaVd527Yoqq5AhAlPbzJ8n6uGsIcrKRIXUFVfo3artTVXwI+2Dy6V94S4ax \ z/7b+w2OancK5rqy5BDiZjWse5NczLcASCkpAIhxrJ6cCvIg6KVbMuBILGTU \ FbdjA6gtkH57A7THwtQv1BUKrvGNLO0nLQMQdYgT7EJIR6GZWKivDgPt0yQA \ pT8eS7UwQr6OCiFXhZt3HCqkf9gCpY1UuFe0CYwDxUZS4TSi0Sg3H7Wirdug \ PyY9pvPnPfPNjdH4LLQZzt8XdvPC09rxrvangDaU1uCIyXquFBfABvEgk51b \ RriCVz/5VsZ4BpcwZ55Yi83cwyQeJlWWKNPTCDomm/tf/CK47VlnxGPzgmjJ \ Y+bsXd6RsAAs6SbLgNJqgMhQnWQGYq/hWEN/hGM0DsoGWAZcA8bpvyiBpWe1 \ vDuNIHJIb26fm3mMy8kckcdQQnIWY7c+/pj2LeLZqH5NXLiQvWn2Vu/U9hEG \ r+LQSZ4VzvSHkasxjJ1OW6wFfTkSa60KcIL9WyUt0bQ9QdIqoTztJnwNeWs1 \ +dyvvivzFhykCu6njTumWvD5Tbbq374ChmZTJUx0ydgbkBViueBFngqepPug \ NeSxeaNQR2AstReuRQrWyJP4rhD8Jp2ipHke2DQyhlkdQnQIx6agJpxfoHPu \ v+tDUOxljX2nanI3GzQ4apyi2gN0dml08UhFO+N4dsregKfGVpUE2jnKedzS \ IClGEiijCh8Jf5SoAAMkKmANiaq6JKtVOoW7E5dxUFIZIyN+KizojrCbCrkD \ V+kU/OvJVRaX+dmfJlehYorigM1FHFPXwS61BaVwbK/gMUokUJ8InaPN6dHq \ waQuIEJrHI9R8CGHHdh5RFoZPbf/XP2P5NQFOUVv5/v34ch5wQzYUJVzffzb \ GYUPSG1OSrZRNrmnJ7t4FdVHTc3AKg7YvhNxZreaGgaqixqO8EJv+CVXgikR \ O7pOG0mICqYjJIAFoLWXeTWIMTIPJZ6T8/kFxQlG6D2B6Q1MRA3CYdKLxdh6 \ JlIbGA9EwCrzu4WihmyTrOtFY/cGEuJo3SgJDR5yUO3GHVL5uhb1ALxJPZ/5 \ wIPrqAeXaHjRfJS11MNVKE6NerSYqYZHpp7lKPW4V4n7zmqOn4WUVBF6ujtD \ f0mzFZWH8Bxkaej4GVIxesXtCjdH11pBuI4kBBSh8Ov5WdUE6jTCuIaBaNXj \ ESz6HUpFe1tR0bSqraPTJi5aNbmIc2KPyUgJu5ctKH3gZavYrU5VevgsQnPg \ Gw1P6fqY5HgbDPW7KKUdmYrmRZi2bzlXBrZ0VGeMifq42pB80agFE3FyBe6Z \ vG9lIo12QtSWURU2hg7ADSKjx6Shz37gVfMYrKkX1oF17be5ZOpXi7Li6FqG \ +uCjxiTzDGgbKEqDJDhljKLwIIxL8UEJUloURabQOI+NCzUpirilng+ihjRR \ fGZhH/7AkxAC5bnJDeOdddgwncLdOJsjN9kN3Jz5wXEpUpVmIApVVQ89qHbj \ DomSmlQF04BU9flffmQdVSGVkqiO40TkwnngMCQ6fxoigAsrqsqBVwRomajP \ RHQ0fclVi4KrICvRkP7YpVWjbsQ6jgf2KR41l8rWdMXK0mSqLS3401KeaU1S \ /hC0BH55SsqQuJZBmywyvjEWBQKiGZ7+R97700z+GLIVBq1MQmX0vOSoBFy1 \ l8TgrzVawh0dwP/sJ58qvKS9Ys7BztSkblSDmuBcAkV/60felbM3jklNknmg \ SaDTCm999KgfsaqTDjThITlE5K/aj9KKc5QnNSfvTBb0TPRTJq9+TCmikPOq \ FJlPqtDcvoy0kc4pnXgK2nEqXKaNgGPkMvQkibyVOLIbl3UFhXhS1bzOtRKM \ uUT9HSUyBv1bRMbch9WYkcqbJxXP9nfsWsdhACY+I/HZOg6rsHgth3UZ8PHt \ d3X/wfKzVeGFXqqYZfOBZVIkPdhNBGb8+6F+ZgPGnxoEVj3xoNqNMrIgNYHh \ TAK1TZQYJzAQAPNVYl9PYJaskGCOo1vcQGFj5NVKXMzz3JKfxsm/Sl7zEAgQ \ SKvlKvdq8Ih1pIUKsi2iHEJai9pBduj+3lebgCyqOrnwDjF2GXSglIUeEWvd \ RzZs6vWJ8hadlifffI9NCcPwGFARI1AR2UMxgreuRHF34it/a89hrjnzHIW7 \ SqLaxYfqcrl8jlMfdKozMImkQGNyCRPklaXUU0gtQ5bS3S0trViK/s4uLKU5 \ 7fytOek1S63i/hpkZIsNc+rneWIbN7RAJ3wFmVC+Qsvi3jr4xghijvSVA58W \ MYji9O5egzZPnbqWa6mLHolSF7Q+aMWSvDfSltmuvel+Y9KWKN1J0NZqLW2l \ bpMkeacFDInsTlmxWqxGA5qstRqwFr0zlMSm+zUpS6cUkrIw4/eolOWDkeOU \ BfdYU2WPRlnzAWUhBY4X4RgbpnC0Ks4y+u8JaxqTxbRDr/VTIpSkuGA68DWn \ JwOFTpCj3EpnDj1nhHWCcTQlnnliJLVXMMsYSe0w6NTnDaA1NBjFBDTSE5oU \ jlQ/ru85BHQoCb5KIpmeFpndKrkiuBjFZyo5e4qiO6OxypzJJ4mMrKW6Q8m1 \ IMXgAfX4FzSnjwz3qSE4R3IpcEdm7NSTy1TABsmCnEm1NUNtHSj0YXcnKeDC \ epJajZEUA4V1nHA+ICsPoTxtYwckr2CrMbJCrvoOccL0pLVkdcHOJsohb4CV \ bpGVxgkRuGqNYSVfoH5DkqVL//Ij07AUEPIEtEeYjgOqJCPN7E43IxkxqIrn \ 52DkKrfP2hjgMJfPR29QCp/Z3ptrrSAgVy3RIOAYKa0LAvakNDJgtV9MfFN/ \ b4SfRuKAPT9hQ/GRSMqLdPZfwU+aqPH7739Fz0+DQCBuqYHAoVfVIizPR6ty \ xkYyqtr8hQnKlH09v8VklqTurALa4254WF/+whfscqQUwgpH1OROZbHDtSym \ 4cP4fbYkplEoVJnz5+g9aEokNgJsvo5tTlbr0XgxGAqqKAzuxfWksJWQBpP7 \ WoOhdVQU3hT5i4OoNX/52holf2Ffui95Ca3DaKg6mfVjB1PDav6C4OyQb1EB \ vEFHj/5bU9Uv2kqJddbFkKoAuzrMvQVVQZj5HIP9IVVxHF6TORLqjWRdkKo4 \ xwq7maE+RlUoN89FeEoHr8QkOCfaziwNHSqx9UUSdIZvw7ouG3fL+fCt5RZn \ Ods8CLyLDgKNYPFwpkCgXozrWbqFX62z3NIp9OfQjZyeei1mnPdzz2N4hMtd \ 5oUa33SvLfFrq2qmxya5mHJK/Ace9FbUdcXjxUa+npbDONdGwWYel71lwJtS \ 24Rz06x5Ywk6uN2MRNPtrvP8sKnFg+dJD4vE7hUyhKRHRNR00CQvFtD5BG+v \ FVeVcmns97Hb+PouhfqazLAfSELVBwrnxBMBVnvHT89nOG2YmTG4hBKr80lz \ ckY/QxU0hrvgNEzPiqWknq1stl/4W/VSiKI207OnsjoqVfpey8FiEcyx1qQC \ 0kB/r8VYnJB9reHdk2AxzW5HET3vE79m1i0j6Ric3IcN5KXzlElcbEUl9TqY \ Cq+K5IbHZXJ7oJ/I47zg17HqXsAyJqiB2TJJvveaC2bL6QTVkAy+d2M4dSgS \ Sm9iOELLFgw3mDc9jbCQ+mFBcJPssVQMB9T83K++y+3peeaiFsNpLkj6vZbh \ ZoWD9blfup/ma01w8NM0yJjnmAZgqQOBWx4Ky2HVRbIZHQzUC7CJ67g/PWM5 \ cku4CUxhJ/pqUVjs2jeD3cLbMwrZmsZtNXeCAwlwvc9Maw6jnCZNsuWKWEp5 \ 05jgQMqz1Z6d8iYMt5FbYqvJwG/jq/iNTMCqbSayjjIenU04vyy9t6+/GIPz \ z7Fh8gQHGW3I7r5+mbC88MeH7ldXj12AR7mX6Y2r6/z2hoGSYP9agiEJLmUf \ Hu7LfPpK+hZ+iUT3oKYs9DrYYQtZ9OSnufHOl97/1SXd+jsp+RkEphZ8njJe \ l/OOHSvwa96crFVTXr2wZY88J0J3fYirzABMoLus2MwX/ytxvnf89ovsxNpE \ QdZoUFy9ONVJ52sQGAt267LrlFlihE00YJqjCWED1HFZHO3vfs5Il7KKYywG \ 8ZLuoEyXyI2vrZekjF7lIKdDc+VOgtzcYFU4RcQIiN5iN6yQwbAPUzmg5yPs \ Vg7KdUFt9aDcOmrDw3J8aWkGNcCyzjl3l8ofgjzLsgdH+O08lw8s/AMmJfL2 \ aB40CSEteX1EOg0N0rHLy4lK1tw0BNpEMsE7+S44nqMnqDv5KD1lteYp2bOT \ 0PE0KqWTADgn2fQ3XDtEC5kWj/5DzDMd8yVC9q2A9Hk4+sVFM/NbQ2LpzH4R \ zXCo6dOR6Oz1LUlm+GqXnuh6587XGnHl1XeH2AwJt2g4jdj4NVUZnjclhn1W \ MVxNcMopuqKJg6S7ejrQh5aBVFcrprDwSLwpb7HK4UqmucBRtw5yO7SVpNiP \ OhKs6QkV+NOIZiKVkW+3oQOoSzrUDqDCaLLy6baZHRSLMYIDCVmBzARcTSHA \ 1qepLYsccyVCxEmf7yRI703HaEZcvrMkQFgOPX6XY2gJgzmDqZoVVa8+AYjm \ 3C9dmVH5j0yjc78U8U844f4IHKiz/VoeVWt9SeXK0mk9yOtsjHEgLaje5yxT \ a1ILkvsGSSHKfTBQobP8Nv/HCQCLLdihnwdK5ET4kgAT47mp2hnAltW9XESN \ dI0lwAlwGgCKfXAIdibEOqmx75eDQT5ZTYr4xkMAkNl1SG1hmfCJ/BPykxCH \ 9RsQog/qnytGXMIhNRhjlTWLH9UHtygXcSFcerF2faSU2z0sfJv2Mm9GPUxU \ JcibiBZDdbkb0HrL0ect7D+fhQ3/80Jgbuoo39v6yalIcFNQTTyKCA8ER4+C \ tmZh/qhXSJSHR2TciJWgE0v0xOjsNfPYaboS3WWkBjqdmyjpq82UG7lKM7ap \ fS6NL+lPybud7Lb+qHNmqPC6XNFEVRGnZVZiXhnbXUEI7cyfmZ4Rmz+2y4uw \ uRvnb0NBBXARNr/cz+Na+nZeFwd09fku+hWNTZalDdJZaTqrD/b5o+RGeGq0 \ 4cQbcVYsDS5vhsIAGxDGx+eAOfNMczmLMsELFylT1gQaASVtvM6B07JL7rNX \ oGRjbvQSZ4Jq7YV+AsAXvuBLWNmyWFjIyvGWueTPOmnGnLntkYhyZ57kiGfX \ wGtbQb9tJPis4yHZJeNgFq2E3YR5EhmX3K35UscBz4IvFwVfGjf5ApPjawmX \ qy1qOklNkxZaXkOTupbxPGqgxgWNMC6eor57V3OlrsxqyH3tPa2ctUjNG/LU \ osFTs7BGmSBASNRYnqPZyvSaQzY1SSal3Y4kh8tIbUeStoRyQglCa2udYmXI \ kZDofjwShKXeMjNHtI3BejVTccKYZI3OzFLJCSy/8JapqypA3aNTXCWSy22t \ IjqFBA5Z4VHX9idUd/GJFyBif4bqdNoTP57ujx2I7KFz0E5Y1nYWbpviuzlC \ RliEYvu1sgOO5LiUG2hgJYBdUEJFHZ2XB024tBux8Po2OieFdI4XeZE5kH6i \ WUIffLSLw3hA8epBP8UOL6MQTLX1K5z+7E2RUdi+ph72RfMOWGYvs4yuI6Xx \ HY+OuQzoChCypLDnCDB9tWucTLTBeXS16rgjHwpy6SyjpF/fCGc+c0dSmXTF \ Qj6MZQ7oJe377R97j/EEMvanuxINyqtEU2Uvkmg0KEafokgj0aGpOICmWg1s \ AH5b5I7DopsTKNbxDPoN59qWBATfU/vlDubIXDJ0Lw6nkhDTlfDYSsN5dsPl \ +11C3GJtcQsTK9N1o0tCTcopAi2yHdBM7ZIlTZyGi5UPlS6ZB+t4YNHwx9y5 \ uGhiiDEavkOEKA4EhWMC7eX7KDGkBBTAQ6HpqWODYrIrMC8ezMSSeegHMJ77 \ 8btFK3wPF6xqFApQqviPSqRnaBYhb5l2exbhvjkkOAQ/RZkEd5TEeOZcg1R4 \ OrkLD7PTc1aJx8voBtgTH3k1rUSf4UXtx4U8KbuB7efgFE6smoW7aCNH6Jm0 \ n4NRGjyDIwqu4rsHe1/qwBqc7gbOtcx6vsNTXlbl1j5fyDMp3/o6tcPiGnzw \ 0fjnVgffyIopTRALeyDq+4EH5/bD44fsYIJh2sfgAFrI1oB+K9+XsyzeDQiK \ 5pPx7cko/UpP/UTrpQmqltRGE2MFSO+ZC3ameGE+ztW/WNUankOMiEki0R81 \ dROndzjxDDwvmT9W7EWUi8/28/sWZVnnfVbCLJvjQK+Ea6Qs/AXWO/I70DCq \ CcMWjgCBCrhmqyA+xkWdl2Pn9O8hS6WA5wY6y1sitSkJLiYa4Zod/CVN5lQa \ wSt8L1qIvDNTxoLlaZvZv86cNS7ssTPFMeOeC1bURn2fOdFeoHaYdVGu2p7a \ 1fhjJtxitgneSvBIDjMfh+FaGZIMMQ5WnNqTutB8YcSoNQlNyYw8T3GsyIxN \ glv35fBPdb95nvpmoz7cuvE1eaZ27639dY2cEDd8F1kSuZp3VOSO0Anuoimo \ ryTkvTWN7Flxne6rv6Vgs6JgH+4HnXR3OvF2QXbWT33UelFD1bdlSA497Jye \ 4jWPeT5mxwW8xKtp483j3lKznB0RgTG+4ppncwPiMF1D34VhMTi/pJ5Z0ecR \ zovxInuHo73Zlxe75XSQ0wz4cp36RRssCM7m68H5VklcY//OyQErYcLzVn7D \ nreQvLJD30Yd89L8gPTk5Bt2hcBF0c3YPvZTPzp56mfee2Hy1D/9cQDb+3/S \ fvX/uslT7/uJySf/5b/Ydbk9l2KqbPFCilZCmcaUxq3z4XpBHvLLONhlKx/6 \ NRu90SmB4EpAkICv752sC6EJAjLyMYqAOo2LCKhO0ro3qQzOOy4C6jpTuyAg \ Db+bDAExGLuMptN3EhMJEpLJ23hWef1nU/5IfZYhdIIhLFcbRU/b47Ei+GRW \ 5Damje/qqHBQu6QU6v597oLQ3sx8ES0rqTAubauLxRHACFsDBGyNvHN6sgZf \ W8K1Jw9itS1PPo8FS2rVNyoW9jDpiOv9rZ2XyrMWCt/3ExeAh4TC9AvbLKCQ \ MHhsg9CnwTpctBCPEz4jlmDnDd6ANIsDrZc9AGQAiXncnlAFcxNRFu+98aep \ PbVonLf0eIaHOdibuCjtWcU9ONXS347t90BteY8uPhXLNwAfis4gi13OsqER \ 6vvqePKxkI5Wh2YhCc7xjdBb4JwCynXBudUmnKunywBdsqEX6+WjwrWhx7dc \ Z5h0nznbeIjVRFKQ5RANm3oaBdTZK8Q3PAkgkzBh2TitsO38EsNer+1BYVZt \ gLnJgUAJj7fg7CAaRWdyYOwh1tniG1/grzO7ji9pNyooF0yffFMbyBwkPbSv \ QMbx9HEUGzXoPv7P/4kZdf4OA3SIv9oXpcR20T47Kz+yslGpLj75H9ss9iHf \ nxm6z5VisbjSuLcLF4kiSZ17MIlbWNPfOiYuI3DRVa2I7eopIEAX4ycN7Z/c \ kOq/nZlDPeexpd/XesPVWX2MlvIjz71Xftg0pvhMJRy2Mhe/543j5tQYKnkO \ FB7ReBlV6vO5alEgqvB5efEh9fdcVfDroLf/6If7ulcCfjGK8NTb77XwOLaO \ n/5+KttmsQ8TUlFb3OM5cS1BVZ+hknLbERQ43uFyGgq8N6bAxb7bC8194C4t \ 8ajmJtF3ze2nYLc0l/AtWnqqitueCVcrLgWZx1zW/NMiGbE630byHtFfV8yj \ 6m84haUy9FS7KmyNUeWdF8qLwxDWY+kvOruhv+zb09JfW82u0t9kEVB/Ue6d \ 9NdvOm8R7+QozBv9d6Mo7gjlplZUxcVp2ygub7W74u7XiuvPf+CuYn/W3Lrt \ vFaV5q5TXPuf5IPBhRtRcSvNrBRX+6NQ3OheMZ8vbKG2aIxCbZdF4R6PhBLu \ m5+OyuLfsSn3q0hll1nmLfoV4obTgLe3X0/VFSneQnU5aL2t6lbEdjOpblf0 \ x/ENZmwbNFfNma9p7rE0t3/ZyTrNTWh6m2tpTMySCVAM9kxDg3VUjKEZnnu7 \ /TrM8RDN6buRNJhRO3YcNSfu1QoBTLdW5z68FuqcQ1LQZwtLHU2ZDwUl5NDA \ 991SlRlLu9FUeT+UF9F2KDC2aajyJ37uZ/K+mf1bmWpjAIZCqoKYrIsL0Wqq \ 3fZ6Zh/ExCQyU3Jbw8Pnc0HB7eUKcSeQ0p3XXdFjYOVEKJoPpXvjs+lF6RMt \ 60DWNkpvghklwf/93PFfgWqvsaVS7SUk9MBdEc+bUeV3oPCT0nqNL1I2T0rr \ mZmQVdCk3W/LF2uBOy5Z6XylRE08s2Q2qDuY+mfee36UzGcFmVcWFwt24az5 \ nM2/Ts0vs4/lzdCF5kz7n1m1TN3DYAlN83/+qUMQ52sIwN3WQQBFUAt0MTep \ LzPi8s40RbJ46smMBzH6w/loeQ63rcsRFmcs2oXtYnQXI8CKLfxPbuJvVORZ \ 9svx50wgIqZDSGybC3fwbjy9B+nt0IErFaMJ1Cg3I/+hWJRzLT70nsAoPjxw \ 1474MC/wwR6d5OPwhHCCOQIcVMDmeVYr3xcZVkXWleODX7rgyF9tNMwbRsNy \ 1GjostGAm07lPdxMybLH7R8DSJ6Baxe9Ys+LyhWaH6igphBqeCGO6flEgS5W \ AeJ6RAamMdB5q4AxO3KqCKP6sK1BwYNMR0bPaMHILnxZO7YrLsko27yH/NDs \ fqWIZXYNCDZZjNO5l0LqtDaCl/tZTkxWEtTgv71bvTQ4aGTgnjcZglj20JYI \ 4h7aBgTRTsoIssjAy5YLVSOIyAvQtwIRfevoNXMHTwZErkYz1hLlMzMqqFCq \ DQvjwjFgwerHsh0FFuhO7EVvK3Un5b+8CSgWpHyBvgs7miJbexy7AMSYuSFB \ wdKw4lw9ThJUb7Fl3THLR3M+zo8Bgq4qpjZFIptzjRY9JEhUlbmhQKJ/D1uY \ iFN3WhoI4XnNOyCEiEyPEP3QOxEC34cBD7zNtvBAGThpeJiUaYnno+V09Tky \ ZRAoBWUzdEwlD5qOyZSWR9pHOJlvgBgOEN003ou9rFAzPJuGBdV5jety2NC6 \ GXUvGUGKe+okaPgsHIzb8aMLV0N9FGb1E1HUSZnGC7TopOD7ttCQyNQtFrHS \ jC6W5U77typyTxtIcSMBhetkDxR8MU6ROPfav2bAYbNQ/Du1wtteH+4aUrsw \ S2oaafQ6JSO10jIezGUtYxFp2oXKd0sRQoJMjSY8/3qjiZuf+0W0goaHyYrg \ Rzq2pelhQYyMH44YhhUS3Dg1fIiK0t9y5S3NnNuiZXdzPeZF9dmTuxkXXeYx \ RxsHmsr7OCByQe4eyssI/HGxKOhOzF0FUPhVBgYCi0Yv7CVmjgvqcB9SpFLr \ sYbOfct6ubjiO4dsBPf2tJrqEksEZr/QDmxErWL/61/eNfyksalQ6BJD6wVj \ dCLdXGCWiGkN+oZXcGkKNAYmRnKZBUzU8iZyxjH0iJCfW+SGI7bUB473M2hz \ T0XKtMeCcL2bwJy7a0+yp4T4CfCovtEXyFOzXv6te7QYI8albZhOPRcdZ/6Q \ pAxrxzmuHRRIqSpBvtNw20mBz6IhG3uZk6Mp6/km/D8GRREwOTTwmRVmS4Ig \ Q6NRb8ieezHIZesBldIDuur4nSW8dOSopwcNcV5S26Q59JrQBobcuWBlyNl0 \ TEsYvNYYDOenoNft3PTIri/zLIt6iLnaThGwwl059lQFfRVyN0DbHm0ucdlb \ k+GtFW/F1XtizRDc5pp536veljjIBi0Cj3e/6LYtYG/aaNtLrh29ySj2IZtX \ d6cTb29anvi30jz/zGlWAQcqZrXbhNJAG8eymZkzMHBsjhVOTTto8tiKqY8+ \ aAg0i0/8t/3veNhtT1zoLW1L4LwbqxWkfZ0+M2whL8cyR8OtZtGpJBPN1vAu \ VjORzimBjGaRjnsGOmD3UuP1uUV4IpFfKbMLmXjkdZEiipWbaVLE21gPZJbT \ Fgh2QGGMCJ8zgpmiNuk3Ckrj/S3398Z6FH5ObQ7ai+0yIGphs7AcpyjatYGP \ 9r4QlUVdAE++cKh/Yu2acp+DlkCW+SznG0o37ZWo9ED4cC7ExJbH92E1LOKi \ 4jqs1/bL5rm9nQkXzwGlpj8WL1yNwQFdmmFpZ1kV8gpJ/aPqewxqXBkMXS9z \ XQEl99H/kkL4gw5rLMkKTyqusP3S+tafFaHjLMXlbrqMg2ZxEKTXmE/nkslJ \ 2ZPvY+CQLuUuKPw0Fof4jb/3TvuFb/s3x99FXKFHp/Zph20VDfzjcW88BxUW \ Zh6f2KezQXF8H3vmhjp+gtYKv2+TQfvC4BJcmIqSZcsyJHOvR2SHXugDsGAP \ aLAIJCAK9BA1ggRDw1mn43MfjQHqsWYbzCmXIjzY4DYtzWaZ22/aM7al/3tu \ 2QhYREqoxsYobV2joGRhvI6aIDLD59zww34aYjz5/cYyHPtW/+cyTQoJTolJ \ 0TaDyAMavbqyo3N2kA2vMLDVhuo1YSts8GSNRVEuWaFmroY12zaeyEUuOMLM \ DtY+SB18vmHGfHMDUIhSKhN74WkYO6YitCyTS+p8VdZVtvDE79IZxFLcWUNa \ ZOjVR/YYWbGAwZvuDVtgkRe7UIQwO8RBAlATu2xDBMb2Xox2wE78wvdU9hFV \ 7EZdrGpj8Zu409Q+l44aJN23vb4fyk8NfJDhlaqo6Hio4Juh0zk8x90GAlPZ \ JFXCwMyNqhGk7+KuJGdf4DyvRGFohG3vaLhkxsusAUT0rabB5FlOTS3dcVDH \ 2l6T5eLEVBbgz3kJ/goudVsOOJ3vccLMMZigM4OZzv7jF7a8791vzs22aoBH \ y9mxERWuy6KeNL2mSuyvIbZZwUjvfk3W+V+3tgMOG/yqMoR8kSUVpc136BoY \ M6sxJjtQEafAdsVlTMW9DiWb29CpfRkFva1wpsTU1WaJ388WbKodWH7fGt6k \ Br/N5Kstm95c7Bo6t2gYa3vtDhhEfDLizQsgZF4gxchiN4gVW+zGgQZAApHG \ NrWjnf8PT8gdyVWeBm4gREhI9wFQJcsmWrvvqWsRtJxL6+TcoggvLdqgFe0k \ oDUvQIuNma3Y2l2Jmf0NK2oaVpsCGW+jnNRewS53qIsbJohnR8TAbWXY1mUX \ DJcRE4ahvlKvv56W11A0aoeDpRoDvHkDIPEbKGdQdtWsq2XhitWhhDohDAq8 \ LzdWk059VAUSs184EKWDCofF0NfYCPrlHXGLHmQrbrR5OOy+7YfR8VCGESHs \ dZ7NaKbluS3xKzo9vMjcN7fL5f3Il4Z28PvZYyGfSA3B77XDXix2NVS2adiL \ 0QtrXI81m68QS0saXSecYffntSmkJ7N9hLV0Ap1WdtWB3ceiKUCjiPEAxTSw \ w0XJiGhafV3TjAp4rV8lR6N/8ywg5CvGrlDgQ/UHWHGVVR8OWPX52ZHwRBmO \ J3ONGQ1az1veHByauX36XFPEdLEt7XNrI6ri0vOCLhTS0q/rRzPDRp9FQ64d \ OBuxopaFFVXLLUec1VxYNlhwFp8qNI9h3cohsF5ZF9Zto49hNl9UKJKfe23d \ 6PtVESRKwmwLq0nclzAG54UxaOVI91wqCkFmNPWWAyPNbCQBYIt1dxq8xDns \ 5j7oJ9DyGOOg98SUIcZ0+Uwdz5Dy1DDEtSW1XdfCkDa8XGRVyBH3CPtvtJAW \ AwvJdAFDZgCUfXfzNNScIEatj4hccwTd1lDrU/y0NW04zEFoc/6OVFaGy3u7 \ OSTtXE2clEA2TnsO4ehYFx/LWXW/8aM/aINMGHda2acPOmF/3ORPO4pcqtSD \ vebE6o9mZpgLs3svej62Ykrg+WIWAbYY6RoMtldC0cqSq9+giNM35txwbUYN \ /BTkuWX8pmXiLRpIlE4dGdcdBQztPxYlcpeHRLLfa+petnHWoYWO3vRedU9E \ DPcXGMGi6I0sS3KhHBnlL5ytIp4mJiU0M0L5PpDCziaKHRc+tkneiWFiTd6p \ 71wLGcqtyZHsh3Y6cAkWed+2YJEE6SAD+aRToJiUSCEHThApYgYQpvUljPDp \ PmNIUa5fRtWT5IOpOws3BUrYRVfjhKNCQ86qG2RZnXCWr7oncd2wFtVDL8m+ \ Hs5HTQQ3HbVHefPb6zak5vPODOdqFXLev+w7CWW/GirUQvXCC6ySSjjmqTYD \ bTowc/+aqVLb1yJAREc8cdEHFIEK8Ft832NIfRC75pXlmp04mbHMQ1V/lGgH \ 9ZfRjLV5MU0ECEVcRYIK/hMBUuNsgwD3vfRmRIBdc3NPOJ3/YKOis0tVVO1Y \ GCGXjsL3MSZAlKsp/44d1V1fTGplDek+TW6PY0fidtFslYl6BYE8RB7nBLdv \ oPZyH6f56PLB+G75AZr2PK7e923Iud2s3l2h3n9GdXt/k26zDGPqHTp8wSyJ \ 86bKlrcfG/4jZolvIMFpqzeXXlDC0OjnUfj+Avl+kEV/hjCgWtKaMr+J9/uM \ nTJN1wvu56kWXo1+LqZO9WVj3FIfx9/PbhSvpTaDBVPOGhl8yIbeFoMEj42s \ K6JVxDeCC49tXFek3HeuxTphT5wjmA7RYj0qSBD0+qLC8EUvsIkuWlT3fB53 \ 52bj5ump+EZ2zlcd4+uSn4y0nISq9wNeR1P1uvO+8lSd+0RyRdVL1dPq+qDj \ MfTcujqsinV6TpFo67nU6qz0nMNahZ6XT/RUq/Nj4pMbXLv4q0K/VYq+GvS7 \ Cm7ZrfsnH0nDV4NpaI9FTLG48/pVg85Q0wdjAFxkU6OdNuaby7AojrFfpWoa \ ed4/I3Vv0vrX1P1M1R1uxvHVfX+0gwjpWf3xo+XXn67aDxfEhz401V5+b6P3 \ 2K6X3l+UU1kPKcBiUIAo5IWvKfhXjYKr4u6u4KtmB3GF33Sn1gvszkKxywXz \ SXK1YrPntQF5u9pk31ah8wyvUyByfU5N5F/T6ZPQ6VolXJ1uWq1mz9RanavV \ 1OpZ3UWsHosXh8naGnk/C+VuMe/QWKcbG5celbSTHo9G4AzpI2gbLxPdIQJ3 \ ImoewUIuEcH0JRzi9KMbR8PhTVwvDe8x/ybU8FXRVPhmUl8M156OgltR6H6r \ K3gWGt0VGl23Db65qkxLfUVphrrLm8Z8hOuluyEHfRrlKWpsquZOGhtNyt9c \ ZvHsNbZ/jwjF3l2xm0VpGXnlWOzpKu0fbijtV7CCDsJUXbRNNXvlfLUb3zaV \ Kq+7sSiOMXfBpn1ee2VzzZBCczGszAySVT9Xpq25W+SypB/jartXS0Qut6ot \ O0b79rrpLW98I+ttbU5Hv/egvtGc5iD9Dor7585cSbvoQmYpRBiDaWRWKZ2Y \ UqSWDY2C/VIWIhQgysyHtPT5Fkqi3LZBrqEiTXLlk61h735Rm1xBqX12emf/ \ MQR84io60vfdDaqhknP0FaCh055oslTfVgkpN6L+DaCTqROW0aFKX9S/LpaS \ 0qQYF8ADL0oslobv4Df/juWQWNyW/rXKfNhQPlPfNcqHsl6L2TV24l//6lUq \ rd/NplTzQqnoTxxFr7T2p6xXnJtVC2N8WzP6w1alYslSYmb0veY7F/mCkcjq \ NU5LrVttWDbrHy49rc89jO7O0OPpfnaSldMtBF84oF7phzPJfPihWt0l4gPe \ h8vBYpBWunBDvsoV02be3eCKuV+IGGvN64rJL2N6ea7umDG9tG9agmern1P2 \ uk6xvftFOkmXbS8LemjsuS6YWbFcmQCLGqKiszy/2xYleOCuFg/SVtSy0ORV \ TeMSV6qhU39W+utvPYoFAKvVl8Savq9eN4ovIdHcjJtHT4E8J6Knqm2s582n \ p1xPtO6dDXqqq2GP6Sm/z1ZP9+NpXOrESvuyF+5LG+hVuBdRdoP3d1Trk1Nh \ Nb/ellnouZbGb8tfPWg87iWb1UxGt6+nmmG7AdSMK7ucnZr1r6rIcn6NKxD0 \ bxnmtwWKo4y1jvGbYyk3jo7xDcL1EtTBHq1YZGtODPXvw2UKwDpr1dICVqJB \ fPSItZoXNpbV8Nx7XdTBVypj68U2XH1Za1ToYqPlvTzFIMf118ZJV6TU17EJ \ fN8WwNZSSpoHWSnj92NHGZ8U2+e66mQsPcYZpaqWZMNeLcuhs1zC5Q2klWqX \ Mcq+ihIoB8lLMHRWnc7TJROuc8fV+LQqXghTOK+Z+VC/XJUvE7QYszPnYi7T \ tPgbZ6Jfq0K/8JvWQLTqtur13Ean5hjYS19we3THmFZlHMSPXk/itCPplYWe \ r69e8dbaO3yrwlZ6tZe9o5ZesZv+7Jnq18h1SQ36FD21h7e1Ic/LPl5/IFXQ \ okTDPnCddKNq0aPpRsnuzzx9hciLnJ+hQjADIVBEu0IUQlcjOYI+8C4tfcD3 \ 9deHzq/bzpjbpAzFWwiukzKk/lynDLLO4FGVQV/W1VIGdbFPQhn64NSpK8Nl \ eQCvPx1NqLIoT0sTpICtOuN7ozZofx9JG2zXdjow+br/DxcKbR4="], "ConferenceGraphicCell", Evaluatable -> False, ImageSize -> {635, 86}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], ScrollingOptions->{"PagewiseDisplay"->True, "VerticalScrollRange"->Fit}, ShowCellBracket->False, ScriptMinSize->9], Cell[StyleData[All, "Printout"], PageWidth->PaperWidth, CellLabelMargins->{{2, Inherited}, {Inherited, Inherited}}, ScriptMinSize->5, PrivateFontOptions->{"FontType"->"Outline"}] }, Closed]], Cell[CellGroupData[{ Cell["Notebook Options", "Section"], Cell["\<\ The options defined for the style below will be used at the Notebook level.\ \>", "Text"], Cell[StyleData["Notebook"], PageHeaders->{{ Cell[ TextData[{ CounterBox["Page"]}], "PageNumber"], None, Cell[ TextData[{ ValueBox["FileName"]}], "Header"]}, { Cell[ TextData[{ ValueBox["FileName"]}], "Header"], None, Cell[ TextData[{ CounterBox["Page"]}], "PageNumber"]}}, CellFrameLabelMargins->6, StyleMenuListing->None] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Headings", "Section"], Cell[CellGroupData[{ Cell[StyleData["Title"], CellMargins->{{27, Inherited}, {10, 30}}, CellGroupingRules->{"TitleGrouping", 0}, PageBreakBelow->False, DefaultNewInlineCellStyle->"None", InputAutoReplacements->{"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LineSpacing->{1, 11}, LanguageCategory->"NaturalLanguage", CounterIncrements->"Title", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, { "Subtitle", 0}, {"Subsubtitle", 0}}, FontFamily->"Helvetica", FontSize->36, FontWeight->"Bold", FontColor->RGBColor[0.796078, 0.211765, 0.156863]], Cell[StyleData["Title", "Presentation"], CellMargins->{{72, 50}, {10, 80}}, LineSpacing->{1, 0}, FontSize->45], Cell[StyleData["Title", "SlideShow"], CellMargins->{{72, 50}, {10, 80}}, FontSize->45], Cell[StyleData["Title", "Printout"], CellMargins->{{2, 10}, {12, 30}}, FontSize->24] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subtitle"], CellMargins->{{27, Inherited}, {20, 2}}, CellGroupingRules->{"TitleGrouping", 10}, PageBreakBelow->False, DefaultNewInlineCellStyle->"None", InputAutoReplacements->{"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory->"NaturalLanguage", CounterIncrements->"Subtitle", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, { "Subsubtitle", 0}}, FontFamily->"Helvetica", FontSize->24], Cell[StyleData["Subtitle", "Presentation"], CellMargins->{{72, 50}, {20, 2}}, LineSpacing->{1, 0}, FontSize->30], Cell[StyleData["Subtitle", "SlideShow"], CellMargins->{{72, 50}, {30, 2}}, FontSize->30], Cell[StyleData["Subtitle", "Printout"], CellMargins->{{2, 10}, {12, 8}}, FontSize->18] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsubtitle"], CellMargins->{{27, Inherited}, {8, 2}}, CellGroupingRules->{"TitleGrouping", 20}, PageBreakBelow->False, DefaultNewInlineCellStyle->"None", InputAutoReplacements->{"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory->"NaturalLanguage", CounterIncrements->"Subsubtitle", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->16], Cell[StyleData["Subsubtitle", "Presentation"], CellMargins->{{54, 10}, {20, 20}}, LineSpacing->{1, 0}, FontSize->24], Cell[StyleData["Subsubtitle", "SlideShow"], CellMargins->{{72, 25}, {30, 10}}], Cell[StyleData["Subsubtitle", "Printout"], CellMargins->{{2, 10}, {12, 8}}, FontSize->14] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Section"], CellFrame->False, ShowGroupOpenCloseIcon->False, CellMargins->{{27, Inherited}, {8, 34}}, CellGroupingRules->{"SectionGrouping", 30}, PageBreakBelow->False, CellFrameMargins->4, CellFrameColor->RGBColor[0.87451, 0.639216, 0.603922], DefaultNewInlineCellStyle->"None", InputAutoReplacements->{"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LineSpacing->{1, 2}, LanguageCategory->"NaturalLanguage", CounterIncrements->"Section", CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}}, FontFamily->"Helvetica", FontSize->20, FontWeight->"Bold", FontColor->RGBColor[0.796078, 0.113191, 0.0613107]], Cell[StyleData["Section", "Presentation"], CellFrame->{{0, 0}, {0, 2}}, ShowGroupOpenCloseIcon->True, CellMargins->{{72, 50}, {11, 30}}, CellFrameColor->RGBColor[0.87451, 0.639216, 0.603922], FontSize->30], Cell[StyleData["Section", "SlideShow"], CellMargins->{{100, 50}, {11, 35}}, FontSize->30], Cell[StyleData["Section", "Printout"], CellMargins->{{2, 0}, {7, 22}}, FontSize->14] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsection"], CellMargins->{{60, Inherited}, {8, 12}}, CellGroupingRules->{"SectionGrouping", 40}, PageBreakBelow->False, DefaultNewInlineCellStyle->"None", InputAutoReplacements->{"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory->"NaturalLanguage", CounterIncrements->"Subsection", CounterAssignments->{{"Subsubsection", 0}}, FontFamily->"Helvetica", FontSize->16, FontWeight->"Bold", FontColor->RGBColor[0.827451, 0.333333, 0.258824]], Cell[StyleData["Subsection", "Presentation"], CellMargins->{{72, 50}, {6, 15}}, LineSpacing->{1, 0}, FontSize->24], Cell[StyleData["Subsection", "SlideShow"], CellMargins->{{100, 50}, {8, 12}}, LineSpacing->{1, 0}, FontSize->24], Cell[StyleData["Subsection", "Printout"], CellMargins->{{2, 0}, {8, 22}}, FontSize->12] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsubsection"], CellMargins->{{60, Inherited}, {2, 12}}, CellGroupingRules->{"SectionGrouping", 50}, PageBreakBelow->False, DefaultNewInlineCellStyle->"None", InputAutoReplacements->{"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory->"NaturalLanguage", CounterIncrements->"Subsubsection", FontFamily->"Helvetica", FontWeight->"Bold", FontColor->RGBColor[0.924773, 0.607126, 0.3467]], Cell[StyleData["Subsubsection", "Presentation"], CellMargins->{{72, 50}, {6, 20}}, LineSpacing->{1, 0}, FontSize->18], Cell[StyleData["Subsubsection", "SlideShow"], CellMargins->{{100, 50}, {6, 20}}, FontSize->18], Cell[StyleData["Subsubsection", "Printout"], CellMargins->{{2, 0}, {7, 14}}, FontSize->11] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Body Text", "Section"], Cell[CellGroupData[{ Cell[StyleData["Text"], CellMargins->{{60, 10}, {7, 7}}, InputAutoReplacements->{"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LineSpacing->{1, 3}, CounterIncrements->"Text", FontFamily->"Helvetica"], Cell[StyleData["Text", "Presentation"], CellMargins->{{72, 50}, {10, 10}}, LineSpacing->{1, 5}, FontSize->17], Cell[StyleData["Text", "SlideShow"], CellMargins->{{100, 50}, {10, 10}}, FontSize->17], Cell[StyleData["Text", "Printout"], CellMargins->{{2, 2}, {6, 6}}, TextJustification->0.5, Hyphenation->True, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SmallText"], CellMargins->{{60, 10}, {6, 6}}, DefaultNewInlineCellStyle->"None", LineSpacing->{1, 3}, LanguageCategory->"NaturalLanguage", CounterIncrements->"SmallText", FontFamily->"Helvetica", FontSize->9], Cell[StyleData["SmallText", "Presentation"], CellMargins->{{72, 50}, {8, 8}}, LineSpacing->{1, 5}, FontSize->10], Cell[StyleData["SmallText", "SlideShow"], CellMargins->{{100, 50}, {8, 8}}, LineSpacing->{1, 5}, FontSize->10], Cell[StyleData["SmallText", "Printout"], CellMargins->{{2, 2}, {5, 5}}, TextJustification->0.5, Hyphenation->True, FontSize->7] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Styles for 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. \ Some attributes for these styles are actually set in FormatType Styles (in \ the last section of this stylesheet). \ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["Input"], CellMargins->{{66, 10}, {5, 7}}, Evaluatable->True, CellGroupingRules->"InputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, DefaultFormatType->DefaultInputFormatType, "TwoByteSyntaxCharacterAutoReplacement"->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, AutoItalicWords->{}, LanguageCategory->"Mathematica", FormatType->InputForm, ShowStringCharacters->True, NumberMarks->True, LinebreakAdjustments->{0.85, 2, 10, 0, 1}, CounterIncrements->"Input", FontWeight->"Bold"], Cell[StyleData["Input", "Presentation"], CellMargins->{{72, 50}, {8, 10}}, LineSpacing->{1, 0}, FontSize->18], Cell[StyleData["Input", "SlideShow"], ShowCellBracket->True, CellMargins->{{100, 50}, {8, 10}}, LineSpacing->{1, 0}, FontSize->18], Cell[StyleData["Input", "Printout"], CellMargins->{{39, 0}, {4, 6}}, LinebreakAdjustments->{0.85, 2, 10, 1, 1}, FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["InputOnly"], CellMargins->{{66, 10}, {7, 7}}, Evaluatable->True, CellGroupingRules->"InputGrouping", CellHorizontalScrolling->True, DefaultFormatType->DefaultInputFormatType, "TwoByteSyntaxCharacterAutoReplacement"->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, AutoItalicWords->{}, LanguageCategory->"Mathematica", FormatType->InputForm, ShowStringCharacters->True, NumberMarks->True, LinebreakAdjustments->{0.85, 2, 10, 0, 1}, CounterIncrements->"Input", StyleMenuListing->None, FontWeight->"Bold"], Cell[StyleData["InputOnly", "Presentation"], CellMargins->{{72, Inherited}, {8, 10}}, LineSpacing->{1, 0}, FontSize->18], Cell[StyleData["InputOnly", "SlideShow"], CellMargins->{{100, Inherited}, {8, 10}}, LineSpacing->{1, 0}, FontSize->18], Cell[StyleData["InputOnly", "Printout"], CellMargins->{{39, 0}, {4, 6}}, LinebreakAdjustments->{0.85, 2, 10, 1, 1}, FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Output"], CellMargins->{{66, 10}, {7, 5}}, CellEditDuplicate->True, CellGroupingRules->"OutputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, DefaultFormatType->DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement"->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, AutoItalicWords->{}, LanguageCategory->None, FormatType->InputForm, CounterIncrements->"Output"], Cell[StyleData["Output", "Presentation"], CellMargins->{{72, 50}, {10, 8}}, LineSpacing->{1, 0}, FontSize->18], Cell[StyleData["Output", "SlideShow"], ShowCellBracket->True, CellMargins->{{100, 50}, {10, 8}}, LineSpacing->{1, 0}, FontSize->18], Cell[StyleData["Output", "Printout"], CellMargins->{{39, 0}, {6, 4}}, FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Message"], CellMargins->{{66, Inherited}, {Inherited, Inherited}}, CellGroupingRules->"OutputGrouping", PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, DefaultFormatType->DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement"->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, AutoItalicWords->{}, LanguageCategory->None, FormatType->InputForm, CounterIncrements->"Message", StyleMenuListing->None, AutoStyleOptions -> {"UnmatchedBracketStyle" -> None}, FontFamily->"Helvetica", FontSize->10, FontColor->RGBColor[0.79646, 0.317952, 0.248615]], Cell[StyleData["Message", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, LineSpacing->{1, 0}, FontSize->14], Cell[StyleData["Message", "SlideShow"], CellMargins->{{100, Inherited}, {Inherited, Inherited}}, LineSpacing->{1, 0}, FontSize->14], Cell[StyleData["Message", "Printout"], CellMargins->{{39, Inherited}, {Inherited, Inherited}}, FontSize->7] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Print"], CellMargins->{{66, Inherited}, {Inherited, Inherited}}, CellGroupingRules->"OutputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, DefaultFormatType->DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement"->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, AutoItalicWords->{}, LanguageCategory->None, FormatType->InputForm, CounterIncrements->"Print", StyleMenuListing->None], Cell[StyleData["Print", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, LineSpacing->{1, 0}, FontSize->18], Cell[StyleData["Print", "SlideShow"], CellMargins->{{100, Inherited}, {Inherited, Inherited}}, LineSpacing->{1, 0}, FontSize->18], Cell[StyleData["Print", "Printout"], CellMargins->{{39, Inherited}, {Inherited, Inherited}}, FontSize->8] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Graphics"], CellMargins->{{4, Inherited}, {Inherited, Inherited}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, DefaultFormatType->DefaultOutputFormatType, LanguageCategory->None, FormatType->InputForm, CounterIncrements->"Graphics", ImageMargins->{{43, Inherited}, {Inherited, 0}}, StyleMenuListing->None, FontFamily->"Courier", FontSize->10], Cell[StyleData["Graphics", "Presentation"], ImageMargins->{{62, Inherited}, {Inherited, 0}}], Cell[StyleData["Graphics", "SlideShow"], ImageMargins->{{100, Inherited}, {Inherited, 0}}], Cell[StyleData["Graphics", "Printout"], ImageMargins->{{30, Inherited}, {Inherited, 0}}, Magnification->0.8] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["CellLabel"], LanguageCategory->None, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->9, FontColor->RGBColor[0.796078, 0.109804, 0.0588235]], Cell[StyleData["CellLabel", "Presentation"], FontSize->12], Cell[StyleData["CellLabel", "SlideShow"], FontSize->12], Cell[StyleData["CellLabel", "Printout"], FontFamily->"Courier", FontSize->8, FontSlant->"Italic"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["FrameLabel"], LanguageCategory->None, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->9], Cell[StyleData["FrameLabel", "Presentation"], FontSize->12], Cell[StyleData["FrameLabel", "SlideShow"], FontSize->12], Cell[StyleData["FrameLabel", "Printout"], FontFamily->"Courier", FontSize->8, FontSlant->"Italic", FontColor->GrayLevel[0]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Presentation Specific", "Section"], Cell[CellGroupData[{ Cell[StyleData["BulletedList"], CellMargins->{{45, 10}, {7, 7}}, CellFrameLabels->{{ Cell["\[FilledSmallSquare]", "BulletedList", CellBaseline -> Baseline], Inherited}, {Inherited, Inherited}}, InputAutoReplacements->{"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, CounterIncrements->"BulletedList", FontFamily->"Helvetica"], Cell[StyleData["BulletedList", "Presentation"], CellMargins->{{56, 50}, {10, 10}}, LineSpacing->{1, 5}, FontSize->18], Cell[StyleData["BulletedList", "SlideShow"], CellMargins->{{105, 50}, {10, 10}}, FontSize->18], Cell[CellGroupData[{ Cell[BoxData["105"], "Input"], Cell[StyleData["BulletedList", "Printout"], CellMargins->{{2, 2}, {6, 6}}, TextJustification->0.5, Hyphenation->True, FontSize->10] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Author"], CellMargins->{{139, 27}, {2, 20}}, FontFamily->"Times", FontSize->24, FontSlant->"Italic"], Cell[StyleData["Author", "Presentation"], CellMargins->{{198, 27}, {2, 25}}, FontSize->32], Cell[StyleData["Author", "SlideShow"], CellMargins->{{198, 27}, {2, 50}}, FontSize->32], Cell[StyleData["Author", "Printout"], CellMargins->{{100, 27}, {2, 20}}, FontSize->14] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Affiliation"], CellMargins->{{141, 27}, {30, 12}}, FontFamily->"Times", FontSize->24, FontSlant->"Italic"], Cell[StyleData["Affiliation", "Presentation"], CellMargins->{{198, 27}, {35, 10}}, FontSize->32], Cell[StyleData["Affiliation", "SlideShow"], CellMargins->{{198, 27}, {100, 10}}, FontSize->32], Cell[StyleData["Affiliation", "Printout"], CellMargins->{{100, 27}, {2, 12}}, FontSize->14] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Header Graphic", "Section"], Cell[CellGroupData[{ Cell[StyleData["ConferenceGraphicCell"], ShowCellBracket->True, CellMargins->{{0, 0}, {0, 0}}, Evaluatable->False, PageBreakBelow->False, CellFrameMargins->False, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, Magnification->1, Background->RGBColor[0.827451, 0.333333, 0.258824]], Cell[StyleData["ConferenceGraphicCell", "Presentation"], ShowCellBracket->False], Cell[StyleData["ConferenceGraphicCell", "SlideShow"], ShowCellBracket->False], Cell[StyleData["ConferenceGraphicCell", "Printout"], FontSize->8, Magnification->0.75] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["GraphicNoMagnification"], CellMargins->{{60, 10}, {7, 7}}, LineSpacing->{1, 3}, CounterIncrements->"Text", FontFamily->"Helvetica", Magnification->1], Cell[StyleData["GraphicNoMagnification", "Presentation"], CellMargins->{{72, 50}, {10, 10}}, LineSpacing->{1, 5}, FontSize->17], Cell[StyleData["GraphicNoMagnification", "SlideShow"], CellMargins->{{100, 50}, {10, 10}}, FontSize->17], Cell[StyleData["GraphicNoMagnification", "Printout"], CellMargins->{{2, 2}, {6, 6}}, FontSize->10] }, Closed]] }, Closed]], 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[StyleData["RM"], StyleMenuListing->None, FontWeight->"Plain", FontSlant->"Plain"], Cell[StyleData["BF"], StyleMenuListing->None, FontWeight->"Bold"], Cell[StyleData["IT"], StyleMenuListing->None, FontSlant->"Italic"], Cell[StyleData["TR"], StyleMenuListing->None, FontFamily->"Times", FontWeight->"Plain", FontSlant->"Plain"], Cell[StyleData["TI"], StyleMenuListing->None, FontFamily->"Times", FontWeight->"Plain", FontSlant->"Italic"], Cell[StyleData["TB"], StyleMenuListing->None, FontFamily->"Times", FontWeight->"Bold", FontSlant->"Plain"], Cell[StyleData["TBI"], StyleMenuListing->None, FontFamily->"Times", FontWeight->"Bold", FontSlant->"Italic"], Cell[StyleData["MR"], "TwoByteSyntaxCharacterAutoReplacement"->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, StyleMenuListing->None, FontFamily->"Courier", FontWeight->"Plain", FontSlant->"Plain"], Cell[StyleData["MO"], "TwoByteSyntaxCharacterAutoReplacement"->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, StyleMenuListing->None, FontFamily->"Courier", FontWeight->"Plain", FontSlant->"Italic"], Cell[StyleData["MB"], "TwoByteSyntaxCharacterAutoReplacement"->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, StyleMenuListing->None, FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Plain"], Cell[StyleData["MBO"], "TwoByteSyntaxCharacterAutoReplacement"->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, StyleMenuListing->None, FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Italic"], Cell[StyleData["SR"], StyleMenuListing->None, FontFamily->"Helvetica", FontWeight->"Plain", FontSlant->"Plain"], Cell[StyleData["SO"], StyleMenuListing->None, FontFamily->"Helvetica", FontWeight->"Plain", FontSlant->"Italic"], Cell[StyleData["SB"], StyleMenuListing->None, FontFamily->"Helvetica", FontWeight->"Bold", FontSlant->"Plain"], Cell[StyleData["SBO"], StyleMenuListing->None, FontFamily->"Helvetica", FontWeight->"Bold", FontSlant->"Italic"], Cell[CellGroupData[{ Cell[StyleData["SO10"], StyleMenuListing->None, FontFamily->"Helvetica", FontSize->10, FontWeight->"Plain", FontSlant->"Italic"], Cell[StyleData["SO10", "Printout"], StyleMenuListing->None, FontFamily->"Helvetica", FontSize->7, FontWeight->"Plain", FontSlant->"Italic"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Formulas and Programming", "Section"], Cell[CellGroupData[{ Cell[StyleData["InlineFormula"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, LanguageCategory->"Formula", ScriptLevel->1, SingleLetterItalics->True, StyleMenuListing->None], Cell[StyleData["InlineFormula", "Presentation"], LineSpacing->{1, 5}, FontSize->16], Cell[StyleData["InlineFormula", "SlideShow"], LineSpacing->{1, 5}, FontSize->16], Cell[StyleData["InlineFormula", "Printout"], CellMargins->{{2, 0}, {6, 6}}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DisplayFormula"], CellMargins->{{60, Inherited}, {Inherited, Inherited}}, CellHorizontalScrolling->True, DefaultFormatType->DefaultInputFormatType, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, LanguageCategory->"Formula", ScriptLevel->0, SingleLetterItalics->True, UnderoverscriptBoxOptions->{LimitsPositioning->True}], Cell[StyleData["DisplayFormula", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, LineSpacing->{1, 5}, FontSize->16], Cell[StyleData["DisplayFormula", "SlideShow"], CellMargins->{{100, 50}, {Inherited, Inherited}}, LineSpacing->{1, 5}, FontSize->16], Cell[StyleData["DisplayFormula", "Printout"], FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Program"], CellFrame->{{0, 0}, {0.5, 0.5}}, CellMargins->{{60, 4}, {0, 8}}, CellHorizontalScrolling->True, Hyphenation->False, LanguageCategory->"Formula", ScriptLevel->1, FontFamily->"Courier"], Cell[StyleData["Program", "Presentation"], CellMargins->{{72, 50}, {10, 10}}, LineSpacing->{1, 5}, FontSize->16], Cell[StyleData["Program", "SlideShow"], CellMargins->{{100, 50}, {10, 10}}, LineSpacing->{1, 5}, FontSize->16], Cell[StyleData["Program", "Printout"], CellMargins->{{2, 0}, {6, 6}}, FontSize->9] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Hyperlink Styles", "Section"], Cell["\<\ The cells below define styles useful for making hypertext ButtonBoxes. The \ \"Hyperlink\" style is for links within the same Notebook, or between \ Notebooks.\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["Hyperlink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontVariations->{"Underline"->True}, FontColor->RGBColor[0, 0.376471, 0.490196], ButtonBoxOptions->{Active->True, ButtonFrame->"None", ButtonFunction:>(FrontEndExecute[{ FrontEnd`NotebookLocate[#2]}]& ), ButtonNote->ButtonData}], Cell[StyleData["Hyperlink", "Presentation"], FontSize->16], Cell[StyleData["Hyperlink", "SlideShow"]], Cell[StyleData["Hyperlink", "Printout"], FontSize->10, FontVariations->{"Underline"->False}] }, Closed]], Cell["\<\ The following styles are for linking automatically to the on-line help \ system.\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["MainBookLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontVariations->{"Underline"->True}, FontColor->RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions->{Active->True, ButtonFrame->"None", ButtonFunction:>(FrontEndExecute[{ FrontEnd`HelpBrowserLookup["MainBook", #]}]& )}], Cell[StyleData["MainBookLink", "Presentation"], FontSize->16], Cell[StyleData["MainBookLink", "SlideShow"]], Cell[StyleData["MainBookLink", "Printout"], FontSize->10, FontVariations->{"Underline"->False}, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["AddOnsLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontFamily->"Courier", FontVariations->{"Underline"->True}, FontColor->RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions->{Active->True, ButtonFrame->"None", ButtonFunction:>(FrontEndExecute[{ FrontEnd`HelpBrowserLookup["AddOns", #]}]& )}], Cell[StyleData["AddOnsLink", "Presentation"], FontSize->16], Cell[StyleData["AddOnsLink", "SlideShow"]], Cell[StyleData["AddOnsLink", "Printout"], FontSize->10, FontVariations->{"Underline"->False}, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["RefGuideLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontFamily->"Courier", FontVariations->{"Underline"->True}, FontColor->RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions->{Active->True, ButtonFrame->"None", ButtonFunction:>(FrontEndExecute[{ FrontEnd`HelpBrowserLookup["RefGuide", #]}]& )}], Cell[StyleData["RefGuideLink", "Presentation"], FontSize->16], Cell[StyleData["RefGuideLink", "SlideShow"]], Cell[StyleData["RefGuideLink", "Printout"], FontSize->10, FontVariations->{"Underline"->False}, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["RefGuideLinkText"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontVariations->{"Underline"->True}, FontColor->RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions->{Active->True, ButtonFrame->"None", ButtonFunction:>(FrontEndExecute[{ FrontEnd`HelpBrowserLookup["RefGuide", #]}]& )}], Cell[StyleData["RefGuideLinkText", "Presentation"], FontSize->16], Cell[StyleData["RefGuideLinkText", "SlideShow"]], Cell[StyleData["RefGuideLinkText", "Printout"], FontSize->10, FontVariations->{"Underline"->False}, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["GettingStartedLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontVariations->{"Underline"->True}, FontColor->RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions->{Active->True, ButtonFrame->"None", ButtonFunction:>(FrontEndExecute[{ FrontEnd`HelpBrowserLookup["GettingStarted", #]}]& )}], Cell[StyleData["GettingStartedLink", "Presentation"], FontSize->16], Cell[StyleData["GettingStartedLink", "SlideShow"]], Cell[StyleData["GettingStartedLink", "Printout"], FontSize->10, FontVariations->{"Underline"->False}, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DemosLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontVariations->{"Underline"->True}, FontColor->RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions->{Active->True, ButtonFrame->"None", ButtonFunction:>(FrontEndExecute[{ FrontEnd`HelpBrowserLookup["Demos", #]}]& )}], Cell[StyleData["DemosLink", "SlideShow"]], Cell[StyleData["DemosLink", "Printout"], FontVariations->{"Underline"->False}, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TourLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontVariations->{"Underline"->True}, FontColor->RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions->{Active->True, ButtonFrame->"None", ButtonFunction:>(FrontEndExecute[{ FrontEnd`HelpBrowserLookup["Tour", #]}]& )}], Cell[StyleData["TourLink", "SlideShow"]], Cell[StyleData["TourLink", "Printout"], FontVariations->{"Underline"->False}, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["OtherInformationLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontVariations->{"Underline"->True}, FontColor->RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions->{Active->True, ButtonFrame->"None", ButtonFunction:>(FrontEndExecute[{ FrontEnd`HelpBrowserLookup["OtherInformation", #]}]& )}], Cell[StyleData["OtherInformationLink", "Presentation"], FontSize->16], Cell[StyleData["OtherInformationLink", "SlideShow"]], Cell[StyleData["OtherInformationLink", "Printout"], FontSize->10, FontVariations->{"Underline"->False}, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["MasterIndexLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontVariations->{"Underline"->True}, FontColor->RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions->{Active->True, ButtonFrame->"None", ButtonFunction:>(FrontEndExecute[{ FrontEnd`HelpBrowserLookup["MasterIndex", #]}]& )}], Cell[StyleData["MasterIndexLink", "SlideShow"]], Cell[StyleData["MasterIndexLink", "Printout"], FontVariations->{"Underline"->False}, FontColor->GrayLevel[0]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Headers and Footers", "Section"], Cell[StyleData["Header"], CellMargins->{{0, 0}, {4, 1}}, DefaultNewInlineCellStyle->"None", LanguageCategory->"NaturalLanguage", StyleMenuListing->None, FontSize->10, FontSlant->"Italic"], Cell[StyleData["Footer"], CellMargins->{{0, 0}, {0, 4}}, DefaultNewInlineCellStyle->"None", LanguageCategory->"NaturalLanguage", StyleMenuListing->None, FontSize->9, FontSlant->"Italic"], Cell[StyleData["PageNumber"], CellMargins->{{0, 0}, {4, 1}}, StyleMenuListing->None, FontFamily->"Times", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell["Palette Styles", "Section"], Cell["\<\ The cells below define styles that define standard ButtonFunctions, for use \ in palette buttons.\ \>", "Text"], Cell[StyleData["Paste"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[{ FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, Placeholder]}]& )}], Cell[StyleData["Evaluate"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[{ FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, All], FrontEnd`SelectionEvaluate[ FrontEnd`InputNotebook[], All]}]& )}], Cell[StyleData["EvaluateCell"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[{ FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, All], FrontEnd`SelectionMove[ FrontEnd`InputNotebook[], All, Cell, 1], FrontEnd`SelectionEvaluateCreateCell[ FrontEnd`InputNotebook[], All]}]& )}], Cell[StyleData["CopyEvaluate"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[{ FrontEnd`SelectionCreateCell[ FrontEnd`InputNotebook[], All], FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, All], FrontEnd`SelectionEvaluate[ FrontEnd`InputNotebook[], All]}]& )}], Cell[StyleData["CopyEvaluateCell"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[{ FrontEnd`SelectionCreateCell[ FrontEnd`InputNotebook[], All], FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, All], FrontEnd`SelectionEvaluateCreateCell[ FrontEnd`InputNotebook[], All]}]& )}] }, Closed]], Cell[CellGroupData[{ Cell["Placeholder Styles", "Section"], Cell["\<\ The cells below define styles useful for making placeholder objects in \ palette templates.\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["Placeholder"], Placeholder->True, StyleMenuListing->None, FontSlant->"Italic", FontColor->RGBColor[0.890623, 0.864698, 0.384756], TagBoxOptions->{Editable->False, Selectable->False, StripWrapperBoxes->False}], Cell[StyleData["Placeholder", "Presentation"]], Cell[StyleData["Placeholder", "SlideShow"]], Cell[StyleData["Placeholder", "Printout"]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["PrimaryPlaceholder"], StyleMenuListing->None, DrawHighlighted->True, FontSlant->"Italic", Background->RGBColor[0.912505, 0.891798, 0.507774], TagBoxOptions->{Editable->False, Selectable->False, StripWrapperBoxes->False}], Cell[StyleData["PrimaryPlaceholder", "Presentation"]], Cell[StyleData["PrimaryPlaceholder", "SlideShow"]], Cell[StyleData["PrimaryPlaceholder", "Printout"]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["FormatType Styles", "Section"], Cell["\<\ The cells below define styles that are mixed in with the styles of most \ cells. If a cell's FormatType matches the name of one of the styles defined \ below, then that style is applied between the cell's style and its own \ options. This is particularly true of Input and Output.\ \>", "Text"], Cell[StyleData["CellExpression"], PageWidth->Infinity, CellMargins->{{6, Inherited}, {Inherited, Inherited}}, ShowCellLabel->False, ShowSpecialCharacters->False, AllowInlineCells->False, Hyphenation->False, AutoItalicWords->{}, StyleMenuListing->None, FontFamily->"Courier", FontSize->12, Background->GrayLevel[1]], Cell[StyleData["InputForm"], InputAutoReplacements->{}, AllowInlineCells->False, Hyphenation->False, StyleMenuListing->None, FontFamily->"Courier"], Cell[StyleData["OutputForm"], PageWidth->Infinity, TextAlignment->Left, LineSpacing->{0.6, 1}, StyleMenuListing->None, FontFamily->"Courier"], Cell[StyleData["StandardForm"], InputAutoReplacements->{ "->" -> "\[Rule]", ":>" -> "\[RuleDelayed]", "<=" -> "\[LessEqual]", ">=" -> "\[GreaterEqual]", "!=" -> "\[NotEqual]", "==" -> "\[Equal]", Inherited}, "TwoByteSyntaxCharacterAutoReplacement"->True, LineSpacing->{1.25, 0}, StyleMenuListing->None, FontFamily->"Courier"], Cell[StyleData["TraditionalForm"], InputAutoReplacements->{ "->" -> "\[Rule]", ":>" -> "\[RuleDelayed]", "<=" -> "\[LessEqual]", ">=" -> "\[GreaterEqual]", "!=" -> "\[NotEqual]", "==" -> "\[Equal]", Inherited}, "TwoByteSyntaxCharacterAutoReplacement"->True, LineSpacing->{1.25, 0}, SingleLetterItalics->True, TraditionalFunctionNotation->True, DelimiterMatching->None, StyleMenuListing->None], Cell["\<\ The style defined below is mixed in to any cell that is in an inline cell \ within another.\ \>", "Text"], Cell[StyleData["InlineCell"], LanguageCategory->"Formula", ScriptLevel->1, StyleMenuListing->None], Cell[StyleData["InlineCellEditing"], StyleMenuListing->None, Background->RGBColor[0.964706, 0.929412, 0.839216]] }, Closed]], Cell[CellGroupData[{ Cell["Automatic Styles", "Section"], Cell["\<\ The cells below define styles that are used to affect the display of certain \ types of objects in typeset expressions. For example, \"UnmatchedBracket\" \ style defines how unmatched bracket, curly bracket, and parenthesis \ characters are displayed (typically by coloring them to make them stand out).\ \ \>", "Text"], Cell[StyleData["UnmatchedBracket"], StyleMenuListing->None, FontColor->RGBColor[0.760006, 0.330007, 0.8]], Cell[StyleData["Completions"], StyleMenuListing->None, FontFamily->"Courier"] }, Closed]], Cell[CellGroupData[{ Cell["Styles from HelpBrowser", "Section"], Cell[CellGroupData[{ Cell[StyleData["MathCaption"], CellFrame->{{0, 0}, {0, 0.5}}, CellMargins->{{66, 12}, {2, 24}}, PageBreakBelow->False, CellFrameMargins->{{8, 8}, {8, 2}}, CellFrameColor->GrayLevel[0.700008], CellFrameLabelMargins->4, LineSpacing->{1, 1}, ParagraphSpacing->{0, 8}, StyleMenuListing->None, FontColor->GrayLevel[0.2]], Cell[StyleData["MathCaption", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, FontSize->18], Cell[StyleData["MathCaption", "SlideShow"], CellMargins->{{100, 50}, {Inherited, Inherited}}], Cell[StyleData["MathCaption", "Printout"], CellMargins->{{39, 0}, {0, 14}}, Hyphenation->True, FontSize->9, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ObjectName"], 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["ObjectName", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, FontSize->18], Cell[StyleData["ObjectName", "SlideShow"], CellMargins->{{100, 50}, {Inherited, Inherited}}], Cell[StyleData["ObjectName", "Printout"], ShowCellBracket->False, CellMargins->{{39, 0}, {6, 6}}, FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Usage"], 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["Usage", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, FontSize->18], Cell[StyleData["Usage", "SlideShow"], CellMargins->{{100, 50}, {Inherited, Inherited}}], Cell[StyleData["Usage", "Printout"], ShowCellBracket->False, CellMargins->{{39, 0}, {6, 6}}, FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Notes"], 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["Notes", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, FontSize->18], Cell[StyleData["Notes", "SlideShow"], CellMargins->{{100, 50}, {Inherited, Inherited}}], Cell[StyleData["Notes", "Printout"], ShowCellBracket->False, CellMargins->{{39, 0}, {6, 6}}, FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["InlineOutput"], 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["InlineOutput", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, FontSize->18], Cell[StyleData["InlineOutput", "SlideShow"], CellMargins->{{100, 50}, {Inherited, Inherited}}], Cell[StyleData["InlineOutput", "Printout"], ShowCellBracket->False, CellMargins->{{39, 0}, {6, 6}}, FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell["Emphasis Boxes and Pictures", "Subsection"], 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"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, FontSize->18], Cell[StyleData["Box", "SlideShow"], CellMargins->{{100, 50}, {Inherited, Inherited}}], Cell[StyleData["Box", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[0.900008]] }, 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"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, FontSize->18], Cell[StyleData["DoubleBox", "SlideShow"], CellMargins->{{100, 50}, {Inherited, Inherited}}], Cell[StyleData["DoubleBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[0.900008]] }, 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"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, FontSize->18], Cell[StyleData["1ColumnBox", "SlideShow"], CellMargins->{{100, 50}, {Inherited, Inherited}}], Cell[StyleData["1ColumnBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[0.900008]] }, 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"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, FontSize->18], Cell[StyleData["2ColumnBox", "SlideShow"], CellMargins->{{100, 50}, {Inherited, Inherited}}], Cell[StyleData["2ColumnBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->9, Background->GrayLevel[0.900008]] }, 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"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, FontSize->18], Cell[StyleData["2ColumnEvenBox", "SlideShow"], CellMargins->{{100, 50}, {Inherited, Inherited}}], Cell[StyleData["2ColumnEvenBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[0.900008]] }, 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->{ColumnAlignments->{Right, Left}, ColumnSpacings->1.5, ColumnWidths->0.35}], Cell[StyleData["2ColumnSmallBox", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, FontSize->18], Cell[StyleData["2ColumnSmallBox", "SlideShow"], CellMargins->{{100, 50}, {Inherited, Inherited}}], Cell[StyleData["2ColumnSmallBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[0.900008]] }, 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"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, FontSize->18], Cell[StyleData["3ColumnBox", "SlideShow"], CellMargins->{{100, 50}, {Inherited, Inherited}}], Cell[StyleData["3ColumnBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[0.900008]] }, 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->{ColumnAlignments->{Right, Center, Left}, ColumnSpacings->1.5, ColumnWidths->0.24}], Cell[StyleData["3ColumnSmallBox", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, FontSize->18], Cell[StyleData["3ColumnSmallBox", "SlideShow"], CellMargins->{{100, 50}, {Inherited, Inherited}}], Cell[StyleData["3ColumnSmallBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[0.900008]] }, 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["4ColumnBox", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, FontSize->18], Cell[StyleData["4ColumnBox", "SlideShow"], CellMargins->{{100, 50}, {Inherited, Inherited}}], Cell[StyleData["4ColumnBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[0.900008]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["5ColumnBox"], 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.202}], Cell[StyleData["5ColumnBox", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, FontSize->18], Cell[StyleData["5ColumnBox", "SlideShow"], CellMargins->{{100, 50}, {Inherited, Inherited}}], Cell[StyleData["5ColumnBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->9, Background->GrayLevel[0.900008]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["6ColumnBox"], 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.12, 0.22, 0.12, 0.12, 0.22, 0.12}}], Cell[StyleData["6ColumnBox", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, FontSize->18], Cell[StyleData["6ColumnBox", "SlideShow"], CellMargins->{{100, 50}, {Inherited, Inherited}}], Cell[StyleData["6ColumnBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[0.900008]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["FramedBox"], CellFrame->0.5, CellMargins->{{27, 12}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions->{ColumnAlignments->{Left}, RowSpacings->1.5}], Cell[StyleData["FramedBox", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, FontSize->18], Cell[StyleData["FramedBox", "SlideShow"], CellMargins->{{100, 50}, {Inherited, Inherited}}], Cell[StyleData["FramedBox", "Printout"], CellMargins->{{2, 4}, {0, 8}}, FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DefinitionBox"], CellFrame->0.5, CellMargins->{{27, 12}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions->{ColumnAlignments->{Left}, ColumnSpacings->1, ColumnWidths->{0.4, 0.6}, RowSpacings->1.5}], Cell[StyleData["DefinitionBox", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, FontSize->18], Cell[StyleData["DefinitionBox", "SlideShow"], CellMargins->{{100, 50}, {Inherited, Inherited}}], Cell[StyleData["DefinitionBox", "Printout"], CellMargins->{{2, 4}, {0, 8}}, FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DefinitionBox3Col"], CellFrame->0.5, CellMargins->{{27, 12}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions->{ColumnAlignments->{Left}, ColumnSpacings->1, ColumnWidths->{0.35, 0.2, 0.45}, RowSpacings->1.5}], Cell[StyleData["DefinitionBox3Col", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, FontSize->18], Cell[StyleData["DefinitionBox3Col", "SlideShow"], CellMargins->{{100, 50}, {Inherited, Inherited}}], Cell[StyleData["DefinitionBox3Col", "Printout"], CellMargins->{{2, 4}, {0, 8}}, FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DefinitionBox4Col"], CellFrame->0.5, CellMargins->{{27, 12}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions->{ColumnAlignments->{Left}, ColumnSpacings->1, ColumnWidths->{0.15, 0.35, 0.15, 0.35}, RowSpacings->1.5}], Cell[StyleData["DefinitionBox4Col", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, FontSize->18], Cell[StyleData["DefinitionBox4Col", "SlideShow"], CellMargins->{{100, 50}, {Inherited, Inherited}}], Cell[StyleData["DefinitionBox4Col", "Printout"], CellMargins->{{2, 4}, {0, 8}}, FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DefinitionBox5Col"], CellFrame->0.5, CellMargins->{{27, 12}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions->{ColumnAlignments->{Left}, ColumnSpacings->1, ColumnWidths->0.2, RowSpacings->1.5}], Cell[StyleData["DefinitionBox5Col", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, FontSize->18], Cell[StyleData["DefinitionBox5Col", "SlideShow"], CellMargins->{{100, 50}, {Inherited, Inherited}}], Cell[StyleData["DefinitionBox5Col", "Printout"], CellMargins->{{2, 4}, {0, 8}}, FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DefinitionBox6Col"], CellFrame->0.5, CellMargins->{{27, 12}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions->{ColumnAlignments->{Left}, ColumnSpacings->1, ColumnWidths->{0.13, 0.24, 0.13, 0.13, 0.24, 0.13}, RowSpacings->1.5}], Cell[StyleData["DefinitionBox6Col", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, FontSize->18], Cell[StyleData["DefinitionBox6Col", "SlideShow"], CellMargins->{{100, 50}, {Inherited, Inherited}}], Cell[StyleData["DefinitionBox6Col", "Printout"], CellMargins->{{2, 4}, {0, 8}}, FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TopBox"], CellFrame->{{0.5, 0.5}, {0, 0.5}}, CellMargins->{{27, 12}, {0, 8}}, CellHorizontalScrolling->True, PageBreakBelow->False, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions->{ColumnAlignments->{Left}, ColumnSpacings->1, ColumnWidths->{0.31, 0.62}, RowSpacings->1.5}], Cell[StyleData["TopBox", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, FontSize->18], Cell[StyleData["TopBox", "SlideShow"], CellMargins->{{100, 50}, {Inherited, Inherited}}], Cell[StyleData["TopBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["MiddleBox"], CellFrame->{{0.5, 0.5}, {0, 0}}, CellMargins->{{27, 12}, {0, -7}}, CellHorizontalScrolling->True, PageBreakAbove->False, PageBreakBelow->False, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions->{ColumnAlignments->{Left}, ColumnSpacings->1, ColumnWidths->{0.31, 0.62}, RowSpacings->1.5}], Cell[StyleData["MiddleBox", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, FontSize->18], Cell[StyleData["MiddleBox", "SlideShow"], CellMargins->{{100, 50}, {Inherited, Inherited}}], Cell[StyleData["MiddleBox", "Printout"], CellMargins->{{2, 0}, {0, 2}}, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["BottomBox"], CellFrame->{{0.5, 0.5}, {0.5, 0}}, CellMargins->{{27, 12}, {0, -7}}, CellHorizontalScrolling->True, PageBreakAbove->False, PageBreakBelow->False, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions->{ColumnAlignments->{Left}, ColumnSpacings->1, ColumnWidths->{0.31, 0.62}, RowSpacings->1.5}], Cell[StyleData["BottomBox", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, FontSize->18], Cell[StyleData["BottomBox", "SlideShow"], CellMargins->{{100, 50}, {Inherited, Inherited}}], Cell[StyleData["BottomBox", "Printout"], CellMargins->{{2, 0}, {0, -5}}, FontSize->10, Background->GrayLevel[1], GridBoxOptions->{RowMinHeight->2.2}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TopSpanBox"], CellFrame->{{0.5, 0.5}, {0, 0.5}}, CellMargins->{{27, 12}, {-2, 8}}, CellHorizontalScrolling->True, PageBreakBelow->False, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions->{ColumnAlignments->{Left}, ColumnSpacings->1, ColumnWidths->{0.9, 0.03}, RowSpacings->1.5}], Cell[StyleData["TopSpanBox", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, FontSize->18], Cell[StyleData["TopSpanBox", "SlideShow"], CellMargins->{{100, 50}, {Inherited, Inherited}}], Cell[StyleData["TopSpanBox", "Printout"], CellMargins->{{2, 0}, {-2, 8}}, FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["MiddleSpanBox"], CellFrame->{{0.5, 0.5}, {0, 0}}, CellMargins->{{27, 12}, {0, 0}}, CellHorizontalScrolling->True, PageBreakAbove->False, PageBreakBelow->False, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions->{ColumnAlignments->{Left}, ColumnSpacings->1, ColumnWidths->{0.9, 0.03}, RowSpacings->1.5}], Cell[StyleData["MiddleSpanBox", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, FontSize->18], Cell[StyleData["MiddleSpanBox", "SlideShow"], CellMargins->{{100, 50}, {Inherited, Inherited}}], Cell[StyleData["MiddleSpanBox", "Printout"], CellMargins->{{2, 0}, {-5, 0}}, FontSize->10, Background->GrayLevel[1], GridBoxOptions->{RowMinHeight->1.8}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Picture"], CellMargins->{{27, Inherited}, {4, 4}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, StyleMenuListing->None], Cell[StyleData["Picture", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, FontSize->18], Cell[StyleData["Picture", "SlideShow"], CellMargins->{{100, 50}, {Inherited, Inherited}}], Cell[StyleData["Picture", "Printout"], CellMargins->{{2, Inherited}, {4, 4}}, Magnification->0.65] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["OpenCloseItemizedPicture"], CellMargins->{{88, 4}, {4, 4}}, PrivateCellOptions->{"DefaultCellGroupOpen"->False}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, StyleMenuListing->None], Cell[StyleData["OpenCloseItemizedPicture", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, FontSize->18], Cell[StyleData["OpenCloseItemizedPicture", "SlideShow"], CellMargins->{{100, 50}, {Inherited, Inherited}}], Cell[StyleData["OpenCloseItemizedPicture", "Printout"], CellMargins->{{76, 2}, {0, 0}}, CellElementSpacings->{"CellMinHeight"->1, "ClosedCellHeight"->0}, CellOpen->False] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ItemizedPicture"], CellMargins->{{88, 4}, {4, 4}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, StyleMenuListing->None], Cell[StyleData["ItemizedPicture", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, FontSize->18], Cell[StyleData["ItemizedPicture", "SlideShow"], CellMargins->{{100, 50}, {Inherited, Inherited}}], Cell[StyleData["ItemizedPicture", "Printout"], CellMargins->{{77, 2}, {4, -4}}, Magnification->0.5] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ListGraphic"], CellMargins->{{88, 4}, {4, 4}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, StyleMenuListing->None], Cell[StyleData["ListGraphic", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, FontSize->18], Cell[StyleData["ListGraphic", "SlideShow"], CellMargins->{{100, 50}, {Inherited, Inherited}}], Cell[StyleData["ListGraphic", "Printout"], CellMargins->{{77, 2}, {4, -4}}, Magnification->0.5] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ListNoteBox"], CellFrame->0.5, CellMargins->{{88, 12}, {8, 8}}, CellHorizontalScrolling->True, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], LineIndent->0, StyleMenuListing->None, Background->RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions->{BoxMargins->{{1, 1}, {1.5, 1.5}}}, GridBoxOptions->{ColumnSpacings->1}], Cell[StyleData["ListNoteBox", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, FontSize->18], Cell[StyleData["ListNoteBox", "SlideShow"], CellMargins->{{100, 50}, {Inherited, Inherited}}], Cell[StyleData["ListNoteBox", "Printout"], CellMargins->{{77, 4}, {6, 2}}, FontSize->10, Background->GrayLevel[0.900008]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["PictureGroup"], CellMargins->{{41, 4}, {0, 4}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, StyleMenuListing->None], Cell[StyleData["PictureGroup", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, FontSize->18], Cell[StyleData["PictureGroup", "SlideShow"], CellMargins->{{100, 50}, {Inherited, Inherited}}], Cell[StyleData["PictureGroup", "Printout"], CellMargins->{{76, 2}, {0, 0}}, CellElementSpacings->{"CellMinHeight"->1, "ClosedCellHeight"->0}, CellOpen->False] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Sound"], ShowCellBracket->True, CellMargins->{{27, Inherited}, {0, 8}}, StyleMenuListing->None], Cell[StyleData["Sound", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, FontSize->18], Cell[StyleData["Sound", "SlideShow"], CellMargins->{{100, 50}, {Inherited, Inherited}}], Cell[StyleData["Sound", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Tables", "Subsection"], Cell[CellGroupData[{ Cell[StyleData["2ColumnTable"], CellMargins->{{35, 4}, {0, 8}}, CellHorizontalScrolling->True, LineIndent->0, StyleMenuListing->None, GridBoxOptions->{ColumnAlignments->{Left}, ColumnWidths->{0.34, 0.64}}], Cell[StyleData["2ColumnTable", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, FontSize->18], Cell[StyleData["2ColumnTable", "SlideShow"], CellMargins->{{100, 50}, {Inherited, Inherited}}], Cell[StyleData["2ColumnTable", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["2ColumnEvenTable"], CellMargins->{{35, 4}, {0, 8}}, CellHorizontalScrolling->True, LineIndent->0, StyleMenuListing->None, GridBoxOptions->{ColumnAlignments->{Left}, ColumnWidths->0.49}], Cell[StyleData["2ColumnEvenTable", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, FontSize->18], Cell[StyleData["2ColumnEvenTable", "SlideShow"], CellMargins->{{100, 50}, {Inherited, Inherited}}], Cell[StyleData["2ColumnEvenTable", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["3ColumnTable"], CellMargins->{{35, 4}, {0, 8}}, CellHorizontalScrolling->True, LineIndent->0, StyleMenuListing->None, GridBoxOptions->{ColumnAlignments->{Left}, ColumnWidths->{0.28, 0.28, 0.43}}], Cell[StyleData["3ColumnTable", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, FontSize->18], Cell[StyleData["3ColumnTable", "SlideShow"], CellMargins->{{100, 50}, {Inherited, Inherited}}], Cell[StyleData["3ColumnTable", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->9] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Slide Show Styles", "Section"], Cell[CellGroupData[{ Cell[StyleData["SlideShowNavigationBar"], CellFrame->True, CellMargins->{{0, 0}, {3, 50}}, CellElementSpacings->{"CellMinHeight"->0.8125}, CellGroupingRules->{"SectionGrouping", 0}, CellFrameMargins->False, CellFrameColor->GrayLevel[1], CellFrameLabelMargins->False, CounterIncrements->"SlideShowNavigationBar", StyleMenuListing->None, FontSize->10, Magnification->1, Background->GrayLevel[1], GridBoxOptions->{ ColumnAlignments->{ Center, Center, Center, Center, Center, Center, Right, Center}, ColumnSpacings->0, ColumnWidths->{3.5, 3.5, 3.5, 3.5, 40, 5, 4}, GridBaseline->Center, RowAlignments->Baseline, RowSpacings->0}], Cell[StyleData["SlideShowNavigationBar", "Working"], CellFrame->{{3, 0}, {0, 3}}, CellFrameColor->RGBColor[1, 0, 1]], Cell[StyleData["SlideShowNavigationBar", "Presentation"], FontSize->10, Magnification->1], Cell[StyleData["SlideShowNavigationBar", "SlideShow"], Deletable->False, ShowCellBracket->False, CellMargins->{{-1, -1}, {-1, -1}}, PageBreakAbove->True, CellFrameMargins->{{1, 1}, {0, 0}}, Background->RGBColor[0.827451, 0.333333, 0.258824]], Cell[StyleData["SlideShowNavigationBar", "Printout"], CellOpen->False, FontSize->1] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SlideShowSection"], CellFrame->{{0, 0}, {0, 0.5}}, CellMargins->{{0, 0}, {10, 0}}, CellGroupingRules->{"SectionGrouping", 40}, PageBreakBelow->False, CellFrameMargins->{{12, 4}, {6, 12}}, InputAutoReplacements->{"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, CounterIncrements->"Section", CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->24, FontWeight->"Plain", FontColor->GrayLevel[1], Background->RGBColor[0.545098, 0.713726, 0.764706]], Cell[StyleData["SlideShowSection", "Presentation"], CellFrameMargins->{{20, 10}, {10, 18}}, FontSize->27], Cell[StyleData["SlideShowSection", "SlideShow"], ShowCellBracket->False, PageBreakAbove->True], Cell[StyleData["SlideShowSection", "Printout"], CellMargins->{{18, 30}, {0, 30}}, CellFrameMargins->5, FontSize->14] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SlideHyperlink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontSize->26, FontColor->GrayLevel[0.400015], ButtonBoxOptions->{Active->True, ButtonFunction:>(FrontEndExecute[{ FrontEnd`NotebookLocate[#2]}]& ), ButtonMargins->0.5, ButtonMinHeight->0.85, ButtonNote->None}], Cell[StyleData["SlideHyperlink", "Presentation"], CellMargins->{{14, 10}, {6, 12}}], Cell[StyleData["SlideHyperlink", "SlideShow"]], Cell[StyleData["SlideHyperlink", "Printout"], FontSize->10, FontVariations->{"Underline"->False}, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SlidePreviousNextLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontFamily->"Helvetica", FontSize->16, FontColor->GrayLevel[0.500008], ButtonBoxOptions->{Active->True, ButtonFunction:>(FrontEndExecute[{ FrontEnd`NotebookLocate[#2]}]& ), ButtonMargins->0.5, ButtonMinHeight->0.85, ButtonNote->None}], Cell[StyleData["SlidePreviousNextLink", "Presentation"], FontSize->12], Cell[StyleData["SlidePreviousNextLink", "SlideShow"]], Cell[StyleData["SlidePreviousNextLink", "Printout"], FontSize->10, FontVariations->{"Underline"->False}, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["PreviousNext"], CellMargins->{{60, 10}, {7, 7}}, TextAlignment->0.75, LineSpacing->{1, 3}, CounterIncrements->"PreviousNext", FontFamily->"Helvetica", FontSize->14, FontColor->GrayLevel[0.500008]], Cell[StyleData["PreviousNext", "Presentation"], CellMargins->{{24, 50}, {10, 10}}, LineSpacing->{1, 5}, FontSize->12], Cell[StyleData["PreviousNext", "SlideShow"], CellMargins->{{50, 50}, {50, 15}}, FontSize->14], Cell[StyleData["PreviousNext", "Printout"], CellMargins->{{2, 2}, {6, 6}}, TextJustification->0.5, Hyphenation->True, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SlideTOCLink"], CellMargins->{{24, Inherited}, {Inherited, Inherited}}, StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontFamily->"Helvetica", ButtonBoxOptions->{Active->True, ButtonFunction:>(FrontEndExecute[{ FrontEnd`NotebookLocate[#2]}]& ), ButtonMargins->1.5, ButtonNote->ButtonData}], Cell[StyleData["SlideTOCLink", "Presentation"], CellMargins->{{35, 10}, {8, 8}}, FontSize->18], Cell[StyleData["SlideTOCLink", "SlideShow"]], Cell[StyleData["SlideTOCLink", "Printout"], FontVariations->{"Underline"->False}, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SlideTOC"], CellDingbat->"\[Bullet]", CellMargins->{{18, Inherited}, {Inherited, Inherited}}, StyleMenuListing->None, FontFamily->"Helvetica"], Cell[StyleData["SlideTOC", "Presentation"], CellMargins->{{25, 10}, {10, 5}}, FontSize->18], Cell[StyleData["SlideTOC", "SlideShow"], FontSize->14], Cell[StyleData["SlideTOC", "Printout"], FontSize->10, FontColor->GrayLevel[0]] }, Closed]] }, Closed]] }, Open ]] }] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "SlideShowHeader"->{ Cell[590, 23, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[2882, 97, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[5378, 187, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[7777, 270, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[11948, 417, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[15054, 524, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[18177, 630, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[20901, 722, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[23956, 827, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[26229, 903, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[29187, 1011, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[33029, 1136, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[37110, 1266, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[40900, 1389, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[43830, 1487, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[47569, 1608, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[50563, 1716, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[54170, 1838, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[57064, 1940, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[61644, 2096, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[64879, 2214, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[67748, 2309, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[72138, 2468, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[75759, 2600, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[79302, 2731, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[82149, 2830, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[84532, 2909, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[86817, 2987, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[89839, 3092, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"]} } *) (*CellTagsIndex CellTagsIndex->{ {"SlideShowHeader", 196444, 6405} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[1927, 67, 93, 1, 181, "Title"], Cell[2023, 70, 79, 0, 128, "Subtitle"], Cell[2105, 72, 28, 0, 112, "Author"], Cell[2136, 74, 45, 0, 184, "Affiliation"], Cell[2184, 76, 661, 16, 104, "PreviousNext"] }, Open ]], Cell[CellGroupData[{ Cell[2882, 97, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[4219, 141, 33, 0, 83, "Subtitle"], Cell[4255, 143, 62, 0, 60, "Subsection"], Cell[4320, 145, 109, 5, 49, "Subsection"], Cell[4432, 152, 37, 0, 49, "Subsection"], Cell[4472, 154, 126, 5, 49, "Subsection"], Cell[CellGroupData[{ Cell[4623, 163, 42, 0, 49, "Subsection"], Cell[4668, 165, 661, 16, 104, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[5378, 187, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[6715, 231, 69, 2, 83, "Subtitle"], Cell[6787, 235, 39, 0, 60, "Subsection"], Cell[6829, 237, 115, 3, 84, "Subsection"], Cell[CellGroupData[{ Cell[6969, 244, 95, 2, 84, "Subsection"], Cell[7067, 248, 661, 16, 104, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7777, 270, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[9114, 314, 74, 2, 83, "Subtitle"], Cell[CellGroupData[{ Cell[9213, 320, 316, 8, 110, "Input"], Cell[9532, 330, 330, 9, 49, "Output"] }, {2}]], Cell[9874, 342, 210, 6, 83, "Input"], Cell[10087, 350, 233, 6, 49, "Input"], Cell[CellGroupData[{ Cell[10345, 360, 36, 0, 59, "Subsubsection"], Cell[10384, 362, 74, 0, 51, "BulletedList"], Cell[10461, 364, 97, 2, 51, "BulletedList"] }, Open ]], Cell[CellGroupData[{ Cell[10595, 371, 39, 0, 59, "Subsubsection"], Cell[10637, 373, 314, 9, 54, "BulletedList"], Cell[10954, 384, 55, 0, 51, "BulletedList"], Cell[11012, 386, 67, 0, 51, "BulletedList"], Cell[11082, 388, 153, 5, 53, "BulletedList"], Cell[11238, 395, 661, 16, 104, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[11948, 417, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[13285, 461, 74, 2, 83, "Subtitle"], Cell[CellGroupData[{ Cell[13384, 467, 75, 2, 60, "Subsection"], Cell[13462, 471, 65, 0, 51, "BulletedList"], Cell[13530, 473, 67, 0, 51, "BulletedList"], Cell[CellGroupData[{ Cell[13622, 477, 431, 12, 151, "Input"], Cell[14056, 491, 276, 8, 49, "Output"] }, {2}]], Cell[14344, 502, 661, 16, 104, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[15054, 524, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[16391, 568, 81, 2, 83, "Subtitle"], Cell[CellGroupData[{ Cell[16497, 574, 54, 0, 60, "Subsection"], Cell[16554, 576, 31, 0, 51, "BulletedList"], Cell[16588, 578, 67, 0, 51, "BulletedList"], Cell[16658, 580, 66, 0, 51, "BulletedList"], Cell[16727, 582, 56, 0, 51, "BulletedList"], Cell[CellGroupData[{ Cell[16808, 586, 315, 8, 110, "Input"], Cell[17126, 596, 329, 9, 49, "Output"] }, {2}]], Cell[17467, 608, 661, 16, 104, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[18177, 630, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[19514, 674, 54, 0, 83, "Subtitle"], Cell[19571, 676, 66, 0, 60, "Subsection"], Cell[19640, 678, 93, 2, 84, "Subsection"], Cell[19736, 682, 65, 0, 49, "Subsection"], Cell[CellGroupData[{ Cell[19826, 686, 68, 0, 49, "Subsection"], Cell[19897, 688, 38, 0, 51, "BulletedList"], Cell[19938, 690, 76, 0, 51, "BulletedList"], Cell[20017, 692, 43, 0, 51, "BulletedList"], Cell[20063, 694, 40, 0, 51, "BulletedList"], Cell[20106, 696, 82, 2, 51, "BulletedList"], Cell[20191, 700, 661, 16, 104, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[20901, 722, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[22238, 766, 60, 0, 83, "Subtitle"], Cell[22301, 768, 49, 0, 60, "Subsection"], Cell[CellGroupData[{ Cell[22375, 772, 63, 0, 49, "Subsection"], Cell[CellGroupData[{ Cell[22463, 776, 412, 11, 35, "Input"], Cell[22878, 789, 272, 8, 49, "Output"] }, {2}]] }, Open ]], Cell[CellGroupData[{ Cell[23196, 803, 47, 0, 60, "Subsection"], Cell[23246, 805, 661, 16, 104, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[23956, 827, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[25293, 871, 60, 0, 83, "Subtitle"], Cell[CellGroupData[{ Cell[25378, 875, 47, 0, 60, "Subsection"], Cell[25428, 877, 42, 0, 51, "BulletedList"], Cell[25473, 879, 43, 0, 51, "BulletedList"], Cell[25519, 881, 661, 16, 104, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[26229, 903, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[27566, 947, 129, 5, 84, "Subtitle"], Cell[CellGroupData[{ Cell[27720, 956, 37, 0, 60, "Subsection"], Cell[27760, 958, 143, 5, 53, "BulletedList"], Cell[27906, 965, 56, 0, 51, "BulletedList"] }, Open ]], Cell[27977, 968, 66, 0, 60, "Subsection"], Cell[CellGroupData[{ Cell[28068, 972, 95, 2, 84, "Subsection"], Cell[28166, 976, 96, 2, 51, "BulletedList"], Cell[28265, 980, 93, 2, 51, "BulletedList"], Cell[28361, 984, 113, 3, 79, "BulletedList"], Cell[28477, 989, 661, 16, 104, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[29187, 1011, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[30524, 1055, 126, 5, 84, "Subtitle"], Cell[30653, 1062, 425, 13, 83, "Input"], Cell[31081, 1077, 1177, 33, 253, "Input"], Cell[32261, 1112, 67, 1, 49, "Input"], Cell[32331, 1115, 661, 16, 104, "PreviousNext"] }, Open ]], Cell[CellGroupData[{ Cell[33029, 1136, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[34366, 1180, 128, 5, 84, "Subtitle"], Cell[CellGroupData[{ Cell[34519, 1189, 43, 0, 60, "Subsection"], Cell[34565, 1191, 79, 0, 51, "BulletedList"], Cell[34647, 1193, 97, 2, 51, "BulletedList"], Cell[34747, 1197, 1589, 42, 593, "Input"], Cell[36339, 1241, 58, 1, 49, "Input"], Cell[36400, 1244, 661, 16, 104, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[37110, 1266, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[38447, 1310, 132, 5, 84, "Subtitle"], Cell[38582, 1317, 1341, 38, 355, "Input"], Cell[39926, 1357, 273, 9, 61, "Input"], Cell[40202, 1368, 661, 16, 104, "PreviousNext"] }, Open ]], Cell[CellGroupData[{ Cell[40900, 1389, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[42237, 1433, 136, 5, 129, "Subtitle"], Cell[42376, 1440, 555, 15, 219, "Input"], Cell[42934, 1457, 77, 2, 49, "Input"], Cell[43014, 1461, 115, 3, 49, "Input"], Cell[43132, 1466, 661, 16, 104, "PreviousNext"] }, Open ]], Cell[CellGroupData[{ Cell[43830, 1487, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[45167, 1531, 128, 5, 84, "Subtitle"], Cell[45298, 1538, 1314, 38, 287, "Input"], Cell[46615, 1578, 253, 7, 49, "Input"], Cell[46871, 1587, 661, 16, 104, "PreviousNext"] }, Open ]], Cell[CellGroupData[{ Cell[47569, 1608, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[48906, 1652, 144, 5, 129, "Subtitle"], Cell[49053, 1659, 103, 3, 49, "Input"], Cell[49159, 1664, 184, 6, 49, "Input"], Cell[49346, 1672, 183, 6, 49, "Input"], Cell[49532, 1680, 162, 5, 49, "Input"], Cell[49697, 1687, 105, 3, 49, "Input"], Cell[49805, 1692, 57, 1, 49, "Input"], Cell[49865, 1695, 661, 16, 104, "PreviousNext"] }, Open ]], Cell[CellGroupData[{ Cell[50563, 1716, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[51900, 1760, 54, 0, 83, "Subtitle"], Cell[CellGroupData[{ Cell[51979, 1764, 32, 0, 59, "Subsubsection"], Cell[52014, 1766, 323, 9, 49, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[52374, 1780, 269, 7, 61, "Subsubsection"], Cell[52646, 1789, 223, 7, 32, "Input"], Cell[52872, 1798, 585, 16, 40, "PreviousNext"], Cell[53460, 1816, 661, 16, 40, "PreviousNext"] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[54170, 1838, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[55507, 1882, 54, 0, 83, "Subtitle"], Cell[CellGroupData[{ Cell[55586, 1886, 44, 0, 60, "Subsection"], Cell[55633, 1888, 49, 0, 51, "BulletedList"], Cell[55685, 1890, 44, 1, 49, "Input"], Cell[55732, 1893, 51, 0, 51, "BulletedList"], Cell[55786, 1895, 40, 0, 49, "Input"], Cell[55829, 1897, 52, 0, 51, "BulletedList"], Cell[55884, 1899, 182, 5, 83, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[56103, 1909, 43, 0, 60, "Subsection"], Cell[56149, 1911, 202, 5, 117, "Input"], Cell[56354, 1918, 661, 16, 104, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[57064, 1940, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[58401, 1984, 99, 2, 128, "Subtitle"], Cell[CellGroupData[{ Cell[58525, 1990, 270, 7, 54, "Subsection"], Cell[CellGroupData[{ Cell[58820, 2001, 244, 7, 49, "Input"], Cell[59067, 2010, 464, 11, 55, "Message"] }, Open ]], Cell[59546, 2024, 85, 2, 51, "BulletedList"], Cell[59634, 2028, 268, 8, 83, "Input"], Cell[59905, 2038, 59, 0, 51, "BulletedList"], Cell[59967, 2040, 263, 9, 49, "Input"], Cell[60233, 2051, 110, 3, 49, "Input"], Cell[60346, 2056, 585, 16, 104, "PreviousNext"], Cell[60934, 2074, 661, 16, 104, "PreviousNext"] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[61644, 2096, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[62981, 2140, 73, 2, 83, "Subtitle"], Cell[CellGroupData[{ Cell[63079, 2146, 81, 2, 60, "Subsection"], Cell[63163, 2150, 113, 3, 49, "Input"], Cell[63279, 2155, 326, 8, 117, "Input"], Cell[63608, 2165, 131, 3, 49, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[63776, 2173, 43, 0, 60, "Subsection"], Cell[63822, 2175, 110, 3, 49, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[63969, 2183, 83, 2, 60, "Subsection"], Cell[64055, 2187, 111, 3, 49, "Input"], Cell[64169, 2192, 661, 16, 104, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[64879, 2214, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[66216, 2258, 59, 0, 83, "Subtitle"], Cell[66278, 2260, 222, 5, 49, "Input"], Cell[66503, 2267, 295, 9, 49, "Input"], Cell[66801, 2278, 246, 8, 75, "Input"], Cell[67050, 2288, 661, 16, 104, "PreviousNext"] }, Open ]], Cell[CellGroupData[{ Cell[67748, 2309, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[69085, 2353, 77, 2, 83, "Subtitle"], Cell[CellGroupData[{ Cell[69187, 2359, 37, 0, 60, "Subsection"], Cell[69227, 2361, 288, 8, 83, "Input"], Cell[69518, 2371, 187, 6, 49, "Input"], Cell[69708, 2379, 180, 6, 49, "Input"], Cell[69891, 2387, 131, 4, 49, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[70059, 2396, 43, 0, 60, "Subsection"], Cell[70105, 2398, 183, 5, 49, "Input"], Cell[70291, 2405, 391, 11, 49, "Input"], Cell[70685, 2418, 259, 8, 49, "Input"], Cell[70947, 2428, 478, 16, 52, "Input"], Cell[71428, 2446, 661, 16, 104, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[72138, 2468, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[73475, 2512, 77, 2, 83, "Subtitle"], Cell[CellGroupData[{ Cell[73577, 2518, 39, 0, 60, "Subsection"], Cell[73619, 2520, 285, 9, 75, "Input"], Cell[73907, 2531, 201, 6, 52, "Input"], Cell[74111, 2539, 158, 5, 49, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[74306, 2549, 90, 2, 60, "Subsection"], Cell[74399, 2553, 289, 9, 75, "Input"], Cell[74691, 2564, 190, 5, 52, "Input"], Cell[74884, 2571, 162, 5, 49, "Input"], Cell[75049, 2578, 661, 16, 104, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[75759, 2600, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[77096, 2644, 99, 2, 128, "Subtitle"], Cell[CellGroupData[{ Cell[77220, 2650, 39, 0, 60, "Subsection"], Cell[77262, 2652, 386, 12, 52, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[77685, 2669, 58, 0, 60, "Subsection"], Cell[77746, 2671, 191, 6, 49, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[77974, 2682, 31, 0, 60, "Subsection"], Cell[78008, 2684, 158, 4, 83, "Input"], Cell[78169, 2690, 29, 0, 49, "Input"], Cell[78201, 2692, 68, 1, 49, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[78306, 2698, 47, 0, 60, "Subsection"], Cell[78356, 2700, 233, 7, 49, "Input"], Cell[78592, 2709, 661, 16, 104, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[79302, 2731, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[80639, 2775, 69, 2, 83, "Subtitle"], Cell[CellGroupData[{ Cell[80733, 2781, 120, 3, 95, "Subsection"], Cell[80856, 2786, 386, 12, 52, "Input"], Cell[81245, 2800, 191, 6, 49, "Input"], Cell[81439, 2808, 661, 16, 104, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[82149, 2830, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[83486, 2874, 89, 2, 83, "Subtitle"], Cell[83578, 2878, 65, 0, 60, "Subsection"], Cell[83646, 2880, 83, 1, 84, "Subsection"], Cell[CellGroupData[{ Cell[83754, 2885, 65, 0, 49, "Subsection"], Cell[83822, 2887, 661, 16, 104, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[84532, 2909, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[85869, 2953, 55, 0, 83, "Subtitle"], Cell[85927, 2955, 32, 0, 60, "Subsection"], Cell[85962, 2957, 25, 0, 49, "Subsection"], Cell[85990, 2959, 46, 0, 49, "Subsection"], Cell[CellGroupData[{ Cell[86061, 2963, 43, 0, 49, "Subsection"], Cell[86107, 2965, 661, 16, 104, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[86817, 2987, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[88154, 3031, 78, 2, 83, "Subtitle"], Cell[CellGroupData[{ Cell[88257, 3037, 48, 0, 60, "Subsection"], Cell[88308, 3039, 47, 0, 51, "BulletedList"] }, Open ]], Cell[CellGroupData[{ Cell[88392, 3044, 51, 0, 60, "Subsection"], Cell[88446, 3046, 602, 17, 185, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[89085, 3068, 41, 0, 60, "Subsection"], Cell[89129, 3070, 661, 16, 104, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[89839, 3092, 1334, 42, 20, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[91176, 3136, 43, 0, 83, "Subtitle"], Cell[91222, 3138, 49, 0, 49, "Text"], Cell[91274, 3140, 53, 0, 60, "Subsection"], Cell[91330, 3142, 31, 0, 49, "Subsection"], Cell[91364, 3144, 40, 0, 49, "Subsection"], Cell[91407, 3146, 53, 0, 49, "Subsection"], Cell[91463, 3148, 54, 0, 49, "Subsection"], Cell[CellGroupData[{ Cell[91542, 3152, 32, 0, 49, "Subsection"], Cell[91577, 3154, 661, 16, 104, "PreviousNext"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)