(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 4.2' 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[ 16171, 571]*) (*NotebookOutlinePosition[ 90890, 3227]*) (* CellTagsIndexPosition[ 90846, 3223]*) (*WindowFrame->Normal*) Notebook[{ Cell["Introduction to Probability ", "OnlineHeader"], Cell[CellGroupData[{ Cell["Experiments for Assignment 2", "Title", ShowGroupOpenCloseIcon->False], Cell["Introduction", "Subtitle"], Cell["\<\ In this section we will develop the basic definitions that are used to \ examine chance experiments from a mathematical point of view.\ \>", "Text"], Cell[CellGroupData[{ Cell["Random Variable and Sample Spaces", "SectionFirst"], Cell[TextData[{ "Suppose we have an experiment whose outcomes depend on chance. We will use \ capital letters like ", StyleBox["X or Y", FontWeight->"Bold"], " called a ", StyleBox["random variable ", FontWeight->"Bold"], "to represent the random outcomes.\n\nThe ", StyleBox["sample space", FontWeight->"Bold"], " of the experiment is the set of all possible outcomes. We will use the \ letter ", StyleBox["S ", FontWeight->"Bold"], "to represent the sample space.\n\nEach subset of the sample space is \ called an ", StyleBox["event.\n", FontWeight->"Bold"] }], "Text"], Cell[CellGroupData[{ Cell["Random Variable (Die Toss)", "Subsection"], Cell["\<\ A die is rolled once. Let X denote the face of the die facing up. The sample \ space is\ \>", "Text"], Cell[BoxData[ StyleBox[\(S = {1, 2, 3, 4, 5, 6}\), FontWeight->"Bold"]], "Input"], Cell["The event A corresponding to the even outcomes is:", "Text"], Cell[BoxData[ \(A = {2, 4, 6}\)], "Input"], Cell[TextData[{ "If we assume that all the faces are equally likely to come up then we \ would assign a probability of p(i)= ", Cell[BoxData[ \(\(\(1\/6\)\(\ \)\)\)]], "for i = 1,2,3,4,5,6. Each face would be assigned a probability of ", Cell[BoxData[ \(\(\(1\/6\)\(.\)\)\)]], "Think of p(i) as the probability that X=i. So P(X=i)=p(i)." }], "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Distribution Function", "Subsection"], Cell["\<\ We next describe the assignment of probabilities. Our definition is motivated \ by the above example.\ \>", "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Def: Distribution Function", "Subsection"], Cell[TextData[{ "Let ", StyleBox["X", FontWeight->"Bold"], " be a random variable which denotes the value of the outcome of a certain \ experiment, and assume that this experiment has only finitely many possible \ outcomes. Let ", StyleBox["S", FontWeight->"Bold"], " be the sample space of the experiment. A distribution function of X is a \ real-valued function p whose domain is S and which satisfies:\n\n", StyleBox["1. p(i) \[GreaterEqual] 0 , for all i \[Epsilon] S.\n\n2. ", FontWeight->"Bold"], Cell[BoxData[ \(\[Sum]\+\(i\ \[Epsilon]\ \(\(S\)\(.\)\)\)p \((i)\)\ \ = \ 1\)], FontWeight->"Bold"], StyleBox["\n\nF", FontWeight->"Bold"], "or any subset A of S, we define the probability of A to be the number \ P(A)" }], "Text"], Cell[BoxData[{ \(P \((A)\)\ = \ \[Sum]\ \ \ p \((i)\)\), "\[IndentingNewLine]", \(\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ i\ \[Epsilon]\ A\), \ "\[IndentingNewLine]", \(\)}], "Text"], Cell["\<\ Think of P(A) as the probability that X = i for some i \[Epsilon] A. That is, \ P(A) is the probability that the experiment gives one of the outcomes in A. \ \>", "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Example 1", "Subsection"], Cell[TextData[{ "Consider an experiment in which a coin is tossed twice. Let X be the \ random variable that corresponds to this experiment. We can record the \ outcomes in several ways. We could use S = {HH,HT,TH,TT} where we record the \ outcomes of the first and second coin. We could use S={0,1,2} where we record \ the number of heads that appeared. These are two different sample spaces.\n \n\ If we take the first sample space S = {HH,HT,TH,TT} then each of the \ outcomes is equally likely. Thus \n \n p(HH) = p(HT) = p(TH) = p(TT) = ", Cell[BoxData[ \(1\/4\)]], "\n \n Here is the event A that at least one head occurs in the two tosses.\ \n A={HT,TH,HH}\n \n P(A) = p(HT) + p(TH) + p(HH) = ", Cell[BoxData[ \(3\/4\)]] }], "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Example 2", "Subsection"], Cell["\<\ Three people a,b,c are running for the same office and only one wins. The \ sample space is S={a,b,c}. Suppose a and b have the same chance of winning but c has only 1/2 the chance \ of a or b. What is the probability of winning for a, for b and for c? Since only these three people are running for office p(a) + p(b) + p(c) =1. Use the given information, 2 p(c) = p(a) = p(b), to rewrite the above \ equation as follows: 2 p(c) + 2p(c) + p(c) = 1 5 p(c) =1 p(c) = 1/5 So p(a) = 2/5 and p(b) = 2/5. \ \>", "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Set Notation", "Subsection"], Cell[TextData[{ "Union of sets A or B denoted by ", StyleBox["A \[Union] B", FontWeight->"Bold"], " = {x | x \[Epsilon]A or x\[Epsilon]B}.\n\nIntersection of sets A and B \ denoted by ", StyleBox["A \[Intersection]B", FontWeight->"Bold"], " = {x | x \[Epsilon]A and x\[Epsilon]B}.\n\nDifference of sets A and B \ denoted by ", StyleBox["A - B", FontWeight->"Bold"], " = {x | x \[Element] A and x \[NotElement]B}.\n\nThe complement of A is \ denoted by ", Cell[BoxData[ \(\(\(\ \ \)\(A\&_\)\)\)], FontWeight->"Bold"], " = {x | x\[Element] S, x \[NotElement]A}.\n" }], "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Theorem", "Subsection"], Cell[TextData[{ "The probabilities assigned to events by a distribution function, defined \ above, on a finite sample space S satisfy the following properties:\n\n1. \ P(A) \[GreaterEqual] 0 for every A \[SubsetEqual] S\n2. P(S) = 1\n3. If A \ and B are disjoint subsets of S then P(A\[Union]B) = P(A) + P(B). \n\nMore \ generally, if ", Cell[BoxData[ \(A\_1, ... \ , \ A\_n\)]], " are pairwise disjoint subsets of S, then \n", Cell[BoxData[ \(P \((A\_1\)\)]], "\[Union]", Cell[BoxData[ \(\(\(\(...\)\(\[Union]\)\(A\_n\)\)\()\)\)\)]], "= ", Cell[BoxData[ \(\[Sum]\+\(i = 1\)\%n P \((A\_i)\)\)]], ".\n \nSince P satisfies the axioms of a probability function, we also have \ the following, which can be deduced from the properties above.\n\n4. If A \ \[SubsetEqual] B then P(A) \[PrecedesEqual] P(B).\n5. P( ", Cell[BoxData[ RowBox[{" ", StyleBox[\(A\&_\), FontWeight->"Plain"]}]], FontWeight->"Bold"], " ) =1 - P(A) for every A \[SubsetEqual] S.\n " }], "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Theorem ", "Subsection"], Cell[TextData[{ "If ", Cell[BoxData[ \(A\_1, ... \ , \ A\_n\)]], " are pairwise disjoint subsets of S, and\n", Cell[BoxData[ \(A\_1\)]], "\[Union] ", Cell[BoxData[ \(\(\(...\)\(\[Union]\)\(A\_n\)\)\ \ = \ S\)]], ", then ", Cell[BoxData[ \(P \((E\)\)]], Cell[BoxData[ \()\)]], "= ", Cell[BoxData[ \(\[Sum]\+\(i = 1\)\%n P \((E\ \[Intersection] \ A\_i)\)\)]], "\n " }], "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Corollary", "Subsection"], Cell[TextData[{ "For any two events A and B, P(A) = P(A\[Intersection]B) + P(A\ \[Intersection] ", Cell[BoxData[ \(B\&_\)]], ")." }], "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Proposition", "Subsection"], Cell["\<\ If A and B are subsets of S, then P(A\[Union]B) = P(A) + P(B) - P(A\ \[Intersection]B).\ \>", "Text"], Cell["Read the proof on page 62 of Devore's text.", "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[" Example ", "Subsection"], Cell["\<\ Consider the tossing of three coins and recording the outcome. S = {TTT, TTH, THT, THH, HTT, HTH, HHT, HHH} Assuming all the events in the sample space to be equally likely we would \ assign p(i) = 1/8 for each of the eight outcomes. Let A = the event \"the first outcome is a head\" and B= \"the second outcome \ is a tail\" A= {HTT, HTH, HHT, HHH} so P(A) = 4/8 = 1/2. B= {TTT, TTH,HTT, HTH} so P(B) = 4/8 = 1/2. A\[Intersection]B = {HTT, HTH} so P( A\[Intersection]B)= 2/8 = 1/4. P(A\[Union]B) = P(A) + P(B) - P(A\[Intersection]B) = 1/2 + 1/2 - 1/4 = 3/4. This consequence of the Proposition on page 62 is consistent with the fact \ that A\[Union]B = {TTT, TTH, HTT, HTH, HHT, HHH}. \ \>", "Text"] }, Open ]], Cell["Uniform Distribution", "Subsection"], Cell[CellGroupData[{ Cell["Def: Uniform Distribution", "Subsection"], Cell["\<\ The uniform distribution on a sample space S containing n elements is the \ function P defined by p(x) = 1/n. for every x\[Epsilon]S. \ \>", "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Sample ", "Subsection"], Cell[TextData[{ "Roll a pair of dice, one red and one blue, and record the faces.\n\nS = \ {(i,j): 1\[LessEqual] i, j \[LessEqual] 6 }\np((i,j)) = 1/36\n\nLet E = the \ event the sum i+j is 7.\n\nE= {(1,6), (2,5), (3,4), (4,3), (5,2), (6,1)}.\n\n\ P(E) = ", Cell[BoxData[ \(\[Sum]\+\(x\[Epsilon]\ E\)\(\(p\) \((x)\)\(\ \ \)\)\)]], "= 6 ", Cell[BoxData[ \(1\/36\)]], "= ", Cell[BoxData[ \(1\/6\)]], "\n\nLet F = the event the sum i+j = 11.\n\nF= {(5,6),(6,5)}\nP(F) = 2/36 = \ 1/18\n\nP(", Cell[BoxData[ \(\(\(F\&_\)\()\)\)\)]], "= 1- P(F) = ", Cell[BoxData[ \(1 - 1\/18\)]], "= ", Cell[BoxData[ \(17\/18\)]] }], "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Infinite Sample Spaces", "Section"], Cell[TextData[{ "A sample space is countably infinite if the elements can be counted, i.e., \ can be put in a 1-1 correspondence with the positive integers.\n\nS={ ", Cell[BoxData[ \(\(\(x\_1, \ x\_2, \ ... \)\(}\)\)\)]], " " }], "Text"], Cell["\<\ For such an infinite sample space we cannot have a uniform distriution. \ Why?\ \>", "Text"], Cell[CellGroupData[{ Cell["Example", "Subsection"], Cell[TextData[{ "A coin is tossed until the first time that a head turns up. Let the \ outcome be the number of flips needed until the first heads occurs.\n\n\ S={1,2,3,4,.....}\n\np(1) = 1/2\np(2)= 1/4\np(3)=1/8\n\np(n) = ", Cell[BoxData[ \(1/2\^n\)]], "\n\n1/2 + 1/4 + 1/8 + ... = 1 \n\nor\n\n", Cell[BoxData[ \(\[Sum]\+\(i = 1\)\%\[Infinity] 1\/2\^i\)]], " = 1" }], "Text"], Cell[CellGroupData[{ Cell["Geometric Series", "Subsubsection"], Cell[BoxData[ \(\(\(\[IndentingNewLine]\)\(To\ see\ why \(\[Sum]\+\(n = \ 1\)\%\[Infinity] r\^n\)\ \ = \ r\/\(1 - r\), \ let\ L = \(\[Sum]\+\(n = 1\)\%\[Infinity] r\^n\ \ and\ notice\ that\ L - rL = \(\(r\)\(.\)\)\)\)\)\)], "Text"], Cell[BoxData[{ \(Clear[r]\), "\[IndentingNewLine]", \(\[Sum]\+\(n = 1\)\%\[Infinity] r\^n\)}], "Input"], Cell["\<\ Let E = {2,4,6,8,.....} \"first heads on an even number of tosses.\"\ \>", "Text"], Cell[BoxData[ \(\(\(\[IndentingNewLine]\)\(P[ E] = \(1/4\ + \ 1/16 + \ 1/64\ + \ ... = \(\(1/4\)\/\(1 - 1/4\)\ = \ 1/3\)\)\)\)\)], "Text"], Cell[BoxData[{ \(\(r = 1\/4;\)\), "\[IndentingNewLine]", \(\[Sum]\+\(n = 1\)\%\[Infinity] r\^n\)}], "Input"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Exercises and Experiments", "SectionFirst"], Cell[CellGroupData[{ Cell["Exercise 1 and Experiment 1", "Subsection"], Cell["\<\ The first three digits of Haverford College's telephone exchange are 896. If \ all the sequences of the remaining four digits are equally likely, what is \ the probability that a randomly selected Haverford College phone number \ contains seven distinct digits? Check your answer by running a computer \ simulation that randomly selects 100 such phone numbers. Hint: If the digit 7 is represented by 6, then the last four digits of a \ phone number that does not have a repeated digit of 8, 9, or 6 is the random \ variable Y defined below. Union will tell you the distinct digits among the \ last 4, so if the Length is 4 then the 4 digits are distinct. \ \>", "Text"], Cell[BoxData[{ \(Y := \ Random[ Integer, {0, 9}]\[IndentingNewLine]\), "\[IndentingNewLine]", \(PhoneNumber = Flatten[Prepend[Table[Y, {4}], {8, 9, 6}]]\)}], "Input"], Cell[BoxData[ \(Union[PhoneNumber]\)], "Input"], Cell[BoxData[ \(Length[Union[PhoneNumber]]\)], "Input"], Cell[BoxData[ \(Length[Union[PhoneNumber]] == 7\)], "Input"], Cell["\<\ Now look at Experiment 2 in last week's lab (Experiments for Assignment 1) to \ count the phone numbers in a sample of size 100 that have distinct digits.\ \>", "Text"], Cell[BoxData[ \(sample = Table[Length[Union[Flatten[Prepend[Table[Y, {4}], {8, 9, 6}]]]] == 7, {100}]\)], "Input"], Cell["\<\ Count the phone numbers in the sample that have distinct digits. \ \>", "Text"], Cell[BoxData[ \(\(\(Count[sample, True]\)\(\ \)\)\)], "Input"], Cell["\<\ What estimate does this count give for the probability that a randomly \ selected Haverford College phone number contains seven distinct digits? If \ the estimate is not accurate, run a simulation that gives an improved \ estimate.\ \>", "Text"], Cell[BoxData[""], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["Exercise 2 and Experiment 2", "Subsection"], Cell["\<\ Two children play basketball by taking turns shooting from the free throw \ line; they stop when a basket is made. Nora, who shoots first, has \ probability 0.4 of making a basket on any shot. Ellyn, who shoots second, \ has probability 0.6 of making a basket on any shot. The outcomes of the \ successive shots are assumed to be independent. What is the probability that Nora makes a basket before Ellyn does? Check \ your answer by running a computer simulation of the children playing 100 \ times.\ \>", "Text"], Cell[BoxData[{ \(Y := \ Random[Integer, {0, 9}]\), "\[IndentingNewLine]", \(NoraWon := \((For[n = 0; BasketMade = False, Not[BasketMade], \(n++\), If[EvenQ[n], BasketMade = \((Y < 4)\), BasketMade = \((Y < 6)\)]]; \[IndentingNewLine]OddQ[ n])\)\)}], "Input"], Cell[BoxData[ \(sample = Table[NoraWon, {100}]\)], "Input"], Cell[BoxData[ \(\(\(Count[sample, True]\)\(\ \)\)\)], "Input"], Cell["\<\ What estimate does this count give for the probability that Nora makes a \ basket before Ellyn does? If the estimate is not accurate, run a simulation \ that gives an improved estimate.\ \>", "Text"] }, Open ]] }, Open ]] }, Open ]] }, FrontEndVersion->"4.2 for Macintosh", ScreenRectangle->{{0, 1280}, {0, 778}}, AutoGeneratedPackage->None, ScreenStyleEnvironment->"Working", PrintingStyleEnvironment->"Printout", ShowPageBreaks->False, WindowToolbars->{"RulerBar", "EditBar"}, WindowSize->{682, 724}, WindowMargins->{{147, 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[1754, 51, 52, 0, 29, "OnlineHeader"], Cell[CellGroupData[{ Cell[1831, 55, 78, 1, 91, "Title"], Cell[1912, 58, 32, 0, 50, "Subtitle"], Cell[1947, 60, 158, 3, 52, "Text"], Cell[CellGroupData[{ Cell[2130, 67, 57, 0, 80, "SectionFirst"], Cell[2190, 69, 612, 19, 178, "Text"], Cell[CellGroupData[{ Cell[2827, 92, 48, 0, 68, "Subsection"], Cell[2878, 94, 111, 3, 31, "Text"], Cell[2992, 99, 91, 2, 49, "Input"], Cell[3086, 103, 66, 0, 31, "Text"], Cell[3155, 105, 46, 1, 49, "Input"], Cell[3204, 108, 372, 9, 75, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[3613, 122, 43, 0, 68, "Subsection"], Cell[3659, 124, 125, 3, 52, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[3821, 132, 48, 0, 68, "Subsection"], Cell[3872, 134, 780, 20, 220, "Text"], Cell[4655, 156, 187, 4, 76, "Text"], Cell[4845, 162, 180, 4, 73, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[5062, 171, 31, 0, 68, "Subsection"], Cell[5096, 173, 761, 14, 327, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[5894, 192, 31, 0, 68, "Subsection"], Cell[5928, 194, 532, 21, 430, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[6497, 220, 34, 0, 68, "Subsection"], Cell[6534, 222, 622, 18, 179, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[7193, 245, 29, 0, 68, "Subsection"], Cell[7225, 247, 1040, 26, 346, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[8302, 278, 30, 0, 68, "Subsection"], Cell[8335, 280, 440, 19, 73, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[8812, 304, 31, 0, 68, "Subsection"], Cell[8846, 306, 155, 6, 31, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[9038, 317, 33, 0, 68, "Subsection"], Cell[9074, 319, 111, 3, 31, "Text"], Cell[9188, 324, 68, 0, 49, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[9293, 329, 31, 0, 68, "Subsection"], Cell[9327, 331, 729, 21, 367, "Text"] }, Open ]], Cell[10071, 355, 42, 0, 68, "Subsection"], Cell[CellGroupData[{ Cell[10138, 359, 47, 0, 68, "Subsection"], Cell[10188, 361, 176, 8, 157, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[10401, 374, 29, 0, 68, "Subsection"], Cell[10433, 376, 679, 23, 369, "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[11161, 405, 41, 0, 78, "Section"], Cell[11205, 407, 250, 6, 94, "Text"], Cell[11458, 415, 102, 3, 31, "Text"], Cell[CellGroupData[{ Cell[11585, 422, 29, 0, 68, "Subsection"], Cell[11617, 424, 400, 10, 351, "Text"], Cell[CellGroupData[{ Cell[12042, 438, 41, 0, 49, "Subsubsection"], Cell[12086, 440, 252, 4, 133, "Text"], Cell[12341, 446, 112, 2, 100, "Input"], Cell[12456, 450, 94, 2, 31, "Text"], Cell[12553, 454, 179, 4, 66, "Text"], Cell[12735, 460, 117, 2, 126, "Input"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[12913, 469, 49, 0, 80, "SectionFirst"], Cell[CellGroupData[{ Cell[12987, 473, 49, 0, 68, "Subsection"], Cell[13039, 475, 682, 12, 241, "Text"], Cell[13724, 489, 183, 3, 87, "Input"], Cell[13910, 494, 51, 1, 49, "Input"], Cell[13964, 497, 59, 1, 49, "Input"], Cell[14026, 500, 64, 1, 49, "Input"], Cell[14093, 503, 179, 4, 73, "Text"], Cell[14275, 509, 136, 3, 68, "Input"], Cell[14414, 514, 90, 3, 52, "Text"], Cell[14507, 519, 66, 1, 49, "Input"], Cell[14576, 522, 256, 6, 94, "Text"], Cell[14835, 530, 26, 0, 49, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[14898, 535, 49, 0, 68, "Subsection"], Cell[14950, 537, 529, 9, 136, "Text"], Cell[15482, 548, 301, 5, 125, "Input"], Cell[15786, 555, 63, 1, 49, "Input"], Cell[15852, 558, 66, 1, 49, "Input"], Cell[15921, 561, 210, 5, 94, "Text"] }, Open ]] }, Open ]] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)