(* 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 *)