(*********************************************************************** Mathematica-Compatible Notebook This notebook can be used on any computer system with Mathematica 4.0, MathReader 4.0, or any compatible application. The data for the notebook starts with the line containing stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. ***********************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 15342, 606]*) (*NotebookOutlinePosition[ 51048, 1908]*) (* CellTagsIndexPosition[ 51004, 1904]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["Developing Notebooks in Version 4.0", "Title"], Cell[CellGroupData[{ Cell["Speaker", "Section"], Cell["\<\ Richard Mercer Wright State University\ \>", "Text"], Cell["\<\ richard.mercer@wright.edu http://www.math.wright.edu/People/Richard_Mercer/\ \>", "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Notebooks", "Subtitle"], Cell[CellGroupData[{ Cell["What NOT to do when developing notebooks.", "Section"], Cell["Do NOT directly specify fonts without a very good reason!", "Text"], Cell["Use style sheets instead.", "SmallText"], Cell["Do NOT specify font sizes, even WITH a very good reason!", "Text", FontSize->16], Cell["\<\ Cells with \"hard-coded\" font sizes will not be adapted for \ presentation or printout. \ \>", "SmallText"], Cell["MINIMIZE the use of pasted external graphics.", "Text"], Cell["They are not platform independent.", "SmallText"], Cell["\<\ MINIMIZE the use of ad hoc stylistic variations, e.g. underlined, outlined, or shadowed fonts, colored text and \ background\ \>", "Text"], Cell[TextData[{ "Do NOT use ", StyleBox["private", FontSlant->"Italic"], " style sheets for your notebooks. \nUse a ", StyleBox["shared", FontSlant->"Italic"], " style sheet or sheets." }], "Text"] }, Closed]], Cell[CellGroupData[{ Cell["What to DO when developing notebooks.", "Section"], Cell[TextData[Cell[BoxData[GridBox[{ {"1.", \(DO\ create\ your\ own\ custom\ style\ sheet \((s)\), and\ create\ as\ many\ new\ styles\ \[IndentingNewLine] as\ you\ need\ to\ cover\ recurring\ stylistic\ \(\(variations\)\(.\ \)\)\)}, {"2.", \(DO\ use\ inline\ cells\ as\ often\ as\ desired\ for\ \ typographic\ convenience\ \(\((see\ below)\)\(.\)\)\)}, {"3.", \(DO\ use\ gridboxes\ to\ organize\ and\ layout\ text\ \ \(\((and\ graphics\ in\ version\ \(4.0!\))\)\(.\)\)\)} }]]]], "Text", PageWidth->WindowWidth, GridBoxOptions->{ColumnAlignments->{Left}}], Cell["But also ask for true tabs!", "SmallText"] }, Closed]], Cell[CellGroupData[{ Cell["\"Show Expression\" Form: How to clean up a notebook.", "Section"], Cell["\<\ A notebook that has been \"upgraded\" from a pre-3.0 version, or \ developed without proper care, can contain a lot of \"junk\" under the \ surface. Although mostly harmless, this junk can inflate the size of the \ notebook or occasionally cause strange behavior. \ \>", "Text"], Cell[CellGroupData[{ Cell["General", "Subsection"], Cell[TextData[{ "Use ", StyleBox["Kernel/Delete All Output", FontWeight->"Bold"], " menu item." }], "Text"], Cell[TextData[{ "Use ", StyleBox["Format/Remove All Options", FontWeight->"Bold"], "... menu item. Click on ", StyleBox["OK", FontWeight->"Bold"], " (NOT on ", StyleBox["Recursive", FontWeight->"Bold"], ")." }], "Text"] }, Closed]], Cell[CellGroupData[{ Cell["Specific", "Subsection"], Cell[TextData[{ StyleBox["Select All", FontWeight->"Bold"], " and use ", StyleBox["Format/Show Expression", FontWeight->"Bold"], " menu item. Search for" }], "Text"], Cell[TextData[{ StyleBox["FontSize", FontWeight->"Bold"], ": remove all or unneeded options of the form FontSize\[Rule]_" }], "Text"], Cell[TextData[{ StyleBox["FontColor", FontWeight->"Bold"], ": remove unneeded options of the form FontColor\[Rule]_" }], "Text"], Cell[TextData[{ StyleBox["FontFamily", FontWeight->"Bold"], ": remove all or unneeded options of the form FontFamily\[Rule]_" }], "Text"], Cell[TextData[{ StyleBox["FontVariations", FontWeight->"Bold"], ": Repair instances of options such as \ FontVariations\[Rule]{\"CompatibilityType\"\[Rule]\"Superscript\"} by \ deleting the old superscript or subscript and creating a proper superscript \ or subscript using 3.0 features. " }], "Text"], Cell[TextData[{ StyleBox["FormBox or StyleBox", FontWeight->"Bold"], ": delete unneeded instances of the FormBox and StyleBox constructions. \ (This requires some experience and/or experimentation.)" }], "Text"], Cell["\<\ While in \"Show Expression\" format, scan for obvious redundancies.\ \ \>", "Text"], Cell[TextData[{ StyleBox["Select All", FontWeight->"Bold"], " and use ", StyleBox["Format/Show Expression", FontWeight->"Bold"], " menu item again to return notebook to proper format." }], "Text"], Cell[CellGroupData[{ Cell["Example: Before", "Subsubsection"], Cell[TextData[{ StyleBox["x = cos(t) y = sin(t) x", Evaluatable->False, TextAlignment->Center, AspectRatioFixed->True, FontColor->RGBColor[1, 0, 0]], StyleBox["2", Evaluatable->False, TextAlignment->Center, AspectRatioFixed->True, FontSize->12, FontColor->RGBColor[1, 0, 0], FontVariations->{"CompatibilityType"->"Superscript"}], StyleBox[" + y", Evaluatable->False, TextAlignment->Center, AspectRatioFixed->True, FontColor->RGBColor[1, 0, 0]], StyleBox["2", Evaluatable->False, TextAlignment->Center, AspectRatioFixed->True, FontSize->12, FontColor->RGBColor[1, 0, 0], FontVariations->{"CompatibilityType"->"Superscript"}], StyleBox[" = cos", Evaluatable->False, TextAlignment->Center, AspectRatioFixed->True, FontColor->RGBColor[1, 0, 0]], StyleBox["2", Evaluatable->False, TextAlignment->Center, AspectRatioFixed->True, FontSize->12, FontColor->RGBColor[1, 0, 0], FontVariations->{"CompatibilityType"->"Superscript"}], StyleBox["(t) + sin", Evaluatable->False, TextAlignment->Center, AspectRatioFixed->True, FontColor->RGBColor[1, 0, 0]], StyleBox["2", Evaluatable->False, TextAlignment->Center, AspectRatioFixed->True, FontSize->12, FontColor->RGBColor[1, 0, 0], FontVariations->{"CompatibilityType"->"Superscript"}], StyleBox["(t) = 1", Evaluatable->False, TextAlignment->Center, AspectRatioFixed->True, FontColor->RGBColor[1, 0, 0]] }], "Text", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell["Example: After ", "Subsubsection"], Cell[BoxData[ FormBox[GridBox[{ {GridBox[{ {\(x = \ cos \((t)\)\), \(y = sin \((t)\)\), \(x\^2 + y\^2 = \(\(cos\^2\) \((t)\) + \(sin\^2\) \((t)\) = 1\)\)} }], " "} }], TextForm]], "Text", FontColor->RGBColor[1, 0, 0], GridBoxOptions->{ColumnSpacings->1}] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Preparing Notebooks for Printing", "Section"], Cell[CellGroupData[{ Cell["\<\ Should you maintain different notebooks for screen use and for \ printing?\ \>", "Subsection"], Cell["\<\ I have still found it necessary to do this, although it is only in \ the very last step that I create a separate printing notebook. The issues that lead me to do this are:\ \>", "Text"], Cell["\<\ I want to have output (esp. graphics) in the printed version but \ not in the on-screen version\ \>", "Text"], Cell["\<\ I want to change color body text to black and white for printing.\ \ \>", "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Steps to Take", "Subsection"], Cell["Remove .nb extension from filename (Mac only?) ", "Text", CellDingbat->"\[FilledSmallCircle]"], Cell["Set Format/Screen Style Environment menu item to \"Printout\".", "Text", CellDingbat->"\[FilledSmallCircle]"], Cell["Scan for color text and reset to black.", "Text", CellDingbat->"\[FilledSmallCircle]"], Cell["Hide In/Out Names", "Text", CellDingbat->"\[FilledSmallCircle]"], Cell["Execute commands to create output (optional)", "Text", CellDingbat->"\[FilledSmallCircle]"], Cell["Resize graphics as needed.", "Text", CellDingbat->"\[FilledSmallCircle]"], Cell["\<\ In Printing Settings/Headers and Footers, set the starting page \ number and left/right printing.\ \>", "Text", CellDingbat->"\[FilledSmallCircle]"], Cell["Select Format/Show Page Breaks menu item", "Text", CellDingbat->"\[FilledSmallCircle]"], Cell["Repair poorly placed page breaks.", "Text", CellDingbat->"\[FilledSmallCircle]"], Cell["Scan one last time for visually obvious problems.", "Text", CellDingbat->"\[FilledSmallCircle]"], Cell["Proofread the result before sending it to the printer!", "Text", CellDingbat->"\[FilledSmallCircle]"] }, Open ]], Cell[CellGroupData[{ Cell["Resetting color text to black.", "Subsection", CellDingbat->None], Cell["This is not always so easy. Here are three ways to do it:", "Text", CellDingbat->"\[FilledSmallCircle]"], Cell[TextData[{ "Select the cell containing the color text and use the ", StyleBox["Format/Remove All Options", FontWeight->"Bold"], " menu item. Click on ", StyleBox["Recursive", FontWeight->"Bold"], ". This will often remove color text but may have undesired side effects. \ However it also often fails to clear text color; apparently there is some \ sort of bug in the \"recursive\" aspect." }], "Text", CellDingbat->"\[FilledSmallCircle]"], Cell[TextData[{ "Select the color text, and use the ", StyleBox["Format/Text Color", FontWeight->"Bold"], " menu item to select ", StyleBox["Black", FontWeight->"Bold"], ". Believe it or not this doesn't always work either. But it works most of \ the time and is safest." }], "Text", CellDingbat->"\[FilledSmallCircle]"], Cell[TextData[{ "Select the cell and use the ", StyleBox["Format/Show Expression", FontWeight->"Bold"], " menu item. Manually remove all ", StyleBox["FontColor", FontWeight->"Bold"], " options. This always works but is labor intensive." }], "Text", CellDingbat->"\[FilledSmallCircle]"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Preparing Notebooks for Distribution", "Section"], Cell["Make the following option changes at the Notebook level.", "Text"], Cell[CellGroupData[{ Cell["Check ScriptSizeMultipliers option.", "Subsection"], Cell["\<\ Set to 0.86 or your preference. Default value of 0.71 does not work \ well for on-screen display.\ \>", "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Set ShortBoxForm to False. (Now default in 4.0)", "Subsection"], Cell["Example of what could happen.", "Text"], Cell[BoxData[ StyleBox[\(\[Integral]\_\(\(\ \)\(a\)\)\%x f \((t)\) \[DifferentialD]t\), "DisplayFormula"]]], Cell[BoxData[ StyleBox[\(\[Integral]\_\(\(\ \)\(a\)\)\%xf\((t)\) \[DifferentialD]t\), "DisplayFormula"]]] }, Open ]], Cell[CellGroupData[{ Cell["Set ShowGroupOpenCloseIcon to True.", "Subsection"], Cell["\<\ Makes the little triangles on the left. A no-brainer -- nothing to \ lose.\ \>", "Text"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Formulas", "Subtitle"], Cell[CellGroupData[{ Cell["Inline Cells", "Section"], Cell[CellGroupData[{ Cell["Use Inline Cells for everything!", "Subsection"], Cell[CellGroupData[{ Cell["Example", "Subsubsection"], Cell[TextData[{ "The point on the unit circle corresponding to angle ", Cell[BoxData[ \(\(-\[Theta]\)\)]], " has coordinates (cos(-\[Theta]), sin(-\[Theta])) = (cos(\[Theta]),-sin(\ \[Theta]))." }], "Text"], Cell[TextData[{ "The point on the unit circle corresponding to angle ", Cell[BoxData[ \(\(-\[Theta]\)\)]], " has coordinates ", Cell[BoxData[ \(\(\((cos \((\(-\[Theta]\))\), \ sin \((\(-\[Theta]\))\))\)\(=\)\)\)]], " ", Cell[BoxData[ \(\((cos \((\[Theta])\), \(-sin\) \((\[Theta])\))\)\)]], "." }], "Text"] }, Open ]] }, Open ]] }, Open ]], Cell[TextData[ButtonBox["More Formulas!", ButtonData:>{"Formulas1.nb", None}, ButtonStyle->"Hyperlink"]], "Section"] }, Open ]], Cell[CellGroupData[{ Cell["The Options Browser: Learn to Love It!", "Subtitle"], Cell["Setting Page Breaks", "Subsection"], Cell[CellGroupData[{ Cell["Useful Options", "Subsection"], Cell[CellGroupData[{ Cell["Use a different default style notebook.", "Subsubsection"], Cell["\<\ Global Options/File \ Locations/DefaultStyleDefinitions\[Rule]\"MyStyles.nb\"\ \>", "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Use text cells by default", "Subsubsection"], Cell["\<\ Cell Options/New Cell Defaults/DefaultNewCellStyle\[Rule]\"Text\"\ \ \>", "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Stupid Options Inspector Tricks", "Subsection"], Cell[CellGroupData[{ Cell["Turn off the startup sound!", "Subsubsection"], Cell["\<\ GlobalOptions/SystemConfiguration/StartupSound\[Rule]False\ \>", \ "Text"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Remember those ugly rectangles that showed the size of a cell \ group? Now you can have them back again!\ \>", "Subsubsection"], Cell["\<\ CellOptions/DisplayOptions/ShowClosedCellArea\[Rule]True\ \>", \ "Text"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ How can I permanently turn off the In/Out labels, instead of having \ to turn them off in each notebook?\ \>", "Subsubsection"], Cell["\<\ CellOptions/CellLabels/ShowCellLabel\[Rule]False\ \>", "Text"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Some Needed Improvements", "Subtitle"], Cell["Please give us True Tabs!", "Subsection"], Cell["Automatic word wrap in gridbox elements.", "Subsection"], Cell["Improved display of functional notation in StandardForm.", "Subsection"], Cell["\<\ Create a FractionSizeMultiplier option instead of using \ ScriptSizeMultipliers for fractions.\ \>", "Subsection"], Cell["\<\ Allow separate values of ScriptSizeMultipliers for screen display \ and for printing.\ \>", "Subsection"] }, Open ]] }, Open ]] }, FrontEndVersion->"4.0 for Macintosh", ScreenRectangle->{{0, 640}, {0, 460}}, ScreenStyleEnvironment->"Working", WindowSize->{520, 431}, WindowMargins->{{4, Automatic}, {Automatic, 0}}, ShowClosedCellArea->True, ShowCellLabel->False, StyleDefinitions -> Notebook[{ Cell[CellGroupData[{ Cell["Style Definitions", "Subtitle"], 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, ScriptMinSize->9], Cell[StyleData[All, "Presentation"], PageWidth->WindowWidth, ScriptMinSize->12, FontSize->16], Cell[StyleData[All, "Condensed"], PageWidth->WindowWidth, CellBracketOptions->{"Margins"->{1, 1}, "Widths"->{0, 5}}, ScriptMinSize->8, FontSize->11], Cell[StyleData[All, "Printout"], PageWidth->PaperWidth, ScriptMinSize->5, FontSize->10, 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"], PageWidth->WindowWidth, CellFrame->True, CellMargins->{{12, 3}, {10, 8}}, Evaluatable->False, CellGroupingRules->{"TitleGrouping", 0}, CellHorizontalScrolling->False, PageBreakBelow->False, CellLabelMargins->{{36, Inherited}, {Inherited, Inherited}}, TextAlignment->Center, LineSpacing->{1, 3}, CounterIncrements->"Title", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, { "Subtitle", 0}, {"Subsubtitle", 0}}, AspectRatioFixed->True, FontFamily->"Times", FontSize->24, FontWeight->"Bold", FontColor->RGBColor[1, 0, 0], Background->GrayLevel[0.899992]], Cell[StyleData["Title", "Presentation"], PageWidth->WindowWidth, CellMargins->{{24, 10}, {20, 40}}, LineSpacing->{1, 0}, FontSize->44], Cell[StyleData["Title", "Condensed"], PageWidth->WindowWidth, CellMargins->{{8, 10}, {4, 8}}, FontSize->20], Cell[StyleData["Title", "Printout"], PageWidth->WindowWidth, CellMargins->{{2, 10}, {4, 8}}, FontSize->24, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subtitle"], PageWidth->WindowWidth, CellFrame->True, ShowGroupOpenCloseIcon->True, CellMargins->{{12, 3}, {7, 10}}, Evaluatable->False, CellGroupingRules->{"TitleGrouping", 10}, CellHorizontalScrolling->False, PageBreakBelow->False, CellLabelMargins->{{36, Inherited}, {Inherited, Inherited}}, TextAlignment->Center, LineSpacing->{1, 2}, CounterIncrements->"Subtitle", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, { "Subsubtitle", 0}}, AspectRatioFixed->True, FontFamily->"Times", FontSize->18, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1], Background->GrayLevel[0.899992]], Cell[StyleData["Subtitle", "Presentation"], PageWidth->WindowWidth, CellMargins->{{24, 10}, {15, 20}}, LineSpacing->{1, 0}, FontSize->36], Cell[StyleData["Subtitle", "Condensed"], PageWidth->WindowWidth, CellMargins->{{8, 10}, {4, 4}}, FontSize->14], Cell[StyleData["Subtitle", "Printout"], PageWidth->WindowWidth, CellMargins->{{2, 10}, {3, 6}}, FontSize->18, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsubtitle"], PageWidth->WindowWidth, CellFrame->True, ShowGroupOpenCloseIcon->True, CellMargins->{{12, 3}, {7, 10}}, Evaluatable->False, CellGroupingRules->{"TitleGrouping", 20}, CellHorizontalScrolling->False, PageBreakBelow->False, CellLabelMargins->{{36, Inherited}, {Inherited, Inherited}}, TextAlignment->Center, LineSpacing->{1, 2}, CounterIncrements->"Subsubtitle", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}}, AspectRatioFixed->True, FontFamily->"Times", FontSize->16, FontWeight->"Bold", FontSlant->"Italic", FontColor->RGBColor[0.499992, 0, 0.499992], Background->GrayLevel[0.899992]], Cell[StyleData["Subsubtitle", "Presentation"], PageWidth->WindowWidth, CellMargins->{{24, 10}, {10, 20}}, LineSpacing->{1, 0}, FontSize->24], Cell[StyleData["Subsubtitle", "Condensed"], PageWidth->WindowWidth, CellMargins->{{8, 10}, {8, 12}}, FontSize->12], Cell[StyleData["Subsubtitle", "Printout"], PageWidth->WindowWidth, CellMargins->{{2, 10}, {3, 6}}, FontSize->14, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Section"], PageWidth->WindowWidth, CellDingbat->"\[FilledSquare]", ShowGroupOpenCloseIcon->True, CellMargins->{{25, 3}, {6, 8}}, Evaluatable->False, CellGroupingRules->{"SectionGrouping", 30}, CellHorizontalScrolling->False, PageBreakBelow->False, LineSpacing->{1, 2}, CounterIncrements->"Section", CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}}, AspectRatioFixed->True, FontFamily->"Times", FontSize->18, FontWeight->"Bold", FontColor->RGBColor[1, 0, 0]], Cell[StyleData["Section", "Presentation"], PageWidth->WindowWidth, CellMargins->{{40, 10}, {11, 32}}, LineSpacing->{1, 0}, FontSize->24], Cell[StyleData["Section", "Condensed"], PageWidth->WindowWidth, CellMargins->{{18, Inherited}, {6, 12}}, FontSize->12], Cell[StyleData["Section", "Printout"], PageWidth->WindowWidth, CellMargins->{{13, 0}, {2, 6}}, FontSize->14, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsection"], PageWidth->WindowWidth, CellDingbat->"\[FilledSquare]", ShowGroupOpenCloseIcon->True, CellMargins->{{22, 3}, {4, 8}}, Evaluatable->False, CellGroupingRules->{"SectionGrouping", 40}, CellHorizontalScrolling->False, PageBreakBelow->False, LineSpacing->{1, 2}, CounterIncrements->"Subsection", CounterAssignments->{{"Subsubsection", 0}}, AspectRatioFixed->True, FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], Cell[StyleData["Subsection", "Presentation"], PageWidth->WindowWidth, CellMargins->{{36, 10}, {11, 32}}, LineSpacing->{1, 0}, FontSize->22], Cell[StyleData["Subsection", "Condensed"], PageWidth->WindowWidth, CellMargins->{{16, Inherited}, {6, 12}}, FontSize->12], Cell[StyleData["Subsection", "Printout"], PageWidth->WindowWidth, CellMargins->{{9, 0}, {2, 6}}, FontSize->12, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsubsection"], PageWidth->WindowWidth, CellDingbat->"\[FilledSquare]", ShowGroupOpenCloseIcon->True, CellMargins->{{22, 3}, {4, 4}}, Evaluatable->False, CellGroupingRules->{"SectionGrouping", 50}, CellHorizontalScrolling->False, PageBreakBelow->False, LineSpacing->{1, 2}, CounterIncrements->"Subsubsection", AspectRatioFixed->True, FontFamily->"Times", FontSize->12, FontWeight->"Bold", FontColor->RGBColor[0, 0.499992, 0]], Cell[StyleData["Subsubsection", "Presentation"], PageWidth->WindowWidth, CellMargins->{{34, 10}, {11, 26}}, LineSpacing->{1, 0}, FontSize->18], Cell[StyleData["Subsubsection", "Condensed"], PageWidth->WindowWidth, CellMargins->{{17, Inherited}, {6, 12}}, FontSize->10], Cell[StyleData["Subsubsection", "Printout"], PageWidth->WindowWidth, CellMargins->{{9, 0}, {2, 6}}, FontSize->10, FontColor->GrayLevel[0]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Body Text", "Section"], Cell[CellGroupData[{ Cell[StyleData["Text"], PageWidth->WindowWidth, CellMargins->{{12, 10}, {Inherited, Inherited}}, Evaluatable->False, CellHorizontalScrolling->False, PageBreakWithin->Automatic, LineSpacing->{1, 2}, CounterIncrements->"Text", AspectRatioFixed->True, FontFamily->"Times", FontSize->14], Cell[StyleData["Text", "Presentation"], PageWidth->WindowWidth, CellMargins->{{24, 10}, {10, 10}}, LineSpacing->{1, 5}, FontSize->18], Cell[StyleData["Text", "Condensed"], PageWidth->WindowWidth, CellMargins->{{8, 10}, {6, 6}}, LineSpacing->{1, 1}], Cell[StyleData["Text", "Printout"], PageWidth->WindowWidth, CellMargins->{{2, 2}, {2, 4}}, FontSize->12] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["SmallText"], PageWidth->WindowWidth, CellMargins->{{12, 10}, {6, 6}}, Evaluatable->False, CellHorizontalScrolling->False, PageBreakWithin->Automatic, CellLabelMargins->{{18, Inherited}, {Inherited, Inherited}}, LineSpacing->{1, 2}, CounterIncrements->"SmallText", AspectRatioFixed->True, FontFamily->"Times", FontSize->12, FontSlant->"Italic"], Cell[StyleData["SmallText", "Presentation"], PageWidth->WindowWidth, CellMargins->{{24, 10}, {8, 8}}, LineSpacing->{1, 5}, FontSize->16], Cell[StyleData["SmallText", "Condensed"], PageWidth->WindowWidth, CellMargins->{{8, 10}, {5, 5}}, LineSpacing->{1, 2}, FontSize->9], Cell[StyleData["SmallText", "Printout"], PageWidth->WindowWidth, CellMargins->{{2, 2}, {2, 4}}, FontSize->9] }, Open ]] }, Open ]], 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.\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["Input"], PageWidth->WindowWidth, CellFrame->{{0, 0}, {0, 2}}, CellMargins->{{20, 10}, {5, 7}}, Evaluatable->True, CellGroupingRules->"InputGrouping", CellHorizontalScrolling->False, PageBreakWithin->False, GroupPageBreakWithin->False, CellLabelMargins->{{5, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultInputFormatType, LineSpacing->{1, 2}, AutoItalicWords->{}, FormatType->InputForm, ShowStringCharacters->True, NumberMarks->True, CounterIncrements->"Input", AspectRatioFixed->True, FontFamily->"Courier", FontSize->12, FontWeight->"Bold", Background->RGBColor[0.8, 1, 0.8]], Cell[StyleData["Input", "Presentation"], PageWidth->WindowWidth, CellFrame->{{0, 0}, {0, 2}}, CellMargins->{{72, Inherited}, {8, 10}}, LineSpacing->{1, 0}], Cell[StyleData["Input", "Condensed"], PageWidth->WindowWidth, CellFrame->{{0, 0}, {0, 2}}, CellMargins->{{40, 10}, {2, 3}}], Cell[StyleData["Input", "Printout"], PageWidth->PaperWidth, CellFrame->{{0, 0}, {0, 2}}, CellMargins->{{20, 0}, {4, 6}}, FontSize->10, Background->None] }, Open ]], Cell[StyleData["InputOnly"], PageWidth->WindowWidth, Evaluatable->True, CellGroupingRules->"InputGrouping", CellHorizontalScrolling->True, DefaultFormatType->DefaultInputFormatType, AutoItalicWords->{}, FormatType->InputForm, ShowStringCharacters->True, NumberMarks->True, CounterIncrements->"Input", StyleMenuListing->None, FontWeight->"Bold"], Cell[CellGroupData[{ Cell[StyleData["Output"], PageWidth->WindowWidth, CellFrame->{{0, 0}, {2, 0}}, CellMargins->{{22, 10}, {7, 5}}, CellEditDuplicate->True, Evaluatable->False, CellGroupingRules->"OutputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, CellLabelMargins->{{5, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, LineSpacing->{1, 0}, AutoItalicWords->{}, FormatType->InputForm, CounterIncrements->"Output", AspectRatioFixed->True, FontFamily->"Courier", FontSize->12, Background->RGBColor[0.8, 1, 0.8]], Cell[StyleData["Output", "Presentation"], PageWidth->WindowWidth, CellFrame->{{0, 0}, {2, 0}}, CellMargins->{{72, Inherited}, {10, 8}}, LineSpacing->{1, 0}], Cell[StyleData["Output", "Condensed"], PageWidth->WindowWidth, CellFrame->{{0, 0}, {2, 0}}, CellMargins->{{41, Inherited}, {3, 2}}], Cell[StyleData["Output", "Printout"], PageWidth->PaperWidth, CellFrame->{{0, 0}, {2, 0}}, CellMargins->{{39, 0}, {6, 4}}, FontSize->10, Background->None] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Message"], PageWidth->WindowWidth, CellMargins->{{42, Inherited}, {Inherited, Inherited}}, Evaluatable->False, CellGroupingRules->"OutputGrouping", PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, LineSpacing->{1, 2}, AutoItalicWords->{}, FormatType->InputForm, CounterIncrements->"Message", AspectRatioFixed->True, StyleMenuListing->None, FontFamily->"Courier", FontSize->12, FontColor->RGBColor[1, 0, 0]], Cell[StyleData["Message", "Presentation"], PageWidth->WindowWidth, CellMargins->{{72, Inherited}, {Inherited, Inherited}}, LineSpacing->{1, 0}], Cell[StyleData["Message", "Condensed"], PageWidth->WindowWidth, CellMargins->{{41, Inherited}, {Inherited, Inherited}}], Cell[StyleData["Message", "Printout"], PageWidth->PaperWidth, CellMargins->{{39, Inherited}, {Inherited, Inherited}}, FontSize->8, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Print"], PageWidth->WindowWidth, CellMargins->{{42, Inherited}, {Inherited, Inherited}}, Evaluatable->False, CellGroupingRules->"OutputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, LineSpacing->{1, 2}, AutoItalicWords->{}, FormatType->InputForm, CounterIncrements->"Print", AspectRatioFixed->True, StyleMenuListing->None, FontFamily->"Courier", FontSize->12], Cell[StyleData["Print", "Presentation"], PageWidth->WindowWidth, CellMargins->{{72, Inherited}, {Inherited, Inherited}}, LineSpacing->{1, 0}], Cell[StyleData["Print", "Condensed"], PageWidth->WindowWidth, CellMargins->{{41, Inherited}, {Inherited, Inherited}}], Cell[StyleData["Print", "Printout"], PageWidth->PaperWidth, CellMargins->{{39, Inherited}, {Inherited, Inherited}}, FontSize->8] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Graphics"], PageWidth->WindowWidth, CellMargins->{{7, Inherited}, {Inherited, Inherited}}, Evaluatable->False, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, DefaultFormatType->DefaultOutputFormatType, LineSpacing->{1, 2}, FormatType->InputForm, CounterIncrements->"Graphics", AspectRatioFixed->True, ImageSize->{314, 237}, ImageMargins->{{69, Inherited}, {Inherited, 0}}, StyleMenuListing->None, FontFamily->"Courier", FontSize->10], Cell[StyleData["Graphics", "Presentation"], PageWidth->WindowWidth, ImageMargins->{{62, Inherited}, {Inherited, 0}}], Cell[StyleData["Graphics", "Condensed"], PageWidth->WindowWidth, ImageSize->{175, 175}, ImageMargins->{{38, Inherited}, {Inherited, 0}}], Cell[StyleData["Graphics", "Printout"], PageWidth->PaperWidth, ImageSize->{200, 100}, ImageMargins->{{30, Inherited}, {Inherited, 0}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["CellLabel"], PageWidth->WindowWidth, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->9, FontColor->RGBColor[0, 0, 1]], Cell[StyleData["CellLabel", "Presentation"], PageWidth->WindowWidth, FontSize->12], Cell[StyleData["CellLabel", "Condensed"], PageWidth->WindowWidth, FontSize->9], Cell[StyleData["CellLabel", "Printout"], PageWidth->WindowWidth, FontFamily->"Courier", FontSize->8, FontSlant->"Italic", FontColor->GrayLevel[0]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Formulas and Programming", "Section"], Cell[CellGroupData[{ Cell[StyleData["InlineFormula"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, ScriptLevel->1, SingleLetterItalics->True, FontFamily->"Times"], Cell[StyleData["InlineFormula", "Presentation"], CellMargins->{{24, 10}, {10, 10}}, LineSpacing->{1, 5}], Cell[StyleData["InlineFormula", "Condensed"], CellMargins->{{8, 10}, {6, 6}}, LineSpacing->{1, 1}], Cell[StyleData["InlineFormula", "Printout"], CellMargins->{{2, 0}, {6, 6}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DisplayFormula"], PageWidth->WindowWidth, CellMargins->{{12, 10}, {Inherited, Inherited}}, Evaluatable->False, CellHorizontalScrolling->False, PageBreakWithin->Automatic, TextAlignment->Center, LineSpacing->{1, 2}, ScriptLevel->0, CounterIncrements->"Text", AspectRatioFixed->True, FontFamily->"Times", FontSize->14, UnderoverscriptBoxOptions->{LimitsPositioning->True}], Cell[StyleData["DisplayFormula", "Presentation"], LineSpacing->{1, 5}], Cell[StyleData["DisplayFormula", "Condensed"], LineSpacing->{1, 1}], Cell[StyleData["DisplayFormula", "Printout"], FontSize->12] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Styles for Headers and Footers", "Section"], Cell[StyleData["Header"], CellMargins->{{7, 0}, {4, 1}}, Evaluatable->False, PageBreakWithin->Automatic, LineSpacing->{1, 2}, AspectRatioFixed->True, StyleMenuListing->None, FontFamily->"Times", FontSize->10, FontSlant->"Italic"], Cell[StyleData["Footer"], CellMargins->{{7, 0}, {0, 4}}, Evaluatable->False, PageBreakWithin->Automatic, TextAlignment->Center, LineSpacing->{1, 2}, AspectRatioFixed->True, StyleMenuListing->None, FontFamily->"Times", FontSize->10, 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[ ], #, After]}]&)}], Cell[StyleData["Evaluate"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, All], 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["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, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookLocate[ #2]}]&), Active->True, ButtonNote->ButtonData}], Cell[StyleData["Hyperlink", "Presentation"]], Cell[StyleData["Hyperlink", "Condensed"]], Cell[StyleData["Hyperlink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell["\<\ The following styles are for linking automatically to the on-line \ help system.\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["MainBookLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "MainBook", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["MainBookLink", "Presentation"]], Cell[StyleData["MainBookLink", "Condensed"]], Cell[StyleData["MainBookLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["AddOnsLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontFamily->"Courier", FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "AddOns", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["AddOnsLink", "Presentation"]], Cell[StyleData["AddOnsLink", "Condensed"]], Cell[StyleData["AddOnLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["RefGuideLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontFamily->"Courier", FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "RefGuideLink", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["RefGuideLink", "Presentation"]], Cell[StyleData["RefGuideLink", "Condensed"]], Cell[StyleData["RefGuideLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["GettingStartedLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "GettingStarted", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["GettingStartedLink", "Presentation"]], Cell[StyleData["GettingStartedLink", "Condensed"]], Cell[StyleData["GettingStartedLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["OtherInformationLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "OtherInformation", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["OtherInformationLink", "Presentation"]], Cell[StyleData["OtherInformationLink", "Condensed"]], Cell[StyleData["OtherInformationLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]] }, 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"], Editable->False, Selectable->False, StyleBoxAutoDelete->True, Placeholder->True, StyleMenuListing->None], Cell[StyleData["Placeholder", "Presentation"]], Cell[StyleData["Placeholder", "Condensed"]], Cell[StyleData["Placeholder", "Printout"]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SelectionPlaceholder"], Editable->False, Selectable->False, StyleBoxAutoDelete->True, Placeholder->PrimaryPlaceholder, StyleMenuListing->None, DrawHighlighted->True], Cell[StyleData["SelectionPlaceholder", "Presentation"]], Cell[StyleData["SelectionPlaceholder", "Condensed"]], Cell[StyleData["SelectionPlaceholder", "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.\ \>", "Text"], Cell[StyleData["CellExpression"], PageWidth->Infinity, CellMargins->{{6, Inherited}, {Inherited, Inherited}}, ShowCellLabel->False, ShowSpecialCharacters->False, AllowInlineCells->False, AutoItalicWords->{}, StyleMenuListing->None, FontFamily->"Courier", Background->GrayLevel[1]], Cell[StyleData["InputForm"], AllowInlineCells->False, StyleMenuListing->None, FontFamily->"Courier"], Cell[StyleData["OutputForm"], PageWidth->Infinity, TextAlignment->Left, LineSpacing->{1, -5}, StyleMenuListing->None, FontFamily->"Courier"], Cell[StyleData["StandardForm"], LineSpacing->{1.25, 0}, StyleMenuListing->None, FontFamily->"Courier"], Cell[StyleData["TraditionalForm"], 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"], TextAlignment->Left, ScriptLevel->1, StyleMenuListing->None, FontFamily->"Times"], Cell[StyleData["InlineCellEditing"], StyleMenuListing->None, Background->RGBColor[1, 0.749996, 0.8]] }, Closed]], Cell[CellGroupData[{ Cell["User-Defined Styles", "Section"], Cell[CellGroupData[{ Cell[StyleData["AppliedProblem"], PageWidth->WindowWidth, CellFrame->True, CellMargins->{{12, 10}, {Inherited, Inherited}}, Evaluatable->False, CellHorizontalScrolling->False, PageBreakWithin->Automatic, LineSpacing->{1, 2}, CounterIncrements->"Text", AspectRatioFixed->True, FontFamily->"Times", FontSize->14, Background->RGBColor[0.8, 1, 1]], Cell[StyleData["AppliedProblem", "Presentation"], PageWidth->WindowWidth, CellMargins->{{24, 10}, {10, 10}}, LineSpacing->{1, 5}], Cell[StyleData["AppliedProblem", "Condensed"], PageWidth->WindowWidth, CellMargins->{{8, 10}, {6, 6}}, LineSpacing->{1, 1}], Cell[StyleData["AppliedProblem", "Printout"], PageWidth->PaperWidth, CellMargins->{{2, 2}, {2, 4}}, FontSize->12, Background->None] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["BoxedDisplayFormula"], PageWidth->WindowWidth, CellFrame->True, CellMargins->{{12, 10}, {Inherited, Inherited}}, Evaluatable->False, CellHorizontalScrolling->False, PageBreakWithin->Automatic, TextAlignment->Center, LineSpacing->{1, 2}, ScriptLevel->0, CounterIncrements->"Text", AspectRatioFixed->True, FontFamily->"Times", FontSize->14, FontColor->RGBColor[1, 0, 0], Background->RGBColor[1, 1, 0.8], UnderoverscriptBoxOptions->{LimitsPositioning->True}], Cell[StyleData["BoxedDisplayFormula", "Presentation"], LineSpacing->{1, 5}], Cell[StyleData["BoxedDisplayFormula", "Condensed"], LineSpacing->{1, 1}], Cell[StyleData["BoxedDisplayFormula", "Printout"], FontSize->12, FontColor->GrayLevel[0], Background->None] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Dialog"], PageWidth->WindowWidth, CellMargins->{{12, 10}, {0, 0}}, Evaluatable->False, CellHorizontalScrolling->False, PageBreakWithin->Automatic, LineSpacing->{1, 2}, CounterIncrements->"Text", AspectRatioFixed->True, FontFamily->"Times", FontSize->14, Background->RGBColor[1, 0.8, 1]], Cell[StyleData["Dialog", "Presentation"], PageWidth->WindowWidth, CellMargins->{{24, 10}, {10, 10}}, LineSpacing->{1, 5}], Cell[StyleData["Dialog", "Condensed"], PageWidth->WindowWidth, CellMargins->{{8, 10}, {6, 6}}, LineSpacing->{1, 1}], Cell[StyleData["Dialog", "Printout"], PageWidth->PaperWidth, CellMargins->{{2, 2}, {2, 4}}, FontSize->12, Background->None] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DialogSmall"], PageWidth->WindowWidth, CellMargins->{{12, 10}, {0, 0}}, Evaluatable->False, CellHorizontalScrolling->False, PageBreakWithin->Automatic, LineSpacing->{1, 2}, CounterIncrements->"Text", AspectRatioFixed->True, FontFamily->"Times", FontSize->12, FontSlant->"Italic", Background->RGBColor[1, 0.8, 1]], Cell[StyleData["DialogSmall", "Presentation"], PageWidth->WindowWidth, CellMargins->{{24, 10}, {10, 10}}, LineSpacing->{1, 5}], Cell[StyleData["DialogSmall", "Condensed"], PageWidth->WindowWidth, CellMargins->{{8, 10}, {6, 6}}, LineSpacing->{1, 1}], Cell[StyleData["DialogSmall", "Printout"], PageWidth->PaperWidth, CellMargins->{{2, 2}, {2, 4}}, FontSize->10, Background->None] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DisplayText"], PageWidth->WindowWidth, CellFrame->True, CellMargins->{{12, 10}, {Inherited, Inherited}}, Evaluatable->False, CellHorizontalScrolling->False, PageBreakWithin->Automatic, TextAlignment->Center, LineSpacing->{1, 2}, CounterIncrements->"Text", AspectRatioFixed->True, FontFamily->"Times", FontSize->14, FontColor->RGBColor[1, 0, 0], Background->RGBColor[1, 1, 0.8]], Cell[StyleData["DisplayText", "Presentation"], PageWidth->WindowWidth, CellMargins->{{24, 10}, {10, 10}}, LineSpacing->{1, 5}], Cell[StyleData["DisplayText", "Condensed"], PageWidth->WindowWidth, CellMargins->{{8, 10}, {6, 6}}, LineSpacing->{1, 1}], Cell[StyleData["DisplayText", "Printout"], PageWidth->PaperWidth, CellMargins->{{2, 2}, {2, 4}}, FontSize->12, FontColor->GrayLevel[0], Background->None] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Exercise"], PageWidth->WindowWidth, CellMargins->{{12, 10}, {0, 0}}, Evaluatable->False, CellHorizontalScrolling->False, PageBreakWithin->Automatic, LineSpacing->{1, 2}, CounterIncrements->"Text", AspectRatioFixed->True, FontFamily->"Times", FontSize->14, FontColor->RGBColor[0, 0, 1], Background->RGBColor[0.8, 1, 1]], Cell[StyleData["Exercise", "Presentation"], PageWidth->WindowWidth, CellMargins->{{24, 10}, {4, 10}}, LineSpacing->{1, 5}], Cell[StyleData["Exercise", "Condensed"], PageWidth->WindowWidth, CellMargins->{{8, 10}, {4, 6}}, LineSpacing->{1, 1}], Cell[StyleData["Exercise", "Printout"], PageWidth->PaperWidth, CellMargins->{{2, 2}, {4, 4}}, FontSize->12, FontColor->GrayLevel[0], Background->None] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Warning"], PageWidth->WindowWidth, CellMargins->{{12, 10}, {6, 6}}, Evaluatable->False, CellHorizontalScrolling->False, PageBreakWithin->Automatic, CellLabelMargins->{{18, Inherited}, {Inherited, Inherited}}, LineSpacing->{1, 2}, CounterIncrements->"SmallText", AspectRatioFixed->True, FontFamily->"Times", FontSize->12, FontWeight->"Bold", FontSlant->"Italic", FontColor->RGBColor[1, 0, 0]], Cell[StyleData["Warning", "Presentation"], PageWidth->WindowWidth, CellMargins->{{24, 10}, {8, 8}}, LineSpacing->{1, 5}, FontSize->12, FontWeight->"Bold"], Cell[StyleData["Warning", "Condensed"], PageWidth->WindowWidth, CellMargins->{{8, 10}, {5, 5}}, LineSpacing->{1, 2}, FontSize->9, FontWeight->"Bold"], Cell[StyleData["Warning", "Printout"], PageWidth->WindowWidth, CellMargins->{{2, 2}, {2, 4}}, FontSize->9, FontWeight->"Bold", FontColor->GrayLevel[0]] }, Closed]] }, Open ]] }, Open ]] }], MacintoshSystemPageSetup->"\<\ 00<0001804P000000]P2:?oQon82n@960dL5:0?l0080001804P000000]P2:001 0000I00000400`<300000BL?00400@0000000000000006P801T1T00000000000 00000000000000000000000000000000\>" ] (*********************************************************************** Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. ***********************************************************************) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1739, 51, 52, 0, 66, "Title"], Cell[CellGroupData[{ Cell[1816, 55, 26, 0, 37, "Section"], Cell[1845, 57, 62, 3, 40, "Text"], Cell[1910, 62, 99, 3, 40, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[2046, 70, 29, 0, 56, "Subtitle"], Cell[CellGroupData[{ Cell[2100, 74, 60, 0, 47, "Section"], Cell[2163, 76, 73, 0, 24, "Text"], Cell[2239, 78, 46, 0, 28, "SmallText"], Cell[2288, 80, 88, 1, 26, "Text"], Cell[2379, 83, 118, 3, 28, "SmallText"], Cell[2500, 88, 61, 0, 24, "Text"], Cell[2564, 90, 55, 0, 28, "SmallText"], Cell[2622, 92, 148, 4, 40, "Text"], Cell[2773, 98, 215, 8, 42, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[3025, 111, 56, 0, 43, "Section"], Cell[3084, 113, 622, 12, 81, "Text"], Cell[3709, 127, 48, 0, 28, "SmallText"] }, Closed]], Cell[CellGroupData[{ Cell[3794, 132, 72, 0, 43, "Section"], Cell[3869, 134, 288, 5, 72, "Text"], Cell[CellGroupData[{ Cell[4182, 143, 29, 0, 42, "Subsection"], Cell[4214, 145, 117, 5, 26, "Text"], Cell[4334, 152, 245, 11, 44, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[4616, 168, 30, 0, 38, "Subsection"], Cell[4649, 170, 181, 7, 26, "Text"], Cell[4833, 179, 141, 4, 26, "Text"], Cell[4977, 185, 136, 4, 26, "Text"], Cell[5116, 191, 145, 4, 26, "Text"], Cell[5264, 197, 309, 7, 74, "Text"], Cell[5576, 206, 219, 5, 58, "Text"], Cell[5798, 213, 93, 3, 24, "Text"], Cell[5894, 218, 212, 7, 42, "Text"], Cell[CellGroupData[{ Cell[6131, 229, 40, 0, 24, "Subsubsection"], Cell[6174, 231, 1575, 55, 31, "Text", Evaluatable->False] }, Open ]], Cell[CellGroupData[{ Cell[7786, 291, 40, 0, 24, "Subsubsection"], Cell[7829, 293, 382, 10, 27, "Text"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[8272, 310, 51, 0, 43, "Section"], Cell[CellGroupData[{ Cell[8348, 314, 104, 3, 48, "Subsection"], Cell[8455, 319, 196, 4, 56, "Text"], Cell[8654, 325, 119, 3, 40, "Text"], Cell[8776, 330, 91, 3, 24, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[8904, 338, 35, 0, 30, "Subsection"], Cell[8942, 340, 102, 1, 24, "Text"], Cell[9047, 343, 117, 1, 24, "Text"], Cell[9167, 346, 94, 1, 24, "Text"], Cell[9264, 349, 72, 1, 24, "Text"], Cell[9339, 352, 99, 1, 24, "Text"], Cell[9441, 355, 81, 1, 24, "Text"], Cell[9525, 358, 160, 4, 40, "Text"], Cell[9688, 364, 95, 1, 24, "Text"], Cell[9786, 367, 88, 1, 24, "Text"], Cell[9877, 370, 104, 1, 24, "Text"], Cell[9984, 373, 109, 1, 24, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[10130, 379, 73, 1, 30, "Subsection"], Cell[10206, 382, 112, 1, 24, "Text"], Cell[10321, 385, 463, 11, 76, "Text"], Cell[10787, 398, 340, 10, 60, "Text"], Cell[11130, 410, 305, 9, 44, "Text"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[11484, 425, 55, 0, 43, "Section"], Cell[11542, 427, 72, 0, 24, "Text"], Cell[CellGroupData[{ Cell[11639, 431, 57, 0, 30, "Subsection"], Cell[11699, 433, 121, 3, 40, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[11857, 441, 69, 0, 30, "Subsection"], Cell[11929, 443, 45, 0, 24, "Text"], Cell[11977, 445, 117, 2, 43, InheritFromParent], Cell[12097, 449, 115, 2, 45, InheritFromParent] }, Open ]], Cell[CellGroupData[{ Cell[12249, 456, 57, 0, 30, "Subsection"], Cell[12309, 458, 98, 3, 24, "Text"] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[12468, 468, 28, 0, 56, "Subtitle"], Cell[CellGroupData[{ Cell[12521, 472, 31, 0, 37, "Section"], Cell[CellGroupData[{ Cell[12577, 476, 54, 0, 30, "Subsection"], Cell[CellGroupData[{ Cell[12656, 480, 32, 0, 24, "Subsubsection"], Cell[12691, 482, 218, 6, 40, "Text"], Cell[12912, 490, 349, 12, 40, "Text"] }, Open ]] }, Open ]] }, Open ]], Cell[13300, 507, 120, 2, 37, "Section"] }, Open ]], Cell[CellGroupData[{ Cell[13457, 514, 58, 0, 56, "Subtitle"], Cell[13518, 516, 41, 0, 30, "Subsection"], Cell[CellGroupData[{ Cell[13584, 520, 36, 0, 30, "Subsection"], Cell[CellGroupData[{ Cell[13645, 524, 64, 0, 24, "Subsubsection"], Cell[13712, 526, 101, 3, 24, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[13850, 534, 50, 0, 24, "Subsubsection"], Cell[13903, 536, 91, 3, 24, "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[14043, 545, 53, 0, 30, "Subsection"], Cell[CellGroupData[{ Cell[14121, 549, 52, 0, 24, "Subsubsection"], Cell[14176, 551, 84, 3, 24, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[14297, 559, 137, 3, 40, "Subsubsection"], Cell[14437, 564, 82, 3, 24, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[14556, 572, 137, 3, 40, "Subsubsection"], Cell[14696, 577, 72, 2, 24, "Text"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[14829, 586, 44, 0, 56, "Subtitle"], Cell[14876, 588, 47, 0, 30, "Subsection"], Cell[14926, 590, 62, 0, 30, "Subsection"], Cell[14991, 592, 78, 0, 30, "Subsection"], Cell[15072, 594, 124, 3, 48, "Subsection"], Cell[15199, 599, 115, 3, 48, "Subsection"] }, Open ]] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)