(************** Content-type: application/mathematica ************** Mathematica-Compatible Notebook This notebook can be used with any Mathematica-compatible application, such as Mathematica, MathReader or Publicon. 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[ 9754, 380]*) (*NotebookOutlinePosition[ 84472, 3036]*) (* CellTagsIndexPosition[ 84428, 3032]*) (*WindowFrame->Normal*) Notebook[{ Cell["Introduction to Probability ", "OnlineHeader"], Cell[CellGroupData[{ Cell["Experiments for Assignment 1", "Title", ShowGroupOpenCloseIcon->False], Cell["Introduction", "Subtitle"], Cell[TextData[{ "I will be using ", StyleBox["Mathematica", FontSlant->"Italic"], " to perform all of the experiments. Every assignment will have a \ corresponding ", StyleBox["Mathematica", FontSlant->"Italic"], " notebook which will implement illustrative simulations and probability \ computations. " }], "Text"], Cell[CellGroupData[{ Cell["Simulation of Discrete Probabilities", "SectionFirst"], Cell["\<\ We will begin our investigation of probability by building up our intuition \ about chance experiments. One of the nice things about probability is the \ strong connection with familiar events in our lives. \ \>", "Text"], Cell[CellGroupData[{ Cell["Random Variable (Die Toss)", "Subsection"], Cell[TextData[{ "The outcomes of a chance experiment can be unpredictable. Every time the \ experiment is tried a random outcome occures. This is a random variable. Our \ text uses X to represent a random variable. Here is a sample in ", StyleBox["Mathematica", FontSlant->"Italic"], ". Be sure to press click on the left bracket to the right of each input \ cell (light grey rectangle), then press \"enter\" (not \"return\") on your \ keypad." }], "Text"], Cell[BoxData[ \(X := \ Random[Integer, {1, 6}]\)], "Input"], Cell["\<\ Now let's see what happens when we sample this random variable 4 times.\ \>", "Text"], Cell[BoxData[ \(Table[X, {4}]\)], "Input"], Cell["Now it is your turn. Sample the random variable 10 times.", "Text"], Cell[BoxData[""], "Input"], Cell["\<\ What are the possible outcomes of this random varible? On average, how many times will the 6 appear in 100 samples of this random \ variable? Let's get a sample of 100 and see how close your guess is.\ \>", "Text"], Cell[BoxData[ \(sample = Table[X, {100}]\)], "Input"], Cell["Now count sixes.", "Text"], Cell[BoxData[ \(sixes = Count[sample, 6]\)], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["Random Variable (Coin Toss)", "Subsection"], Cell["\<\ Here the random variable has two equally likely outcomes, 0 and 1.\ \>", "Text"], Cell[BoxData[ \(Y := \ Random[Integer, {0, 1}]\)], "Input"], Cell["\<\ Now let's see what happens when we sample this random variable 4 times.\ \>", "Text"], Cell[BoxData[ \(Table[Y, {4}]\)], "Input"], Cell["Now it is your turn. Sample the random variable 10 times.", "Text"], Cell[BoxData[""], "Input"], Cell["\<\ On average, how many times will the 1 appear in 100 samples of this random \ variable? Let's generate a sample of 100 and see how close your guess was.\ \>", "Text"], Cell[BoxData[ \(sample = Table[Y, {100}]\)], "Input"], Cell[BoxData[ \(ones = Count[sample, 1]\)], "Input"], Cell["Another way to count the heads is to Sum the sample.", "Text"], Cell[BoxData[ \(Apply[Plus, sample]\)], "Input"], Cell["Let 1 correspond to heads and 0 to tails. Now count heads.", "Text"], Cell[BoxData[ \(heads = ones\)], "Input"], Cell["What is the proportion of heads in this sample?", "Text"], Cell[BoxData[ \(heads\/100\)], "Input"], Cell["Here is the decimal approximation.", "Text"], Cell[BoxData[ \(% // N\)], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["Random Variable (Heads Experiment)", "Subsection"], Cell["\<\ This will generate n tosses of a coin with 1 corresponding to heads and 0 to \ tails. The function heads[n] counts the number of heads in n tosses.\ \>", "Text"], Cell[BoxData[{ \(Clear[heads]\), "\[IndentingNewLine]", \(\(\(Y := Random[Integer, {0, 1}]\)\(\[IndentingNewLine]\) \)\), "\[IndentingNewLine]", \(heads[n_] := Apply[Plus, Table[Y, {n}]]\)}], "Input"], Cell["Let's see how many heads in 100 tosses.", "Text"], Cell[BoxData[ \(heads[100]\/100\)], "Input"], Cell["You try it with 1,000 tosses.", "Text"], Cell[BoxData[ \(\ \)], "Input"], Cell["\<\ If you had to pick one value for the proportion of heads in any number of \ tosses, what would it be? \ \>", "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Experiments", "SectionFirst"], Cell[CellGroupData[{ Cell["Experiment 1 ", "Subsection"], Cell[TextData[{ " Let's modify coin tosses to print out the proportion of heads minus ", Cell[BoxData[ \(TraditionalForm\`\(\(1\/2\)\(.\)\)\)]] }], "Text"], Cell[BoxData[{ \(Y := Random[Integer, {0, 1}]\), "\[IndentingNewLine]", \(coinTosses2[n_] := \ Apply[Plus, Table[Y, {n}]]\/n - \ 1. \/2\)}], "Input"], Cell["Now run this 100 times.", "Text"], Cell[BoxData[ \(coinTosses2[100]\)], "Input"], Cell["Now try larger values of n.", "Text"], Cell[BoxData[ \(\ \)], "Input"], Cell["\<\ What do you think the value of coinTosses2[n] will approach as n\[Rule]\ \[Infinity]? Turn in your answer with Assignment 1. \ \>", "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Experiment 2", "Subsection"], Cell["\<\ Coin tosses3 returns True if the proportion of heads to tosses in n tosses of \ a coin is between 0.4 and 0.6.\ \>", "Text"], Cell[BoxData[ \(coinTosses3[ n_] := \ \(\(.4\)\(<\)\(Apply[Plus, Table[Y, {n}]]\/n\)\(<\)\(.6\)\(\ \)\)\)], "Input"], Cell["Sample with 10 coin tosses", "Text"], Cell[BoxData[ \(coinTosses3[10]\)], "Input"], Cell["Now lets repeat this experiment 100 times.", "Text"], Cell[BoxData[ \(\(\(sample\)\(=\)\(Table[coinTosses3[10], {100}]\)\(\ \ \)\)\)], "Input"], Cell["How many times is the proportion between 0.4 and 0.6?", "Text"], Cell[BoxData[ \(Count[sample, \ True]\)], "Input"], Cell["\<\ How large a sample n should we take so that 95% of the time the proportion of \ heads is between 0.4 to 0.6? Turn in your answer with Assignment 1.\ \>", "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Experiment 3 ", "Subsection"], Cell["Sum the result of tossing three dice.", "Text"], Cell[BoxData[{ \(X1 := Random[Integer, {1, 6}]\), "\[IndentingNewLine]", \(X2 := Random[Integer, {1, 6}]\), "\[IndentingNewLine]", \(X3 := Random[Integer, {1, 6}]\), "\[IndentingNewLine]", \(sumOfThree := X1 + X2 + X3\)}], "Input"], Cell["One sample:", "Text"], Cell[BoxData[ \(sumOfThree\)], "Input"], Cell["Repeat 100 times and count 9's vs 10's.", "Text"], Cell[BoxData[ \(sample = Table[sumOfThree, {100}]\)], "Input"], Cell[BoxData[ \(nines = Count[sample, \ 9]\)], "Input"], Cell[BoxData[ \(tens = Count[sample, 10]\)], "Input"], Cell["\<\ Which is more likely to occur, 9 or 10? Turn in your answer with Assignment \ 1. \ \>", "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Experiment 4", "Subsection"], Cell["The sumOfThree is 18 if and only if all the dice are 6.", "Text"], Cell[BoxData[{ \(X1 := Random[Integer, {1, 6}]\), "\[IndentingNewLine]", \(X2 := Random[Integer, {1, 6}]\), "\[IndentingNewLine]", \(X3 := Random[Integer, {1, 6}]\), "\[IndentingNewLine]", \(sumOfThree := X1 + X2 + X3\)}], "Input"], Cell["One sample:", "Text"], Cell[BoxData[ \(sumOfThree\)], "Input"], Cell["sample[n] throws three dice n times.", "Text"], Cell[BoxData[{ \(Clear[allSixes, \ sample, n]\), "\[IndentingNewLine]", \(\(sample[n_] := Table[sumOfThree, {n}];\)\)}], "Input"], Cell["\<\ allSixes counts the numer of times you get a triple six (the sum is 18).\ \>", "Text"], Cell[BoxData[ \(allSixes[n_] := Count[sample[n], \ 18]\)], "Input"], Cell["\<\ Now we repeat this 100 times to see how many times we don't get a triple six \ (the count is zero).\ \>", "Text"], Cell[BoxData[ \(Table[allSixes[200], {100}]\)], "Input"], Cell[BoxData[ \(Count[%, 0]\)], "Input"], Cell["\<\ Experiment to find a value for n such that if you roll three dice n times you \ have a 50-50 chance of getting one or more triple sixes. What is your guess \ for n? Turn in your answer with Assignment 1. \ \>", "Text"] }, Open ]] }, Open ]] }, Open ]] }, FrontEndVersion->"4.1 for Macintosh", ScreenRectangle->{{0, 1152}, {0, 746}}, AutoGeneratedPackage->None, ScreenStyleEnvironment->"Working", PrintingStyleEnvironment->"Printout", ShowPageBreaks->False, WindowToolbars->{"RulerBar", "EditBar"}, WindowSize->{557, 645}, WindowMargins->{{88, Automatic}, {Automatic, 0}}, Visible->True, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, PageHeaders->{{Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"], Inherited, Cell[ "David L. Akers and Robert N. Goldberg", "Header"]}, { Cell[ "BioEqCalc: A Package for Performing Equilibrium Calculations on \ Biochemical Reactions", "Header"], Inherited, Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"]}}, PageFooters->{{Cell[ TextData[ {"The Mathematica Journal ", StyleBox[ "8", FontWeight -> "Bold"], ":1 (2001)"}], "Footer"], Inherited, Cell[ TextData[ { ValueBox[ "FileName"], ValueBox[ "Date"]}], "Footer"]}, {Cell[ TextData[ { ValueBox[ "FileName"], ValueBox[ "Date"]}], "Footer"], Inherited, Cell[ TextData[ {"The Mathematica Journal ", StyleBox[ "8", FontWeight -> "Bold"], ":1 (2001)"}], "Footer"]}}, PrintingOptions->{"PrintingMargins"->{{54, 54}, {72, 72}}, "PrintCellBrackets"->False, "PrintRegistrationMarks"->False, "PrintMultipleHorizontalPages"->False, "FirstPageHeader"->False, "FacingPages"->True}, PrivateNotebookOptions->{"ColorPalette"->{RGBColor, 128}}, IndexCreationOptions->{"Format"->"SectionReferences"}, ShowGroupOpenCloseIcon->True, CellLabelAutoDelete->False, RenderingOptions->{"ObjectDithering"->True, "RasterDithering"->False}, Magnification->1.25, StyleDefinitions -> Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Style Definitions for \n", StyleBox["Probability", FontSlant->"Italic"] }], "Subtitle", CellMargins->{{0, Inherited}, {Inherited, 0}}, CellFrameMargins->{{20, 4}, {8, 20}}, FontSize->36, FontWeight->"Bold", FontColor->GrayLevel[1], Background->GrayLevel[0]], Cell[CellGroupData[{ Cell["Style Environment Names", "Section", CellFrame->False, CellDingbat->None, ShowCellBracket->True, CellMargins->{{0, 0}, {10, 40}}, CellFrameMargins->{{20, 4}, {8, 8}}, FontColor->GrayLevel[1], Background->RGBColor[0.269902, 0.558434, 0.715618]], Cell[StyleData[All, "Working"], ScreenStyleEnvironment->"Working", PrintingStyleEnvironment->"Printout", CellBracketOptions->{"Color"->RGBColor[0.115343, 0.350561, 0.362966]}, ShowCellLabel->True, CellFrameLabelMargins->6, ScriptMinSize->9], Cell[StyleData[All, "Presentation"], ScreenStyleEnvironment->"Presentation", PrintingStyleEnvironment->"Printout", CellFrameMargins->{{30, 4}, {8, 8}}, Magnification->1.25], Cell[StyleData[All, "HTML"], ScreenStyleEnvironment->"HTML", PrintingOptions->{"PrintingMargins"->{{0, 0}, {82, 56}}, "PageSize"->{490, 720}}, ShowCellBracket->True, CellFrameLabelMargins->6, ScriptMinSize->9], Cell[StyleData[All, "Printout"], ScreenStyleEnvironment->"Printout", PrintingStyleEnvironment->"Printout", PageWidth->PaperWidth, PrintingOptions->{"PrintingMargins"->{{24, 74}, {72, 72}}, "PrintRegistrationMarks"->False, "FirstPageHeader"->False, "FacingPages"->True}, ShowCellBracket->False] }, Closed]], Cell[CellGroupData[{ Cell["Notebook Options", "Section", CellFrame->False, CellDingbat->None, ShowCellBracket->True, CellMargins->{{0, 0}, {10, 40}}, CellFrameMargins->{{20, 4}, {8, 8}}, FontColor->GrayLevel[1], Background->RGBColor[0.269902, 0.558434, 0.715618]], 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"], Inherited, Cell[ "Author(s)", "Header"]}, { Cell[ "Article Title", "Header"], Inherited, Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"]}}, PageFooters->{{Cell[ TextData[ {"The Mathematica Journal ", StyleBox[ "volume", FontWeight -> "Bold"], ":issue (year)"}], "Footer"], Inherited, Cell[ TextData[ { ValueBox[ "FileName"], ValueBox[ "Date"]}], "Footer"]}, {Cell[ TextData[ { ValueBox[ "FileName"], ValueBox[ "Date"]}], "Footer"], Inherited, Cell[ TextData[ {"The Mathematica Journal ", StyleBox[ "volume", FontWeight -> "Bold"], ":issue (year)"}], "Footer"]}}, CellLabelAutoDelete->True, CellFrameLabelMargins->6, StyleMenuListing->None] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Headings", "Section", CellFrame->False, CellDingbat->None, ShowCellBracket->True, CellMargins->{{0, 0}, {10, 40}}, CellFrameMargins->{{20, 4}, {8, 8}}, FontColor->GrayLevel[1], Background->RGBColor[0.269902, 0.558434, 0.715618]], Cell["\<\ Each notebook should contain a Title cell. Title resets all cell CounterBox \ values to zero (except Title).\ \>", "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["Title"], ShowCellBracket->True, CellMargins->{{0, 25}, {Inherited, 0}}, CellGroupingRules->{"TitleGrouping", 0}, PageBreakBelow->False, CellFrameMargins->{{55, 4}, {8, 20}}, LineSpacing->{1.125, 0}, CounterIncrements->"Title", CounterAssignments->{{"Subtitle", 0}, {"Section", 0}, {"Subsection", 0}, { "Subsubsection", 0}, {"List", 0}, {"NumberedFigure", 0}, { "NumberedTable", 0}, {"NumberedProgram", 0}, {"Equation", 0}, { "Text", 0}, {"SmallText", 0}, {"Reference", 0}}, FontFamily->"Times", FontSize->36, FontSlant->"Italic", FontColor->GrayLevel[1], Background->RGBColor[0.699931, 0.198672, 0.198672]], Cell[StyleData["Title", "Presentation"], FontSize->40, Background->RGBColor[0.699931, 0.198672, 0.198672]], Cell[StyleData["Title", "HTML"], CellMargins->{{54, 0}, {Inherited, Inherited}}, FontColor->GrayLevel[0], Background->None], Cell[StyleData["Title", "Printout"], CellMargins->{{54, 24}, {Inherited, Inherited}}, CellFrameMargins->False, FontColor->GrayLevel[0], Background->None] }, Closed]], Cell["\<\ Subtitle is an optional cell, follows Title, precedes Author.\ \>", "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["Subtitle"], CellMargins->{{54, 25}, {0, 10}}, CellGroupingRules->{"TitleGrouping", 10}, PageBreakBelow->False, LineSpacing->{1.25, 0}, CounterIncrements->"Subtitle", FontFamily->"Times", FontSize->24, FontSlant->"Italic"], Cell[StyleData["Subtitle", "Presentation"]], Cell[StyleData["Subtitle", "HTML"], CellMargins->{{54, 25}, {10, 10}}, FontSize->12], Cell[StyleData["Subtitle", "Printout"], CellMargins->{{54, 25}, {10, 10}}, FontSize->12] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsubtitle"], CellMargins->{{54, 25}, {0, 40}}, CellGroupingRules->{"TitleGrouping", 10}, PageBreakBelow->False, LineSpacing->{1, 0}, CounterIncrements->"Subtitle", FontFamily->"Times", FontSize->18, FontSlant->"Italic"], Cell[StyleData["Subsubtitle", "Presentation"]], Cell[StyleData["Subsubtitle", "HTML"], CellMargins->{{54, 0}, {Inherited, Inherited}}, FontSize->16], Cell[StyleData["Subsubtitle", "Printout"], CellMargins->{{54, 0}, {Inherited, Inherited}}, FontSize->16] }, Closed]], Cell["\<\ SectionFirst should be used for the first section level heading in a \ notebook. SectionFirst sets the following counter values to zero: Subsection \ and Subsubsection. Sets Section counter value to 1.\ \>", "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["SectionFirst"], CellFrame->{{0, 0}, {0, 2}}, CellDingbat->"\[FilledSquare]", CellMargins->{{54, 25}, {10, 30}}, CellGroupingRules->{"SectionGrouping", 40}, PageBreakBelow->False, CellFrameMargins->2, CellFrameColor->RGBColor[0.668009, 0.669383, 0.345068], CounterIncrements->"Section", CounterAssignments->{{"Section", 0}, {"Subsection", 0}, { "Subsubsection", 0}}, FontFamily->"Helvetica", FontSize->18, FontWeight->"Bold"], Cell[StyleData["SectionFirst", "Presentation"], CellFrame->{{0, 0}, {0, 3}}, CellFrameMargins->{{0, 0}, {0, 4}}, CellFrameColor->RGBColor[0.668009, 0.669383, 0.345068]], Cell[StyleData["SectionFirst", "HTML"], CellFrame->{{0, 0}, {0, 3}}, CellMargins->{{54, 24}, {15, 15}}, CellFrameMargins->{{0, 0}, {0, 5}}, CellFrameColor->GrayLevel[0], FontSize->14], Cell[StyleData["SectionFirst", "Printout"], CellFrame->{{0, 0}, {0, 3}}, CellMargins->{{54, 24}, {15, 15}}, CellFrameMargins->{{0, 0}, {0, 5}}, CellFrameColor->GrayLevel[0], FontSize->14] }, Closed]], Cell["\<\ Section should be used for subsequent section level headings. Section sets \ counter values Subsection and Subsubsection to zero.\ \>", "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["Section"], CellFrame->{{0, 0}, {0, 0.5}}, CellDingbat->"\[FilledSquare]", CellMargins->{{54, 25}, {10, 30}}, CellGroupingRules->{"SectionGrouping", 40}, PageBreakBelow->False, CellFrameMargins->2, CellFrameColor->RGBColor[0.668009, 0.669383, 0.345068], CounterIncrements->"Section", CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}}, FontFamily->"Helvetica", FontSize->18, FontWeight->"Bold"], Cell[StyleData["Section", "Presentation"], CellFrameMargins->{{0, 0}, {0, 4}}], Cell[StyleData["Section", "HTML"], CellMargins->{{54, 24}, {3, 15}}, CellFrameMargins->{{0, 0}, {0, 5}}, CellFrameColor->GrayLevel[0], FontSize->14], Cell[StyleData["Section", "Printout"], CellMargins->{{54, 24}, {3, 15}}, CellFrameMargins->{{0, 0}, {0, 5}}, CellFrameColor->GrayLevel[0], FontSize->14] }, Closed]], Cell["\<\ Subsection is an optional style. Sets counter Subsubsection to zero.\ \>", "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["Subsection"], CellDingbat->"\[GraySquare]", CellMargins->{{54, 25}, {10, 26}}, CellGroupingRules->{"SectionGrouping", 50}, PageBreakBelow->False, CounterIncrements->"Subsection", CounterAssignments->{{"Subsubsection", 0}}, FontFamily->"Helvetica", FontSize->14, FontWeight->"Bold"], Cell[StyleData["Subsection", "Presentation"]], Cell[StyleData["Subsection", "HTML"], CellMargins->{{54, 24}, {Inherited, Inherited}}, FontSize->12], Cell[StyleData["Subsection", "Printout"], CellMargins->{{54, 24}, {Inherited, Inherited}}, FontSize->12] }, Closed]], Cell["\<\ SubsectionNoSpace is an optional style to be used if a subsection level \ heading directly follows a section level heading. SubsectionNoSpace sets \ counter Subsubsection to zero.\ \>", "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["SubsectionNoSpace"], CellDingbat->"\[GraySquare]", CellMargins->{{54, 25}, {2, 2}}, CellGroupingRules->{"SectionGrouping", 50}, PageBreakBelow->False, CounterIncrements->"Subsection", CounterAssignments->{{"Subsubsection", 0}}, FontFamily->"Helvetica", FontSize->14, FontWeight->"Bold"], Cell[StyleData["SubsectionNoSpace", "Presentation"]], Cell[StyleData["SubsectionNoSpace", "HTML"], CellMargins->{{54, 24}, {2, 2}}, FontSize->12], Cell[StyleData["SubsectionNoSpace", "Printout"], CellMargins->{{54, 24}, {2, 2}}, FontSize->12] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsubsection"], CellDingbat->"\[FilledSmallSquare]", CellMargins->{{54, 25}, {6, 20}}, CellGroupingRules->{"SectionGrouping", 60}, PageBreakBelow->False, CounterIncrements->"Subsubsection", FontFamily->"Helvetica", FontSize->12, FontWeight->"Bold"], Cell[StyleData["Subsubsection", "Presentation"]], Cell[StyleData["Subsubsection", "HTML"], CellMargins->{{54, 24}, {Inherited, Inherited}}, FontSize->10], Cell[StyleData["Subsubsection", "Printout"], CellMargins->{{54, 24}, {Inherited, Inherited}}, FontSize->10] }, Closed]], Cell["\<\ NoDingbat versions of headings used, for example, in the frontmatter.\ \>", "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["SectionNoDingbat"], CellFrame->{{0, 0}, {0, 0.5}}, CellDingbat->None, CellMargins->{{54, 25}, {10, 30}}, CellGroupingRules->{"SectionGrouping", 40}, PageBreakBelow->False, CellFrameMargins->2, CellFrameColor->RGBColor[0.668009, 0.669383, 0.345068], CounterIncrements->"Section", CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->18, FontWeight->"Bold"], Cell[StyleData["SectionNoDingbat", "Presentation"], CellFrameMargins->{{0, 0}, {0, 4}}], Cell[StyleData["SectionNoDingbat", "HTML"], CellMargins->{{54, 24}, {3, 15}}, CellFrameMargins->{{0, 0}, {0, 5}}, CellFrameColor->GrayLevel[0], FontSize->14], Cell[StyleData["SectionNoDingbat", "Printout"], CellMargins->{{54, 24}, {3, 15}}, CellFrameMargins->{{0, 0}, {0, 5}}, CellFrameColor->GrayLevel[0], FontSize->14] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SubsectionNoDingbat"], CellDingbat->None, CellMargins->{{54, 25}, {10, 26}}, CellGroupingRules->{"SectionGrouping", 50}, PageBreakBelow->False, CounterIncrements->"Subsection", CounterAssignments->{{"Subsubsection", 0}}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->14, FontWeight->"Bold"], Cell[StyleData["SubsectionNoDingbat", "Presentation"]], Cell[StyleData["SubsectionNoDingbat", "HTML"], CellMargins->{{54, 24}, {Inherited, Inherited}}, FontSize->12], Cell[StyleData["SubsectionNoDingbat", "Printout"], CellMargins->{{54, 24}, {Inherited, Inherited}}, FontSize->12] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SubsectionNoSpaceNoDingbat"], CellMargins->{{54, 25}, {2, 2}}, CellGroupingRules->{"SectionGrouping", 50}, PageBreakBelow->False, CounterIncrements->"Subsection", CounterAssignments->{{"Subsubsection", 0}}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->14, FontWeight->"Bold"], Cell[StyleData["SubsectionNoSpaceNoDingbat", "Presentation"]], Cell[StyleData["SubsectionNoSpaceNoDingbat", "HTML"], CellMargins->{{54, 24}, {2, 2}}, FontSize->12], Cell[StyleData["SubsectionNoSpaceNoDingbat", "Printout"], CellMargins->{{54, 24}, {2, 2}}, FontSize->12] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SubsubsectionNoDingbat"], CellMargins->{{54, 25}, {6, 20}}, CellGroupingRules->{"SectionGrouping", 60}, PageBreakBelow->False, CounterIncrements->"Subsubsection", StyleMenuListing->None, FontFamily->"Helvetica", FontSize->12, FontWeight->"Bold"], Cell[StyleData["SubsubsectionNoDingbat", "Presentation"]], Cell[StyleData["SubsubsectionNoDingbat", "HTML"], CellMargins->{{54, 24}, {Inherited, Inherited}}, FontSize->10], Cell[StyleData["SubsubsectionNoDingbat", "Printout"], CellMargins->{{54, 24}, {Inherited, Inherited}}, FontSize->10] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Styles for Body Text", "Section", CellFrame->False, CellDingbat->None, ShowCellBracket->True, CellMargins->{{0, 0}, {10, 40}}, CellFrameMargins->{{20, 4}, {8, 8}}, FontColor->GrayLevel[1], Background->RGBColor[0.269902, 0.558434, 0.715618]], Cell[CellGroupData[{ Cell[StyleData["Text"], CellMargins->{{54, 24}, {Inherited, Inherited}}, LineSpacing->{1, 4}, CounterIncrements->"Text", FontFamily->"Times", FontSize->12], Cell[StyleData["Text", "Presentation"], FontSize->14], Cell[StyleData["Text", "HTML"], CellMargins->{{54, 24}, {Inherited, 0}}, LineSpacing->{1, 3}, FontSize->10], Cell[StyleData["Text", "Printout"], CellMargins->{{54, 24}, {Inherited, 0}}, LineSpacing->{1, 3}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SmallText"], CellMargins->{{54, 24}, {Inherited, Inherited}}, LineSpacing->{1, 4}, CounterIncrements->"SmallText", FontFamily->"Times", FontSize->10], Cell[StyleData["SmallText", "Presentation"], CellMargins->{{54, 24}, {Inherited, Inherited}}, FontSize->12], Cell[StyleData["SmallText", "HTML"], CellMargins->{{54, 24}, {Inherited, 0}}, LineSpacing->{1, 3}, FontSize->9], Cell[StyleData["SmallText", "Printout"], CellMargins->{{54, 24}, {Inherited, 0}}, LineSpacing->{1, 3}, FontSize->9] }, Closed]], Cell["\<\ Quote should be used when quoting portions from material previously published \ elsewhere (and appropriately cited).\ \>", "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["Quote"], CellMargins->{{70, 40}, {Inherited, Inherited}}, LineSpacing->{1, 3}, FontFamily->"Times", FontSize->12], Cell[StyleData["Quote", "Presentation"], FontSize->14], Cell[StyleData["Quote", "HTML"], CellMargins->{{70, 40}, {Inherited, Inherited}}, FontSize->10], Cell[StyleData["Quote", "Printout"], CellMargins->{{70, 40}, {Inherited, Inherited}}, FontSize->10] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Styles for Input, Output, and Graphics", "Section", CellFrame->False, CellDingbat->None, ShowCellBracket->True, CellMargins->{{0, 0}, {10, 40}}, CellFrameMargins->{{20, 4}, {8, 8}}, FontColor->GrayLevel[1], Background->RGBColor[0.269902, 0.558434, 0.715618]], 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[TextData[{ "Input cell style to be used for ", StyleBox["Mathematica", FontSlant->"Italic"], " input statements that are followed by either Output or GraphicsOnly \ cell styles. Sets ", "DefaultFormatType->DefaultInputFormatType." }], "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["Input"], CellFrame->{{0.25, 0.25}, {0, 0.25}}, CellMargins->{{54, 24}, {-1, 10}}, Evaluatable->True, CellGroupingRules->"InputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, CellLabelAutoDelete->True, CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultInputFormatType, AutoItalicWords->{}, ShowStringCharacters->True, NumberMarks->True, CounterIncrements->"Input", FontFamily->"Courier", FontSize->12, FontWeight->"Bold", Background->RGBColor[0.819455, 0.804242, 0.663142]], Cell[StyleData["Input", "Presentation"], FontSize->14, Background->RGBColor[0.819455, 0.804242, 0.663142]], Cell[StyleData["Input", "HTML"], CellFrame->False, CellMargins->{{0, 0}, {10, 10}}, Background->None], Cell[StyleData["Input", "Printout"], CellMargins->{{54, 24}, {-1, 10}}, FontSize->9, Background->GrayLevel[0.899001]] }, Closed]], Cell[TextData[{ "InputOnly cell style to be used for ", StyleBox["Mathematica", FontSlant->"Italic"], " input statements that produce no output or graphic. See Program cell \ style for presenting segments of code that do not evaluate." }], "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["InputOnly"], CellFrame->True, CellMargins->{{54, 24}, {15, 10}}, Evaluatable->True, CellGroupingRules->"InputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, CellLabelAutoDelete->True, CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultInputFormatType, AutoItalicWords->{}, ShowStringCharacters->True, NumberMarks->True, CounterIncrements->"Input", FontFamily->"Courier", FontSize->12, FontWeight->"Bold", Background->RGBColor[0.819455, 0.804242, 0.663142]], Cell[StyleData["InputOnly", "Presentation"], CellFrameMargins->8, FontSize->14, Background->RGBColor[0.819455, 0.804242, 0.663142]], Cell[StyleData["InputOnly", "HTML"], CellFrame->False, CellMargins->{{0, 0}, {10, 10}}, CellFrameMargins->8, Background->None], Cell[StyleData["InputOnly", "Printout"], CellMargins->{{54, 24}, {10, 10}}, FontSize->9, Background->GrayLevel[0.899001]] }, Closed]], Cell[TextData[{ "Output cell style is usually generated by the ", StyleBox["Mathematica", FontSlant->"Italic"], " kernel. To follow Input cell style. Sets \ DefaultFormatType->DefaultOutputFormatType." }], "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["Output"], CellFrame->{{0.25, 0.25}, {0.25, 0}}, CellMargins->{{54, 24}, {10, 0}}, CellEditDuplicate->True, CellGroupingRules->"OutputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, CellLabelAutoDelete->True, CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, AutoItalicWords->{}, CounterIncrements->"Output", StyleMenuListing->None, FontFamily->"Courier", FontSize->12, Background->RGBColor[0.819455, 0.804242, 0.663142]], Cell[StyleData["Output", "Presentation"], FontSize->14, Background->RGBColor[0.819455, 0.804242, 0.663142]], Cell[StyleData["Output", "HTML"], CellFrame->False, CellMargins->{{0, 0}, {10, 0}}, Background->None], Cell[StyleData["Output", "Printout"], CellMargins->{{54, 24}, {10, -2}}, FontSize->9, Background->GrayLevel[0.899001]] }, Closed]], Cell[TextData[{ "Message cells are usually generated by the ", StyleBox["Mathematica", FontSlant->"Italic"], " kernel, typically messages emitted during evaluation.To follow Input \ cell style, precede Output cell style." }], "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["Message"], CellFrame->{{0.25, 0.25}, {0, 0}}, CellDingbat->"\[WarningSign]", CellMargins->{{54, 24}, {0, 0}}, CellGroupingRules->"OutputGrouping", PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}}, CellFrameLabelMargins->-9, DefaultFormatType->DefaultOutputFormatType, AutoItalicWords->{}, CounterIncrements->"Message", StyleMenuListing->None, FontFamily->"Helvetica", FontSize->10, FontColor->RGBColor[0, 0, 1], Background->RGBColor[0.819455, 0.804242, 0.663142]], Cell[StyleData["Message", "Presentation"], FontSize->12], Cell[StyleData["Message", "HTML"], CellFrame->False, CellMargins->{{0, 0}, {0, 0}}, CellFrameLabelMargins->8, Background->None], Cell[StyleData["Message", "Printout"], CellMargins->{{54, 24}, {0, 0}}, FontSize->8, FontColor->GrayLevel[0], Background->GrayLevel[0.899001]] }, Closed]], Cell[TextData[{ "Print cells are usually generated by the ", StyleBox["Mathematica", FontSlant->"Italic"], " kernel, typically from such commands as ?Plot." }], "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["Print"], CellFrame->True, CellMargins->{{54, 24}, {1, 6}}, CellGroupingRules->"OutputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}}, CellFrameColor->RGBColor[0.718318, 0.694575, 0.474449], DefaultFormatType->DefaultOutputFormatType, AutoItalicWords->{}, CounterIncrements->"Print", StyleMenuListing->None, FontSize->10], Cell[StyleData["Print", "Presentation"], CellFrame->2, FontSize->12, Background->None], Cell[StyleData["Print", "HTML"], CellMargins->{{0, 0}, {2, 6}}, CellFrameColor->GrayLevel[0]], Cell[StyleData["Print", "Printout"], CellMargins->{{54, 24}, {2, 6}}, CellFrameColor->GrayLevel[0], FontSize->8] }, Closed]], Cell["\<\ Graphics cell usually output by kernel. To follow Input cell, precede Output \ cell.\ \>", "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["Graphics"], CellFrame->{{0.25, 0.25}, {0, 0}}, CellMargins->{{54, 24}, {0, 0}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, CellLabelAutoDelete->True, DefaultFormatType->DefaultOutputFormatType, CounterIncrements->"Graphics", ImageMargins->{{30, 0}, {0, 0}}, StyleMenuListing->None, Background->RGBColor[0.819455, 0.804242, 0.663142]], Cell[StyleData["Graphics", "Presentation"]], Cell[StyleData["Graphics", "HTML"], CellFrame->False, Background->None], Cell[StyleData["Graphics", "Printout"], CellMargins->{{54, 24}, {-1, -2}}, ImageSize->{266, 266}, ImageMargins->{{40, Inherited}, {Inherited, Inherited}}, Background->GrayLevel[0.899001]] }, Closed]], Cell["\<\ GraphicsOnly cell to follow Input cell, not followed by Output cell. Convert \ Graphics cell to GraphicsOnly cell manually.\ \>", "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["GraphicsOnly"], CellFrame->{{0.25, 0.25}, {0.25, 0}}, CellMargins->{{54, 24}, {10, 0}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, CellLabelAutoDelete->True, DefaultFormatType->DefaultOutputFormatType, CounterIncrements->"Graphics", ImageMargins->{{30, 0}, {0, 0}}, Background->RGBColor[0.819455, 0.804242, 0.663142]], Cell[StyleData["GraphicsOnly", "Presentation"]], Cell[StyleData["GraphicsOnly", "HTML"], CellFrame->False, Background->None], Cell[StyleData["GraphicsOnly", "Printout"], CellMargins->{{54, 24}, {10, 0}}, ImageSize->{266, 266}, ImageMargins->{{40, Inherited}, {Inherited, Inherited}}, Background->GrayLevel[0.899001]] }, Closed]], Cell["\<\ PictureGroup cell style used to group graphic cells that comprise an \ animation.\ \>", "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["PictureGroup"], CellFrame->{{0.25, 0.25}, {0.25, 0}}, CellMargins->{{54, 17}, {0, 0}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, ShowCellLabel->False, ImageMargins->{{30, 0}, {0, 0}}, Background->RGBColor[0.819455, 0.804242, 0.663142]], Cell[StyleData["PictureGroup", "Presentation"], CellMargins->{{54, 17}, {0, 0}}, StyleMenuListing->None], Cell[StyleData["PictureGroup", "HTML"], CellFrame->False, CellMargins->{{54, 19}, {0, 0}}, StyleMenuListing->None, Background->None], Cell[StyleData["PictureGroup", "Printout"], CellMargins->{{54, 24}, {0, 0}}, Background->GrayLevel[0.899001]] }, Closed]], Cell[TextData[{ "PlacedGraphics cell style to be used when pasting in a graphic from \ another application or when presenting a graphic not associated with ", StyleBox["Mathematica", FontSlant->"Italic"], " input. May be followed by NumberedFigureCaption." }], "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["PlacedGraphics"], CellFrame->False, CellMargins->{{54, 24}, {10, 10}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, ShowCellLabel->False, CellLabelAutoDelete->True, TextAlignment->Center], Cell[StyleData["PlacedGraphics", "Presentation"]], Cell[StyleData["PlacedGraphics", "HTML"]], Cell[StyleData["PlacedGraphics", "Printout"], CellMargins->{{54, 24}, {10, 10}}, ImageSize->{266, 266}] }, Closed]], Cell["\<\ CellLabel style controls how cell labels appear when a cell has \ ShowCellLabels->True.\ \>", "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["CellLabel"], CellMargins->{{5, Inherited}, {Inherited, Inherited}}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->8, FontSlant->"Oblique", FontColor->RGBColor[0.115343, 0.350561, 0.362966]], Cell[StyleData["CellLabel", "Presentation"], FontSize->10, FontColor->RGBColor[0.115343, 0.350561, 0.362966]], Cell[StyleData["CellLabel", "HTML"], FontSize->8, FontColor->RGBColor[0.115343, 0.350561, 0.362966]], Cell[StyleData["CellLabel", "Printout"], FontSize->6, FontColor->GrayLevel[0]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Styles for Automatic Numbering and Lists", "Section", CellFrame->False, CellDingbat->None, ShowCellBracket->True, CellMargins->{{0, 0}, {10, 40}}, CellFrameMargins->{{20, 4}, {8, 8}}, FontColor->GrayLevel[1], Background->RGBColor[0.269902, 0.558434, 0.715618]], Cell["\<\ NumberedEquation is for DisplayFormula cells that number sequentially \ throughout a notebook. Sets as DefaultFormatType->TraditionalForm.\ \>", "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["NumberedEquation"], CellMargins->{{54, 24}, {5, 10}}, CellFrameLabels->{{None, Cell[ TextData[ {"(", CounterBox[ "NumberedEquation"], ")"}]]}, {None, None}}, DefaultFormatType->TraditionalForm, TextAlignment->Center, SingleLetterItalics->True, SpanMaxSize->Infinity, CounterIncrements->"NumberedEquation", FormatTypeAutoConvert->False, FontFamily->"Times", FontSize->12, UnderoverscriptBoxOptions->{LimitsPositioning->True}], Cell[StyleData["NumberedEquation", "Presentation"], FontSize->14], Cell[StyleData["NumberedEquation", "HTML"], FontSize->12], Cell[StyleData["NumberedEquation", "Printout"], CellMargins->{{Inherited, Inherited}, {10, Inherited}}, FontSize->10] }, Closed]], Cell["\<\ NumberedFigure is for adding a CellFrameLabel with the word Figure and the \ value of the incremented NumberedFigure counter. Does not allow for a \ caption.\ \>", "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["NumberedFigure"], CellMargins->{{54, 24}, {5, 10}}, CellLabelAutoDelete->True, CellFrameLabels->{{None, None}, {Cell[ TextData[ {"Figure ", CounterBox[ "NumberedFigure"], "."}], FontFamily -> "Helvetica", FontSize -> 10, FontWeight -> "Bold"], None}}, CounterIncrements->"NumberedFigure", StyleMenuListing->None], Cell[StyleData["NumberedFigure", "Presentation"]], Cell[StyleData["NumberedFigure", "HTML"]], Cell[StyleData["NumberedFigure", "Printout"], CellFrameLabels->{{None, None}, {Cell[ TextData[ {"Figure ", CounterBox[ "NumberedFigure"], "."}], FontFamily -> "Helvetica", FontSize -> 8, FontWeight -> "Bold"], None}}] }, Closed]], Cell["\<\ NumberedTable is for adding a CellFrameLabel with the word Table and the \ value of the incremented NumberedTable counter to a Table cell. Does not \ allow for a caption.\ \>", "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["NumberedTable"], CellMargins->{{54, 24}, {5, 10}}, CellFrameLabels->{{None, None}, {Cell[ TextData[ {"Table ", CounterBox[ "NumberedTable"], "."}], FontFamily -> "Helvetica", FontSize -> 10, FontWeight -> "Bold"], None}}, CounterIncrements->"NumberedTable", StyleMenuListing->None], Cell[StyleData["NumberedTable", "Presentation"], CellMargins->{{54, 25}, {2, 10}}], Cell[StyleData["NumberedTable", "HTML"]], Cell[StyleData["NumberedTable", "Printout"], CellFrameLabels->{{None, None}, {Cell[ TextData[ {"Table ", CounterBox[ "NumberedTable"], "."}], FontFamily -> "Helvetica", FontSize -> 8, FontWeight -> "Bold"], None}}] }, Closed]], Cell["\<\ NumberedFigureCaption to be used directly after a PlacedGraphic cell. Use the \ TMJStyles.nb palette to begin the cell and paste in the word Figure and the \ NumberedFigure counter value. Allows for a descriptive caption.\ \>", "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["NumberedFigureCaption"], CellDingbat->"\[FilledUpTriangle]", CellMargins->{{54, 24}, {5, 10}}, CellLabelPositioning->Left, TextAlignment->Left, CounterIncrements->"NumberedFigure", FormatTypeAutoConvert->False, FontFamily->"Helvetica", FontSize->10], Cell[StyleData["NumberedFigureCaption", "Presentation"], FontSize->14], Cell[StyleData["NumberedFigureCaption", "HTML"]], Cell[StyleData["NumberedFigureCaption", "Printout"], LineSpacing->{0, 10}, FontSize->8] }, Closed]], Cell["\<\ NumberedTableCaption to be used directly after a Table cell. Use the \ TMJStyles.nb palette to begin the cell and paste in the word Table and the \ NumberedTable counter value. Allows for a descriptive caption.\ \>", "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["NumberedTableCaption"], CellDingbat->"\[FilledUpTriangle]", CellMargins->{{54, 24}, {5, 10}}, CounterIncrements->"NumberedTable", FontFamily->"Helvetica", FontSize->10], Cell[StyleData["NumberedTableCaption", "Presentation"], CellMargins->{{54, 24}, {2, 10}}, FontSize->12], Cell[StyleData["NumberedTableCaption", "HTML"]], Cell[StyleData["NumberedTableCaption", "Printout"], FontSize->8] }, Closed]], Cell["\<\ NumberedProgramCaption to be used directly after a Program cell. Use the \ TMJStyles.nb palette to begin the cell and paste in the word Listing and the \ NumberedProgram counter value. Allows for a descriptive caption.\ \>", "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["NumberedProgramCaption"], CellDingbat->"\[FilledUpTriangle]", CellMargins->{{54, 24}, {5, 10}}, CounterIncrements->"NumberedProgram", FormatTypeAutoConvert->False, FontFamily->"Helvetica", FontSize->10], Cell[StyleData["NumberedProgramCaption", "Presentation"], CellMargins->{{54, 24}, {2, 10}}, FontSize->12], Cell[StyleData["NumberedProgramCaption", "HTML"]], Cell[StyleData["NumberedProgramCaption", "Printout"], FontSize->8] }, Closed]], Cell["\<\ Use of Caption style should be discouraged. See cell styles for \ NumberedFigureCaption, NumberedTableCaption, NumberedProgramCaption and the \ TMJStyles.nb palette.\ \>", "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["Caption"], CellDingbat->"\[FilledUpTriangle]", CellMargins->{{54, 24}, {Inherited, 5}}, PageBreakAbove->False, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->10], Cell[StyleData["Caption", "Presentation"], FontSize->12], Cell[StyleData["Caption", "HTML"]], Cell[StyleData["Caption", "Printout"], CellDingbat->"\[FilledUpTriangle]", CellMargins->{{54, 24}, {10, 10}}, FontSize->8] }, Closed]], Cell["\<\ BulletedList is an optional style. Adds a CellDingbat of FilledSmallCircle. \ Text indents left a little more.\ \>", "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["BulletedList"], CellDingbat->"\[FilledSmallCircle]", CellMargins->{{86, 10}, {Inherited, Inherited}}, FontFamily->"Times", FontSize->12], Cell[StyleData["BulletedList", "Presentation"], FontSize->14], Cell[StyleData["BulletedList", "HTML"], FontSize->10], Cell[StyleData["BulletedList", "Printout"], FontSize->10] }, Closed]], Cell["\<\ BeginNumberedList to be used as the first item in a numbered list sequence. \ Use the TMJStyles.nb palette to begin the cell and paste in the List counter \ value.\ \>", "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["BeginNumberedList"], CellMargins->{{74, 10}, {Inherited, Inherited}}, CounterIncrements->"List", CounterAssignments->{{"List", 0}}, FontFamily->"Times", FontSize->12], Cell[StyleData["BeginNumberedList", "Presentation"], FontSize->14], Cell[StyleData["BeginNumberedList", "HTML"]], Cell[StyleData["BeginNumberedList", "Printout"], FontSize->10] }, Closed]], Cell["\<\ NumberedList to be used for subsequent items in a numbered list sequence with \ a single digit. Use the TMJStyles.nb palette to begin the cell and paste in \ the List counter value.\ \>", "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["NumberedList"], CellMargins->{{74, 10}, {Inherited, Inherited}}, CellFrameLabels->{{None, None}, {None, None}}, CounterIncrements->"List", FontFamily->"Times", FontSize->12], Cell[StyleData["NumberedList", "Presentation"], FontSize->14], Cell[StyleData["NumberedList", "HTML"]], Cell[StyleData["NumberedList", "Printout"], FontSize->10] }, Closed]], Cell["\<\ NumberedListTwo to be used for subsequent items in a numbered list sequence \ with two digits. Use the TMJStyles.nb palette to begin the cell and paste in \ the List counter value.\ \>", "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["NumberedListTwo"], CellMargins->{{74, 10}, {Inherited, Inherited}}, CounterIncrements->"List", FontFamily->"Times", FontSize->12], Cell[StyleData["NumberedListTwo", "Presentation"], FontSize->14], Cell[StyleData["NumberedListTwo", "HTML"]], Cell[StyleData["NumberedListTwo", "Printout"], FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["NolabelList"], CellMargins->{{74, 10}, {Inherited, Inherited}}, CellFrameLabels->{{None, None}, {None, None}}, FontFamily->"Times", FontSize->12], Cell[StyleData["NolabelList", "Presentation"], FontSize->14], Cell[StyleData["NolabelList", "HTML"]], Cell[StyleData["NolabelList", "Printout"], FontSize->10] }, Closed]], Cell["\<\ Reference style to be used in the bibliography portion of a notebook. One \ cell for each bibliography entry. Use the TMJStyles.nb palette to begin cell \ and paste in the Reference counter value. Use Inline style SB for bold font \ changes. Use Inline style SO for italic font changes.\ \>", "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["Reference"], CellMargins->{{54, 25}, {Inherited, Inherited}}, LineSpacing->{1, 3}, CounterIncrements->"Reference", FontFamily->"Helvetica", FontSize->10], Cell[StyleData["Reference", "Presentation"], FontFamily->"Helvetica", FontSize->12], Cell[StyleData["Reference", "HTML"]], Cell[StyleData["Reference", "Printout"], FontSize->8] }, Closed]], Cell["\<\ ReferenceTwo is for two-digit reference entries. See the TMJStyles.nb \ palette.\ \>", "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["ReferenceTwo"], CellMargins->{{54, 25}, {Inherited, Inherited}}, LineSpacing->{1, 3}, CounterIncrements->"Reference", FontFamily->"Helvetica", FontSize->10], Cell[StyleData["ReferenceTwo", "Presentation"], FontFamily->"Helvetica", FontSize->12], Cell[StyleData["ReferenceTwo", "HTML"]], Cell[StyleData["ReferenceTwo", "Printout"], FontSize->8] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Unique Styles", "Section", CellFrame->False, CellDingbat->None, ShowCellBracket->True, CellMargins->{{0, 0}, {10, 40}}, CellFrameMargins->{{20, 4}, {8, 8}}, FontColor->GrayLevel[1], Background->RGBColor[0.269902, 0.558434, 0.715618]], Cell["\<\ OnlineHeader to be used at the beginning of a notebook. Precedes the Title \ (PreTitle) cell.\ \>", "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["OnlineHeader"], ShowCellBracket->True, CellMargins->{{0, 25}, {0, 0}}, CellGroupingRules->{"TitleGrouping", 30}, PageBreakBelow->False, CellFrameMargins->{{54, 4}, {2, 8}}, LineSpacing->{1, 1}, StyleMenuListing->None, FontFamily->"Times", FontSize->12, FontWeight->"Plain", FontSlant->"Italic", FontTracking->"Wide", FontColor->GrayLevel[1], Background->GrayLevel[0]], Cell[StyleData["OnlineHeader", "Presentation"], CellFrameMargins->{{54, 25}, {8, 8}}, FontSize->14], Cell[StyleData["OnlineHeader", "HTML"], CellFrame->False, CellMargins->{{54, 24}, {10, 10}}, FontFamily->"Times", FontSize->10, FontColor->GrayLevel[0], Background->None], Cell[StyleData["OnlineHeader", "Printout"], CellFrame->False, CellMargins->{{54, 24}, {10, 10}}, FontFamily->"Times", FontSize->10, FontColor->GrayLevel[0], Background->None] }, Closed]], Cell["\<\ Cell Style PreTitle to be used for such things that precede a title, for \ example, EDITOR'S PICK and other columns. Should be entered all caps with \ aspace between each letter, two spaces between words. FontTracking is set to \ Wide.\ \>", "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["PreTitle"], ShowCellBracket->True, CellMargins->{{54, 25}, {Inherited, 0}}, CellGroupingRules->{"TitleGrouping", 0}, PageBreakBelow->False, CellFrameMargins->{{55, 4}, {8, 20}}, LineSpacing->{1.125, 0}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->14, FontWeight->"Bold", FontTracking->"Wide"], Cell[StyleData["PreTitle", "Presentation"]], Cell[StyleData["PreTitle", "HTML"], CellMargins->{{54, 24}, {Inherited, Inherited}}, CellFrameMargins->False, FontSize->12, FontTracking->"Wide"], Cell[StyleData["PreTitle", "Printout"], CellMargins->{{54, 24}, {Inherited, Inherited}}, CellFrameMargins->False, FontSize->12, FontTracking->"Wide"] }, Open ]], Cell["\<\ Author to be used after the Title cell with author name(s). Author name(s) \ may be preceded by \"Edited by \" for certain columns. Text in author cell to \ be used as the left page header. Usually followed by an Address cell.\ \>", "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["Author"], CellMargins->{{54, 24}, {Inherited, Inherited}}, CellGroupingRules->{"TitleGrouping", 20}, PageBreakBelow->False, FontFamily->"Helvetica", FontSize->14, FontWeight->"Bold", FontSlant->"Plain"], Cell[StyleData["Author", "Presentation"], FontSize->16], Cell[StyleData["Author", "HTML"], CellMargins->{{54, 24}, {2, 15}}, FontSize->12], Cell[StyleData["Author", "Printout"], CellMargins->{{54, 24}, {2, 15}}, FontSize->12] }, Open ]], Cell["\<\ SecondAuthor to be used after a Section cell with author name(s) for a \ particular portion of a notebook. Used for columns Tech Support and Tricks of \ the Trade. Usually followed by an Address cell.\ \>", "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["SecondAuthor"], CellMargins->{{54, 24}, {Inherited, Inherited}}, CellGroupingRules->{"TitleGrouping", 20}, PageBreakBelow->False, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->14, FontWeight->"Bold", FontSlant->"Plain"], Cell[StyleData["SecondAuthor", "Presentation"], FontSize->16], Cell[StyleData["SecondAuthor", "HTML"], CellMargins->{{54, 24}, {2, 15}}, FontSize->12], Cell[StyleData["SecondAuthor", "Printout"], CellMargins->{{54, 24}, {2, 15}}, FontSize->12] }, Closed]], Cell["\<\ Address to be used after Author or SecondAuthor. Contains contact information \ for article (section) author. If more than one author is listed with the same \ affiliation use one Address cell. If authors have different affiliations use \ Author (SecondAuthor) and Address for each.\ \>", "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["Address"], CellMargins->{{54, 24}, {Inherited, Inherited}}, CellGroupingRules->{"TitleGrouping", 30}, PageBreakBelow->False, FontFamily->"Times", FontSize->12, FontWeight->"Plain", FontSlant->"Italic"], Cell[StyleData["Address", "Presentation"], FontSize->14], Cell[StyleData["Address", "HTML"], CellMargins->{{54, 24}, {2, 2}}, FontSize->10], Cell[StyleData["Address", "Printout"], CellMargins->{{54, 24}, {2, 2}}, FontSize->10] }, Closed]], Cell["\<\ Abstract to be used after the Address cell. Contains a short summary of the \ article.\ \>", "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["Abstract"], CellMargins->{{54, 24}, {Inherited, 30}}, LineSpacing->{1, 3}, FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontSlant->"Italic"], Cell[StyleData["Abstract", "Presentation"], FontSize->16], Cell[StyleData["Abstract", "HTML"], CellMargins->{{54, 24}, {20, 30}}, FontSize->12], Cell[StyleData["Abstract", "Printout"], CellMargins->{{54, 24}, {20, 30}}, FontSize->12] }, Closed]], Cell["\<\ BeginQuestion is used in the In and Out column directly after a section cell. \ Followed by either Question or Input, InputOnly, etc. Last paragraph of the \ question should be in EndQuestion cell style.\ \>", "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["BeginQuestion"], CellFrame->{{0, 0}, {0, 2}}, CellDingbat->"Q:", CellMargins->{{72, 34}, {8, 8}}, CellFrameMargins->{{0, 0}, {2, 4}}, LineSpacing->{1, 2}, FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0.115511, 0.321752, 0.580118]], Cell[StyleData["BeginQuestion", "Presentation"], FontSize->16], Cell[StyleData["BeginQuestion", "HTML"], CellMargins->{{72, 34}, {Inherited, Inherited}}, FontSize->10], Cell[StyleData["BeginQuestion", "Printout"], CellMargins->{{72, 34}, {Inherited, Inherited}}, FontSize->10, FontColor->GrayLevel[0]] }, Closed]], Cell["\<\ Question used for text cells within the Question portion of a QuestionAnswer.\ \ \>", "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["Question"], CellMargins->{{74, 34}, {8, 8}}, LineSpacing->{1, 2}, FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0.115511, 0.321752, 0.580118]], Cell[StyleData["Question", "Presentation"], FontSize->16], Cell[StyleData["Question", "HTML"], CellMargins->{{74, 34}, {Inherited, Inherited}}, LineSpacing->{1, 3}, FontSize->10], Cell[StyleData["Question", "Printout"], CellMargins->{{74, 34}, {Inherited, Inherited}}, LineSpacing->{1, 3}, FontSize->10, FontColor->GrayLevel[0]] }, Closed]], Cell["\<\ EndQuestion used in the In and Out column as the last paragraph of the \ question.\ \>", "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["EndQuestion"], CellFrame->{{0, 0}, {2, 0}}, CellMargins->{{70, 35}, {8, 8}}, LineSpacing->{1, 2}, FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0.115511, 0.321752, 0.580118]], Cell[StyleData["EndQuestion", "Presentation"], CellMargins->{{70, 35}, {Inherited, Inherited}}, LineSpacing->{1, 4}, FontSize->16], Cell[StyleData["EndQuestion", "HTML"], CellMargins->{{70, 35}, {Inherited, Inherited}}, FontSize->10], Cell[StyleData["EndQuestion", "Printout"], CellMargins->{{70, 35}, {Inherited, Inherited}}, FontSize->10, FontColor->GrayLevel[0]] }, Closed]], Cell["\<\ BeginEndQuestion is used in the In and Out column directly after a section \ cell. Used if the question is a single text paragraph.\ \>", "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["BeginEndQuestion"], CellFrame->{{0, 0}, {2, 2}}, CellDingbat->"Q:", CellMargins->{{70, 35}, {8, 8}}, LineSpacing->{1, 2}, StyleMenuListing->Automatic, FontFamily->"Times", FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0.115511, 0.321752, 0.580118]], Cell[StyleData["BeginEndQuestion", "Presentation"], CellMargins->{{70, 35}, {Inherited, Inherited}}, LineSpacing->{1, 4}, FontSize->16], Cell[StyleData["BeginEndQuestion", "HTML"], CellMargins->{{70, 35}, {Inherited, Inherited}}, FontSize->10], Cell[StyleData["BeginEndQuestion", "Printout"], CellMargins->{{70, 35}, {Inherited, Inherited}}, FontSize->10, FontColor->GrayLevel[0]] }, Closed]], Cell["\<\ BeginAnswer is used in the In and Out column directly after an EndQuestion or \ BeginEndQuestion cell style to begin the answer portion.\ \>", "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["BeginAnswer"], CellDingbat->"A:", CellMargins->{{70, 35}, {Inherited, Inherited}}, LineSpacing->{1, 4}, CounterIncrements->"Text", FontFamily->"Times", FontSize->12], Cell[StyleData["BeginAnswer", "Presentation"], FontSize->14], Cell[StyleData["BeginAnswer", "HTML"], LineSpacing->{1, 3}, FontSize->10], Cell[StyleData["BeginAnswer", "Printout"], LineSpacing->{1, 3}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Answer"], CellMargins->{{70, 35}, {Inherited, Inherited}}, LineSpacing->{1, 4}, CounterIncrements->"Text", FontFamily->"Times", FontSize->12], Cell[StyleData["Answer", "Presentation"], FontSize->14], Cell[StyleData["Answer", "HTML"], LineSpacing->{1, 3}, FontSize->10], Cell[StyleData["Answer", "Printout"], LineSpacing->{1, 3}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["EditorialComment"], CellFrame->False, CellDingbat->"\[FilledCircle]", CellMargins->{{54, 25}, {Inherited, Inherited}}, LineSpacing->{1, 3}, CounterIncrements->"Text", FontColor->RGBColor[1, 0, 0], Background->GrayLevel[1]], Cell[StyleData["EditorialComment", "Presentation"], CellMargins->{{18, 4}, {Inherited, 0}}, LineSpacing->{1, 3}, FontSize->10], Cell[StyleData["EditorialComment", "HTML"], CellMargins->{{18, 4}, {Inherited, 0}}, LineSpacing->{1, 3}, FontSize->10], Cell[StyleData["EditorialComment", "Printout"], CellMargins->{{18, 4}, {Inherited, 0}}, LineSpacing->{1, 3}, FontSize->10] }, Closed]], Cell["\<\ SectionAboutAuthor to be used as the section head for the About the Author \ portion of a notebook.\ \>", "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["SectionAboutAuthor"], CellMargins->{{54, 24}, {0, 30}}, CellGroupingRules->{"SectionGrouping", 40}, PageBreakBelow->False, CellFrameMargins->4, CounterIncrements->"Section", CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}}, FontFamily->"Helvetica", FontSize->18, FontWeight->"Bold", Background->RGBColor[0.819455, 0.804242, 0.663142]], Cell[StyleData["SectionAboutAuthor", "Presentation"]], Cell[StyleData["SectionAboutAuthor", "HTML"], Background->None], Cell[StyleData["SectionAboutAuthor", "Printout"], CellMargins->{{54, 24}, {0, 30}}, FontSize->14, Background->GrayLevel[0.899001]] }, Closed]], Cell["\<\ TextAboutAuthor is to be used for the text in the About the Author portion of \ a notebook. \ \>", "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["TextAboutAuthor"], CellMargins->{{54, 24}, {2, 0}}, CellFrameMargins->4, LineSpacing->{1, 3}, CounterIncrements->"Text", FontSize->12, Background->RGBColor[0.819455, 0.804242, 0.663142]], Cell[StyleData["TextAboutAuthor", "Presentation"], FontSize->14], Cell[StyleData["TextAboutAuthor", "HTML"], CellMargins->{{54, 24}, {4, 10}}, Background->None], Cell[StyleData["TextAboutAuthor", "Printout"], CellMargins->{{54, 24}, {2, 0}}, FontSize->10, Background->GrayLevel[0.899001]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Display Formulas and Programs", "Section", CellFrame->False, CellDingbat->None, ShowCellBracket->True, CellMargins->{{0, 0}, {10, 40}}, CellFrameMargins->{{20, 4}, {8, 8}}, FontColor->GrayLevel[1], Background->RGBColor[0.269902, 0.558434, 0.715618]], Cell[CellGroupData[{ Cell[StyleData["DisplayFormula"], CellMargins->{{54, 25}, {2, 10}}, CellHorizontalScrolling->True, DefaultFormatType->TraditionalForm, TextAlignment->Center, ScriptLevel->0, SingleLetterItalics->True, SpanMaxSize->Infinity, FormatTypeAutoConvert->False, FontFamily->"Times", FontSize->12, UnderoverscriptBoxOptions->{LimitsPositioning->True}], Cell[StyleData["DisplayFormula", "Presentation"], FontSize->14], Cell[StyleData["DisplayFormula", "HTML"], CellMargins->{{0, 0}, {2, 10}}, FontSize->12], Cell[StyleData["DisplayFormula", "Printout"], CellMargins->{{54, Inherited}, {Inherited, Inherited}}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ChemicalFormula"], CellMargins->{{54, 25}, {2, 10}}, DefaultFormatType->DefaultInputFormatType, AutoSpacing->False, ScriptLevel->1, ScriptBaselineShifts->{0.6, Automatic}, SingleLetterItalics->False, ZeroWidthTimes->True, FontFamily->"Times", FontSize->12], Cell[StyleData["ChemicalFormula", "Presentation"], FontSize->14], Cell[StyleData["ChemicalFormula", "HTML"], CellMargins->{{0, 0}, {Inherited, Inherited}}, FontSize->10], Cell[StyleData["ChemicalFormula", "Printout"], CellMargins->{{54, Inherited}, {Inherited, Inherited}}, FontSize->10] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["Program"], CellMargins->{{54, 25}, {Inherited, 6}}, FontFamily->"Courier", FontSize->10], Cell[StyleData["Program", "Presentation"], FontFamily->"Courier", FontSize->12], Cell[StyleData["Program", "HTML"], CellMargins->{{54, 30}, {Inherited, 4}}, FontSize->9], Cell[StyleData["Program", "Printout"], CellMargins->{{54, 30}, {Inherited, 4}}, FontSize->9] }, Closed]], Cell["\<\ Table cell style to be used for cells containing displayed tabular material. \ May be followed by NumberedTableCaption cell.\ \>", "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["Table"], CellMargins->{{54, 24}, {5, 10}}, TextAlignment->Center, FontFamily->"Times", FontSize->12, Background->GrayLevel[0.899001]], Cell[StyleData["Table", "Presentation"], FontSize->14], Cell[StyleData["Table", "HTML"], Background->None], Cell[StyleData["Table", "Printout"], FontSize->10, Background->None] }, Closed]], Cell[TextData[{ "DefinitionBox, 2 left-aligned columns, to emulate gray boxes in the ", StyleBox["Mathematica", FontSlant->"Italic"], " book." }], "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["DefinitionBox"], CellFrame->0.5, CellMargins->{{54, 24}, {5, 10}}, CellHorizontalScrolling->True, AutoIndent->False, AutoSpacing->False, SingleLetterItalics->False, LineIndent->0, FontFamily->"Times", FontSize->12, Background->GrayLevel[0.899001], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.4, 0.6}, ColumnAlignments->{Left}}], Cell[StyleData["DefinitionBox", "Presentation"], FontSize->14], Cell[StyleData["DefinitionBox", "HTML"], Background->None], Cell[StyleData["DefinitionBox", "Printout"], FontSize->10, Background->None] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Headers and Footers", "Section", CellFrame->False, CellDingbat->None, ShowCellBracket->True, CellMargins->{{0, 0}, {10, 40}}, CellFrameMargins->{{20, 4}, {8, 8}}, FontColor->GrayLevel[1], Background->RGBColor[0.269902, 0.558434, 0.715618]], Cell[StyleData["Header"], CellMargins->{{54, 24}, {0, 0}}, StyleMenuListing->None, FontFamily->"Times", FontSize->9, FontSlant->"Italic"], Cell[StyleData["PageNumber"], StyleMenuListing->None, FontFamily->"Times", FontSize->9, FontWeight->"Bold"], Cell[StyleData["Footer"], CellMargins->{{54, 24}, {Inherited, Inherited}}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->7, FontSlant->"Italic"] }, Closed]], Cell[CellGroupData[{ Cell["Frontmatter Styles", "Section", CellFrame->False, CellDingbat->None, ShowCellBracket->True, CellMargins->{{0, 0}, {10, 40}}, CellFrameMargins->{{20, 4}, {8, 8}}, FontColor->GrayLevel[1], Background->RGBColor[0.269902, 0.558434, 0.715618]], Cell[CellGroupData[{ Cell[StyleData["tocentry"], CellMargins->{{54, 24}, {Inherited, Inherited}}, TabFilling->".", LineSpacing->{1, 4}, FontFamily->"Times", FontSize->12], Cell[StyleData["tocentry", "Presentation"], TabFilling->".", FontSize->14], Cell[StyleData["tocentry", "HTML"], CellMargins->{{54, 24}, {Inherited, 0}}, TabFilling->".", LineSpacing->{1, 3}, FontSize->10], Cell[StyleData["tocentry", "Printout"], CellMargins->{{54, 24}, {Inherited, 0}}, TabFilling->".", LineSpacing->{1, 3}, FontSize->10] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["LetterReply"], CellMargins->{{54, 24}, {Inherited, Inherited}}, LineSpacing->{1, 4}, CounterIncrements->"Text", FontFamily->"Times", FontSize->12, FontSlant->"Italic"], Cell[StyleData["LetterReply", "HTML"], CellMargins->{{54, 24}, {Inherited, 0}}, LineSpacing->{1, 3}, FontSize->10], Cell[StyleData["LetterReply", "Presentation"], FontSize->14], Cell[StyleData["LetterReply", "Printout"], CellMargins->{{54, 24}, {Inherited, 0}}, LineSpacing->{1, 3}, FontSize->10] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Hyperlink Styles", "Section", CellFrame->False, CellDingbat->None, ShowCellBracket->True, CellMargins->{{0, 0}, {10, 40}}, CellFrameMargins->{{20, 4}, {8, 8}}, FontColor->GrayLevel[1], Background->RGBColor[0.269902, 0.558434, 0.715618]], 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", "HTML"]], 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", "HTML"]], Cell[StyleData["MainBookLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["AddOnsLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, 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", "HTML"]], Cell[StyleData["AddOnsLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["RefGuideLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "RefGuide", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["RefGuideLink", "Presentation"]], Cell[StyleData["RefGuideLink", "HTML"]], 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", "HTML"]], 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", "HTML"]], Cell[StyleData["OtherInformationLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["FormatType Styles", "Section", CellFrame->False, CellDingbat->None, ShowCellBracket->True, CellMargins->{{0, 0}, {10, 40}}, CellFrameMargins->{{20, 4}, {8, 8}}, FontColor->GrayLevel[1], Background->RGBColor[0.269902, 0.558434, 0.715618]], Cell["\<\ These cells define styles that are mixed in with most other cells. If the \ FormatType of a cell style matches the name of one of the styles defined \ below, then that style is applied along with the local cell style \ definitions. This is particularly true of Input and Output.\ \>", "Text", CellMargins->{{24, 0}, {Inherited, Inherited}}], Cell[StyleData["CellExpression"], CellMargins->{{54, 24}, {2, 4}}, ShowCellLabel->False, ShowSpecialCharacters->False, AllowInlineCells->False, Hyphenation->False, AutoItalicWords->{}, StyleMenuListing->None, FontFamily->"Courier", FontSize->10, Background->GrayLevel[1]], Cell[StyleData["InputForm"], AllowInlineCells->False, Hyphenation->False, LineSpacing->{1.25, 0}, StyleMenuListing->None, FontFamily->"Courier", FontProperties->{"FontSerifed"->True, "FontMonospaced"->True}], Cell[StyleData["OutputForm"], LineSpacing->{1.25, 0}, StyleMenuListing->None, FontFamily->"Courier", FontProperties->{"FontSerifed"->True, "FontMonospaced"->True}], Cell[StyleData["StandardForm"], LineSpacing->{1.25, 0}, SingleLetterItalics->False, StyleMenuListing->None, FontFamily->"Courier", FontProperties->{"FontSerifed"->True, "FontMonospaced"->True}], Cell[StyleData["TraditionalForm"], LineSpacing->{1.25, 0}, SingleLetterItalics->True, TraditionalFunctionNotation->True, DelimiterMatching->None, ZeroWidthTimes->False, StyleMenuListing->None, FontFamily->"Times", FontProperties->{"FontSerifed"->True, "FontMonospaced"->False}], Cell["\<\ The style defined below is mixed in to any cell that is in an inline cell \ within another.\ \>", "Text", CellMargins->{{24, 0}, {Inherited, Inherited}}], Cell[StyleData["InlineCell"], TextAlignment->Left, ScriptLevel->1, StyleMenuListing->None], Cell[StyleData["InlineCellEditing"], StyleMenuListing->None, Background->RGBColor[1, 0.749996, 0.8]] }, Closed]], Cell[CellGroupData[{ Cell["Inline Formatting", "Section", CellFrame->False, CellDingbat->None, ShowCellBracket->True, CellMargins->{{0, 0}, {10, 40}}, CellFrameMargins->{{20, 4}, {8, 8}}, FontColor->GrayLevel[1], Background->RGBColor[0.269902, 0.558434, 0.715618]], Cell["\<\ InlineInput is for code segments embedded within another cell. Sets as \ FormatType->DefaultInputFormatType.\ \>", "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["InlineInput"], Evaluatable->True, CellGroupingRules->"InputGrouping", CellHorizontalScrolling->True, AutoItalicWords->{}, FormatType->DefaultInputFormatType, ShowStringCharacters->True, NumberMarks->True, FontFamily->"Courier", FontWeight->"Bold"], Cell[StyleData["InlineInput", "Presentation"]], Cell[StyleData["InlineInput", "HTML"]], Cell[StyleData["InlineInput", "Printout"]] }, Closed]], Cell["\<\ InlineInputTraditionalForm is for TraditionalForm input segments embedded \ within another cell. Sets FormatType->TraditionalForm.\ \>", "EditorialComment"], Cell[CellGroupData[{ Cell[StyleData["InlineInputTraditionalForm"], CellHorizontalScrolling->True, FormatType->TraditionalForm, ShowStringCharacters->True, NumberMarks->True, SingleLetterItalics->True, ZeroWidthTimes->False, FontFamily->"Times", FontWeight->"Bold"], Cell[StyleData["InlineInputTraditionalForm", "Presentation"]], Cell[StyleData["InlineInputTraditionalForm", "HTML"]], Cell[StyleData["InlineInputTraditionalForm", "Printout"]] }, Closed]], Cell["\<\ These styles are for modifying individual words or letters in a cell \ exclusive of the cell style.\ \>", "Text", PageWidth->342, CellMargins->{{24, 0}, {Inherited, Inherited}}], Cell["\<\ RM used to change selection to FontWeight->Plain, FontSlant->Plain\ \>", "EditorialComment"], Cell[StyleData["RM"], FontWeight->"Plain", FontSlant->"Plain"], Cell["\<\ BF used to change selection to FontWeight->Bold, FontSlant->Plain\ \>", "EditorialComment"], Cell[StyleData["BF"], FontWeight->"Bold", FontSlant->"Plain"], Cell["\<\ IT used to change selection to FontWeight->Plain, FontSlant->Italic\ \>", "EditorialComment"], Cell[StyleData["IT"], FontWeight->"Plain", FontSlant->"Italic"], Cell["\<\ BFI used to change selection to FontWeight->Bold, FontSlant->Italic\ \>", "EditorialComment"], Cell[StyleData["BFI"], FontWeight->"Bold", FontSlant->"Italic"], Cell["\<\ TR used to change selection to normal text font, FontWeight->Plain, \ FontSlant->Plain\ \>", "EditorialComment"], Cell[StyleData["TR"], FontFamily->"Times", FontWeight->"Plain", FontSlant->"Plain"], Cell["\<\ TI used to change selection to normal text font, FontWeight->Plain, \ FontSlant->Italic\ \>", "EditorialComment"], Cell[StyleData["TI"], FontFamily->"Times", FontWeight->"Plain", FontSlant->"Italic"], Cell["\<\ TB used to change selection to normal text font, FontWeight->Bold, \ FontSlant->Plain\ \>", "EditorialComment"], Cell[StyleData["TB"], FontFamily->"Times", FontWeight->"Bold", FontSlant->"Plain"], Cell["\<\ TBI used to change selection to normal text font, FontWeight->Bold, \ FontSlant->Italic\ \>", "EditorialComment"], Cell[StyleData["TBI"], FontFamily->"Times", FontWeight->"Bold", FontSlant->"Italic"], Cell["\<\ MR used to change selection to monospace font with FontWeight->Plain, \ FontSlant->Plain\ \>", "EditorialComment"], Cell[StyleData["MR"], StyleMenuListing->None, FontFamily->"Courier", FontWeight->"Plain", FontSlant->"Plain"], Cell["\<\ MR used to change selection to monospace font with FontWeight->Plain, \ FontSlant->Oblique\ \>", "EditorialComment"], Cell[StyleData["MO"], StyleMenuListing->None, FontFamily->"Courier", FontWeight->"Plain", FontSlant->"Oblique"], Cell["\<\ MB used to change selection to monospace font with FontWeight->Bold, \ FontSlant->Plain\ \>", "EditorialComment"], Cell[StyleData["MB"], StyleMenuListing->None, FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Plain"], Cell["\<\ MBO used to change selection to monospace font with FontWeight->Bold, \ FontSlant->Oblique\ \>", "EditorialComment"], Cell[StyleData["MBO"], StyleMenuListing->None, FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Oblique"], Cell["\<\ SR used to change selection to sans serif font with FontWeight->Plain, \ FontSlant->Plain\ \>", "EditorialComment"], Cell[StyleData["SR"], FontFamily->"Helvetica", FontWeight->"Plain", FontSlant->"Plain"], Cell["\<\ SO used to change selection to sans serif font with FontWeight->Plain, \ FontSlant->Oblique\ \>", "EditorialComment"], Cell[StyleData["SO"], FontFamily->"Helvetica", FontWeight->"Plain", FontSlant->"Oblique"], Cell["\<\ SB used to change selection to sans serif font with FontWeight->Bold, \ FontSlant->Plain\ \>", "EditorialComment"], Cell[StyleData["SB"], FontFamily->"Helvetica", FontWeight->"Bold", FontSlant->"Plain"], Cell["\<\ SBO used to change selection to sans serif font with FontWeight->Bold, \ FontSlant->Oblique\ \>", "EditorialComment"], Cell[StyleData["SBO"], FontFamily->"Helvetica", FontSize->10, FontWeight->"Bold", FontSlant->"Oblique"], Cell["\<\ SCL used to change selection to sans serif font (FontTracking->\"Condensed\")\ \ \>", "EditorialComment"], Cell[StyleData["SCL"], FontFamily->"Helvetica", FontTracking->"Condensed"], Cell["\<\ SCLO used to change selection to sans serif font (FontSlant->\"Oblique\", \ FontTracking->\"Condensed\")\ \>", "EditorialComment"], Cell[StyleData["SCLO"], FontFamily->"Helvetica", FontSlant->"Oblique"], Cell["\<\ SCB used to change selection to sans serif font (FontWeight->\"Bold\", \ FontTracking->\"Condensed\")\ \>", "EditorialComment"], Cell[StyleData["SCB"], FontFamily->"Helvetica", FontWeight->"Bold", FontTracking->"Condensed"], Cell["\<\ SCBO used to change selection to sans serif font (FontWeight->\"Bold\", \ FontSlant->\"Oblique\", FontTracking->\"Condensed\")\ \>", "EditorialComment"], Cell[StyleData["SCBO"], FontFamily->"Helvetica", FontWeight->"Bold", FontSlant->"Oblique", FontTracking->"Condensed"], Cell["\<\ SXR used to change selection to sans serif font (FontWeight->\"ExtraBold\", \ FontTracking->\"Condensed\")\ \>", "EditorialComment"], Cell[StyleData["SXR"], FontFamily->"Helvetica", FontWeight->"ExtraBold", FontTracking->"Condensed"], Cell["\<\ SXO used to change selection to sans serif font (FontWeight->\"ExtraBold\", \ FontSlant->\"Oblique\", FontTracking->\"Condensed\")\ \>", "EditorialComment"], Cell[StyleData["SXO"], FontFamily->"Helvetica", FontWeight->"ExtraBold", FontSlant->"Oblique", FontTracking->"Condensed"] }, Open ]], Cell[CellGroupData[{ Cell["Notation Package Styles", "Section", GeneratedCell->True, CellTags->"NotationPackage"], Cell["\<\ The cells below define certain styles needed by the Notation package. These styles serve to make visible otherwise invisible tagboxes. \ \>", "Text", GeneratedCell->True, CellTags->"NotationPackage"], Cell[StyleData["NotationTemplateStyle"], GeneratedCell->True, StyleMenuListing->None, Background->RGBColor[1, 1, 0.850004], TagBoxOptions->{SyntaxForm->"symbol"}, CellTags->"NotationPackage"], Cell[StyleData["NotationPatternWrapperStyle"], GeneratedCell->True, StyleMenuListing->None, Background->RGBColor[1, 0.900008, 0.979995], TagBoxOptions->{SyntaxForm->"symbol"}, CellTags->"NotationPackage"], Cell[StyleData["NotationMadeBoxesWrapperStyle"], GeneratedCell->True, StyleMenuListing->None, Background->RGBColor[0.900008, 0.889998, 1], TagBoxOptions->{SyntaxForm->"symbol"}, CellTags->"NotationPackage"] }, Closed]] }, Open ]] }] ] (******************************************************************* 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[1705, 50, 52, 0, 29, "OnlineHeader"], Cell[CellGroupData[{ Cell[1782, 54, 78, 1, 142, "Title"], Cell[1863, 57, 32, 0, 50, "Subtitle"], Cell[1898, 59, 333, 10, 94, "Text"], Cell[CellGroupData[{ Cell[2256, 73, 60, 0, 80, "SectionFirst"], Cell[2319, 75, 231, 4, 94, "Text"], Cell[CellGroupData[{ Cell[2575, 83, 48, 0, 68, "Subsection"], Cell[2626, 85, 466, 9, 136, "Text"], Cell[3095, 96, 63, 1, 49, "Input"], Cell[3161, 99, 95, 2, 52, "Text"], Cell[3259, 103, 46, 1, 49, "Input"], Cell[3308, 106, 73, 0, 31, "Text"], Cell[3384, 108, 26, 0, 49, "Input"], Cell[3413, 110, 228, 9, 178, "Text"], Cell[3644, 121, 57, 1, 49, "Input"], Cell[3704, 124, 32, 0, 31, "Text"], Cell[3739, 126, 57, 1, 49, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[3833, 132, 49, 0, 68, "Subsection"], Cell[3885, 134, 90, 2, 52, "Text"], Cell[3978, 138, 63, 1, 49, "Input"], Cell[4044, 141, 95, 2, 52, "Text"], Cell[4142, 145, 46, 1, 49, "Input"], Cell[4191, 148, 73, 0, 31, "Text"], Cell[4267, 150, 26, 0, 49, "Input"], Cell[4296, 152, 178, 7, 136, "Text"], Cell[4477, 161, 57, 1, 49, "Input"], Cell[4537, 164, 56, 1, 49, "Input"], Cell[4596, 167, 68, 0, 31, "Text"], Cell[4667, 169, 52, 1, 49, "Input"], Cell[4722, 172, 74, 0, 31, "Text"], Cell[4799, 174, 45, 1, 49, "Input"], Cell[4847, 177, 63, 0, 31, "Text"], Cell[4913, 179, 43, 1, 74, "Input"], Cell[4959, 182, 50, 0, 31, "Text"], Cell[5012, 184, 39, 1, 49, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[5088, 190, 56, 0, 68, "Subsection"], Cell[5147, 192, 171, 3, 73, "Text"], Cell[5321, 197, 218, 4, 106, "Input"], Cell[5542, 203, 55, 0, 31, "Text"], Cell[5600, 205, 48, 1, 74, "Input"], Cell[5651, 208, 45, 0, 31, "Text"], Cell[5699, 210, 35, 1, 49, "Input"], Cell[5737, 213, 126, 4, 73, "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[5912, 223, 35, 0, 80, "SectionFirst"], Cell[CellGroupData[{ Cell[5972, 227, 35, 0, 68, "Subsection"], Cell[6010, 229, 165, 4, 56, "Text"], Cell[6178, 235, 165, 3, 114, "Input"], Cell[6346, 240, 39, 0, 31, "Text"], Cell[6388, 242, 49, 1, 49, "Input"], Cell[6440, 245, 43, 0, 31, "Text"], Cell[6486, 247, 35, 1, 49, "Input"], Cell[6524, 250, 150, 4, 73, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[6711, 259, 34, 0, 68, "Subsection"], Cell[6748, 261, 134, 3, 52, "Text"], Cell[6885, 266, 143, 3, 95, "Input"], Cell[7031, 271, 42, 0, 31, "Text"], Cell[7076, 273, 48, 1, 49, "Input"], Cell[7127, 276, 58, 0, 31, "Text"], Cell[7188, 278, 93, 1, 49, "Input"], Cell[7284, 281, 69, 0, 31, "Text"], Cell[7356, 283, 54, 1, 49, "Input"], Cell[7413, 286, 172, 3, 73, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[7622, 294, 36, 0, 68, "Subsection"], Cell[7661, 296, 53, 0, 31, "Text"], Cell[7717, 298, 250, 4, 106, "Input"], Cell[7970, 304, 27, 0, 31, "Text"], Cell[8000, 306, 43, 1, 49, "Input"], Cell[8046, 309, 55, 0, 31, "Text"], Cell[8104, 311, 66, 1, 49, "Input"], Cell[8173, 314, 59, 1, 49, "Input"], Cell[8235, 317, 57, 1, 49, "Input"], Cell[8295, 320, 106, 5, 94, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[8438, 330, 34, 0, 68, "Subsection"], Cell[8475, 332, 71, 0, 31, "Text"], Cell[8549, 334, 250, 4, 106, "Input"], Cell[8802, 340, 27, 0, 31, "Text"], Cell[8832, 342, 43, 1, 49, "Input"], Cell[8878, 345, 52, 0, 31, "Text"], Cell[8933, 347, 138, 2, 68, "Input"], Cell[9074, 351, 97, 2, 31, "Text"], Cell[9174, 355, 71, 1, 49, "Input"], Cell[9248, 358, 123, 3, 31, "Text"], Cell[9374, 363, 60, 1, 49, "Input"], Cell[9437, 366, 44, 1, 49, "Input"], Cell[9484, 369, 230, 6, 115, "Text"] }, Open ]] }, Open ]] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)