(* 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[ 432124, 9626] NotebookOptionsPosition[ 67625, 2159] NotebookOutlinePosition[ 425047, 9408] CellTagsIndexPosition[ 424937, 9402] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}], ButtonNote->"Last Slide"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], " ", "of", " ", CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], Appearance->{Automatic, None}]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["BI-BEZ \[Dash] Bezpe\[CHacek]nost \[Dash] Lab. cvi\[CHacek]en\ \[IAcute] 1\n", FontSize->24], "Tom\[AAcute]\[SHacek] Zahradnick\[YAcute], Ji\[RHacek]\[IAcute] \ Bu\[CHacek]ek\nKatedra po\[CHacek]\[IAcute]ta\[CHacek]ov\[YAcute]ch syst\ \[EAcute]m\[URing], FIT \[CapitalCHacek]VUT v Praze" }], "Section", CellChangeTimes->{{3.598934139859044*^9, 3.59893414432905*^9}, { 3.5989343360193186`*^9, 3.5989343405193253`*^9}, {3.598934380649381*^9, 3.5989344116694245`*^9}, {3.598934721319858*^9, 3.598934774989933*^9}, { 3.5989353254757123`*^9, 3.5989353646257677`*^9}}], Cell["", "Text", CellChangeTimes->{{3.5989349005801086`*^9, 3.598934902150111*^9}}], Cell[TextData[StyleBox["\[CapitalUAcute]vod do software Mathematica (opakov\ \[AAcute]n\[IAcute])", FontSize->24]], "Text", CellDingbat->"\[FilledSquare]", CellChangeTimes->{{3.5989344362494593`*^9, 3.5989344489494767`*^9}, { 3.5989346003096886`*^9, 3.598934712179845*^9}, {3.5989348200899963`*^9, 3.598934843480029*^9}}], Cell[TextData[StyleBox["Substitu\[CHacek]n\[IAcute] \[SHacek]ifra", FontSize->24]], "Text", CellDingbat->"\[FilledSquare]", CellChangeTimes->{{3.5989344362494593`*^9, 3.5989344489494767`*^9}, { 3.5989346003096886`*^9, 3.598934712179845*^9}, {3.5989348200899963`*^9, 3.5989348450400314`*^9}, {3.59893544532588*^9, 3.5989354484858847`*^9}}], Cell[TextData[StyleBox["Afinn\[IAcute] \[SHacek]ifry", FontSize->24]], "Text", CellDingbat->"\[FilledSquare]", CellChangeTimes->{{3.5989344362494593`*^9, 3.5989344489494767`*^9}, { 3.5989346003096886`*^9, 3.598934712179845*^9}, {3.5989348200899963`*^9, 3.5989348465200334`*^9}}], Cell[TextData[StyleBox["Transpozi\[CHacek]n\[IAcute] \[SHacek]ifra", FontSize->24]], "Text", CellDingbat->"\[FilledSquare]", CellChangeTimes->{{3.5989344362494593`*^9, 3.5989344489494767`*^9}, { 3.5989346003096886`*^9, 3.598934712179845*^9}, {3.5989348200899963`*^9, 3.5989348465200334`*^9}}], Cell["\<\ \ \>", "Text", CellChangeTimes->{{3.5989349047601147`*^9, 3.598934904930115*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}], ButtonNote->"Last Slide"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], " ", "of", " ", CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], Appearance->{Automatic, None}]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["\<\ Velejemny uvod do software Mathematica\ \>", "Section", CellChangeTimes->{{3.598934139859044*^9, 3.59893414432905*^9}}, TextJustification->1], Cell[TextData[{ "Ve cvicenich bude vyuzivano software ", StyleBox["Mathematica", FontSlant->"Italic"], " pro demonstraci sifer, jejich kryptoanalyzy, atd., a proto je dulezite se \ se softwarem ", StyleBox["Mathematica", FontSlant->"Italic"], " naucit pracovat alespon na nejake zakladni bazi.\n\n", StyleBox["Mathematica", FontSlant->"Italic"], " je rozdelena na Front End (toto) a Kernel (neni videt). Front End posila \ prikazy oznacene In[cislo] do kernelu a vystup z kernelu je oznacen \ Out[cislo]. Prikaz In[cislo] spustite (poslete do kernelu k vyhodnoceni) \ pomoci klavesove kombinace SHIFT+ENTER, anebo ENTER na numericke klavesnici." }], "Text"], Cell[TextData[{ "\nPred tim, nez zacneme, ", StyleBox["Mathematica", FontSlant->"Italic"], " je case sensitive a velmi dba na typ zavorek a proto pozor. Kulate zavorky \ oznacuji prioritu vyhodnocovani, hranate urcuji argumenty funkce a slozene \ oznacuji vektory, matice a seznamy. Vice viz dale." }], "Text"], Cell["\<\ Nyni zkuste vyhodnoti nasledujici vyrazy:\ \>", "Text"], Cell[BoxData[ RowBox[{"Mod", "[", RowBox[{"283", ",", "17"}], "]"}]], "Input", CellLabel->"In[1]:="], Cell[BoxData[ RowBox[{"Sin", "[", RowBox[{"Pi", "/", "2"}], "]"}]], "Input", CellLabel->"In[2]:="], Cell[BoxData[ RowBox[{"Sum", "[", RowBox[{ RowBox[{"1", "/", RowBox[{"i", "^", "2"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "\[Infinity]"}], "}"}]}], "]"}]], "Input", CellLabel->"In[3]:="], Cell[BoxData[ RowBox[{"Mod", "[", RowBox[{ RowBox[{"102", "*", RowBox[{"BEZInverse", "[", RowBox[{"102", ",", "113"}], "]"}]}], ",", "113"}], "]"}]], "Input", CellLabel->"In[4]:="], Cell["\<\ \ \>", "Text", CellChangeTimes->{{3.5989349159001303`*^9, 3.5989349190501347`*^9}}], Cell[CellGroupData[{ Cell["", "Subsection"], Cell["", "Text"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}], ButtonNote->"Last Slide"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], " ", "of", " ", CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], Appearance->{Automatic, None}]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Inicializace worksheetu", "Section", TextJustification->1], Cell["\<\ Aby bylo mozne pouzit programy v techno slajdech, je nutne provest \ inicializaci. Klepnete kamkoliv do bloku s programem a nechte ho vyhodnotit. \ Block obsahuje definice funkci, ktere budou pouzity pro sifrovani, \ desifrovani a analyzu. Neni nutne se temitito funkcemi zaobirat.\ \>", "Text"], Cell["", "Text"], Cell[BoxData[{ RowBox[{ RowBox[{"<<", "\"\\""}], ";"}], "\n", RowBox[{ RowBox[{"NCharacters", "=", "26"}], ";"}], "\n", RowBox[{ RowBox[{"SYMBOLS", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"FromCharacterCode", "[", RowBox[{"65", "+", "i"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "57"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"ENGLISH", "=", RowBox[{"{", RowBox[{ "0.0805726131341181993`1.9999999999999998", ",", "0.0125943599170806117`1.9999999999999998", ",", "0.0362576759103531896`1.9999999999999976", ",", "0.0380959831032189932`1.9999999999999998", ",", "0.1146790784996284273`1.9999999999999998", ",", "0.0240935581022411703`1.9999999999999998", ",", "0.0157233934368521923`1.9999999999999998", ",", "0.031212109359721516`1.9999999999999998", ",", "0.0741972073375836039`1.9999999999999998", ",", "0.001290726326905777`1.9999999999999998", ",", "0.0015254038408886455`1.9999999999999998", ",", "0.0429459850588649431`1.9999999999999998", ",", "0.0222943638283725115`1.9999999999999998", ",", "0.0746274494465521962`1.9999999999999998", ",", "0.0873782610396213869`1.9999999999999998", ",", "0.0389955802401533226`1.9999999999999998", ",", "0.0010169358939257637`1.9999999999999976", ",", "0.0751750303125122228`1.9999999999999998", ",", "0.0571830875738256346`1.9999999999999998", ",", "0.0912504400203387179`1.9999999999999998", ",", "0.0322290452536472797`1.9999999999999998", ",", "0.0081746000704032542`1.9999999999999998", ",", "0.0116165369421519928`1.9999999999999976", ",", "0.0017991942738686588`1.9999999999999998", ",", "0.0243282356162240388`1.9999999999999998", ",", "0.0007431454609457504`1.9999999999999998"}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"VelikostAbecedy", "[", "n_Integer", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{ RowBox[{"NCharacters", "=", "n"}], ";", RowBox[{"Take", "[", RowBox[{"SYMBOLS", ",", "n"}], "]"}]}]}], "]"}]}], "\n", RowBox[{ RowBox[{"BEZRotChar", "[", RowBox[{"x_", ",", "amount_"}], "]"}], ":=", RowBox[{"FromCharacterCode", "[", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"ToCharacterCode", "[", "x", "]"}], "-", RowBox[{"ToCharacterCode", "[", "\"\\"", "]"}]}], ")"}], "+", "amount"}], ",", "NCharacters"}], "]"}], "+", RowBox[{"ToCharacterCode", "[", "\"\\"", "]"}]}], "]"}]}], "\n", RowBox[{ RowBox[{"AXPBChar", "[", RowBox[{"x_", ",", "a_", ",", "b_"}], "]"}], ":=", RowBox[{"FromCharacterCode", "[", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"ToCharacterCode", "[", "x", "]"}], "-", RowBox[{"ToCharacterCode", "[", "\"\\"", "]"}]}], ")"}], " ", "a"}], "+", "b"}], ",", "NCharacters"}], "]"}], "+", RowBox[{"ToCharacterCode", "[", "\"\\"", "]"}]}], "]"}]}], "\n", RowBox[{ RowBox[{"AXPB", "[", RowBox[{"x_String", ",", "a_", ",", "b_"}], "]"}], ":=", RowBox[{"StringJoin", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"AXPBChar", "[", RowBox[{"#1", ",", "a", ",", "b"}], "]"}], "&"}], ")"}], "/@", RowBox[{"Characters", "[", RowBox[{"BEZPrepText", "[", "x", "]"}], "]"}]}], "]"}]}], "\n", RowBox[{ RowBox[{"AXPBDecrypt", "[", RowBox[{"x_String", ",", "a_", ",", "b_"}], "]"}], ":=", RowBox[{"StringJoin", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"AXPBCharDecrypt", "[", RowBox[{"#1", ",", "a", ",", "b"}], "]"}], "&"}], ")"}], "/@", RowBox[{"Characters", "[", "x", "]"}]}], "]"}]}], "\n", RowBox[{ RowBox[{"BEZZnakPlusB", "[", RowBox[{"x_String", ",", "b_Integer"}], "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"BEZRotChar", "[", RowBox[{"#1", ",", "b"}], "]"}], "&"}], ")"}], "/@", RowBox[{"Characters", "[", "x", "]"}]}]}], "\n", RowBox[{ RowBox[{"AXPBCharDecrypt", "[", RowBox[{"x_", ",", "a_", ",", "b_"}], "]"}], ":=", RowBox[{"FromCharacterCode", "[", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"ToCharacterCode", "[", "x", "]"}], "-", RowBox[{"ToCharacterCode", "[", "\"\\"", "]"}]}], ")"}], "-", "b"}], ")"}], " ", RowBox[{"BEZInverse", "[", RowBox[{"a", ",", "NCharacters"}], "]"}]}], ",", "NCharacters"}], "]"}], "+", RowBox[{"ToCharacterCode", "[", "\"\\"", "]"}]}], "]"}]}], "\n", RowBox[{ RowBox[{"BEZInverse", "[", RowBox[{"x_Integer", ",", "mod_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"Inverse", "[", RowBox[{ RowBox[{"{", RowBox[{"{", "x", "}"}], "}"}], ",", RowBox[{"Modulus", "\[Rule]", "mod"}]}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], "\n", RowBox[{ RowBox[{"Caesar", "[", RowBox[{"x_String", ",", "posun_"}], "]"}], ":=", RowBox[{"StringJoin", "[", RowBox[{"BEZZnakPlusB", "[", RowBox[{"x", ",", "posun"}], "]"}], "]"}]}], "\n", RowBox[{ RowBox[{"BEZPrepText", "[", "x_String", "]"}], ":=", RowBox[{"FromCharacterCode", "[", RowBox[{"Select", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#1", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "&"}], ")"}], "/@", RowBox[{"ToCharacterCode", "[", RowBox[{"Characters", "[", RowBox[{"ToUpperCase", "[", "x", "]"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"0", "\[LessEqual]", RowBox[{"#1", "-", RowBox[{ RowBox[{"ToCharacterCode", "[", "\"\\"", "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], "\[LessEqual]", "NCharacters"}], "&"}]}], "]"}], "]"}]}], "\n", RowBox[{ RowBox[{"BEZAbsCetnosti", "[", "x_String", "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Length", "[", RowBox[{"Select", "[", RowBox[{ RowBox[{"Characters", "[", RowBox[{"BEZPrepText", "[", "x", "]"}], "]"}], ",", RowBox[{ RowBox[{"#1", "===", RowBox[{ "SYMBOLS", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}], "&"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "NCharacters"}], "}"}]}], "]"}]}], "\n", RowBox[{ RowBox[{ RowBox[{"BEZRelCetnosti", "[", "x_String", "]"}], ":=", RowBox[{"N", "[", RowBox[{ FractionBox[ RowBox[{"BEZAbsCetnosti", "[", "x", "]"}], RowBox[{"StringLength", "[", RowBox[{"BEZPrepText", "[", "x", "]"}], "]"}]], ",", "2"}], "]"}]}], "\n"}], "\n", RowBox[{ RowBox[{"RelCetnosti", "[", "x_String", "]"}], ":=", RowBox[{"TableForm", "[", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "X", "}"}], ",", RowBox[{ RowBox[{"X", "=", RowBox[{"BEZRelCetnosti", "[", "x", "]"}]}], ";", TagBox[ RowBox[{"Append", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"SYMBOLS", "\[LeftDoubleBracket]", RowBox[{ RowBox[{"7", " ", "i"}], "+", "j"}], "\[RightDoubleBracket]"}], ",", RowBox[{"X", "\[LeftDoubleBracket]", RowBox[{ RowBox[{"7", " ", "i"}], "+", "j"}], "\[RightDoubleBracket]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "7"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Floor", "[", FractionBox["NCharacters", "7"], "]"}]}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"SYMBOLS", "\[LeftDoubleBracket]", RowBox[{ RowBox[{"7", " ", RowBox[{"Floor", "[", FractionBox["NCharacters", "7"], "]"}]}], "+", "i"}], "\[RightDoubleBracket]"}], ",", RowBox[{"X", "\[LeftDoubleBracket]", RowBox[{ RowBox[{"7", " ", RowBox[{"Floor", "[", FractionBox["NCharacters", "7"], "]"}]}], "+", "i"}], "\[RightDoubleBracket]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Mod", "[", RowBox[{"NCharacters", ",", "7"}], "]"}]}], "}"}]}], "]"}]}], "]"}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]}]}], "]"}], "]"}]}], "\n", RowBox[{ RowBox[{"BEZGrafyRelCetnosti", "[", RowBox[{"x_String", ",", "y_String"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"RC1", ",", "RC2"}], "}"}], ",", RowBox[{ RowBox[{"RC1", "=", RowBox[{"BEZRelCetnosti", "[", "x", "]"}]}], ";", RowBox[{"RC2", "=", RowBox[{"BEZRelCetnosti", "[", "y", "]"}]}], ";", RowBox[{"BarChart", "[", RowBox[{ RowBox[{"{", RowBox[{"RC1", ",", "RC2"}], "}"}], ",", RowBox[{"BarLabels", "\[Rule]", "SYMBOLS"}], ",", RowBox[{"BarEdges", "\[Rule]", "False"}], ",", RowBox[{"BarStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{".1", ",", ".2", ",", ".7"}], "]"}], ",", RowBox[{"Opacity", "[", "0.7", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"0", ",", ".7", ",", "0"}], "]"}], ",", RowBox[{"Opacity", "[", "0.7", "]"}]}], "]"}]}], "}"}]}], ",", RowBox[{"BarSpacing", "\[Rule]", "0.1"}], ",", RowBox[{"Background", "\[Rule]", RowBox[{"GrayLevel", "[", ".9", "]"}]}]}], "]"}]}]}], "]"}]}], "\n", RowBox[{ RowBox[{"BEZGrafyRelCetnostiSAnglictinou", "[", "x_String", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"RC1", ",", "RC2"}], "}"}], ",", RowBox[{ RowBox[{"RC1", "=", RowBox[{"BEZRelCetnosti", "[", "x", "]"}]}], ";", RowBox[{"RC2", "=", "ENGLISH"}], ";", RowBox[{"BarChart", "[", RowBox[{ RowBox[{"{", RowBox[{"RC1", ",", "RC2"}], "}"}], ",", RowBox[{"BarLabels", "\[Rule]", "SYMBOLS"}], ",", RowBox[{"BarEdges", "\[Rule]", "False"}], ",", RowBox[{"BarStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{".1", ",", ".2", ",", ".7"}], "]"}], ",", RowBox[{"Opacity", "[", "0.7", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"0", ",", ".7", ",", "0"}], "]"}], ",", RowBox[{"Opacity", "[", "0.7", "]"}]}], "]"}]}], "}"}]}], ",", RowBox[{"BarSpacing", "\[Rule]", "0.1"}], ",", RowBox[{"Background", "\[Rule]", RowBox[{"GrayLevel", "[", ".9", "]"}]}]}], "]"}]}]}], "]"}]}], "\n", RowBox[{ RowBox[{"RelCetnostiZBEZRelCetnosti", "[", "x_", "]"}], ":=", RowBox[{"TableForm", "[", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"FromCharacterCode", "[", RowBox[{"64", "+", "i"}], "]"}], ",", RowBox[{ "x", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "7"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"FromCharacterCode", "[", RowBox[{"64", "+", "i"}], "]"}], ",", RowBox[{ "x", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "8", ",", "14"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"FromCharacterCode", "[", RowBox[{"64", "+", "i"}], "]"}], ",", RowBox[{ "x", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "15", ",", "21"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"FromCharacterCode", "[", RowBox[{"64", "+", "i"}], "]"}], ",", RowBox[{ "x", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "22", ",", "26"}], "}"}]}], "]"}]}], "}"}], "]"}]}], "\n", RowBox[{ RowBox[{"Pozice", "[", "x_String", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"StringPosition", "[", RowBox[{ RowBox[{"StringJoin", "[", "SYMBOLS", "]"}], ",", "x"}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "-", "1"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"BEZPadString", "[", RowBox[{"x_String", ",", "n_Integer"}], "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"StringLength", "[", "x", "]"}], "<", "n"}], ",", RowBox[{"BEZPadString", "[", RowBox[{ RowBox[{"StringJoin", "[", RowBox[{"x", ",", "\"\\""}], "]"}], ",", "n"}], "]"}], ",", " ", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"StringLength", "[", "x", "]"}], "==", "n"}], ",", " ", "x", ",", " ", RowBox[{"Abort", "[", "]"}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"BEZNumToPad", "[", RowBox[{"x_String", ",", "cols_Integer"}], "]"}], ":=", RowBox[{ RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"StringLength", "[", "x", "]"}], "+", "cols", "-", "1"}], ")"}], "/", "cols"}], "]"}], "*", "cols"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"BEZGenerMatrix", "[", RowBox[{"x_String", ",", "cols_Integer"}], "]"}], ":=", RowBox[{"Partition", "[", RowBox[{ RowBox[{"Characters", "[", RowBox[{"BEZPadString", "[", RowBox[{ RowBox[{"BEZPrepText", "[", "x", "]"}], ",", RowBox[{"BEZNumToPad", "[", RowBox[{ RowBox[{"BEZPrepText", "[", "x", "]"}], ",", "cols"}], "]"}]}], "]"}], "]"}], ",", "cols"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Transpozice", "[", RowBox[{"x_String", ",", "cols_Integer"}], "]"}], ":=", RowBox[{"StringJoin", "[", RowBox[{"Flatten", "[", RowBox[{"Transpose", "[", RowBox[{"BEZGenerMatrix", "[", RowBox[{ RowBox[{"BEZPrepText", "[", "x", "]"}], ",", "cols"}], "]"}], "]"}], "]"}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}]}], "Input", CellChangeTimes->{{3.412341629085438*^9, 3.412341632429482*^9}, { 3.412342640409195*^9, 3.412342664815284*^9}, {3.412343619761381*^9, 3.4123436576466227`*^9}, {3.412343711882279*^9, 3.412343761802808*^9}, { 3.412343801775918*^9, 3.412343844260603*^9}, {3.41235638875*^9, 3.412356412140625*^9}, 3.4123566106875*^9, {3.41250279278125*^9, 3.41250281046875*^9}, 3.41262227246875*^9, {3.5989351774745054`*^9, 3.598935181644511*^9}}, CellLabel->"In[35]:="], Cell[BoxData[""], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}], ButtonNote->"Last Slide"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], " ", "of", " ", CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], Appearance->{Automatic, None}]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Jednoduche sifry (Caesarova sifra)", "Section", CellTags->"LastSlide"], Cell[TextData[{ "Caesarova sifra je znama jako jednoducha substitucni proudova (znakova) \ sifra, ktera provadi transformaci y = ", Cell[BoxData[ FormBox[ RowBox[{"|", RowBox[{"x", "+", "3"}], SubscriptBox["|", "26"]}], TraditionalForm]]], ". Mejme otevreny text (nechte vyhodnotit)" }], "Text"], Cell[BoxData[ RowBox[{"OT", ":=", "\"\\""}]], "Input", CellLabel->"In[27]:="], Cell["Zasifrovany text bude:", "Text"], Cell[BoxData[ RowBox[{"ST", "=", RowBox[{"Caesar", "[", RowBox[{"OT", ",", "3"}], "]"}]}]], "Input", CellLabel->"In[28]:="], Cell["\<\ Text lze snadno desifrovat provedenim opacne operace (odectenim) posunu:\ \>", "Text"], Cell[BoxData[ RowBox[{"Caesar", "[", RowBox[{"ST", ",", RowBox[{"-", "3"}]}], "]"}]], "Input", CellLabel->"In[29]:="], Cell["Kryptoanalyzu teto sifry naleznete na dalsi strance.", "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}]], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], " ", "of", " ", CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], Appearance->{Automatic, None}]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Kryptoanalyza Caesarovy sifry", "Section"], Cell["Relativni cetnosti sifroveho textu z minuleho slajdu jsou:", "Text"], Cell[BoxData[ RowBox[{"RelCetnosti", "[", "ST", "]"}]], "Input", CellLabel->"In[30]:="], Cell["Relativni cetnosti otevreneho textu z minuleho slajdu jsou:", "Text"], Cell[BoxData[ RowBox[{"RelCetnosti", "[", "OT", "]"}]], "Input", CellLabel->"In[31]:="] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}]], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], " ", "of", " ", CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], Appearance->{Automatic, None}]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Kryptoanalyza Caesarovy sifry (2)", "Section"], Cell["\<\ Srovnanim relativnich cetnosti (cervena pro sifrovy text, modra pro otevreny \ text) vidime ze sifra zpusobila posun relativnich cetnosti nasledujicim \ zpusobem:\ \>", "Text"], Cell[BoxData[ RowBox[{"BEZGrafyRelCetnosti", "[", RowBox[{"ST", ",", "OT"}], "]"}]], "Input", CellLabel->"In[32]:="], Cell[TextData[{ "Z grafu vidime, ze pokud zname otevreny text, je velmi snadne uhodnout \ transformaci, ktera povede k desifrovani textu. Staci jen posunout cetnosti \ tak, aby grafy splynuly. Pokud otevreny text k dispozici nemame, musime si \ vystacit napriklad se vzorkem relativnich cetnosti pro jazyk, kterym \ predpokladame, ze je sifrovy text psan. Predpokladame, ze sifrovy text je \ psan v anglictive, pro kterou mame relativni cetnosti ulozene v promenne ", StyleBox["ENGLISH", FontWeight->"Bold"], "." }], "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}]], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], " ", "of", " ", CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], Appearance->{Automatic, None}]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Kryptoanalyza Caesarovy sifry (3)", "Section"], Cell["\<\ Relativni cetnosti pro anglictinu jsou (ziskano jako relativni cetnosti z cca \ 20KB souboru):\ \>", "Text"], Cell[BoxData[ RowBox[{"RelCetnostiZBEZRelCetnosti", "[", "ENGLISH", "]"}]], "Input", CellLabel->"In[33]:="], Cell["\<\ Nyni muzeme udelat stejny krok, jako v minulem pripade a srovnat relativni \ cenosti sifroveho textu s relativnimi cetnostmi pro anglictinu:\ \>", "Text"], Cell[BoxData[ RowBox[{"BEZGrafyRelCetnostiSAnglictinou", "[", "ST", "]"}]], "Input", CellLabel->"In[34]:="] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}]], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], " ", "of", " ", CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], Appearance->{Automatic, None}]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["\<\ Ukol 1: Zjistete co se skryva pod nasledujicim sifrovym textem?\ \>", "Section"], Cell["Neznamy sifrovy text ST je:", "Text"], Cell[BoxData[ RowBox[{"ST", "=", "\"\\""}]], "Input", CellLabel->"In[64]:="], Cell["\<\ Provedte analyzu relativnich cetnosti a naleznete k nemu otevreny text. Jde o \ sifru podobnou Caesarove sifre.\ \>", "Text", CellLabel->"In[280]:="], Cell[BoxData[ RowBox[{"BEZGrafyRelCetnostiSAnglictinou", "[", "ST", "]"}]], "Input", CellLabel->"In[65]:="], Cell[TextData[{ StyleBox["Navod:", FontWeight->"Bold"], " Srovnejte relativni cetnost. Promenna ", StyleBox["ST", FontWeight->"Bold"], " je", StyleBox[" ", FontWeight->"Bold"], "globalni, takze muzete pouzit pomucky uvedene na predchozich slajdech. ", " " }], "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}]], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], " ", "of", " ", CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], Appearance->{Automatic, None}]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ "Sifry typu ", Cell[BoxData[ FormBox[ RowBox[{"|", RowBox[{"ap", "+", "b"}], SubscriptBox["|", "m"]}], TraditionalForm]]] }], "Section"], Cell[TextData[{ "Caesarova sifra je specialnim pripadem afinni sifry ", Cell[BoxData[ FormBox[ RowBox[{"|", RowBox[{"ap", "+", "b"}], SubscriptBox["|", "m"]}], TraditionalForm]]], " a je definovana jako ", Cell[BoxData[ FormBox[ RowBox[{"|", RowBox[{"p", "+", "b"}], SubscriptBox["|", "m"]}], TraditionalForm]]], ". Sifra tez predstavuje substituci, avsak nyni jiz tato substituce \ neposunuje graf relativnich cetnosti, ale dochazi k dukladnejsimu \ \"promichani\" (viz graf relativnich cetnosti). Celou vec si ukazme na \ prikladu:" }], "Text"], Cell[BoxData[ RowBox[{"OT", "=", "\"\\""}]], "Input", CellLabel->"In[66]:="], Cell[BoxData[{ RowBox[{"NCharacters", "=", "29"}], "\[IndentingNewLine]", RowBox[{"ST", "=", RowBox[{"AXPB", "[", RowBox[{"OT", ",", "6", ",", "19"}], "]"}]}]}], "Input", CellLabel->"In[67]:="], Cell[BoxData[ RowBox[{"BEZGrafyRelCetnosti", "[", RowBox[{"ST", ",", "OT"}], "]"}]], "Input", CellLabel->"In[69]:="], Cell[TextData[{ "Sifrovy text muzeme desifrovat obracenim sifrovaciho predpisu a to je-li ", Cell[BoxData[ FormBox[ RowBox[{"y", "=", RowBox[{"|", RowBox[{"ap", "+", "b"}], SubscriptBox["|", "m"]}]}], TraditionalForm]]], "bude ", Cell[BoxData[ FormBox[ RowBox[{"p", "=", RowBox[{"|", RowBox[{ SuperscriptBox["a", RowBox[{"-", "1"}]], "(", RowBox[{"y", "-", "b"}], ")"}], SubscriptBox["|", "m"]}]}], TraditionalForm]]], "." }], "Text"], Cell[BoxData[ RowBox[{"AXPB", "[", RowBox[{"ST", ",", "5", ",", "21"}], "]"}]], "Input", CellLabel->"In[70]:="], Cell[CellGroupData[{ Cell[TextData[{ "Poznamka:", StyleBox[" Prikazem NCharacters=29 se rozsirila abeceda na 29 symbolu; \ jejich seznam viz dole.", FontWeight->"Plain"] }], "SubsubsectionIcon"], Cell[TextData[{ "Vsimnete si, ze jsme pred pouzitim transformace ", Cell[BoxData[ FormBox[ RowBox[{"|", RowBox[{"ap", "+", "b"}], SubscriptBox["|", "m"]}], TraditionalForm]]], " rozsirili vstupni abecedu na 29 znaku z 26 pouzitim prirazeni ", StyleBox["NCharacters=26", FontWeight->"Bold"], ". Proc byla tato operace nutna a co se stane, kdyz ", StyleBox["NCharacters", FontWeight->"Bold"], " zustane 26?\nPromenna ", StyleBox["SYMBOLS", FontWeight->"Bold"], " obsahuje celou abecedu, ktera muze byt rozsirena az na 58 znaku. Pro \ vypsani abecedy pouzite pro sifrovani muzeme pouzit funkci softwaru ", StyleBox["Mathematica", FontSlant->"Italic"], " ", StyleBox["Take", FontWeight->"Bold"], ", ktera vezme prvnich ", StyleBox["N", FontWeight->"Bold"], " znaku ze seznamu ", StyleBox["SYMBOLS", FontWeight->"Bold"], ", kde N=NCharacters." }], "Text", CellChangeTimes->{{3.41250568584375*^9, 3.41250571328125*^9}}], Cell[BoxData[ RowBox[{"Take", "[", RowBox[{"SYMBOLS", ",", "NCharacters"}], "]"}]], "Input", CellLabel->"In[71]:="] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}]], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], " ", "of", " ", CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], Appearance->{Automatic, None}]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ "Ukol 2: Kryptoanalyza sifry ", Cell[BoxData[ FormBox[ RowBox[{"|", RowBox[{"ap", "+", "b"}], SubscriptBox["|", "m"]}], TraditionalForm]]] }], "Section", CellChangeTimes->{{3.41250585584375*^9, 3.412505855953125*^9}}], Cell[TextData[{ "1. Vyberte nahodne konstanty ", Cell[BoxData[ FormBox["a", TraditionalForm]]], " a ", Cell[BoxData[ FormBox["b", TraditionalForm]]], " a pro NCharacters=29 s nimi anglicky text alespon o 100 znacich. Takovy \ text muzete nalezt napriklad v libovolne dokumentaci k software. Az budete \ mit sifrovy text, poskytnete ho sousedovi (napr. e-mailem) ale nesdelujte mu \ hodnoty konstant!" }], "Text"], Cell[BoxData[{ RowBox[{ RowBox[{"NCharacters", "=", "29"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ "OT", "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", "9"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", "23"}], ";"}]}], "Input", CellLabel->"In[355]:="], Cell[BoxData[ RowBox[{"ST", "=", RowBox[{"AXPB", "[", RowBox[{"OT", ",", "a", ",", "b"}], "]"}]}]], "Input", CellLabel->"In[359]:="], Cell["", "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}]], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], " ", "of", " ", CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], Appearance->{Automatic, None}]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ "Ukol 2: Kryptoanalyza sifry ", Cell[BoxData[ FormBox[ RowBox[{"|", RowBox[{"ap", "+", "b"}], SubscriptBox["|", "m"]}], TraditionalForm]]], " (2)" }], "Section", CellChangeTimes->{{3.41250586*^9, 3.412505860171875*^9}}], Cell["\<\ 2. Az obdrzite sifrovy text od souseda, priradte jeho hodnotu do promenne ST:\ \>", "Text"], Cell[BoxData[ RowBox[{ RowBox[{ "ST", "=", "\"\\""}], ";"}]], "Input", CellLabel->"In[360]:="], Cell["Nyni provedte analyzu cetnosti:", "Text"], Cell[BoxData[ RowBox[{"RelCetnosti", "[", "ST", "]"}]], "Input", CellLabel->"In[361]:="], Cell["A srovnejte ji s cetnostmi pro anglictinu:", "Text"], Cell[BoxData[ RowBox[{"RelCetnostiZBEZRelCetnosti", "[", "ENGLISH", "]"}]], "Input", CellLabel->"In[362]:="] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}]], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], " ", "of", " ", CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], Appearance->{Automatic, None}]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ "Ukol 2: Kryptoanalyza sifry ", Cell[BoxData[ FormBox[ RowBox[{"|", RowBox[{"ap", "+", "b"}], SubscriptBox["|", "m"]}], TraditionalForm]]], " (3)" }], "Section", CellChangeTimes->{{3.412505865109375*^9, 3.41250586525*^9}}], Cell[TextData[{ "Z analyzy relativnich cetnosti muzeme zjistit, ze nejcetni pismena pro \ anglictinu jsou T a E. Toho muzeme pouzit pro zjisteni desifrovaciho klice. \ Vybereme tedy 2 nejcetnejsi pismena z analyzy sifroveho textu a zkusime je \ namapovat na T a E. Resenim soustavy 2 rovnic o 2 neznamych vypocteme nezname \ koeficienty ", Cell[BoxData[ FormBox["a", TraditionalForm]]], " a ", Cell[BoxData[ FormBox["b", TraditionalForm]]], "." }], "Text"], Cell[TextData[{ "Rekneme ze pro nas priklad vidime, ze nejcetnejsi jsou pismena U a B. \ Zkusme tedy predpokladat, ze:\n\t", Cell[BoxData[ FormBox[ RowBox[{"U", "=", RowBox[{"|", RowBox[{ RowBox[{"a", " ", "T"}], "+", "b"}], SubscriptBox["|", "29"]}]}], TraditionalForm]]], "\n\t", Cell[BoxData[ FormBox[ RowBox[{"B", "=", RowBox[{"|", RowBox[{ RowBox[{"a", " ", "E"}], "+", "b"}], SubscriptBox["|", "29"]}]}], TraditionalForm]]], "\nTedy, z ", Cell[BoxData[ FormBox["T", TraditionalForm]]], " neznamou transformaci vznikne ", Cell[BoxData[ FormBox["U", TraditionalForm]]], " a z ", Cell[BoxData[ FormBox["E", TraditionalForm]]], " touz transformaci vznikne ", Cell[BoxData[ FormBox["B", TraditionalForm]]], ". Abychom urcili ", Cell[BoxData[ FormBox["a", TraditionalForm]]], " a ", Cell[BoxData[ FormBox["b", TraditionalForm]]], ", musime uz jen vyresit tyto dve rovnice napriklad dosazovaci metodou:" }], "Text"], Cell[TextData[{ "\t", Cell[BoxData[ FormBox[ RowBox[{"b", "=", RowBox[{"|", RowBox[{"U", "-", RowBox[{"a", " ", "T"}]}], SubscriptBox["|", "29"]}]}], TraditionalForm]]], "\n\t", Cell[BoxData[ FormBox["B", TraditionalForm]]], " = ", Cell[BoxData[ FormBox[ RowBox[{"|", RowBox[{ RowBox[{"a", " ", "E"}], "+"}], "|", RowBox[{"U", "-", RowBox[{"a", " ", "T"}]}], SubscriptBox["|", "29"], SubscriptBox["|", "29"]}], TraditionalForm]]] }], "Text"], Cell[TextData[{ "Protoze nezalezi, kdy redukci mod 29 provedeme, muzeme vztah prepsat jako:\n\ \t", Cell[BoxData[ FormBox[ RowBox[{"B", " "}], TraditionalForm]]], "= ", Cell[BoxData[ FormBox[ RowBox[{"|", RowBox[{ RowBox[{"a", " ", RowBox[{"(", " ", RowBox[{"E", " ", "-", " ", "T"}], " ", ")"}]}], "+", "U"}], SubscriptBox["|", "29"]}], TraditionalForm]]], "\n\t", Cell[BoxData[ FormBox[ RowBox[{"a", " ", "=", RowBox[{"|", RowBox[{ RowBox[{"(", RowBox[{"B", "-", "U"}], ")"}], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"E", "-", "T"}], ")"}], RowBox[{"-", "1"}]]}], SubscriptBox["|", "29"]}]}], TraditionalForm]]], "\n\t", Cell[BoxData[ FormBox[ RowBox[{"b", " ", "=", " ", RowBox[{"|", RowBox[{"U", "-", RowBox[{ RowBox[{"(", RowBox[{"B", "-", "U"}], ")"}], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"E", "-", "T"}], ")"}], RowBox[{"-", "1"}]], "T"}]}], SubscriptBox["|", "29"]}]}], TraditionalForm]]] }], "Text"], Cell["\<\ Nyni muzeme predpis zkusit (pozn. pokud budete pocitat na papire, nezapomente \ ze A odpovida 0, B 1, atd.):\ \>", "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}]], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], " ", "of", " ", CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], Appearance->{Automatic, None}]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[TextData[{ "Ukol 2: Kryptoanalyza sifry ", Cell[BoxData[ FormBox[ RowBox[{"|", RowBox[{"ap", "+", "b"}], SubscriptBox["|", "m"]}], TraditionalForm]]], " (4)" }], "Section", CellChangeTimes->{{3.412505868890625*^9, 3.412505869015625*^9}}], Cell[TextData[{ "Pro jednoduchost jsou zde rovnice implementovany do systemu ", StyleBox["Mathematica", FontSlant->"Italic"], " a vypoctene konstanty se ulozi do promennych ", Cell[BoxData[ FormBox["c", TraditionalForm]]], " a ", Cell[BoxData[ FormBox["d", TraditionalForm]]], "." }], "Text"], Cell[BoxData[{ RowBox[{"c", "=", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Pozice", "[", "\"\\"", "]"}], "-", RowBox[{"Pozice", "[", "\"\\"", "]"}]}], ")"}], "*", RowBox[{"BEZInverse", "[", RowBox[{ RowBox[{ RowBox[{"Pozice", "[", "\"\\"", "]"}], "-", RowBox[{"Pozice", "[", "\"\\"", "]"}]}], ",", "NCharacters"}], "]"}]}], ",", "NCharacters"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"d", "=", RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"Pozice", "[", "\"\\"", "]"}], "-", RowBox[{"c", "*", RowBox[{"Pozice", "[", "\"\\"", "]"}]}]}], ",", "NCharacters"}], "]"}]}]}], "Input", CellLabel->"In[61]:="], Cell["Nyni se muzeme pokusit text desifrovat:", "Text"], Cell[BoxData[ RowBox[{"AXPBDecrypt", "[", RowBox[{"ST", ",", "c", ",", "d"}], "]"}]], "Input", CellLabel->"In[365]:="] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}], ButtonNote->"Last Slide"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], " ", "of", " ", CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], Appearance->{Automatic, None}]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Transpozice", "Section", TextJustification->1], Cell[TextData[{ "Substituce zpusobuje konfuzi nahradou jednoho znaku znakem jinym a sifry \ zalozene na ni jsou zranitelne frekvencni analyzou. Proto obvykle substituci \ kombinujeme s transpozici, ktera preskupuje poradi pismen v textu (difuze). \ To se v praxi provadi zapsanim otevreho textu do matice po radcich a precteni \ po sloupcich. Ukazme si to na priklade textu \"PLEASE SEND MONEY\", ktery \ nejdrive doplnime vyplni (X) na delku, ktera obsadi celou matici. Tak ziskame \ matici:\n", Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"\<\"P\"\>", "\<\"L\"\>", "\<\"E\"\>", "\<\"A\"\>", "\<\"S\"\>", \ "\<\"E\"\>"}, {"\<\"S\"\>", "\<\"E\"\>", "\<\"N\"\>", "\<\"D\"\>", "\<\"M\"\>", \ "\<\"O\"\>"}, {"\<\"N\"\>", "\<\"E\"\>", "\<\"Y\"\>", "\<\"X\"\>", "\<\"X\"\>", \ "\<\"X\"\>"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]]], ", kterou transponujeme ", Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"\<\"P\"\>", "\<\"S\"\>", "\<\"N\"\>"}, {"\<\"L\"\>", "\<\"E\"\>", "\<\"E\"\>"}, {"\<\"E\"\>", "\<\"N\"\>", "\<\"Y\"\>"}, {"\<\"A\"\>", "\<\"D\"\>", "\<\"X\"\>"}, {"\<\"S\"\>", "\<\"M\"\>", "\<\"X\"\>"}, {"\<\"E\"\>", "\<\"O\"\>", "\<\"X\"\>"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]]], " a precteme text po radcich, cimz dostavame:\nPSNLEEENYADXSMXEOX. V \ kombinaci se substituci napriklad pomoci afinni sifry je vysledna sifra \ posilena. Transpozici si muzete vyzkouset volanim funkce ", StyleBox["Transpozice[retezec, pocet sloupcu]", "Input", FontWeight->"Bold"], ":" }], "Text"], Cell[BoxData[{ RowBox[{ RowBox[{"NCharacters", "=", "26"}], ";"}], "\[IndentingNewLine]", RowBox[{"ST", "=", RowBox[{"Transpozice", "[", RowBox[{"\"\\"", ",", "6"}], "]"}]}]}], "Input", CellLabel->"In[63]:="], Cell[TextData[{ "Pokud bychom chteli videt matici, muzete pouzit funkci ", StyleBox["BEZGenerMatrix[retez, pocet sloupcu].", FontWeight->"Bold"], " Tim zaroven uvidime mnozstvi vyplne, ktere se pridalo na zarovnani na \ potrebnou delku." }], "Text"], Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"BEZGenerMatrix", "[", RowBox[{"\"\\"", ",", "6"}], "]"}], "//", "MatrixForm"}], FontWeight->"Bold"]], "Input", CellLabel->"In[65]:="] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}]], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], " ", "of", " ", CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], Appearance->{Automatic, None}]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Transpozice (2)", "Section"], Cell["\<\ Detranspozice se provadi obracenim predpisu, tedy zadanim poctu radku \ vysledne matice:\ \>", "Text"], Cell[BoxData[ RowBox[{"OT", "=", RowBox[{"Transpozice", "[", RowBox[{"ST", ",", "4"}], "]"}]}]], "Input", CellLabel->"In[66]:="], Cell[TextData[{ "Je zrejme, ze transpozice ", StyleBox["NEMA", FontWeight->"Bold"], " vliv na frekvencni usporadani a graf otevreneho i sifroveho textu bude pro \ analyzu relativni cetnosti naprosto identiticky. To si muzeme ukazat v \ nasledujicim prikladu:" }], "Text"], Cell[BoxData[{"OT", "\[IndentingNewLine]", "ST"}], "Input", CellLabel->"In[67]:="], Cell[BoxData[ RowBox[{"BEZGrafyRelCetnosti", "[", RowBox[{"OT", ",", "ST"}], "]"}]], "Input", CellLabel->"In[69]:="] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}]], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], " ", "of", " ", CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], Appearance->{Automatic, None}]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Kryptoanalyza transpozice", "Section"], Cell[TextData[{ "Kryptoanalyzu transpozicni sifry provadime na zaklade bigramove analyzy. V \ sifrovem textu hledame bigramy avsak mezi jednotlivymi znaky bigramu byva \ zpravidla nekolik (nekdy mnoho) dalsich znaku. Pro anglictinu je typicke \ hledat bigramy s nejvetsi cetnosti, coz jsou: TH, HE, AN, RE, ER, IN, ON, AT, \ ND, ST, ES, EN, OF, TE a ze vzdalenosti znaku bigramu se snazime stanovit \ parametry transpozice, ktere byly pouzity. Pro sifrovy text ", StyleBox["T", FontColor->RGBColor[1, 0, 0]], "DIR", StyleBox["H", FontColor->RGBColor[1, 0, 0]], "IEO", StyleBox["E", FontColor->RGBColor[1, 0, 0]], "SDNGBIOOUNXLROX vidime ihned bigramy TH a HE z cehoz usoudime, ze mela \ matice 4 radky:" }], "Text"], Cell[BoxData[ RowBox[{"Transpozice", "[", RowBox[{"\"\\"", ",", "4"}], "]"}]], "Input", CellLabel->"In[70]:="], Cell["\<\ Dalsi moznosti je faktorizovat delku textu a tim zjistit vsechny delitele \ delky textu a postupne je zkusit.\ \>", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"FactorInteger", "[", RowBox[{"StringLength", "[", "\"\\"", "]"}], "]"}], "/.", RowBox[{ RowBox[{"{", RowBox[{"x_Integer", ",", "y_Integer"}], "}"}], "\[Rule]", RowBox[{"HoldForm", "[", RowBox[{"x", "^", "y"}], "]"}]}]}]], "Input", CellLabel->"In[71]:="], Cell["\<\ Zde tento pripad vidime, ze delka textu je 24 znaku. Z toho muzeme usoudit, \ ze pro transpozice mohla byt: 2*12, 3*8, 4*6, 6*4, 8*3, 12*2. Jine kombinace \ neexistuji. Pro nas pripad byla pouzita transpozice 6*4.\ \>", "Text"], Cell["\<\ Pokud text nebyl tak dlouhy, jak byl zadan predpis, musel byt doplnen vyplni \ (padding). Ze znalosti funkce, ktera transpozici provadi vime, ze tato funkce \ doplnuje na konec textu pismena X, dokud nezarovna text na potrebnou delku a \ to je skutecnost, kterou muzeme vyuzit k prolomeni transpozice, protoze \ vzdalenost teto vyplne (zvlaste v pripade, ze bylo doplneno vice znaku X) \ udava transpozicni konstantu, ktera byla pouzita pri sifrovani. Delka \ textu/tato konstanta udava detranspozicni konstantu. \ \>", "Text"], Cell["\<\ Pro nas text vidime, ze vzdalenost paddingu X je 4 znaky, z cehoz rovnou \ plyne konstanta pro detranspozici.\ \>", "Text"], Cell[TextData[{ StyleBox["Upozorneni:", FontWeight->"Bold"], " Pokud byla transpozice pouzita vicenosobne, je jeji kryptoanalyza znacne \ obtiznejsi!!" }], "Text"], Cell[BoxData[ RowBox[{"Transpozice", "[", RowBox[{ RowBox[{"Transpozice", "[", RowBox[{"\"\\"", ",", "4"}], "]"}], ",", "3"}], "]"}]], "Input", CellLabel->"In[72]:="] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageFirst"]}], ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPagePrevious"]}], ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageNext"]}], ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], BaseStyle->"SlideHyperlink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`SelectedNotebook[], "ScrollPageLast"]}], ButtonNote->"Last Slide"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], " ", "of", " ", CounterBox["SlideShowNavigationBar", {None, "SlideShowHeader", -1}]}], "SR"], Appearance->{Automatic, None}]} }]]]], "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["\<\ Ukol 3: Kryptoanalyza transpozice\ \>", "Section", CellChangeTimes->{{3.598935007650259*^9, 3.598935021530278*^9}}], Cell["\<\ Napiste kus anglickeho textu o delce 30-50 znaku a nahodne zvolte \ transpozicni konstantu. Provedte nad timto textem transpozici s vami zvolenou \ konstantou a vysledny sifrovy text poslete sousedovi.\ \>", "Text"], Cell[BoxData[ RowBox[{"OT", "=", "\"\\""}]], "Input", CellLabel->"In[73]:="], Cell[BoxData[ RowBox[{"Transpozice", "[", RowBox[{"OT", ",", "9"}], "]"}]], "Input", CellLabel->"In[74]:="], Cell["Az obdrzite text od souseda, priradte ho to teto promenne:", "Text"], Cell[BoxData[ RowBox[{"ST", "=", "\"\\""}]], "Input", CellLabel->"In[75]:="], Cell["\<\ Nyni se snazte zjistit, jakou transpozici vas soused pouzil. Vyuzijte metod \ popsanych na minulem slajdu. Pro jednoduchost faktorizaci opakujeme nyni pro \ promennou sifroveho textu:\ \>", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"FactorInteger", "[", RowBox[{"StringLength", "[", "ST", "]"}], "]"}], "/.", RowBox[{ RowBox[{"{", RowBox[{"x_Integer", ",", "y_Integer"}], "}"}], "\[Rule]", RowBox[{"HoldForm", "[", RowBox[{"x", "^", "y"}], "]"}]}]}]], "Input", CellLabel->"In[76]:="], Cell[BoxData[ RowBox[{"Transpozice", "[", RowBox[{"ST", ",", "4"}], "]"}]], "Input", CellLabel->"In[77]:="] }, Open ]] }, Open ]] }, ScreenStyleEnvironment->"SlideShow", WindowToolbars->"EditBar", WindowSize->{1016, 653}, WindowMargins->{{207, Automatic}, {Automatic, 35}}, PrintingCopies->1, PrintingPageRange->{32000, 32000}, PrintingOptions->{"Magnification"->1., "PaperOrientation"->"Portrait", "PaperSize"->{594.9599999999999, 842.04}}, TaggingRules->{"SlideshowSettings" -> {"Toolbar" -> True}}, FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (February 23, 2011)", StyleDefinitions->Notebook[{ Cell[ CellGroupData[{ Cell["Style Definitions for Online Help", "Title"], Cell[ "These styles are carefully tuned for all aspects of the online help. \ It's recommended that they remain unchanged.", "Text"], Cell[ CellGroupData[{ Cell["Style Environment Names", "Section"], Cell[ StyleData[All, "Working"], PageWidth -> WindowWidth, ShowCellBracket -> False, CellBracketOptions -> { "Color" -> RGBColor[0.269993, 0.308507, 0.6]}, ShowAutoStyles -> False, ScriptMinSize -> 9], Cell[ StyleData[All, "Brackets"], PageWidth -> WindowWidth, ShowCellBracket -> True, CellBracketOptions -> { "Color" -> RGBColor[0.269993, 0.308507, 0.6]}, ShowAutoStyles -> False, ScriptMinSize -> 9], Cell[ StyleData[All, "Presentation"], PageWidth -> WindowWidth, ShowCellBracket -> False, CellBracketOptions -> { "Color" -> RGBColor[0.269993, 0.308507, 0.6]}, ShowAutoStyles -> False, ScriptMinSize -> 9], Cell[ StyleData[All, "SlideShow"], PageWidth -> WindowWidth, ScrollingOptions -> { "PagewiseDisplay" -> True, "VerticalScrollRange" -> Fit}, ShowCellBracket -> False, ScriptMinSize -> 9], Cell[ StyleData[All, "Printout"], PageWidth -> PaperWidth, ShowCellBracket -> False, ShowAutoStyles -> False, ScriptMinSize -> 5, PrivateFontOptions -> {"FontType" -> "Outline"}], Cell[ StyleData[All, "EnhancedPrintout"], PageWidth -> PaperWidth, ShowCellBracket -> True, ScriptMinSize -> 5, FontFamily -> "Palatino", PrivateFontOptions -> {"FontType" -> "Outline"}], Cell[ StyleData[All, "EnhancedPrintoutNonGray"], PageWidth -> PaperWidth, ShowCellBracket -> False, ScriptMinSize -> 5, FontFamily -> "Palatino", PrivateFontOptions -> {"FontType" -> "Outline"}]}, Open]], Cell[ CellGroupData[{ Cell["Notebook Options", "Section"], Cell[ " The options defined for the style below will be used at the \ Notebook level. ", "Text"], Cell[ CellGroupData[{ Cell[ StyleData["Notebook"], PageHeaders -> {{ Cell[ TextData[{ CounterBox["Page"]}], "PageNumber"], None, Cell[ TextData[{"Printed from the ", StyleBox["Mathematica", FontSlant -> "Italic"], " Help Browser"}], "PageHeader"]}, { Cell[ TextData[{"Printed from the ", StyleBox["Mathematica", FontSlant -> "Italic"], " Help Browser"}], "PageHeader"], None, Cell[ TextData[{ CounterBox["Page"]}], "PageNumber"]}}, PageFooters -> {{None, Cell[ TextData[{ "\[Copyright]1988-2005 Wolfram Research, Inc. All rights \ reserved."}], "PageFooter"], None}, {None, Cell[ TextData[{ "\[Copyright]1988-2005 Wolfram Research, Inc. All rights \ reserved."}], "PageFooter"], None}}, PageHeaderLines -> {True, True}, PageFooterLines -> {True, True}, PrintingOptions -> {"FacingPages" -> True}, CellLabelAutoDelete -> False, CellFrameLabelMargins -> 6, StyleMenuListing -> None], Cell[ StyleData["Notebook", "Printout"], PageHeaders -> {{ Cell[ TextData[{ CounterBox["Page"]}], "PageNumber"], None, Cell[ TextData[{"Printed from the ", StyleBox["Mathematica", FontSlant -> "Italic"], " Help Browser"}], "PageHeader"]}, { Cell[ TextData[{"Printed from the ", StyleBox["Mathematica", FontSlant -> "Italic"], " Help Browser"}], "PageHeader"], None, Cell[ TextData[{ CounterBox["Page"]}], "PageNumber"]}}, PageFooters -> {{None, Cell[ TextData[{ "\[Copyright]1988-2005 Wolfram Research, Inc. All rights \ reserved."}], "PageFooter"], None}, {None, Cell[ TextData[{ "\[Copyright]1988-2005 Wolfram Research, Inc. All rights \ reserved."}], "PageFooter"], None}}, PageHeaderLines -> {True, True}, PageFooterLines -> {True, True}, PrintingOptions -> {"FacingPages" -> True}], Cell[ StyleData["Notebook", "EnhancedPrintout"], PageFooters -> {{None, None, None}, {None, None, None}}, PageHeaderLines -> {True, True}, PageFooterLines -> {False, False}, PrintingOptions -> { "FacingPages" -> True, "FirstPageFace" -> Right, "FirstPageHeader" -> False, "PageSize" -> {594, 657}, "PrintRegistrationMarks" -> True, "PrintingMargins" -> {{54, 54}, {36, 72}}}]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Headings", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["Chapter"], CellFrame -> {{0, 0}, {0.5, 0}}, CellMargins -> {{27, 27}, {10, 40}}, CellGroupingRules -> {"TitleGrouping", 0}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-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]}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Chapter", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Subtitle", 0}, {"Subsubtitle", 0}}, FontFamily -> "Helvetica", FontSize -> 28, FontWeight -> "Plain", FontColor -> RGBColor[0.592157, 0.313726, 0.313726]], Cell[ StyleData["Chapter", "Presentation"], FontSize -> 36], Cell[ StyleData["Chapter", "Printout"], CellMargins -> {{2, 10}, {6, 30}}, FontSize -> 24], Cell[ StyleData["Chapter", "EnhancedPrintout"], CellMargins -> {{2, 10}, {6, 30}}, FontFamily -> "Frutiger-Roman", FontSize -> 24, FontColor -> GrayLevel[0]], Cell[ StyleData["Chapter", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 10}, {6, 30}}, FontFamily -> "Frutiger-Roman", FontSize -> 24]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Section"], CellMargins -> {{27, 27}, {9, 30}}, CellGroupingRules -> {"SectionGrouping", 30}, PageBreakBelow -> False, 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]}, CounterIncrements -> "Section", CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}}, FontFamily -> "Helvetica", FontSize -> 20, FontWeight -> "Bold", FontColor -> RGBColor[0.592157, 0.313726, 0.313726]], Cell[ StyleData["Section", "Presentation"], FontSize -> 30], Cell[ StyleData["Section", "SlideShow"], CellFrame -> {{0, 0}, {0, 0.5}}, ShowCellBracket -> False, CellMargins -> {{0, 0}, {5, 0}}, PageBreakBelow -> False, CellFrameMargins -> {{36, 36}, {Inherited, 15}}, FontFamily -> "Helvetica", FontSize -> 18, FontWeight -> "Bold", FontColor -> GrayLevel[1], Background -> RGBColor[0.408011, 0.440726, 0.8]], Cell[ StyleData["Section", "Printout"], CellMargins -> {{2, 0}, {0, 18}}, PageBreakBelow -> False, FontSize -> 18], Cell[ StyleData["Section", "EnhancedPrintout"], CellFrame -> {{0, 0}, {0.5, 0}}, CellMargins -> {{2, 2}, {5, 30}}, CellGroupingRules -> {"SectionGrouping", 30}, PageBreakBelow -> False, CellFrameMargins -> 8, CounterIncrements -> "Section", CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}}, FontFamily -> "Frutiger-Bold", FontSize -> 16, FontWeight -> "Plain", FontColor -> GrayLevel[0]], Cell[ StyleData["Section", "EnhancedPrintoutNonGray"], CellFrame -> {{0, 0}, {0.5, 0}}, CellMargins -> {{2, Inherited}, {5, 30}}, CellGroupingRules -> {"SectionGrouping", 30}, PageBreakBelow -> False, CellFrameMargins -> 8, CounterIncrements -> "Section", CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}}, FontFamily -> "Frutiger-Bold", FontSize -> 16, FontWeight -> "Plain"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsection"], CellDingbat -> None, CellMargins -> {{27, 27}, {0, 18}}, CellElementSpacings -> {"ClosedGroupTopMargin" -> 18}, CellGroupingRules -> {"SectionGrouping", 40}, PageBreakBelow -> False, CellFrameLabelMargins -> 6, InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-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]}, CounterIncrements -> "Subsection", CounterAssignments -> {{"Subsubsection", 0}}, FontFamily -> "Helvetica", FontSize -> 16, FontWeight -> "Bold", FontColor -> RGBColor[0.592157, 0.313726, 0.313726]], Cell[ StyleData["Subsection", "Presentation"], FontSize -> 24], Cell[ StyleData["Subsection", "SlideShow"], CellDingbat -> None, CellMargins -> {{70, 0}, {4, 12}}, FontSize -> 12], Cell[ StyleData["Subsection", "Printout"], CellMargins -> {{2, 0}, {5, 24}}, FontSize -> 12], Cell[ StyleData["Subsection", "EnhancedPrintout"], CellMargins -> {{2, 0}, {5, 20}}, FontFamily -> "Frutiger-Bold", FontSize -> 12, FontWeight -> "Plain", FontColor -> GrayLevel[0]], Cell[ StyleData["Subsection", "EnhancedPrintoutNonGray"], CellMargins -> {{9, 0}, {5, 20}}, FontFamily -> "Frutiger-Bold", FontSize -> 12, FontWeight -> "Plain"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubsection"], CellMargins -> {{27, 27}, {0, 18}}, CellElementSpacings -> {"ClosedGroupTopMargin" -> 18}, CellGroupingRules -> {"SectionGrouping", 50}, PageBreakBelow -> False, InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-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]}, FontFamily -> "Helvetica", FontSize -> 12, FontWeight -> "Bold", FontColor -> RGBColor[0.592157, 0.313726, 0.313726]], Cell[ StyleData["Subsubsection", "Presentation"], FontSize -> 18], Cell[ StyleData["Subsubsection", "Printout"], CellMargins -> {{2, 0}, {3, 8}}, FontSize -> 10], Cell[ StyleData["Subsubsection", "EnhancedPrintout"], CellMargins -> {{2, 0}, {3, 8}}, FontFamily -> "Frutiger-Bold", FontSize -> 10, FontWeight -> "Plain", FontColor -> GrayLevel[0]], Cell[ StyleData["Subsubsection", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 0}, {3, 8}}, FontFamily -> "Frutiger-Bold", FontSize -> 10, FontWeight -> "Plain"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SubsubsectionColor"], CellMargins -> {{27, 27}, {0, 18}}, CellElementSpacings -> {"ClosedGroupTopMargin" -> 18}, CellGroupingRules -> {"SectionGrouping", 50}, InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-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]}, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 12, FontWeight -> "Bold", FontColor -> RGBColor[0.297993, 0, 0.454994]], Cell[ StyleData["SubsubsectionColor", "Presentation"], FontSize -> 18], Cell[ StyleData["SubsubsectionColor", "Printout"], CellMargins -> {{2, 0}, {0, 18}}, PageBreakBelow -> False, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SubsectionIcon"], ShowGroupOpener -> True, CellMargins -> {{46, 27}, {0, 18}}, CellElementSpacings -> {"ClosedGroupTopMargin" -> 8}, CellGroupingRules -> {"SectionGrouping", 40}, 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]}, CounterIncrements -> "Subsection", FontFamily -> "Helvetica", FontSize -> 16, FontWeight -> "Bold", FontColor -> RGBColor[0.592157, 0.313726, 0.313726]], Cell[ StyleData["SubsectionIcon", "Presentation"], FontSize -> 24], Cell[ StyleData["SubsectionIcon", "Printout"], CellDingbat -> "\[FilledSquare]", ShowGroupOpener -> False, CellMargins -> {{16, 0}, {0, 18}}, PageBreakBelow -> False, FontSize -> 14]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SubsubsectionIcon"], ShowGroupOpener -> True, CellMargins -> {{46, 27}, {0, 8}}, CellElementSpacings -> {"ClosedGroupTopMargin" -> 4}, CellGroupingRules -> {"SectionGrouping", 50}, 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]}, CounterIncrements -> "Subsubsection", FontFamily -> "Helvetica", FontSize -> 12, FontWeight -> "Bold", FontColor -> RGBColor[0.592157, 0.313726, 0.313726]], Cell[ StyleData["SubsubsectionIcon", "Presentation"], FontSize -> 18], Cell[ StyleData["SubsubsectionIcon", "Printout"], ShowGroupOpener -> False, CellMargins -> {{2, 0}, {0, 18}}, PageBreakBelow -> False, FontSize -> 10]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Text", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["Text"], CellMargins -> {{27, 27}, {0, 8}}, 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]}, ParagraphSpacing -> {0, 8}, CounterIncrements -> "Text", FontSize -> 12], Cell[ StyleData["Text", "Presentation"], FontSize -> 18], Cell[ StyleData["Text", "SlideShow"], CellMargins -> {{36, 24}, {4, 4}}, Hyphenation -> False, FontSize -> 14], Cell[ StyleData["Text", "Printout"], CellMargins -> {{2, 2}, {6, 6}}, TextJustification -> 1, Hyphenation -> True, FontSize -> 10], Cell[ StyleData["Text", "EnhancedPrintout"], CellMargins -> {{2, 2}, {6, 6}}, TextJustification -> 1, Hyphenation -> True, FontFamily -> "Palatino", FontSize -> 10], Cell[ StyleData["Text", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 2}, {6, 6}}, TextJustification -> 1, Hyphenation -> True, FontFamily -> "Palatino", FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["CompactText"], CellMargins -> {{27, 27}, {0, 8}}, ParagraphSpacing -> {0, 0}, StyleMenuListing -> None, FontSize -> 10], Cell[ StyleData["CompactText", "Presentation"], FontSize -> 15], Cell[ StyleData["CompactText", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, Hyphenation -> True, FontSize -> 8], Cell[ StyleData["CompactText", "EnhancedPrintout"], CellMargins -> {{2, 0}, {0, 8}}, Hyphenation -> True, FontFamily -> "Palatino", FontSize -> 8], Cell[ StyleData["CompactText", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 0}, {0, 8}}, Hyphenation -> True, FontFamily -> "Palatino", FontSize -> 8]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Compact12Text"], CellMargins -> {{27, 27}, {0, 8}}, ParagraphSpacing -> {0, 0}, StyleMenuListing -> None], Cell[ StyleData["Compact12Text", "Presentation"], FontSize -> 18], Cell[ StyleData["Compact12Text", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, Hyphenation -> True, FontSize -> 10], Cell[ StyleData["Compact12Text", "EnhancedPrintout"], CellMargins -> {{2, 0}, {0, 8}}, Hyphenation -> True, FontFamily -> "Palatino", FontSize -> 10], Cell[ StyleData["Compact12Text", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 0}, {0, 8}}, Hyphenation -> True, FontFamily -> "Palatino", FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["TextSans"], CellMargins -> {{27, 27}, {0, 8}}, CellHorizontalScrolling -> True, ParagraphSpacing -> {0, 8}, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 10], Cell[ StyleData["TextSans", "Presentation"], FontSize -> 15], Cell[ StyleData["TextSans", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, Hyphenation -> True, FontSize -> 8], Cell[ StyleData["TextSans", "EnhancedPrintout"], CellMargins -> {{2, 0}, {0, 8}}, Hyphenation -> True, FontFamily -> "Frutiger-Roman", FontSize -> 8], Cell[ StyleData["TextSans", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 0}, {0, 8}}, Hyphenation -> True, FontFamily -> "Frutiger-Roman", FontSize -> 8]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ItemizedText"], CellMargins -> {{66, 4}, {4, 4}}, LineSpacing -> {1, 3}, ParagraphIndent -> -22, CounterIncrements -> "ItemizedText", StyleMenuListing -> None], Cell[ StyleData["ItemizedText", "Presentation"], FontSize -> 18], Cell[ StyleData["ItemizedText", "Printout"], CellMargins -> {{16, 4}, {2, 4}}, Hyphenation -> True, FontSize -> 10], Cell[ StyleData["ItemizedText", "EnhancedPrintout"], CellMargins -> {{16, 4}, {2, 4}}, Hyphenation -> True, LineSpacing -> {1, 1}, FontFamily -> "Palatino", FontSize -> 10], Cell[ StyleData["ItemizedText", "EnhancedPrintoutNonGray"], Hyphenation -> True, LineSpacing -> {1, 1}, ParagraphIndent -> -18, FontFamily -> "Palatino", FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ItemizedTextNote"], CellMargins -> {{88, 4}, {4, 0}}, LineSpacing -> {1, 2}, CounterIncrements -> "ItemizedTextNote", StyleMenuListing -> None], Cell[ StyleData["ItemizedTextNote", "Presentation"], FontSize -> 18], Cell[ StyleData["ItemizedTextNote", "Printout"], CellMargins -> {{34, 4}, {4, 1}}, Hyphenation -> True, FontSize -> 10], Cell[ StyleData["ItemizedTextNote", "EnhancedPrintout"], CellMargins -> {{39, 4}, {4, 1}}, Hyphenation -> True, LineSpacing -> {1, 1}, FontFamily -> "Palatino", FontSize -> 10], Cell[ StyleData["ItemizedTextNote", "EnhancedPrintoutNonGray"], CellMargins -> {{39, 4}, {4, 1}}, Hyphenation -> True, LineSpacing -> {1, 1}, FontFamily -> "Palatino", FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["IndentedText"], CellMargins -> {{66, 4}, {0, 6}}, LineSpacing -> {1, 3}, CounterIncrements -> "IndentedText", StyleMenuListing -> None], Cell[ StyleData["IndentedText", "Presentation"], FontSize -> 18], Cell[ StyleData["IndentedText", "SlideShow"], CellMargins -> {{80, 24}, {5, 5}}, Hyphenation -> False, FontSize -> 13], Cell[ StyleData["IndentedText", "Printout"], CellMargins -> {{16, 4}, {2, 4}}, Hyphenation -> True, FontSize -> 10], Cell[ StyleData["IndentedText", "EnhancedPrintout"], CellMargins -> {{39, Inherited}, {Inherited, Inherited}}, Hyphenation -> True, LineSpacing -> {1, 1}, FontFamily -> "Palatino", FontSize -> 10], Cell[ StyleData["IndentedText", "EnhancedPrintoutNonGray"], Hyphenation -> True, LineSpacing -> {1, 1}, FontFamily -> "Palatino", FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ItemizedList"], CellMargins -> {{58, 4}, {4, 4}}, CellFrameLabels -> {{ Cell[ TextData[{ StyleBox[ CounterBox["ItemizedList"], "TB"], StyleBox[".", "TB"]}], CellBaseline -> Baseline, CellSize -> {24, Inherited}, TextAlignment -> Right], Inherited}, {Inherited, Inherited}}, LineSpacing -> {1, 3}, CounterIncrements -> "ItemizedList", StyleMenuListing -> None], Cell[ StyleData["ItemizedList", "Presentation"], FontSize -> 18], Cell[ StyleData["ItemizedList", "Printout"], CellMargins -> {{9, 4}, {2, 4}}, Hyphenation -> True, FontSize -> 10], Cell[ StyleData["ItemizedList", "EnhancedPrintout"], CellMargins -> {{9, 4}, {2, 4}}, Hyphenation -> True, LineSpacing -> {1, 1}, FontFamily -> "Palatino", FontSize -> 10], Cell[ StyleData["ItemizedList", "EnhancedPrintoutNonGray"], Hyphenation -> True, LineSpacing -> {1, 1}, FontFamily -> "Palatino", FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ItemizedSubList"], CellMargins -> {{92, 4}, {4, 4}}, CellFrameLabels -> {{ Cell[ TextData[{ StyleBox[ CounterBox["ItemizedSubList"], "TB"], StyleBox[".", "TB"]}], CellBaseline -> Baseline, CellSize -> {24, Inherited}, TextAlignment -> Right], Inherited}, {Inherited, Inherited}}, CounterIncrements -> "ItemizedSubList", StyleMenuListing -> None, CounterBoxOptions -> {CounterFunction :> (Part[ CharacterRange["a", "z"], #]& )}], Cell[ StyleData["ItemizedSubList", "Presentation"], FontSize -> 18], Cell[ StyleData["ItemizedSubList", "Printout"], CellMargins -> {{34, 4}, {4, 1}}, Hyphenation -> True, FontSize -> 10], Cell[ StyleData["ItemizedSubList", "EnhancedPrintout"], CellMargins -> {{26, 4}, {2, 4}}, Hyphenation -> True, FontFamily -> "Palatino", FontSize -> 10], Cell[ StyleData["ItemizedSubList", "EnhancedPrintoutNonGray"], Hyphenation -> True, FontFamily -> "Palatino", FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ItemizedSubListNote"], CellMargins -> {{110, 4}, {4, 4}}, CounterIncrements -> "ItemizedSubList", StyleMenuListing -> None, CounterBoxOptions -> {CounterFunction :> (Part[ CharacterRange["a", "z"], #]& )}], Cell[ StyleData["ItemizedSubListNote", "Presentation"], FontSize -> 18], Cell[ StyleData["ItemizedSubListNote", "Printout"], CellMargins -> {{34, 4}, {4, 1}}, Hyphenation -> True, FontSize -> 10], Cell[ StyleData["ItemizedSubListNote", "EnhancedPrintout"], CellMargins -> {{56, 4}, {2, 4}}, Hyphenation -> True, FontFamily -> "Palatino", FontSize -> 10], Cell[ StyleData["ItemizedSubListNote", "EnhancedPrintoutNonGray"], CellMargins -> {{48, 4}, {2, 4}}, Hyphenation -> True, FontFamily -> "Palatino", FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["BulletedList"], CellMargins -> {{76, 4}, {4, 4}}, CellFrameLabels -> {{ Cell["\[Bullet]", "BulletedList", CellBaseline -> Baseline], Inherited}, {Inherited, Inherited}}, LineSpacing -> {1, 3}, CounterIncrements -> "BulletText", StyleMenuListing -> None], Cell[ StyleData["BulletedList", "Presentation"], FontSize -> 18], Cell[ StyleData["BulletedList", "Printout"], CellMargins -> {{16, 4}, {4, 1}}, Hyphenation -> True, FontSize -> 10], Cell[ StyleData["BulletedList", "EnhancedPrintout"], CellMargins -> {{26, 4}, {2, 4}}, Hyphenation -> True, LineSpacing -> {1, 1}, FontFamily -> "Palatino", FontSize -> 10], Cell[ StyleData["BulletedList", "EnhancedPrintoutNonGray"], Hyphenation -> True, LineSpacing -> {1, 1}, FontFamily -> "Palatino", FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ListNote"], CellMargins -> {{88, 4}, {4, 0}}, LineSpacing -> {1, 2}, CounterIncrements -> "ListNote", StyleMenuListing -> None], Cell[ StyleData["ListNote", "Presentation"], FontSize -> 18], Cell[ StyleData["ListNote", "Printout"], CellMargins -> {{34, 4}, {4, 1}}, Hyphenation -> True, FontSize -> 10], Cell[ StyleData["ListNote", "EnhancedPrintout"], CellMargins -> {{39, 4}, {4, 1}}, Hyphenation -> True, LineSpacing -> {1, 1}, FontFamily -> "Palatino", FontSize -> 10], Cell[ StyleData["ListNote", "EnhancedPrintoutNonGray"], CellMargins -> {{39, 4}, {4, 1}}, Hyphenation -> True, LineSpacing -> {1, 1}, FontFamily -> "Palatino", FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["MathCaption"], CellFrame -> {{0, 0}, {0, 0.5}}, CellMargins -> {{66, 12}, {2, 20}}, PageBreakBelow -> False, CellFrameMargins -> {{8, 8}, {8, 2}}, CellFrameColor -> GrayLevel[0.700008], CellFrameLabelMargins -> 4, LineSpacing -> {1, 1}, ParagraphSpacing -> {0, 8}, FontColor -> GrayLevel[0.2]], Cell[ StyleData["MathCaption", "Presentation"], FontSize -> 18], Cell[ StyleData["MathCaption", "SlideShow"], ShowCellBracket -> False, CellMargins -> {{36, 36}, {6, 6}}], Cell[ StyleData["MathCaption", "Printout"], CellMargins -> {{9, 0}, {0, 14}}, Hyphenation -> True, FontSize -> 9, FontColor -> GrayLevel[0]], Cell[ StyleData["MathCaption", "EnhancedPrintout"], CellMargins -> {{9, 0}, {0, 14}}, Hyphenation -> True, FontFamily -> "Palatino", FontSize -> 9, FontColor -> GrayLevel[0]], Cell[ StyleData["MathCaption", "EnhancedPrintoutNonGray"], CellMargins -> {{9, 0}, {0, 14}}, Hyphenation -> True, FontFamily -> "Palatino", FontSize -> 9, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SmallText"], CellMargins -> {{27, 27}, {0, 8}}, LineSpacing -> {1, 3}, ParagraphSpacing -> {0.7, 0}, CounterIncrements -> "SmallText", FontSize -> 9], Cell[ StyleData["SmallText", "Presentation"], FontSize -> 14], Cell[ StyleData["SmallText", "Printout"], CellMargins -> {{2, 2}, {5, 5}}, TextJustification -> 1, Hyphenation -> True, FontSize -> 7], Cell[ StyleData["SmallText", "EnhancedPrintout"], CellMargins -> {{2, 2}, {5, 5}}, TextJustification -> 1, Hyphenation -> True, FontFamily -> "Palatino", FontSize -> 7], Cell[ StyleData["SmallText", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 2}, {5, 5}}, TextJustification -> 1, Hyphenation -> True, FontFamily -> "Palatino", FontSize -> 7]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Input/Output", "Section"], Cell[ "The cells in this section define styles used for input and output \ to the kernel. Be careful when modifying, renaming, or removing these \ styles, because the front end associates special meanings with these style \ names. ", "Text"], Cell[ CellGroupData[{ Cell[ StyleData["Input"], ShowCellBracket -> True, CellMargins -> {{66, 4}, {3, 8}}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", PageBreakWithin -> False, GroupPageBreakWithin -> False, CellLabelAutoDelete -> False, CellLabelMargins -> {{14, Inherited}, {Inherited, Inherited}}, DefaultFormatType -> DefaultInputFormatType, ShowSpecialCharacters -> Automatic, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> "Mathematica", FormatType -> StandardForm, ShowStringCharacters -> True, NumberMarks -> True, FontWeight -> "Bold"], Cell[ StyleData["Input", "Presentation"], FontSize -> 18], Cell[ StyleData["Input", "SlideShow"], ShowCellBracket -> True, CellMargins -> {{100, 50}, {0, 6}}, PageBreakWithin -> False, GroupPageBreakWithin -> False, CellFrameMargins -> {{8, 8}, {4, 8}}, Background -> RGBColor[1, 1, 0.8]], Cell[ StyleData["Input", "Printout"], ShowCellBracket -> False, CellMargins -> {{39, 0}, {4, 6}}, FontSize -> 9], Cell[ StyleData["Input", "EnhancedPrintout"], ShowCellBracket -> False, CellMargins -> {{39, 0}, {4, 6}}, FontSize -> 9], Cell[ StyleData["Input", "EnhancedPrintoutNonGray"], ShowCellBracket -> False, CellMargins -> {{39, 0}, {4, 6}}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Output"], ShowCellBracket -> True, CellMargins -> {{66, 4}, {8, 2}}, CellEditDuplicate -> True, CellGroupingRules -> "OutputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, CellLabelAutoDelete -> False, CellLabelMargins -> {{14, Inherited}, {Inherited, Inherited}}, DefaultFormatType -> DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> None, FormatType -> StandardForm], Cell[ StyleData["Output", "Presentation"], FontSize -> 18], Cell[ StyleData["Output", "SlideShow"], ShowCellBracket -> True, CellMargins -> {{100, 50}, {6, 0}}, PageBreakWithin -> False, GroupPageBreakWithin -> False, CellFrameMargins -> {{8, 8}, {8, 4}}, Background -> RGBColor[1, 1, 0.8]], Cell[ StyleData["Output", "Printout"], ShowCellBracket -> False, CellMargins -> {{39, 0}, {6, 4}}, FontSize -> 9], Cell[ StyleData["Output", "EnhancedPrintout"], ShowCellBracket -> False, CellMargins -> {{39, 0}, {6, 4}}, FontSize -> 9], Cell[ StyleData["Output", "EnhancedPrintoutNonGray"], ShowCellBracket -> False, CellMargins -> {{39, 0}, {6, 4}}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["InputOnly"], ShowCellBracket -> True, CellMargins -> {{66, 4}, {8, 8}}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", PageBreakWithin -> False, GroupPageBreakWithin -> False, CellLabelAutoDelete -> False, CellLabelMargins -> {{14, Inherited}, {Inherited, Inherited}}, DefaultFormatType -> DefaultInputFormatType, ShowSpecialCharacters -> Automatic, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> "Mathematica", FormatType -> StandardForm, ShowStringCharacters -> True, NumberMarks -> True, StyleMenuListing -> None, FontWeight -> "Bold"], Cell[ StyleData["InputOnly", "Presentation"], FontSize -> 18], Cell[ StyleData["InputOnly", "SlideShow"], ShowCellBracket -> True, CellMargins -> {{100, 50}, {6, 6}}, PageBreakWithin -> False, GroupPageBreakWithin -> False, Background -> RGBColor[1, 1, 0.8]], Cell[ StyleData["InputOnly", "Printout"], ShowCellBracket -> False, CellMargins -> {{39, 0}, {6, 6}}, FontSize -> 9], Cell[ StyleData["InputOnly", "EnhancedPrintout"], ShowCellBracket -> False, CellMargins -> {{39, 0}, {6, 6}}, FontSize -> 9], Cell[ StyleData["InputOnly", "EnhancedPrintoutNonGray"], ShowCellBracket -> False, CellMargins -> {{39, 0}, {6, 6}}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Message"], ShowCellBracket -> True, CellMargins -> {{66, 4}, {4, 2}}, CellGroupingRules -> "OutputGrouping", PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, ShowCellLabel -> False, CellLabelMargins -> {{14, Inherited}, {Inherited, Inherited}}, DefaultFormatType -> DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> None, FormatType -> InputForm, CounterIncrements -> "Message", StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 10, FontColor -> RGBColor[0.6, 0.100008, 0.100008]], Cell[ StyleData["Message", "Presentation"], FontSize -> 18], Cell[ StyleData["Message", "SlideShow"], CellMargins -> {{100, 50}, {6, 6}}, FontSize -> 10, FontColor -> RGBColor[0.699992, 0.4, 0]], Cell[ StyleData["Message", "Printout"], ShowCellBracket -> False, CellMargins -> {{39, Inherited}, {Inherited, Inherited}}, FontSize -> 9, FontColor -> GrayLevel[0]], Cell[ StyleData["Message", "EnhancedPrintout"], ShowCellBracket -> False, CellMargins -> {{39, Inherited}, {Inherited, Inherited}}, FontFamily -> "Courier", FontSize -> 9, FontColor -> GrayLevel[0]], Cell[ StyleData["Message", "EnhancedPrintoutNonGray"], ShowCellBracket -> False, CellMargins -> {{39, Inherited}, {Inherited, Inherited}}, FontFamily -> "Courier", FontSize -> 9, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Print"], ShowCellBracket -> True, CellMargins -> {{66, 4}, {4, 2}}, CellGroupingRules -> "OutputGrouping", PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, ShowCellLabel -> False, CellLabelMargins -> {{14, Inherited}, {Inherited, Inherited}}, DefaultFormatType -> DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> None, FormatType -> InputForm, StyleMenuListing -> None], Cell[ StyleData["Print", "Presentation"], FontSize -> 18], Cell[ StyleData["Print", "SlideShow"], CellMargins -> {{100, 50}, {6, 6}}], Cell[ StyleData["Print", "Printout"], ShowCellBracket -> False, CellMargins -> {{57, Inherited}, {Inherited, Inherited}}, FontSize -> 9], Cell[ StyleData["Print", "EnhancedPrintout"], ShowCellBracket -> False, CellMargins -> {{57, Inherited}, {Inherited, Inherited}}, FontFamily -> "Courier Std", FontSize -> 9], Cell[ StyleData["Print", "EnhancedPrintoutNonGray"], ShowCellBracket -> False, CellMargins -> {{57, Inherited}, {Inherited, Inherited}}, FontFamily -> "Courier Std", FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Graphics"], ShowCellBracket -> True, CellMargins -> {{66, 4}, {4, 2}}, CellGroupingRules -> "GraphicsGrouping", PageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, ShowCellLabel -> False, DefaultFormatType -> DefaultFormatTypeForOutput, LanguageCategory -> None, FormatType -> InputForm, StyleMenuListing -> None, FontWeight -> "Plain"], Cell[ StyleData["Graphics", "Presentation"], FontSize -> 18], Cell[ StyleData["Graphics", "SlideShow"], ShowCellBracket -> True, CellMargins -> {{100, 50}, {6, 0}}, PageBreakWithin -> False, GroupPageBreakWithin -> False, CellFrameMargins -> {{8, 8}, {4, 4}}, Background -> RGBColor[1, 1, 0.8]], Cell[ StyleData["Graphics", "Printout"], ShowCellBracket -> False, CellMargins -> {{39, Inherited}, {Inherited, Inherited}}, ImageSize -> {250, 250}, FontSize -> 9], Cell[ StyleData["Graphics", "EnhancedPrintout"], ShowCellBracket -> False, CellMargins -> {{32, Inherited}, {Inherited, Inherited}}, ImageSize -> {250, 250}, FontFamily -> "Courier Std", FontSize -> 9], Cell[ StyleData["Graphics", "EnhancedPrintoutNonGray"], ShowCellBracket -> False, CellMargins -> {{32, Inherited}, {Inherited, Inherited}}, ImageSize -> {250, 250}, FontFamily -> "Courier Std", FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["CellLabel"], LanguageCategory -> None, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 9, FontWeight -> "Plain", FontColor -> RGBColor[0.269993, 0.308507, 0.6]], Cell[ StyleData["CellLabel", "Presentation"], FontSize -> 14], Cell[ StyleData["CellLabel", "SlideShow"], FontColor -> RGBColor[0.699992, 0.4, 0]], Cell[ StyleData["CellLabel", "Printout"], FontFamily -> "Courier", FontSize -> 8, FontSlant -> "Oblique", FontColor -> GrayLevel[0]], Cell[ StyleData["CellLabel", "EnhancedPrintout"], FontFamily -> "Courier Std", FontSize -> 8, FontSlant -> "Oblique", FontColor -> GrayLevel[0]], Cell[ StyleData["CellLabel", "EnhancedPrintoutNonGray"], FontFamily -> "Courier Std", FontSize -> 8, FontSlant -> "Oblique", FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Name"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 9, FontWeight -> "Plain", FontSlant -> "Italic", FontColor -> RGBColor[0.269993, 0.308507, 0.6]], Cell[ StyleData["Name", "Presentation"], FontSize -> 14], Cell[ StyleData["Name", "Printout"], FontSize -> 7, FontSlant -> "Oblique", FontColor -> GrayLevel[0]], Cell[ StyleData["Name", "EnhancedPrintout"], FontFamily -> "Frutiger-Italic", FontSize -> 7, FontSlant -> "Plain", FontColor -> GrayLevel[0]], Cell[ StyleData["Name", "EnhancedPrintoutNonGray"], FontFamily -> "Frutiger-Italic", FontSize -> 7, FontSlant -> "Plain", FontColor -> GrayLevel[0]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Hyperlinks", "Section"], Cell[ "The cells below define styles useful for making hypertext \ ButtonBoxes. The \"Hyperlink\" style is for links within the same Notebook, \ or between Notebooks. The others point to the various sections of the help \ browser. These styles will modify individual words or letters in a cell \ exclusive of the cell tag.", "Text"], Cell[ CellGroupData[{ Cell[ StyleData["Hyperlink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontWeight -> "Bold", FontColor -> RGBColor[0.269993, 0.308507, 0.6], Background -> GrayLevel[0.900008], ButtonBoxOptions -> { Active -> True, ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookLocate[#2]}]& ), ButtonNote -> ButtonData}], Cell[ StyleData["Hyperlink", "Printout"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]], Cell[ StyleData["Hyperlink", "EnhancedPrintout"], FontFamily -> "Palatino", FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]], Cell[ StyleData["Hyperlink", "EnhancedPrintoutNonGray"], FontFamily -> "Palatino", FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["MainBookLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontWeight -> "Bold", FontColor -> RGBColor[0.269993, 0.308507, 0.6], Background -> GrayLevel[0.900008], ButtonBoxOptions -> { Active -> True, Appearance -> {Automatic, None}, ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["MainBook", #]}]& )}], Cell[ StyleData["MainBookLink", "Printout"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]], Cell[ StyleData["MainBookLink", "EnhancedPrintout"], FontFamily -> "Palatino", FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]], Cell[ StyleData["MainBookLink", "EnhancedPrintoutNonGray"], FontFamily -> "Palatino", FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["MainBookLinkMR"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontFamily -> "Courier", FontWeight -> "Bold", FontColor -> RGBColor[0.269993, 0.308507, 0.6], Background -> GrayLevel[0.900008], ButtonBoxOptions -> { Active -> True, Appearance -> {Automatic, None}, ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["MainBook", #]}]& )}], Cell[ StyleData["MainBookLinkMR", "Printout"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]], Cell[ StyleData["MainBookLinkMR", "EnhancedPrintout"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]], Cell[ StyleData["MainBookLinkMR", "EnhancedPrintoutNonGray"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["AddOnsLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontFamily -> "Courier", FontWeight -> "Bold", FontColor -> RGBColor[0.269993, 0.308507, 0.6], Background -> GrayLevel[0.900008], ButtonBoxOptions -> { Active -> True, Appearance -> {Automatic, None}, ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["AddOns", #]}]& )}], Cell[ StyleData["AddOnsLink", "Printout"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]], Cell[ StyleData["AddOnsLink", "EnhancedPrintout"], FontFamily -> "WRICourier", FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]], Cell[ StyleData["AddOnsLink", "EnhancedPrintoutNonGray"], FontFamily -> "WRICourier", FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["AddOnsLinkText"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontFamily -> "Times", FontWeight -> "Bold", FontColor -> RGBColor[0.269993, 0.308507, 0.6], Background -> GrayLevel[0.900008], ButtonBoxOptions -> { Active -> True, Appearance -> {Automatic, None}, ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["AddOns", #]}]& )}], Cell[ StyleData["AddOnsLinkText", "Printout"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]], Cell[ StyleData["AddOnsLinkText", "EnhancedPrintout"], FontFamily -> "Palatino", FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]], Cell[ StyleData["AddOnsLinkText", "EnhancedPrintoutNonGray"], FontFamily -> "Palatino", FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["RefGuideLink"], CellFrame -> {{0, 0}, {3, 0}}, StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontFamily -> "Courier", FontSize -> 16, FontWeight -> "Bold", FontColor -> RGBColor[0.269993, 0.308507, 0.6], Background -> GrayLevel[0.900008], ButtonBoxOptions -> { Active -> True, Appearance -> {Automatic, None}, ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["RefGuide", #]}]& )}], Cell[ StyleData["RefGuideLink", "Printout"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]], Cell[ StyleData["RefGuideLink", "EnhancedPrintout"], FontFamily -> "WRICourier", FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]], Cell[ StyleData["RefGuideLink", "EnhancedPrintoutNonGray"], FontFamily -> "WRICourier", FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["GettingStartedLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontWeight -> "Bold", FontColor -> RGBColor[0.269993, 0.308507, 0.6], Background -> GrayLevel[0.900008], ButtonBoxOptions -> { Active -> True, Appearance -> {Automatic, None}, ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["GettingStarted", #]}]& )}], Cell[ StyleData["GettingStartedLink", "Printout"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]], Cell[ StyleData["GettingStartedLink", "EnhancedPrintout"], FontFamily -> "Palatino", FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]], Cell[ StyleData["GettingStartedLink", "EnhancedPrintoutNonGray"], FontFamily -> "Palatino", FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["DemosLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontWeight -> "Bold", FontColor -> RGBColor[0.269993, 0.308507, 0.6], Background -> GrayLevel[0.900008], ButtonBoxOptions -> { Active -> True, Appearance -> {Automatic, None}, ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["Demos", #]}]& )}], Cell[ StyleData["DemosLink", "Printout"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]], Cell[ StyleData["DemosLink", "EnhancedPrintout"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]], Cell[ StyleData["DemosLink", "EnhancedPrintoutNonGray"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["TourLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontWeight -> "Bold", FontColor -> RGBColor[0.269993, 0.308507, 0.6], Background -> GrayLevel[0.900008], ButtonBoxOptions -> { Active -> True, Appearance -> {Automatic, None}, ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["Tour", #]}]& )}], Cell[ StyleData["TourLink", "Printout"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]], Cell[ StyleData["TourLink", "EnhancedPrintout"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]], Cell[ StyleData["TourLink", "EnhancedPrintoutNonGray"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["OtherInformationLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontWeight -> "Bold", FontColor -> RGBColor[0.269993, 0.308507, 0.6], Background -> GrayLevel[0.900008], ButtonBoxOptions -> { Active -> True, Appearance -> {Automatic, None}, ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["OtherInformation", #]}]& )}], Cell[ StyleData["OtherInformationLink", "Printout"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]], Cell[ StyleData["OtherInformationLink", "EnhancedPrintout"], FontFamily -> "Palatino", FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]], Cell[ StyleData["OtherInformationLink", "EnhancedPrintoutNonGray"], FontFamily -> "Palatino", FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["OtherInformationLinkMR"], StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Bold", FontColor -> RGBColor[0.269993, 0.308507, 0.6], Background -> GrayLevel[0.900008], ButtonBoxOptions -> { Active -> True, Appearance -> {Automatic, None}, ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["OtherInformation", #]}]& )}], Cell[ StyleData["OtherInformationLinkMR", "Printout"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]], Cell[ StyleData["OtherInformationLinkMR", "EnhancedPrintout"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]], Cell[ StyleData["OtherInformationLinkMR", "EnhancedPrintoutNonGray"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["MasterIndexLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontWeight -> "Bold", FontColor -> RGBColor[0.269993, 0.308507, 0.6], Background -> GrayLevel[0.900008], ButtonBoxOptions -> { Active -> True, Appearance -> {Automatic, None}, ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["MasterIndex", #]}]& )}], Cell[ StyleData["MasterIndexLink", "Printout"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]], Cell[ StyleData["MasterIndexLink", "EnhancedPrintout"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]], Cell[ StyleData["MasterIndexLink", "EnhancedPrintoutNonGray"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["NotebookLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontFamily -> "Times", FontWeight -> "Bold", FontColor -> RGBColor[0.269993, 0.308507, 0.6], Background -> GrayLevel[0.900008], ButtonBoxOptions -> { Active -> True, Appearance -> {Automatic, None}, ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookLocate[#]}]& )}], Cell[ StyleData["NotebookLink", "Printout"], FontSize -> 11, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]], Cell[ StyleData["NotebookLink", "EnhancedPrintout"], FontFamily -> "Palatino", FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]], Cell[ StyleData["NotebookLink", "EnhancedPrintoutNonGray"], FontFamily -> "Palatino", FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["NotebookLinkMR"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontFamily -> "Courier", FontWeight -> "Bold", FontColor -> RGBColor[0.269993, 0.308507, 0.6], Background -> GrayLevel[0.900008], ButtonBoxOptions -> { Active -> True, Appearance -> {Automatic, None}, ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookLocate[#]}]& )}], Cell[ StyleData["NotebookLinkMR", "Printout"], FontSize -> 11, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]], Cell[ StyleData["NotebookLinkMR", "EnhancedPrintout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]], Cell[ StyleData["NotebookLinkMR", "EnhancedPrintoutNonGray"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Open]]}, Open]], Cell[ CellGroupData[{ Cell["Palette Styles", "Section"], Cell[ "The cells below define styles that define standard ButtonFunctions, \ for use in palette buttons.", "Text"], Cell[ StyleData["Paste"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, After]}]& )}], Cell[ StyleData["Evaluate"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, All], 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["Inline Formatting", "Section"], Cell[ "These styles are for modifying individual words or letters in a \ cell exclusive of the cell tag.", "Text"], Cell[ CellGroupData[{ Cell[ StyleData["JT"], StyleMenuListing -> None, FontFamily -> "JFontText"], Cell[ StyleData["JT", "Printout"]], Cell[ StyleData["JT", "EnhancedPrintout"]], Cell[ StyleData["JT", "EnhancedPrintoutNonGray"]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["JS"], StyleMenuListing -> None, FontFamily -> "JFontSans"], Cell[ StyleData["JS", "Printout"]], Cell[ StyleData["JS", "EnhancedPrintout"]], Cell[ StyleData["JS", "EnhancedPrintoutNonGray"]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["JSB"], StyleMenuListing -> None, FontFamily -> "JFontSansBold"], Cell[ StyleData["JSB", "Printout"]], Cell[ StyleData["JSB", "EnhancedPrintout"]], Cell[ StyleData["JSB", "EnhancedPrintoutNonGray"]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["RM"], StyleMenuListing -> None, FontWeight -> "Plain", FontSlant -> "Plain"], Cell[ StyleData["RM", "Printout"]], Cell[ StyleData["RM", "EnhancedPrintout"]], Cell[ StyleData["RM", "EnhancedPrintoutNonGray"]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["BF"], StyleMenuListing -> None, FontWeight -> "Bold"], Cell[ StyleData["BF", "Printout"]], Cell[ StyleData["BF", "EnhancedPrintout"]], Cell[ StyleData["BF", "EnhancedPrintoutNonGray"]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["IT"], StyleMenuListing -> None, FontSlant -> "Italic"], Cell[ StyleData["IT", "Printout"]], Cell[ StyleData["IT", "EnhancedPrintout"]], Cell[ StyleData["IT", "EnhancedPrintoutNonGray"]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["TR"], StyleMenuListing -> None, FontFamily -> "Times", FontWeight -> "Plain", FontSlant -> "Plain"], Cell[ StyleData["TR", "Printout"]], Cell[ StyleData["TR", "EnhancedPrintout"], FontFamily -> "Palatino"], Cell[ StyleData["TR", "EnhancedPrintoutNonGray"], FontFamily -> "Palatino"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["TI"], StyleMenuListing -> None, FontFamily -> "Times", FontSlant -> "Italic"], Cell[ StyleData["TI", "Printout"]], Cell[ StyleData["TI", "EnhancedPrintout"], FontFamily -> "Palatino"], Cell[ StyleData["TI", "EnhancedPrintoutNonGray"], FontFamily -> "Palatino"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["TB"], StyleMenuListing -> None, FontFamily -> "Times", FontWeight -> "Bold", FontSlant -> "Plain"], Cell[ StyleData["TB", "Printout"]], Cell[ StyleData["TB", "EnhancedPrintout"], FontFamily -> "Palatino"], Cell[ StyleData["TB", "EnhancedPrintoutNonGray"], FontFamily -> "Palatino"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["TBI"], StyleMenuListing -> None, FontFamily -> "Times", FontWeight -> "Bold", FontSlant -> "Italic"], Cell[ StyleData["TBI", "Printout"]], Cell[ StyleData["TBI", "EnhancedPrintout"], FontFamily -> "Palatino"], Cell[ StyleData["TBI", "EnhancedPrintoutNonGray"], FontFamily -> "Palatino"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["MR"], Hyphenation -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Plain", FontSlant -> "Plain"], Cell[ StyleData["MR", "Printout"]], Cell[ StyleData["MR", "EnhancedPrintout"], FontFamily -> "Courier Std"], Cell[ StyleData["MR", "EnhancedPrintoutNonGray"], FontFamily -> "Courier Std"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["MO"], HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Plain", FontSlant -> "Italic"], Cell[ StyleData["MO", "Printout"], FontSlant -> "Oblique"], Cell[ StyleData["MO", "EnhancedPrintout"], FontFamily -> "Courier Std", FontSlant -> "Oblique"], Cell[ StyleData["MO", "EnhancedPrintoutNonGray"], FontFamily -> "Courier Std", FontSlant -> "Oblique"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["MB"], HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Bold", FontSlant -> "Plain"], Cell[ StyleData["MB", "Printout"]], Cell[ StyleData["MB", "EnhancedPrintout"], FontFamily -> "Courier Std"], Cell[ StyleData["MB", "EnhancedPrintoutNonGray"], FontFamily -> "Courier Std"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["MBO"], HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Bold", FontSlant -> "Italic"], Cell[ StyleData["MBO", "Printout"], FontSlant -> "Oblique"], Cell[ StyleData["MBO", "EnhancedPrintout"], FontFamily -> "Courier Std", FontSlant -> "Oblique"], Cell[ StyleData["MBO", "EnhancedPrintoutNonGray"], FontFamily -> "Courier Std", FontSlant -> "Oblique"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SR"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Plain", FontSlant -> "Plain"], Cell[ StyleData["SR", "Printout"]], Cell[ StyleData["SR", "EnhancedPrintout"], FontFamily -> "Frutiger-Roman"], Cell[ StyleData["SR", "EnhancedPrintoutNonGray"], FontFamily -> "Frutiger-Roman"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SO"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Plain", FontSlant -> "Italic"], Cell[ StyleData["SO", "Printout"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Plain", FontSlant -> "Italic"], Cell[ StyleData["SO", "EnhancedPrintout"], FontFamily -> "Frutiger-Italic", FontSlant -> "Plain"], Cell[ StyleData["SO", "EnhancedPrintoutNonGray"], FontFamily -> "Frutiger-Italic", FontSlant -> "Plain"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SB"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Bold", FontSlant -> "Plain"], Cell[ StyleData["SB", "Printout"], StyleMenuListing -> None], Cell[ StyleData["SB", "EnhancedPrintout"], FontFamily -> "Frutiger-Bold", FontWeight -> "Plain"], Cell[ StyleData["SB", "EnhancedPrintoutNonGray"], FontFamily -> "Frutiger-Bold", FontWeight -> "Plain"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SBColor"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Bold", FontSlant -> "Plain"], Cell[ StyleData["SBColor", "Printout"], StyleMenuListing -> None], Cell[ StyleData["SBColor", "EnhancedPrintout"], FontFamily -> "Frutiger-Bold", FontWeight -> "Plain"], Cell[ StyleData["SBColor", "EnhancedPrintoutNonGray"], FontFamily -> "Frutiger-Bold", FontWeight -> "Plain"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SBO"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Bold", FontSlant -> "Italic"], Cell[ StyleData["SBO", "Printout"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Bold", FontSlant -> "Italic"], Cell[ StyleData["SBO", "EnhancedPrintout"], FontFamily -> "Frutiger-BoldItalic", FontWeight -> "Plain", FontSlant -> "Plain"], Cell[ StyleData["SBO", "EnhancedPrintoutNonGray"], FontFamily -> "Frutiger-BoldItalic", FontWeight -> "Plain", FontSlant -> "Plain"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["M4"], ShowCellBracket -> True, StyleMenuListing -> None, FontFamily -> "Mathematica4", CharacterEncoding -> "Mathematica4"], Cell[ StyleData["M4", "Printout"], ShowCellBracket -> True, StyleMenuListing -> None, FontFamily -> "Mathematica4", CharacterEncoding -> "Mathematica4"], Cell[ StyleData["M4", "EnhancedPrintout"], ShowCellBracket -> True, StyleMenuListing -> None, FontFamily -> "Mathematica4", CharacterEncoding -> "Mathematica4"], Cell[ StyleData["M4", "EnhancedPrintoutNonGray"], ShowCellBracket -> True, StyleMenuListing -> None, FontFamily -> "Mathematica4", CharacterEncoding -> "Mathematica4"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SO10"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 10, FontWeight -> "Plain", FontSlant -> "Italic"], Cell[ StyleData["SO10", "Printout"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 8, FontWeight -> "Plain", FontSlant -> "Italic"], Cell[ StyleData["SO10", "EnhancedPrintout"], StyleMenuListing -> None, FontFamily -> "Frutiger-Italic", FontSize -> 8, FontWeight -> "Plain", FontSlant -> "Plain"], Cell[ StyleData["SO10", "EnhancedPrintoutNonGray"], StyleMenuListing -> None, FontFamily -> "Frutiger-Italic", FontSize -> 8, FontWeight -> "Plain", FontSlant -> "Plain"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["S9"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 9, FontWeight -> "Plain"], Cell[ StyleData["S9", "Printout"], FontSize -> 9, FontWeight -> "Plain"], Cell[ StyleData["S9", "EnhancedPrintout"], FontFamily -> "Frutiger-Roman", FontSize -> 9, FontWeight -> "Plain"], Cell[ StyleData["S9", "EnhancedPrintoutNonGray"], FontFamily -> "Frutiger-Roman", FontSize -> 9, FontWeight -> "Plain"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["S10"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 10, FontWeight -> "Plain"], Cell[ StyleData["S10", "Printout"], FontSize -> 10, FontWeight -> "Plain"], Cell[ StyleData["S10", "EnhancedPrintout"], FontFamily -> "Frutiger-Roman", FontSize -> 10, FontWeight -> "Plain"], Cell[ StyleData["S10", "EnhancedPrintoutNonGray"], FontFamily -> "Frutiger-Roman", FontSize -> 10, FontWeight -> "Plain"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SB9"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 9, FontWeight -> "Bold", PrivateFontOptions -> {"OperatorSubstitution" -> False}], Cell[ StyleData["SB9", "Printout"], FontSize -> 7], Cell[ StyleData["SB9", "EnhancedPrintout"], FontFamily -> "Frutiger-Bold", FontSize -> 7, FontWeight -> "Plain"], Cell[ StyleData["SB9", "EnhancedPrintoutNonGray"], FontFamily -> "Frutiger-Bold", FontSize -> 7, FontWeight -> "Plain"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SB10"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 10, FontWeight -> "Bold"], Cell[ StyleData["SB10", "Printout"], FontSize -> 8], Cell[ StyleData["SB10", "EnhancedPrintout"], FontFamily -> "Frutiger-Bold", FontSize -> 8, FontWeight -> "Plain"], Cell[ StyleData["SB10", "EnhancedPrintoutNonGray"], FontFamily -> "Frutiger-Bold", FontSize -> 8, FontWeight -> "Plain"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["MR10"], Hyphenation -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, SingleLetterItalics -> False, StyleMenuListing -> None, FontFamily -> "Courier", FontSize -> 10, FontWeight -> "Plain", FontSlant -> "Plain"], Cell[ StyleData["MR10", "Printout"], FontSize -> 7], Cell[ StyleData["MR10", "EnhancedPrintout"], FontFamily -> "Courier Std", FontSize -> 7], Cell[ StyleData["MR10", "EnhancedPrintoutNonGray"], FontFamily -> "Courier Std", FontSize -> 7]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["MO10"], Hyphenation -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, SingleLetterItalics -> False, StyleMenuListing -> None, FontFamily -> "Courier", FontSize -> 10, FontSlant -> "Italic"], Cell[ StyleData["MO10", "Printout"], FontSize -> 7], Cell[ StyleData["MO10", "EnhancedPrintout"], FontFamily -> "Courier Std", FontSize -> 7], Cell[ StyleData["MO10", "EnhancedPrintoutNonGray"], FontFamily -> "Courier Std", FontSize -> 7]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["C1"], StyleMenuListing -> None, FontColor -> RGBColor[0.4, 0, 1]], Cell[ StyleData["C1", "Printout"], FontSize -> 10, FontColor -> GrayLevel[0]], Cell[ StyleData["C1", "EnhancedPrintout"], FontFamily -> "Palatino", FontSize -> 10, FontColor -> GrayLevel[0]], Cell[ StyleData["C1", "EnhancedPrintoutNonGray"], FontFamily -> "Palatino", FontSize -> 10, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["C1MR"], StyleMenuListing -> None, FontFamily -> "Courier", FontColor -> RGBColor[0.4, 0, 1]], Cell[ StyleData["C1MR", "Printout"], FontSize -> 10, FontColor -> GrayLevel[0]], Cell[ StyleData["C1MR", "EnhancedPrintout"], FontFamily -> "Courier Std", FontSize -> 10, FontColor -> GrayLevel[0]], Cell[ StyleData["C1MR", "EnhancedPrintoutNonGray"], FontFamily -> "Courier Std", FontSize -> 10, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SmallCaps"], StyleMenuListing -> None, Magnification -> 0.8], Cell[ StyleData["SmallCaps", "Printout"]], Cell[ StyleData["SmallCaps", "EnhancedPrintout"], FontFamily -> "Palatino"], Cell[ StyleData["SmallCaps", "EnhancedPrintoutNonGray"], FontFamily -> "Palatino"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["KeyboardChars"], StyleMenuListing -> None, FontSize -> 12], Cell[ StyleData["KeyboardChars", "Printout"], FontSize -> 10], Cell[ StyleData["KeyboardChars", "EnhancedPrintout"], FontFamily -> "Palatino", FontSize -> 10], Cell[ StyleData["KeyboardChars", "EnhancedPrintoutNonGray"], FontFamily -> "Palatino", FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Inert"], StyleMenuListing -> None, Background -> RGBColor[0.870588, 0.905882, 0.972549]], Cell[ StyleData["Inert", "Printout"], StyleMenuListing -> None, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell["TMB Specific", "Subsection"], Cell[ StyleData["HeadingNumber"], StyleMenuListing -> None]}, Open]]}, Closed]], Cell[ CellGroupData[{ Cell["Emphasis Boxes and Pictures", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["Box"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> {BoxFrame -> 0.5, 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"], FontSize -> 18], Cell[ StyleData["Box", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[0.900008]], Cell[ StyleData["Box", "EnhancedPrintout"], CellMargins -> {{2, 0}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[0.900008]], Cell[ StyleData["Box", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 0}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["DoubleBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> {BoxFrame -> 0.5, 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"], FontSize -> 18], Cell[ StyleData["DoubleBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[0.900008]], Cell[ StyleData["DoubleBox", "EnhancedPrintout"], CellMargins -> {{2, 0}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[0.900008]], Cell[ StyleData["DoubleBox", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 0}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["1ColumnBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], LineIndent -> 0, StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> {BoxFrame -> 0.5, 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"], FontSize -> 18], Cell[ StyleData["1ColumnBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[0.900008]], Cell[ StyleData["1ColumnBox", "EnhancedPrintout"], CellMargins -> {{2, 0}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[0.900008]], Cell[ StyleData["1ColumnBox", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 0}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["2ColumnBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], SingleLetterItalics -> False, LineIndent -> 0, StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> {BoxFrame -> 0.5, FrameMargins -> True}, GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> { Scaled[0.31], { Scaled[0.67]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["2ColumnBox", "Presentation"], FontSize -> 18], Cell[ StyleData["2ColumnBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontSize -> 9, Background -> GrayLevel[0.900008]], Cell[ StyleData["2ColumnBox", "EnhancedPrintout"], CellMargins -> {{2, 0}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontSize -> 9, Background -> GrayLevel[0.900008]], Cell[ StyleData["2ColumnBox", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 0}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontSize -> 9, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["2ColumnEvenBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], LineIndent -> 0, StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> {BoxFrame -> 0.5, FrameMargins -> True}, GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> {{ Scaled[0.46]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["2ColumnEvenBox", "Presentation"], FontSize -> 18], Cell[ StyleData["2ColumnEvenBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[0.900008]], Cell[ StyleData["2ColumnEvenBox", "EnhancedPrintout"], CellMargins -> {{2, 0}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[0.900008]], Cell[ StyleData["2ColumnEvenBox", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 0}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["2ColumnSmallBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], LineIndent -> 0, StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> {BoxFrame -> 0.5, 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"], FontSize -> 18], Cell[ StyleData["2ColumnSmallBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[0.900008]], Cell[ StyleData["2ColumnSmallBox", "EnhancedPrintout"], CellMargins -> {{2, 0}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[0.900008]], Cell[ StyleData["2ColumnSmallBox", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 0}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["3ColumnBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], LineIndent -> 0, StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> {BoxFrame -> 0.5, FrameMargins -> True}, GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> {{ Scaled[0.32]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["3ColumnBox", "Presentation"], FontSize -> 18], Cell[ StyleData["3ColumnBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[0.900008]], Cell[ StyleData["3ColumnBox", "EnhancedPrintout"], CellMargins -> {{2, 0}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[0.900008]], Cell[ StyleData["3ColumnBox", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 0}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["3ColumnSmallBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], LineIndent -> 0, StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> {BoxFrame -> 0.5, 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"], FontSize -> 18], Cell[ StyleData["3ColumnSmallBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[0.900008]], Cell[ StyleData["3ColumnSmallBox", "EnhancedPrintout"], CellMargins -> {{2, 0}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[0.900008]], Cell[ StyleData["3ColumnSmallBox", "EnhancedPrintoutNonGray"], CellFrame -> 0.5, CellMargins -> {{2, 0}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["4ColumnBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], SingleLetterItalics -> False, LineIndent -> 0, StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> {BoxFrame -> 0.5, 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"], FontSize -> 18], Cell[ StyleData["4ColumnBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[0.900008]], Cell[ StyleData["4ColumnBox", "EnhancedPrintout"], CellMargins -> {{2, 0}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[0.900008]], Cell[ StyleData["4ColumnBox", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 0}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[1]]}, 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"], FontSize -> 18], Cell[ StyleData["5ColumnBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontSize -> 9, Background -> GrayLevel[0.900008]], Cell[ StyleData["5ColumnBox", "EnhancedPrintout"], CellMargins -> {{2, 0}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontSize -> 9, Background -> GrayLevel[0.900008]], Cell[ StyleData["5ColumnBox", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 0}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontSize -> 9, Background -> GrayLevel[1]]}, 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"], FontSize -> 18], Cell[ StyleData["6ColumnBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[0.900008]], Cell[ StyleData["6ColumnBox", "EnhancedPrintout"], CellMargins -> {{2, 0}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[0.900008]], Cell[ StyleData["6ColumnBox", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 0}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[1]]}, 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, 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"], FontSize -> 18], Cell[ StyleData["FramedBox", "Printout"], CellMargins -> {{2, 4}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[1]], Cell[ StyleData["FramedBox", "EnhancedPrintout"], CellMargins -> {{2, 4}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontFamily -> "Palatino", FontSize -> 10, Background -> GrayLevel[1]], Cell[ StyleData["FramedBox", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 4}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontFamily -> "Palatino", 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, 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"], FontSize -> 18], Cell[ StyleData["DefinitionBox", "Printout"], CellMargins -> {{2, 4}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[1]], Cell[ StyleData["DefinitionBox", "EnhancedPrintout"], CellMargins -> {{2, 4}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontFamily -> "Palatino", FontSize -> 10, Background -> GrayLevel[1]], Cell[ StyleData["DefinitionBox", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 4}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontFamily -> "Palatino", 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, 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"], FontSize -> 18], Cell[ StyleData["DefinitionBox3Col", "Printout"], CellMargins -> {{2, 4}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[1]], Cell[ StyleData["DefinitionBox3Col", "EnhancedPrintout"], CellMargins -> {{2, 4}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontFamily -> "Palatino", FontSize -> 10, Background -> GrayLevel[1]], Cell[ StyleData["DefinitionBox3Col", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 4}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontFamily -> "Palatino", 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, 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"], FontSize -> 18], Cell[ StyleData["DefinitionBox4Col", "Printout"], CellMargins -> {{2, 4}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[1]], Cell[ StyleData["DefinitionBox4Col", "EnhancedPrintout"], CellMargins -> {{2, 4}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontFamily -> "Palatino", FontSize -> 10, Background -> GrayLevel[1]], Cell[ StyleData["DefinitionBox4Col", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 4}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontFamily -> "Palatino", FontSize -> 10, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["PrecedenceTable"], 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, FontWeight -> "Plain", Background -> RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.3], Scaled[0.45], Scaled[0.2], { Scaled[0.05]}}, "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["PrecedenceTable", "Presentation"], FontSize -> 18], Cell[ StyleData["PrecedenceTable", "Printout"], CellMargins -> {{2, 4}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[1]], Cell[ StyleData["PrecedenceTable", "EnhancedPrintout"], CellMargins -> {{2, 4}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontFamily -> "Palatino", FontSize -> 10, Background -> GrayLevel[1]], Cell[ StyleData["PrecedenceTable", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 4}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontFamily -> "Palatino", 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, 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"], FontSize -> 18], Cell[ StyleData["DefinitionBox5Col", "Printout"], CellMargins -> {{2, 4}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[1]], Cell[ StyleData["DefinitionBox5Col", "EnhancedPrintout"], CellMargins -> {{2, 4}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontFamily -> "Palatino", FontSize -> 10, Background -> GrayLevel[1]], Cell[ StyleData["DefinitionBox5Col", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 4}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontFamily -> "Palatino", 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, 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"], FontSize -> 18], Cell[ StyleData["DefinitionBox6Col", "Printout"], CellMargins -> {{2, 4}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[1]], Cell[ StyleData["DefinitionBox6Col", "EnhancedPrintout"], CellMargins -> {{2, 4}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontFamily -> "Palatino", FontSize -> 10, Background -> GrayLevel[1]], Cell[ StyleData["DefinitionBox6Col", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 4}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontFamily -> "Palatino", 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"], FontSize -> 18], Cell[ StyleData["TopBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, CellFrameColor -> GrayLevel[0], Background -> GrayLevel[1]], Cell[ StyleData["TopBox", "EnhancedPrintout"], CellMargins -> {{2, 0}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontFamily -> "Palatino", Background -> GrayLevel[1]], Cell[ StyleData["TopBox", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 0}, {0, 8}}, CellFrameColor -> GrayLevel[0], FontFamily -> "Palatino", 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"], FontSize -> 18], Cell[ StyleData["MiddleBox", "Printout"], CellMargins -> {{2, 0}, {0, 2}}, CellFrameColor -> GrayLevel[0], Background -> GrayLevel[1]], Cell[ StyleData["MiddleBox", "EnhancedPrintout"], CellMargins -> {{2, 0}, {0, 4}}, CellFrameColor -> GrayLevel[0], FontFamily -> "Palatino", Background -> GrayLevel[1]], Cell[ StyleData["MiddleBox", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 0}, {0, 4}}, CellFrameColor -> GrayLevel[0], FontFamily -> "Palatino", 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"], FontSize -> 18], Cell[ StyleData["BottomBox", "Printout"], CellMargins -> {{2, 0}, {0, -5}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[1], GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{All}}, "ColumnsIndexed" -> {}, "Rows" -> {{2.2}}, "RowsIndexed" -> {}}}], Cell[ StyleData["BottomBox", "EnhancedPrintout"], CellMargins -> {{2, 0}, {0, -5}}, CellFrameColor -> GrayLevel[0], FontFamily -> "Palatino", FontSize -> 10, Background -> GrayLevel[1], GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{All}}, "ColumnsIndexed" -> {}, "Rows" -> {{2.2}}, "RowsIndexed" -> {}}}], Cell[ StyleData["BottomBox", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 0}, {0, -5}}, CellFrameColor -> GrayLevel[0], FontFamily -> "Palatino", 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"], FontSize -> 18], Cell[ StyleData["TopSpanBox", "Printout"], CellMargins -> {{2, 0}, {-2, 8}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[1]], Cell[ StyleData["TopSpanBox", "EnhancedPrintout"], CellMargins -> {{2, 0}, {-4, 8}}, CellFrameColor -> GrayLevel[0], FontFamily -> "Palatino", FontSize -> 10, Background -> GrayLevel[1]], Cell[ StyleData["TopSpanBox", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 0}, {-4, 8}}, CellFrameColor -> GrayLevel[0], FontFamily -> "Palatino", 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"], FontSize -> 18], Cell[ StyleData["MiddleSpanBox", "Printout"], CellMargins -> {{2, 0}, {-5, 0}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[1], GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{All}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.8}}, "RowsIndexed" -> {}}}], Cell[ StyleData["MiddleSpanBox", "EnhancedPrintout"], CellMargins -> {{2, 0}, {-7, 0}}, CellFrameColor -> GrayLevel[0], FontFamily -> "Palatino", FontSize -> 10, Background -> GrayLevel[1], GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{All}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.8}}, "RowsIndexed" -> {}}}], Cell[ StyleData["MiddleSpanBox", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 0}, {-7, 0}}, CellFrameColor -> GrayLevel[0], FontFamily -> "Palatino", 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"], FontSize -> 18], Cell[ StyleData["Picture", "Printout"], CellMargins -> {{2, Inherited}, {4, 4}}, Magnification -> 0.65], Cell[ StyleData["Picture", "EnhancedPrintout"], CellMargins -> {{2, Inherited}, {4, 2}}, Magnification -> 0.65], Cell[ StyleData["Picture", "EnhancedPrintoutNonGray"], CellMargins -> {{2, Inherited}, {4, 2}}, 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"], FontSize -> 18], Cell[ StyleData["OpenCloseItemizedPicture", "Printout"], CellMargins -> {{76, 2}, {0, 0}}, CellElementSpacings -> { "CellMinHeight" -> 1, "ClosedCellHeight" -> 0}, CellOpen -> False], Cell[ StyleData["OpenCloseItemizedPicture", "EnhancedPrintout"], CellMargins -> {{76, 2}, {0, 0}}, CellElementSpacings -> { "CellMinHeight" -> 1, "ClosedCellHeight" -> 0}, CellOpen -> False], Cell[ StyleData["OpenCloseItemizedPicture", "EnhancedPrintoutNonGray"], 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"], FontSize -> 18], Cell[ StyleData["ItemizedPicture", "Printout"], CellMargins -> {{77, 2}, {4, -4}}, Magnification -> 0.5], Cell[ StyleData["ItemizedPicture", "EnhancedPrintout"], CellMargins -> {{78, 2}, {12, -6}}, Magnification -> 0.5], Cell[ StyleData["ItemizedPicture", "EnhancedPrintoutNonGray"], CellMargins -> {{75, 2}, {4, -6}}, Magnification -> 0.5]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ListGraphic"], CellMargins -> {{88, 4}, {4, 4}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, StyleMenuListing -> None], Cell[ StyleData["ListGraphic", "Presentation"], FontSize -> 18], Cell[ StyleData["ListGraphic", "Printout"], CellMargins -> {{77, 2}, {4, -4}}, Magnification -> 0.5], Cell[ StyleData["ListGraphic", "EnhancedPrintout"], CellMargins -> {{78, 2}, {12, -6}}, Magnification -> 0.5], Cell[ StyleData["ListGraphic", "EnhancedPrintoutNonGray"], CellMargins -> {{75, 2}, {4, -6}}, 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"], FontSize -> 18], Cell[ StyleData["ListNoteBox", "Printout"], CellMargins -> {{77, 4}, {6, 2}}, FontSize -> 10, Background -> GrayLevel[0.900008]], Cell[ StyleData["ListNoteBox", "EnhancedPrintout"], CellMargins -> {{39, 4}, {6, 2}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[0.900008]], Cell[ StyleData["ListNoteBox", "EnhancedPrintoutNonGray"], CellMargins -> {{77, 4}, {6, 2}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["PictureGroup"], CellMargins -> {{41, 4}, {0, 4}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, StyleMenuListing -> None], Cell[ StyleData["PictureGroup", "Presentation"], FontSize -> 18], Cell[ StyleData["PictureGroup", "Printout"], CellMargins -> {{76, 2}, {0, 0}}, CellElementSpacings -> { "CellMinHeight" -> 1, "ClosedCellHeight" -> 0}, CellOpen -> False], Cell[ StyleData["PictureGroup", "EnhancedPrintout"], CellMargins -> {{76, 2}, {0, 0}}, CellElementSpacings -> { "CellMinHeight" -> 1, "ClosedCellHeight" -> 0}, CellOpen -> False], Cell[ StyleData["PictureGroup", "EnhancedPrintoutNonGray"], 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"], FontSize -> 18], Cell[ StyleData["Sound", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10], Cell[ StyleData["Sound", "EnhancedPrintout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10], Cell[ StyleData["Sound", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Caption"], CellMargins -> {{27, 4}, {0, 3}}, PageBreakAbove -> False, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 9], Cell[ StyleData["Caption", "Presentation"], FontSize -> 14], Cell[ StyleData["Caption", "Printout"], CellMargins -> {{2, 4}, {2, 0}}, FontSize -> 7], Cell[ StyleData["Caption", "EnhancedPrintout"], CellMargins -> {{2, 4}, {2, 2}}, FontFamily -> "Frutiger-Roman", FontSize -> 7], Cell[ StyleData["Caption", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 4}, {2, -2}}, FontFamily -> "Frutiger-Roman", FontSize -> 7]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Tables", "Section"], 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"], FontSize -> 18], Cell[ StyleData["2ColumnTable", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 9], Cell[ StyleData["2ColumnTable", "EnhancedPrintout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 9], Cell[ StyleData["2ColumnTable", "EnhancedPrintoutNonGray"], 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"], FontSize -> 18], Cell[ StyleData["2ColumnEvenTable", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 9], Cell[ StyleData["2ColumnEvenTable", "EnhancedPrintout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 9], Cell[ StyleData["2ColumnEvenTable", "EnhancedPrintoutNonGray"], 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"], FontSize -> 18], Cell[ StyleData["3ColumnTable", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 9], Cell[ StyleData["3ColumnTable", "EnhancedPrintout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 9], Cell[ StyleData["3ColumnTable", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 9]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Formulas and Programming", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["InlineFormula"], CellMargins -> {{27, 4}, {0, 8}}, CellHorizontalScrolling -> True, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1, SingleLetterItalics -> True, SpanMaxSize -> Infinity, StyleMenuListing -> None, GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["InlineFormula", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10], Cell[ StyleData["InlineFormula", "EnhancedPrintout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10], Cell[ StyleData["InlineFormula", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["InlineOutput"], CellMargins -> {{27, 4}, {0, 8}}, CellHorizontalScrolling -> True, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> None, StyleMenuListing -> None, FontFamily -> "Courier"], Cell[ StyleData["InlineOutput", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 9.5], Cell[ StyleData["InlineOutput", "EnhancedPrintout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 9.5], Cell[ StyleData["InlineOutput", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 9.5]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["DisplayFormula"], CellMargins -> {{66, Inherited}, {Inherited, 10}}, CellHorizontalScrolling -> True, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", ScriptLevel -> 0, SingleLetterItalics -> True, SpanMaxSize -> Infinity, StyleMenuListing -> None, UnderoverscriptBoxOptions -> {LimitsPositioning -> True}, GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["DisplayFormula", "Presentation"], FontSize -> 18], Cell[ StyleData["DisplayFormula", "Printout"]], Cell[ StyleData["DisplayFormula", "EnhancedPrintout"], FontFamily -> "Palatino"], Cell[ StyleData["DisplayFormula", "EnhancedPrintoutNonGray"], FontFamily -> "Palatino"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["DisplayMath"], CellMargins -> {{66, 10}, {7, 7}}, Evaluatable -> False, CellGroupingRules -> "InputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, DefaultFormatType -> DefaultInputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> "Formula", FormatType -> InputForm, ShowStringCharacters -> True, NumberMarks -> True, CounterIncrements -> "Input"], Cell[ StyleData["DisplayMath", "Presentation"], FontSize -> 18], Cell[ StyleData["DisplayMath", "Printout"], CellMargins -> {{39, 0}, {6, 6}}, FontSize -> 9], Cell[ StyleData["DisplayMath", "EnhancedPrintout"], CellMargins -> {{39, 0}, {4, 6}}, FontFamily -> "WRICourier", FontSize -> 9], Cell[ StyleData["DisplayMath", "EnhancedPrintoutNonGray"], CellMargins -> {{39, 0}, {4, 6}}, FontFamily -> "WRICourier", FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["NumberedEquation"], CellMargins -> {{66, 27}, {7, 7}}, CellFrameLabels -> {{None, Cell[ TextData[{"(", CounterBox["NumberedEquation"], ")"}]]}, {None, None}}, DefaultFormatType -> DefaultInputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, LanguageCategory -> "Formula", CounterIncrements -> "NumberedEquation", FormatTypeAutoConvert -> False], Cell[ StyleData["NumberedEquation", "Presentation"], FontSize -> 18], Cell[ StyleData["NumberedEquation", "Printout"], CellMargins -> {{39, 55}, {0, 10}}, FontSize -> 10], Cell[ StyleData["NumberedEquation", "EnhancedPrintout"], CellMargins -> {{39, 55}, {0, 10}}, FontFamily -> "Palatino", FontSize -> 10], Cell[ StyleData["NumberedEquation", "EnhancedPrintoutNonGray"], CellMargins -> {{39, 55}, {0, 10}}, FontFamily -> "Palatino", FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["EquationNumber"], CellMargins -> {{66, Inherited}, {Inherited, Inherited}}, LineSpacing -> {1.83, 0}, LanguageCategory -> "Formula"], Cell[ StyleData["EquationNumber", "Presentation"], FontSize -> 18], Cell[ StyleData["EquationNumber", "Printout"], LineSpacing -> {1.7, 0}], Cell[ StyleData["EquationNumber", "EnhancedPrintout"], LineSpacing -> {1.7, 0}, FontFamily -> "Palatino"], Cell[ StyleData["EquationNumber", "EnhancedPrintoutNonGray"], LineSpacing -> {1.7, 0}, FontFamily -> "Palatino"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Program"], CellMargins -> {{66, Inherited}, {Inherited, 10}}, CellHorizontalScrolling -> True, ShowSpecialCharacters -> Automatic, AutoItalicWords -> {}, LanguageCategory -> "Formula", FontFamily -> "Courier"], Cell[ StyleData["Program", "Presentation"], FontSize -> 18], Cell[ StyleData["Program", "Printout"], CellMargins -> {{42, 30}, {Inherited, 4}}, FontSize -> 9.5], Cell[ StyleData["Program", "EnhancedPrintout"], CellMargins -> {{42, 30}, {Inherited, 4}}, FontFamily -> "WRICourier", FontSize -> 9.5], Cell[ StyleData["Program", "EnhancedPrintoutNonGray"], CellMargins -> {{42, 30}, {Inherited, 4}}, FontFamily -> "WRICourier", FontSize -> 9.5]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Unique Help Browser Styles", "Section"], Cell[ CellGroupData[{ Cell["Standard Styles\n", "Subsection"], Cell[ CellGroupData[{ Cell[ StyleData["InspectorLevel1"], ShowGroupOpener -> True, CellMargins -> {{27, 10}, {2, 7}}, CellGroupingRules -> {"SectionGrouping", 60}, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, ParagraphIndent -> -38, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 16, FontWeight -> "Bold"], Cell[ StyleData["InspectorLevel1", "Presentation"], FontSize -> 24], Cell[ StyleData["InspectorLevel1", "SlideShow"], HyphenationOptions -> {"HyphenationCharacter" -> "-"}], Cell[ StyleData["InspectorLevel1", "Printout"], HyphenationOptions -> {"HyphenationCharacter" -> "-"}, FontSize -> 14]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["InspectorLevel2"], ShowGroupOpener -> True, CellMargins -> {{27, 4}, {0, 14}}, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 14, FontWeight -> "Bold"], Cell[ StyleData["InspectorLevel2", "Presentation"], FontSize -> 21], Cell[ StyleData["InspectorLevel2", "SlideShow"], ShowGroupOpener -> True, CellMargins -> {{48, 10}, {2, 12}}, CellGroupingRules -> {"SectionGrouping", 70}, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, ParagraphIndent -> -27, FontFamily -> "Helvetica", FontSize -> 14, FontWeight -> "Bold"], Cell[ StyleData["InspectorLevel2", "Printout"], HyphenationOptions -> {"HyphenationCharacter" -> "-"}, FontSize -> 12]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ObjectName"], CellFrame -> {{0, 0}, {0.5, 0}}, CellMargins -> {{0, 0}, {0, 0}}, CellGroupingRules -> {"SectionGrouping", 50}, CellFrameMargins -> {{27, 12}, {3, 15}}, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], HyphenationOptions -> {"HyphenationCharacter" -> "-"}, StyleMenuListing -> None, FontFamily -> "Courier", FontSize -> 18, FontWeight -> "Bold", Background -> RGBColor[0.960784, 0.878431, 0.666667]], Cell[ StyleData["ObjectName", "Presentation"], FontSize -> 24], Cell[ StyleData["ObjectName", "SlideShow"], CellMargins -> {{72, 4}, {1, 14}}, CellGroupingRules -> {"SectionGrouping", 90}, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, StyleMenuListing -> None, FontFamily -> "Courier", FontSize -> 12, FontWeight -> "Bold"], Cell[ StyleData["ObjectName", "Printout"], CellMargins -> {{0, 0}, {0, 10}}, CellFrameMargins -> {{24, 8}, {Inherited, Inherited}}, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, FontSize -> 12]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SubObjectNameClosed"], ShowGroupOpener -> True, CellMargins -> {{27, 4}, {1, 10}}, PrivateCellOptions -> {"DefaultCellGroupOpen" -> False}, CellGroupingRules -> {"SectionGrouping", 90}, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, StyleMenuListing -> None, FontFamily -> "Courier", FontSize -> 14, FontWeight -> "Bold"], Cell[ StyleData["SubObjectNameClosed", "Presentation"], FontSize -> 21], Cell[ StyleData["SubObjectNameClosed", "SlideShow"], CellMargins -> {{72, 4}, {1, 14}}, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, StyleMenuListing -> None, FontFamily -> "Courier", FontSize -> 12, FontWeight -> "Bold"], Cell[ StyleData["SubObjectNameClosed", "Printout"], CellMargins -> {{2, 0}, {1, 10}}, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, FontSize -> 12]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SubObjectName"], ShowGroupOpener -> True, CellMargins -> {{27, 4}, {1, 10}}, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, StyleMenuListing -> None, FontFamily -> "Courier", FontSize -> 18, FontWeight -> "Bold"], Cell[ StyleData["SubObjectName", "Presentation"], FontSize -> 24], Cell[ StyleData["SubObjectName", "SlideShow"], ShowGroupOpener -> True, CellMargins -> {{90, 4}, {1, 14}}, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, FontFamily -> "Courier", FontSize -> 12], Cell[ StyleData["SubObjectName", "Printout"], CellMargins -> {{2, 0}, {1, 10}}, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, FontFamily -> "Courier", FontSize -> 12]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["GroupObjectName"], ShowGroupOpener -> True, CellMargins -> {{27, 4}, {0, 14}}, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, StyleMenuListing -> None, FontFamily -> "Courier", FontSize -> 18, FontWeight -> "Bold"], Cell[ StyleData["GroupObjectName", "Presentation"], FontSize -> 24], Cell[ StyleData["GroupObjectName", "SlideShow"], ShowGroupOpener -> True, CellMargins -> {{72, 10}, {2, 12}}, CellGroupingRules -> {"SectionGrouping", 70}, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, ParagraphIndent -> -27, CounterIncrements -> "Outline2", FontFamily -> "Courier", FontSize -> 12, FontWeight -> "Bold"], Cell[ StyleData["GroupObjectName", "Printout"], HyphenationOptions -> {"HyphenationCharacter" -> "-"}, FontSize -> 14]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["GroupObjectNameClosed"], ShowGroupOpener -> True, CellMargins -> {{27, 4}, {0, 14}}, PrivateCellOptions -> {"DefaultCellGroupOpen" -> False}, CellGroupingRules -> {"SectionGrouping", 80}, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, StyleMenuListing -> None, FontFamily -> "Courier", FontSize -> 18, FontWeight -> "Bold"], Cell[ StyleData["GroupObjectNameClosed", "Presentation"], FontSize -> 24], Cell[ StyleData["GroupObjectNameClosed", "SlideShow"], ShowGroupOpener -> True, CellMargins -> {{72, 10}, {2, 12}}, CellGroupingRules -> {"SectionGrouping", 70}, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, ParagraphIndent -> -27, CounterIncrements -> "Outline2", FontFamily -> "Courier", FontSize -> 12, FontWeight -> "Bold"], Cell[ StyleData["GroupObjectNameClosed", "Printout"], HyphenationOptions -> {"HyphenationCharacter" -> "-"}, FontSize -> 14]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ObjectNameWarningMessages"], CellMargins -> {{27, 4}, {1, 10}}, CellGroupingRules -> {"SectionGrouping", 65}, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, StyleMenuListing -> None, FontFamily -> "Courier", FontSize -> 18, FontWeight -> "Bold"], Cell[ StyleData["ObjectNameWarningMessages", "Presentation"], FontSize -> 24], Cell[ StyleData["ObjectNameWarningMessages", "SlideShow"], CellMargins -> {{10, 4}, {1, 10}}, CellGroupingRules -> {"SectionGrouping", 65}, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, FontFamily -> "Courier", FontSize -> 16, FontWeight -> "Bold"], Cell[ StyleData["ObjectNameWarningMessages", "Printout"], CellMargins -> {{2, 0}, {1, 10}}, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, FontSize -> 12]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Command"], CellFrame -> {{0, 0}, {0.5, 0}}, CellMargins -> {{0, 0}, {0, 0}}, CellFrameMargins -> {{27, 12}, {3, 15}}, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], HyphenationOptions -> {"HyphenationCharacter" -> "-"}, CounterIncrements -> "Section", StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 18, FontWeight -> "Bold", Background -> RGBColor[0.960784, 0.878431, 0.666667]], Cell[ StyleData["Command", "Presentation"], FontSize -> 24], Cell[ StyleData["Command", "Printout"], CellMargins -> {{0, 0}, {0, 14}}, PageBreakBelow -> False, CellFrameMargins -> {{24, 8}, {Inherited, Inherited}}, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, FontSize -> 14]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["CharacterName"], CellFrame -> {{0, 0}, {0.5, 0}}, CellMargins -> {{0, 0}, {0, 0}}, CellFrameMargins -> {{27, 27}, {8, 8}}, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], HyphenationOptions -> {"HyphenationCharacter" -> "-"}, StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216]], Cell[ StyleData["CharacterName", "Presentation"], FontSize -> 18], Cell[ StyleData["CharacterName", "SlideShow"], CellMargins -> {{72, 4}, {1, 14}}, CellGroupingRules -> {"SectionGrouping", 90}, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, StyleMenuListing -> None, FontFamily -> "Courier", FontSize -> 12, FontWeight -> "Bold"], Cell[ StyleData["CharacterName", "Printout"], CellMargins -> {{2, 0}, {0, 4}}, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Usage"], CellFrame -> {{0, 0}, {0.5, 0}}, CellMargins -> {{0, 0}, {0, 0}}, CellFrameMargins -> {{27, 27}, {8, 8}}, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], Hyphenation -> False, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, ParagraphSpacing -> {0, 6}, ParagraphIndent -> -10, StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216]], Cell[ StyleData["Usage", "Presentation"], FontSize -> 18], Cell[ StyleData["Usage", "SlideShow"], CellFrame -> {{0, 0}, {0.5, 0.5}}, CellMargins -> {{72, 4}, {0, 4}}, CellFrameMargins -> 5, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, ParagraphSpacing -> {0, 6}, ParagraphIndent -> -10, StyleMenuListing -> None], Cell[ StyleData["Usage", "Printout"], CellMargins -> {{0, 0}, {0, 0}}, CellFrameMargins -> {{24, 8}, {Inherited, Inherited}}, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, StyleMenuListing -> None, FontSize -> 10, FontWeight -> "Plain"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ErrorMessage"], CellFrame -> {{0, 0}, {0.5, 0.5}}, ShowCellBracket -> True, CellMargins -> {{27, 4}, {0, 4}}, CellGroupingRules -> "OutputGrouping", PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, ShowCellLabel -> False, CellLabelMargins -> {{14, Inherited}, {Inherited, Inherited}}, CellFrameMargins -> 5, DefaultFormatType -> DefaultOutputFormatType, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, FormatType -> InputForm, StyleMenuListing -> None, FontColor -> RGBColor[0, 0, 1]], Cell[ StyleData["ErrorMessage", "Presentation"], FontSize -> 18], Cell[ StyleData["ErrorMessage", "SlideShow"], CellMargins -> {{72, 4}, {0, 8}}, CellHorizontalScrolling -> True, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, StyleMenuListing -> None], Cell[ StyleData["ErrorMessage", "Printout"], HyphenationOptions -> {"HyphenationCharacter" -> "-"}, FontSize -> 9, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Notes"], CellMargins -> {{27, 27}, {0, 8}}, CellHorizontalScrolling -> True, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, ParagraphSpacing -> {0, 6}, ParagraphIndent -> -10, StyleMenuListing -> None, FontFamily -> "Times"], Cell[ StyleData["Notes", "Presentation"], FontSize -> 18], Cell[ StyleData["Notes", "SlideShow"], CellMargins -> {{72, 4}, {0, 8}}, CellHorizontalScrolling -> True, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, ParagraphSpacing -> {0, 6}, ParagraphIndent -> -10, StyleMenuListing -> None, FontFamily -> "Times"], Cell[ StyleData["Notes", "Printout"], CellMargins -> {{24, 0}, {0, 8}}, Hyphenation -> True, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["NotesList"], CellMargins -> {{20, 4}, {2, 8}}, CellHorizontalScrolling -> True, ScriptLevel -> 1, SingleLetterItalics -> True, StyleMenuListing -> None, FontFamily -> "Times"], Cell[ StyleData["NotesList", "Presentation"], FontSize -> 18], Cell[ StyleData["NotesList", "SlideShow"], CellMargins -> {{82, 4}, {2, 8}}, CellHorizontalScrolling -> True, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, ScriptLevel -> 1, SingleLetterItalics -> True, StyleMenuListing -> None, FontFamily -> "Times"], Cell[ StyleData["NotesList", "Printout"], CellMargins -> {{12, 0}, {2, 8}}, Hyphenation -> True, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ReferenceSection"], CellFrame -> {{0, 0}, {0, 0.5}}, ShowGroupOpener -> True, CellMargins -> {{27, 4}, {0, 10}}, CellGroupingRules -> {"SectionGrouping", 30}, CellFrameMargins -> 12, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Bold"], Cell[ StyleData["ReferenceSection", "Presentation"], FontSize -> 20], Cell[ StyleData["ReferenceSection", "Printout"], CellMargins -> {{3, 0}, {0, 10}}, PageBreakBelow -> False, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, FontSize -> 9, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Reference"], CellMargins -> {{27, 27}, {0, 8}}, 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]}, ParagraphSpacing -> {0, 8}, CounterIncrements -> "Reference", FontSize -> 12], Cell[ StyleData["Reference", "Presentation"], FontSize -> 18], Cell[ StyleData["Reference", "SlideShow"], CellMargins -> {{27, 27}, {4, 4}}, Hyphenation -> False, FontSize -> 14], Cell[ StyleData["Reference", "Printout"], CellMargins -> {{2, 2}, {6, 6}}, TextJustification -> 1, Hyphenation -> True, FontSize -> 10], Cell[ StyleData["Reference", "EnhancedPrintout"], CellMargins -> {{2, 2}, {6, 6}}, TextJustification -> 1, Hyphenation -> True, FontFamily -> "Palatino", FontSize -> 10], Cell[ StyleData["Reference", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 2}, {6, 6}}, TextJustification -> 1, Hyphenation -> True, FontFamily -> "Palatino", FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ExampleSection"], CellFrame -> {{0, 0}, {0, 0.5}}, ShowGroupOpener -> True, CellMargins -> {{27, 4}, {0, 10}}, CellGroupingRules -> {"SectionGrouping", 70}, CellFrameMargins -> 12, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Bold"], Cell[ StyleData["ExampleSection", "Presentation"], FontSize -> 20], Cell[ StyleData["ExampleSection", "Printout"], CellMargins -> {{3, 0}, {0, 10}}, PageBreakBelow -> False, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, FontSize -> 9, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ExampleText"], CellMargins -> {{27, 40}, {0, 18}}, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, ParagraphSpacing -> {0, 6}, StyleMenuListing -> None, FontColor -> RGBColor[0, 0, 0.4]], Cell[ StyleData["ExampleText", "Presentation"], FontSize -> 18], Cell[ StyleData["ExampleText", "Printout"], CellMargins -> {{2, 80}, {0, 8}}, PageBreakBelow -> False, Hyphenation -> True, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, FontSize -> 8, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ExampleSubsection"], ShowCellBracket -> True, CellMargins -> {{27, 4}, {0, 16}}, CellGroupingRules -> {"SectionGrouping", 80}, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 10, FontWeight -> "Bold"], Cell[ StyleData["ExampleSubsection", "Presentation"], FontSize -> 15], Cell[ StyleData["ExampleSubsection", "Printout"], CellMargins -> {{12, 0}, {0, 16}}, PageBreakBelow -> False, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, FontSize -> 7]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["MessagesSection"], CellFrame -> {{0, 0}, {0, 0.5}}, ShowGroupOpener -> True, CellMargins -> {{27, 4}, {0, 10}}, CellGroupingRules -> {"SectionGrouping", 70}, CellFrameMargins -> 12, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Bold"], Cell[ StyleData["MessagesSection", "Presentation"], FontSize -> 20], Cell[ StyleData["MessagesSection", "Printout"], CellMargins -> {{3, 0}, {0, 10}}, PageBreakBelow -> False, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, FontSize -> 9, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["TemplateSection"], CellFrame -> {{0, 0}, {0, 0.5}}, CellMargins -> {{27, 4}, {0, 10}}, PrivateCellOptions -> {"DefaultCellGroupOpen" -> True}, CellGroupingRules -> {"SectionGrouping", 70}, CellFrameMargins -> 12, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Bold"], Cell[ StyleData["TemplateSection", "Presentation"], FontSize -> 20], Cell[ StyleData["TemplateSection", "Printout"], CellMargins -> {{3, 0}, {0, 10}}, PageBreakBelow -> False, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, FontSize -> 9, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["LineHead"], CellFrame -> {{0, 0}, {0.5, 0}}, CellMargins -> {{27, 4}, {8, 18}}, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, CounterIncrements -> "Subsection", CounterAssignments -> {{"Subsubsection", 0}}, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 12, FontWeight -> "Bold"], Cell[ StyleData["LineHead", "Presentation"], FontSize -> 18], Cell[ StyleData["LineHead", "Printout"], CellMargins -> {{2, 0}, {8, 18}}, PageBreakBelow -> False, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["FlushInput"], CellMargins -> {{27, 4}, {1, 4}}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, CellLabelAutoDelete -> False, CellLabelMargins -> {{23, Inherited}, {Inherited, Inherited}}, DefaultFormatType -> DefaultInputFormatType, ShowSpecialCharacters -> Automatic, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, FormatType -> StandardForm, ShowStringCharacters -> True, NumberMarks -> True, StyleMenuListing -> None, FontWeight -> "Bold"], Cell[ StyleData["FlushInput", "Presentation"], FontSize -> 18], Cell[ StyleData["FlushInput", "Printout"], CellMargins -> {{2, 0}, {1, 4}}, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["FlushOutput"], CellMargins -> {{27, Inherited}, {Inherited, Inherited}}, CellEditDuplicate -> True, CellGroupingRules -> "OutputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, CellLabelAutoDelete -> False, CellLabelMargins -> {{23, Inherited}, {Inherited, Inherited}}, DefaultFormatType -> DefaultOutputFormatType, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, FormatType -> StandardForm, StyleMenuListing -> None], Cell[ StyleData["FlushOutput", "Presentation"], FontSize -> 18], Cell[ StyleData["FlushOutput", "Printout"], CellMargins -> {{2, Inherited}, {Inherited, Inherited}}, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["DialogItem"], CellDingbat -> "\[EmptyDiamond]", CellMargins -> {{27, 4}, {0, 12}}, CellGroupingRules -> {"SectionGrouping", 70}, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 10, FontWeight -> "Bold"], Cell[ StyleData["DialogItem", "Presentation"], FontSize -> 15], Cell[ StyleData["DialogItem", "Printout"], CellMargins -> {{12, 0}, {0, 12}}, PageBreakBelow -> False, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, FontSize -> 8]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["GroupDivider"], CellMargins -> {{27, Inherited}, {Inherited, Inherited}}, CellEditDuplicate -> True, CellGroupingRules -> {"TitleGrouping", 0}, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, StyleMenuListing -> None], Cell[ StyleData["GroupDivider", "Presentation"], FontSize -> 18]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Highlight"], CellFrame -> 0.5, CellMargins -> {{27, 4}, {0, 18}}, CellFrameColor -> GrayLevel[0.800015], HyphenationOptions -> {"HyphenationCharacter" -> "-"}, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 12, Background -> GrayLevel[0.950011]], Cell[ StyleData["Highlight", "Presentation"], FontSize -> 18], Cell[ StyleData["Highlight", "Printout"], CellMargins -> {{2, 0}, {0, 18}}, Hyphenation -> True, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, LineSpacing -> {1, 3}, FontSize -> 8]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["UserNotes"], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{27, 4}, {0, 8}}, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], ParagraphIndent -> -7, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 10], Cell[ StyleData["UserNotes", "Presentation"], FontSize -> 15], Cell[ StyleData["UserNotes", "Printout"], CellMargins -> {{2, 0}, {0, 4}}, Hyphenation -> True, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, LineSpacing -> {1, 3}, FontSize -> 8], Cell[ StyleData["UserNotes", "EnhancedPrintout"], CellMargins -> {{0, 0}, {0, 4}}, Hyphenation -> True, LineSpacing -> {1, 3}, FontFamily -> "Frutiger-Roman", FontSize -> 8], Cell[ StyleData["UserNotes", "EnhancedPrintoutNonGray"], CellMargins -> {{0, 0}, {0, 4}}, Hyphenation -> True, LineSpacing -> {1, 3}, FontFamily -> "Frutiger-Roman", FontSize -> 8]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["MoreInfo"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], ParagraphIndent -> -7, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 10, Background -> RGBColor[0.964706, 0.929412, 0.839216]], Cell[ StyleData["MoreInfo", "Presentation"], FontSize -> 15], Cell[ StyleData["MoreInfo", "Printout"], CellMargins -> {{2, 0}, {0, 4}}, Hyphenation -> True, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, LineSpacing -> {1, 3}, FontSize -> 8]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["UserTips"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], ParagraphIndent -> -7, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 10, Background -> RGBColor[0.964706, 0.929412, 0.839216]], Cell[ StyleData["UserTips", "Presentation"], FontSize -> 15], Cell[ StyleData["UserTips", "Printout"], CellMargins -> {{2, 0}, {0, 4}}, CellFrameColor -> GrayLevel[0.800015], Hyphenation -> True, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, LineSpacing -> {1, 3}, FontSize -> 8, Background -> GrayLevel[0.900008]], Cell[ StyleData["UserTips", "EnhancedPrintout"], CellMargins -> {{0, 0}, {0, 4}}, CellFrameColor -> GrayLevel[0], Hyphenation -> True, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, LineSpacing -> {1, 3}, FontFamily -> "Frutiger-Roman", FontSize -> 8, Background -> GrayLevel[0.700008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Theorem"], CellFrame -> {{4, 0}, {0, 0}}, CellMargins -> {{27, 62}, {0, 14}}, CellFrameMargins -> 4, CellFrameColor -> RGBColor[0, 0, 0.8], HyphenationOptions -> {"HyphenationCharacter" -> "-"}, LineSpacing -> {1, 1}, ParagraphSpacing -> {0, 8}], Cell[ StyleData["Theorem", "Presentation"], FontSize -> 18], Cell[ StyleData["Theorem", "Printout"], CellMargins -> {{2, 0}, {0, 14}}, CellFrameMargins -> 3, CellFrameColor -> GrayLevel[0.8], HyphenationOptions -> {"HyphenationCharacter" -> "-"}, FontSize -> 9, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Commentary"], CellFrame -> {{2, 0}, {0, 0}}, CellMargins -> {{36, 10}, {7, 7}}, PageBreakBelow -> False, CellFrameMargins -> 8, CellFrameColor -> RGBColor[0, 0.2, 1], LineSpacing -> {1, 3}, FontSlant -> "Italic"], Cell[ StyleData["Commentary", "Presentation"], FontSize -> 18], Cell[ StyleData["Commentary", "Printout"], CellMargins -> {{36, 0}, {6, 6}}, CellFrameColor -> GrayLevel[0.8], FontSize -> 10], Cell[ StyleData["Commentary", "EnhancedPrintout"], CellMargins -> {{36, 0}, {6, 6}}, CellFrameColor -> GrayLevel[0.8], FontFamily -> "Palatino", FontSize -> 10], Cell[ StyleData["Commentary", "EnhancedPrintoutNonGray"], CellMargins -> {{36, 0}, {6, 6}}, CellFrameColor -> GrayLevel[0.8], FontFamily -> "Palatino", FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Level1Icon"], ShowGroupOpener -> True, CellMargins -> {{48, 4}, {0, 8}}, CellHorizontalScrolling -> True, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, ParagraphSpacing -> {0, 8}, StyleMenuListing -> None], Cell[ StyleData["Level1Icon", "Presentation"], FontSize -> 18], Cell[ StyleData["Level1Icon", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Level2Icon"], ShowGroupOpener -> True, CellMargins -> {{48, 4}, {0, 8}}, CellHorizontalScrolling -> True, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, ParagraphSpacing -> {0, 8}, StyleMenuListing -> None], Cell[ StyleData["Level2Icon", "Presentation"], FontSize -> 18], Cell[ StyleData["Level2Icon", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["CopyrightHead"], CellMargins -> {{27, 4}, {0, 8}}, PageBreakAbove -> False, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 12, FontWeight -> "Bold"], Cell[ StyleData["CopyrightHead", "Presentation"], FontSize -> 18], Cell[ StyleData["CopyrightHead", "Printout"], CellMargins -> {{2, 2}, {6, 6}}, TextJustification -> 1, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Copyright"], CellMargins -> {{27, 4}, {0, 8}}, PageBreakAbove -> False, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 10], Cell[ StyleData["Copyright", "Presentation"], FontSize -> 15], Cell[ StyleData["Copyright", "Printout"], CellMargins -> {{2, 2}, {6, 6}}, TextJustification -> 1, FontSize -> 8], Cell[ StyleData["Copyright", "EnhancedPrintout"], CellMargins -> {{2, 2}, {6, 6}}, TextJustification -> 1, FontFamily -> "Frutiger-Roman", FontSize -> 7]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["RegisterSubsection"], CellDingbat -> None, CellMargins -> {{27, 27}, {0, 18}}, CellElementSpacings -> {"ClosedGroupTopMargin" -> 18}, CellGroupingRules -> {"SectionGrouping", 45}, CellFrameLabelMargins -> 6, 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]}, FontFamily -> "Helvetica", FontSize -> 16], Cell[ StyleData["RegisterSubsection", "Presentation"], FontSize -> 24], Cell[ StyleData["RegisterSubsection", "SlideShow"], CellDingbat -> None, CellMargins -> {{70, 0}, {4, 12}}, FontSize -> 12], Cell[ StyleData["RegisterSubsection", "Printout"], CellMargins -> {{9, 0}, {5, 24}}, FontSize -> 12], Cell[ StyleData["RegisterSubsection", "EnhancedPrintout"], CellMargins -> {{9, 0}, {5, 20}}, FontFamily -> "Frutiger-Roman", FontSize -> 12], Cell[ StyleData["RegisterSubsection", "EnhancedPrintoutNonGray"], CellMargins -> {{9, 0}, {5, 20}}, FontFamily -> "Frutiger-Roman", FontSize -> 12]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["RegisterSubsubsection"], CellMargins -> {{27, 27}, {0, 18}}, CellElementSpacings -> {"ClosedGroupTopMargin" -> 18}, CellGroupingRules -> {"SectionGrouping", 50}, 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]}, FontFamily -> "Helvetica", FontWeight -> "Bold", FontColor -> RGBColor[0.592157, 0.313726, 0.313726]], Cell[ StyleData["RegisterSubsubsection", "Presentation"], FontSize -> 18], Cell[ StyleData["RegisterSubsubsection", "Printout"], CellMargins -> {{2, 0}, {3, 8}}, FontSize -> 10], Cell[ StyleData["RegisterSubsubsection", "EnhancedPrintout"], CellMargins -> {{2, 0}, {3, 8}}, FontFamily -> "Frutiger-Bold", FontSize -> 10, FontWeight -> "Plain", FontColor -> GrayLevel[0]], Cell[ StyleData["RegisterSubsubsection", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 0}, {3, 8}}, FontFamily -> "Frutiger-Bold", FontSize -> 10, FontWeight -> "Plain", FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["RegisterText"], CellMargins -> {{27, 4}, {0, 8}}, PageBreakAbove -> False, StyleMenuListing -> None, FontSize -> 10], Cell[ StyleData["RegisterText", "Presentation"], FontSize -> 15], Cell[ StyleData["RegisterText", "Printout"], CellMargins -> {{2, 2}, {6, 6}}, TextJustification -> 1, FontSize -> 8], Cell[ StyleData["RegisterText", "EnhancedPrintout"], CellMargins -> {{2, 2}, {6, 6}}, TextJustification -> 1, FontFamily -> "Palatino", FontSize -> 7]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["CaptionHead"], CellMargins -> {{27, 4}, {0, 8}}, PageBreakAbove -> False, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 12, FontWeight -> "Bold"], Cell[ StyleData["CaptionHead", "Presentation"], FontSize -> 15], Cell[ StyleData["CaptionHead", "Printout"], CellMargins -> {{2, 2}, {6, 6}}, TextJustification -> 1, FontSize -> 8], Cell[ StyleData["CaptionHead", "EnhancedPrintout"], CellMargins -> {{2, 2}, {6, 6}}, TextJustification -> 1, FontFamily -> "Palatino", FontSize -> 7]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["CaptionText"], CellMargins -> {{66, 4}, {0, 8}}, PageBreakAbove -> False, StyleMenuListing -> None], Cell[ StyleData["CaptionText", "Presentation"], FontSize -> 15], Cell[ StyleData["CaptionText", "Printout"], CellMargins -> {{2, 2}, {6, 6}}, TextJustification -> 1, FontSize -> 8], Cell[ StyleData["CaptionText", "EnhancedPrintout"], CellMargins -> {{2, 2}, {6, 6}}, TextJustification -> 1, FontFamily -> "Palatino", FontSize -> 7]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["BulletText"], CellMargins -> {{76, 4}, {4, 4}}, CellFrameLabels -> {{ Cell["\[Bullet]", "BulletText", CellBaseline -> Baseline], Inherited}, {Inherited, Inherited}}, Hyphenation -> False, LineSpacing -> {1, 3}, CounterIncrements -> "BulletText", StyleMenuListing -> None], Cell[ StyleData["BulletText", "Presentation"], FontSize -> 18], Cell[ StyleData["BulletText", "Printout"], FontSize -> 10], Cell[ StyleData["BulletText", "EnhancedPrintout"], CellMargins -> {{16, 4}, {2, 4}}, FontFamily -> "Palatino", FontSize -> 10], Cell[ StyleData["BulletText", "EnhancedPrintoutNonGray"], FontFamily -> "Palatino", FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["HelpLabels"], CellMargins -> {{88, 4}, {0, 8}}, StyleMenuListing -> None], Cell[ StyleData["HelpLabels", "Presentation"], FontSize -> 15], Cell[ StyleData["HelpLabels", "Printout"], CellMargins -> {{34, 2}, {6, 6}}, FontSize -> 10], Cell[ StyleData["HelpLabels", "EnhancedPrintout"], CellMargins -> {{34, 2}, {6, 6}}, FontFamily -> "Palatino", FontSize -> 10]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Manual.nb Merge", "Subsection"], Cell[ CellGroupData[{ Cell["Function List", "Subsubsection"], Cell[ CellGroupData[{ Cell[ StyleData["FunctionName"], CellDingbat -> "\[FilledSquare]", CellMargins -> {{24, 10}, {10, 12}}, CellGroupingRules -> {"SectionGrouping", 40}, PageBreakBelow -> False, StyleMenuListing -> None, FontFamily -> "Courier", FontSize -> 14, FontWeight -> "Bold", CellTags -> "FunctionName"], Cell[ StyleData["FunctionName", "Presentation"], FontSize -> 21], Cell[ StyleData["FunctionName", "Printout"], CellMargins -> {{9, 0}, {10, 10}}, FontSize -> 12], Cell[ StyleData["FunctionName", "EnhancedPrintout"], CellMargins -> {{9, 0}, {10, 10}}, FontFamily -> "Courier", FontSize -> 12], Cell[ StyleData["FunctionName", "EnhancedPrintoutNonGray"], CellMargins -> {{9, 0}, {10, 10}}, FontFamily -> "Courier", FontSize -> 12]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["FunctionSubsection"], CellDingbat -> "\[FilledSquare]", CellMargins -> {{36, 10}, {0, 6}}, CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> False, StyleMenuListing -> None, FontWeight -> "Bold", CellTags -> "FunctionSubsection"], Cell[ StyleData["FunctionSubsection", "Presentation"], FontSize -> 18], Cell[ StyleData["FunctionSubsection", "Printout"], CellMargins -> {{30, 0}, {0, 6}}], Cell[ StyleData["FunctionSubsection", "EnhancedPrintout"], CellMargins -> {{30, 0}, {0, 6}}, FontFamily -> "Palatino", FontSize -> 11], Cell[ StyleData["FunctionSubsection", "EnhancedPrintoutNonGray"], CellMargins -> {{30, 0}, {0, 6}}, FontFamily -> "Palatino", FontSize -> 11]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["FunctionDescription"], CellMargins -> {{36, 10}, {4, 0}}, LineSpacing -> {1, 3}, ParagraphSpacing -> {0.7, 0}, CounterIncrements -> "FunctionDescription", StyleMenuListing -> None, FontWeight -> "Plain"], Cell[ StyleData["FunctionDescription", "Presentation"], FontSize -> 18], Cell[ StyleData["FunctionDescription", "Printout"], CellMargins -> {{30, 0}, {4, 0}}, FontSize -> 11], Cell[ StyleData["FunctionDescription", "EnhancedPrintout"], CellMargins -> {{30, 0}, {4, 0}}, TextJustification -> 0, FontFamily -> "Palatino", FontSize -> 10], Cell[ StyleData[ "FunctionDescription", "EnhancedPrintoutNonGray"], CellMargins -> {{30, 0}, {4, 0}}, TextJustification -> 0, FontFamily -> "Palatino", FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["FunctionDescriptionRuled"], CellFrame -> {{0, 0}, {0.25, 0.25}}, CellMargins -> {{36, 10}, {4, 0}}, LineSpacing -> {1, 3}, ParagraphSpacing -> {0.7, 0}, CounterIncrements -> "FunctionDescriptionRuled", StyleMenuListing -> None], Cell[ StyleData["FunctionDescriptionRuled", "Presentation"], FontSize -> 18], Cell[ StyleData["FunctionDescriptionRuled", "Printout"], CellMargins -> {{30, 0}, {4, 0}}, FontSize -> 11], Cell[ StyleData["FunctionDescriptionRuled", "EnhancedPrintout"], CellMargins -> {{30, 0}, {4, 0}}, TextJustification -> 0, FontFamily -> "Palatino", FontSize -> 10], Cell[ StyleData[ "FunctionDescriptionRuled", "EnhancedPrintoutNonGray"], CellMargins -> {{30, 0}, {4, 0}}, TextJustification -> 0, FontFamily -> "Palatino", FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["FunctionDescriptionRuleTop"], CellFrame -> {{0, 0}, {0, 0.25}}, CellMargins -> {{36, 10}, {4, 0}}, LineSpacing -> {1, 3}, ParagraphSpacing -> {0.7, 0}, CounterIncrements -> "FunctionDescriptionRuleTop", StyleMenuListing -> None], Cell[ StyleData["FunctionDescriptionRuleTop", "Presentation"], FontSize -> 18], Cell[ StyleData["FunctionDescriptionRuleTop", "Printout"], CellMargins -> {{30, 0}, {4, 0}}, FontSize -> 11], Cell[ StyleData[ "FunctionDescriptionRuleTop", "EnhancedPrintout"], CellMargins -> {{30, 0}, {4, 0}}, TextJustification -> 0, FontFamily -> "Palatino", FontSize -> 10], Cell[ StyleData[ "FunctionDescriptionRuleTop", "EnhancedPrintoutNonGray"], CellMargins -> {{30, 0}, {4, 0}}, TextJustification -> 0, FontFamily -> "Palatino", FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["FunctionDescriptionRuleBottom"], CellFrame -> {{0, 0}, {0.25, 0}}, CellMargins -> {{36, 10}, {4, 0}}, LineSpacing -> {1, 3}, ParagraphSpacing -> {0.7, 0}, CounterIncrements -> "FunctionDescriptionRuleBottom", StyleMenuListing -> None], Cell[ StyleData["FunctionDescriptionRuleBottom", "Presentation"], FontSize -> 18], Cell[ StyleData["FunctionDescriptionRuleBottom", "Printout"], CellMargins -> {{30, 0}, {4, 0}}, FontSize -> 11], Cell[ StyleData[ "FunctionDescriptionRuleBottom", "EnhancedPrintout"], CellMargins -> {{30, 0}, {4, 0}}, TextJustification -> 0, FontFamily -> "Palatino", FontSize -> 10], Cell[ StyleData[ "FunctionDescriptionRuleBottom", "EnhancedPrintoutNonGray"], CellMargins -> {{30, 0}, {4, 0}}, TextJustification -> 0, FontFamily -> "Palatino", FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["FunctionExample"], CellMargins -> {{36, 10}, {4, 0}}, StyleMenuListing -> None, FontSize -> 10], Cell[ StyleData["FunctionExample", "Presentation"], FontSize -> 15], Cell[ StyleData["FunctionExample", "Printout"], CellMargins -> {{30, 0}, {4, 0}}, FontSize -> 9], Cell[ StyleData["FunctionExample", "EnhancedPrintout"], CellMargins -> {{30, 0}, {4, 0}}, FontFamily -> "Palatino", FontSize -> 9], Cell[ StyleData["FunctionExample", "EnhancedPrintoutNonGray"], CellMargins -> {{30, 0}, {4, 0}}, FontFamily -> "Palatino", FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["FunctionTextNote"], CellMargins -> {{36, 4}, {0, 4}}, LineSpacing -> {1, 3}, ParagraphSpacing -> {0, 4}, LineIndent -> 0, StyleMenuListing -> None], Cell[ StyleData["FunctionTextNote", "Presentation"], FontSize -> 18], Cell[ StyleData["FunctionTextNote", "Printout"], CellMargins -> {{36, 4}, {0, 4}}, FontSize -> 9], Cell[ StyleData["FunctionTextNote", "EnhancedPrintout"], CellMargins -> {{36, 4}, {0, 4}}, FontFamily -> "Palatino", FontSize -> 8], Cell[ StyleData["FunctionTextNote", "EnhancedPrintoutNonGray"], CellMargins -> {{36, 4}, {0, 4}}, FontFamily -> "Palatino", FontSize -> 8]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["3ColumnFunctionTable"], CellMargins -> {{36, 4}, {0, 8}}, CellHorizontalScrolling -> True, PageBreakWithin -> False, AutoIndent -> False, AutoSpacing -> False, 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" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[1.4]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["3ColumnFunctionTable", "Presentation"], FontSize -> 18], Cell[ StyleData["3ColumnFunctionTable", "Printout"], CellMargins -> {{30, 0}, {0, 8}}, FontSize -> 10], Cell[ StyleData["3ColumnFunctionTable", "EnhancedPrintout"], CellMargins -> {{30, 0}, {0, 8}}, FontSize -> 10], Cell[ StyleData[ "3ColumnFunctionTable", "EnhancedPrintoutNonGray"], CellMargins -> {{30, 0}, {0, 8}}, FontSize -> 10]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Browser Emulation", "Subsubsection"], Cell[ CellGroupData[{ Cell[ StyleData["TextNormal"], CellMargins -> {{12, 10}, {7, 7}}, LineSpacing -> {1, 3}, CounterIncrements -> "TextNormal", StyleMenuListing -> None, FontFamily -> "Times", FontSize -> 12], Cell[ StyleData["TextNormal", "Presentation"], FontSize -> 18], Cell[ StyleData["TextNormal", "Printout"], CellMargins -> {{2, 2}, {6, 6}}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["BrowserEmulation"], CellMargins -> {{12, 1}, {7, 24}}, CellGroupingRules -> {"SectionGrouping", 70}, LineSpacing -> {1, 3}, StyleMenuListing -> None, FontFamily -> "Helvetica", GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> { "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {True, {False}, True}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> {{ Scaled[0.25]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.35], { Offset[0.5599999999999999]}, Offset[0.35]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["BrowserEmulation", "Presentation"], FontSize -> 18], Cell[ StyleData["BrowserEmulation", "Printout"], CellMargins -> {{2, 2}, {6, 6}}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["CategoryDefs"], CellMargins -> {{300, 10}, {7, 7}}, LineSpacing -> {1, 3}, StyleMenuListing -> None, FontFamily -> "Helvetica", Background -> RGBColor[1, 0.8, 0.6], GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> { "Columns" -> {False, {True}, False}, "ColumnsIndexed" -> {}, "Rows" -> {False, {True}, False}, "RowsIndexed" -> {}}}], Cell[ StyleData["CategoryDefs", "Presentation"], FontSize -> 18], Cell[ StyleData["CategoryDefs", "Printout"], CellMargins -> {{2, 2}, {6, 6}}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Category1"], ShowCellBracket -> False, ShowGroupOpener -> True, CellMargins -> {{12, 10}, {7, 7}}, CellGroupingRules -> {"SectionGrouping", 50}, StyleMenuListing -> None, FontSize -> 16, FontWeight -> "Bold"], Cell[ StyleData["Category1", "Presentation"], FontSize -> 24], Cell[ StyleData["Category1", "Printout"], CellMargins -> {{2, 2}, {6, 6}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Category2"], ShowCellBracket -> False, ShowGroupOpener -> True, CellMargins -> {{85, 10}, {7, 7}}, CellGroupingRules -> {"SectionGrouping", 60}, StyleMenuListing -> None, FontSize -> 14, FontWeight -> "Bold", FontColor -> RGBColor[0, 0, 0.500008]], Cell[ StyleData["Category2", "Presentation"], FontSize -> 21], Cell[ StyleData["Category2", "Printout"], CellMargins -> {{2, 2}, {6, 6}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Category3"], ShowCellBracket -> False, ShowGroupOpener -> True, CellMargins -> {{157, 10}, {7, 7}}, CellGroupingRules -> {"SectionGrouping", 70}, StyleMenuListing -> None, FontSize -> 12, FontWeight -> "Bold", FontColor -> RGBColor[0.2, 0, 0.4]], Cell[ StyleData["Category3", "Presentation"], FontSize -> 18], Cell[ StyleData["Category3", "Printout"], CellMargins -> {{2, 2}, {6, 6}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Category4"], ShowCellBracket -> False, ShowGroupOpener -> True, CellMargins -> {{230, 10}, {7, 7}}, CellGroupingRules -> {"SectionGrouping", 80}, StyleMenuListing -> None, FontWeight -> "Bold", FontColor -> RGBColor[0, 0.300008, 0.4]], Cell[ StyleData["Category4", "Presentation"], FontSize -> 18], Cell[ StyleData["Category4", "Printout"], CellMargins -> {{2, 2}, {6, 6}}]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Misc", "Subsubsection"], Cell[ CellGroupData[{ Cell[ StyleData["4ColumnTable"], CellMargins -> {{10, 4}, {0, 8}}, CellHorizontalScrolling -> True, PageBreakWithin -> False, AutoIndent -> False, AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> None, GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {Left, {Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> {{ Scaled[0.25]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[1.4]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["4ColumnTable", "Presentation"], FontSize -> 18], Cell[ StyleData["4ColumnTable", "Printout"], CellMargins -> {{2, 0}, {0, 8}}], Cell[ StyleData["4ColumnTable", "EnhancedPrintout"], CellMargins -> {{2, 0}, {0, 8}}], Cell[ StyleData["4ColumnTable", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 0}, {0, 8}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["5ColumnTable"], CellMargins -> {{10, 4}, {0, 8}}, CellHorizontalScrolling -> True, PageBreakWithin -> False, AutoIndent -> False, AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> None, GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {Left, {Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> {{ Scaled[0.2]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[1.4]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["5ColumnTable", "Presentation"], FontSize -> 18], Cell[ StyleData["5ColumnTable", "Printout"], CellMargins -> {{2, 0}, {0, 8}}], Cell[ StyleData["5ColumnTable", "EnhancedPrintout"], CellMargins -> {{2, 0}, {0, 8}}], Cell[ StyleData["5ColumnTable", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 0}, {0, 8}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["6ColumnTable"], CellMargins -> {{10, 4}, {0, 8}}, CellHorizontalScrolling -> True, PageBreakWithin -> False, AutoIndent -> False, AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> None, GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {Left, {Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> {{ Scaled[0.16]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[1.4]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["6ColumnTable", "Presentation"], FontSize -> 18], Cell[ StyleData["6ColumnTable", "Printout"], CellMargins -> {{2, 0}, {0, 8}}], Cell[ StyleData["6ColumnTable", "EnhancedPrintout"], CellMargins -> {{2, 0}, {0, 8}}], Cell[ StyleData["6ColumnTable", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 0}, {0, 8}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["7ColumnTable"], CellMargins -> {{10, 4}, {0, 8}}, CellHorizontalScrolling -> True, PageBreakWithin -> False, AutoIndent -> False, AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> None, GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {Left, {Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> {{ Scaled[0.14]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[1.4]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["7ColumnTable", "Presentation"], FontSize -> 18], Cell[ StyleData["7ColumnTable", "Printout"], CellMargins -> {{2, 0}, {0, 8}}], Cell[ StyleData["7ColumnTable", "EnhancedPrintout"], CellMargins -> {{2, 0}, {0, 8}}], Cell[ StyleData["7ColumnTable", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 0}, {0, 8}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["8ColumnTable"], CellMargins -> {{10, 4}, {0, 8}}, CellHorizontalScrolling -> True, PageBreakWithin -> False, AutoIndent -> False, AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> None, GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {Left, {Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> {{ Scaled[0.12]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[1.4]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["8ColumnTable", "Presentation"], FontSize -> 18], Cell[ StyleData["8ColumnTable", "Printout"], CellMargins -> {{2, 0}, {0, 8}}], Cell[ StyleData["8ColumnTable", "EnhancedPrintout"], CellMargins -> {{2, 0}, {0, 8}}], Cell[ StyleData["8ColumnTable", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 0}, {0, 8}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ABItemizedText"], CellMargins -> {{20, 4}, {0, 5}}, LineSpacing -> {1, 3}, ParagraphIndent -> -21, CounterIncrements -> "ItemizedText", StyleMenuListing -> None], Cell[ StyleData["ABItemizedText", "Presentation"], FontSize -> 18], Cell[ StyleData["ABItemizedText", "Printout"], Hyphenation -> True, ParagraphIndent -> -21, FontSize -> 11], Cell[ StyleData["ABItemizedText", "EnhancedPrintout"], Hyphenation -> True, ParagraphIndent -> -21, FontFamily -> "Palatino", FontSize -> 10], Cell[ StyleData["ABItemizedText", "EnhancedPrintoutNonGray"], Hyphenation -> True, ParagraphIndent -> -21, FontFamily -> "Palatino", FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ChapNumber"], CellMargins -> {{27, Inherited}, {20, 40}}, 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]}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Title", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Subtitle", 0}, {"Subsubtitle", 0}}, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 42, FontWeight -> "Plain", FontColor -> RGBColor[0.592157, 0.313726, 0.313726]], Cell[ StyleData["ChapNumber", "Presentation"], FontSize -> 63], Cell[ StyleData["ChapNumber", "Printout"], CellMargins -> {{2, 10}, {15, 30}}, FontSize -> 36], Cell[ StyleData["ChapNumber", "EnhancedPrintout"], CellMargins -> {{2, 10}, {15, 30}}, FontFamily -> "Frutiger-Roman", FontSize -> 36, FontColor -> GrayLevel[0]], Cell[ StyleData["ChapNumber", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 10}, {15, 30}}, FontFamily -> "Frutiger-Roman", FontSize -> 36, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ChapTitle"], CellMargins -> {{27, Inherited}, {80, 10}}, 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]}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Title", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Subtitle", 0}, {"Subsubtitle", 0}}, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 36, FontWeight -> "Bold", FontColor -> RGBColor[0.592157, 0.313726, 0.313726]], Cell[ StyleData["ChapTitle", "Presentation"], FontSize -> 54], Cell[ StyleData["ChapTitle", "Printout"], CellMargins -> {{2, 10}, {80, 6}}, FontSize -> 30], Cell[ StyleData["ChapTitle", "EnhancedPrintout"], CellMargins -> {{2, 10}, {80, 6}}, FontFamily -> "Frutiger-Bold", FontSize -> 30, FontWeight -> "Plain", FontColor -> GrayLevel[0]], Cell[ StyleData["ChapTitle", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 10}, {80, 6}}, FontFamily -> "Frutiger-Bold", FontSize -> 30, FontWeight -> "Plain"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ItemDingbat"], CellSize -> {22, 14}, TextAlignment -> Right, StyleMenuListing -> None, FontWeight -> "Bold"], Cell[ StyleData["ItemDingbat", "Presentation"], FontSize -> 18], Cell[ StyleData["ItemDingbat", "Printout"], CellSize -> {22, 13.125}], Cell[ StyleData["ItemDingbat", "EnhancedPrintout"], CellSize -> {22, 11}], Cell[ StyleData["ItemDingbat", "EnhancedPrintoutNonGray"], CellSize -> {22, 11}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Item1"], CellMargins -> {{19, 4}, {4, 4}}, ParagraphIndent -> -22, CounterIncrements -> "Item1", StyleMenuListing -> None], Cell[ StyleData["Item1", "Presentation"], FontSize -> 18], Cell[ StyleData["Item1", "Printout"], CellMargins -> {{12, 0}, {2, 4}}, FontSize -> 10], Cell[ StyleData["Item1", "EnhancedPrintout"], CellMargins -> {{16, 0}, {2, 4}}, FontSize -> 10], Cell[ StyleData["Item1", "EnhancedPrintoutNonGray"], CellMargins -> {{16, 0}, {2, 4}}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Item1Continued"], CellMargins -> {{41, 4}, {4, 1}}, CounterIncrements -> "Item1Continued", StyleMenuListing -> None], Cell[ StyleData["Item1Continued", "Presentation"], FontSize -> 18], Cell[ StyleData["Item1Continued", "Printout"], CellMargins -> {{34, 0}, {4, 1}}, FontSize -> 10], Cell[ StyleData["Item1Continued", "EnhancedPrintout"], CellMargins -> {{39, 0}, {4, 1}}, FontSize -> 10], Cell[ StyleData["Item1Continued", "EnhancedPrintoutNonGray"], CellMargins -> {{39, 0}, {4, 1}}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Item2"], CellMargins -> {{32, 4}, {4, 4}}, ParagraphIndent -> -22, CounterIncrements -> "Item2", StyleMenuListing -> None], Cell[ StyleData["Item2", "Presentation"], FontSize -> 18], Cell[ StyleData["Item2", "Printout"], CellMargins -> {{26, 0}, {4, 4}}, ParagraphIndent -> -22, FontSize -> 10], Cell[ StyleData["Item2", "EnhancedPrintout"], CellMargins -> {{29, 0}, {2, 4}}, ParagraphIndent -> -22, FontSize -> 10], Cell[ StyleData["Item2", "EnhancedPrintoutNonGray"], CellMargins -> {{29, 0}, {2, 4}}, ParagraphIndent -> -22, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Item2Continued"], CellMargins -> {{54, 4}, {4, 1}}, CounterIncrements -> "Item2Continued", StyleMenuListing -> None], Cell[ StyleData["Item2Continued", "Presentation"], FontSize -> 18], Cell[ StyleData["Item2Continued", "Printout"], CellMargins -> {{27, 0}, {4, 1}}], Cell[ StyleData["Item2Continued", "EnhancedPrintout"], CellMargins -> {{52, 0}, {4, 1}}, FontSize -> 10], Cell[ StyleData["Item2Continued", "EnhancedPrintoutNonGray"], CellMargins -> {{52, 0}, {4, 1}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Item3"], CellMargins -> {{45, 4}, {4, 4}}, ParagraphIndent -> -23, CounterIncrements -> "Item3", StyleMenuListing -> None], Cell[ StyleData["Item3", "Presentation"], FontSize -> 18], Cell[ StyleData["Item3", "Printout"], CellMargins -> {{27, 0}, {2, 4}}], Cell[ StyleData["Item3", "EnhancedPrintout"], CellMargins -> {{42, 0}, {2, 4}}, FontSize -> 10], Cell[ StyleData["Item3", "EnhancedPrintoutNonGray"], CellMargins -> {{42, 0}, {2, 4}}, StyleMenuListing -> None]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Item3Continued"], CellMargins -> {{67, 4}, {4, 1}}, CounterIncrements -> "Item3Continued", StyleMenuListing -> None], Cell[ StyleData["Item3Continued", "Presentation"], FontSize -> 18], Cell[ StyleData["Item3Continued", "Printout"], CellMargins -> {{27, 0}, {4, 1}}], Cell[ StyleData["Item3Continued", "EnhancedPrintout"], CellMargins -> {{65, 0}, {4, 1}}, FontSize -> 10], Cell[ StyleData["Item3Continued", "EnhancedPrintoutNonGray"], CellMargins -> {{65, 0}, {4, 1}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ItemizedBulletText"], CellMargins -> {{19, 4}, {0, 5}}, LineSpacing -> {1, 3}, ParagraphIndent -> -22, CounterIncrements -> "ItemizedBulletText", StyleMenuListing -> None], Cell[ StyleData["ItemizedBulletText", "Presentation"], FontSize -> 18], Cell[ StyleData["ItemizedBulletText", "Printout"], Hyphenation -> True, ParagraphIndent -> -20, FontSize -> 11], Cell[ StyleData["ItemizedBulletText", "EnhancedPrintout"], Hyphenation -> True, ParagraphIndent -> -19, FontFamily -> "Palatino", FontSize -> 10], Cell[ StyleData["ItemizedBulletText", "EnhancedPrintoutNonGray"], Hyphenation -> True, ParagraphIndent -> -19, FontFamily -> "Palatino", FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["NoteBox"], CellFrame -> 0.5, CellMargins -> {{27, 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["NoteBox", "Presentation"], FontSize -> 18], Cell[ StyleData["NoteBox", "Printout"], CellMargins -> {{2, 4}, {6, 2}}, FontSize -> 10, Background -> GrayLevel[0.900008]], Cell[ StyleData["NoteBox", "EnhancedPrintout"], CellMargins -> {{2, 2}, {6, 2}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[0.900008]], Cell[ StyleData["NoteBox", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 4}, {6, 2}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ItemizedNoteBox"], CellFrame -> 0.5, CellMargins -> {{41, 4}, {8, 2}}, 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["ItemizedNoteBox", "Presentation"], FontSize -> 18], Cell[ StyleData["ItemizedNoteBox", "Printout"], CellMargins -> {{39, 4}, {6, 2}}, FontSize -> 10, Background -> GrayLevel[0.900008]], Cell[ StyleData["ItemizedNoteBox", "EnhancedPrintout"], CellMargins -> {{39, 4}, {6, 2}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[0.900008]], Cell[ StyleData["ItemizedNoteBox", "EnhancedPrintoutNonGray"], CellMargins -> {{39, 4}, {6, 2}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ItemizedTopBox"], CellFrame -> {{0.5, 0.5}, {0, 0.5}}, CellMargins -> {{37, 4}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameMargins -> {{8, 8}, {0, 8}}, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], LineIndent -> 0, StyleMenuListing -> None, 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["ItemizedTopBox", "Presentation"], FontSize -> 18], Cell[ StyleData["ItemizedTopBox", "Printout"], FontSize -> 10, Background -> GrayLevel[0.900008]], Cell[ StyleData["ItemizedTopBox", "EnhancedPrintout"], CellMargins -> {{39, 4}, {0, 6}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[0.900008]], Cell[ StyleData["ItemizedTopBox", "EnhancedPrintoutNonGray"], CellMargins -> {{39, 4}, {0, 6}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ItemizedBottomBox"], CellFrame -> {{0.5, 0.5}, {0.5, 0}}, CellMargins -> {{37, 4}, {4, 0}}, CellHorizontalScrolling -> True, CellFrameMargins -> {{8, 8}, {8, 0}}, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], LineIndent -> 0, StyleMenuListing -> None, 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["ItemizedBottomBox", "Presentation"], FontSize -> 18], Cell[ StyleData["ItemizedBottomBox", "Printout"], FontSize -> 10, Background -> GrayLevel[0.900008]], Cell[ StyleData["ItemizedBottomBox", "EnhancedPrintout"], CellMargins -> {{39, 4}, {6, 0}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[0.900008]], Cell[ StyleData["ItemizedBottomBox", "EnhancedPrintoutNonGray"], CellMargins -> {{39, 4}, {6, 0}}, CellFrameColor -> GrayLevel[0], FontSize -> 10, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["MiddleSpacedBox"], 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["MiddleSpacedBox", "Presentation"], FontSize -> 18], Cell[ StyleData["MiddleSpacedBox", "Printout"], CellMargins -> {{2, 0}, {0, 0}}, Background -> GrayLevel[1], GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{All}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.8}}, "RowsIndexed" -> {}}}], Cell[ StyleData["MiddleSpacedBox", "EnhancedPrintout"], CellMargins -> {{2, 0}, {0, 0}}, CellFrameColor -> GrayLevel[0], FontFamily -> "Palatino", Background -> GrayLevel[1], GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{All}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.8}}, "RowsIndexed" -> {}}}], Cell[ StyleData["MiddleSpacedBox", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 0}, {0, 0}}, CellFrameColor -> GrayLevel[0], FontFamily -> "Palatino", Background -> GrayLevel[1], GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{All}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.8}}, "RowsIndexed" -> {}}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ItemizedNote"], CellMargins -> {{41, 4}, {0, 12}}, LineSpacing -> {1, 2}, CounterIncrements -> "ItemizedNote", StyleMenuListing -> None], Cell[ StyleData["ItemizedNote", "Presentation"], FontSize -> 18], Cell[ StyleData["ItemizedNote", "Printout"], CellMargins -> {{38, 4}, {0, 9}}, Hyphenation -> True, FontSize -> 11], Cell[ StyleData["ItemizedNote", "EnhancedPrintout"], CellMargins -> {{38, 4}, {0, 0}}, TextJustification -> 1, Hyphenation -> True, FontFamily -> "Palatino", FontSize -> 10], Cell[ StyleData["ItemizedNote", "EnhancedPrintoutNonGray"], CellMargins -> {{38, 4}, {0, 0}}, TextJustification -> 1, Hyphenation -> True, FontFamily -> "Palatino", FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ItemizedNoteBelow"], CellMargins -> {{41, 4}, {0, 8}}, LineSpacing -> {1, 2}, CounterIncrements -> "ItemizedNote", StyleMenuListing -> None], Cell[ StyleData["ItemizedNoteBelow", "Presentation"], FontSize -> 18], Cell[ StyleData["ItemizedNoteBelow", "Printout"], CellMargins -> {{38, 4}, {0, 12}}, Hyphenation -> True, FontSize -> 11], Cell[ StyleData["ItemizedNoteBelow", "EnhancedPrintout"], CellMargins -> {{38, 4}, {0, 8}}, TextJustification -> 1, Hyphenation -> True, FontFamily -> "Palatino", FontSize -> 10], Cell[ StyleData["ItemizedNoteBelow", "EnhancedPrintoutNonGray"], CellMargins -> {{38, 4}, {0, 8}}, TextJustification -> 1, Hyphenation -> True, FontFamily -> "Palatino", FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ItemizedTextBelowPic"], CellMargins -> {{19, 4}, {0, 8}}, LineSpacing -> {1, 3}, ParagraphIndent -> -22, CounterIncrements -> "ItemizedText", StyleMenuListing -> None], Cell[ StyleData["ItemizedTextBelowPic", "Presentation"], FontSize -> 18], Cell[ StyleData["ItemizedTextBelowPic", "Printout"], CellMargins -> {{20, 4}, {2, 12}}, Hyphenation -> True, ParagraphIndent -> -18, FontSize -> 11], Cell[ StyleData["ItemizedTextBelowPic", "EnhancedPrintout"], CellMargins -> {{20, 4}, {2, 12}}, Hyphenation -> True, ParagraphIndent -> -17, FontFamily -> "Palatino", FontSize -> 10], Cell[ StyleData[ "ItemizedTextBelowPic", "EnhancedPrintoutNonGray"], CellMargins -> {{20, 4}, {2, 12}}, Hyphenation -> True, ParagraphIndent -> -17, FontFamily -> "Palatino", FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ItemizedTextNote2"], CellMargins -> {{41, 4}, {0, 4}}, LineSpacing -> {1, 2}, CounterIncrements -> "ItemizedNote", StyleMenuListing -> None], Cell[ StyleData["ItemizedTextNote2", "Presentation"], FontSize -> 18], Cell[ StyleData["ItemizedTextNote2", "Printout"], CellMargins -> {{38, 4}, {0, 2}}, Hyphenation -> True, FontSize -> 11], Cell[ StyleData["ItemizedTextNote2", "EnhancedPrintout"], CellMargins -> {{38, 4}, {0, 2}}, Hyphenation -> True, FontFamily -> "Palatino", FontSize -> 10], Cell[ StyleData["ItemizedTextNote2", "EnhancedPrintoutNonGray"], CellMargins -> {{38, 4}, {0, 2}}, Hyphenation -> True, FontFamily -> "Palatino", FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["NumberedItem1"], CellMargins -> {{48, 4}, {4, 4}}, CellGroupingRules -> {"SectionGrouping", 15}, ParagraphIndent -> -23, CounterIncrements -> "NumberedItem1", StyleMenuListing -> None], Cell[ StyleData["NumberedItem1", "Presentation"], FontSize -> 18], Cell[ StyleData["NumberedItem1", "Printout"], CellMargins -> {{12, 0}, {0, 8}}], Cell[ StyleData["NumberedItem1", "EnhancedPrintout"], CellMargins -> {{12, 0}, {0, 8}}], Cell[ StyleData["NumberedItem1", "EnhancedPrintoutNonGray"], CellMargins -> {{12, 0}, {0, 8}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["NumberedItem2"], CellMargins -> {{71, 4}, {3, 3}}, CellGroupingRules -> {"SectionGrouping", 15}, ParagraphIndent -> -21, CounterIncrements -> "NumberedItem2", StyleMenuListing -> None], Cell[ StyleData["NumberedItem2", "Presentation"], FontSize -> 18], Cell[ StyleData["NumberedItem2", "Printout"], CellMargins -> {{27, 0}, {0, 4}}], Cell[ StyleData["NumberedItem2", "EnhancedPrintout"], CellMargins -> {{27, 0}, {0, 4}}], Cell[ StyleData["NumberedItem2", "EnhancedPrintoutNonGray"], CellMargins -> {{27, 0}, {0, 4}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["NumberedItem3"], CellMargins -> {{94, 4}, {2, 2}}, CellGroupingRules -> {"SectionGrouping", 15}, ParagraphIndent -> -23, CounterIncrements -> "NumberedItem3", StyleMenuListing -> None], Cell[ StyleData["NumberedItem3", "Presentation"], FontSize -> 18], Cell[ StyleData["NumberedItem3", "Printout"], CellMargins -> {{27, 0}, {0, 4}}], Cell[ StyleData["NumberedItem3", "EnhancedPrintout"], CellMargins -> {{27, 0}, {0, 4}}], Cell[ StyleData["NumberedItem3", "EnhancedPrintoutNonGray"], CellMargins -> {{27, 0}, {0, 4}}, StyleMenuListing -> None]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["PageHeaderBold"], CellMargins -> {{0, 0}, {2, 0}}, StyleMenuListing -> None, FontSize -> 8, FontWeight -> "Bold", FontSlant -> "Italic"], Cell[ StyleData["PageHeaderBold", "Printout"]], Cell[ StyleData["PageHeaderBold", "EnhancedPrintout"], FontFamily -> "Frutiger-BoldItalic", FontWeight -> "Plain", FontSlant -> "Plain"], Cell[ StyleData["PageHeaderBold", "EnhancedPrintoutNonGray"], FontFamily -> "Frutiger-BoldItalic", FontWeight -> "Plain", FontSlant -> "Plain"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SingleRowTable"], CellMargins -> {{10, 4}, {0, 8}}, CellHorizontalScrolling -> True, PageBreakWithin -> False, AutoIndent -> False, AutoSpacing -> False, LineIndent -> 0, StyleMenuListing -> None, GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[1.4]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["SingleRowTable", "Presentation"], FontSize -> 18], Cell[ StyleData["SingleRowTable", "Printout"], CellMargins -> {{2, 0}, {0, 8}}], Cell[ StyleData["SingleRowTable", "EnhancedPrintout"], CellMargins -> {{2, 0}, {0, 8}}], Cell[ StyleData["SingleRowTable", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 0}, {0, 8}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubsubsection"], CellMargins -> {{27, 4}, {0, 18}}, CellElementSpacings -> {"ClosedGroupTopMargin" -> 18}, StyleMenuListing -> None, FontSize -> 12, FontWeight -> "Bold"], Cell[ StyleData["Subsubsubsection", "Presentation"], FontSize -> 18], Cell[ StyleData["Subsubsubsection", "Printout"], CellMargins -> {{2, 0}, {3, 8}}, FontSize -> 10], Cell[ StyleData["Subsubsubsection", "EnhancedPrintout"], CellMargins -> {{2, 0}, {3, 8}}, FontFamily -> "Palatino", FontSize -> 10], Cell[ StyleData["Subsubsubsection", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 0}, {3, 8}}, FontFamily -> "Palatino", FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubtitle"], CellMargins -> {{27, Inherited}, {20, 15}}, 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]}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsubtitle", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}}, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 14, FontSlant -> "Italic"], Cell[ StyleData["Subsubtitle", "Presentation"], FontSize -> 21], Cell[ StyleData["Subsubtitle", "Printout"], CellMargins -> {{2, 10}, {8, 10}}, FontSize -> 12], Cell[ StyleData["Subsubtitle", "EnhancedPrintout"], CellMargins -> {{2, 10}, {8, 10}}, FontFamily -> "Frutiger-Roman", FontSize -> 12], Cell[ StyleData["Subsubtitle", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 10}, {8, 10}}, FontFamily -> "Frutiger-Roman", FontSize -> 12]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subtitle"], CellMargins -> {{27, Inherited}, {20, 15}}, 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]}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subtitle", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Subsubtitle", 0}}, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 24], Cell[ StyleData["Subtitle", "Presentation"], FontSize -> 36], Cell[ StyleData["Subtitle", "Printout"], CellMargins -> {{2, 10}, {10, 15}}, FontSize -> 24], Cell[ StyleData["Subtitle", "EnhancedPrintout"], CellMargins -> {{2, 10}, {10, 15}}, FontFamily -> "Frutiger-Roman", FontSize -> 24], Cell[ StyleData["Subtitle", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 10}, {10, 15}}, FontFamily -> "Frutiger-Roman", FontSize -> 24]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["TextBelow"], CellMargins -> {{27, 4}, {0, 14}}, 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]}, ParagraphSpacing -> {0, 8}, StyleMenuListing -> None, FontSize -> 12], Cell[ StyleData["TextBelow", "Presentation"], FontSize -> 18], Cell[ StyleData["TextBelow", "Printout"], CellMargins -> {{2, 2}, {6, 12}}, TextJustification -> 1, Hyphenation -> True, FontSize -> 10], Cell[ StyleData["TextBelow", "EnhancedPrintout"], CellMargins -> {{2, 2}, {6, 12}}, TextJustification -> 1, Hyphenation -> True, FontFamily -> "Palatino", FontSize -> 10], Cell[ StyleData["TextBelow", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 2}, {6, 12}}, TextJustification -> 1, Hyphenation -> True, FontFamily -> "Palatino", FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Title"], CellMargins -> {{27, Inherited}, {20, 40}}, 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]}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Title", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Subtitle", 0}, {"Subsubtitle", 0}}, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 36, FontWeight -> "Bold", FontColor -> RGBColor[0.592157, 0.313726, 0.313726]], Cell[ StyleData["Title", "Presentation"], FontSize -> 54], Cell[ StyleData["Title", "Printout"], CellMargins -> {{2, 10}, {15, 30}}, FontSize -> 30], Cell[ StyleData["Title", "EnhancedPrintout"], CellMargins -> {{2, 10}, {15, 30}}, FontFamily -> "Frutiger-Bold", FontSize -> 30.5, FontWeight -> "Plain"], Cell[ StyleData["Title", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 10}, {15, 30}}, FontFamily -> "Frutiger-Bold", FontSize -> 30.5, FontWeight -> "Plain"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Undersubsection"], CellMargins -> {{10, 4}, {0, 18}}, CellElementSpacings -> {"ClosedGroupTopMargin" -> 18}, 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]}, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 12, FontWeight -> "Bold"], Cell[ StyleData["Undersubsection", "Presentation"], FontSize -> 18], Cell[ StyleData["Undersubsection", "Printout"], CellMargins -> {{2, 0}, {7, 10}}, FontSize -> 10], Cell[ StyleData["Undersubsection", "EnhancedPrintout"], CellMargins -> {{2, 0}, {7, 8}}, FontFamily -> "Frutiger-Bold", FontSize -> 10, FontWeight -> "Plain"], Cell[ StyleData["Undersubsection", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 0}, {7, 8}}, FontFamily -> "Frutiger-Bold", FontSize -> 10, FontWeight -> "Plain"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SectionFirst"], CellMargins -> {{27, 27}, {12, 18}}, CellGroupingRules -> {"SectionGrouping", 30}, PageBreakBelow -> False, CounterIncrements -> "Section", StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 20, FontWeight -> "Bold", FontColor -> RGBColor[0.592157, 0.313726, 0.313726]], Cell[ StyleData["SectionFirst", "Presentation"], FontSize -> 30], Cell[ StyleData["SectionFirst", "Printout"], CellMargins -> {{2, 0}, {0, 6}}, PageBreakBelow -> False, FontSize -> 18], Cell[ StyleData["SectionFirst", "EnhancedPrintout"], CellFrame -> {{0, 0}, {0.5, 0}}, CellMargins -> {{2, Inherited}, {5, 6}}, CellGroupingRules -> {"SectionGrouping", 30}, PageBreakBelow -> False, CellFrameMargins -> 8, CounterIncrements -> "Section", CounterAssignments -> {{"Subsection", 0}, { "Subsubsection", 0}}, FontFamily -> "Frutiger-Bold", FontSize -> 16, FontWeight -> "Plain", FontColor -> GrayLevel[0]], Cell[ StyleData["SectionFirst", "EnhancedPrintoutNonGray"], CellFrame -> {{0, 0}, {0.5, 0}}, CellMargins -> {{2, Inherited}, {5, 6}}, CellGroupingRules -> {"SectionGrouping", 30}, PageBreakBelow -> False, CellFrameMargins -> 8, CounterIncrements -> "Section", CounterAssignments -> {{"Subsection", 0}, { "Subsubsection", 0}}, FontFamily -> "Frutiger-Bold", FontSize -> 16, FontWeight -> "Plain"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SubsectionFirst"], CellDingbat -> None, CellMargins -> {{27, 27}, {0, 18}}, CellElementSpacings -> {"ClosedGroupTopMargin" -> 18}, CellGroupingRules -> {"SectionGrouping", 40}, PageBreakBelow -> False, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 16, FontWeight -> "Bold", FontColor -> RGBColor[0.592157, 0.313726, 0.313726]], Cell[ StyleData["SubsectionFirst", "Presentation"], FontSize -> 24], Cell[ StyleData["SubsectionFirst", "SlideShow"], CellDingbat -> None, CellMargins -> {{70, 0}, {4, 6}}, FontSize -> 12], Cell[ StyleData["SubsectionFirst", "Printout"], CellMargins -> {{9, 0}, {5, 6}}, CellBracketOptions -> {"Color" -> RGBColor[1, 0, 0]}, FontSize -> 12], Cell[ StyleData["SubsectionFirst", "EnhancedPrintout"], CellMargins -> {{2, 0}, {5, 6}}, CellBracketOptions -> {"Color" -> RGBColor[1, 0, 0]}, FontFamily -> "Frutiger-Bold", FontSize -> 12, FontWeight -> "Plain", FontColor -> GrayLevel[0]], Cell[ StyleData["SubsectionFirst", "EnhancedPrintoutNonGray"], CellMargins -> {{9, 0}, {5, 6}}, CellBracketOptions -> {"Color" -> RGBColor[1, 0, 0]}, FontFamily -> "Frutiger-Bold", FontSize -> 12, FontWeight -> "Plain"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SubsubsectionFirst"], CellMargins -> {{27, 27}, {0, 18}}, CellElementSpacings -> {"ClosedGroupTopMargin" -> 18}, CellGroupingRules -> {"SectionGrouping", 50}, PageBreakBelow -> False, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 12, FontWeight -> "Bold", FontColor -> RGBColor[0.592157, 0.313726, 0.313726]], Cell[ StyleData["SubsubsectionFirst", "Presentation"], FontSize -> 18], Cell[ StyleData["SubsubsectionFirst", "Printout"], CellMargins -> {{2, 0}, {3, 3}}, CellBracketOptions -> {"Color" -> RGBColor[1, 0, 0]}, FontSize -> 10], Cell[ StyleData["SubsubsectionFirst", "EnhancedPrintout"], CellMargins -> {{2, 0}, {3, 3}}, CellBracketOptions -> {"Color" -> RGBColor[1, 0, 0]}, FontFamily -> "Frutiger-Bold", FontSize -> 10, FontWeight -> "Plain", FontColor -> GrayLevel[0]], Cell[ StyleData["SubsubsectionFirst", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 0}, {3, 3}}, CellBracketOptions -> {"Color" -> RGBColor[1, 0, 0]}, FontFamily -> "Frutiger-Bold", FontSize -> 10, FontWeight -> "Plain"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SubsubsubsectionFirst"], CellMargins -> {{10, 4}, {0, 12}}, CellElementSpacings -> {"ClosedGroupTopMargin" -> 18}, StyleMenuListing -> None, FontSize -> 12, FontWeight -> "Bold"], Cell[ StyleData["SubsubsubsectionFirst", "Presentation"], FontSize -> 18], Cell[ StyleData["SubsubsubsectionFirst", "Printout"], CellMargins -> {{2, 0}, {3, 3}}, FontSize -> 10], Cell[ StyleData["SubsubsubsectionFirst", "EnhancedPrintout"], CellMargins -> {{2, 0}, {3, 3}}, FontFamily -> "Palatino", FontSize -> 10], Cell[ StyleData[ "SubsubsubsectionFirst", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 0}, {3, 3}}, FontFamily -> "Palatino", FontSize -> 10]}, Closed]], Cell["Spacer Cell", "Text"], Cell[ CellGroupData[{ Cell[ StyleData["Spacer"], CellMargins -> {{10, 10}, {0, 0}}, CellElementSpacings -> { "CellMinHeight" -> 2, "ClosedCellHeight" -> 1}, CellOpen -> False, StyleMenuListing -> None], Cell[ StyleData["Spacer", "Printout"], CellOpen -> True, FontSize -> 3]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["DiscretionaryHyphen"], StyleMenuListing -> None, FontSize -> 0.0625, FontColor -> GrayLevel[1]], Cell[ StyleData["DiscretionaryHyphen", "Printout"], FontSize -> 10, FontColor -> GrayLevel[0]], Cell[ StyleData["DiscretionaryHyphen", "EnhancedPrintout"], FontSize -> 10, FontColor -> GrayLevel[0]], Cell[ StyleData[ "DiscretionaryHyphen", "EnhancedPrintoutNonGray"], FontSize -> 10, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["PictureSmaller1"], CellMargins -> {{10, Inherited}, {4, 4}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, StyleMenuListing -> None], Cell[ StyleData["PictureSmaller1", "Presentation"], FontSize -> 18], Cell[ StyleData["PictureSmaller1", "Printout"], CellMargins -> {{2, Inherited}, {4, 4}}, Magnification -> 0.63], Cell[ StyleData["PictureSmaller1", "EnhancedPrintout"], CellMargins -> {{2, Inherited}, {4, 2}}, Magnification -> 0.63], Cell[ StyleData["PictureSmaller1", "EnhancedPrintoutNonGray"], CellMargins -> {{2, Inherited}, {4, 2}}, Magnification -> 0.63]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["PictureSmaller2"], CellMargins -> {{10, Inherited}, {4, 4}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, StyleMenuListing -> None], Cell[ StyleData["PictureSmaller2", "Presentation"], FontSize -> 18], Cell[ StyleData["PictureSmaller2", "Printout"], CellMargins -> {{2, Inherited}, {4, 4}}, Magnification -> 0.61], Cell[ StyleData["PictureSmaller2", "EnhancedPrintout"], CellMargins -> {{2, Inherited}, {4, 2}}, Magnification -> 0.61], Cell[ StyleData["PictureSmaller2", "EnhancedPrintoutNonGray"], CellMargins -> {{2, Inherited}, {4, 2}}, Magnification -> 0.61]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["PictureSmaller3"], CellMargins -> {{10, Inherited}, {4, 4}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, StyleMenuListing -> None], Cell[ StyleData["PictureSmaller3", "Presentation"], FontSize -> 18], Cell[ StyleData["PictureSmaller3", "Printout"], CellMargins -> {{2, Inherited}, {4, 4}}, Magnification -> 0.59], Cell[ StyleData["PictureSmaller3", "EnhancedPrintout"], CellMargins -> {{2, Inherited}, {4, 2}}, Magnification -> 0.59], Cell[ StyleData["PictureSmaller3", "EnhancedPrintoutNonGray"], CellMargins -> {{2, Inherited}, {4, 2}}, Magnification -> 0.59]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["PictureSmaller4"], CellMargins -> {{10, Inherited}, {4, 4}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, StyleMenuListing -> None], Cell[ StyleData["PictureSmaller4", "Presentation"], FontSize -> 18], Cell[ StyleData["PictureSmaller4", "Printout"], CellMargins -> {{2, Inherited}, {4, 4}}, Magnification -> 0.57], Cell[ StyleData["PictureSmaller4", "EnhancedPrintout"], CellMargins -> {{2, Inherited}, {4, 2}}, Magnification -> 0.57], Cell[ StyleData["PictureSmaller4", "EnhancedPrintoutNonGray"], CellMargins -> {{2, Inherited}, {4, 2}}, Magnification -> 0.57]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["PictureSmaller5"], CellMargins -> {{10, Inherited}, {4, 4}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, StyleMenuListing -> None], Cell[ StyleData["PictureSmaller5", "Presentation"], FontSize -> 18], Cell[ StyleData["PictureSmaller5", "Printout"], CellMargins -> {{2, Inherited}, {4, 4}}, Magnification -> 0.55], Cell[ StyleData["PictureSmaller5", "EnhancedPrintout"], CellMargins -> {{2, Inherited}, {4, 2}}, Magnification -> 0.55], Cell[ StyleData["PictureSmaller5", "EnhancedPrintoutNonGray"], CellMargins -> {{2, Inherited}, {4, 2}}, Magnification -> 0.55]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["PictureSmaller6"], CellMargins -> {{10, Inherited}, {4, 4}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, StyleMenuListing -> None], Cell[ StyleData["PictureSmaller6", "Presentation"], FontSize -> 18], Cell[ StyleData["PictureSmaller6", "Printout"], CellMargins -> {{2, Inherited}, {4, 4}}, Magnification -> 0.53], Cell[ StyleData["PictureSmaller6", "EnhancedPrintout"], CellMargins -> {{2, Inherited}, {4, 2}}, Magnification -> 0.53], Cell[ StyleData["PictureSmaller6", "EnhancedPrintoutNonGray"], CellMargins -> {{2, Inherited}, {4, 2}}, Magnification -> 0.53]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ItemPicture"], CellMargins -> {{41, Inherited}, {4, 2}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, StyleMenuListing -> None], Cell[ StyleData["ItemPicture", "Presentation"], FontSize -> 18], Cell[ StyleData["ItemPicture", "Printout"], CellMargins -> {{55, Inherited}, {8, -4}}, Magnification -> 0.65], Cell[ StyleData["ItemPicture", "EnhancedPrintout"], CellMargins -> {{60, Inherited}, {10, -3}}, Magnification -> 0.65], Cell[ StyleData["ItemPicture", "EnhancedPrintoutNonGray"], CellMargins -> {{60, Inherited}, {10, -3}}, Magnification -> 0.65]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ItemPictureSmaller1"], CellMargins -> {{41, Inherited}, {4, 2}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, StyleMenuListing -> None], Cell[ StyleData["ItemPictureSmaller1", "Presentation"], FontSize -> 18], Cell[ StyleData["ItemPictureSmaller1", "Printout"], CellMargins -> {{56, Inherited}, {9, -3}}, Magnification -> 0.63], Cell[ StyleData["ItemPictureSmaller1", "EnhancedPrintout"], CellMargins -> {{63, Inherited}, {10, -3}}, Magnification -> 0.63], Cell[ StyleData[ "ItemPictureSmaller1", "EnhancedPrintoutNonGray"], CellMargins -> {{63, Inherited}, {10, -3}}, Magnification -> 0.63]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ItemPictureSmaller2"], CellMargins -> {{41, Inherited}, {4, 2}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, StyleMenuListing -> None], Cell[ StyleData["ItemPictureSmaller2", "Presentation"], FontSize -> 18], Cell[ StyleData["ItemPictureSmaller2", "Printout"], CellMargins -> {{58, Inherited}, {8, -4}}, Magnification -> 0.61], Cell[ StyleData["ItemPictureSmaller2", "EnhancedPrintout"], CellMargins -> {{65, Inherited}, {11, -3}}, Magnification -> 0.61], Cell[ StyleData[ "ItemPictureSmaller2", "EnhancedPrintoutNonGray"], CellMargins -> {{65, Inherited}, {11, -3}}, Magnification -> 0.61]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ItemPictureSmaller3"], CellMargins -> {{41, Inherited}, {4, 2}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, StyleMenuListing -> None], Cell[ StyleData["ItemPictureSmaller3", "Presentation"], FontSize -> 18], Cell[ StyleData["ItemPictureSmaller3", "Printout"], CellMargins -> {{61, Inherited}, {10, -2}}, Magnification -> 0.59], Cell[ StyleData["ItemPictureSmaller3", "EnhancedPrintout"], CellMargins -> {{67, Inherited}, {11, -3}}, Magnification -> 0.59], Cell[ StyleData[ "ItemPictureSmaller3", "EnhancedPrintoutNonGray"], CellMargins -> {{67, Inherited}, {11, -3}}, Magnification -> 0.59]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ItemPictureSmaller4"], CellMargins -> {{41, Inherited}, {4, 2}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, StyleMenuListing -> None], Cell[ StyleData["ItemPictureSmaller4", "Presentation"], FontSize -> 18], Cell[ StyleData["ItemPictureSmaller4", "Printout"], CellMargins -> {{63, Inherited}, {10, -2}}, Magnification -> 0.57], Cell[ StyleData["ItemPictureSmaller4", "EnhancedPrintout"], CellMargins -> {{69, Inherited}, {12, -4}}, Magnification -> 0.57], Cell[ StyleData[ "ItemPictureSmaller4", "EnhancedPrintoutNonGray"], CellMargins -> {{69, Inherited}, {12, -4}}, Magnification -> 0.57]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ItemPictureSmaller5"], CellMargins -> {{41, Inherited}, {4, 2}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, StyleMenuListing -> None], Cell[ StyleData["ItemPictureSmaller5", "Presentation"], FontSize -> 18], Cell[ StyleData["ItemPictureSmaller5", "Printout"], CellMargins -> {{65, Inherited}, {11, -2}}, Magnification -> 0.55], Cell[ StyleData["ItemPictureSmaller5", "EnhancedPrintout"], CellMargins -> {{71, Inherited}, {13, -2}}, Magnification -> 0.55], Cell[ StyleData[ "ItemPictureSmaller5", "EnhancedPrintoutNonGray"], CellMargins -> {{71, Inherited}, {13, -2}}, Magnification -> 0.55]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ItemPictureSmaller6"], CellMargins -> {{41, Inherited}, {4, 2}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, StyleMenuListing -> None], Cell[ StyleData["ItemPictureSmaller6", "Presentation"], FontSize -> 18], Cell[ StyleData["ItemPictureSmaller6", "Printout"], CellMargins -> {{67, Inherited}, {12, -2}}, Magnification -> 0.53], Cell[ StyleData["ItemPictureSmaller6", "EnhancedPrintout"], CellMargins -> {{74, Inherited}, {13, -3}}, Magnification -> 0.53], Cell[ StyleData[ "ItemPictureSmaller6", "EnhancedPrintoutNonGray"], CellMargins -> {{74, Inherited}, {13, -3}}, Magnification -> 0.53]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["PictureBigger1"], CellMargins -> {{10, Inherited}, {4, 4}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, StyleMenuListing -> None], Cell[ StyleData["PictureBigger1", "Presentation"], FontSize -> 18], Cell[ StyleData["PictureBigger1", "Printout"], CellMargins -> {{2, Inherited}, {4, 4}}, Magnification -> 0.68], Cell[ StyleData["PictureBigger1", "EnhancedPrintout"], CellMargins -> {{2, Inherited}, {4, 2}}, Magnification -> 0.68], Cell[ StyleData["PictureBigger1", "EnhancedPrintoutNonGray"], CellMargins -> {{2, Inherited}, {4, 2}}, Magnification -> 0.68]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["PictureBigger2"], CellMargins -> {{10, Inherited}, {4, 4}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, StyleMenuListing -> None], Cell[ StyleData["PictureBigger2", "Presentation"], FontSize -> 18], Cell[ StyleData["PictureBigger2", "Printout"], CellMargins -> {{2, Inherited}, {4, 4}}, Magnification -> 0.71], Cell[ StyleData["PictureBigger2", "EnhancedPrintout"], CellMargins -> {{2, Inherited}, {4, 2}}, Magnification -> 0.71], Cell[ StyleData["PictureBigger2", "EnhancedPrintoutNonGray"], CellMargins -> {{2, Inherited}, {4, 2}}, Magnification -> 0.71]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["PictureBigger3"], CellMargins -> {{10, Inherited}, {4, 4}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, StyleMenuListing -> None], Cell[ StyleData["PictureBigger3", "Presentation"], FontSize -> 18], Cell[ StyleData["PictureBigger3", "Printout"], CellMargins -> {{2, Inherited}, {4, 4}}, Magnification -> 0.74], Cell[ StyleData["PictureBigger3", "EnhancedPrintout"], CellMargins -> {{2, Inherited}, {4, 2}}, Magnification -> 0.74], Cell[ StyleData["PictureBigger3", "EnhancedPrintoutNonGray"], CellMargins -> {{2, Inherited}, {4, 2}}, Magnification -> 0.74]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["PictureBigger4"], CellMargins -> {{10, Inherited}, {4, 4}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, StyleMenuListing -> None], Cell[ StyleData["PictureBigger4", "Presentation"], FontSize -> 18], Cell[ StyleData["PictureBigger4", "Printout"], CellMargins -> {{2, Inherited}, {4, 4}}, Magnification -> 0.77], Cell[ StyleData["PictureBigger4", "EnhancedPrintout"], CellMargins -> {{2, Inherited}, {4, 2}}, Magnification -> 0.77], Cell[ StyleData["PictureBigger4", "EnhancedPrintoutNonGray"], CellMargins -> {{2, Inherited}, {4, 2}}, Magnification -> 0.77]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["PictureBigger5"], CellMargins -> {{10, Inherited}, {4, 4}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, StyleMenuListing -> None], Cell[ StyleData["PictureBigger5", "Presentation"], FontSize -> 18], Cell[ StyleData["PictureBigger5", "Printout"], CellMargins -> {{2, Inherited}, {4, 4}}, Magnification -> 0.8], Cell[ StyleData["PictureBigger5", "EnhancedPrintout"], CellMargins -> {{2, Inherited}, {4, 2}}, Magnification -> 0.8], Cell[ StyleData["PictureBigger5", "EnhancedPrintoutNonGray"], CellMargins -> {{2, Inherited}, {4, 2}}, Magnification -> 0.8]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["PictureBigger6"], CellMargins -> {{10, Inherited}, {4, 4}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, StyleMenuListing -> None], Cell[ StyleData["PictureBigger6", "Presentation"], FontSize -> 18], Cell[ StyleData["PictureBigger6", "Printout"], CellMargins -> {{2, Inherited}, {4, 4}}, Magnification -> 0.83], Cell[ StyleData["PictureBigger6", "EnhancedPrintout"], CellMargins -> {{2, Inherited}, {4, 2}}, Magnification -> 0.83], Cell[ StyleData["PictureBigger6", "EnhancedPrintoutNonGray"], CellMargins -> {{2, Inherited}, {4, 2}}, Magnification -> 0.83]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ItemPictureBigger1"], CellMargins -> {{41, Inherited}, {4, 2}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, StyleMenuListing -> None], Cell[ StyleData["ItemPictureBigger1", "Presentation"], FontSize -> 18], Cell[ StyleData["ItemPictureBigger1", "Printout"], CellMargins -> {{50, Inherited}, {9, -3}}, Magnification -> 0.68], Cell[ StyleData["ItemPictureBigger1", "EnhancedPrintout"], CellMargins -> {{57, Inherited}, {10, -3}}, Magnification -> 0.68], Cell[ StyleData["ItemPictureBigger1", "EnhancedPrintoutNonGray"], CellMargins -> {{57, Inherited}, {10, -3}}, Magnification -> 0.68]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ItemPictureBigger2"], CellMargins -> {{41, Inherited}, {4, 2}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, StyleMenuListing -> None], Cell[ StyleData["ItemPictureBigger2", "Presentation"], FontSize -> 18], Cell[ StyleData["ItemPictureBigger2", "Printout"], CellMargins -> {{48, Inherited}, {8, -4}}, Magnification -> 0.71], Cell[ StyleData["ItemPictureBigger2", "EnhancedPrintout"], CellMargins -> {{54, Inherited}, {10, -3}}, Magnification -> 0.71], Cell[ StyleData["ItemPictureBigger2", "EnhancedPrintoutNonGray"], CellMargins -> {{54, Inherited}, {10, -3}}, Magnification -> 0.71]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ItemPictureBigger3"], CellMargins -> {{41, Inherited}, {4, 2}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, StyleMenuListing -> None], Cell[ StyleData["ItemPictureBigger3", "Presentation"], FontSize -> 18], Cell[ StyleData["ItemPictureBigger3", "Printout"], CellMargins -> {{46, Inherited}, {10, -2}}, Magnification -> 0.74], Cell[ StyleData["ItemPictureBigger3", "EnhancedPrintout"], CellMargins -> {{52, Inherited}, {10, -3}}, Magnification -> 0.74], Cell[ StyleData["ItemPictureBigger3", "EnhancedPrintoutNonGray"], CellMargins -> {{52, Inherited}, {10, -3}}, Magnification -> 0.74]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ItemPictureBigger4"], CellMargins -> {{41, Inherited}, {4, 2}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, StyleMenuListing -> None], Cell[ StyleData["ItemPictureBigger4", "Presentation"], FontSize -> 18], Cell[ StyleData["ItemPictureBigger4", "Printout"], CellMargins -> {{45, Inherited}, {10, -2}}, Magnification -> 0.77], Cell[ StyleData["ItemPictureBigger4", "EnhancedPrintout"], CellMargins -> {{50, Inherited}, {10, -3}}, Magnification -> 0.77], Cell[ StyleData["ItemPictureBigger4", "EnhancedPrintoutNonGray"], CellMargins -> {{50, Inherited}, {10, -3}}, Magnification -> 0.77]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ItemPictureBigger5"], CellMargins -> {{41, Inherited}, {4, 2}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, StyleMenuListing -> None], Cell[ StyleData["ItemPictureBigger5", "Presentation"], FontSize -> 18], Cell[ StyleData["ItemPictureBigger5", "Printout"], CellMargins -> {{43, Inherited}, {11, -2}}, Magnification -> 0.8], Cell[ StyleData["ItemPictureBigger5", "EnhancedPrintout"], CellMargins -> {{49, Inherited}, {10, -3}}, Magnification -> 0.8], Cell[ StyleData["ItemPictureBigger5", "EnhancedPrintoutNonGray"], CellMargins -> {{49, Inherited}, {10, -3}}, Magnification -> 0.8]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ItemPictureBigger6"], CellMargins -> {{41, Inherited}, {4, 2}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, StyleMenuListing -> None], Cell[ StyleData["ItemPictureBigger6", "Presentation"], FontSize -> 18], Cell[ StyleData["ItemPictureBigger6", "Printout"], CellMargins -> {{43, Inherited}, {12, -2}}, Magnification -> 0.83], Cell[ StyleData["ItemPictureBigger6", "EnhancedPrintout"], CellMargins -> {{46, Inherited}, {8, -2}}, Magnification -> 0.83], Cell[ StyleData["ItemPictureBigger6", "EnhancedPrintoutNonGray"], CellMargins -> {{46, Inherited}, {8, -2}}, Magnification -> 0.83]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ScreenGraphic"], CellMargins -> {{12, Inherited}, {0, 8}}, CellHorizontalScrolling -> True, StyleMenuListing -> None], Cell[ StyleData["ScreenGraphic", "Presentation"], FontSize -> 18], Cell[ StyleData["ScreenGraphic", "Printout"], CellMargins -> {{2, Inherited}, {0, 8}}], Cell[ StyleData["ScreenGraphic", "EnhancedPrintout"], CellMargins -> {{2, Inherited}, {0, 8}}, CellElementSpacings -> { "CellMinHeight" -> 2, "ClosedCellHeight" -> 2}, CellOpen -> False], Cell[ StyleData["ScreenGraphic", "EnhancedPrintoutNonGray"], CellMargins -> {{2, Inherited}, {0, 8}}, CellElementSpacings -> { "CellMinHeight" -> 2, "ClosedCellHeight" -> 2}, CellOpen -> False]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["PrintGraphic"], CellMargins -> {{12, Inherited}, {0, 8}}, CellElementSpacings -> { "CellMinHeight" -> 2, "ClosedCellHeight" -> 2}, CellOpen -> False, CellHorizontalScrolling -> True, StyleMenuListing -> None], Cell[ StyleData["PrintGraphic", "Presentation"], FontSize -> 18], Cell[ StyleData["PrintGraphic", "Printout"], CellMargins -> {{2, Inherited}, {0, 8}}, CellElementSpacings -> { "CellMinHeight" -> 2, "ClosedCellHeight" -> 2}, CellOpen -> False], Cell[ StyleData["PrintGraphic", "EnhancedPrintout"], CellMargins -> {{2, Inherited}, {0, 8}}, CellElementSpacings -> {"CellMinHeight" -> 12}, CellOpen -> True], Cell[ StyleData["PrintGraphic", "EnhancedPrintoutNonGray"], CellMargins -> {{2, Inherited}, {0, 8}}, CellElementSpacings -> {"CellMinHeight" -> 12}, CellOpen -> True]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SmallTextSans"], CellMargins -> {{10, 4}, {8, 8}}, TextJustification -> 1, LineSpacing -> {1, 2}, FontFamily -> "Helvetica", FontSize -> 9], Cell[ StyleData["SmallTextSans", "Presentation"], FontSize -> 14], Cell[ StyleData["SmallTextSans", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, Hyphenation -> True, FontSize -> 7], Cell[ StyleData["SmallTextSans", "EnhancedPrintout"], CellMargins -> {{2, 0}, {0, 8}}, Hyphenation -> True, LineSpacing -> {1, 1}, ParagraphSpacing -> {0, -2}, FontFamily -> "Frutiger-Roman", FontSize -> 7]}, Closed]]}, Closed]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["AuthorTools", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["BilateralCell"], CellMargins -> {{27, 4}, {0, 8}}, StyleMenuListing -> None, FontSize -> 12, GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Top}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.33], { Scaled[0.6]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["BilateralCell", "Presentation"], FontSize -> 18], Cell[ StyleData["BilateralCell", "SlideShow"], CellMargins -> {{36, 24}, {4, 4}}, Background -> GrayLevel[0.900008]], Cell[ StyleData["BilateralCell", "Printout"], CellMargins -> {{2, 2}, {6, 6}}, TextJustification -> 1, FontSize -> 10], Cell[ StyleData["BilateralCell", "EnhancedPrintout"], CellMargins -> {{2, 2}, {6, 6}}, TextJustification -> 1, FontFamily -> "Palatino", FontSize -> 10], Cell[ StyleData["BilateralCell", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 2}, {6, 6}}, TextJustification -> 1, FontFamily -> "Palatino", FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["RuledPageBreak"], CellFrame -> {{0, 0}, {0.25, 0}}, CellMargins -> {{27, 4}, {12, 0}}, CellFrameMargins -> {{0, 0}, {1, 0}}, FontSize -> 8], Cell[ StyleData["RuledPageBreak", "Presentation"], FontSize -> 12], Cell[ StyleData["RuledPageBreak", "SlideShow"], CellMargins -> {{36, 24}, {4, 4}}], Cell[ StyleData["RuledPageBreak", "Printout"], CellMargins -> {{2, 2}, {6, 6}}, PageBreakBelow -> True, FontSize -> 1], Cell[ StyleData["RuledPageBreak", "EnhancedPrintout"], CellMargins -> {{2, 2}, {6, 6}}, PageBreakBelow -> True], Cell[ StyleData["RuledPageBreak", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 2}, {6, 6}}, PageBreakBelow -> True]}, Closed]], Cell[ StyleData["PaletteTitle"], CellFrame -> {{0, 0}, {1, 0}}, CellMargins -> {{4, 0}, {Inherited, 0}}, StyleMenuListing -> None, ButtonStyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 14, FontWeight -> "Bold", FontColor -> GrayLevel[1], Background -> RGBColor[0, 0.32549, 0.537255], ButtonBoxOptions -> { BaseStyle -> "PaletteButton", ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["AddOns", #2]}]& ), ButtonMargins -> 3, Evaluator -> None}], Cell[ StyleData["PaletteButton"], StyleMenuListing -> None, ButtonStyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 12, FontWeight -> "Bold", FontColor -> GrayLevel[1], ButtonBoxOptions -> { Active -> True, Background -> RGBColor[0.329412, 0.584314, 0.694118], ButtonMargins -> 6, Evaluator -> "Local"}], Cell[ StyleData["PaletteButton2"], StyleMenuListing -> None, ButtonStyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 12, FontWeight -> "Bold", FontColor -> GrayLevel[1], ButtonBoxOptions -> { Active -> True, Background -> RGBColor[0.537255, 0.72549, 0.843137], ButtonMargins -> 4, Evaluator -> "Local"}]}, Closed]], Cell[ CellGroupData[{ Cell["Outline Styles", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["Outline1"], CellMargins -> {{27, 10}, {7, 7}}, CellGroupingRules -> {"SectionGrouping", 50}, ParagraphIndent -> -38, CounterIncrements -> "Outline1", CounterAssignments -> {{"Outline2", 0}, {"Outline3", 0}, { "Outline4", 0}}, FontSize -> 18, FontWeight -> "Bold", CounterBoxOptions -> {CounterFunction :> CapitalRomanNumeral}], Cell[ StyleData["Outline1", "Presentation"], FontSize -> 27], Cell[ StyleData["Outline1", "Printout"], CounterBoxOptions -> {CounterFunction :> CapitalRomanNumeral}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Outline2"], CellMargins -> {{57, 10}, {6, 6}}, CellGroupingRules -> {"SectionGrouping", 60}, ParagraphIndent -> -27, CounterIncrements -> "Outline2", CounterAssignments -> {{"Outline3", 0}, {"Outline4", 0}}, FontSize -> 15, FontWeight -> "Bold", CounterBoxOptions -> {CounterFunction :> (Part[ CharacterRange["A", "Z"], #]& )}], Cell[ StyleData["Outline2", "Presentation"], FontSize -> 23], Cell[ StyleData["Outline2", "Printout"], CounterBoxOptions -> {CounterFunction :> (Part[ CharacterRange["A", "Z"], #]& )}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Outline3"], CellMargins -> {{87, 10}, {5, 5}}, CellGroupingRules -> {"SectionGrouping", 70}, ParagraphIndent -> -21, CounterIncrements -> "Outline3", CounterAssignments -> {{"Outline4", 0}}, FontSize -> 12, CounterBoxOptions -> {CounterFunction :> Identity}], Cell[ StyleData["Outline3", "Presentation"], FontSize -> 18], Cell[ StyleData["Outline3", "Printout"], CounterBoxOptions -> {CounterFunction :> Identity}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Outline4"], CellMargins -> {{117, 10}, {4, 4}}, CellGroupingRules -> {"SectionGrouping", 80}, ParagraphIndent -> -18, CounterIncrements -> "Outline4", FontSize -> 10, CounterBoxOptions -> {CounterFunction :> (Part[ CharacterRange["a", "z"], #]& )}], Cell[ StyleData["Outline4", "Presentation"], FontSize -> 15], Cell[ StyleData["Outline4", "Printout"]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Slide Show Styles", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["SlideShowNavigationBar"], Editable -> False, CellFrame -> True, CellMargins -> {{0, 0}, {3, 3}}, CellElementSpacings -> {"CellMinHeight" -> 0.8125}, CellGroupingRules -> {"SectionGrouping", -5}, CellFrameMargins -> False, CellFrameColor -> GrayLevel[1], CellFrameLabelMargins -> False, TextAlignment -> Center, CounterIncrements -> "SlideShowNavigationBar", StyleMenuListing -> None, FontSize -> 10, Magnification -> 1, Background -> GrayLevel[0.8], GridBoxOptions -> { BaselinePosition -> Center, GridBoxAlignment -> { "Columns" -> { Center, Center, Center, Center, Center, Center, Right, { Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> { "Columns" -> {3.5, 3.5, 3.5, 3.5, 13, 5, {4}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["SlideShowNavigationBar", "SlideShow"], Deletable -> False, ShowCellBracket -> False, CellMargins -> {{-1, -1}, {-1, -1}}, PageBreakAbove -> True, CellFrameMargins -> {{1, 1}, {0, 0}}], Cell[ StyleData["SlideShowNavigationBar", "Printout"], CellMargins -> {{18, 4}, {4, 4}}, LineSpacing -> {1, 3}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SlideShowSection"], CellFrame -> {{0, 0}, {0, 0.5}}, CellMargins -> {{0, 0}, {10, 0}}, CellGroupingRules -> {"SectionGrouping", 40}, PageBreakBelow -> False, CellFrameMargins -> {{12, 4}, {6, 12}}, InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, CounterIncrements -> "Section", CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}}, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 18, FontWeight -> "Plain", FontColor -> GrayLevel[1], Background -> RGBColor[0.408011, 0.440726, 0.8]], Cell[ StyleData["SlideShowSection", "Presentation"], 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", "SlideShow"]], Cell[ StyleData["SlideHyperlink", "Printout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SlideTOCLink"], CellMargins -> {{24, Inherited}, {Inherited, Inherited}}, StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontFamily -> "Helvetica", ButtonBoxOptions -> { Active -> True, ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookLocate[#2]}]& ), ButtonMargins -> 1.5, ButtonNote -> ButtonData}], Cell[ StyleData["SlideTOCLink", "SlideShow"]], Cell[ StyleData["SlideTOCLink", "Printout"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SlideTOC"], CellDingbat -> "\[Bullet]", CellMargins -> {{18, Inherited}, {Inherited, Inherited}}, StyleMenuListing -> None, FontFamily -> "Helvetica"], Cell[ StyleData["SlideTOC", "SlideShow"], FontSize -> 14], Cell[ StyleData["SlideTOC", "Printout"], FontSize -> 10, FontColor -> GrayLevel[0]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Title Page, Contents, and Index", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["ContentsTitle"], CellMargins -> {{21, 4}, {12, 24}}, FontFamily -> "Helvetica", FontSize -> 24, FontWeight -> "Bold", FontColor -> RGBColor[0.592157, 0.313726, 0.313726]], Cell[ StyleData["ContentsTitle", "Presentation"], FontSize -> 36], Cell[ StyleData["ContentsTitle", "Printout"], CellMargins -> {{12, 0}, {102, 89}}, PageBreakBelow -> False, FontSize -> 30.5, FontColor -> GrayLevel[0]], Cell[ StyleData["ContentsTitle", "EnhancedPrintout"], CellMargins -> {{2, Inherited}, {15, 30}}, PageBreakBelow -> False, FontFamily -> "Frutiger-Bold", FontSize -> 30.5, FontWeight -> "Plain", FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ContentsSection"], ShowGroupOpener -> True, CellMargins -> {{35, 4}, {3, 18}}, CellGroupingRules -> {"SectionGrouping", 70}, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 12, FontWeight -> "Bold"], Cell[ StyleData["ContentsSection", "Presentation"], FontSize -> 18], Cell[ StyleData["ContentsSection", "Printout"], CellMargins -> {{20, 0}, {3, 18}}, PageBreakBelow -> False, FontSize -> 11], Cell[ StyleData["ContentsSection", "EnhancedPrintout"], CellMargins -> {{20, 0}, {3, 18}}, PageBreakBelow -> False, FontFamily -> "Frutiger-Bold", FontSize -> 11, FontWeight -> "Plain"], Cell[ StyleData["ContentsSection", "EnhancedPrintoutNonGray"], CellMargins -> {{20, 0}, {3, 18}}, PageBreakBelow -> False, FontFamily -> "Frutiger-Bold", FontSize -> 11, FontWeight -> "Plain"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["IndexSection"], CellDingbat -> "\[FilledSquare]", CellMargins -> {{20, 4}, {5, 20}}, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 12, FontWeight -> "Bold"], Cell[ StyleData["IndexSection", "Presentation"], FontSize -> 18], Cell[ StyleData["IndexSection", "Printout"], CellMargins -> {{12, 0}, {5, 20}}, PageBreakBelow -> False, FontSize -> 12]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Contents"], ShowGroupOpener -> False, CellMargins -> {{50, 4}, {0, 5}}, CellGroupingRules -> {"SectionGrouping", 90}, StyleMenuListing -> None], Cell[ StyleData["Contents", "Presentation"], FontSize -> 18], Cell[ StyleData["Contents", "Printout"], CellMargins -> {{40, 4}, {0, 5}}, FontSize -> 11], Cell[ StyleData["Contents", "EnhancedPrintout"], CellMargins -> {{40, 5}, {0, 5}}, FontFamily -> "Palatino", FontSize -> 11], Cell[ StyleData["Contents", "EnhancedPrintoutNonGray"], CellMargins -> {{40, 5}, {0, 5}}, FontFamily -> "Palatino", FontSize -> 11]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Index"], CellMargins -> {{21, 4}, {0, 0}}, ParagraphIndent -> -48, StyleMenuListing -> None], Cell[ StyleData["Index", "Presentation"], FontSize -> 18], Cell[ StyleData["Index", "Printout"], CellMargins -> {{13, 0}, {0, 0}}, FontSize -> 9], Cell[ StyleData["Index", "EnhancedPrintout"], CellMargins -> {{13, 0}, {0, 0}}, FontFamily -> "Palatino", FontSize -> 9], Cell[ StyleData["Index", "EnhancedPrintoutNonGray"], CellMargins -> {{13, 0}, {0, 0}}, FontFamily -> "Palatino", FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["IndexSubentry"], CellMargins -> {{36, 4}, {0, 0}}, ParagraphIndent -> -48], Cell[ StyleData["IndexSubentry", "Presentation"], FontSize -> 18], Cell[ StyleData["IndexSubentry", "Printout"], CellMargins -> {{24, 0}, {0, 0}}, FontSize -> 9], Cell[ StyleData["IndexSubentry", "EnhancedPrintout"], CellMargins -> {{24, 0}, {0, 0}}, FontFamily -> "Palatino", FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Index2Column"], CellMargins -> {{21, 4}, {0, 8}}, ParagraphIndent -> -20, TabSpacings -> 1, StyleMenuListing -> None, FontSize -> 10, GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> {{ Scaled[0.5]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["Index2Column", "Presentation"], FontSize -> 15], Cell[ StyleData["Index2Column", "Printout"], CellMargins -> {{2, 2}, {6, 6}}, FontSize -> 8], Cell[ StyleData["Index2Column", "EnhancedPrintout"], CellMargins -> {{2, 2}, {1, 1}}, LineSpacing -> {1, 0.2}, FontFamily -> "Palatino", FontSize -> 8], Cell[ StyleData["Index2Column", "EnhancedPrintoutNonGray"], CellMargins -> {{2, 2}, {1, 1}}, LineSpacing -> {1, 0.2}, FontFamily -> "Palatino", FontSize -> 8]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Leader"], TabFilling -> ".", StyleMenuListing -> None, FontFamily -> "Times", FontSize -> 12, FontWeight -> "Plain"], Cell[ StyleData["Leader", "Printout"], FontSize -> 10], Cell[ StyleData["Leader", "EnhancedPrintout"], FontFamily -> "Palatino", FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["LeaderNoDots"], TabFilling -> " ", StyleMenuListing -> None, FontFamily -> "Times", FontSize -> 12, FontWeight -> "Plain"], Cell[ StyleData["LeaderNoDots", "Printout"], FontSize -> 10], Cell[ StyleData["LeaderNoDots", "EnhancedPrintout"], FontFamily -> "Palatino", FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["PageLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontColor -> RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions -> { Active -> True, Appearance -> {Automatic, None}, ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookLocate[#2]}]& )}], Cell[ StyleData["PageLink", "Printout"], FontColor -> GrayLevel[0]], Cell[ StyleData["PageLink", "EnhancedPrintout"], FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["TOCPage"], CellSize -> {22, Inherited}, TextAlignment -> Right, StyleMenuListing -> None, FontSize -> 12, FontWeight -> "Plain"], Cell[ StyleData["TOCPage", "Presentation"], FontSize -> 18], Cell[ StyleData["TOCPage", "Printout"], FontSize -> 10], Cell[ StyleData["TOCPage", "EnhancedPrintout"], FontFamily -> "Palatino", FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["TOCTitle"], CellMargins -> {{20, 0}, {1, 8}}, CellGroupingRules -> {"SectionGrouping", 70}, TabSpacings -> 46, CounterIncrements -> "TOCTitle", CounterAssignments -> {{"TOCSection", 0}}, FontFamily -> "Helvetica", FontSize -> 12, FontWeight -> "Bold"], Cell[ StyleData["TOCTitle", "Presentation"], FontSize -> 18], Cell[ StyleData["TOCTitle", "Printout"], CellMargins -> {{12, 0}, {1, 8}}, PageBreakBelow -> False, TabSpacings -> 47.4, FontSize -> 11], Cell[ StyleData["TOCTitle", "EnhancedPrintout"], CellMargins -> {{2, 0}, {2, 10}}, PageBreakBelow -> False, TabSpacings -> 49.3, FontFamily -> "Frutiger-Bold", FontSize -> 10, FontWeight -> "Plain"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["TOCSection"], CellMargins -> {{48, 0}, {1, 1}}, CellGroupingRules -> {"SectionGrouping", 75}, TabSpacings -> 42.9, CounterIncrements -> "TOCSection", CounterAssignments -> {{"TOCSubsection", 0}}, FontFamily -> "Helvetica", FontSize -> 12], Cell[ StyleData["TOCSection", "Presentation"], FontSize -> 18], Cell[ StyleData["TOCSection", "Printout"], CellMargins -> {{30, 0}, {1, 1}}, PageBreakBelow -> False, FontSize -> 12], Cell[ StyleData["TOCSection", "EnhancedPrintout"], CellMargins -> {{26, 0}, {1, 3}}, PageBreakBelow -> False, TabSpacings -> 46.45, FontFamily -> "Frutiger-Roman", FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["TOCSubsection"], CellMargins -> {{76, 0}, {1, 1}}, CellGroupingRules -> {"SectionGrouping", 80}, TabSpacings -> 39.8, CounterIncrements -> "TOCSubsection", CounterAssignments -> {{"TOCSubsubsection", 0}}, FontSize -> 12], Cell[ StyleData["TOCSubsection", "Presentation"], FontSize -> 18], Cell[ StyleData["TOCSubsection", "Printout"], CellMargins -> {{70, 0}, {1, 1}}, PageBreakBelow -> False, FontSize -> 10], Cell[ StyleData["TOCSubsection", "EnhancedPrintout"], CellMargins -> {{38, 0}, {1, 1}}, PageBreakBelow -> False, TabSpacings -> 45.15, FontFamily -> "Palatino", FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["TOCSubsubsection"], CellMargins -> {{104, 0}, {1, 1}}, CellGroupingRules -> {"SectionGrouping", 85}, TabSpacings -> 36.7, CounterIncrements -> "TOCSubsubsection", FontSize -> 12], Cell[ StyleData["TOCSubsubsection", "Presentation"], FontSize -> 18], Cell[ StyleData["TOCSubsubsection", "Printout"], CellMargins -> {{96, 0}, {1, 1}}, PageBreakBelow -> False, FontSize -> 9], Cell[ StyleData["TOCSubsubsection", "EnhancedPrintout"], CellMargins -> {{96, 0}, {1, 1}}, PageBreakBelow -> False, FontFamily -> "Palatino", FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["TOCTitleDingbat"], CellSize -> {34, Inherited}, TextAlignment -> Right], Cell[ StyleData["TOCTitleDingbat", "EnhancedPrintout"], FontFamily -> "Frutiger-Roman", FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["TOCSectionDingbat"], CellSize -> {38, Inherited}, TextAlignment -> Right], Cell[ StyleData["TOCSectionDingbat", "EnhancedPrintout"], FontFamily -> "Frutiger-Roman", FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["TOCSubsectionDingbat"], CellSize -> {54, Inherited}, TextAlignment -> Right], Cell[ StyleData["TOCSubsectionDingbat", "EnhancedPrintout"], FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["TOCTitleCondensed"], CellMargins -> {{20, 0}, {1, 8}}, CellGroupingRules -> {"SectionGrouping", 70}, TabSpacings -> 50.4, CounterIncrements -> "TOCTitleCondensed", CounterAssignments -> {{"TOCSectionCondensed", 0}, { "TOCSubsectionCondensed", 0}}, FontFamily -> "Helvetica", FontSize -> 12, FontWeight -> "Bold"], Cell[ StyleData["TOCTitleCondensed", "Presentation"], FontSize -> 18], Cell[ StyleData["TOCTitleCondensed", "Printout"], CellMargins -> {{12, 0}, {1, 8}}, PageBreakBelow -> False, FontSize -> 11], Cell[ StyleData["TOCTitleCondensed", "EnhancedPrintout"], CellMargins -> {{12, 0}, {1, 8}}, PageBreakBelow -> False, FontFamily -> "Frutiger-Bold", FontSize -> 11, FontWeight -> "Plain"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["TOCSectionCondensed"], CellMargins -> {{48, 0}, {1, 1}}, CellGroupingRules -> {"SectionGrouping", 75}, TabSpacings -> 47.4, CounterIncrements -> "TOCSectionCondensed", CounterAssignments -> {{"TOCSubsection", 0}}, FontFamily -> "Helvetica", FontSize -> 10, FontWeight -> "Bold", FontColor -> GrayLevel[0.2]], Cell[ StyleData["TOCSectionCondensed", "Presentation"], FontSize -> 15], Cell[ StyleData["TOCSectionCondensed", "Printout"], CellMargins -> {{36, 0}, {1, 1}}, PageBreakBelow -> False, FontSize -> 11], Cell[ StyleData["TOCSectionCondensed", "EnhancedPrintout"], CellMargins -> {{36, 0}, {1, 1}}, PageBreakBelow -> False, FontFamily -> "Palatino", FontSize -> 11]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["TOCSubsectionCondensed"], PageWidth -> 470, CellMargins -> {{76, 0}, {1, 1}}, CellGroupingRules -> {"SectionGrouping", 80}, TextJustification -> 1, FontSize -> 12], Cell[ StyleData["TOCSubsectionCondensed", "Presentation"], FontSize -> 18], Cell[ StyleData["TOCSubsectionCondensed", "Printout"], CellMargins -> {{72, 0}, {1, 1}}, PageBreakBelow -> False, Hyphenation -> True, FontSize -> 10], Cell[ StyleData["TOCSubsectionCondensed", "EnhancedPrintout"], CellMargins -> {{72, 0}, {1, 1}}, PageBreakBelow -> False, Hyphenation -> True, FontFamily -> "Palatino", FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["TOCSubsubsectionCondensed"], CellMargins -> {{104, 0}, {1, 1}}, CellGroupingRules -> {"SectionGrouping", 85}, TabSpacings -> 39.3, CounterIncrements -> "TOCSubsubsectionCondensed", FontSize -> 12], Cell[ StyleData["TOCSubsubsectionCondensed", "Presentation"], FontSize -> 18], Cell[ StyleData["TOCSubsubsectionCondensed", "Printout"], CellMargins -> {{96, 0}, {1, 1}}, PageBreakBelow -> False, FontSize -> 9], Cell[ StyleData["TOCSubsubsectionCondensed", "EnhancedPrintout"], CellMargins -> {{96, 0}, {1, 1}}, PageBreakBelow -> False, FontFamily -> "Palatino", FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["TitlePageGraphic"], CellMargins -> {{0, 0}, {100, 20}}, Evaluatable -> False, PageBreakBelow -> False, TextAlignment -> Center], Cell[ StyleData["TitlePageGraphic", "Presentation"], FontSize -> 18], Cell[ StyleData["TitlePageGraphic", "Printout"], CellMargins -> {{0, 0}, {230, 88}}], Cell[ StyleData["TitlePageGraphic", "EnhancedPrintout"], CellMargins -> {{0, 0}, {230, 88}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["TitlePageLogo"], CellMargins -> {{0, 0}, {0, 0}}], Cell[ StyleData["TitlePageLogo", "Presentation"], FontSize -> 18], Cell[ StyleData["TitlePageLogo", "Printout"]], Cell[ StyleData["TitlePageLogo", "EnhancedPrintout"]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Horizontal Lines", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["Line1"], CellFrame -> {{0, 0}, {0, 0.5}}, CellMargins -> {{10, 4}, {-16, 9}}, StyleMenuListing -> None, FontSize -> 2], Cell[ StyleData["Line1", "Presentation"], FontSize -> 3], Cell[ StyleData["Line1", "Printout"], CellMargins -> {{2, 0}, {-16, 9}}]}, Closed]], Cell["\nThe item above is horizontal 0.5 pt line", "Text"], Cell[ CellGroupData[{ Cell[ StyleData["ProgramTop"], CellFrame -> {{0.5, 0.5}, {0, 0.5}}, CellMargins -> {{27, 4}, {-18, 18}}, LineSpacing -> {1, -4}, StyleMenuListing -> None, FontSize -> 4], Cell[ StyleData["ProgramTop", "Presentation"], FontSize -> 6], Cell[ StyleData["ProgramTop", "Printout"], CellMargins -> {{2, 0}, {-18, 18}}]}, Closed]], Cell["\nThe item above is a ProgramTop line\n", "Text"], Cell[ CellGroupData[{ Cell[ StyleData["ProgramBottom"], CellFrame -> {{0.5, 0.5}, {0.5, 0}}, CellMargins -> {{27, 4}, {-10, -2}}, LineSpacing -> {1, -4}, StyleMenuListing -> None, FontSize -> 4], Cell[ StyleData["ProgramBottom", "Presentation"], FontSize -> 6], Cell[ StyleData["ProgramBottom", "Printout"], CellMargins -> {{2, 0}, {-10, -2}}]}, Closed]], Cell["\nThe item above is a ProgramBottom line\n", "Text"], Cell[ CellGroupData[{ Cell[ StyleData["SessionLabel"], CellFrame -> {{0.5, 0}, {0, 0.5}}, CellMargins -> {{27, 4}, {-4, 18}}, LineSpacing -> {1, 0}, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 9], Cell[ StyleData["SessionLabel", "Presentation"], FontSize -> 14], Cell[ StyleData["SessionLabel", "Printout"], CellMargins -> {{2, 0}, {-4, 18}}, FontSize -> 7]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Page Headers and Footers", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["PageHeader"], CellMargins -> {{0, 0}, {2, 0}}, StyleMenuListing -> None, FontSize -> 8, FontSlant -> "Italic"], Cell[ StyleData["PageHeader", "Printout"]], Cell[ StyleData["PageHeader", "EnhancedPrintout"], FontFamily -> "Frutiger-Roman"], Cell[ StyleData["PageHeader", "EnhancedPrintoutNonGray"], FontFamily -> "Frutiger-Roman"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["PageNumber"], CellMargins -> {{0, 0}, {2, 0}}, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 8, FontWeight -> "Bold"], Cell[ StyleData["PageNumber", "Printout"]], Cell[ StyleData["PageNumber", "EnhancedPrintout"], FontFamily -> "Frutiger-Bold", FontWeight -> "Plain"], Cell[ StyleData["PageNumber", "EnhancedPrintoutNonGray"], FontFamily -> "Frutiger-Bold", FontWeight -> "Plain"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["PageFooter"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 6], Cell[ StyleData["PageFooter", "Printout"]], Cell[ StyleData["PageFooter", "EnhancedPrintout"], FontFamily -> "Frutiger-Roman"], Cell[ StyleData["PageFooter", "EnhancedPrintoutNonGray"], FontFamily -> "Frutiger-Roman"]}, Closed]], Cell[ CellGroupData[{ Cell["For compatibility", "Subsection"], Cell[ CellGroupData[{ Cell[ StyleData["Header"], CellMargins -> {{0, 0}, {2, 0}}, StyleMenuListing -> None, FontSize -> 8, FontSlant -> "Italic"], Cell[ StyleData["Header", "Printout"]], Cell[ StyleData["Header", "EnhancedPrintout"], FontFamily -> "Frutiger-Roman", FontSlant -> "Plain"], Cell[ StyleData["Header", "EnhancedPrintoutNonGray"], FontFamily -> "Frutiger-Roman", FontSlant -> "Plain"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Footer"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 6], Cell[ StyleData["Footer", "Printout"]], Cell[ StyleData["Footer", "EnhancedPrintout"], FontFamily -> "Frutiger-Roman"], Cell[ StyleData["Footer", "EnhancedPrintoutNonGray"], FontFamily -> "Frutiger-Roman"]}, Closed]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["FormatType Styles", "Section"], Cell[ "The cells below define styles that are mixed in with the styles of \ most cells. If a cell's FormatType matches the name of one of the styles \ defined below, then that style is applied between the cell's style and its \ own options. This is particularly true of Input and Output.", "Text"], Cell[ CellGroupData[{ Cell[ StyleData["CellExpression"], PageWidth -> Infinity, CellMargins -> {{6, Inherited}, {Inherited, Inherited}}, ShowCellLabel -> False, ShowSpecialCharacters -> False, AllowInlineCells -> False, Hyphenation -> False, AutoItalicWords -> {}, StyleMenuListing -> None, FontFamily -> "Courier", FontSize -> 12, Background -> GrayLevel[1]], Cell[ StyleData["CellExpression", "EnhancedPrintout"], FontFamily -> "Courier Std", FontSize -> 10], Cell[ StyleData["CellExpression", "EnhancedPrintoutNonGray"], FontFamily -> "Courier Std", FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["InputForm"], InputAutoReplacements -> {}, AllowInlineCells -> False, Hyphenation -> False, StyleMenuListing -> None, FontFamily -> "Courier"], Cell[ StyleData["InputForm", "EnhancedPrintout"], FontFamily -> "Courier Std"], Cell[ StyleData["InputForm", "EnhancedPrintoutNonGray"], FontFamily -> "Courier Std"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["OutputForm"], PageWidth -> Infinity, TextAlignment -> Left, LineSpacing -> {0.6, 1}, StyleMenuListing -> None, FontFamily -> "Courier"], Cell[ StyleData["OutputForm", "EnhancedPrintout"], FontFamily -> "Courier Std"], Cell[ StyleData["OutputForm", "EnhancedPrintoutNonGray"], FontFamily -> "Courier Std"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["StandardForm"], InputAutoReplacements -> { "->" -> "\[Rule]", ":>" -> "\[RuleDelayed]", "<=" -> "\[LessEqual]", ">=" -> "\[GreaterEqual]", "!=" -> "\[NotEqual]", "==" -> "\[Equal]", Inherited}, "TwoByteSyntaxCharacterAutoReplacement" -> True, LineSpacing -> {1.25, 0}, StyleMenuListing -> None, FontFamily -> "Courier"], Cell[ StyleData["StandardForm", "EnhancedPrintout"], FontFamily -> "Courier Std"], Cell[ StyleData["StandardForm", "EnhancedPrintoutNonGray"], FontFamily -> "Courier Std"]}, Closed]]}, 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]}, Closed]]}, Open]]}, Visible -> False, FrontEndVersion -> "8.0 for Microsoft Windows (64-bit) (February 23, 2011)", StyleDefinitions -> "Default.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "LastSlide"->{ Cell[26823, 786, 77, 1, 49, "Section", CellTags->"LastSlide"]}, "SlideShowHeader"->{ Cell[567, 22, 1321, 38, 31, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[4020, 121, 1321, 38, 31, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[7443, 244, 1321, 38, 31, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[25477, 744, 1321, 38, 31, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[27876, 829, 1290, 37, 31, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[29627, 888, 1290, 37, 31, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[31888, 958, 1290, 37, 31, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[33816, 1023, 1290, 37, 31, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[36005, 1102, 1290, 37, 31, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[40510, 1266, 1290, 37, 31, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[43581, 1362, 1290, 37, 31, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[46191, 1449, 1290, 37, 31, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[51051, 1631, 1290, 37, 31, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[53946, 1732, 1321, 38, 31, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[58627, 1868, 1290, 37, 31, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[60769, 1943, 1290, 37, 31, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[64832, 2067, 1321, 38, 31, "SlideShowNavigationBar", CellTags->"SlideShowHeader"]} } *) (*CellTagsIndex CellTagsIndex->{ {"LastSlide", 423253, 9361}, {"SlideShowHeader", 423344, 9364} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 1321, 38, 31, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[1913, 64, 600, 11, 101, "Section"], Cell[2516, 77, 84, 1, 24, "Text"], Cell[2603, 80, 329, 6, 35, "Text"], Cell[2935, 88, 346, 5, 35, "Text"], Cell[3284, 95, 286, 5, 35, "Text"], Cell[3573, 102, 300, 5, 35, "Text"], Cell[3876, 109, 95, 6, 99, "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[4020, 121, 1321, 38, 31, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[5366, 163, 153, 4, 49, "Section"], Cell[5522, 169, 670, 15, 108, "Text"], Cell[6195, 186, 315, 7, 66, "Text"], Cell[6513, 195, 66, 3, 49, "Text"], Cell[6582, 200, 105, 3, 34, "Input"], Cell[6690, 205, 103, 3, 34, "Input"], Cell[6796, 210, 220, 7, 34, "Input"], Cell[7019, 219, 199, 6, 34, "Input"], Cell[7221, 227, 95, 4, 49, "Text"], Cell[CellGroupData[{ Cell[7341, 235, 22, 0, 31, "Subsection"], Cell[7366, 237, 16, 0, 24, "Text"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7443, 244, 1321, 38, 31, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[8789, 286, 65, 1, 49, "Section"], Cell[8857, 289, 306, 5, 41, "Text"], Cell[9166, 296, 16, 0, 24, "Text"], Cell[9185, 298, 16214, 438, 1232, "Input"], Cell[25402, 738, 26, 0, 34, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[25477, 744, 1321, 38, 31, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[26823, 786, 77, 1, 49, "Section", CellTags->"LastSlide"], Cell[26903, 789, 313, 9, 24, "Text"], Cell[27219, 800, 133, 3, 34, "Input"], Cell[27355, 805, 38, 0, 24, "Text"], Cell[27396, 807, 132, 4, 34, "Input"], Cell[27531, 813, 96, 2, 24, "Text"], Cell[27630, 817, 126, 4, 34, "Input"], Cell[27759, 823, 68, 0, 24, "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[27876, 829, 1290, 37, 31, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[29191, 870, 48, 0, 49, "Section"], Cell[29242, 872, 74, 0, 24, "Text"], Cell[29319, 874, 89, 2, 34, "Input"], Cell[29411, 878, 75, 0, 24, "Text"], Cell[29489, 880, 89, 2, 34, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[29627, 888, 1290, 37, 31, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[30942, 929, 52, 0, 49, "Section"], Cell[30997, 931, 186, 4, 24, "Text"], Cell[31186, 937, 121, 3, 34, "Input"], Cell[31310, 942, 529, 10, 59, "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[31888, 958, 1290, 37, 31, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[33203, 999, 52, 0, 49, "Section"], Cell[33258, 1001, 118, 3, 24, "Text"], Cell[33379, 1006, 109, 2, 34, "Input"], Cell[33491, 1010, 164, 3, 24, "Text"], Cell[33658, 1015, 109, 2, 34, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[33816, 1023, 1290, 37, 31, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[35131, 1064, 90, 2, 49, "Section"], Cell[35224, 1068, 43, 0, 24, "Text"], Cell[35270, 1070, 128, 3, 34, "Input"], Cell[35401, 1075, 160, 4, 38, "Text"], Cell[35564, 1081, 109, 2, 34, "Input"], Cell[35676, 1085, 280, 11, 25, "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[36005, 1102, 1290, 37, 31, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[37320, 1143, 169, 7, 54, "Section"], Cell[37492, 1152, 581, 17, 41, "Text"], Cell[38076, 1171, 128, 3, 34, "Input"], Cell[38207, 1176, 204, 5, 55, "Input"], Cell[38414, 1183, 121, 3, 34, "Input"], Cell[38538, 1188, 504, 19, 29, "Text"], Cell[39045, 1209, 116, 3, 34, "Input"], Cell[CellGroupData[{ Cell[39186, 1216, 177, 5, 23, "SubsubsectionIcon"], Cell[39366, 1223, 960, 31, 86, "Text"], Cell[40329, 1256, 120, 3, 34, "Input"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[40510, 1266, 1290, 37, 31, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[41825, 1307, 251, 8, 54, "Section"], Cell[42079, 1317, 421, 11, 41, "Text"], Cell[42503, 1330, 866, 18, 195, "Input"], Cell[43372, 1350, 141, 4, 34, "Input"], Cell[43516, 1356, 16, 0, 24, "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[43581, 1362, 1290, 37, 31, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[44896, 1403, 256, 9, 54, "Section"], Cell[45155, 1414, 101, 2, 24, "Text"], Cell[45259, 1418, 566, 13, 135, "Input"], Cell[45828, 1433, 47, 0, 24, "Text"], Cell[45878, 1435, 90, 2, 34, "Input"], Cell[45971, 1439, 58, 0, 24, "Text"], Cell[46032, 1441, 110, 2, 34, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[46191, 1449, 1290, 37, 31, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[47506, 1490, 259, 9, 54, "Section"], Cell[47768, 1501, 465, 12, 41, "Text"], Cell[48236, 1515, 1000, 37, 116, "Text"], Cell[49239, 1554, 514, 22, 49, "Text"], Cell[49756, 1578, 1111, 42, 109, "Text"], Cell[50870, 1622, 132, 3, 24, "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[51051, 1631, 1290, 37, 31, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[52366, 1672, 263, 9, 54, "Section"], Cell[52632, 1683, 305, 11, 24, "Text"], Cell[52940, 1696, 773, 23, 55, "Input"], Cell[53716, 1721, 55, 0, 24, "Text"], Cell[53774, 1723, 123, 3, 34, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[53946, 1732, 1321, 38, 31, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[55292, 1774, 53, 1, 49, "Section"], Cell[55348, 1777, 2489, 59, 209, "Text"], Cell[57840, 1838, 255, 7, 55, "Input"], Cell[58098, 1847, 254, 6, 42, "Text"], Cell[58355, 1855, 223, 7, 34, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[58627, 1868, 1290, 37, 31, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[59942, 1909, 34, 0, 49, "Section"], Cell[59979, 1911, 112, 3, 24, "Text"], Cell[60094, 1916, 137, 4, 34, "Input"], Cell[60234, 1922, 276, 7, 42, "Text"], Cell[60513, 1931, 83, 1, 55, "Input"], Cell[60599, 1934, 121, 3, 34, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[60769, 1943, 1290, 37, 31, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[62084, 1984, 44, 0, 49, "Section"], Cell[62131, 1986, 728, 17, 75, "Text"], Cell[62862, 2005, 142, 3, 34, "Input"], Cell[63007, 2010, 133, 3, 24, "Text"], Cell[63143, 2015, 344, 10, 34, "Input"], Cell[63490, 2027, 237, 4, 41, "Text"], Cell[63730, 2033, 537, 8, 75, "Text"], Cell[64270, 2043, 133, 3, 24, "Text"], Cell[64406, 2048, 167, 5, 25, "Text"], Cell[64576, 2055, 207, 6, 34, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[64832, 2067, 1321, 38, 31, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[66178, 2109, 126, 3, 49, "Section"], Cell[66307, 2114, 225, 4, 41, "Text"], Cell[66535, 2120, 112, 2, 34, "Input"], Cell[66650, 2124, 112, 3, 34, "Input"], Cell[66765, 2129, 74, 0, 24, "Text"], Cell[66842, 2131, 117, 2, 34, "Input"], Cell[66962, 2135, 207, 4, 41, "Text"], Cell[67172, 2141, 310, 9, 34, "Input"], Cell[67485, 2152, 112, 3, 34, "Input"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)