(* 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[ 256915, 5597] NotebookOptionsPosition[ 25094, 702] NotebookOutlinePosition[ 247300, 5372] CellTagsIndexPosition[ 244192, 5322] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell["Enigma 1478", "SubsectionFirst", Editable->True, Deletable->True, CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0], "Thickness"->2}, Copyable->True, CellOpen->True, TaggingRules:>"GUIDTag[153340426807568246126852828452462104371]", CellTags->{ "EssayCell", "EssayBodyCell203206895366813146828020509698187596154", "EssayCell203206895366813146828020509698187596154", "Subsection203206895366813146828020509698187596154", "DiaryDate[{2008, 1, 25, 18, 50, 54.2630000}]", "CellGUID[66545469831405210299739018482866805334]", "GUIDTag[203206895366813146828020509698187596154]", "BlogEntryTitle203206895366813146828020509698187596154"}, CellID->48196365], Cell["Posted on: Friday 25/1, 2008; 7:04 PM", "Subsubsection", Background->RGBColor[0.9, 1, 0.83]], Cell["\<\ Constuct a list of all perfect squares with 1, 2, 3, or 4 digits, and then \ split each square into its constituent digits.\ \>", "Text", Editable->True, Deletable->True, CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0], "Thickness"->2}, Copyable->True, CellOpen->True, TaggingRules:>"GUIDTag[263409011588149507184630755956367061077]", CellChangeTimes->{{3.410275879355*^9, 3.410275910227*^9}}, CellTags->{ "EssayCell", "EssayBodyCell203206895366813146828020509698187596154", "EssayCell203206895366813146828020509698187596154", "Text203206895366813146828020509698187596154", "DiaryDate[{2008, 1, 25, 18, 50, 54.4890000}]", "CellGUID[246405466672226855537962684105345775616]", "GUIDTag[203206895366813146828020509698187596154]"}, CellID->129229076], Cell[BoxData[ RowBox[{ RowBox[{"squaresdigits", "=", RowBox[{"Map", "[", RowBox[{"IntegerDigits", ",", RowBox[{"Table", "[", RowBox[{ SuperscriptBox["i", "2"], ",", RowBox[{"{", RowBox[{"i", ",", "99"}], "}"}]}], "]"}]}], "]"}]}], ";"}]], "Input", Editable->True, Deletable->True, CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0], "Thickness"->2}, Copyable->True, CellOpen->True, TaggingRules:>"GUIDTag[27369852002139644292897624476841822455]", CellChangeTimes->{{3.4102759219*^9, 3.410275923165*^9}}, CellTags->{ "EssayCell", "EssayBodyCell203206895366813146828020509698187596154", "EssayCell203206895366813146828020509698187596154", "Input203206895366813146828020509698187596154", "DiaryDate[{2008, 1, 25, 18, 52, 1.0960000}]", "CellGUID[46872927226225809573688652300497978963]", "GUIDTag[203206895366813146828020509698187596154]"}, CellID->298654600], Cell["\<\ Remove all cases where the squares contain repeated digits, then split the \ resulting list into 4 sublists corresponding to 1-digit, 2-digit, 3-digit, \ and 4-digit squares.\ \>", "Text", Editable->True, Deletable->True, CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0], "Thickness"->2}, Copyable->True, CellOpen->True, TaggingRules:>"GUIDTag[165831866729366168293670418615355138497]", CellChangeTimes->{{3.410275934924*^9, 3.410276014159*^9}}, CellTags->{ "EssayCell", "EssayBodyCell203206895366813146828020509698187596154", "EssayCell203206895366813146828020509698187596154", "Text203206895366813146828020509698187596154", "DiaryDate[{2008, 1, 25, 18, 52, 14.0860000}]", "CellGUID[338959870033091902933259768909449296107]", "GUIDTag[203206895366813146828020509698187596154]"}, CellID->290637487], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"squaresdigitsnorepeats", "=", RowBox[{"Select", "[", RowBox[{"squaresdigits", ",", RowBox[{ RowBox[{ RowBox[{"Length", "[", "#", "]"}], "\[Equal]", RowBox[{"Length", "[", RowBox[{"Union", "[", "#", "]"}], "]"}]}], "&"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"squaresdigitsnorepeats2", "=", RowBox[{"Split", "[", RowBox[{"squaresdigitsnorepeats", ",", RowBox[{ RowBox[{ RowBox[{"Length", "[", "#1", "]"}], "\[Equal]", RowBox[{"Length", "[", "#2", "]"}]}], "&"}]}], "]"}]}]}], "Input", Editable->True, Deletable->True, CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0], "Thickness"->2}, Copyable->True, CellOpen->True, TaggingRules:>"GUIDTag[156054128515814522451662637826521400310]", CellChangeTimes->{{3.410276018992*^9, 3.410276042472*^9}}, CellTags->{ "EssayCell", "EssayBodyCell203206895366813146828020509698187596154", "EssayCell203206895366813146828020509698187596154", "Input203206895366813146828020509698187596154", "DiaryDate[{2008, 1, 25, 18, 53, 38.3270000}]", "CellGUID[38829263039123964795877700354954437152]", "GUIDTag[203206895366813146828020509698187596154]"}, CellID->57808081], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", "4", "}"}], ",", RowBox[{"{", "9", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "6", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "9", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "6", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "2", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "7", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "2", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "2", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "8", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "6", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "9", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "6", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "7", ",", "6", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "8", ",", "4", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "9", ",", "3", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "0", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "6", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "7", ",", "0", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "8", ",", "0", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "9", ",", "1", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "0", ",", "2", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2", ",", "4", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4", ",", "8", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "7", ",", "2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "0", ",", "9", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3", ",", "5", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "7", ",", "6", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "0", ",", "4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "1", ",", "8", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3", ",", "2", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "4", ",", "7", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "0", ",", "8", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "2", ",", "4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "7", ",", "2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "0", ",", "5", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "3", ",", "9", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "5", ",", "6", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "9", ",", "2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "6", ",", "4", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "0", ",", "2", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "2", ",", "1", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "6", ",", "0", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "8", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "}"}]], "Output", Editable->True, Deletable->True, Copyable->True, CellOpen->True, CellChangeTimes->{{3.4102760203*^9, 3.410276043736*^9}}, CellTags->{ "EssayCell", "EssayBodyCell203206895366813146828020509698187596154", "EssayCell203206895366813146828020509698187596154", "Input203206895366813146828020509698187596154", "DiaryDate[{2008, 1, 25, 18, 53, 38.3270000}]", "CellGUID[38829263039123964795877700354954437152]", "GUIDTag[203206895366813146828020509698187596154]"}, CellID->151578670] }, Open ]], Cell[TextData[{ "Construct a list of partitions of 10 formed from the integers 1, 2, 3, and \ 4 that can be used as indices to pick candidate lists of 4 sublists from the \ above list, which are thus guaranteed to have a total of exactly 10 digits in \ them. The condition that the digits are ", StyleBox["different", FontSlant->"Italic"], " has ", StyleBox["not", FontSlant->"Italic"], " yet been applied here." }], "Text", Editable->True, Deletable->True, CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0], "Thickness"->2}, Copyable->True, CellOpen->True, TaggingRules:>"GUIDTag[310553414984309644346265968850990192790]", CellChangeTimes->{{3.410276063283*^9, 3.410276178299*^9}, {3.410276572499*^9, 3.410276604502*^9}}, CellTags->{ "EssayCell", "EssayBodyCell203206895366813146828020509698187596154", "EssayCell203206895366813146828020509698187596154", "Text203206895366813146828020509698187596154", "DiaryDate[{2008, 1, 25, 18, 54, 21.9350000}]", "CellGUID[324753680454859210078097599114598050144]", "GUIDTag[203206895366813146828020509698187596154]"}, CellID->21231348], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"subsetlengths", "=", RowBox[{"IntegerPartitions", "[", RowBox[{"10", ",", RowBox[{"{", "4", "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}]}], "]"}]}]], "Input", Editable->True, Deletable->True, CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0], "Thickness"->2}, Copyable->True, CellOpen->True, TaggingRules:>"GUIDTag[245378908908434910933421966542415471666]", CellChangeTimes->{3.410276103701*^9}, CellTags->{ "EssayCell", "EssayBodyCell203206895366813146828020509698187596154", "EssayCell203206895366813146828020509698187596154", "Input203206895366813146828020509698187596154", "DiaryDate[{2008, 1, 25, 18, 55, 3.1850000}]", "CellGUID[65230802056968697272197981481547387732]", "GUIDTag[203206895366813146828020509698187596154]"}, CellID->411697544], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "4", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3", ",", "2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2", ",", "2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3", ",", "3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "3", ",", "2", ",", "2"}], "}"}]}], "}"}]], "Output", Editable->True, Deletable->True, Copyable->True, CellOpen->True, CellChangeTimes->{3.4102761051140003`*^9}, CellTags->{ "EssayCell", "EssayBodyCell203206895366813146828020509698187596154", "EssayCell203206895366813146828020509698187596154", "Input203206895366813146828020509698187596154", "DiaryDate[{2008, 1, 25, 18, 55, 3.1850000}]", "CellGUID[65230802056968697272197981481547387732]", "GUIDTag[203206895366813146828020509698187596154]"}, CellID->14213638] }, Open ]], Cell["\<\ Construct a list of all of the candidate lists of 4 sublists.\ \>", "Text", Editable->True, Deletable->True, CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0], "Thickness"->2}, Copyable->True, CellOpen->True, TaggingRules:>"GUIDTag[50938697184370416823816448674578354446]", CellChangeTimes->{{3.4102761985220003`*^9, 3.410276221653*^9}, { 3.410276553818*^9, 3.410276577158*^9}}, CellTags->{ "EssayCell", "EssayBodyCell203206895366813146828020509698187596154", "EssayCell203206895366813146828020509698187596154", "Text203206895366813146828020509698187596154", "DiaryDate[{2008, 1, 25, 18, 56, 24.7640000}]", "CellGUID[136846389425035853331676393156042389901]", "GUIDTag[203206895366813146828020509698187596154]"}, CellID->439786513], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"setsof4", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Outer", "[", RowBox[{ RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"Map", "[", RowBox[{"Slot", ",", "subsetlengths", ",", RowBox[{"{", "2", "}"}]}], "]"}], "]"}], "&"}], ",", RowBox[{"#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", RowBox[{"#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", RowBox[{"#", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], ",", RowBox[{"#", "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], ",", "1"}], "]"}], "&"}], "[", "squaresdigitsnorepeats2", "]"}], ",", "4"}], "]"}]}], ")"}], "//", "Dimensions"}]], "Input", Editable->True, Deletable->True, CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0], "Thickness"->2}, Copyable->True, CellOpen->True, TaggingRules:>"GUIDTag[38485194981746414694094141741099934526]", CellChangeTimes->{3.410276192666*^9}, CellTags->{ "EssayCell", "EssayBodyCell203206895366813146828020509698187596154", "EssayCell203206895366813146828020509698187596154", "Input203206895366813146828020509698187596154", "DiaryDate[{2008, 1, 25, 18, 56, 25.9820000}]", "CellGUID[260893133320487716859719787361026242221]", "GUIDTag[203206895366813146828020509698187596154]"}, CellID->91234960], Cell[BoxData[ RowBox[{"{", RowBox[{"42120", ",", "4"}], "}"}]], "Output", Editable->True, Deletable->True, Copyable->True, CellOpen->True, CellChangeTimes->{3.410276224067*^9}, CellTags->{ "EssayCell", "EssayBodyCell203206895366813146828020509698187596154", "EssayCell203206895366813146828020509698187596154", "Input203206895366813146828020509698187596154", "DiaryDate[{2008, 1, 25, 18, 56, 25.9820000}]", "CellGUID[260893133320487716859719787361026242221]", "GUIDTag[203206895366813146828020509698187596154]"}, CellID->181419317] }, Open ]], Cell[TextData[{ "Pick out the cases in which all of the digits are ", StyleBox["different", FontSlant->"Italic"], ". There are only 4 such cases." }], "Text", Editable->True, Deletable->True, CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0], "Thickness"->2}, Copyable->True, CellOpen->True, TaggingRules:>"GUIDTag[169170922263755616991694574747254230996]", CellChangeTimes->{{3.410276234216*^9, 3.410276264424*^9}}, CellTags->{ "EssayCell", "EssayBodyCell203206895366813146828020509698187596154", "EssayCell203206895366813146828020509698187596154", "Text203206895366813146828020509698187596154", "DiaryDate[{2008, 1, 25, 18, 57, 12.2830000}]", "CellGUID[187265268307429108936966428199954573867]", "GUIDTag[203206895366813146828020509698187596154]"}, CellID->340117093], Cell[BoxData[ RowBox[{"setsof4valid", "=", RowBox[{"Select", "[", RowBox[{"setsof4", ",", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"Union", "[", RowBox[{"Flatten", "[", "#", "]"}], "]"}], "]"}], "\[Equal]", "10"}], "&"}]}], "]"}]}]], "Input", Editable->True, Deletable->True, CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0], "Thickness"->2}, Copyable->True, CellOpen->True, TaggingRules:>"GUIDTag[42237744879653685501880636491385283856]", CellChangeTimes->{3.410276252707*^9}, CellTags->{ "EssayCell", "EssayBodyCell203206895366813146828020509698187596154", "EssayCell203206895366813146828020509698187596154", "Input203206895366813146828020509698187596154", "DiaryDate[{2008, 1, 25, 18, 57, 32.1210000}]", "CellGUID[270336320177594887332345803449474585273]", "GUIDTag[203206895366813146828020509698187596154]"}, CellID->99715143], Cell["\<\ Pick out Peter and Quentin's cases, which must have exactly 2 squares in \ common.\ \>", "Text", Editable->True, Deletable->True, CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0], "Thickness"->2}, Copyable->True, CellOpen->True, TaggingRules:>"GUIDTag[335657452694890506533837993957061819771]", CellChangeTimes->{{3.41027628771*^9, 3.410276369041*^9}}, CellTags->{ "EssayCell", "EssayBodyCell203206895366813146828020509698187596154", "EssayCell203206895366813146828020509698187596154", "Text203206895366813146828020509698187596154", "DiaryDate[{2008, 1, 25, 18, 58, 6.7560000}]", "CellGUID[5411122017671882192312695175428803661]", "GUIDTag[203206895366813146828020509698187596154]"}, CellID->79347510], Cell[BoxData[ RowBox[{"peterandquentin", "=", RowBox[{ RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"#1", ",", "#2"}], "}"}], "&"}], ",", "setsof4valid", ",", "setsof4valid", ",", "1"}], "]"}], ",", "1"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"Intersection", "[", RowBox[{ RowBox[{"#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", RowBox[{ "#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "]"}], "]"}], "\[Equal]", "2"}], "&"}]}], "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}]], "Input", Editable->True, Deletable->True, CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0], "Thickness"->2}, Copyable->True, CellOpen->True, TaggingRules:>"GUIDTag[97865260715574063294141240384235726518]", CellChangeTimes->{3.41027630559*^9}, CellTags->{ "EssayCell", "EssayBodyCell203206895366813146828020509698187596154", "EssayCell203206895366813146828020509698187596154", "Input203206895366813146828020509698187596154", "DiaryDate[{2008, 1, 25, 18, 58, 24.8840000}]", "CellGUID[95349482377686798546727357533797168123]", "GUIDTag[203206895366813146828020509698187596154]"}, CellID->327869624], Cell["\<\ Remove Peter and Quentin's cases to leave 2 cases yet to be assigned.\ \>", "Text", Editable->True, Deletable->True, CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0], "Thickness"->2}, Copyable->True, CellOpen->True, TaggingRules:>"GUIDTag[124993254161566009276835758156608772301]", CellChangeTimes->{{3.41027637656*^9, 3.4102763955620003`*^9}}, CellTags->{ "EssayCell", "EssayBodyCell203206895366813146828020509698187596154", "EssayCell203206895366813146828020509698187596154", "Text203206895366813146828020509698187596154", "DiaryDate[{2008, 1, 25, 18, 59, 35.4600000}]", "CellGUID[156161775420791723597438029679192135471]", "GUIDTag[203206895366813146828020509698187596154]"}, CellID->172106845], Cell[BoxData[ RowBox[{"setsof4valid2", "=", RowBox[{"Complement", "[", RowBox[{"setsof4valid", ",", "peterandquentin"}], "]"}]}]], "Input", Editable->True, Deletable->True, CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0], "Thickness"->2}, Copyable->True, CellOpen->True, TaggingRules:>"GUIDTag[257796391573925811612928499419620211189]", CellChangeTimes->{3.41027638259*^9}, CellTags->{ "EssayCell", "EssayBodyCell203206895366813146828020509698187596154", "EssayCell203206895366813146828020509698187596154", "Input203206895366813146828020509698187596154", "DiaryDate[{2008, 1, 25, 18, 59, 42.3040000}]", "CellGUID[240207782954901891765389273195120575383]", "GUIDTag[203206895366813146828020509698187596154]"}, CellID->62282062], Cell["\<\ Pick out Rose's case, which must not have any squares in common with either \ Peter or Quentin's cases.\ \>", "Text", Editable->True, Deletable->True, CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0], "Thickness"->2}, Copyable->True, CellOpen->True, TaggingRules:>"GUIDTag[295044185567976908501811371258157941805]", CellChangeTimes->{{3.4102764218970003`*^9, 3.410276456413*^9}}, CellTags->{ "EssayCell", "EssayBodyCell203206895366813146828020509698187596154", "EssayCell203206895366813146828020509698187596154", "Text203206895366813146828020509698187596154", "DiaryDate[{2008, 1, 25, 19, 0, 15.7290000}]", "CellGUID[335809060038976255369762274373071613128]", "GUIDTag[203206895366813146828020509698187596154]"}, CellID->78738336], Cell[BoxData[ RowBox[{"rose", "=", RowBox[{"Select", "[", RowBox[{"setsof4valid2", ",", RowBox[{ RowBox[{ RowBox[{"Intersection", "[", RowBox[{"#", ",", RowBox[{ "peterandquentin", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], "]"}], "==", RowBox[{"Intersection", "[", RowBox[{"#", ",", RowBox[{ "peterandquentin", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "]"}], "\[Equal]", RowBox[{"{", "}"}]}], "&"}]}], "]"}]}]], "Input", Editable->True, Deletable->True, CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0], "Thickness"->2}, Copyable->True, CellOpen->True, TaggingRules:>"GUIDTag[302214560675648500564450833861663661089]", CellChangeTimes->{3.410276417297*^9}, CellTags->{ "EssayCell", "EssayBodyCell203206895366813146828020509698187596154", "EssayCell203206895366813146828020509698187596154", "Input203206895366813146828020509698187596154", "DiaryDate[{2008, 1, 25, 19, 0, 16.7860000}]", "CellGUID[301785877763859810828166472462148596869]", "GUIDTag[203206895366813146828020509698187596154]"}, CellID->169945711], Cell["Remove Rose's case to recover Stanley's case.", "Text", Editable->True, Deletable->True, CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0], "Thickness"->2}, Copyable->True, CellOpen->True, TaggingRules:>"GUIDTag[159268988808634698450019534461323593485]", CellChangeTimes->{{3.4102764643859997`*^9, 3.410276479898*^9}}, CellTags->{ "EssayCell", "EssayBodyCell203206895366813146828020509698187596154", "EssayCell203206895366813146828020509698187596154", "Text203206895366813146828020509698187596154", "DiaryDate[{2008, 1, 25, 19, 1, 3.2060000}]", "CellGUID[305856764554581281565122774747905588639]", "GUIDTag[203206895366813146828020509698187596154]"}, CellID->39053855], Cell[BoxData[ RowBox[{"stanley", "=", RowBox[{"Complement", "[", RowBox[{"setsof4valid2", ",", "rose"}], "]"}]}]], "Input", Editable->True, Deletable->True, CellBracketOptions->{"Color"->RGBColor[0.7, 0, 0], "Thickness"->2}, Copyable->True, CellOpen->True, TaggingRules:>"GUIDTag[118898956652151689892479944173219587613]", CellChangeTimes->{3.410276482867*^9}, CellTags->{ "EssayCell", "EssayBodyCell203206895366813146828020509698187596154", "EssayCell203206895366813146828020509698187596154", "Input203206895366813146828020509698187596154", "DiaryDate[{2008, 1, 25, 19, 1, 22.5440000}]", "CellGUID[311745828891874963262208138485760652008]", "GUIDTag[203206895366813146828020509698187596154]"}, CellID->592647786] }, Editable->True, ScreenStyleEnvironment->"Working", WindowSize->{550, Automatic}, WindowMargins->{{339, Automatic}, {19, Automatic}}, WindowTitle->Automatic, Visible->True, DockedCells->Cell[ BoxData[ RowBox[{ ButtonBox[ StyleBox[ RowBox[{"Bottom"}], FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[0.1, 0.1, 1], SingleLetterItalics -> False], FrameMargins -> {{1, 1}, {-3, -3}}, ButtonMinHeight -> 1.5, Background -> RGBColor[1, 1, 0.9], ButtonNote -> "Bottom", ButtonFunction :> (FrontEnd`MessagesToConsole[ Needs["Diary`Diary`"]; ToExpression["$CurrentDiaryNotebook=ButtonNotebook[]"]; ToExpression["SetCurrentDiaryDirectoryAndFile[]"]; ToExpression["WriteCurrentDiaryNameToDiaryAccessPaletteButtons[All]"]; ToExpression["RefreshPalette[$NotebooksPaletteNotebook]"]; ToExpression["RefreshPalette[$OtherFilesPaletteNotebook]"]; ToExpression["RefreshPalette[$PackagesPaletteNotebook]"]; ToExpression["RefreshPalette[$DiaryListPaletteNotebook]"]; ToExpression["GoToEndOfDiary[]"]]& ), Evaluator -> Automatic, Enabled -> True, FrameMargins -> 1], ButtonBox[ StyleBox[ RowBox[{"Tools"}], FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[0, 0.5, 0.5], SingleLetterItalics -> False], FrameMargins -> {{1, 1}, {-3, -3}}, ButtonMinHeight -> 1.5, Background -> RGBColor[1, 1, 0.9], ButtonNote -> "Tools", ButtonFunction :> (FrontEnd`MessagesToConsole[ Needs["Diary`Diary`"]; ToExpression[ "WorkLifeToolsPalette[Sequence@@$WorkLifeToolsPaletteExtraButtons]"]; ToExpression["$CurrentDiaryNotebook=ButtonNotebook[]"]; ToExpression["SetCurrentDiaryDirectoryAndFile[]"]]& ), Evaluator -> Automatic, Enabled -> True, FrameMargins -> 1], ButtonBox[ StyleBox[ RowBox[{"Make Current"}], FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[0, 0.5, 0], SingleLetterItalics -> False], FrameMargins -> {{1, 1}, {-3, -3}}, ButtonMinHeight -> 1.5, Background -> RGBColor[1, 1, 0.9], ButtonNote -> "Make Current", ButtonFunction :> (FrontEnd`MessagesToConsole[ Needs["Diary`Diary`"]; ToExpression["MakeCurrent[ButtonNotebook[]]"]; Null]& ), Evaluator -> Automatic, Enabled -> True, FrameMargins -> 1], ButtonBox[ StyleBox[ RowBox[{"Save"}], FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[0.5, 0, 0.5], SingleLetterItalics -> False], FrameMargins -> {{1, 1}, {-3, -3}}, ButtonMinHeight -> 1.5, Background -> RGBColor[1, 1, 0.9], ButtonNote -> "Save", ButtonFunction :> (FrontEnd`MessagesToConsole[ Needs["Diary`Diary`"]; ToExpression["$CurrentDiaryNotebook=ButtonNotebook[]"]; ToExpression["SetCurrentDiaryDirectoryAndFile[]"]; ToExpression["SaveDiary[All]"]; ToExpression["WriteCurrentDiaryNameToDiaryAccessPaletteButtons[All]"]; ToExpression["RefreshPalette[$NotebooksPaletteNotebook]"]; ToExpression["RefreshPalette[$OtherFilesPaletteNotebook]"]; ToExpression["RefreshPalette[$PackagesPaletteNotebook]"]; ToExpression["RefreshPalette[$DiaryListPaletteNotebook]"]]& ), Evaluator -> Automatic, Enabled -> True, FrameMargins -> 1], ButtonBox[ StyleBox[ RowBox[{"Close"}], FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[0.5, 0, 0.5], SingleLetterItalics -> False], FrameMargins -> {{1, 1}, {-3, -3}}, ButtonMinHeight -> 1.5, Background -> RGBColor[1, 1, 0.9], ButtonNote -> "Close", ButtonFunction :> (FrontEnd`MessagesToConsole[ Needs["Diary`Diary`"]; ToExpression["$CurrentDiaryNotebook=ButtonNotebook[]"]; ToExpression["SetCurrentDiaryDirectoryAndFile[]"]; ToExpression["CloseDiary[All]"]; ToExpression["RefreshPalette[$AllOpenNotebooksPaletteNotebook]"]; ToExpression["WriteCurrentDiaryNameToDiaryAccessPaletteButtons[All]"]; ToExpression["RefreshPalette[$NotebooksPaletteNotebook]"]; ToExpression["RefreshPalette[$OtherFilesPaletteNotebook]"]; ToExpression["RefreshPalette[$PackagesPaletteNotebook]"]; ToExpression["RefreshPalette[$DiaryListPaletteNotebook]"]]& ), Evaluator -> Automatic, Enabled -> True, FrameMargins -> 1], ButtonBox[ StyleBox[ RowBox[{"Password Protect"}], FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[0.5, 0, 0.5], SingleLetterItalics -> False], FrameMargins -> {{1, 1}, {-3, -3}}, ButtonMinHeight -> 1.5, Background -> RGBColor[1, 1, 0.9], ButtonNote -> "Password Protect", ButtonFunction :> (FrontEnd`MessagesToConsole[ Needs["Diary`Diary`"]; ToExpression["$CurrentDiaryNotebook=ButtonNotebook[]"]; ToExpression["SetCurrentDiaryDirectoryAndFile[]"]; ToExpression["WriteCurrentDiaryNameToDiaryAccessPaletteButtons[All]"]; ToExpression["SelfEncryptNotebook[]"]; ToExpression[ "AddRecordToMathematicaUsageDatabase[{\"PasswordProtect\",\ NotebookGUID[ButtonNotebook[]]}]"]; ToExpression["RefreshPalette[$NotebooksPaletteNotebook]"]; ToExpression["RefreshPalette[$OtherFilesPaletteNotebook]"]; ToExpression["RefreshPalette[$PackagesPaletteNotebook]"]; ToExpression["RefreshPalette[$DiaryListPaletteNotebook]"]]& ), Evaluator -> Automatic, Enabled -> True, FrameMargins -> 1], ButtonBox[ StyleBox[ RowBox[{"Diary's Directory"}], FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[0.5, 0, 0.5], SingleLetterItalics -> False], FrameMargins -> {{1, 1}, {-3, -3}}, ButtonMinHeight -> 1.5, Background -> RGBColor[1, 1, 0.9], ButtonNote -> "Diary's Directory", ButtonFunction :> (FrontEnd`MessagesToConsole[ Needs["Diary`Diary`"]; ToExpression["$CurrentDiaryNotebook=ButtonNotebook[]"]; ToExpression["SetCurrentDiaryDirectoryAndFile[]"]; ToExpression["WriteCurrentDiaryNameToDiaryAccessPaletteButtons[All]"]; ToExpression["RefreshPalette[$NotebooksPaletteNotebook]"]; ToExpression["RefreshPalette[$OtherFilesPaletteNotebook]"]; ToExpression["RefreshPalette[$PackagesPaletteNotebook]"]; ToExpression["RefreshPalette[$DiaryListPaletteNotebook]"]; ToExpression["OpenFileOrDirectory[CurrentDiaryNotebookDirectory[]]"]; Null]& ), Evaluator -> Automatic, Enabled -> True, FrameMargins -> 1], "\n", PopupMenuBox[ Dynamic[{"ActionMenu", Automatic}, Part[{Style[ "WorkLife Tools", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; ToExpression[ "WorkLifeToolsPalette[Sequence @@ \ $WorkLifeToolsPaletteExtraButtons]"]), Style["Additional Tools", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression[ "AdditionalToolsPalette[Sequence @@ \ $AdditionalToolsPaletteExtraButtons]"]), Style["All Notebooks", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; ToExpression["AllOpenNotebooksPalette[]"]), Style["Analytics", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression[ "AnalyticsPalette[Sequence @@ $AnalyticsPaletteExtraButtons]"]), Style["Blog Tools", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; ToExpression["BlogPalette[]"]), Style["Computations", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression["ComputationPalette[]"]), Style["Databases", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; ToExpression["DatabasesPalette[]"]), Style["Diary Access", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression["DiaryAccessPalette[True]"]), Style["Diary Entries", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; ToExpression["DiaryEntriesPalette[]"]), Style["Diary Entry", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression["DiaryEntryPalette[]"]), Style["Diary Headings", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; ToExpression["DiaryHeadingsPalette[]"]), Style["Diary List", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression["DiaryListPalette[]"]), Style["Diary Templates", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; ToExpression["DiaryTemplatesPalette[]"]), Style["Email", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression[ "EmailPalette[Sequence @@ $EmailPaletteExtraButtons]"]), Style["Essay", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; ToExpression[ "EssayPalette[Sequence @@ $EssayPaletteExtraButtons]"]), Style["Evaluation", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression["EvaluationPalette[]"]), Style["Favorite Palettes", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; ToExpression["FavoritePalettesPalette[]"]), Style["Favorites & Recent", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression["FavoritesAndRecentPalette[]"]), Style["File Sets", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; ToExpression["FileSetsPalette[]"]), Style["Formatting", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression[ "FormattingPalette[Sequence @@ $FormattingPaletteExtraButtons]"]), Style["Form Templates", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; ToExpression["FormTemplatesPalette[]"]), Style["Notebooks", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression["NotebooksPalette[]"]), Style["Notebook Styles", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; ToExpression["NotebookStylesPalette[]"]), Style["Organizations", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression["OrganizationsPalette[]"]), Style["OtherFiles", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; ToExpression["OtherFilesPalette[]"]), Style["Package Programming", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression["PackageProgrammingPalette[]"]), Style["Packages", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; ToExpression["PackagesPalette[]"]), Style["Plugins Loading", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression["PluginsLoadingPalette[]"]), Style["Programming", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; ToExpression["ProgrammingPalette[]"]), Style["RSS Feeds", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression["RSSFeedsPalette[]"]), Style["Style Sheets", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; ToExpression["StyleSheetsPalette[]"]), Style["Tagging", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression["TaggingPalette[$TaggingList]"]), Style["ToDos", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; ToExpression["ToDosPalette[]"]), Style["Web Search", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression["WebSearchPalette[]"]), Style["WorkFlows", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; ToExpression["WorkFlowsPalette[]"]), Delimiter, Style["Custom1", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; ToExpression["Custom1Palette[]"]), Style["Custom2", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression["Custom2Palette[]"]), Style["Custom3", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; ToExpression["Custom3Palette[]"]), Style["Custom4", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression["Custom4Palette[]"]), Style["Custom5", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}] :> (Needs["Diary`Diary`"]; ToExpression["Custom5Palette[]"]), Style["Custom6", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression["Custom6Palette[]"])}, #, 2]& , Evaluator -> Automatic], { 1 -> StyleBox[ "\"WorkLife Tools\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}, StripOnInput -> False], 2 -> StyleBox[ "\"Additional Tools\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False], 3 -> StyleBox[ "\"All Notebooks\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}, StripOnInput -> False], 4 -> StyleBox[ "\"Analytics\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False], 5 -> StyleBox[ "\"Blog Tools\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}, StripOnInput -> False], 6 -> StyleBox[ "\"Computations\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False], 7 -> StyleBox[ "\"Databases\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}, StripOnInput -> False], 8 -> StyleBox[ "\"Diary Access\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False], 9 -> StyleBox[ "\"Diary Entries\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}, StripOnInput -> False], 10 -> StyleBox[ "\"Diary Entry\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False], 11 -> StyleBox[ "\"Diary Headings\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}, StripOnInput -> False], 12 -> StyleBox[ "\"Diary List\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False], 13 -> StyleBox[ "\"Diary Templates\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}, StripOnInput -> False], 14 -> StyleBox[ "\"Email\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False], 15 -> StyleBox[ "\"Essay\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}, StripOnInput -> False], 16 -> StyleBox[ "\"Evaluation\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False], 17 -> StyleBox[ "\"Favorite Palettes\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}, StripOnInput -> False], 18 -> StyleBox[ "\"Favorites & Recent\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False], 19 -> StyleBox[ "\"File Sets\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}, StripOnInput -> False], 20 -> StyleBox[ "\"Formatting\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False], 21 -> StyleBox[ "\"Form Templates\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}, StripOnInput -> False], 22 -> StyleBox[ "\"Notebooks\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False], 23 -> StyleBox[ "\"Notebook Styles\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}, StripOnInput -> False], 24 -> StyleBox[ "\"Organizations\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False], 25 -> StyleBox[ "\"OtherFiles\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}, StripOnInput -> False], 26 -> StyleBox[ "\"Package Programming\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False], 27 -> StyleBox[ "\"Packages\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}, StripOnInput -> False], 28 -> StyleBox[ "\"Plugins Loading\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False], 29 -> StyleBox[ "\"Programming\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}, StripOnInput -> False], 30 -> StyleBox[ "\"RSS Feeds\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False], 31 -> StyleBox[ "\"Style Sheets\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}, StripOnInput -> False], 32 -> StyleBox[ "\"Tagging\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False], 33 -> StyleBox[ "\"ToDos\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}, StripOnInput -> False], 34 -> StyleBox[ "\"Web Search\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False], 35 -> StyleBox[ "\"WorkFlows\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}, StripOnInput -> False], Delimiter, 37 -> StyleBox[ "\"Custom1\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}, StripOnInput -> False], 38 -> StyleBox[ "\"Custom2\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False], 39 -> StyleBox[ "\"Custom3\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}, StripOnInput -> False], 40 -> StyleBox[ "\"Custom4\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False], 41 -> StyleBox[ "\"Custom5\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> RGBColor[ Rational[1, 3], Rational[1, 3], Rational[1, 3]]}, StripOnInput -> False], 42 -> StyleBox[ "\"Custom6\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False]}, StyleBox[ "\"Open a Palette\"", FontColor -> RGBColor[0., 0.30000000000000004`, 0.], FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0], StripOnInput -> False], Background -> Automatic, ImageSize -> Automatic, Appearance -> "ActionMenu", MenuAppearance -> "Menu", FieldSize -> {{1, 30}, 1}, FrameMargins -> {{2, 0}, {-4, -4}}], PopupMenuBox[ Dynamic[{"ActionMenu", Automatic}, Part[{Style[ "Backup", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> Catch[ Module[{}, Needs["Diary`Diary`"]; ToExpression[ "If[!DiaryQ[EvaluationNotebook[]],Throw[Message[DiaryQ::\ notadiary]]]"]; (ToExpression["$CurrentDiaryNotebook=ButtonNotebook[]"]; ToExpression["SetCurrentDiaryDirectoryAndFile[]"]; ToExpression[ "BackupNotebookWithCommentary[EvaluationNotebook[],ShowBackups->\ True];ShowBackups[EvaluationNotebook[]]"]; ToExpression[ "AddRecordToMathematicaUsageDatabase[{\"Backup\",NotebookGUID[\ EvaluationNotebook[]]}]"]; ToExpression[ "WriteCurrentDiaryNameToDiaryAccessPaletteButtons[All]"]; ToExpression["RefreshPalette[$NotebooksPaletteNotebook]"]; ToExpression["RefreshPalette[$OtherFilesPaletteNotebook]"]; ToExpression["RefreshPalette[$PackagesPaletteNotebook]"]; ToExpression["RefreshPalette[$DiaryListPaletteNotebook]"])]], Style["Show Backups", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression["ShowBackups[EvaluationNotebook[],True]"]), Style["Hide Backups", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}] :> (Needs["Diary`Diary`"]; ToExpression["ShowBackups[EvaluationNotebook[],False]"])}, #, 2]& , Evaluator -> Automatic], { 1 -> StyleBox[ "\"Backup\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False], 2 -> StyleBox[ "\"Show Backups\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False], 3 -> StyleBox[ "\"Hide Backups\"", { FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0]}, StripOnInput -> False]}, StyleBox[ "\"Backups\"", FontColor -> RGBColor[0., 0.30000000000000004`, 0.], FontFamily -> "Helvetica", FontWeight -> "Bold", FontSize -> 10, FontColor -> GrayLevel[0], StripOnInput -> False], Background -> Automatic, ImageSize -> Automatic, Appearance -> "ActionMenu", MenuAppearance -> "Menu", FieldSize -> {{1, 30}, 1}, FrameMargins -> {{2, 0}, {-4, -4}}]}]], "Text", TextAlignment -> Center, Editable -> False, Deletable -> False, Copyable -> False, Background -> GrayLevel[0.9], CellFrame -> {{0, 0}, {0.5, 0}}, CellTags -> {"TopToolbarCell"}, CellMargins -> {{0, 0}, {0, 0}}, CellFrameMargins -> {{0, 0}, {1, 3}}, ShowCellBracket -> False, CellDingbat -> None], ShowSelection->True, TaggingRules:>{ "2.0.0", "GUIDTag[242644964562361127106823509983749296987]", "Notebook"}, CreateCellID->True, DefaultNewCellStyle->"Text", FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell["Modify the definitions below to change the default appearance of all \ cells in a given style. \nMake modifications to any definition using commands \ in the Format menu.", "Text"], Cell[ CellGroupData[{ Cell["Style Definitions", "Title"], Cell[ "Modify the definitions below to change the default appearance of all \ cells in a given style. Make modifications to any definition using commands \ in the Format menu.", "Text"], Cell[ CellGroupData[{ Cell["Style Environment Names", "Section"], Cell[ StyleData[All, "Working"], PageWidth -> WindowWidth, CellBracketOptions -> { "Color" -> RGBColor[0.269993, 0.308507, 0.6]}, CellLabelMargins -> {{12, Inherited}, {Inherited, Inherited}}, ScriptMinSize -> 9], Cell[ StyleData[All, "Presentation"], PageWidth -> WindowWidth, CellLabelMargins -> {{24, Inherited}, {Inherited, Inherited}}, ScriptMinSize -> 12], Cell[ StyleData[All, "Condensed"], PageWidth -> WindowWidth, CellLabelMargins -> {{8, Inherited}, {Inherited, Inherited}}, ScriptMinSize -> 8], Cell[ StyleData[All, "SlideShow"], PageWidth -> WindowWidth, ScrollingOptions -> { "PagewiseDisplay" -> True, "VerticalScrollRange" -> Fit}, ShowCellBracket -> False, ScriptMinSize -> 9], Cell[ StyleData[All, "Printout"], PageWidth -> PaperWidth, CellLabelMargins -> {{2, Inherited}, {Inherited, Inherited}}, ScriptMinSize -> 5, PrivateFontOptions -> {"FontType" -> "Outline"}]}, Closed]], Cell[ CellGroupData[{ Cell["Notebook Options", "Section"], Cell[ "The options defined for the style below will be used at the \ Notebook level.", "Text"], Cell[ StyleData["Notebook"], PageHeaders -> {{ Cell[ TextData[{ CounterBox["Page"]}], "PageNumber"], None, Cell[ TextData[{ ValueBox["FileName"]}], "Header"]}, { Cell[ TextData[{ ValueBox["FileName"]}], "Header"], None, Cell[ TextData[{ CounterBox["Page"]}], "PageNumber"]}}, CellFrameLabelMargins -> 6, StyleMenuListing -> None]}, Closed]], Cell[ CellGroupData[{ Cell["Styles for Headings", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["Title"], CellMargins -> {{10, Inherited}, {10, 30}}, CellGroupingRules -> {"TitleGrouping", 0}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LineSpacing -> {1, 11}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Title", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Subtitle", 0}, {"Subsubtitle", 0}}, FontFamily -> "Helvetica", FontSize -> 36, FontWeight -> "Bold"], Cell[ StyleData["Title", "Presentation"], CellMargins -> {{27, 10}, {10, 30}}, LineSpacing -> {1, 0}, FontSize -> 44], Cell[ StyleData["Title", "Condensed"], CellMargins -> {{8, 10}, {4, 8}}, FontSize -> 20], Cell[ StyleData["Title", "SlideShow"]], Cell[ StyleData["Title", "Printout"], CellMargins -> {{2, 10}, {12, 30}}, FontSize -> 24]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subtitle"], CellMargins -> {{10, Inherited}, {20, 2}}, CellGroupingRules -> {"TitleGrouping", 10}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subtitle", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Subsubtitle", 0}}, FontFamily -> "Helvetica", FontSize -> 24], Cell[ StyleData["Subtitle", "Presentation"], CellMargins -> {{27, 10}, {20, 2}}, LineSpacing -> {1, 0}, FontSize -> 36], Cell[ StyleData["Subtitle", "Condensed"], CellMargins -> {{8, 10}, {4, 4}}, FontSize -> 14], Cell[ StyleData["Subtitle", "SlideShow"]], Cell[ StyleData["Subtitle", "Printout"], CellMargins -> {{2, 10}, {12, 8}}, FontSize -> 18]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubtitle"], CellMargins -> {{10, Inherited}, {8, 2}}, CellGroupingRules -> {"TitleGrouping", 20}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsubtitle", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}}, FontFamily -> "Helvetica", FontSize -> 16], Cell[ StyleData["Subsubtitle", "Presentation"], CellMargins -> {{24, 10}, {20, 20}}, LineSpacing -> {1, 0}, FontSize -> 24], Cell[ StyleData["Subsubtitle", "Condensed"], CellMargins -> {{8, 10}, {8, 8}}, FontSize -> 12], Cell[ StyleData["Subsubtitle", "SlideShow"]], Cell[ StyleData["Subsubtitle", "Printout"], CellMargins -> {{2, 10}, {12, 8}}, FontSize -> 14]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Section"], CellFrame -> {{0, 0}, {0, 1}}, CellMargins -> {{10, Inherited}, {8, 25}}, CellGroupingRules -> {"SectionGrouping", 30}, PageBreakBelow -> False, CellFrameMargins -> 4, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LineSpacing -> {1, 2}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Section", CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}}, FontFamily -> "Helvetica", FontSize -> 20, FontWeight -> "Bold"], Cell[ StyleData["Section", "Presentation"], CellMargins -> {{40, 10}, {11, 32}}, LineSpacing -> {1, 0}, FontSize -> 24], Cell[ StyleData["Section", "Condensed"], CellMargins -> {{18, Inherited}, {6, 12}}, FontSize -> 12], Cell[ StyleData["Section", "SlideShow"]], Cell[ StyleData["Section", "Printout"], CellMargins -> {{2, 0}, {7, 22}}, FontSize -> 14]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SubsectionFirst"], CellMargins -> {{20, Inherited}, {8, 12}}, CellGroupingRules -> {"SectionGrouping", 40}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsection", CounterAssignments -> {{"Subsubsection", 0}}, FontFamily -> "Helvetica", FontSize -> 14, FontWeight -> "Bold", Background -> RGBColor[0.893797, 0.937102, 1]], Cell[ StyleData["SubsectionFirst", "Presentation"], CellMargins -> {{36, 10}, {11, 32}}, LineSpacing -> {1, 0}, FontSize -> 22], Cell[ StyleData["SubsectionFirst", "Condensed"], CellMargins -> {{16, Inherited}, {6, 12}}, FontSize -> 12], Cell[ StyleData["SubsectionFirst", "SlideShow"]], Cell[ StyleData["SubsectionFirst", "Printout"], CellMargins -> {{9, 0}, {7, 22}}, FontSize -> 12]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsection"], CellMargins -> {{20, Inherited}, {8, 12}}, CellGroupingRules -> {"SectionGrouping", 40}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsection", CounterAssignments -> {{"Subsubsection", 0}}, FontFamily -> "Helvetica", FontSize -> 14, FontWeight -> "Bold"], Cell[ StyleData["Subsection", "Presentation"], CellMargins -> {{36, 10}, {11, 32}}, LineSpacing -> {1, 0}, FontSize -> 22], Cell[ StyleData["Subsection", "Condensed"], CellMargins -> {{16, Inherited}, {6, 12}}, FontSize -> 12], Cell[ StyleData["Subsection", "SlideShow"]], Cell[ StyleData["Subsection", "Printout"], CellMargins -> {{9, 0}, {7, 22}}, FontSize -> 12]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubsection"], CellMargins -> {{25, Inherited}, {2, 10}}, CellGroupingRules -> {"SectionGrouping", 50}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsubsection", FontFamily -> "Times", FontWeight -> "Bold"], Cell[ StyleData["Subsubsection", "Presentation"], CellMargins -> {{34, 10}, {11, 26}}, LineSpacing -> {1, 0}, FontSize -> 18], Cell[ StyleData["Subsubsection", "Condensed"], CellMargins -> {{17, Inherited}, {6, 12}}, FontSize -> 10], Cell[ StyleData["Subsubsection", "SlideShow"]], Cell[ StyleData["Subsubsection", "Printout"], CellMargins -> {{9, 0}, {7, 14}}, FontSize -> 11]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Styles for Body Text", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["Text"], CellMargins -> {{25, 10}, {7, 7}}, InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica", "gridMathematica" -> FormBox[ RowBox[{"grid", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica" -> FormBox[ RowBox[{"web", AdjustmentBox[ StyleBox["Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, LineSpacing -> {1, 3}, CounterIncrements -> "Text"], Cell[ StyleData["Text", "Presentation"], CellMargins -> {{24, 10}, {10, 10}}, LineSpacing -> {1, 5}, FontSize -> 16], Cell[ StyleData["Text", "Condensed"], CellMargins -> {{8, 10}, {6, 6}}, LineSpacing -> {1, 1}, FontSize -> 11], Cell[ StyleData["Text", "SlideShow"]], Cell[ StyleData["Text", "Printout"], CellMargins -> {{2, 2}, {6, 6}}, TextJustification -> 0.5, Hyphenation -> True, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SmallText"], CellMargins -> {{25, 10}, {6, 6}}, DefaultNewInlineCellStyle -> "None", LineSpacing -> {1, 3}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "SmallText", FontFamily -> "Helvetica", FontSize -> 9], Cell[ StyleData["SmallText", "Presentation"], CellMargins -> {{24, 10}, {8, 8}}, LineSpacing -> {1, 5}, FontSize -> 12], Cell[ StyleData["SmallText", "Condensed"], CellMargins -> {{8, 10}, {5, 5}}, LineSpacing -> {1, 2}, FontSize -> 9], Cell[ StyleData["SmallText", "SlideShow"]], Cell[ StyleData["SmallText", "Printout"], CellMargins -> {{2, 2}, {5, 5}}, TextJustification -> 0.5, Hyphenation -> True, FontSize -> 7]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Styles for Input/Output", "Section"], Cell[ "The cells in this section define styles used for input and output \ to the kernel. Be careful when modifying, renaming, or removing these \ styles, because the front end associates special meanings with these style \ names. Some attributes for these styles are actually set in FormatType Styles \ (in the last section of this stylesheet). ", "Text"], Cell[ CellGroupData[{ Cell[ StyleData["Input"], CellMargins -> {{25, 10}, {5, 7}}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, DefaultFormatType -> DefaultInputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> "Mathematica", FormatType -> InputForm, ShowStringCharacters -> True, NumberMarks -> True, LinebreakAdjustments -> {0.85, 2, 10, 0, 1}, CounterIncrements -> "Input", FontWeight -> "Bold"], Cell[ StyleData["Input", "Presentation"], CellMargins -> {{72, Inherited}, {8, 10}}, LineSpacing -> {1, 0}, FontSize -> 16], Cell[ StyleData["Input", "Condensed"], CellMargins -> {{40, 10}, {2, 3}}, FontSize -> 11], Cell[ StyleData["Input", "SlideShow"]], Cell[ StyleData["Input", "Printout"], CellMargins -> {{39, 0}, {4, 6}}, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}, FontSize -> 9]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["InputOnly"], CellMargins -> {{25, 10}, {7, 7}}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", CellHorizontalScrolling -> True, DefaultFormatType -> DefaultInputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> "Mathematica", FormatType -> InputForm, ShowStringCharacters -> True, NumberMarks -> True, LinebreakAdjustments -> {0.85, 2, 10, 0, 1}, CounterIncrements -> "Input", StyleMenuListing -> None, FontWeight -> "Bold"], Cell[ StyleData["InputOnly", "Presentation"], CellMargins -> {{72, Inherited}, {8, 10}}, LineSpacing -> {1, 0}, FontSize -> 16], Cell[ StyleData["InputOnly", "Condensed"], CellMargins -> {{40, 10}, {2, 3}}, FontSize -> 11], Cell[ StyleData["InputOnly", "SlideShow"]], Cell[ StyleData["InputOnly", "Printout"], CellMargins -> {{39, 0}, {4, 6}}, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Output"], CellMargins -> {{30, 10}, {7, 5}}, CellEditDuplicate -> True, CellGroupingRules -> "OutputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, DefaultFormatType -> DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> None, FormatType -> InputForm, CounterIncrements -> "Output"], Cell[ StyleData["Output", "Presentation"], CellMargins -> {{72, Inherited}, {10, 8}}, LineSpacing -> {1, 0}, FontSize -> 16], Cell[ StyleData["Output", "Condensed"], CellMargins -> {{41, Inherited}, {3, 2}}, FontSize -> 11], Cell[ StyleData["Output", "SlideShow"]], Cell[ StyleData["Output", "Printout"], CellMargins -> {{39, 0}, {6, 4}}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Message"], CellMargins -> {{66, Inherited}, {Inherited, Inherited}}, CellGroupingRules -> "OutputGrouping", PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, ShowCellLabel -> False, DefaultFormatType -> DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> None, FormatType -> InputForm, CounterIncrements -> "Message", StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 10, FontColor -> RGBColor[0.6, 0.100008, 0.100008]], Cell[ StyleData["Message", "Presentation"], CellMargins -> {{72, Inherited}, {Inherited, Inherited}}, LineSpacing -> {1, 0}, FontSize -> 16], Cell[ StyleData["Message", "Condensed"], CellMargins -> {{41, Inherited}, {Inherited, Inherited}}, FontSize -> 11], Cell[ StyleData["Message", "SlideShow"]], Cell[ StyleData["Message", "Printout"], CellMargins -> {{39, Inherited}, {Inherited, Inherited}}, FontSize -> 7, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Print"], CellMargins -> {{66, Inherited}, {Inherited, Inherited}}, CellGroupingRules -> "OutputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, ShowCellLabel -> False, DefaultFormatType -> DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> None, FormatType -> InputForm, CounterIncrements -> "Print", StyleMenuListing -> None], Cell[ StyleData["Print", "Presentation"], CellMargins -> {{72, Inherited}, {Inherited, Inherited}}, LineSpacing -> {1, 0}, FontSize -> 16], Cell[ StyleData["Print", "Condensed"], CellMargins -> {{41, Inherited}, {Inherited, Inherited}}, FontSize -> 11], Cell[ StyleData["Print", "SlideShow"]], Cell[ StyleData["Print", "Printout"], CellMargins -> {{39, Inherited}, {Inherited, Inherited}}, FontSize -> 8]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Graphics"], CellMargins -> {{30, Inherited}, {Inherited, Inherited}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, ShowCellLabel -> False, DefaultFormatType -> DefaultOutputFormatType, LanguageCategory -> None, FormatType -> InputForm, CounterIncrements -> "Graphics", ImageMargins -> {{43, Inherited}, {Inherited, 0}}, StyleMenuListing -> None, FontFamily -> "Courier", FontSize -> 10], Cell[ StyleData["Graphics", "Presentation"], ImageMargins -> {{62, Inherited}, {Inherited, 0}}], Cell[ StyleData["Graphics", "Condensed"], ImageMargins -> {{38, Inherited}, {Inherited, 0}}, Magnification -> 0.6], Cell[ StyleData["Graphics", "SlideShow"]], Cell[ StyleData["Graphics", "Printout"], ImageMargins -> {{30, Inherited}, {Inherited, 0}}, Magnification -> 0.8]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["CellLabel"], LanguageCategory -> None, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 9, FontColor -> RGBColor[0.269993, 0.308507, 0.6]], Cell[ StyleData["CellLabel", "Presentation"], FontSize -> 12], Cell[ StyleData["CellLabel", "Condensed"], FontSize -> 9], Cell[ StyleData["CellLabel", "SlideShow"]], Cell[ StyleData["CellLabel", "Printout"], FontFamily -> "Courier", FontSize -> 8, FontSlant -> "Italic", FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["FrameLabel"], LanguageCategory -> None, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 9], Cell[ StyleData["FrameLabel", "Presentation"], FontSize -> 12], Cell[ StyleData["FrameLabel", "Condensed"], FontSize -> 9], Cell[ StyleData["FrameLabel", "SlideShow"]], Cell[ StyleData["FrameLabel", "Printout"], FontFamily -> "Courier", FontSize -> 8, FontSlant -> "Italic", FontColor -> GrayLevel[0]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Inline Formatting", "Section"], Cell[ "These styles are for modifying individual words or letters in a \ cell exclusive of the cell tag.", "Text"], Cell[ StyleData["RM"], StyleMenuListing -> None, FontWeight -> "Plain", FontSlant -> "Plain"], Cell[ StyleData["BF"], StyleMenuListing -> None, FontWeight -> "Bold"], Cell[ StyleData["IT"], StyleMenuListing -> None, FontSlant -> "Italic"], Cell[ StyleData["TR"], StyleMenuListing -> None, FontFamily -> "Times", FontWeight -> "Plain", FontSlant -> "Plain"], Cell[ StyleData["TI"], StyleMenuListing -> None, FontFamily -> "Times", FontWeight -> "Plain", FontSlant -> "Italic"], Cell[ StyleData["TB"], StyleMenuListing -> None, FontFamily -> "Times", FontWeight -> "Bold", FontSlant -> "Plain"], Cell[ StyleData["TBI"], StyleMenuListing -> None, FontFamily -> "Times", FontWeight -> "Bold", FontSlant -> "Italic"], Cell[ StyleData["MR"], "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Plain", FontSlant -> "Plain"], Cell[ StyleData["MO"], "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Plain", FontSlant -> "Italic"], Cell[ StyleData["MB"], "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Bold", FontSlant -> "Plain"], Cell[ StyleData["MBO"], "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Bold", FontSlant -> "Italic"], Cell[ StyleData["SR"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Plain", FontSlant -> "Plain"], Cell[ StyleData["SO"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Plain", FontSlant -> "Italic"], Cell[ StyleData["SB"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Bold", FontSlant -> "Plain"], Cell[ StyleData["SBO"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Bold", FontSlant -> "Italic"], Cell[ CellGroupData[{ Cell[ StyleData["SO10"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 10, FontWeight -> "Plain", FontSlant -> "Italic"], Cell[ StyleData["SO10", "Printout"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 7, FontWeight -> "Plain", FontSlant -> "Italic"]}, Closed]], 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]]}, Closed]], Cell[ CellGroupData[{ Cell["Formulas and Programming", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["InlineFormula"], CellMargins -> {{10, 4}, {0, 8}}, CellHorizontalScrolling -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", ScriptLevel -> 1, SingleLetterItalics -> True], Cell[ StyleData["InlineFormula", "Presentation"], CellMargins -> {{24, 10}, {10, 10}}, LineSpacing -> {1, 5}, FontSize -> 16], Cell[ StyleData["InlineFormula", "Condensed"], CellMargins -> {{8, 10}, {6, 6}}, LineSpacing -> {1, 1}, FontSize -> 11], Cell[ StyleData["InlineFormula", "SlideShow"]], Cell[ StyleData["InlineFormula", "Printout"], CellMargins -> {{2, 0}, {6, 6}}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["DisplayFormula"], CellMargins -> {{60, Inherited}, {Inherited, Inherited}}, CellHorizontalScrolling -> True, DefaultFormatType -> DefaultInputFormatType, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", ScriptLevel -> 0, SingleLetterItalics -> True, UnderoverscriptBoxOptions -> {LimitsPositioning -> True}], Cell[ StyleData["DisplayFormula", "Presentation"], LineSpacing -> {1, 5}, FontSize -> 16], Cell[ StyleData["DisplayFormula", "Condensed"], LineSpacing -> {1, 1}, FontSize -> 11], Cell[ StyleData["DisplayFormula", "SlideShow"]], Cell[ StyleData["DisplayFormula", "Printout"], FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Program"], CellFrame -> {{0, 0}, {0.5, 0.5}}, CellMargins -> {{60, 4}, {0, 8}}, CellHorizontalScrolling -> True, Hyphenation -> False, LanguageCategory -> "Formula", ScriptLevel -> 1, FontFamily -> "Courier"], Cell[ StyleData["Program", "Presentation"], CellMargins -> {{24, 10}, {10, 10}}, LineSpacing -> {1, 5}, FontSize -> 16], Cell[ StyleData["Program", "Condensed"], CellMargins -> {{8, 10}, {6, 6}}, LineSpacing -> {1, 1}, FontSize -> 11], Cell[ StyleData["Program", "SlideShow"]], Cell[ StyleData["Program", "Printout"], CellMargins -> {{2, 0}, {6, 6}}, FontSize -> 9]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Outline Styles", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["Outline1"], CellMargins -> {{60, 10}, {7, 7}}, CellGroupingRules -> {"SectionGrouping", 50}, ParagraphIndent -> -38, CounterIncrements -> "Outline1", CounterAssignments -> {{"Outline2", 0}, {"Outline3", 0}, { "Outline4", 0}}, FontSize -> 18, FontWeight -> "Bold", CounterBoxOptions -> { CounterFunction :> Global`CapitalRomanNumeral}], Cell[ StyleData["Outline1", "SlideShow"]], Cell[ StyleData["Outline1", "Printout"], CounterBoxOptions -> { CounterFunction :> Global`CapitalRomanNumeral}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Outline2"], CellMargins -> {{90, 10}, {7, 7}}, 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", "SlideShow"]], Cell[ StyleData["Outline2", "Printout"], CounterBoxOptions -> {CounterFunction :> (Part[ CharacterRange["A", "Z"], #]& )}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Outline3"], CellMargins -> {{120, 10}, {7, 7}}, CellGroupingRules -> {"SectionGrouping", 70}, ParagraphIndent -> -21, CounterIncrements -> "Outline3", CounterAssignments -> {{"Outline4", 0}}, FontSize -> 12, CounterBoxOptions -> {CounterFunction :> Identity}], Cell[ StyleData["Outline3", "SlideShow"]], Cell[ StyleData["Outline3", "Printout"], CounterBoxOptions -> {CounterFunction :> Identity}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Outline4"], CellMargins -> {{150, 10}, {7, 7}}, CellGroupingRules -> {"SectionGrouping", 80}, ParagraphIndent -> -18, CounterIncrements -> "Outline4", FontSize -> 10, CounterBoxOptions -> {CounterFunction :> (Part[ CharacterRange["a", "z"], #]& )}], Cell[ StyleData["Outline4", "SlideShow"]], Cell[ StyleData["Outline4", "Printout"]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Hyperlink Styles", "Section"], Cell[ "The cells below define styles useful for making hypertext \ ButtonBoxes. The \"Hyperlink\" style is for links within the same Notebook, \ or between Notebooks.", "Text"], Cell[ CellGroupData[{ Cell[ StyleData["Hyperlink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontColor -> RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions -> { Active -> True, ButtonFrame -> "None", ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookLocate[#2]}]& ), ButtonNote -> ButtonData}], Cell[ StyleData["Hyperlink", "Presentation"], FontSize -> 16], Cell[ StyleData["Hyperlink", "Condensed"], FontSize -> 11], Cell[ StyleData["Hyperlink", "SlideShow"]], Cell[ StyleData["Hyperlink", "Printout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ "The following styles are for linking automatically to the on-line \ help system.", "Text"], Cell[ CellGroupData[{ Cell[ StyleData["MainBookLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontColor -> RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions -> { Active -> True, ButtonFrame -> "None", ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["MainBook", #]}]& )}], Cell[ StyleData["MainBookLink", "Presentation"], FontSize -> 16], Cell[ StyleData["MainBookLink", "Condensed"], FontSize -> 11], Cell[ StyleData["MainBookLink", "SlideShow"]], Cell[ StyleData["MainBookLink", "Printout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["AddOnsLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontFamily -> "Courier", FontColor -> RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions -> { Active -> True, ButtonFrame -> "None", ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["AddOns", #]}]& )}], Cell[ StyleData["AddOnsLink", "Presentation"], FontSize -> 16], Cell[ StyleData["AddOnsLink", "Condensed"], FontSize -> 11], Cell[ StyleData["AddOnsLink", "SlideShow"]], Cell[ StyleData["AddOnsLink", "Printout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["RefGuideLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontFamily -> "Courier", FontColor -> RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions -> { Active -> True, ButtonFrame -> "None", ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["RefGuide", #]}]& )}], Cell[ StyleData["RefGuideLink", "Presentation"], FontSize -> 16], Cell[ StyleData["RefGuideLink", "Condensed"], FontSize -> 11], Cell[ StyleData["RefGuideLink", "SlideShow"]], Cell[ StyleData["RefGuideLink", "Printout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["RefGuideLinkText"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontColor -> RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions -> { Active -> True, ButtonFrame -> "None", ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["RefGuide", #]}]& )}], Cell[ StyleData["RefGuideLinkText", "Presentation"], FontSize -> 16], Cell[ StyleData["RefGuideLinkText", "Condensed"], FontSize -> 11], Cell[ StyleData["RefGuideLinkText", "SlideShow"]], Cell[ StyleData["RefGuideLinkText", "Printout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["GettingStartedLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontColor -> RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions -> { Active -> True, ButtonFrame -> "None", ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["GettingStarted", #]}]& )}], Cell[ StyleData["GettingStartedLink", "Presentation"], FontSize -> 16], Cell[ StyleData["GettingStartedLink", "Condensed"], FontSize -> 11], Cell[ StyleData["GettingStartedLink", "SlideShow"]], Cell[ StyleData["GettingStartedLink", "Printout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["DemosLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontColor -> RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions -> { Active -> True, ButtonFrame -> "None", ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["Demos", #]}]& )}], Cell[ StyleData["DemosLink", "SlideShow"]], Cell[ StyleData["DemosLink", "Printout"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["TourLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontColor -> RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions -> { Active -> True, ButtonFrame -> "None", ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["Tour", #]}]& )}], Cell[ StyleData["TourLink", "SlideShow"]], Cell[ StyleData["TourLink", "Printout"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["OtherInformationLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontColor -> RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions -> { Active -> True, ButtonFrame -> "None", ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["OtherInformation", #]}]& )}], Cell[ StyleData["OtherInformationLink", "Presentation"], FontSize -> 16], Cell[ StyleData["OtherInformationLink", "Condensed"], FontSize -> 11], Cell[ StyleData["OtherInformationLink", "SlideShow"]], Cell[ StyleData["OtherInformationLink", "Printout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["MasterIndexLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontColor -> RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions -> { Active -> True, ButtonFrame -> "None", ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["MasterIndex", #]}]& )}], Cell[ StyleData["MasterIndexLink", "SlideShow"]], Cell[ StyleData["MasterIndexLink", "Printout"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Styles for Headers and Footers", "Section"], Cell[ StyleData["Header"], CellMargins -> {{0, 0}, {4, 1}}, DefaultNewInlineCellStyle -> "None", LanguageCategory -> "NaturalLanguage", StyleMenuListing -> None, FontSize -> 10, FontSlant -> "Italic"], Cell[ StyleData["Footer"], CellMargins -> {{0, 0}, {0, 4}}, DefaultNewInlineCellStyle -> "None", LanguageCategory -> "NaturalLanguage", StyleMenuListing -> None, FontSize -> 9, FontSlant -> "Italic"], Cell[ StyleData["PageNumber"], CellMargins -> {{0, 0}, {4, 1}}, StyleMenuListing -> None, FontFamily -> "Times", FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell["Palette Styles", "Section"], Cell[ "The cells below define styles that define standard ButtonFunctions, \ for use in palette buttons.", "Text"], Cell[ StyleData["Paste"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, Placeholder]}]& )}], Cell[ StyleData["Evaluate"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, All], FrontEnd`SelectionEvaluate[ FrontEnd`InputNotebook[], All]}]& )}], Cell[ StyleData["EvaluateCell"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, All], FrontEnd`SelectionMove[ FrontEnd`InputNotebook[], All, Cell, 1], FrontEnd`SelectionEvaluateCreateCell[ FrontEnd`InputNotebook[], All]}]& )}], Cell[ StyleData["CopyEvaluate"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ FrontEnd`SelectionCreateCell[ FrontEnd`InputNotebook[], All], FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, All], FrontEnd`SelectionEvaluate[ FrontEnd`InputNotebook[], All]}]& )}], Cell[ StyleData["CopyEvaluateCell"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ FrontEnd`SelectionCreateCell[ FrontEnd`InputNotebook[], All], FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, All], FrontEnd`SelectionEvaluateCreateCell[ FrontEnd`InputNotebook[], All]}]& )}]}, Closed]], Cell[ CellGroupData[{ Cell["Placeholder Styles", "Section"], Cell[ "The cells below define styles useful for making placeholder objects \ in palette templates.", "Text"], Cell[ CellGroupData[{ Cell[ StyleData["Placeholder"], Placeholder -> True, StyleMenuListing -> None, FontSlant -> "Italic", FontColor -> RGBColor[0.890623, 0.864698, 0.384756], TagBoxOptions -> { Editable -> False, Selectable -> False, StripWrapperBoxes -> False}], Cell[ StyleData["Placeholder", "Presentation"]], Cell[ StyleData["Placeholder", "Condensed"]], Cell[ StyleData["Placeholder", "SlideShow"]], Cell[ StyleData["Placeholder", "Printout"]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["PrimaryPlaceholder"], StyleMenuListing -> None, DrawHighlighted -> True, FontSlant -> "Italic", Background -> RGBColor[0.912505, 0.891798, 0.507774], TagBoxOptions -> { Editable -> False, Selectable -> False, StripWrapperBoxes -> False}], Cell[ StyleData["PrimaryPlaceholder", "Presentation"]], Cell[ StyleData["PrimaryPlaceholder", "Condensed"]], Cell[ StyleData["PrimaryPlaceholder", "SlideShow"]], Cell[ StyleData["PrimaryPlaceholder", "Printout"]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["FormatType Styles", "Section"], Cell[ "The cells below define styles that are mixed in with the styles of \ most cells. If a cell's FormatType matches the name of one of the styles \ defined below, then that style is applied between the cell's style and its \ own options. This is particularly true of Input and Output.", "Text"], Cell[ StyleData["CellExpression"], PageWidth -> DirectedInfinity[1], CellMargins -> {{6, Inherited}, {Inherited, Inherited}}, ShowCellLabel -> False, ShowSpecialCharacters -> False, AllowInlineCells -> False, Hyphenation -> False, AutoItalicWords -> {}, StyleMenuListing -> None, FontFamily -> "Courier", FontSize -> 12, Background -> GrayLevel[1]], Cell[ StyleData["InputForm"], InputAutoReplacements -> {}, AllowInlineCells -> False, Hyphenation -> False, StyleMenuListing -> None, FontFamily -> "Courier"], Cell[ StyleData["OutputForm"], PageWidth -> DirectedInfinity[1], TextAlignment -> Left, LineSpacing -> {0.6, 1}, StyleMenuListing -> None, FontFamily -> "Courier"], Cell[ StyleData["StandardForm"], InputAutoReplacements -> { "->" -> "\[Rule]", ":>" -> "\[RuleDelayed]", "<=" -> "\[LessEqual]", ">=" -> "\[GreaterEqual]", "!=" -> "\[NotEqual]", "==" -> "\[Equal]", Inherited}, "TwoByteSyntaxCharacterAutoReplacement" -> True, LineSpacing -> {1.25, 0}, StyleMenuListing -> None, FontFamily -> "Courier"], Cell[ StyleData["TraditionalForm"], InputAutoReplacements -> { "->" -> "\[Rule]", ":>" -> "\[RuleDelayed]", "<=" -> "\[LessEqual]", ">=" -> "\[GreaterEqual]", "!=" -> "\[NotEqual]", "==" -> "\[Equal]", Inherited}, "TwoByteSyntaxCharacterAutoReplacement" -> True, LineSpacing -> {1.25, 0}, SingleLetterItalics -> True, TraditionalFunctionNotation -> True, DelimiterMatching -> None, StyleMenuListing -> None], Cell[ "The style defined below is mixed in to any cell that is in an \ inline cell within another.", "Text"], Cell[ StyleData["InlineCell"], LanguageCategory -> "Formula", ScriptLevel -> 1, StyleMenuListing -> None], Cell[ StyleData["InlineCellEditing"], StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216]]}, Closed]], Cell[ CellGroupData[{ Cell["Automatic Styles", "Section"], Cell[ "The cells below define styles that are used to affect the display \ of certain types of objects in typeset expressions. For example, \ \"UnmatchedBracket\" style defines how unmatched bracket, curly bracket, and \ parenthesis characters are displayed (typically by coloring them to make them \ stand out).", "Text"], Cell[ StyleData["UnmatchedBracket"], StyleMenuListing -> None, FontColor -> RGBColor[0.760006, 0.330007, 0.8]], Cell[ StyleData["Completions"], StyleMenuListing -> None, FontFamily -> "Courier"]}, Closed]], Cell[ CellGroupData[{ Cell["Styles from HelpBrowser", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["MathCaption"], CellFrame -> {{0, 0}, {0, 0.5}}, CellMargins -> {{40, 12}, {2, 15}}, PageBreakBelow -> False, CellFrameMargins -> {{8, 8}, {8, 2}}, CellFrameColor -> GrayLevel[0.700008], CellFrameLabelMargins -> 4, LineSpacing -> {1, 1}, ParagraphSpacing -> {0, 8}, StyleMenuListing -> None, FontColor -> GrayLevel[0.2]], Cell[ StyleData["MathCaption", "Presentation"], FontSize -> 18], Cell[ StyleData["MathCaption", "SlideShow"]], Cell[ StyleData["MathCaption", "Printout"], CellMargins -> {{39, 0}, {0, 14}}, Hyphenation -> True, FontSize -> 9, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ObjectName"], ShowCellBracket -> True, CellMargins -> {{66, 4}, {8, 8}}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", PageBreakWithin -> False, GroupPageBreakWithin -> False, CellLabelAutoDelete -> False, CellLabelMargins -> {{14, Inherited}, {Inherited, Inherited}}, DefaultFormatType -> DefaultInputFormatType, ShowSpecialCharacters -> Automatic, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Mathematica", FormatType -> StandardForm, ShowStringCharacters -> True, NumberMarks -> True, StyleMenuListing -> None, FontWeight -> "Bold"], Cell[ StyleData["ObjectName", "Presentation"], FontSize -> 18], Cell[ StyleData["ObjectName", "SlideShow"]], Cell[ StyleData["ObjectName", "Printout"], ShowCellBracket -> False, CellMargins -> {{39, 0}, {6, 6}}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Usage"], ShowCellBracket -> True, CellMargins -> {{66, 4}, {8, 8}}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", PageBreakWithin -> False, GroupPageBreakWithin -> False, CellLabelAutoDelete -> False, CellLabelMargins -> {{14, Inherited}, {Inherited, Inherited}}, DefaultFormatType -> DefaultInputFormatType, ShowSpecialCharacters -> Automatic, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Mathematica", FormatType -> StandardForm, ShowStringCharacters -> True, NumberMarks -> True, StyleMenuListing -> None, FontWeight -> "Bold"], Cell[ StyleData["Usage", "Presentation"], FontSize -> 18], Cell[ StyleData["Usage", "SlideShow"]], Cell[ StyleData["Usage", "Printout"], ShowCellBracket -> False, CellMargins -> {{39, 0}, {6, 6}}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Notes"], ShowCellBracket -> True, CellMargins -> {{40, 4}, {8, 8}}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", PageBreakWithin -> False, GroupPageBreakWithin -> False, CellLabelAutoDelete -> False, CellLabelMargins -> {{14, Inherited}, {Inherited, Inherited}}, DefaultFormatType -> DefaultInputFormatType, ShowSpecialCharacters -> Automatic, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Mathematica", FormatType -> StandardForm, ShowStringCharacters -> True, NumberMarks -> True, StyleMenuListing -> None, FontWeight -> "Bold"], Cell[ StyleData["Notes", "Presentation"], FontSize -> 18], Cell[ StyleData["Notes", "SlideShow"]], Cell[ StyleData["Notes", "Printout"], ShowCellBracket -> False, CellMargins -> {{39, 0}, {6, 6}}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["InlineOutput"], ShowCellBracket -> True, CellMargins -> {{66, 4}, {8, 8}}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", PageBreakWithin -> False, GroupPageBreakWithin -> False, CellLabelAutoDelete -> False, CellLabelMargins -> {{14, Inherited}, {Inherited, Inherited}}, DefaultFormatType -> DefaultInputFormatType, ShowSpecialCharacters -> Automatic, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Mathematica", FormatType -> StandardForm, ShowStringCharacters -> True, NumberMarks -> True, StyleMenuListing -> None, FontWeight -> "Bold"], Cell[ StyleData["InlineOutput", "Presentation"], FontSize -> 18], Cell[ StyleData["InlineOutput", "SlideShow"]], Cell[ StyleData["InlineOutput", "Printout"], ShowCellBracket -> False, CellMargins -> {{39, 0}, {6, 6}}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell["Emphasis Boxes and Pictures", "Subsection"], Cell[ CellGroupData[{ Cell[ StyleData["Box"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> {BoxFrame -> 0.5, 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", "SlideShow"]], Cell[ StyleData["Box", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["DoubleBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> {BoxFrame -> 0.5, FrameMargins -> True}, GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Top}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[1.4]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["DoubleBox", "Presentation"], FontSize -> 18], Cell[ StyleData["DoubleBox", "SlideShow"]], Cell[ StyleData["DoubleBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["1ColumnBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], LineIndent -> 0, StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> {BoxFrame -> 0.5, FrameMargins -> True}, GridBoxOptions -> {GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["1ColumnBox", "Presentation"], FontSize -> 18], Cell[ StyleData["1ColumnBox", "SlideShow"]], Cell[ StyleData["1ColumnBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["2ColumnBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], SingleLetterItalics -> False, LineIndent -> 0, StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> {BoxFrame -> 0.5, FrameMargins -> True}, GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> { Scaled[0.31], { Scaled[0.67]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["2ColumnBox", "Presentation"], FontSize -> 18], Cell[ StyleData["2ColumnBox", "SlideShow"]], Cell[ StyleData["2ColumnBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 9, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["2ColumnEvenBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.74902, 0.694118, 0.552941], LineIndent -> 0, StyleMenuListing -> None, Background -> RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions -> {BoxFrame -> 0.5, FrameMargins -> True}, GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> {{ Scaled[0.46]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["2ColumnEvenBox", "Presentation"], FontSize -> 18], Cell[ StyleData["2ColumnEvenBox", "SlideShow"]], Cell[ StyleData["2ColumnEvenBox", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 10, Background -> GrayLevel[0.900008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["2ColumnSmallBox"], CellFrame -> 0.5, CellMargins -> {{27, 12}, {0, 8}}, CellHorizontalScrolling ->