(* 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[ 163475, 4204] NotebookOptionsPosition[ 47839, 1493] NotebookOutlinePosition[ 151731, 3825] CellTagsIndexPosition[ 151651, 3820] WindowFrame->Normal ContainsDynamic->True *) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell["Power-using the new front end", "Title", CellChangeTimes->{{3.369523054003917*^9, 3.369523057648977*^9}}], Cell["Getting the most from your shiny new CD", "Subtitle", CellChangeTimes->{{3.3695263084089003`*^9, 3.3695263187940407`*^9}}], Cell["John Fultz", "Author", CellChangeTimes->{{3.3695230613941755`*^9, 3.36952306294633*^9}}], Cell["Wolfram Research, Inc.", "Affiliation", CellChangeTimes->{{3.3695230648890266`*^9, 3.369523068143544*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Things I'm not going to discuss", "Section", CellChangeTimes->{{3.3695231031821804`*^9, 3.3695231071777267`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Print", "[", RowBox[{"Style", "[", RowBox[{ RowBox[{"Grid", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\<\[Bullet] Just how does \>\"", ",", RowBox[{"Style", "[", RowBox[{ "Manipulate", ",", "\"\\"", ",", "\"\\""}], "]"}], ",", "\"\< work?\>\""}], "}"}], "]"}], ",", " ", "\"\\"", ",", " ", "\"\\""}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ "\"\<\[Bullet] Let me edit graphics!\>\"", ",", " ", "\"\<10am\>\"", ",", " ", "\"\\""}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ "\"\<\[Bullet] Demos! Demos! Demos!\>\"", ",", " ", "\"\<11am\>\"", ",", " ", "\"\\""}], "}"}]}], "\[IndentingNewLine]", "}"}], ",", " ", RowBox[{"Dividers", "->", "True"}], ",", " ", RowBox[{"Spacings", "->", RowBox[{"{", RowBox[{"Automatic", ",", " ", RowBox[{"{", RowBox[{"1.2", ",", " ", RowBox[{"{", ".6", "}"}], ",", " ", "1.2"}], "}"}]}], "}"}]}]}], "]"}], ",", "\"\\"", ",", " ", RowBox[{"FontFamily", "->", "\"\\""}], ",", "20"}], "]"}], "]"}]], "Input", ShowCellBracket->False, CellChangeTimes->{{3.3695236464503546`*^9, 3.369523899687016*^9}, { 3.3695239462944994`*^9, 3.3695239565393324`*^9}, {3.3695240038979034`*^9, 3.369524003978019*^9}, {3.3695241721815615`*^9, 3.3695242150135775`*^9}, { 3.369524282741641*^9, 3.369524302239873*^9}, {3.3695243690666313`*^9, 3.3695243788808413`*^9}, {3.3695244328790255`*^9, 3.3695244335299673`*^9}, { 3.3695403295659475`*^9, 3.369540362313035*^9}, {3.3695404029314413`*^9, 3.369540439814477*^9}, {3.3696578970006576`*^9, 3.369657923669005*^9}}], Cell[BoxData[ StyleBox[ TagBox[GridBox[{ { InterpretationBox[ RowBox[{"\<\"\[Bullet] Just how does \"\>", "\[InvisibleSpace]", StyleBox["Manipulate", "Input", "StandardForm", StripOnInput->False], "\[InvisibleSpace]", "\<\" work?\"\>"}], Row[{"\[Bullet] Just how does ", Style[Manipulate, "Input", "StandardForm"], " work?"}]], "\<\"Stick around...\"\>", "\<\"Lou \ D\[CloseCurlyQuote]Andria\"\>"}, {"\<\"\[Bullet] Let me edit graphics!\"\>", "\<\"10am\"\>", "\<\"Chris \ Carlson, Chris Hill\"\>"}, {"\<\"\[Bullet] Demos! Demos! Demos!\"\>", "\<\"11am\"\>", "\<\"Jeff \ Bryant\"\>"} }, GridBoxDividers->{ "Columns" -> {True, {}, True}, "Rows" -> {True, {}, True}}, GridBoxSpacings->{ "Columns" -> {{Automatic}}, "Rows" -> {1.2, {0.6}, 1.2}}], "Grid"], "DefinitionBox3Col", StripOnInput->False, FontFamily->"Times", FontSize->20]], "Print", CellChangeTimes->{ 3.3695239001877413`*^9, 3.3695239581616817`*^9, 3.369524004819237*^9, { 3.3695241949945917`*^9, 3.369524215434187*^9}, {3.3695242963613615`*^9, 3.3695243025803657`*^9}, 3.369524382145568*^9, 3.3695244349119687`*^9, { 3.3695404077383537`*^9, 3.3695404407157726`*^9}, 3.369657927434419*^9}] }, {2}]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Things I'm not going to discuss", "Section", CellChangeTimes->{{3.3695231031821804`*^9, 3.3695231071777267`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Print", "[", RowBox[{"Style", "[", RowBox[{ RowBox[{"Grid", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\<\[Bullet] Just how does \>\"", ",", RowBox[{"Style", "[", RowBox[{ "Manipulate", ",", "\"\\"", ",", "\"\\""}], "]"}], ",", "\"\< work?\>\""}], "}"}], "]"}], ",", " ", "\"\\"", ",", " ", "\"\\""}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ "\"\<\[Bullet] Let me edit graphics!\>\"", ",", " ", "\"\<10am\>\"", ",", " ", "\"\\""}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ "\"\<\[Bullet] Demos! Demos! Demos!\>\"", ",", " ", "\"\<11am\>\"", ",", " ", "\"\\""}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", "\"\<\[Bullet] Friday the 13th\>\"", "}"}]}], "\[IndentingNewLine]", "}"}], ",", " ", RowBox[{"Dividers", "->", "True"}], ",", " ", RowBox[{"Spacings", "->", RowBox[{"{", RowBox[{"Automatic", ",", " ", RowBox[{"{", RowBox[{"1.2", ",", " ", RowBox[{"{", ".6", "}"}], ",", " ", "1.2"}], "}"}]}], "}"}]}]}], "]"}], ",", "\"\\"", ",", " ", RowBox[{"FontFamily", "->", "\"\\""}], ",", "20"}], "]"}], "]"}]], "Input", ShowCellBracket->False, CellChangeTimes->{{3.3695236464503546`*^9, 3.369523899687016*^9}, { 3.3695239462944994`*^9, 3.3695239565393324`*^9}, {3.3695240038979034`*^9, 3.369524003978019*^9}, {3.3695241721815615`*^9, 3.3695242150135775`*^9}, { 3.369524282741641*^9, 3.369524302239873*^9}, {3.3695243690666313`*^9, 3.3695243788808413`*^9}, {3.3695244160646796`*^9, 3.3695244169459553`*^9}, 3.3695404586615777`*^9, {3.369657937418776*^9, 3.3696579398322463`*^9}}], Cell[BoxData[ StyleBox[ TagBox[GridBox[{ { InterpretationBox[ RowBox[{"\<\"\[Bullet] Just how does \"\>", "\[InvisibleSpace]", StyleBox["Manipulate", "Input", "StandardForm", StripOnInput->False], "\[InvisibleSpace]", "\<\" work?\"\>"}], Row[{"\[Bullet] Just how does ", Style[Manipulate, "Input", "StandardForm"], " work?"}]], "\<\"Stick around...\"\>", "\<\"Lou \ D\[CloseCurlyQuote]Andria\"\>"}, {"\<\"\[Bullet] Let me edit graphics!\"\>", "\<\"10am\"\>", "\<\"Chris \ Carlson, Chris Hill\"\>"}, {"\<\"\[Bullet] Demos! Demos! Demos!\"\>", "\<\"11am\"\>", "\<\"Jeff \ Bryant\"\>"}, {"\<\"\[Bullet] Friday the 13th\"\>", "", ""} }, GridBoxDividers->{ "Columns" -> {True, {}, True}, "Rows" -> {True, {}, True}}, GridBoxSpacings->{ "Columns" -> {{Automatic}}, "Rows" -> {1.2, {0.6}, 1.2}}], "Grid"], "DefinitionBox3Col", StripOnInput->False, FontFamily->"Times", FontSize->20]], "Print", CellChangeTimes->{ 3.3695239001877413`*^9, 3.3695239581616817`*^9, 3.369524004819237*^9, { 3.3695241949945917`*^9, 3.369524215434187*^9}, {3.3695242963613615`*^9, 3.3695243025803657`*^9}, 3.369524382145568*^9, 3.36952441996032*^9, 3.3695404606244*^9, 3.369657943827992*^9}] }, {2}]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["A few themes", "Section", CellChangeTimes->{{3.3695231031821804`*^9, 3.3695231071777267`*^9}, { 3.369524601393017*^9, 3.3695246029753075`*^9}}], Cell["Writing code", "Subsection", CellChangeTimes->{{3.369524791938908*^9, 3.369524798408275*^9}}], Cell["Managing documents", "Subsection", CellChangeTimes->{{3.3695248119578934`*^9, 3.3695248156232004`*^9}}], Cell["Improving the interface", "Subsection", CellChangeTimes->{{3.3695248799964066`*^9, 3.36952488263022*^9}, { 3.369649449644557*^9, 3.3696494567347517`*^9}, {3.369650289752573*^9, 3.369650293568059*^9}}], Cell["Your suggestions", "Subsection", CellChangeTimes->{{3.369524953612996*^9, 3.3695249552053013`*^9}, 3.3696494688421617`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Writing code \[LongDash] Syntax coloring", "Section", CellChangeTimes->{{3.3695250920634584`*^9, 3.369525099404087*^9}, { 3.369586236555995*^9, 3.3695862435985217`*^9}}], Cell[CellGroupData[{ Cell["A few typical examples", "Subsection", CellChangeTimes->{{3.3695251515195456`*^9, 3.369525186840687*^9}, { 3.3695828374248943`*^9, 3.3695828550324945`*^9}, {3.3695835346290307`*^9, 3.3695835469884043`*^9}}], Cell[CellGroupData[{ Cell["System variables", "Subsubsection", CellChangeTimes->{{3.3695255373380685`*^9, 3.3695255563467283`*^9}, { 3.3695835501633816`*^9, 3.369583583575757*^9}}], Cell[BoxData["Plo"], "Input", CellChangeTimes->{{3.3695835851882844`*^9, 3.369583585649007*^9}, { 3.36973347804596*^9, 3.3697334802290993`*^9}}], Cell[BoxData["Plot"], "Input", CellChangeTimes->{{3.3695835876922092`*^9, 3.3695835882430725`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["String and comments", "Subsubsection", CellChangeTimes->{{3.3695836063915215`*^9, 3.3695836122507057`*^9}}], Cell[BoxData[ RowBox[{"f", "[", "\"\\"", " ", RowBox[{"(*", " ", RowBox[{"the", " ", "discussion", " ", "topic"}], " ", "*)"}], "]"}]], "Input", CellChangeTimes->{{3.369583616717708*^9, 3.369583633784461*^9}, { 3.3695840643794355`*^9, 3.3695840739544444`*^9}, {3.369584448090918*^9, 3.3695844495532103`*^9}, {3.369584487292368*^9, 3.3695844902069364`*^9}, { 3.3695846317788563`*^9, 3.369584651559863*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Local variables", "Subsubsection", CellChangeTimes->{{3.3695836471153574`*^9, 3.369583649499094*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", "x"}]], "Input", CellChangeTimes->{{3.3695836716638384`*^9, 3.369583675499851*^9}}], Cell[BoxData[ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "x", "}"}], ",", " ", "x"}], "]"}]], "Input", CellChangeTimes->{{3.3695836881997585`*^9, 3.36958369429932*^9}}], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{"x", ",", " ", RowBox[{"{", RowBox[{"x", ",", " ", "0", ",", " ", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.369584605127078*^9, 3.3695846054575963`*^9}, { 3.3695846616156263`*^9, 3.3695846659824715`*^9}}], Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{ SuperscriptBox["x", "2"], "y"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", " ", "0", ",", " ", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.369584670820054*^9, 3.369584682147811*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ And even a few tricky scoping issues, which Why the Coloring might help to \ explain\ \>", "Subsubsection", CellChangeTimes->{{3.3695838939022055`*^9, 3.3695839172287707`*^9}, { 3.3697178015461025`*^9, 3.369717814875269*^9}}], Cell[BoxData[ RowBox[{"expr", " ", "/.", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], "\[RuleDelayed]", "x"}], ",", " ", RowBox[{ RowBox[{"g", "[", "x_", "]"}], "\[Rule]", "x"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.3695839193520994`*^9, 3.3695839303693695`*^9}, { 3.3695840011002426`*^9, 3.3695840021919537`*^9}, {3.3695843027430797`*^9, 3.3695843287238054`*^9}, {3.3695844382555003`*^9, 3.3695844397177925`*^9}}], Cell[BoxData[ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"x", "=", "1"}], "}"}], ",", " ", RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"x", "=", "2"}], "}"}], ",", " ", "x"}], "]"}], ";", " ", "x"}]}], "]"}]], "Input", CellChangeTimes->{{3.3695843503877645`*^9, 3.369584423191888*^9}}], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.3697336239457536`*^9, 3.3697336246968336`*^9}}] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Writing code \[LongDash] Syntax coloring", "Section", CellChangeTimes->{{3.3695250920634584`*^9, 3.369525099404087*^9}, { 3.369586225437793*^9, 3.3695862515001373`*^9}}], Cell[CellGroupData[{ Cell["Seeking out bad code, or staying out the red", "Subsection", CellChangeTimes->{{3.3695251515195456`*^9, 3.369525186840687*^9}, { 3.3695828374248943`*^9, 3.3695828550324945`*^9}}], Cell[CellGroupData[{ Cell["Sometimes code is just wrong", "Subsubsection", CellChangeTimes->{{3.3695255373380685`*^9, 3.3695255563467283`*^9}}], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", " ", "0", ",", " ", RowBox[{"2", "\[Pi]"}]}], "}"}], ",", " ", RowBox[{"Plotrange", "->", "All"}]}], "]"}]], "Input", CellChangeTimes->{{3.3695251947020693`*^9, 3.369525214891301*^9}}], Cell[BoxData[ RowBox[{"Log", "[", RowBox[{"180", ",", "000", ",", " ", "3"}], "]"}]], "Input", CellChangeTimes->{{3.369525216854143*^9, 3.3695252485900936`*^9}}] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Writing code \[LongDash] Syntax coloring", "Section", CellChangeTimes->{{3.3695250920634584`*^9, 3.369525099404087*^9}, 3.369586220053506*^9, {3.3695862547151003`*^9, 3.3695862558256054`*^9}}], Cell[CellGroupData[{ Cell["Seeking out bad code, or staying out the red", "Subsection", CellChangeTimes->{{3.3695251515195456`*^9, 3.369525186840687*^9}, { 3.3695828374248943`*^9, 3.3695828550324945`*^9}}], Cell[CellGroupData[{ Cell["Sometimes code is just wrong...", "Subsubsection", CellChangeTimes->{{3.3695255373380685`*^9, 3.3695255563467283`*^9}, { 3.3696085165261555`*^9, 3.369608516817194*^9}}], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", " ", "0", ",", " ", RowBox[{"2", "\[Pi]"}]}], "}"}], ",", " ", RowBox[{"Plotrange", "->", "All"}]}], "]"}]], "Input", CellChangeTimes->{{3.3695251947020693`*^9, 3.369525214891301*^9}}], Cell[BoxData[ RowBox[{"Log", "[", RowBox[{"180", ",", "000", ",", " ", "3"}], "]"}]], "Input", CellChangeTimes->{{3.369525216854143*^9, 3.3695252485900936`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["...or just appears wrong...", "Subsubsection", CellChangeTimes->{{3.3695255519000235`*^9, 3.369525567553625*^9}, { 3.3696085192358217`*^9, 3.3696085215139484`*^9}}], Cell[BoxData[ RowBox[{"If", "[", RowBox[{ RowBox[{"x", "=", "1"}], ",", RowBox[{"x", "++"}]}], "]"}]], "Input", CellChangeTimes->{{3.3695254026249585`*^9, 3.3695254535317116`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", " ", "0", ",", " ", RowBox[{"2", "\[Pi]"}]}], "}"}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.3695255031365023`*^9, 3.369525508234188*^9}}], Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"Dynamic", "[", "var", "]"}], ",", " ", RowBox[{"{", RowBox[{"var", ",", " ", "10"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.3695258232215595`*^9, 3.3695258363707294`*^9}, { 3.3695847866916876`*^9, 3.369584798670465*^9}}] }, Open ]], Cell["...which is why you can tweak it in the Preferences dialog.", \ "Subsubsection", CellChangeTimes->{{3.369608525307481*^9, 3.3696085336371946`*^9}}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Writing code \[LongDash] Syntax coloring", "Section", CellChangeTimes->{{3.3695912902304506`*^9, 3.369591300255065*^9}}], Cell[CellGroupData[{ Cell["\<\ What if I could color anything I wanted to?\ \>", "Subsection", CellChangeTimes->{{3.3695912902304506`*^9, 3.369591300255065*^9}}], Cell[CellGroupData[{ Cell[TextData[StyleBox[ButtonBox["Priority #1", Evaluator->None, ButtonFunction:>(SelectionMove[ ButtonNotebook[], All, ButtonCell]; FrontEndToken[ ButtonNotebook[], "OpenCloseGroup"]), ButtonFrame->None], FontSize->20]], "Subsubsection", ShowSelection->False], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"min", " ", "=", " ", RowBox[{"Min", "[", "data", "]"}]}], ";"}]], "Input", ShowCellLabel->True, CellLabelAutoDelete->False, AutoStyleOptions->{"HighlightUndefinedSymbols"->False}, CellLabel->"In[1]:="], 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", ShowCellLabel->True, CellLabelAutoDelete->False, CellLabel->"From In[1]:="] }, 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"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Writing code \[LongDash] Syntax coloring", "Section", CellChangeTimes->{{3.3695250920634584`*^9, 3.369525099404087*^9}, 3.369586215907905*^9, {3.3695862591167383`*^9, 3.3695862606310635`*^9}}], Cell[CellGroupData[{ Cell["\<\ More than static syntax analysis \[Dash] getting the kernel involved\ \>", "Subsection", CellChangeTimes->{{3.3695251515195456`*^9, 3.369525186840687*^9}, { 3.369525705489922*^9, 3.3695257138621273`*^9}, {3.3695828722294517`*^9, 3.3695829221276693`*^9}}], Cell["\<\ Note that syntax coloring is far more sophisticated than just checking a \ database of syntaxes. We know...\ \>", "Text", CellChangeTimes->{{3.3695255373380685`*^9, 3.3695255563467283`*^9}, { 3.3695257503353004`*^9, 3.3695257809799767`*^9}, {3.3695823052506905`*^9, 3.369582306803124*^9}}], Cell[CellGroupData[{ Cell["...when a function is defined", "Subsubsection", CellChangeTimes->{{3.369582309867928*^9, 3.3695823128225594`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"myGoodFunction", "[", "x_", "]"}], ":=", RowBox[{"x", "+", "1"}]}]], "Input", CellChangeTimes->{{3.369525786047364*^9, 3.3695258156304927`*^9}, { 3.3695259163373103`*^9, 3.3695259170082884`*^9}}], Cell[BoxData[ RowBox[{"myGoodFunction", "[", "5", "]"}]], "Input", CellChangeTimes->{{3.369525923417632*^9, 3.369525928905633*^9}}], Cell[BoxData[ RowBox[{"mygoodFunction", "[", "5", "]"}]], "Input", CellChangeTimes->{{3.3695259331818676`*^9, 3.369525938099036*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["...when there's a shadowing conflict", "Subsubsection", CellChangeTimes->{{3.3695823163380704`*^9, 3.3695823274154344`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ "Global`whichContext", ",", " ", "System`whichContext", ",", " ", "whichContext"}], "}"}], ";"}]], "Input", CellChangeTimes->{{3.369525977386312*^9, 3.3695259877414083`*^9}, { 3.369581952607909*^9, 3.369581983526375*^9}, {3.369582382952491*^9, 3.369582388120592*^9}, 3.3695860306345034`*^9, {3.36971311534768*^9, 3.3697131244207263`*^9}}], Cell[BoxData[ RowBox[{"Remove", "[", "Global`whichContext", "]"}]], "Input", CellChangeTimes->{{3.3695819884340677`*^9, 3.3695819914287624`*^9}, { 3.3695823686801186`*^9, 3.369582370322693*^9}, {3.3695824017319283`*^9, 3.369582404566372*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["...and even what context a symbol is in", "Subsubsection", CellChangeTimes->{{3.3695823163380704`*^9, 3.3695823274154344`*^9}, { 3.3695849250385523`*^9, 3.369584939060532*^9}}], Cell[BoxData[ RowBox[{"SetOptions", "[", RowBox[{"$FrontEnd", ",", " ", RowBox[{"AutoStyleOptions", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", "Green", "}"}]}], ",", " ", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", "24", "}"}]}]}], "}"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.36958494104364*^9, 3.3695849550455894`*^9}, { 3.3695849877568655`*^9, 3.3695851041392994`*^9}, {3.369713234438925*^9, 3.3697132387451167`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"Context1`purpleSymbol", ",", " ", "Context2`bigSymbol"}], "}"}], ";"}]], "Input", CellChangeTimes->{{3.3695851344968863`*^9, 3.3695851917065644`*^9}, 3.369586014142004*^9, {3.3697132228923216`*^9, 3.369713224734971*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"$ContextPath", "=", RowBox[{"Join", "[", RowBox[{"$ContextPath", ",", " ", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "\"\\""}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.3695852071607895`*^9, 3.369585211327321*^9}, { 3.3695852485466547`*^9, 3.3695852752941265`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"purpleSymbol", ",", " ", "bigSymbol"}], "}"}]], "Input", CellChangeTimes->{{3.369585197505655*^9, 3.369585204406472*^9}, { 3.3697132173643727`*^9, 3.3697132194073105`*^9}}], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.369734004903544*^9, 3.369734005654624*^9}}] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["\<\ Writing code \[LongDash] Suppressing outputs and errors\ \>", "Section", CellChangeTimes->{{3.3695915375475035`*^9, 3.369591562108239*^9}, { 3.369591651973877*^9, 3.3695916619544945`*^9}, {3.369591722701206*^9, 3.369591731995961*^9}}], Cell[BoxData[ RowBox[{"Range", "[", SuperscriptBox["10", RowBox[{"5", "]"}]]}]], "Input", CellChangeTimes->{{3.3695916633870463`*^9, 3.3695916910910254`*^9}, { 3.369595515161564*^9, 3.369595517885807*^9}, {3.3695955550136366`*^9, 3.369595568234228*^9}, {3.369734138044992*^9, 3.369734139947728*^9}, { 3.369770617444171*^9, 3.369770618746043*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Dynamic", "[", RowBox[{"{", RowBox[{"maybeGood", ",", " ", "maybeBad"}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.3695956605279827`*^9, 3.369595663362397*^9}, { 3.3695957450195837`*^9, 3.3695957769393015`*^9}}], Cell[BoxData[ DynamicBox[ ToBoxes[{$CellContext`maybeGood, $CellContext`maybeBad}, StandardForm], ImageSizeCache->{61.5625, 14.}]], "Output", CellChangeTimes->{3.3697341971499805`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{"maybeGood", ":=", "1"}], "\[IndentingNewLine]", RowBox[{"maybeBad", ":=", RowBox[{"1", "/", "0"}]}]}], "Input", CellChangeTimes->{{3.36959574662208*^9, 3.369595747914092*^9}, { 3.3695957822175226`*^9, 3.369595799374245*^9}}], Cell[BoxData[ RowBox[{"maybeBad", ":=", "0"}]], "Input", CellChangeTimes->{{3.369595809790469*^9, 3.36959581422738*^9}}], Cell[BoxData[ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "}"}], "]"}], ",", " ", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.3", ",", "0.7"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0.5", ",", " ", "a"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", " ", RowBox[{"AspectRatio", "\[Rule]", "b"}]}], "]"}]], "Input", CellChangeTimes->{{3.369596029863248*^9, 3.3695960948845234`*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["\<\ Writing code \[LongDash] Better alternatives to Input[]\ \>", "Section", CellChangeTimes->{{3.3695915375475035`*^9, 3.369591562108239*^9}, { 3.369591651973877*^9, 3.3695916619544945`*^9}, {3.369591722701206*^9, 3.369591731995961*^9}, {3.3697149849460306`*^9, 3.369714990343792*^9}, { 3.369715309022029*^9, 3.3697153139791565`*^9}}], Cell[CellGroupData[{ Cell["Simple message and choice dialogs", "Subsection", CellChangeTimes->{{3.369715000848898*^9, 3.369715008549971*^9}, { 3.369715512965285*^9, 3.3697155195447454`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"x", "=", "True"}], "}"}], ",", RowBox[{ RowBox[{"While", "[", RowBox[{"x", ",", " ", RowBox[{ RowBox[{"Pause", "[", "3", "]"}], ";", "\[IndentingNewLine]", RowBox[{"x", " ", "=", " ", RowBox[{"ChoiceDialog", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "True"}], ",", " ", RowBox[{"\"\\"", "\[Rule]", "False"}]}], "}"}]}], "]"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"MessageDialog", "[", "\"\\"", "]"}]}]}], "\[IndentingNewLine]", "]"}], ";"}]], "Input", CellChangeTimes->{{3.369715014428424*^9, 3.3697150660626707`*^9}, { 3.369715101804064*^9, 3.3697151224838*^9}, {3.3697151714642305`*^9, 3.369715256716818*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Input[] is no longer limited to one-dimensional text", "Subsection", CellChangeTimes->{{3.369715535117138*^9, 3.369715545672315*^9}}], Cell[BoxData[ RowBox[{"Input", "[", "]"}]], "Input", CellChangeTimes->{{3.369715327648813*^9, 3.3697153287604113`*^9}}] }, Open ]], Cell["More constructs available for you to roll your own", "Subsection", CellChangeTimes->{{3.369715609133568*^9, 3.3697156274198627`*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["\<\ Writing code \[LongDash] Editing packages\ \>", "Section", CellChangeTimes->{{3.3695250920634584`*^9, 3.369525099404087*^9}, 3.369586215907905*^9, {3.3695862591167383`*^9, 3.3695862606310635`*^9}, { 3.369590354701168*^9, 3.3695903571823835`*^9}}], Cell[CellGroupData[{ Cell["How it used to be done", "Subsection", CellChangeTimes->{{3.369590372629949*^9, 3.3695903748010125`*^9}}], Cell["Autosave packages", "BulletedList"], Cell["\<\ Write your program in a notebook and Save As Special \[FilledRightTriangle] \ Package\ \>", "BulletedList"], Cell["\<\ Open package in notebook, hope it remains a package when you save\ \>", "BulletedList"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["\<\ Writing code \[LongDash] Editing packages\ \>", "Section", CellChangeTimes->{{3.3695250920634584`*^9, 3.369525099404087*^9}, 3.369586215907905*^9, {3.3695862591167383`*^9, 3.3695862606310635`*^9}, { 3.369590354701168*^9, 3.3695903571823835`*^9}}], Cell[CellGroupData[{ Cell["\<\ A small improvement \[LongDash] The Code style\ \>", "Subsection", CellChangeTimes->{{3.3695905822125945`*^9, 3.369590583053006*^9}}], Cell["Named style that's an initialization cell", "Subsubsection"], Cell["Replaces SmallText style as Alt+8/Command+8", "Subsubsection"], Cell[CellGroupData[{ Cell["Acts more like a plain text editor", "Subsubsection", CellChangeTimes->{{3.369608602994609*^9, 3.3696086162318287`*^9}}], Cell["Doesn't line-break", "BulletedList", CellChangeTimes->{{3.3696086331521873`*^9, 3.3696086421844077`*^9}}], Cell["Doesn't auto-indent", "BulletedList"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["\<\ Writing code \[LongDash] Editing packages\ \>", "Section", CellChangeTimes->{{3.3695250920634584`*^9, 3.369525099404087*^9}, 3.369586215907905*^9, {3.3695862591167383`*^9, 3.3695862606310635`*^9}, { 3.369590354701168*^9, 3.3695903571823835`*^9}}], Cell[CellGroupData[{ Cell["\<\ A larger improvement \[LongDash] the package editor\ \>", "Subsection", CellChangeTimes->{{3.369591463885338*^9, 3.3695914735252514`*^9}}], Cell["First-class package support in the front end", "BulletedList"], Cell["\<\ Work with, not against, editing of packages in external editors\ \>", "BulletedList"], Cell["Make .m files as human-readable as possible", "BulletedList"], Cell["\<\ Full support of FE features in package editing, including... \tCell structure \tUse of styles to aid literate programming techniques \tSyntax highlighting \tBracket matching \tDebugging features\ \>", "BulletedList", CellChangeTimes->{{3.3696111651882114`*^9, 3.369611188999058*^9}}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["\<\ Managing documents \[LongDash] Stylesheets\ \>", "Section", CellChangeTimes->{{3.3695915375475035`*^9, 3.369591562108239*^9}, { 3.3696075966045847`*^9, 3.369607597808881*^9}}], Cell[CellGroupData[{ Cell[TextData[{ "How do you ", StyleBox["modify", FontSlant->"Italic"], " stylesheets?" }], "Subsection", CellChangeTimes->{{3.3696076725856266`*^9, 3.369607703345353*^9}, { 3.369607841789214*^9, 3.3696078447999544`*^9}}], Cell["Add new styles", "BulletedList", CellChangeTimes->{{3.369607713983301*^9, 3.3696077158499603`*^9}}], Cell["Make minor changes to existing styles", "BulletedList", CellChangeTimes->{{3.3696077204865*^9, 3.3696077249624667`*^9}}] }, Open ]], Cell["Now we provide an interface which makes these tasks easier", \ "Subsection", CellChangeTimes->{{3.369607883056424*^9, 3.3696079086477137`*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["\<\ Managing documents \[LongDash] Stylesheets\ \>", "Section", CellChangeTimes->{{3.3695915375475035`*^9, 3.369591562108239*^9}, { 3.3696075966045847`*^9, 3.369607597808881*^9}}], Cell[CellGroupData[{ Cell["Stylesheets now fully implement inheritance", "Subsection", CellChangeTimes->{{3.3696076725856266`*^9, 3.369607703345353*^9}, { 3.369607841789214*^9, 3.3696078447999544`*^9}, {3.369607938243288*^9, 3.3696079474461164`*^9}, {3.369608117231781*^9, 3.369608125330672*^9}}], Cell["\<\ Each stylesheet can inherit from one or more parent stylesheets\ \>", "BulletedList", CellChangeTimes->{{3.369607713983301*^9, 3.3696077158499603`*^9}, { 3.3696079505973577`*^9, 3.3696079644567976`*^9}}], Cell["Each style can inherit from another style", "BulletedList", CellChangeTimes->{{3.3696077204865*^9, 3.3696077249624667`*^9}, { 3.36960796686539*^9, 3.3696079841871805`*^9}}], Cell["\<\ Styles automatically inherit from like-named styles in parent stylesheets\ \>", "BulletedList", CellChangeTimes->{{3.3696079868165603`*^9, 3.3696079917039948`*^9}, { 3.3696080353697605`*^9, 3.3696080688993683`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Forward compatibility will now rarely be an issue", "Subsection", CellChangeTimes->{{3.3696081373736315`*^9, 3.3696081589506016`*^9}}], Cell[TextData[{ "Right now, many legacy notebooks will appear to lack new ", StyleBox["Mathematica", FontSlant->"Italic"], " features" }], "BulletedList", CellChangeTimes->{{3.369716383657278*^9, 3.3697164149622927`*^9}}], Cell["\<\ From now on, customized stylesheets will inherit core functionality from \ Wolfram's canonical stylesheets\ \>", "BulletedList", CellChangeTimes->{{3.369608168223681*^9, 3.3696081812802567`*^9}, { 3.369716427229933*^9, 3.369716441200021*^9}}], Cell[TextData[{ "Inherit upgraded visual appearances as Wolfram ships new versions of ", StyleBox["Mathematica", FontSlant->"Italic"] }], "BulletedList", CellChangeTimes->{{3.36960818483293*^9, 3.369608208126022*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["More powerful tools are in the pipeline", "Subsection", CellChangeTimes->{{3.369607883056424*^9, 3.3696079086477137`*^9}, { 3.3696080978325796`*^9, 3.369608102047616*^9}}], Cell["\<\ Inheritance provides an extremely powerful base for tools to build upon\ \>", "BulletedList", CellChangeTimes->{{3.3696082279567623`*^9, 3.3696082585659523`*^9}}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["\<\ Managing documents \[LongDash] Provenance\ \>", "Section", CellChangeTimes->{{3.3695915375475035`*^9, 3.369591562108239*^9}}], Cell["\<\ Provenance \[LongDash] determining the history of a document\ \>", "Subsection", CellChangeTimes->{{3.36960871553607*^9, 3.3696087245682898`*^9}}], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " 6 has the beginnings of a provenance feature" }], "Subsection", CellChangeTimes->{{3.369608797889845*^9, 3.3696088087184725`*^9}}], Cell["\<\ Tracks when and how long each cell in a document was modified\ \>", "BulletedList", CellChangeTimes->{{3.3696088164360027`*^9, 3.369608843191446*^9}}], Cell["\<\ Doesn't yet have the ability to sign a document or track the user doing the \ modification\ \>", "BulletedList", CellChangeTimes->{{3.3696088451584625`*^9, 3.369608861195671*^9}}], Cell["Not the same as version control", "BulletedList", CellChangeTimes->{{3.3696088883625813`*^9, 3.369608910180411*^9}, { 3.3696710666350293`*^9, 3.3696710673742447`*^9}}], Cell[TextData[{ "A trivial FE feature plus top-level ", StyleBox["Mathematica", FontSlant->"Italic"], " programming" }], "BulletedList", CellChangeTimes->{{3.3696089308340874`*^9, 3.369608936273491*^9}, { 3.369608966441106*^9, 3.369608973777275*^9}}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["\<\ Managing documents \[LongDash] Working with other file types\ \>", "Section", CellChangeTimes->{{3.369609894732534*^9, 3.3696099342033353`*^9}}], Cell[CellGroupData[{ Cell["Document-level formats...right from the Open/Save dialog", "Subsection", CellChangeTimes->{{3.3696099381875477`*^9, 3.3696099456943264`*^9}, { 3.36961002057143*^9, 3.369610024545607*^9}}], Cell["No more wonky additional menu items for HTML, TeX, etc.", "BulletedList", CellChangeTimes->{{3.369610094404811*^9, 3.3696101048520784`*^9}}], Cell["All options available directly from the Open/Save dialog", \ "BulletedList", CellChangeTimes->{{3.369610094404811*^9, 3.3696101048520784`*^9}, { 3.3696102470192213`*^9, 3.3696102567138042`*^9}, {3.369610318092757*^9, 3.3696103201199884`*^9}}], Cell["PDF export", "BulletedList", CellChangeTimes->{{3.3696099513143744`*^9, 3.369609971947979*^9}, 3.3696104995701284`*^9}], Cell["Improved RTF import/export", "BulletedList", CellChangeTimes->{{3.3696099600053773`*^9, 3.36960997672502*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Direct FE support for many image formats, too", "Subsection", CellChangeTimes->{{3.369610333136421*^9, 3.369610339177973*^9}}], Cell["\<\ Save Selection As / Insert \[FilledRightTriangle] Picture \ \[FilledRightTriangle] From File menu items\ \>", "BulletedList", CellChangeTimes->{{3.3696105279413347`*^9, 3.369610624234836*^9}}], Cell["Supports pretty much the same formats as the kernel does", \ "BulletedList", CellChangeTimes->{{3.3696106546232386`*^9, 3.369610688423813*^9}}], Cell["Crazy-but-true method of PDF import", "BulletedList", CellChangeTimes->{{3.3696107077929068`*^9, 3.369610719695366*^9}, { 3.3697166890063486`*^9, 3.369716690218091*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["And super-easy to add more", "Subsection", CellChangeTimes->{{3.3696117720815573`*^9, 3.369611776350887*^9}}], Cell["\<\ Many of the supported formats are merely thin layers to the kernel \ import/export support\ \>", "BulletedList", CellChangeTimes->{{3.3696117790768433`*^9, 3.3696117943903065`*^9}, { 3.3697125260603266`*^9, 3.3697125262105427`*^9}}], Cell[CellGroupData[{ Cell["Example", "Subsubsection", CellChangeTimes->{{3.3697086593702993`*^9, 3.369708660161437*^9}}], Cell[BoxData[ RowBox[{"MathLink`CallFrontEnd", "[", RowBox[{"AddFileBrowserFilterPacket", "[", RowBox[{"\"\\"", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Item", "[", RowBox[{"\"\\"", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"NotebookClose", "[", "#2", "]"}], ";", RowBox[{"NotebookPut", "/@", RowBox[{"Import", "[", RowBox[{"#1", ",", " ", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"Import", "[", "#1", "]"}]}], "}"}]}], "]"}]}]}], ")"}], "&"}], ",", "\[IndentingNewLine]", "\"\\"", ",", "\"\<*.zip\>\"", ",", "\[IndentingNewLine]", RowBox[{"MenuEvaluator", "->", "Automatic"}]}], "]"}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.369708593074971*^9, 3.369708593465533*^9}, { 3.3697120317695713`*^9, 3.369712061962987*^9}, {3.369712102240904*^9, 3.3697121027316093`*^9}, {3.3697121452527523`*^9, 3.3697121455331554`*^9}, { 3.3697122509747725`*^9, 3.3697122661365747`*^9}, {3.3697124199878016`*^9, 3.369712423703144*^9}, {3.369712478061307*^9, 3.369712504018632*^9}, { 3.36971254819215*^9, 3.369712555142144*^9}, {3.369712618533296*^9, 3.369712621267227*^9}, {3.369712670127485*^9, 3.369712686200597*^9}}], Cell[TextData[{ "#1 - filename argument\n#2 - notebook object to create, save, or insert \ into\nSee plenty of examples in CommonFrontEndInit.tr in the ", StyleBox["Mathematica", FontSlant->"Italic"], " layout" }], "Text", CellChangeTimes->{{3.3697122910724306`*^9, 3.3697123699458447`*^9}}] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["\<\ Improving the interface \[LongDash] Copy and paste\ \>", "Section", CellChangeTimes->{{3.3696495935214415`*^9, 3.3696496023942003`*^9}, { 3.3696503019501123`*^9, 3.369650304964446*^9}}], Cell[CellGroupData[{ Cell["\<\ Copy As \[FilledRightTriangle] Input Text \[LongDash] What you evaluate is \ what you get\ \>", "Subsection", CellChangeTimes->{{3.3696496181468515`*^9, 3.3696496457565517`*^9}}], Cell["Preserve evaluatability everywhere", "BulletedList", CellChangeTimes->{{3.3696497647176094`*^9, 3.369649770656149*^9}}], Cell["Throw away typesetting where possible", "BulletedList", CellChangeTimes->{{3.369649754893483*^9, 3.369649759970784*^9}}], Cell["The default for Input/Output styles", "BulletedList", CellChangeTimes->{{3.369649891259568*^9, 3.369649898900555*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Copy As \[FilledRightTriangle] Plain Text \[LongDash] What you see is what \ you get\ \>", "Subsection", CellChangeTimes->{{3.3696496181468515`*^9, 3.3696496457565517`*^9}, { 3.36964969293439*^9, 3.3696497055825777`*^9}}], Cell["The default for non-evaluatable styles", "BulletedList", CellChangeTimes->{{3.3696499058305197`*^9, 3.369649926219838*^9}}], Cell[CellGroupData[{ Cell["Examples", "Subsubsection", CellChangeTimes->{{3.3696498585024652`*^9, 3.3696498593236465`*^9}}], Cell[BoxData[GridBox[{ {"1", "2"}, {"3", "4"} }]], "Input", CellChangeTimes->{{3.3696498685368943`*^9, 3.369649875837392*^9}}], Cell[BoxData[ RowBox[{"Interpretation", "[", RowBox[{"this", ",", "that"}], "]"}]], "Input", CellChangeTimes->{{3.3696499326390686`*^9, 3.369649945968235*^9}}], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Sin", "[", RowBox[{"a", " ", "x"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", " ", "0", ",", " ", RowBox[{"2", "\[Pi]"}]}], "}"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"a", ",", " ", "1", ",", " ", "5"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.3696499540598707`*^9, 3.3696500079874144`*^9}}] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["\<\ Improving the interface \[LongDash] Docked cells\ \>", "Section", CellChangeTimes->{{3.369650316020344*^9, 3.369650323881648*^9}}], Cell[CellGroupData[{ Cell["Implement your own toolbars...", "Subsection", CellChangeTimes->{{3.36965041681528*^9, 3.3696504182473392`*^9}, { 3.3696504750990877`*^9, 3.3696504774524717`*^9}, {3.3696507419928627`*^9, 3.3696507423233376`*^9}}], Cell[BoxData[ RowBox[{"SetOptions", "[", RowBox[{ RowBox[{"EvaluationNotebook", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"DockedCells", "\[Rule]", "\[IndentingNewLine]", RowBox[{"Cell", "[", RowBox[{ RowBox[{"BoxData", "[", RowBox[{"ToBoxes", "[", "\[IndentingNewLine]", RowBox[{"Row", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"PopupMenu", "[", RowBox[{ RowBox[{"Dynamic", "[", RowBox[{"CurrentValue", "[", RowBox[{ RowBox[{"ButtonNotebook", "[", "]"}], ",", "Magnification"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"1.", "\[Rule]", "\"\<100%\>\""}], ",", RowBox[{"1.4", "\[Rule]", "\"\<140%\>\""}], ",", " ", RowBox[{"2.1", "\[Rule]", "\"\<210%\>\""}], ",", " ", RowBox[{"Inherited", "\[Rule]", "\"\\""}]}], "}"}]}], "]"}], ",", " ", RowBox[{"Button", "[", RowBox[{"\"\\"", ",", " ", RowBox[{"SetOptions", "[", RowBox[{ RowBox[{"ButtonNotebook", "[", "]"}], ",", RowBox[{"DockedCells", "\[Rule]", "Inherited"}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}], "\[IndentingNewLine]", "]"}], "]"}], ",", " ", "\"\\""}], "]"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.369650389626184*^9, 3.3696503913386464`*^9}, { 3.369650497190854*^9, 3.3696505776866016`*^9}, {3.3696506078800173`*^9, 3.3696506897176943`*^9}, {3.3696713356395817`*^9, 3.3696714898509183`*^9}, { 3.3696715210841284`*^9, 3.369671565108371*^9}, {3.3696715985189934`*^9, 3.3696716525897155`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["...or banners or anything else you want...", "Subsection", CellChangeTimes->{{3.3696507261500816`*^9, 3.3696507390285997`*^9}, { 3.369671840368579*^9, 3.3696718429888883`*^9}, {3.369717915019269*^9, 3.3697179153898015`*^9}}], Cell[BoxData[ RowBox[{"SetOptions", "[", RowBox[{ RowBox[{"EvaluationNotebook", "[", "]"}], ",", "\[IndentingNewLine]", RowBox[{"DockedCells", "\[Rule]", RowBox[{"Cell", "[", RowBox[{ "\"\\"", ",", " ", "\"\\"", ",", "\"\\""}], "]"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.369650744866995*^9, 3.369650779366603*^9}, { 3.369650818693152*^9, 3.3696508211566944`*^9}, {3.369671682010103*^9, 3.369671706528781*^9}}], Cell[BoxData[ RowBox[{"SetOptions", "[", RowBox[{ RowBox[{"EvaluationNotebook", "[", "]"}], ",", " ", RowBox[{"DockedCells", "\[Rule]", "Inherited"}]}], "]"}]], "Input", CellChangeTimes->{{3.3696507858258915`*^9, 3.369650795139283*^9}}] }, Open ]], Cell["...just like what you've seen this entire talk.", "Subsection", CellChangeTimes->{{3.369717920276829*^9, 3.3697179363198977`*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["\<\ Improving the interface \[LongDash] Cell groups\ \>", "Section", CellChangeTimes->{{3.369671929529378*^9, 3.36967193793244*^9}}], Cell[CellGroupData[{ Cell["Reverse-closed groups", "Subsection", CellChangeTimes->{{3.369672041409566*^9, 3.369672043819046*^9}}], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Expand", "[", SuperscriptBox[ RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], "c"], "]"}], ",", " ", RowBox[{"{", RowBox[{"c", ",", " ", "1", ",", " ", "50", ",", " ", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.369671973161045*^9, 3.369672004815589*^9}}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["A few things I didn't mention", "Section", CellChangeTimes->{{3.369717567329315*^9, 3.3697175708043118`*^9}}], Cell["The debugger", "Subsection", CellChangeTimes->{{3.3697175766226788`*^9, 3.3697175782049537`*^9}}], Cell["Palettes upgraded with version 6 capabilities", "Subsection", CellChangeTimes->{{3.3697176256732097`*^9, 3.369717664909629*^9}}], Cell["\<\ Notebooks and cell groups which evaluate in guaranteed-unique contexts\ \>", "Subsection", CellChangeTimes->{{3.3697176758854113`*^9, 3.369717726958851*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Your suggestions", "Section", CellChangeTimes->{{3.369658832773845*^9, 3.3696588372035255`*^9}}], Cell["????", "Subsection", CellChangeTimes->{{3.3697171860110064`*^9, 3.3697171864916973`*^9}}] }, Open ]] }, Open ]] }, AutoGeneratedPackage->None, ScreenStyleEnvironment->"SlideShow", PrintingStyleEnvironment->"Presentation", WindowToolbars->{}, WindowSize->{1110, 895}, WindowMargins->{{23, Automatic}, {Automatic, 84}}, Visible->True, ShowSelection->True, Magnification->1., FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (October 10, 2006)", StyleDefinitions->Notebook[{ Cell[ CellGroupData[{ Cell["Wolfram Reseller Conference 2006", "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[ StyleData[StyleDefinitions -> "Core.nb"]]}, Open]], 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 -> { FEPrivate`FrontEndResource["FEExpressions", "SlideshowToolbar"], Cell[ GraphicsData[ "CompressedBitmap", "eJy9XE3IbVUZ3u6z9znnu59erwmF0eCOGkQDoVEQqZFaUBCN7AfqIoK3MMWM\n\ LjjRSQMJgpw06GcQDZrkKIQmOgqCIGjqoMlFkWsmiimS7Naz1vus/ay/c87+\n\ vuM9sM+3z95rv+tdz/u73rX29/UrTz36yGNXnrr68JXLDz555YlHrz7848sP\n\ PP6ku7S6petuuavruvsudzif3Kl9TdP1x7tP4gs/lp1/1f8Zpld/sp5u/Oyu\n\ 6c1ffnp6+7ef6/Fj6++N0+vP3jm98fPLuO7/ut/d1p577enb/HM4HI3BHiE5\n\ udWtsq5wOFKB0kopdb7BYO3Rfd7FCr9W+55cwFzgYh0feetXn/WHMcmu5NHQ\n\ lV1zd30LDub15+6ebjx/L45ug+/RWMLFt198xh+u0XbX5XF649ffiJdx/uq1\n\ S92dQXAPsieHznsv3D9Nf3/EPYDv1fTO7z8fOSLnENz/Xn7ItxisHX7jeugs\n\ cAIhu7v+iFCO07t/vCdetltRoACE19//89eIgVByWLlvisW1UTokA9Xj5Q/+\n\ 8s3VPjILOF0LCI60gDUQAH94pQ/YYFC5VN9/5aXJPk6q7hPV4tql6YPr//A3\n\ VvaNxriuQji0HdQnb/fhf//jdQAt7gg68IA1F+S63gYH2QJokznQ6gJEG6/Y\n\ CtGHf/2eb+v+ojs/ftBMdahAXO0v717gI7J2b+W7Iun1GZXFVN4fjtWlytJm\n\ PZU824lSxSFCkQy1qGi9tReTCHws1Si90UMXelOD9/75QqTSn6Wx6VXZGAr2\n\ 2rPBGwR17O43GamF4wD6Djr1ivBDczdj8ggQcjpnaI5e/4gakdsjqJoAlulY\n\ Stqdn9Q1jAMQ1fCHhrAGpYN5T5WhNy71caOMXj2ZHvz0dYd7yTh+8w/fn/Tj\n\ fjulsiDqPAo/Tl1ISTQHTfoztdZ+XaTiZQQtft792+/uUJUa6IapThcqwnBq\n\ wqikHss1aSgLe1bROT27GfqSsugkXmOxrSo7OV8XnKNZvL3yXZP5TV1H7tih\n\ IxzvOy//Il53kYY8IehUxLustVOAeNlFO15G4OPHuSLTkS9XTBD+AiZ4UkHK\n\ xTgOW90KbacNNxIlEnfnN0dRGJGTvGWpohzIuQuNVc63dS352A4toSmqE2hI\n\ suEy9rVOY5Pl+e6TaEXKs3gOvezsjwqh6WD0ydscVg8MwpjpTx8mQUdUh3Wu\n\ Dv4xZ7mkBLVI044GpfMxjzyw5jcaGnFnRSOQKDj3byHbcf7vf6VS6+0UN9iv\n\ O/eXpcFKG1ieOzAFCX7u2cs1DchguVC/vKlfDtheqILIa+ZsDlUC5s/ucNfw\n\ PWr+XODO3Hxun+bbMa+bNSbO7WS6UlUTR3tokjz3qAPHZQpT0x5HjpzohPQ2\n\ 0yiNCNADzG1X0eZn6+93XrM8g/y5oETdgudhn7ffBP0RA/T3DNld+rOxe2yu\n\ urIxlOVeVS84l0c+ZfYcDVNnQ2OT3rmHslsp0skQ2VC/edGYFu8PoS5ShiGc\n\ ORKcL9tcuSZ/2BDH61ST8tcCREP+capZgpZb0QHyV3+Ax4OPwPduvw3w0va1\n\ CcUmT6Z9G4xdBaam2VdG7LPtVhfnRsH1HjlRz1bzJ96zBU7Us100f6JzFkQo\n\ +BMaDH6XecUhd2etxF/nUwZTL6S/ZOFSql6YCgvTtQTFWSvVSydCMUHZJMAC\n\ Gdqjy2eqcpLaSLUed2iWSiKapTYS6UjkXNxm86YaWo7Fj9tlVDT4ufH8vbUK\n\ SJKCSBQIiWaagpwmDUgcCoHfLL++9acnkIqw9Hp/BSI3aHKuUxA3S2HenE1m\n\ amm/G2dvTh2txfQ/2pnJavflA2Ymyzl3zZL8yR5r5aGUvxYVGtPLRh3DNTlb\n\ a0hfVO4TqgRjEjQwDiyOnNg9TtLM4qWEFBYh1PTn+mwat4kf5jH1ePBRF8I0\n\ G8CBEe5UjaUDqEWWtI5P8BrKcSkYtDPRoSJhJ78FlSrX5Gyts1KGqckDFie1\n\ Xm2ezqsO19zwOyaXJx5zdS84ZwTHX/c7gmfgGPRtAahhLtGgWnaya3aj2Ynn\n\ hMsOql82Xv8Xyw61WXAjHRlnmksHWtO00wJsq6n4QEbAwftc4C8Sk9FGK13H\n\ JUWs7ZlL8SqFqOLOQ566Sea718NEmUHI9eYaI6RYhmJ5DaV8cNNtUq1DJgNG\n\ wBicm/sdCj9xUVEc146JQxgu19PWFXXkmlxe2UZasKfgX04aRvVlUbB+vY7a\n\ UJswm1NumocsEy1idDRaGKv1axgMiTntWVOUeilYLnLLuKJkWjT5tGYqpjiH\n\ touLErOHjO1sGdK3sCnTV4xZSBoA6JIiJA2/5oa1NhOHX8AlRjY2QR1yIxHT\n\ qh/+QCZAjPWeLLtDfiyYjPYtExd/oIvtvDgQlJgPrewbQ0AfCCYUoPQZqnTD\n\ ckY3BhMkzH4ZM3EONxcXcNLxrI0101ELAAFOcxUxvYVR43yu2q991qJZMc6d\n\ Euy5vaHAnB/AJboNUEePSHet6tbaOnKZaVO6P4OBqNiV0aVbJUZpZ7tLksks\n\ fYhN+aPFFRtILJ0PPSiKTFJ0G8gNbmsJWz3g2i1WUS/87W2F3LD7uVtFtraL\n\ pjqebRzPj1Ics/SruTLe1ZeoqVOz7xtyh+nX9uNOlDSH4qSoSBprE0J3rJvd\n\ hgVPDncMcJZ0c1toEdjQUcoGFo01pLeOIzwOruRPN1esj4hrjX4/EwrAmA+J\n\ 1cAiuG6Nrzw02sPbynOkr8vSvt12EYJpQHTEfBZp8wVlJVjSzAd3HGkSkVw7\n\ F5yipqEdzTafxphH1/0KquIuagWkjJswNvEHJNj1IgJNPY0imUUYTG2qXPFH\n\ Gwl7ms6cRzhxZjYmrTmrOlkAepmE6RKj4FtNm3z2HhipzSqHyEitZrXn4VXj\n\ HlK48fiAcotevk0EScKFBYCWpmta2MeiCpHMKoU1xlzuUYJ42HO1bXiOlfVH\n\ BV0ByukC1FIX7FjmZTwiXCTuAlpBC2QXWqtlFzN4C55sVESODV9c3isTYJ3m\n\ 6mRNzRtPpgqR4rpNcKU/5DUq5K5C8yrC7s8a21Hmprtqj+uZQlpowwG/89ji\n\ SL9rKtkE77QVb/JApL6QuURcbLmpqHHs4g0TbWYy8MNjaqAOX9eVlmjgLBrR\n\ vurKJzHIDLFpuH0Bb/vJUZ/0R1jJCE5Gtwx7wKOhD0nNV7ZoqU794DxOU3l2\n\ KC5xmgFataMbsmU1XVTeo4mZn9zVtLHOE5bt1rX4qVmTFtSungU3Frez/aZL\n\ QvSQVD3ikCqQZZrtoCZXWs1m+bIZpNvPMclRLbDVE9tYke4zotrFCJnmoedA\n\ NK2VJSsfe2GlE25uJNAKjHaBbJX3lLApTpFAnpFCI08+tXu6fYA0+4oYHX0z\n\ 9U/hz2BrPDrLcOJd2WUFI66bVarpZjOKm60lqdODGwrW7VdyqDp7RTNIt4nj\n\ LKqrAQsdL7d59zZZUleIA4v985Tq5DwUurVOj+OzPo0N800uqoAcbVORj8ZU\n\ LMyrzE7NtnWHjnfGU7NeUNbEl9cLhh30SymkfbJUIOttYhcnBz7RLkLUtyvt\n\ 2sWotuTEcvVs+LKsC8GS88G+s0RkL74sR5R1rhRfzaLAIpbddMOVLYNJ7enC\n\ gU9sK+1G6xN46wKb5XCEuHwzp75T+tGA8xcMh+ytt89IPsHLjspd9csXpR8h\n\ 4vt5OvTTKhN/N3j8t198pgurEzng8u4bCqa+HcrSbBcrjc/d7du9/8pLnd/Y\n\ 4a7ZzoxEZfEs6Z0YPdBCu/Cr5GVdedbzQq2zhxMm0TmveaLb1oh6EF5Vxray\n\ wOBvYICJtQ+VJ74YUP2O8MVlHO5807d+ass9vl1U7WuXuD6AKmBcf8pfSdMd\n\ NifWDp3YelPsXHZjRlTT95Mm24FjA0tu9GC0tmxF4aZvL4V2kIONr7qzOFaa\n\ 5/0dsV2x1MbOFcQMc12yqy2d1faVEZ5Cxl36VuAFa4ffFEFtk9PRRCBrQxEU\n\ ELRBRqIAOHfFNeUD0ybWbqUdyTYa62j0o9RIgtdliaiOIhOA7MCw5qPaSCS1\n\ NlJqPzUw9RVLXMd6+mh0RUH8Ab9zel7w9X3QFJNi07zyRoVoQzrrbdigH8Yg\n\ ns4fDnYbX7rd3uFE9NU5Zuine+1CD6Id/nCoGfolgpAM0cUIYphzo3N0qpxx\n\ 46V62Hzki5AvPE83JIy689uNrrqhwZoq347PtV1WJXQUas4hAzPdexpA4fZD\n\ 0YIIZm4xTtzRYtRE6++RluM8OrC1DsXpAa2LjXGGkF7y6FAlwKpnrjmNQ739\n\ PQHgb1dMjP6AEsUit9pXdUDFDXN8OdIaFRq7T4+DdFw4LFR4peoRPZ2GzFOD\n\ PrdJ2Cuhz3bEEnr1Sw6TWrKRQV+OcJO8D4YPGXEGlYSafGD0R9jVTX1Xqfv8\n\ YFR4Ctx2AQ9SeCDmlk0qdo3xmryIQ+jaAho9XPyPDjgQamj3aiam95E+HWRA\n\ 0Q/Tb3cs9SYTgsZKCkHf0cSHQM4GGNSZg9REix6cXetrNmcUwknrCeajmgzt\n\ Cp3qHQSdmlHUckFYNVMXDafGUgJDHvY1XiYS2CS7b/Ch24Po9fGcHbTJ01qO\n\ cKcEuvSVvMRpHE8gNuJYMdMttzbMHZaQWgzXw8XX+k+yVTKQsZwnEZDpeERT\n\ 3XMmDAHGfwge4ih3ZOZt6OLCZGxKdAohpKZnxzYFE2KwUPXotdedSKAMSXM7\n\ TRw0P6EockdtzspejeGLmRYfOYHs5RoJBi3pvtW029l9IQhsRNaJpvcR0SrH\n\ NZNOg9bRUx10aBpbDcB8lSfXahqxOgANo3Ezqmw0x2duPyR5YHzpbSy6gr58\n\ KRVAbdgEG5MGCoAQa8Sll8MEYsieVVGUQadI3Y4jiqF1g1Vi3feMDxTCmUCt\n\ xEBa5Y7c4h1TYqQ8Znpeg0ADvGOEk6A8p1e9UNMg0/b+dTOeUUd0NnJ05Yd6\n\ mKMMHY4VTpj15M4EMxru69MiAuFWoNw54VZpZXAXZYxm4SubdV7PJh40RIzP\n\ Ac0JHzCHLgEjR5KiU/9CSntxBhosD7LEx5AVCbDIaPUIY2OaC3caBOgWtZrF\n\ drUqVK06lr7FPxWBNAF8TF7WxQcuoTa5Jub5aw5zME29tJPxrfZgTc8Pj6Li\n\ rgAqidbqWFpHIZQ6dEKpSlari5HJUufSkHifQNmqoLQSi12TC4mK/j4cyYn0\n\ TzCbc/VDwTwVxpiYx/chJMDXBkC7Vwd5aBLDdpryGpgPHejYuN8zT/IwA6Y+\n\ lC5sU9TQoB8wN7gy6gxooi+EzPG8GDPX1j3/XL2rKaLG4U2lDy3Q5vG6VuNQ\n\ 0Azjnxp2IGH/3dAfGO9vQpOl/3+yu+X/ssjYSg=="], "Graphics", CellFrame -> {{0, 0}, {4, 0}}, Evaluatable -> False, GeneratedCell -> False, CellAutoOverwrite -> False, CellFrameColor -> RGBColor[1, 0.8, 0.396078], ImageSize -> {281, 65}, ImageMargins -> {{0, 0}, {0, 1}}, ImageRegion -> {{0, 1}, {0, 1}}, Background -> RGBColor[0.894118, 0.435294, 0], CellMargins -> {{0, 0}, {0, 0}}]}, 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"}]}, Open]], 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]}, Open]], 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.894118, 0.435294, 0]], 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"], CellMargins -> {{27, Inherited}, {8, 34}}, CellGroupingRules -> {"SectionGrouping", 30}, PageBreakBelow -> False, CellFrameMargins -> 4, 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.847059, 0.192004, 0.182818]], Cell[ StyleData["Section", "Presentation"], CellFrame -> {{0, 0}, {0, 2}}, ShowGroupOpenCloseIcon -> True, CellMargins -> {{72, 50}, {11, 30}}, CellFrameColor -> RGBColor[1, 0.796078, 0.501961], FontSize -> 30], Cell[ StyleData["Section", "SlideShow"], CellMargins -> {{71, 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.858824, 0.411765, 0.364706]], Cell[ StyleData["Subsection", "Presentation"], CellMargins -> {{72, 50}, {6, 15}}, LineSpacing -> {1, 0}, FontSize -> 24], Cell[ StyleData["Subsection", "SlideShow"], CellMargins -> {{99, 50}, {8, 12}}, LineSpacing -> {1, 0}, FontSize -> 24], Cell[ StyleData["Subsection", "Printout"], CellMargins -> {{21, 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.929198, 0.518471, 0.354726]], Cell[ StyleData["Subsubsection", "Presentation"], CellMargins -> {{72, 50}, {6, 20}}, LineSpacing -> {1, 0}, FontSize -> 18], Cell[ StyleData["Subsubsection", "SlideShow"], CellMargins -> {{99, 50}, {6, 20}}, FontSize -> 18], Cell[ StyleData["Subsubsection", "Printout"], CellMargins -> {{2, 0}, {7, 14}}, FontSize -> 11]}, Closed]], 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]], 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"]}, Open]], 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]}, Open]], 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]}, Open]], 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, FontFamily -> "Helvetica", FontSize -> 10, FontColor -> RGBColor[0, 0.376471, 0.490196]], 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["CellLabel"], LanguageCategory -> None, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 9, FontColor -> RGBColor[0.24416, 0.602594, 0.809735]], Cell[ StyleData["CellLabel", "Presentation"], FontSize -> 12], Cell[ StyleData["CellLabel", "SlideShow"], FontSize -> 12], Cell[ StyleData["CellLabel", "Printout"], FontFamily -> "Courier", FontSize -> 8, FontSlant -> "Italic"]}, Open]], 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]], Cell["Presentation Specific", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["BulletedList"], CellMargins -> {{60, 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 -> {{80, 50}, {10, 10}}, LineSpacing -> {1, 5}, FontSize -> 18], Cell[ StyleData["BulletedList", "SlideShow"], CellMargins -> {{110, 50}, {10, 10}}, FontSize -> 18], Cell[ StyleData["BulletedList", "Printout"], CellMargins -> {{2, 2}, {6, 6}}, TextJustification -> 0.5, Hyphenation -> True, FontSize -> 10]}, Open]], 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]], Cell["Header Graphic", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["ConferenceGraphicCell"], ShowCellBracket -> True, CellMargins -> {{0, 0}, {0, 0}}, Evaluatable -> False, PageBreakBelow -> False, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}, Magnification -> 1, Background -> GrayLevel[1]], 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]], 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"]}, Open]], 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]], 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]], 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"]}, Open]], 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]], 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"]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["Placeholder"], Placeholder -> True, StyleMenuListing -> None, FontSlant -> "Italic", FontColor -> RGBColor[0.951324, 0.721569, 0.178317], 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.984314, 0.871046, 0.349798], TagBoxOptions -> { Editable -> False, Selectable -> False, StripWrapperBoxes -> False}], Cell[ StyleData["PrimaryPlaceholder", "Presentation"]], Cell[ StyleData["PrimaryPlaceholder", "SlideShow"]], Cell[ StyleData["PrimaryPlaceholder", "Printout"]]}, 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.52549, 0.737255, 0.882353]], Cell[ StyleData["Completions"], StyleMenuListing -> None, FontFamily -> "Courier"]}, Closed]], 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["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, FrameMargins -> True}, GridBoxOptions -> {GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}}], 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, FrameMargins -> True}, GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Top}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[1.4]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}}], 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, FrameMargins -> True}, GridBoxOptions -> {GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}}], 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, FrameMargins -> True}, GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> { Scaled[0.31], { Scaled[0.67]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], 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, FrameMargins -> True}, GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> {{ Scaled[0.46]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], 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, FrameMargins -> True}, GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {Right, {Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> {{ Scaled[0.35]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[1.0499999999999998`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}}], 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, FrameMargins -> True}, GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> {{ Scaled[0.32]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], 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, FrameMargins -> True}, GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {Right, Center, {Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> {{ Scaled[0.24]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[1.0499999999999998`]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}}], 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, FrameMargins -> True}, GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> { Scaled[0.13], Scaled[0.35], Scaled[0.13], { Scaled[0.35]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], 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, FrameMargins -> True}, GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> {{ Scaled[0.202]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], 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, FrameMargins -> True}, GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> { Scaled[0.12], Scaled[0.22], Scaled[0.12], Scaled[0.12], Scaled[0.22], { Scaled[0.12]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], 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 -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], 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 -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.4], { Scaled[0.6]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], 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 -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.35], Scaled[0.2], { Scaled[0.45]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], 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 -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.15], Scaled[0.35], Scaled[0.15], { Scaled[0.35]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], 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 -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> {{ Scaled[0.2]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], 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 -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.13], Scaled[0.24], Scaled[0.13], Scaled[0.13], Scaled[0.24], { Scaled[0.13]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], 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 -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.31], { Scaled[0.62]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], 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 -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.31], { Scaled[0.62]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], 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 -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.31], { Scaled[0.62]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], 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 -> { GridBoxItemSize -> { "Columns" -> {{All}}, "ColumnsIndexed" -> {}, "Rows" -> {{2.2}}, "RowsIndexed" -> {}}}]}, 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 -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.9], { Scaled[0.03]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], 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 -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.9], { Scaled[0.03]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], 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 -> { GridBoxItemSize -> { "Columns" -> {{All}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.8}}, "RowsIndexed" -> {}}}]}, 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 -> {FrameMargins -> {{1, 1}, {1.5, 1.5}}}, GridBoxOptions -> {GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}}], 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]], Cell["Tables", "Subsection"], Cell[ CellGroupData[{ Cell[ StyleData["2ColumnTable"], CellMargins -> {{35, 4}, {0, 8}}, CellHorizontalScrolling -> True, LineIndent -> 0, StyleMenuListing -> None, GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.34], { Scaled[0.64]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], 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 -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> {{ Scaled[0.49]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], 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 -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.28], Scaled[0.28], { Scaled[0.43]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], 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]], Cell["Slide Show Styles", "Section"], 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[1, 0.8, 0.396078]], 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]]}] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "SlideShowHeader"->{ Cell[590, 23, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[1152, 41, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[4830, 136, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[8560, 233, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[9418, 261, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[13423, 387, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[14623, 428, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[17072, 507, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[19373, 596, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[23802, 725, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[26106, 800, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[28196, 862, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[29011, 895, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[30059, 934, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[31183, 976, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[32167, 1013, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[34729, 1092, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[36196, 1145, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[40304, 1259, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[42557, 1336, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[46167, 1431, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[46951, 1463, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"]} } *) (*CellTagsIndex CellTagsIndex->{ {"SlideShowHeader", 149692, 3772} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[657, 26, 112, 1, 143, "Title"], Cell[772, 29, 129, 1, 67, "Subtitle"], Cell[904, 32, 95, 1, 89, "Author"], Cell[1002, 35, 113, 1, 147, "Affiliation"] }, Open ]], Cell[CellGroupData[{ Cell[1152, 41, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[1241, 46, 120, 1, 81, "Section"], Cell[CellGroupData[{ Cell[1386, 51, 2116, 47, 222, "Input"], Cell[3505, 100, 1267, 29, 113, "Print"] }, {2}]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[4830, 136, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[4919, 141, 120, 1, 81, "Section"], Cell[CellGroupData[{ Cell[5064, 146, 2149, 48, 252, "Input"], Cell[7216, 196, 1286, 30, 143, "Print"] }, {2}]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[8560, 233, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[8649, 238, 152, 2, 81, "Section"], Cell[8804, 242, 100, 1, 49, "Subsection"], Cell[8907, 245, 110, 1, 41, "Subsection"], Cell[9020, 248, 212, 3, 41, "Subsection"], Cell[9235, 253, 134, 2, 41, "Subsection"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[9418, 261, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[9507, 266, 178, 2, 81, "Section"], Cell[CellGroupData[{ Cell[9710, 272, 218, 3, 49, "Subsection"], Cell[CellGroupData[{ Cell[9953, 279, 162, 2, 47, "Subsubsection"], Cell[10118, 283, 147, 2, 39, "Input"], Cell[10268, 287, 100, 1, 39, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[10405, 293, 114, 1, 47, "Subsubsection"], Cell[10522, 296, 440, 8, 39, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[10999, 309, 108, 1, 47, "Subsubsection"], Cell[11110, 312, 147, 3, 39, "Input"], Cell[11260, 317, 178, 4, 39, "Input"], Cell[11441, 323, 275, 6, 39, "Input"], Cell[11719, 331, 266, 7, 41, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[12022, 343, 238, 5, 47, "Subsubsection"], Cell[12263, 350, 474, 10, 39, "Input"], Cell[12740, 362, 359, 11, 39, "Input"], Cell[13102, 375, 248, 4, 201, "Input"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[13423, 387, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[13512, 392, 178, 2, 81, "Section"], Cell[CellGroupData[{ Cell[13715, 398, 187, 2, 49, "Subsection"], Cell[CellGroupData[{ Cell[13927, 404, 123, 1, 47, "Subsubsection"], Cell[14053, 407, 328, 8, 39, "Input"], Cell[14384, 417, 166, 3, 39, "Input"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[14623, 428, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[14712, 433, 203, 2, 81, "Section"], Cell[CellGroupData[{ Cell[14940, 439, 187, 2, 49, "Subsection"], Cell[CellGroupData[{ Cell[15152, 445, 177, 2, 47, "Subsubsection"], Cell[15332, 449, 328, 8, 39, "Input"], Cell[15663, 459, 166, 3, 39, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[15866, 467, 173, 2, 47, "Subsubsection"], Cell[16042, 471, 192, 5, 39, "Input"], Cell[16237, 478, 301, 8, 39, "Input"], Cell[16541, 488, 301, 7, 39, "Input"] }, Open ]], Cell[16857, 498, 154, 2, 47, "Subsubsection"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[17072, 507, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[17161, 512, 127, 1, 81, "Section"], Cell[CellGroupData[{ Cell[17313, 517, 141, 3, 49, "Subsection"], Cell[CellGroupData[{ Cell[17479, 524, 273, 7, 51, "Subsubsection"], Cell[CellGroupData[{ Cell[17777, 535, 244, 7, 39, "Input"], Cell[18024, 544, 464, 11, 26, "Message"] }, Open ]], Cell[18503, 558, 85, 2, 41, "BulletedList"], Cell[18591, 562, 268, 8, 66, "Input"], Cell[18862, 572, 59, 0, 41, "BulletedList"], Cell[18924, 574, 263, 9, 39, "Input"], Cell[19190, 585, 110, 3, 39, "Input"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[19373, 596, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[19462, 601, 203, 2, 81, "Section"], Cell[CellGroupData[{ Cell[19690, 607, 270, 5, 49, "Subsection"], Cell[19963, 614, 305, 6, 39, "Text"], Cell[CellGroupData[{ Cell[20293, 624, 122, 1, 47, "Subsubsection"], Cell[20418, 627, 236, 5, 39, "Input"], Cell[20657, 634, 133, 2, 39, "Input"], Cell[20793, 638, 135, 2, 39, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[20965, 645, 131, 1, 47, "Subsubsection"], Cell[21099, 648, 410, 9, 39, "Input"], Cell[21512, 659, 249, 4, 39, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[21798, 668, 185, 2, 47, "Subsubsection"], Cell[21986, 672, 625, 14, 93, "Input"], Cell[22614, 688, 280, 6, 41, "Input"], Cell[22897, 696, 367, 9, 39, "Input"], Cell[23267, 707, 215, 4, 41, "Input"], Cell[23485, 713, 244, 4, 201, "Input"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[23802, 725, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[23891, 730, 250, 5, 81, "Section"], Cell[24144, 737, 362, 7, 41, "Input"], Cell[CellGroupData[{ Cell[24531, 748, 248, 5, 39, "Input"], Cell[24782, 755, 190, 4, 38, "Output"] }, Open ]], Cell[24987, 762, 257, 5, 66, "Input"], Cell[25247, 769, 122, 2, 39, "Input"], Cell[25372, 773, 685, 21, 66, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[26106, 800, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[26195, 805, 349, 6, 81, "Section"], Cell[CellGroupData[{ Cell[26569, 815, 172, 2, 49, "Subsection"], Cell[26744, 819, 947, 23, 120, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[27728, 847, 140, 1, 49, "Subsection"], Cell[27871, 850, 121, 2, 39, "Input"] }, Open ]], Cell[28007, 855, 140, 1, 49, "Subsection"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[28196, 862, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[28285, 867, 264, 5, 81, "Section"], Cell[CellGroupData[{ Cell[28574, 876, 112, 1, 49, "Subsection"], Cell[28689, 879, 41, 0, 41, "BulletedList"], Cell[28733, 881, 117, 3, 41, "BulletedList"], Cell[28853, 886, 97, 2, 41, "BulletedList"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[29011, 895, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[29100, 900, 264, 5, 81, "Section"], Cell[CellGroupData[{ Cell[29389, 909, 144, 3, 49, "Subsection"], Cell[29536, 914, 66, 0, 47, "Subsubsection"], Cell[29605, 916, 68, 0, 31, "Subsubsection"], Cell[CellGroupData[{ Cell[29698, 920, 127, 1, 31, "Subsubsection"], Cell[29828, 923, 112, 1, 41, "BulletedList"], Cell[29943, 926, 43, 0, 41, "BulletedList"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[30059, 934, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[30148, 939, 264, 5, 81, "Section"], Cell[CellGroupData[{ Cell[30437, 948, 149, 3, 49, "Subsection"], Cell[30589, 953, 68, 0, 41, "BulletedList"], Cell[30660, 955, 95, 2, 41, "BulletedList"], Cell[30758, 959, 67, 0, 41, "BulletedList"], Cell[30828, 961, 294, 8, 151, "BulletedList"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[31183, 976, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[31272, 981, 188, 4, 81, "Section"], Cell[CellGroupData[{ Cell[31485, 989, 229, 7, 49, "Subsection"], Cell[31717, 998, 106, 1, 41, "BulletedList"], Cell[31826, 1001, 127, 1, 41, "BulletedList"] }, Open ]], Cell[31968, 1005, 150, 2, 49, "Subsection"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[32167, 1013, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[32256, 1018, 188, 4, 81, "Section"], Cell[CellGroupData[{ Cell[32469, 1026, 281, 3, 49, "Subsection"], Cell[32753, 1031, 216, 4, 41, "BulletedList"], Cell[32972, 1037, 181, 2, 41, "BulletedList"], Cell[33156, 1041, 228, 4, 41, "BulletedList"] }, Open ]], Cell[CellGroupData[{ Cell[33421, 1050, 141, 1, 49, "Subsection"], Cell[33565, 1053, 227, 6, 42, "BulletedList"], Cell[33795, 1061, 255, 5, 41, "BulletedList"], Cell[34053, 1068, 222, 5, 42, "BulletedList"] }, Open ]], Cell[CellGroupData[{ Cell[34312, 1078, 180, 2, 49, "Subsection"], Cell[34495, 1082, 173, 3, 41, "BulletedList"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[34729, 1092, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[34818, 1097, 136, 3, 81, "Section"], Cell[34957, 1102, 157, 3, 49, "Subsection"], Cell[CellGroupData[{ Cell[35139, 1109, 199, 5, 41, "Subsection"], Cell[35341, 1116, 161, 3, 41, "BulletedList"], Cell[35505, 1121, 190, 4, 41, "BulletedList"], Cell[35698, 1127, 176, 2, 41, "BulletedList"], Cell[35877, 1131, 258, 7, 42, "BulletedList"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[36196, 1145, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[36285, 1150, 155, 3, 81, "Section"], Cell[CellGroupData[{ Cell[36465, 1157, 196, 2, 49, "Subsection"], Cell[36664, 1161, 147, 1, 41, "BulletedList"], Cell[36814, 1164, 254, 4, 41, "BulletedList"], Cell[37071, 1170, 130, 2, 41, "BulletedList"], Cell[37204, 1174, 117, 1, 41, "BulletedList"] }, Open ]], Cell[CellGroupData[{ Cell[37358, 1180, 133, 1, 49, "Subsection"], Cell[37494, 1183, 203, 4, 41, "BulletedList"], Cell[37700, 1189, 150, 2, 41, "BulletedList"], Cell[37853, 1193, 178, 2, 41, "BulletedList"] }, Open ]], Cell[CellGroupData[{ Cell[38068, 1200, 116, 1, 49, "Subsection"], Cell[38187, 1203, 245, 5, 41, "BulletedList"], Cell[CellGroupData[{ Cell[38457, 1212, 100, 1, 47, "Subsubsection"], Cell[38560, 1215, 1371, 27, 147, "Input"], Cell[39934, 1244, 297, 7, 84, "Text"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[40304, 1259, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[40393, 1264, 198, 4, 81, "Section"], Cell[CellGroupData[{ Cell[40616, 1272, 189, 4, 49, "Subsection"], Cell[40808, 1278, 126, 1, 41, "BulletedList"], Cell[40937, 1281, 127, 1, 41, "BulletedList"], Cell[41067, 1284, 125, 1, 41, "BulletedList"] }, Open ]], Cell[CellGroupData[{ Cell[41229, 1290, 234, 5, 49, "Subsection"], Cell[41466, 1297, 130, 1, 41, "BulletedList"], Cell[CellGroupData[{ Cell[41621, 1302, 103, 1, 47, "Subsubsection"], Cell[41727, 1305, 135, 4, 56, "Input"], Cell[41865, 1311, 164, 3, 39, "Input"], Cell[42032, 1316, 452, 12, 39, "Input"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[42557, 1336, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[42646, 1341, 141, 3, 81, "Section"], Cell[CellGroupData[{ Cell[42812, 1348, 225, 3, 49, "Subsection"], Cell[43040, 1353, 1862, 39, 282, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[44939, 1397, 236, 3, 49, "Subsection"], Cell[45178, 1402, 537, 12, 93, "Input"], Cell[45718, 1416, 248, 5, 39, "Input"] }, Open ]], Cell[45981, 1424, 137, 1, 49, "Subsection"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[46167, 1431, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[46256, 1436, 139, 3, 81, "Section"], Cell[CellGroupData[{ Cell[46420, 1443, 109, 1, 49, "Subsection"], Cell[46532, 1446, 358, 10, 39, "Input"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[46951, 1463, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[47040, 1468, 116, 1, 81, "Section"], Cell[47159, 1471, 104, 1, 49, "Subsection"], Cell[47266, 1474, 135, 1, 41, "Subsection"], Cell[47404, 1477, 168, 3, 41, "Subsection"] }, Open ]], Cell[CellGroupData[{ Cell[47609, 1485, 103, 1, 81, "Section"], Cell[47715, 1488, 96, 1, 49, "Subsection"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)