(*********************************************************************** Mathematica-Compatible Notebook This notebook can be used on any computer system with Mathematica 3.0, MathReader 3.0, or any compatible application. The data for the notebook starts with the line of 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[ 28616, 1016]*) (*NotebookOutlinePosition[ 72863, 2703]*) (* CellTagsIndexPosition[ 72819, 2699]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["Application Documentation", "Title"], Cell["\<\ Champaign-Urbana Room, 12:00 October 28, 1997 Business Development Presentation\ \>", "Subsubtitle"], Cell[CellGroupData[{ Cell["Introduction", "Section"], Cell["\<\ For some people, writing is hard work, and may involve bad memories \ of English classes of the past..\ \>", "Subsection"], Cell["A good package with poor documentation is a poor product.", "Subsection"], Cell["\<\ Today's information is available by handout and on the Developer's \ CD.\ \>", "Subsection"], Cell["What is the first step to writing good documentation?", "Subsection"] }, Closed]], Cell[CellGroupData[{ Cell["1. Brainstorming: The Chaos", "Section"], Cell["Image: Index cards", "SmallText"], Cell[TextData[ "Write down\[LongDash]somewhere, in some manner\[LongDash]everything you want \ to put in the manual."], "Subsection"], Cell[CellGroupData[{ Cell["\<\ Ask these questions when brainstorming. Some of the questions are \ also useful to consider when programming the application.\ \>", "Subsection"], Cell[TextData[ "\[FilledSmallSquare] What kind of problem does the customer solve every day? \ \n\[FilledSmallSquare] How will customers use the product?\n\ \[FilledSmallSquare] How might a customer incorrectly use the package?\n\ \[FilledSmallSquare] What would you want to know if you bought this \ package?"], "ItemizedText"] }, Closed]], Cell["After all the thoughts are down, what is next?", "Subsection"] }, Closed]], Cell[CellGroupData[{ Cell["2. Outlining: Bringing Order to Chaos", "Section"], Cell["Image: Ruler marked in inches", "SmallText"], Cell["Restructure the information", "Subsection"], Cell["Don't start writing yet!!", "Subsection"], Cell[CellGroupData[{ Cell["Organize the list.", "Subsection", FontWeight->"Bold"], Cell[TextData[ "\[FilledSmallSquare] Group related topics together.\n\[FilledSmallSquare] \ Focus on the organization of topics."], "ItemizedText"] }, Closed]], Cell[CellGroupData[{ Cell["Keep basic information first.", "Subsection"], Cell[TextData[ "\[FilledSmallSquare] Show how to load the package. Make sure loading the \ package is the first step in each chapter.\n\[FilledSmallSquare] Demonstrate \ how to use the product in simple ways. Don't show the first command using \ every option available."], "ItemizedText"] }, Closed]], Cell[CellGroupData[{ Cell["Put standard usage information next.", "Subsection"], Cell[TextData[{ "\[FilledSmallSquare] Give sample commands and options.\n\ \[FilledSmallSquare] Give examples of ", StyleBox["In", FontFamily->"Courier"], " and ", StyleBox["Out", FontFamily->"Courier"], " sessions." }], "ItemizedText"] }, Closed]], Cell["Finish with information for advanced users.", "Subsection"], Cell["Create the outline", "Subsection", FontWeight->"Bold"], Cell["Put the ordered list into an outline.", "Subsection"], Cell["\<\ Avoid heavily-nested outlines. Remember the Help Browser has four \ levels of hierarchy, and the documentation will be presented in the Help \ Browser as on-line documentation.\ \>", "Subsection"], Cell["\<\ Focus on the breakdown of information; if Section 1.1 exists, there \ must be a Section 1.2.\ \>", "Subsection"], Cell["Present a moderately even amount of topics in each chapter.", "Subsection"], Cell["Add examples and definitions as needed.", "Subsection"], Cell[CellGroupData[{ Cell["\<\ Documenting the package may bring out problems in the design of the \ project.\ \>", "Subsection"], Cell[TextData[ "\[FilledSmallSquare] You may need to backtrack and recode.\n\ \[FilledSmallSquare] This means you must begin the documentation while \ coding."], "ItemizedText"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["3. Reviewing: Filling in the Holes", "Section"], Cell["Image: Ruler marked in half inches, quarter inches, etc.", "SmallText"], Cell["\<\ Review the outline. You may need to add some additional topics and \ remove others.\ \>", "Subsection"], Cell["Fill in the outline.", "Subsection"], Cell["Review the purpose of the instructions and examples.", "Subsection"], Cell["\<\ It is okay to repeat basic information throughout document, but it \ is also a good idea to refer to a specific section (or an appendix) by name \ for more information on a particular topic.\ \>", "Subsection"], Cell[CellGroupData[{ Cell["Consider writing a glossary or word list.", "Subsection"], Cell[TextData[ "\[FilledSmallSquare] A glossary defines terminology and forces consistency.\n\ \[FilledSmallSquare] A word list notes key words used repeatedly with correct \ spellings that is also useful for proofreading."], "ItemizedText"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["4. Writing: Laying the Pavement", "Section"], Cell["Now you are ready to write!", "Subsection"], Cell["\<\ Work on one section of the outline at a time (modular \ writing).\ \>", "Subsection"], Cell["\<\ Avoid tangential discussions. Follow the outline that you have \ produced.\ \>", "Subsection"], Cell[CellGroupData[{ Cell["Focus on consistency in documentation.", "Subsection"], Cell[TextData[ "You can't refer to integration using symbols such as \[CapitalSigma] or \ \[CapitalPi]. "], "Text"] }, Closed]], Cell[CellGroupData[{ Cell["Use fonts consistently.", "Subsection"], Cell[TextData[ "\[FilledSmallSquare] Mathematical terms versus computer terms, such as \ \"Integrate\"\n\[FilledSmallSquare] Use of italics, bold, and different fonts \ in heads"], "ItemizedText"], Cell[CellGroupData[{ Cell["Example", "Subsubsection"], Cell[TextData[{ StyleBox["Integrate", FontFamily->"Courier"], " the ", StyleBox["function", FontFamily->"Courier"], " to find the formula for the area under the curve: ", StyleBox["Integrate[function, x]", FontFamily->"Courier"], "." }], "Text"] }, Closed]], Cell[CellGroupData[{ Cell["Improved example", "Subsubsection"], Cell[TextData[{ "Integrate the function ", StyleBox["f", FontSlant->"Italic"], " using the ", StyleBox["Integrate", FontFamily->"Courier"], " command to find the formula for the area under a curve. Type ", StyleBox["Integrate[", FontFamily->"Courier"], StyleBox["f", FontSlant->"Italic"], StyleBox[", ", FontFamily->"Courier"], StyleBox["x", FontSlant->"Italic"], StyleBox["]", FontFamily->"Courier"], ", where ", StyleBox["x", FontSlant->"Italic"], " is the variable of integration." }], "Text"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Format unnumbered lists identically. ", "Subsection"], Cell[CellGroupData[{ Cell["Example", "Subsubsection"], Cell[TextData[{ "*Make sure you give the variable of integration.\n*The ", StyleBox["Integrate", FontFamily->"Courier"], " function takes two arguments.\n*Don't forget to check that x doesn't have \ any specific values." }], "Text"] }, Closed]], Cell[CellGroupData[{ Cell["Improved example", "Subsubsection"], Cell[TextData[{ "\[FilledSmallCircle] Use two arguments to the ", StyleBox["Integrate", "MR"], " function.\n\[FilledSmallCircle] Give the variable of integration as the \ second argument.\n\[FilledSmallCircle] Clear the variable of integration to \ remove any assignments to it." }], "Text"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Use the present tense as much as possible.", "Subsection"], Cell[CellGroupData[{ Cell["Example", "Subsubsection"], Cell[TextData[{ "You will integrate the function using the ", StyleBox["Integrate", FontFamily->"Courier"], " command. You will give it a function and a variable of integration. You \ will then see the value returned from the kernel." }], "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Improved example", "Subsubsection"], Cell[TextData[{ "Integrate the function using the ", StyleBox["Integrate", FontFamily->"Courier"], " command. The integrand is the first argument to the function. The second \ argument is the variable of integration." }], "Text"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Use active voice as much as possible. Avoid the passive voice or \ the subjunctive mood.\ \>", "Subsection"], Cell[CellGroupData[{ Cell["Example", "Subsubsection"], Cell[TextData[{ "It is possible to integrate a function using the ", StyleBox["Integrate", FontFamily->"Courier"], " command.\nYou could integrate your function using ", StyleBox["Integrate", "MR"], ".\nA function is integrated with the ", StyleBox["Integrate", "MR"], " command." }], "Text"] }, Closed]], Cell[CellGroupData[{ Cell["Improved example", "Subsubsection"], Cell[TextData[{ "The ", StyleBox["Integrate", FontFamily->"Courier"], " command calculates the integral of a function." }], "Text"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Avoid redundancies.", "Subsection"], Cell[CellGroupData[{ Cell["Example", "Subsubsection"], Cell["\<\ Also, you can perform definite integration, too. Our plans for the future include expanding the abilities of the front \ end.\ \>", "Text"] }, Closed]], Cell[CellGroupData[{ Cell["Improved example", "Subsubsection"], Cell["\<\ You can perform definition integration as well. Our plans include expanding the abilities of the front end.\ \>", "Text"] }, Closed]] }, Closed]], Cell["Spell-check the text in the document.", "Subsection"], Cell[CellGroupData[{ Cell["Refer to customer as \"you,\" but avoid the term \"we\".", "Subsection"], Cell[CellGroupData[{ Cell["Example", "Subsubsection"], Cell[TextData[{ "We want you to use the ", StyleBox["Integrate", FontFamily->"Courier"], " command." }], "Text"] }, Closed]], Cell[CellGroupData[{ Cell["Improved example", "Subsubsection"], Cell[TextData[{ "Use the ", StyleBox["Integrate", FontFamily->"Courier"], " command." }], "Text"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Loading the package must be the first example in each chapter. \t\ \ \>", "Subsection"], Cell[CellGroupData[{ Cell["Example", "Subsubsection"], Cell["\<\ Use the LogPlot command to create a graphic of the natural log \ function.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LogPlot", "[", RowBox[{\(Log[x]\), ",", " ", RowBox[{"{", RowBox[{"x", ",", " ", FormBox[\(1\/2\), "TraditionalForm"], ",", " ", "5"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ \(LogPlot[Log[x], {x, 1\/2, 5}]\)], "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Improved example", "Subsubsection"], Cell[TextData[{ "First load the graphics package. Use the ", StyleBox["LogPlot", FontFamily->"Courier"], " command to create a graphic of the natural log function. " }], "Text"], Cell[BoxData[ \(<< Graphics`\)], "Input"], Cell[BoxData[ RowBox[{"LogPlot", "[", RowBox[{\(Log[x]\), ",", " ", RowBox[{"{", RowBox[{"x", ",", " ", FormBox[\(1\/2\), "TraditionalForm"], ",", " ", "5"}], "}"}]}], "]"}]], "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Use definition boxes early in each chapter to highlight commands.\ \ \>", "Subsection"], Cell[CellGroupData[{ Cell["Example", "Subsubsection"], Cell[TextData[{ "Use the ", StyleBox["Integrate", FontFamily->"Courier"], " command to evaluate integrals. The first argument is the function and the \ second argument is the variable of integration." }], "Text"] }, Closed]], Cell[CellGroupData[{ Cell["Improved example", "Subsubsection"], Cell[BoxData[GridBox[{ { RowBox[{"Integrate", "[", RowBox[{ StyleBox["f", FontFamily->"Times", FontSlant->"Italic"], ",", " ", StyleBox["x", FontFamily->"Times", FontSlant->"Italic"]}], "]"}], RowBox[{ RowBox[{ StyleBox[ RowBox[{"i", StyleBox["ntegrates", FontFamily->"Times"]}]], StyleBox[" ", FontFamily->"Times"], StyleBox["the", FontFamily->"Times"], StyleBox[" ", FontFamily->"Times"], StyleBox["function", FontFamily->"Times"], StyleBox[" ", FontFamily->"Times"], StyleBox["f", FontFamily->"Times", FontSlant->"Italic"]}], StyleBox[",", FontFamily->"Times"], StyleBox[" ", FontFamily->"Times"], RowBox[{ StyleBox["where", FontFamily->"Times"], StyleBox[" ", FontFamily->"Times"], StyleBox["x", FontFamily->"Times", FontSlant->"Italic"], StyleBox[" ", FontFamily->"Times"], StyleBox["is", FontFamily->"Times"], StyleBox[" ", FontFamily->"Times"], StyleBox["the", FontFamily->"Times"], StyleBox[" ", FontFamily->"Times"], StyleBox["variable", FontFamily->"Times"], StyleBox[" ", FontFamily->"Times"], StyleBox["of", FontFamily->"Times"], StyleBox["\t", FontFamily->"Times"], StyleBox["integration", FontFamily->"Times"]}]}]} }]], "Input", CellFrame->True, FontWeight->"Plain", Background->GrayLevel[0.849989]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Tables can highlight options quickly and easily.", "Subsection"], Cell[CellGroupData[{ Cell["Example", "Subsubsection"], Cell[TextData[{ "The ", StyleBox["Plot", FontFamily->"Courier"], " command has options such as ", StyleBox["PlotLabel", FontFamily->"Courier"], ", ", StyleBox["Frame", FontFamily->"Courier"], ", and ", StyleBox["Axes", FontFamily->"Courier"], "." }], "Text"] }, Closed]], Cell[CellGroupData[{ Cell["Improved example", "Subsubsection"], Cell[TextData[Cell[BoxData[ FormBox[GridBox[{ { StyleBox[\(option\ name\), "RO", FontWeight->"Roman", FontSlant->"Italic"], StyleBox[\(default\ value\), "RO", FontWeight->"Roman", FontSlant->"Italic"], " "}, { StyleBox["Axes", "MR"], StyleBox["Automatic", "MR"], StyleBox[\(whether\ to\ include\ axes\), "Text"]}, { StyleBox[ FormBox[ StyleBox["Frame", "MR"], "StandardForm"], "Input"], StyleBox[ FormBox[ StyleBox["False", "MR"], "StandardForm"], "Input"], StyleBox[\(whether\ to\ draw\ a\ frame\ around\ the\ plot\), "Text"]}, { StyleBox[ FormBox[ StyleBox["PlotLabel", "MR"], "StandardForm"], "Input"], StyleBox[ FormBox[ StyleBox["None", "MR"], "StandardForm"], "Input"], StyleBox[ \(\(an\ expression\ to\ be\ printed\ as\ a\)\ \n \(label\ for\ the\ plot\)\), "Text"]} }, RowSpacings->1.5, ColumnSpacings->2, ColumnAlignments->{Left}], NotebookDefault]], NotebookDefault, CellHorizontalScrolling->True, GeneratedCell->True, AutoIndent->False, AutoSpacing->False, LineIndent->0]], "Text", CellFrame->True, Background->GrayLevel[0.849989], GridBoxOptions->{RowLines->{True, False}}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Use numbered lists for step-by-step procedures.", "Subsection"], Cell[CellGroupData[{ Cell["Example", "Subsubsection"], Cell["\<\ You can save a notebook as a text file. Be sure to give it a name \ that doesn't end in the .nb extension. Choose Text from the menu if you want \ to do this. \ \>", "Text"] }, Closed]], Cell[CellGroupData[{ Cell["Improved example", "Subsubsection"], Cell["To save a notebook as a text file:", "Text"], Cell[TextData[{ "1. Click ", StyleBox["File \[RightTriangle] Save As.", "SR"], "\n2. Choose ", StyleBox["Text", "SR"], " from the submenu.\n3. In the dialog box, specify the name for the text \ file. It is the usual convention to use the ", StyleBox[".nb", "MR"], " extension only for notebook files. " }], "ItemizedText"] }, Closed]] }, Closed]], Cell[TextData[{ "Examples in ", StyleBox["In", FontFamily->"Courier"], " and ", StyleBox["Out", FontFamily->"Courier"], " sessions are good, but explanatory text beside such sessions should be \ brief and include complete sentences." }], "Subsection"] }, Closed]], Cell[CellGroupData[{ Cell["5. Formatting: Adding the Polish", "Section"], Cell[CellGroupData[{ Cell[TextData[{ "Here is a short list of cell styles defined in the ", StyleBox["Manual.nb", FontFamily->"Courier"], " style sheet." }], "Subsection"], Cell[BoxData[ FormBox[GridBox[{ { StyleBox[\(style\ of\ text\), "TI", FontFamily->"Times", FontSize->12, FontWeight->"Roman", FontSlant->"Italic", FontTracking->"Plain", PrivateFontOptions->{"FontPostScriptName"->Automatic}], StyleBox["example", "TI", FontFamily->"Times", FontSize->12, FontWeight->"Roman", FontSlant->"Italic", FontTracking->"Plain", PrivateFontOptions->{"FontPostScriptName"->Automatic}], StyleBox[\(cell\ style\), "TI", FontFamily->"Times", FontSize->12, FontWeight->"Roman", FontSlant->"Italic", FontTracking->"Plain", PrivateFontOptions->{"FontPostScriptName"->Automatic}], StyleBox["font", "TI", FontFamily->"Times", FontSize->12, FontWeight->"Roman", FontSlant->"Italic", FontTracking->"Plain", PrivateFontOptions->{"FontPostScriptName"->Automatic}]}, {\(Chapter\ title\), StyleBox["Title", "Title"], "Title", \(Helvetica\ Bold\)}, {\(Chapter\ subtitle\), StyleBox["Subtitle", "Subtitle"], "Subtitle", "Helvetica"}, {\(Chapter\ subsubtitle\), StyleBox["Subsubtitle", "Subsubtitle"], "Subsubtitle", \(Helvetica\ Oblique\)}, {"Section", StyleBox["Section", "Section"], "Section", \(Helvetica\ Bold\)}, {"Subsection", StyleBox["Subsection", "Subsection", FontFamily->"Helvetica", FontSize->14, FontWeight->"Bold"], "Subsection", \(Helvetica\ Bold\)}, {\(Subsubsection\), StyleBox["Subsubsection", "Subsubsection", FontFamily->"Helvetica", FontWeight->"Bold"], \(Subsubsection\), \(Helvetica\ Bold\)}, { StyleBox[\(Main\ text\), SingleLetterItalics->False], StyleBox[\(This\ is\ a\ \(sentence . \)\ \), SingleLetterItalics->False], "Text", StyleBox[\(Times\ Roman\), SingleLetterItalics->False]}, {\(Mathematica\ \ncommands\ written\ \nin\ a\ separate\ cell\), StyleBox[\(Plot[Sin[\ Cos[x]], \ \n{x, \ 0, \ 4\ Pi}]\), "Input", FontFamily->"Courier", FontWeight->"Bold"], "Input", StyleBox[\(Courier\ Bold\), SingleLetterItalics->False]}, {\(Mathematica\ commands\ written\ \n within\ text\), StyleBox[\(Plot[Sin[\ Cos[x]], \ \n{x, \ 0, \ 4\ Pi}]\), "MR", FontFamily->"Courier", FontWeight->"Roman"], \(MR\ \((inline)\)\), StyleBox["Courier", SingleLetterItalics->False]}, { \(Variables\ in\ a\ \ndiscussion\ of\ a\ \nMathematica\ \ncommand \), RowBox[{ StyleBox["Plot", "MR", FontFamily->"Courier", FontWeight->"Roman"], StyleBox["[", "MR", FontFamily->"Courier", FontWeight->"Roman"], RowBox[{ StyleBox["f", "IT", FontWeight->"Roman", FontSlant->"Italic"], StyleBox[",", "MR", FontFamily->"Courier", FontSize->12, FontWeight->"Roman", FontSlant->"Plain", FontTracking->"Plain", PrivateFontOptions->{"FontPostScriptName"->Automatic}], StyleBox[" ", "MR", FontFamily->"Courier", FontSize->12, FontWeight->"Roman", FontSlant->"Plain", FontTracking->"Plain", PrivateFontOptions->{"FontPostScriptName"->Automatic}], RowBox[{ StyleBox["{", "MR", FontFamily->"Courier", FontSize->12, FontWeight->"Roman", FontSlant->"Plain", FontTracking->"Plain", PrivateFontOptions->{"FontPostScriptName"->Automatic}], RowBox[{ StyleBox["x", "IT", FontWeight->"Roman", FontSlant->"Italic"], StyleBox[",", "MR", FontFamily->"Courier", FontSize->12, FontWeight->"Roman", FontSlant->"Plain", FontTracking->"Plain", PrivateFontOptions->{ "FontPostScriptName"->Automatic}], StyleBox[" ", "MR", FontFamily->"Courier", FontSize->12, FontWeight->"Roman", FontSlant->"Plain", FontTracking->"Plain", PrivateFontOptions->{"FontPostScriptName"->Automatic}], "\n", StyleBox["xmin", "IT", FontWeight->"Roman", FontSlant->"Italic"], StyleBox[",", "MR", FontFamily->"Courier", FontWeight->"Roman"], StyleBox[" ", FontFamily->"Courier", FontSize->12, FontWeight->"Roman", FontSlant->"Plain", FontTracking->"Plain", PrivateFontOptions->{ "FontPostScriptName"->Automatic}], StyleBox["xmax", "IT", FontWeight->"Roman", FontSlant->"Italic"]}], StyleBox["}", "MR", FontFamily->"Courier", FontWeight->"Roman"]}]}], StyleBox["]", "MR", FontFamily->"Courier", FontWeight->"Roman"]}], \(IT\ \((inline)\)\), \(Time\[Hyphen]Roman\n\ Italic\)}, { StyleBox[\(User\ input\ \nwritten\ in\ a\ \nseparate\ cell\), SingleLetterItalics->False], StyleBox[\(x\ = \ 2 + 2\), "Input", FontFamily->"Courier", FontWeight->"Bold"], "Input", StyleBox[\(Courier\ Bold\), SingleLetterItalics->False]}, { StyleBox[\(User\ input\ \nwritten\ within\ \ntext\), SingleLetterItalics->False], StyleBox[\(x = 2 + 2\), "MR", FontFamily->"Courier", FontWeight->"Roman"], \(MR\ \((inline)\)\), StyleBox["Courier", SingleLetterItalics->False]}, { StyleBox[\(Buttons\ and\ \nmenu\ commands\), SingleLetterItalics->False], StyleBox[\(Edit\ \[RightTriangle] \ Copy\), "SR", FontFamily->"Helvetica", FontWeight->"Roman"], \(SR\ \((inline)\)\), StyleBox["Helvetica", SingleLetterItalics->False]}, { StyleBox["Captions", SingleLetterItalics->False], StyleBox[\(Some\ typical\ text\ \(examples . \)\), "Caption", FontFamily->"Helvetica", FontSize->9, FontWeight->"Roman"], "Caption", StyleBox["Helvetica", SingleLetterItalics->False]} }], NotebookDefault]], "DefinitionBox4Col", CellFrame->0.5, CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, AutoIndent->False, AutoSpacing->False, LineIndent->0, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->3, ColumnAlignments->{Left}, RowLines->{True, False}}], Cell[TextData[{ "If I am referring to the ", StyleBox["Integrate", "MR"], " command" }], "Text"] }, Closed]], Cell["\<\ Tools are available to make the formatting work easier, and there \ are tools for producing definition boxes and tables. See Andre Kuzniarek's \ talk tomorrow for a tutorial on these tools.\ \>", "Subsection"] }, Closed]], Cell[CellGroupData[{ Cell["Resources", "Section"], Cell[TextData[{ "\[FilledSmallCircle] The Developer's CD\n\[FilledSmallCircle] ", StyleBox["The King's English", FontSlant->"Italic"], " by H.W. Fowler: ", StyleBox["http://www.columbia.edu/acis/bartleby/fowler/\n", "MR"], "\[FilledSmallCircle] ", StyleBox["The Elements of Style", FontSlant->"Italic"], " by William Strunk: ", StyleBox["http://www.columbia.edu/acis/bartleby/strunk/", "MR"] }], "ItemizedText"] }, Closed]] }, Open ]] }, FrontEndVersion->"Macintosh 3.0", ScreenRectangle->{{0, 640}, {0, 460}}, ScreenStyleEnvironment->"AllBrackets", WindowToolbars->"EditBar", WindowSize->{537, 442}, WindowMargins->{{4, Automatic}, {Automatic, 1}}, PrintingCopies->1, PrintingPageRange->{1, Automatic}, 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, ShowCellBracket->False, ScriptMinSize->9], Cell[StyleData[All, "AllBrackets"], PageWidth->WindowWidth, ShowCellBracket->True, ScriptMinSize->9], Cell[StyleData[All, "Printout"], PageWidth->PaperWidth, ShowCellBracket->False, ScriptMinSize->5, FontSize->10, PrivateFontOptions->{"FontType"->"Outline"}], Cell[StyleData[All, "EnhancedPrintout"], PageWidth->PaperWidth, ShowCellBracket->False, ScriptMinSize->5, FontFamily->"Palatino", 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"], PrintingStyleEnvironment->"Printout", PageHeaders->{{Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"], None, Cell[ TextData[ { ValueBox[ "FileName"]}], "Header"]}, {Cell[ TextData[ { ValueBox[ "FileName"]}], "Header"], None, Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"]}}, PrintingOptions->{"PrintingMargins"->{{97, 97}, {180, 64}}, "FirstPageHeader"->False, "FacingPages"->True}, CellLabelAutoDelete->False, CellFrameLabelMargins->6, StyleMenuListing->None] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Headings", "Section"], Cell[CellGroupData[{ Cell[StyleData["Title"], CellMargins->{{12, Inherited}, {20, 40}}, CellGroupingRules->{"TitleGrouping", 0}, PageBreakAbove->True, PageBreakBelow->False, CounterIncrements->"Title", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, { "Subtitle", 0}, {"Subsubtitle", 0}}, FontFamily->"Helvetica", FontSize->36, FontWeight->"Bold"], Cell[StyleData["Title", "Printout"], CellMargins->{{2, 10}, {15, 30}}, FontSize->30], Cell[StyleData["Title", "EnhancedPrintout"], CellMargins->{{2, 10}, {15, 30}}, FontFamily->"Futura", FontSize->30] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subtitle"], CellMargins->{{12, Inherited}, {10, 2}}, CellGroupingRules->{"TitleGrouping", 10}, PageBreakBelow->False, CounterIncrements->"Subtitle", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, { "Subsubtitle", 0}}, FontFamily->"Helvetica", FontSize->28], Cell[StyleData["Subtitle", "Printout"], CellMargins->{{2, 10}, {10, 15}}, FontSize->24], Cell[StyleData["Subtitle", "EnhancedPrintout"], CellMargins->{{2, 10}, {10, 15}}, FontFamily->"Futura", FontSize->24] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsubtitle"], CellMargins->{{12, Inherited}, {10, 20}}, CellGroupingRules->{"TitleGrouping", 20}, PageBreakBelow->False, CounterIncrements->"Subsubtitle", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}}, FontFamily->"Helvetica", FontSize->14, FontSlant->"Italic"], Cell[StyleData["Subsubtitle", "Printout"], CellMargins->{{2, 10}, {8, 10}}, FontSize->12], Cell[StyleData["Subsubtitle", "EnhancedPrintout"], CellMargins->{{2, 10}, {8, 10}}, FontFamily->"Futura", FontSize->12] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Section"], CellFrame->{{0, 0}, {0.5, 0}}, CellMargins->{{10, Inherited}, {8, 30}}, CellGroupingRules->{"SectionGrouping", 30}, PageBreakBelow->False, CellFrameMargins->8, CounterIncrements->"Section", CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}}, FontFamily->"Helvetica", FontSize->20, FontWeight->"Bold"], Cell[StyleData["Section", "Printout"], CellMargins->{{2, 0}, {7, 24}}, FontSize->16], Cell[StyleData["Section", "EnhancedPrintout"], CellMargins->{{2, 0}, {7, 24}}, FontFamily->"Futura", FontSize->16] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsection"], CellDingbat->"\[FilledSquare]", CellMargins->{{24, Inherited}, {8, 30}}, CellGroupingRules->{"SectionGrouping", 40}, PageBreakBelow->False, CounterIncrements->"Subsection", CounterAssignments->{{"Subsubsection", 0}}, FontFamily->"Helvetica", FontSize->14], Cell[StyleData["Subsection", "Printout"], CellMargins->{{9, 0}, {7, 24}}, FontSize->12], Cell[StyleData["Subsection", "EnhancedPrintout"], CellMargins->{{9, 0}, {7, 24}}, FontFamily->"Futura", FontSize->14] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsubsection"], ShowGroupOpenCloseIcon->True, CellMargins->{{12, Inherited}, {8, 24}}, CellGroupingRules->{"SectionGrouping", 50}, PageBreakBelow->False, CounterIncrements->"Subsubsection", FontFamily->"Helvetica"], Cell[StyleData["Subsubsection", "Printout"], CellMargins->{{2, 0}, {7, 18}}, FontSize->10], Cell[StyleData["Subsubsection", "EnhancedPrintout"], CellMargins->{{2, 0}, {7, 18}}, FontFamily->"Futura", FontSize->10] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Styles for Body Text", "Section"], Cell[CellGroupData[{ Cell[StyleData["Text"], CellMargins->{{12, 10}, {7, 7}}, LineSpacing->{1, 3}, ParagraphSpacing->{0.7, 0}, CounterIncrements->"Text"], Cell[StyleData["Text", "Printout"], CellMargins->{{2, 2}, {6, 6}}, TextJustification->1, FontSize->11], Cell[StyleData["Text", "EnhancedPrintout"], CellMargins->{{2, 2}, {6, 6}}, TextJustification->1, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SmallText"], CellMargins->{{12, 10}, {6, 6}}, LineSpacing->{1, 3}, ParagraphSpacing->{0.7, 0}, CounterIncrements->"SmallText", FontSize->9], Cell[StyleData["SmallText", "Printout"], CellMargins->{{2, 2}, {5, 5}}, TextJustification->1, FontSize->7], Cell[StyleData["SmallText", "EnhancedPrintout"], CellMargins->{{2, 2}, {5, 5}}, TextJustification->1, FontFamily->"Palatino", 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.\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["Input"], ShowCellBracket->True, CellMargins->{{45, 10}, {5, 7}}, Evaluatable->True, CellGroupingRules->"InputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, CellLabelMargins->{{11, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultInputFormatType, AutoItalicWords->{}, FormatType->InputForm, ShowStringCharacters->True, NumberMarks->True, CounterIncrements->"Input", FontWeight->"Bold"], Cell[StyleData["Input", "Printout"], ShowCellBracket->False, CellMargins->{{39, 0}, {4, 6}}, FontSize->9], Cell[StyleData["Input", "EnhancedPrintout"], ShowCellBracket->False, CellMargins->{{39, 0}, {4, 6}}, FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Output"], ShowCellBracket->True, CellMargins->{{46, 10}, {7, 5}}, CellEditDuplicate->True, CellGroupingRules->"OutputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, CellLabelMargins->{{11, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, AutoItalicWords->{}, FormatType->InputForm, CounterIncrements->"Output"], Cell[StyleData["Output", "Printout"], ShowCellBracket->False, CellMargins->{{39, 0}, {6, 4}}, FontSize->9], Cell[StyleData["Output", "EnhancedPrintout"], ShowCellBracket->False, CellMargins->{{39, 0}, {6, 4}}, FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Message"], ShowCellBracket->True, CellMargins->{{45, Inherited}, {Inherited, Inherited}}, CellGroupingRules->"OutputGrouping", PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, CellLabelMargins->{{11, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, AutoItalicWords->{}, FormatType->InputForm, CounterIncrements->"Message", StyleMenuListing->None, FontSlant->"Italic", FontColor->RGBColor[1, 0, 0]], Cell[StyleData["Message", "Printout"], ShowCellBracket->False, CellMargins->{{39, Inherited}, {Inherited, Inherited}}, FontSize->9, FontColor->GrayLevel[0]], Cell[StyleData["Message", "EnhancedPrintout"], ShowCellBracket->False, CellMargins->{{39, Inherited}, {Inherited, Inherited}}, FontFamily->"Courier", FontSize->9, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Print"], ShowCellBracket->True, CellMargins->{{75, Inherited}, {Inherited, Inherited}}, CellGroupingRules->"OutputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, CellLabelMargins->{{11, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, AutoItalicWords->{}, FormatType->InputForm, CounterIncrements->"Print", StyleMenuListing->None], Cell[StyleData["Print", "Printout"], ShowCellBracket->False, CellMargins->{{57, Inherited}, {Inherited, Inherited}}, FontSize->9], Cell[StyleData["Print", "EnhancedPrintout"], ShowCellBracket->False, CellMargins->{{57, Inherited}, {Inherited, Inherited}}, FontFamily->"Courier", FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Graphics"], ShowCellBracket->True, CellMargins->{{47, Inherited}, {Inherited, Inherited}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, DefaultFormatType->DefaultOutputFormatType, FormatType->InputForm, CounterIncrements->"Graphics", StyleMenuListing->None], Cell[StyleData["Graphics", "Printout"], ShowCellBracket->False, CellMargins->{{39, Inherited}, {Inherited, Inherited}}, ImageSize->{250, 250}, FontSize->9], Cell[StyleData["Graphics", "EnhancedPrintout"], ShowCellBracket->False, CellMargins->{{39, Inherited}, {Inherited, Inherited}}, ImageSize->{250, 250}, FontFamily->"Courier", FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["CellLabel"], StyleMenuListing->None, FontFamily->"Helvetica", FontSize->9, FontColor->RGBColor[0, 0, 1]], Cell[StyleData["CellLabel", "Printout"], FontFamily->"Courier", FontSize->8, FontSlant->"Italic", FontColor->GrayLevel[0]], Cell[StyleData["CellLabel", "EnhancedPrintout"], 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"], StyleMenuListing->None, FontFamily->"Courier", FontWeight->"Plain", FontSlant->"Plain"], Cell[StyleData["MO"], StyleMenuListing->None, FontFamily->"Courier", FontWeight->"Plain", FontSlant->"Italic"], Cell[StyleData["MB"], StyleMenuListing->None, FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Plain"], Cell[StyleData["MBO"], 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"], Cell[StyleData["SO10", "EnhancedPrintout"], StyleMenuListing->None, FontFamily->"Futura", FontSize->7, FontWeight->"Plain", FontSlant->"Italic"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Miscellaneous Styles", "Section"], Cell[CellGroupData[{ Cell[StyleData["MathCaption"], CellDingbat->"\[FilledSmallSquare]", CellMargins->{{46, 42}, {0, 14}}, PageBreakBelow->False, LineSpacing->{1, 1}, ParagraphSpacing->{0, 8}, FontColor->RGBColor[0, 0, 0.6]], Cell[StyleData["MathCaption", "Printout"], CellMargins->{{42, 42}, {0, 14}}, FontSize->10, FontColor->GrayLevel[0]], Cell[StyleData["MathCaption", "EnhancedPrintout"], CellMargins->{{42, 42}, {0, 14}}, FontFamily->"Palatino", FontSize->10, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Commentary"], CellFrame->{{2, 0}, {0, 0}}, CellMargins->{{36, 10}, {7, 7}}, PageBreakBelow->False, CellFrameMargins->8, CellFrameColor->RGBColor[0, 0.2, 1], LineSpacing->{1, 3}, ParagraphSpacing->{0, 8}, FontSlant->"Italic"], Cell[StyleData["Commentary", "Printout"], CellMargins->{{36, 0}, {6, 6}}, CellFrameColor->GrayLevel[0.8], FontSize->10], Cell[StyleData["Commentary", "EnhancedPrintout"], CellMargins->{{36, 0}, {6, 6}}, CellFrameColor->GrayLevel[0.8], FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ItemizedText"], CellMargins->{{20, 4}, {0, 4}}, LineSpacing->{1, 3}, ParagraphSpacing->{0, 4}, ParagraphIndent->-21, CounterIncrements->"Text"], Cell[StyleData["ItemizedText", "Printout"], ParagraphIndent->-18, FontSize->10], Cell[StyleData["ItemizedText", "EnhancedPrintout"], ParagraphIndent->-18, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ItemizedTextNote"], CellMargins->{{41, 4}, {0, 4}}, LineSpacing->{1, 3}, ParagraphSpacing->{0, 4}, CounterIncrements->"Text"], Cell[StyleData["ItemizedTextNote", "Printout"], CellMargins->{{38, 4}, {0, 4}}, FontSize->10], Cell[StyleData["ItemizedTextNote", "EnhancedPrintout"], CellMargins->{{38, 4}, {0, 4}}, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["IndentedText"], CellMargins->{{20, 4}, {0, 6}}, LineSpacing->{1, 3}, ParagraphSpacing->{0, 8}, CounterIncrements->"Text"], Cell[StyleData["IndentedText", "Printout"], FontSize->10], Cell[StyleData["IndentedText", "EnhancedPrintout"], FontFamily->"Palatino", FontSize->10] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Emphasis Boxes and Pictures", "Section"], Cell[CellGroupData[{ Cell[StyleData["DefinitionBox"], CellFrame->0.5, CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.3, 0.7}, ColumnAlignments->{Left}}], Cell[StyleData["DefinitionBox", "Printout"], CellMargins->{{2, 4}, {0, 8}}, FontSize->10, Background->GrayLevel[1]], Cell[StyleData["DefinitionBox", "EnhancedPrintout"], CellMargins->{{2, 4}, {0, 8}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DefinitionBox3Col"], CellFrame->0.5, CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.2, 0.3, 0.5}, ColumnAlignments->{Left}}], Cell[StyleData["DefinitionBox3Col", "Printout"], CellMargins->{{2, 4}, {0, 8}}, FontSize->10, Background->GrayLevel[1]], Cell[StyleData["DefinitionBox3Col", "EnhancedPrintout"], CellMargins->{{2, 4}, {0, 8}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DefinitionBox4Col"], CellFrame->0.5, CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.15, 0.35, 0.15, 0.35}, ColumnAlignments->{Left}}], Cell[StyleData["DefinitionBox4Col", "Printout"], CellMargins->{{2, 4}, {0, 8}}, FontSize->10, Background->GrayLevel[1]], Cell[StyleData["DefinitionBox4Col", "EnhancedPrintout"], CellMargins->{{2, 4}, {0, 8}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DefinitionBox5Col"], CellFrame->0.5, CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->0.2, ColumnAlignments->{Left}}], Cell[StyleData["DefinitionBox5Col", "Printout"], CellMargins->{{2, 4}, {0, 8}}, FontSize->10, Background->GrayLevel[1]], Cell[StyleData["DefinitionBox5Col", "EnhancedPrintout"], CellMargins->{{2, 4}, {0, 8}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DefinitionBox6Col"], CellFrame->0.5, CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.13, 0.24, 0.13, 0.13, 0.24, 0.13}, ColumnAlignments->{Left}}], Cell[StyleData["DefinitionBox6Col", "Printout"], CellMargins->{{2, 4}, {0, 8}}, FontSize->10, Background->GrayLevel[1]], Cell[StyleData["DefinitionBox6Col", "EnhancedPrintout"], CellMargins->{{2, 4}, {0, 8}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TopBox"], CellFrame->{{0.5, 0.5}, {0, 0.5}}, CellMargins->{{11, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakBelow->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.31, 0.62}, ColumnAlignments->{Left}}], Cell[StyleData["TopBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, Background->GrayLevel[1]], Cell[StyleData["TopBox", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, FontFamily->"Palatino", Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["MiddleBox"], CellFrame->{{0.5, 0.5}, {0, 0}}, CellMargins->{{11, 4}, {0, -7}}, CellHorizontalScrolling->True, PageBreakAbove->False, PageBreakBelow->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.31, 0.62}, ColumnAlignments->{Left}}], Cell[StyleData["MiddleBox", "Printout"], CellMargins->{{2, 0}, {0, 0}}, Background->GrayLevel[1]], Cell[StyleData["MiddleBox", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 0}}, FontFamily->"Palatino", Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["MiddleSpacedBox"], CellFrame->{{0.5, 0.5}, {0, 0}}, CellMargins->{{11, 4}, {0, -7}}, CellHorizontalScrolling->True, PageBreakAbove->False, PageBreakBelow->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.31, 0.62}, ColumnAlignments->{Left}, RowMinHeight->1.2}], Cell[StyleData["MiddleSpacedBox", "Printout"], CellMargins->{{2, 0}, {0, 0}}, Background->GrayLevel[1], GridBoxOptions->{RowMinHeight->2.2}], Cell[StyleData["MiddleSpacedBox", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 0}}, FontFamily->"Palatino", Background->GrayLevel[1], GridBoxOptions->{RowMinHeight->2.2}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["BottomBox"], CellFrame->{{0.5, 0.5}, {0.5, 0}}, CellMargins->{{11, 4}, {0, -7}}, CellHorizontalScrolling->True, PageBreakAbove->False, PageBreakBelow->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.31, 0.62}, ColumnAlignments->{Left}, RowMinHeight->2}], Cell[StyleData["BottomBox", "Printout"], CellMargins->{{2, 0}, {0, 0}}, FontSize->10, Background->GrayLevel[1], GridBoxOptions->{RowMinHeight->2.2}], Cell[StyleData["BottomBox", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 0}}, FontFamily->"Palatino", Background->GrayLevel[1], GridBoxOptions->{RowMinHeight->2.2}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TopSpanBox"], CellFrame->{{0.5, 0.5}, {0, 0.5}}, CellMargins->{{11, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakBelow->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.9, 0.03}, ColumnAlignments->{Left}}], Cell[StyleData["TopSpanBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[1]], Cell[StyleData["TopSpanBox", "EnhancedPrintout"], CellMargins->{{2, 4}, {0, 8}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["MiddleSpanBox"], CellFrame->{{0.5, 0.5}, {0, 0}}, CellMargins->{{11, 4}, {0, 0}}, CellHorizontalScrolling->True, PageBreakAbove->False, PageBreakBelow->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.9, 0.03}, ColumnAlignments->{Left}, RowMinHeight->1.2}], Cell[StyleData["MiddleSpanBox", "Printout"], CellMargins->{{2, 0}, {0, 0}}, FontSize->10, Background->GrayLevel[1], GridBoxOptions->{RowMinHeight->2.2}], Cell[StyleData["MiddleSpanBox", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 0}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[1], GridBoxOptions->{RowMinHeight->2.2}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Picture"], CellMargins->{{12, Inherited}, {0, 8}}, CellHorizontalScrolling->True], Cell[StyleData["Picture", "Printout"], CellMargins->{{2, Inherited}, {0, 8}}], Cell[StyleData["Picture", "EnhancedPrintout"], CellMargins->{{2, Inherited}, {0, 8}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Caption"], CellMargins->{{12, 4}, {0, 2}}, PageBreakAbove->False, FontFamily->"Helvetica", FontSize->9], Cell[StyleData["Caption", "Printout"], CellMargins->{{2, 4}, {2, 4}}, FontSize->7], Cell[StyleData["Caption", "EnhancedPrintout"], CellMargins->{{2, 4}, {2, 4}}, FontFamily->"Futura", FontSize->7] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Tables", "Section"], Cell[CellGroupData[{ Cell[StyleData["SingleRowTable"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->2, ColumnAlignments->{Left}}], Cell[StyleData["SingleRowTable", "Printout"], CellMargins->{{2, 0}, {0, 8}}], Cell[StyleData["SingleRowTable", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["2ColumnTable"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->2, ColumnWidths->{0.34, 0.64}, ColumnAlignments->{Left, Center}}], Cell[StyleData["2ColumnTable", "Printout"], CellMargins->{{2, 0}, {0, 8}}], Cell[StyleData["2ColumnTable", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["2ColumnEvenTable"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->2, ColumnWidths->0.49, ColumnAlignments->{Left, Center}}], Cell[StyleData["2ColumnEvenTable", "Printout"], CellMargins->{{2, 0}, {0, 8}}], Cell[StyleData["2ColumnEvenTable", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["3ColumnTable"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->2, ColumnWidths->{0.28, 0.28, 0.43}, ColumnAlignments->{Left, Center}}], Cell[StyleData["3ColumnTable", "Printout"], CellMargins->{{2, 0}, {0, 8}}], Cell[StyleData["3ColumnTable", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["4ColumnTable"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->2, ColumnWidths->0.25, ColumnAlignments->{Left, Center}}], Cell[StyleData["4ColumnTable", "Printout"], CellMargins->{{2, 0}, {0, 8}}], Cell[StyleData["4ColumnTable", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["5ColumnTable"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->2, ColumnWidths->0.2, ColumnAlignments->{Left, Center}}], Cell[StyleData["5ColumnTable", "Printout"], CellMargins->{{2, 0}, {0, 8}}], Cell[StyleData["5ColumnTable", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["6ColumnTable"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->2, ColumnWidths->0.16, ColumnAlignments->{Left, Center}}], Cell[StyleData["6ColumnTable", "Printout"], CellMargins->{{2, 0}, {0, 8}}], Cell[StyleData["6ColumnTable", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["7ColumnTable"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->2, ColumnWidths->0.14, ColumnAlignments->{Left, Center}}], Cell[StyleData["7ColumnTable", "Printout"], CellMargins->{{2, 0}, {0, 8}}], Cell[StyleData["7ColumnTable", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["8ColumnTable"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->2, ColumnWidths->0.12, ColumnAlignments->{Left, Center}}], Cell[StyleData["8ColumnTable", "Printout"], CellMargins->{{2, 0}, {0, 8}}], Cell[StyleData["8ColumnTable", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Automatic Numbering", "Section"], Cell["\<\ The following styles are useful for numbered equations, figures, \ etc. They automatically give the cell a FrameLabel containing a reference to \ a particular counter, and also increment that counter.\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["NumberedEquation"], CellMargins->{{45, 10}, {7, 7}}, CellFrameLabels->{{None, Cell[ TextData[ {"(", CounterBox[ "NumberedEquation"], ")"}]]}, {None, None}}, DefaultFormatType->DefaultInputFormatType, CounterIncrements->"NumberedEquation", FormatTypeAutoConvert->False], Cell[StyleData["NumberedEquation", "Printout"], CellMargins->{{39, 55}, {0, 10}}, FontSize->10], Cell[StyleData["NumberedEquation", "EnhancedPrintout"], CellMargins->{{39, 55}, {0, 10}}, FontFamily->"Palatino", FontSize->10] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Formulas and Programming", "Section"], Cell[CellGroupData[{ Cell[StyleData["DisplayFormula"], CellMargins->{{45, Inherited}, {7, 7}}, CellHorizontalScrolling->True, ScriptLevel->0, SingleLetterItalics->True, UnderoverscriptBoxOptions->{LimitsPositioning->True}], Cell[StyleData["DisplayFormula", "Printout"]], Cell[StyleData["DisplayFormula", "EnhancedPrintout"], FontFamily->"Palatino"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DisplayMath"], CellMargins->{{45, 10}, {7, 7}}, Evaluatable->False, CellGroupingRules->"InputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, DefaultFormatType->DefaultInputFormatType, AutoItalicWords->{}, FormatType->InputForm, ShowStringCharacters->True, NumberMarks->True, CounterIncrements->"Input"], Cell[StyleData["DisplayMath", "Printout"], CellMargins->{{39, 0}, {6, 6}}, FontSize->9], Cell[StyleData["DisplayMath", "EnhancedPrintout"], CellMargins->{{39, 0}, {4, 6}}, FontFamily->"WRICourier", FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["EquationNumber"], LineSpacing->{1.83, 0}], Cell[StyleData["EquationNumber", "Printout"], LineSpacing->{1.7, 0}], Cell[StyleData["EquationNumber", "EnhancedPrintout"], LineSpacing->{1.7, 0}, FontFamily->"Palatino"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Program"], CellFrame->{{0, 0}, {0.5, 0.5}}, CellMargins->{{12, Inherited}, {7, 7}}, CellFrameMargins->{{0, 0}, {7, 5}}, FontFamily->"Courier"], Cell[StyleData["Program", "Printout"], CellMargins->{{18, 30}, {Inherited, 4}}, FontSize->9.5], Cell[StyleData["Program", "EnhancedPrintout"], CellMargins->{{18, 30}, {Inherited, 4}}, FontFamily->"WRICourier", FontSize->9.5] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Contents and Index", "Section"], Cell[CellGroupData[{ Cell[StyleData["ContentsTitle"], CellMargins->{{10, 4}, {0, 18}}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->26, FontWeight->"Bold"], Cell[StyleData["ContentsTitle", "Printout"], CellMargins->{{2, 0}, {0, 18}}, PageBreakBelow->False, FontSize->18], Cell[StyleData["ContentsTitle", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 18}}, PageBreakBelow->False, FontFamily->"Futura", FontSize->18] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ContentsSection"], CellMargins->{{20, 4}, {3, 18}}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->12, FontWeight->"Bold"], Cell[StyleData["ContentsSection", "Printout"], CellMargins->{{12, 0}, {3, 18}}, PageBreakBelow->False, FontSize->11], Cell[StyleData["ContentsSection", "EnhancedPrintout"], CellMargins->{{12, 0}, {3, 18}}, PageBreakBelow->False, FontFamily->"Futura", FontSize->11] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Contents"], CellMargins->{{21, 4}, {0, 8}}, StyleMenuListing->None], Cell[StyleData["Contents", "Printout"], CellMargins->{{13, 0}, {0, 8}}], Cell[StyleData["Contents", "EnhancedPrintout"], CellMargins->{{13, 0}, {0, 8}}, FontFamily->"Palatino", FontSize->11] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Index"], CellMargins->{{21, 4}, {0, 0}}, ParagraphIndent->-48, StyleMenuListing->None], Cell[StyleData["Index", "Printout"], CellMargins->{{13, 0}, {0, 0}}, FontSize->10], Cell[StyleData["Index", "EnhancedPrintout"], CellMargins->{{13, 0}, {0, 0}}, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["IndexSubentry"], CellMargins->{{36, 4}, {0, 0}}, ParagraphIndent->-48, StyleMenuListing->None], Cell[StyleData["IndexSubentry", "Printout"], CellMargins->{{24, 0}, {0, 0}}, FontSize->10], Cell[StyleData["IndexSubentry", "EnhancedPrintout"], CellMargins->{{24, 0}, {0, 0}}, FontFamily->"Palatino", FontSize->10] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Headers and Footers", "Section"], Cell[CellGroupData[{ Cell[StyleData["Header"], CellMargins->{{0, 0}, {4, 1}}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->8, FontWeight->"Bold"], Cell[StyleData["Header", "Printout"]], Cell[StyleData["Header", "EnhancedPrintout"], FontFamily->"Futura"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Footer"], CellMargins->{{0, 0}, {0, 4}}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->7, FontSlant->"Plain"], Cell[StyleData["Footer", "Printout"]], Cell[StyleData["Footer", "EnhancedPrintout"], FontFamily->"Futura"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["PageNumber"], CellMargins->{{0, 0}, {4, 1}}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->8, FontWeight->"Bold"], Cell[StyleData["PageNumber", "Printout"]], Cell[StyleData["PageNumber", "EnhancedPrintout"], FontFamily->"Futura"] }, 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, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookLocate[ #2]}]&), Active->True, ButtonNote->ButtonData}], Cell[StyleData["Hyperlink", "Printout"], FontSize->11, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["Hyperlink", "EnhancedPrintout"], FontFamily->"Palatino", FontSize->10, 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", "Printout"], FontSize->11, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["MainBookLink", "EnhancedPrintout"], FontFamily->"Palatino", FontSize->10, 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", "Printout"], FontSize->10, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["AddOnsLink", "EnhancedPrintout"], FontFamily->"WRICourier", FontSize->10, 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[ "RefGuide", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["RefGuideLink", "Printout"], FontSize->10, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["RefGuideLink", "EnhancedPrintout"], FontFamily->"WRICourier", FontSize->10, 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", "Printout"], FontSize->11, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["GettingStartedLink", "EnhancedPrintout"], FontFamily->"Palatino", FontSize->10, 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", "Printout"], FontSize->11, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["OtherInformationLink", "EnhancedPrintout"], FontFamily->"Palatino", FontSize->10, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]] }, Closed]] }, Open ]] }], MacintoshSystemPageSetup->"\<\ 00<0004/0B`000002mT8o?mooh<" ] (*********************************************************************** 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[1731, 51, 42, 0, 98, "Title"], Cell[1776, 53, 111, 4, 84, "Subsubtitle"], Cell[CellGroupData[{ Cell[1912, 61, 31, 0, 68, "Section"], Cell[1946, 63, 132, 3, 70, "Subsection"], Cell[2081, 68, 79, 0, 54, "Subsection"], Cell[2163, 70, 102, 3, 54, "Subsection"], Cell[2268, 75, 75, 0, 54, "Subsection"] }, Closed]], Cell[CellGroupData[{ Cell[2380, 80, 46, 0, 42, "Section"], Cell[2429, 82, 39, 0, 26, "SmallText"], Cell[2471, 84, 133, 2, 70, "Subsection"], Cell[CellGroupData[{ Cell[2629, 90, 155, 3, 70, "Subsection"], Cell[2787, 95, 328, 5, 80, "ItemizedText"] }, Closed]], Cell[3130, 103, 68, 0, 54, "Subsection"] }, Closed]], Cell[CellGroupData[{ Cell[3235, 108, 56, 0, 42, "Section"], Cell[3294, 110, 50, 0, 26, "SmallText"], Cell[3347, 112, 49, 0, 54, "Subsection"], Cell[3399, 114, 47, 0, 54, "Subsection"], Cell[CellGroupData[{ Cell[3471, 118, 62, 1, 56, "Subsection"], Cell[3536, 121, 147, 2, 40, "ItemizedText"] }, Closed]], Cell[CellGroupData[{ Cell[3720, 128, 51, 0, 54, "Subsection"], Cell[3774, 130, 288, 4, 56, "ItemizedText"] }, Closed]], Cell[CellGroupData[{ Cell[4099, 139, 58, 0, 54, "Subsection"], Cell[4160, 141, 255, 9, 40, "ItemizedText"] }, Closed]], Cell[4430, 153, 65, 0, 54, "Subsection"], Cell[4498, 155, 62, 1, 56, "Subsection"], Cell[4563, 158, 59, 0, 54, "Subsection"], Cell[4625, 160, 206, 4, 86, "Subsection"], Cell[4834, 166, 122, 3, 70, "Subsection"], Cell[4959, 171, 84, 1, 54, "Subsection"], Cell[5046, 174, 61, 0, 54, "Subsection"], Cell[CellGroupData[{ Cell[5132, 178, 108, 3, 70, "Subsection"], Cell[5243, 183, 177, 3, 40, "ItemizedText"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[5469, 192, 53, 0, 42, "Section"], Cell[5525, 194, 77, 0, 26, "SmallText"], Cell[5605, 196, 113, 3, 70, "Subsection"], Cell[5721, 201, 42, 0, 54, "Subsection"], Cell[5766, 203, 74, 0, 54, "Subsection"], Cell[5843, 205, 220, 4, 86, "Subsection"], Cell[CellGroupData[{ Cell[6088, 213, 63, 0, 54, "Subsection"], Cell[6154, 215, 241, 3, 56, "ItemizedText"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[6444, 224, 50, 0, 42, "Section"], Cell[6497, 226, 49, 0, 54, "Subsection"], Cell[6549, 228, 95, 3, 54, "Subsection"], Cell[6647, 233, 104, 3, 54, "Subsection"], Cell[CellGroupData[{ Cell[6776, 240, 60, 0, 54, "Subsection"], Cell[6839, 242, 115, 2, 30, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[6991, 249, 45, 0, 28, "Subsection"], Cell[7039, 251, 196, 3, 40, "ItemizedText"], Cell[CellGroupData[{ Cell[7260, 258, 32, 0, 47, "Subsubsection"], Cell[7295, 260, 269, 10, 48, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[7601, 275, 41, 0, 47, "Subsubsection"], Cell[7645, 277, 554, 22, 50, "Text"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[8248, 305, 59, 0, 28, "Subsection"], Cell[CellGroupData[{ Cell[8332, 309, 32, 0, 47, "Subsubsection"], Cell[8367, 311, 242, 6, 79, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[8646, 322, 41, 0, 47, "Subsubsection"], Cell[8690, 324, 297, 6, 80, "Text"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[9036, 336, 64, 0, 28, "Subsection"], Cell[CellGroupData[{ Cell[9125, 340, 32, 0, 47, "Subsubsection"], Cell[9160, 342, 256, 6, 47, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[9453, 353, 41, 0, 47, "Subsubsection"], Cell[9497, 355, 239, 6, 47, "Text"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[9785, 367, 118, 3, 44, "Subsection"], Cell[CellGroupData[{ Cell[9928, 374, 32, 0, 47, "Subsubsection"], Cell[9963, 376, 310, 9, 80, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[10310, 390, 41, 0, 27, "Subsubsection"], Cell[10354, 392, 141, 5, 31, "Text"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[10544, 403, 41, 0, 28, "Subsection"], Cell[CellGroupData[{ Cell[10610, 407, 32, 0, 47, "Subsubsection"], Cell[10645, 409, 149, 4, 55, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[10831, 418, 41, 0, 47, "Subsubsection"], Cell[10875, 420, 132, 3, 55, "Text"] }, Closed]] }, Closed]], Cell[11034, 427, 59, 0, 28, "Subsection"], Cell[CellGroupData[{ Cell[11118, 431, 78, 0, 54, "Subsection"], Cell[CellGroupData[{ Cell[11221, 435, 32, 0, 47, "Subsubsection"], Cell[11256, 437, 122, 5, 31, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[11415, 447, 41, 0, 47, "Subsubsection"], Cell[11459, 449, 107, 5, 31, "Text"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[11615, 460, 97, 3, 28, "Subsection"], Cell[CellGroupData[{ Cell[11737, 467, 32, 0, 47, "Subsubsection"], Cell[11772, 469, 98, 3, 30, "Text"], Cell[CellGroupData[{ Cell[11895, 476, 242, 6, 42, "Input"], Cell[12140, 484, 63, 1, 28, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[12252, 491, 41, 0, 27, "Subsubsection"], Cell[12296, 493, 187, 5, 47, "Text"], Cell[12486, 500, 45, 1, 27, "Input"], Cell[12534, 503, 242, 6, 42, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[12825, 515, 97, 3, 28, "Subsection"], Cell[CellGroupData[{ Cell[12947, 522, 32, 0, 47, "Subsubsection"], Cell[12982, 524, 222, 6, 47, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[13241, 535, 41, 0, 47, "Subsubsection"], Cell[13285, 537, 2130, 64, 43, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[15464, 607, 70, 0, 28, "Subsection"], Cell[CellGroupData[{ Cell[15559, 611, 32, 0, 47, "Subsubsection"], Cell[15594, 613, 292, 14, 31, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[15923, 632, 41, 0, 47, "Subsubsection"], Cell[15967, 634, 1826, 62, 116, "Text"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[17842, 702, 69, 0, 28, "Subsection"], Cell[CellGroupData[{ Cell[17936, 706, 32, 0, 47, "Subsubsection"], Cell[17971, 708, 183, 4, 46, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[18191, 717, 41, 0, 47, "Subsubsection"], Cell[18235, 719, 50, 0, 30, "Text"], Cell[18288, 721, 336, 9, 77, "ItemizedText"] }, Closed]] }, Closed]], Cell[18651, 734, 269, 9, 44, "Subsection"] }, Closed]], Cell[CellGroupData[{ Cell[18957, 748, 51, 0, 42, "Section"], Cell[CellGroupData[{ Cell[19033, 752, 160, 5, 54, "Subsection"], Cell[19196, 759, 8550, 222, 800, "DefinitionBox4Col"], Cell[27749, 983, 102, 4, 31, "Text"] }, Closed]], Cell[27866, 990, 219, 4, 86, "Subsection"] }, Closed]], Cell[CellGroupData[{ Cell[28122, 999, 28, 0, 42, "Section"], Cell[28153, 1001, 435, 11, 92, "ItemizedText"] }, Closed]] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)