(*********************************************************************** Mathematica-Compatible Notebook This notebook can be used on any computer system with Mathematica 3.0, MathReader 3.0, or any compatible application. The data for the notebook starts with the line of stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. ***********************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 12205, 368]*) (*NotebookOutlinePosition[ 42266, 1428]*) (* CellTagsIndexPosition[ 42222, 1424]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["Commutators and the uncertainty principle", "Subtitle"], Cell["doug ", "Subsubtitle"], Cell[TextData[StyleBox[ "Introduction\nCommutators\nThe uncertainty principle\nImplications"]], "Text"], Cell[CellGroupData[{ Cell[TextData[StyleBox["Introduction"]], "Subsection", CellMargins->{{0, Inherited}, {Inherited, Inherited}}], Cell["\<\ Commutators and the uncertainty principle are central to quantum \ mechanics. Using quaternions in these roles has already been established by \ others (Horwitz and Biedenharn, Annals of Physics, 157:432, 1984). The first \ proof of the uncertainty principle I saw relied solely on the properties of \ complex numbers, not on physics! In this notebook I will repeat that \ analysis, showing how commutators and an uncertainty principle arise from the \ properties of quaternions (or their subfield the complex numbers).\ \>", "Text"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Commutators"]], "Subsection", CellMargins->{{0, Inherited}, {Inherited, Inherited}}], Cell["Any quaternion can be written in a polar form.", "Text"], Cell[BoxData[ \(q\ = \ \(\((s, \ V)\)\ = \ \@\(\(q\^*\)\ q\)\ Exp[s\/\@\(\(q\^*\)\ q\)\ V\/\@\(\(V\^*\)\ V\)]\)\)], "Input", Evaluatable->False, FontSize->16], Cell["\<\ This is identical to Euler's formula except that the imaginary unit \ vector i is replaced by the normalized 3-vector. The two are equivalent if j \ = k = 0.\ \>", "Text"], Cell["\<\ To simplify things, use a normalized quaternion, so that q* q = 1. \ Collect the normalized 3-vector together with I = V/(V* V)^.5.\ \>", "Text"], Cell["\<\ The angle s/(q* q)^.5 is a real number. Any real number can be \ viewed as the product of two other real numbers. This seemingly irrelevant \ observation lends much of the flexibility seen in quantum mechanics :-) Here \ is the rewrite of q.\ \>", "Text"], Cell[BoxData[{ \(q\ = \ Exp[a\ b\ I]\ \), \(where\ \ \ \ \ \(q\^*\)\ q\ = \ \(1\ \ \ \ \ a\ b\ = \ \(s\/\@\(\(q\^*\)\ q\)\ \ \ \ \ \ I\ = \ V\/\@\(\(V\^*\)\ V\)\)\)\)}], "Input", Evaluatable->False, FontSize->16], Cell["\<\ Define a linear operator capital A that multiplies q by the scalar \ value small a.\ \>", "Text"], Cell[BoxData[ \(A\ q\ = \ a\ q\)], "Input", Evaluatable->False, FontSize->16], Cell["\<\ Define a linear operator capital B that multiplies q by the scalar \ value small b. This operator can be defined in terms of a, another simple \ observation with big consequences.\ \>", "Text"], Cell[BoxData[{ \(Let\ \ \ B\ = \ \(-I\)\ d\/da\n\), \(B\ q\ = \ \(\(-I\)\ \(d\ Exp[a\ b\ I]\)\/\(da\ \)\ = \ b\ q\)\)}], "Input", Evaluatable->False, FontSize->16], Cell["Operators A and B are linear.", "Text"], Cell[BoxData[{ \(\((A\ + \ B)\) q\ = \ \(A\ q\ + \ B\ q\ = \ \(a\ q\ + \ b\ q\ = \ \((a\ + \ b)\) q\)\)\n \), \(A \((q\ + \ q')\) = \ \(A\ q\ + \ A\ q'\ = \ a\ q\ + \ a'\ q'\)\)}], "Input", Evaluatable->False, FontSize->16], Cell["\<\ Calculate the commutator [A, B], which involves the scalar a and \ the derivative with respect to a.\ \>", "Text"], Cell[BoxData[ \(\([A, \ B]\) q\ = \ \(\((A\ B\ - \ B\ A)\) q\ = \ \(\(-a\)\ I\ \(d\ q\)\/\(da\ \)\ + \ I\ \(d\ a\ q\)\/\(da\ \)\n = \ \(\(-a\)\ I\ \(d\ q\)\/\(da\ \)\ + \ a\ I\ \(d\ q\)\/\(da\ \)\ \ + \ \ I\ q \( d\ a\)\/\(da\ \)\n = \ I\ q\)\)\)\)], "Input", Evaluatable->False, FontSize->16], Cell["\<\ The commutator acting on a quaternion is equivalent to multiplying \ that quaternion by the normalized 3-vector I.\ \>", "Text"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["The uncertainty principle"]], "Subsection", CellMargins->{{0, Inherited}, {Inherited, Inherited}}], Cell["\<\ Use these operators to construct things that behave like averages \ (expectation values) and standard deviations.\ \>", "Text"], Cell["\<\ The scalar a--generated by the operator A acting on the normalized \ q--can be calculated using the Euclidean product.\ \>", "Text"], Cell[BoxData[ \(\(q\^*\)\ \((A\ q)\)\ = \ \(\(q\^*\)\ a\ q\ = \ \(a\ \(q\^*\)\ q\ = \ a\)\)\)], "Input", Evaluatable->False, FontSize->16], Cell["\<\ It is hard to shuffle quaternions or their operators around. Real \ scalars (the only sort I ever use :-) commute with any quaternion and are \ their own conjugates. Operators that generate such scalars can move around. \ Look at ways to express the expectation value of A.\ \>", "Text"], Cell[BoxData[ \(\(q\^*\)\ \((A\ q)\)\ = \ \(\(q\^*\)\ a\ q\ = \ \(a\ \(q\^*\)\ q\ \ = \ \(\(a\^*\) \(q\^*\)\ q\ = \ \(\(\((A\ q)\)\^*\)\ q\ \ = \ a\)\)\)\)\)], "Input", Evaluatable->False, FontSize->16], Cell["\<\ Define a new operator A' based on A whose expectation value is \ always zero.\ \>", "Text"], Cell[BoxData[ \(\(Let\ \ \ A'\ = \ A\ - \ \(q\^*\)\ \((A\ q)\)\n\t\t\n \(q\^*\)\ \((A'\ q)\) = \ \(q\^*\)\ \((A\ - \ \(q\^*\)\ \((A\ q)\))\) q)\) = \ \(a\ - \ a\ = \ 0\)\)], "Input", Evaluatable->False, FontSize->16], Cell["\<\ Define the square of the operator in a way designed to link up with \ the standard deviation.\ \>", "Text"], Cell[BoxData[ \(Let\ DA'\^2\ = \ \(\(q\^*\)\ \((A\^\(' 2\)\ q)\) - \ \((\(q\^*\)\ \((\(A\^'\)\ q)\))\)\^2\ = \ \(q\^*\)\ \((A\^\(' 2\)\ q)\)\)\)], "Input", Evaluatable->False, FontSize->16], Cell["An identical set of tools can be defined for B.", "Text"], Cell["\<\ In the notebook on bracket notation, the Schwarz inequality for \ quaternions was shown.\ \>", "Text"], Cell[BoxData[ \(\(\(A\^\('*\)\ \(B\^'\)\ + \ \(B\^\('*\)\) \(A\^'\)\)\/2\ \[LessEqual] \ |\(A\^'\) | \ | \(B\^'\) | \ \ \)\)], "Input", Evaluatable->False, FontSize->16], Cell["\<\ The Schwarz inequality applies to quaternions, not quaternion \ operators. If the operators A' and B' are surrounded on both sides by q and \ q*, then they will behave like scalars.\ \>", "Text"], Cell["The left-hand side can be rearranged to form a commutator.", "Text"], Cell[BoxData[ \(\(\(q\^*\) \((A\^\('*\)\ \(B\^'\)\ + \ \(B\^\('*\)\) \(A\^'\))\) q\ \n = \ \(\(q\^*\) A\^\('*\)\ \(B\^'\)\ q\ + \ \(q\^*\) \(B\^\('*\)\) \(A\^'\)\ q\n = \ \(\(q\^*\)\ a\^\('*\)\ \(B\^'\)\ q\ + \ \ \(q\^*\)\ \(\((\(-I\))\)\^*\) d\/da\ \(A\^'\)\ q\n = \ \(\(q\^*\)\ \(a\^'\)\ \(B\^'\)\ q\ - \ \ \(q\^*\)\ \((\(-I\))\) d\/da\ \(A\^'\)\ q\n = \ \(\(q\^*\) \((\(A\^'\)\ \(B\^'\)\ - \ \(B\^'\)\ \(A\^'\))\) q\ \n = \ \(q\^*\)[\(A\^'\), \ \(B\^'\)] q\)\)\)\)\ \)\)], "Input", Evaluatable->False, FontSize->16], Cell["\<\ The right-hand side can be rearranged to form the square of the \ operator.\ \>", "Text"], Cell[BoxData[ \(\(q\^*\) | \(A\^'\) | \ | \(B\^'\) | q\ \n = \ \(\(q\^*\) A\^\(*'\)\ \(A\^'\) \(B\^\(*'\)\) \(B\^'\) q\n = \ \(\(q\^*\) A\^\(' 2\)\ \(B\^\(' 2\)\) q\n = \ DA'\^2\ DB'\^2\)\)\)], "Input", Evaluatable->False, FontSize->16], Cell["\<\ Plug these back into the Schwarz inequality, stripping the primes \ which appear on both sides along the way.\ \>", "Text"], Cell[BoxData[ \(\(\(q\^*\)[A, \ B] q\ \)\/2\ \[LessEqual] \ DA\^2\ DB\^2\)], "Input", Evaluatable->False, FontSize->16], Cell["This quaternion exercise can be mapped to physics", "Text"], Cell[BoxData[GridBox[{ {"Quaternions", \(Standard\ physics\)}, {"q", \(|\[Psi] > \ \ bra\)}, {\(q\^*\), \(\( < \[Psi]\) | \ \ ket\)}, {"A", \(A\ \ operator\)}, {"I", "i"}, {\([A, \ B]\), \(\([A, \ B]\)\ \ commutator\)}, {\(\(q\^*\)\ q\), \(\( < \[Psi]\) | \[Psi] > \ \ norm\)}, {\(\(q\^*\)\ A\ q\), \(\( < \[Psi]\) | A\ \[Psi] > \ \ expectation\ of\ A\)}, {\(\(q\^*\)\ \((A\ q)\)\ = \ \(\((A\ q)\)\^*\)\ A\), \(A\ is\ Hermitian\)}, {\(DA\^2\), \(\[Delta]A\^2 = \n \( < \[Psi]\) | A\^2\ \[Psi] > \(-\( < \[Psi]\)\) | \(A\ \[Psi]\( > \^2\)\)\)} }]], "Input", Evaluatable->False, TextAlignment->Left, TextJustification->0, FontSize->16], Cell["\<\ To get to the position-momentum uncertainty equation, make these \ specific maps\ \>", "Text"], Cell[BoxData[GridBox[{ {"A", "X"}, {"B", \(P\ = \ i\ \[HBar]\ d\/dx\)}, {\(\([A, B]\) = \ I\), \(\([X, \ P]\)\ = \ i\ \[HBar]\)}, {\(\ \ \(\(q\^*\)[A, \ B] q\ \)\/2\ = \ \n\t I\/2\ \[LessEqual] \ DA\^2\ DB\^2\), \(\ \ \ \(\( < \[Psi]\) | \(\([X, \ P]\) \[Psi] > \)\ \)\/2\ = \n\t\ \(i\ \[HBar]\)\/2\ \[LessEqual] \ \[Delta]X\^2\ \[Delta]P\^2\)} }]], "Input", Evaluatable->False, FontSize->16], Cell["\<\ The product of the squares of the standard deviation for position \ and momentum in the x-direction has a lower bound equal to half the \ expectation value of the commutator of those operators. The proof is in the \ structure of quaternions.\ \>", "Text"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Implications"]], "Subsection", CellMargins->{{0, Inherited}, {Inherited, Inherited}}], Cell["\<\ There are many interpretations of the uncertainty principle. I \ come away with two strange observations. First, the uncertainty principle is \ about quaternions of the form q = Exp[a b I]. With this insight, one can see \ by inspection that a plane wave Exp[((Et - P.X)/hbar I], or wave packets that \ are superpositions of plane waves, will have four uncertainty relations, one \ for the scalar Et and another three for the three-part scalar P.X. This \ perspective should be easy to generalize.\ \>", "Text"], Cell["\<\ Second, the uncertainty principle and gravity are related to the \ same mathematical properties. This proof of the uncertainty relation \ involved the Schwarz inequality. It is fairly straightforward to convert \ that inequality to the triangle inequality. Finding geodesics with \ quaternions involves the triangle inequality. If a complete theory of \ gravity can be built from these geodesics (it hasn't yet been done :-) then \ the inequalities may open connections where none appeared before.\ \>", "Text"] }, Open ]] }, Open ]] }, FrontEndVersion->"Microsoft Windows 3.0", ScreenRectangle->{{0, 640}, {0, 451}}, AutoGeneratedPackage->None, WindowToolbars->{"RulerBar", "EditBar"}, CellGrouping->Automatic, WindowSize->{526, 192}, WindowMargins->{{8, Automatic}, {Automatic, 5}}, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, PageHeaders->{{Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"], Inherited, Cell[ TextData[ { ValueBox[ "FileName"]}], "Header"]}, {Cell[ TextData[ { ValueBox[ "FileName"]}], "Header"], Inherited, Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"]}}, PageHeaderLines->{False, Inherited}, PrintingOptions->{"PrintingMargins"->{{72, 57.5625}, {57.5625, 72}}, "PrintCellBrackets"->False, "PrintRegistrationMarks"->False, "PrintMultipleHorizontalPages"->False, "FirstPageHeader"->False, "FirstPageFooter"->False}, PrivateNotebookOptions->{"ColorPalette"->{RGBColor, 128}}, ShowCellLabel->False, ShowCellTags->False, RenderingOptions->{"ObjectDithering"->True, "RasterDithering"->False}, CharacterEncoding->"MacintoshAutomaticEncoding", StyleDefinitions -> Notebook[{ Cell[CellGroupData[{ Cell[TextData[StyleBox["Style Definitions"]], "Subtitle"], Cell[TextData[StyleBox[ "Modify the definitions below to change the default appearance of all cells \ in a given style. Make modifications to any definition using commands in the \ Format menu."]], "Text"], Cell[CellGroupData[{ Cell[TextData[StyleBox["Style Environment Names"]], "Section"], Cell[StyleData[All, "Working"], PageWidth->WindowWidth, ScriptMinSize->9], Cell[StyleData[All, "Presentation"], PageWidth->WindowWidth, ScriptMinSize->12, FontSize->16], Cell[StyleData[All, "Condensed"], PageWidth->WindowWidth, CellBracketOptions->{"Margins"->{1, 1}, "Widths"->{0, 5}}, ScriptMinSize->8, FontSize->11], Cell[StyleData[All, "Printout"], PageWidth->PaperWidth, ScriptMinSize->5, FontSize->10, PrivateFontOptions->{"FontType"->"Outline"}] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Notebook Options"]], "Section", FontFamily->"New York"], Cell[TextData[StyleBox[ "The options defined for the style below will be used at the Notebook \ level."]], "Text", FontFamily->"New York"], Cell[StyleData["Notebook"], PageHeaders->{{Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"], None, Cell[ TextData[ { ValueBox[ "FileName"]}], "Header"]}, {Cell[ TextData[ { ValueBox[ "FileName"]}], "Header"], None, Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"]}}, CellFrameLabelMargins->6, StyleMenuListing->None, FontFamily->"New York"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Styles for Headings"]], "Section", FontFamily->"Times New Roman"], Cell[CellGroupData[{ Cell[StyleData["Title"], CellMargins->{{7, Inherited}, {8, 40}}, Evaluatable->False, CellGroupingRules->{"TitleGrouping", 0}, CellHorizontalScrolling->False, PageBreakBelow->False, TextAlignment->Center, CounterIncrements->"Title", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, { "Subtitle", 0}, {"Subsubtitle", 0}}, AspectRatioFixed->True, FontFamily->"Times New Roman", FontSize->24, FontWeight->"Bold"], Cell[StyleData["Title", "Presentation"], CellMargins->{{24, 10}, {20, 40}}, LineSpacing->{1, 0}, FontFamily->"Times New Roman", FontSize->44], Cell[StyleData["Title", "Condensed"], CellMargins->{{8, 10}, {4, 8}}, FontFamily->"Times New Roman", FontSize->20], Cell[StyleData["Title", "Printout"], CellMargins->{{2, 10}, {12, 30}}, FontFamily->"Times New Roman", FontSize->24] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subtitle"], CellMargins->{{7, Inherited}, {6, 15}}, Evaluatable->False, CellGroupingRules->{"TitleGrouping", 10}, CellHorizontalScrolling->False, PageBreakBelow->False, TextAlignment->Center, CounterIncrements->"Subtitle", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, { "Subsubtitle", 0}}, AspectRatioFixed->True, FontFamily->"Times New Roman", FontSize->18], Cell[StyleData["Subtitle", "Presentation"], CellMargins->{{24, 10}, {20, 20}}, LineSpacing->{1, 0}, FontFamily->"Times New Roman", FontSize->36], Cell[StyleData["Subtitle", "Condensed"], CellMargins->{{8, 10}, {4, 4}}, FontFamily->"Times New Roman", FontSize->14], Cell[StyleData["Subtitle", "Printout"], CellMargins->{{2, 10}, {12, 8}}, FontFamily->"Times New Roman", FontSize->18] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsubtitle"], CellMargins->{{7, Inherited}, {6, 15}}, Evaluatable->False, CellGroupingRules->{"TitleGrouping", 20}, CellHorizontalScrolling->False, PageBreakBelow->False, TextAlignment->Center, CounterIncrements->"Subsubtitle", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}}, AspectRatioFixed->True, FontFamily->"Times New Roman", FontSize->14, FontSlant->"Italic"], Cell[StyleData["Subsubtitle", "Presentation"], CellMargins->{{24, 10}, {20, 20}}, LineSpacing->{1, 0}, FontFamily->"Times New Roman", FontSize->24], Cell[StyleData["Subsubtitle", "Condensed"], CellMargins->{{8, 10}, {8, 8}}, FontFamily->"Times New Roman", FontSize->12], Cell[StyleData["Subsubtitle", "Printout"], CellMargins->{{2, 10}, {12, 8}}, FontFamily->"Times New Roman", FontSize->14] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Section"], CellDingbat->"\[GraySquare]", CellMargins->{{22, Inherited}, {8, 20}}, Evaluatable->False, CellGroupingRules->{"SectionGrouping", 30}, CellHorizontalScrolling->False, PageBreakBelow->False, CounterIncrements->"Section", CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}}, AspectRatioFixed->True, FontFamily->"Times New Roman", FontSize->18, FontWeight->"Bold", FontVariations->{"Underline"->True}], Cell[StyleData["Section", "Presentation"], CellMargins->{{40, 10}, {11, 32}}, LineSpacing->{1, 0}, FontFamily->"Times New Roman", FontSize->24], Cell[StyleData["Section", "Condensed"], CellMargins->{{18, Inherited}, {6, 12}}, FontFamily->"Times New Roman", FontSize->12], Cell[StyleData["Section", "Printout"], CellMargins->{{13, 0}, {7, 22}}, FontFamily->"Times New Roman", FontSize->14] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsection"], CellDingbat->"\[FilledSquare]", CellMargins->{{19, Inherited}, {8, 15}}, Evaluatable->False, CellGroupingRules->{"SectionGrouping", 40}, CellHorizontalScrolling->False, PageBreakBelow->False, CounterIncrements->"Subsection", CounterAssignments->{{"Subsubsection", 0}}, AspectRatioFixed->True, FontFamily->"Times New Roman", FontSize->14, FontWeight->"Bold"], Cell[StyleData["Subsection", "Presentation"], CellMargins->{{36, 10}, {11, 32}}, LineSpacing->{1, 0}, FontFamily->"Times New Roman", FontSize->22], Cell[StyleData["Subsection", "Condensed"], CellMargins->{{16, Inherited}, {6, 12}}, FontFamily->"Times New Roman", FontSize->12], Cell[StyleData["Subsection", "Printout"], CellMargins->{{9, 0}, {7, 22}}, FontFamily->"Times New Roman", FontSize->12] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsubsection"], CellDingbat->"\[EmptySquare]", CellMargins->{{18, Inherited}, {8, 12}}, Evaluatable->False, CellGroupingRules->{"SectionGrouping", 50}, CellHorizontalScrolling->False, PageBreakBelow->False, CounterIncrements->"Subsubsection", AspectRatioFixed->True, FontFamily->"Times New Roman", FontSize->12, FontWeight->"Bold"], Cell[StyleData["Subsubsection", "Presentation"], CellMargins->{{34, 10}, {11, 26}}, LineSpacing->{1, 0}, FontFamily->"Times New Roman", FontSize->18], Cell[StyleData["Subsubsection", "Condensed"], CellMargins->{{17, Inherited}, {6, 12}}, FontFamily->"Times New Roman", FontSize->10], Cell[StyleData["Subsubsection", "Printout"], CellMargins->{{9, 0}, {7, 14}}, FontFamily->"Times New Roman", FontSize->11] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Styles for Body Text"]], "Section", FontFamily->"Times New Roman"], Cell[CellGroupData[{ Cell[StyleData["Text"], CellMargins->{{7, 10}, {7, 7}}, Evaluatable->False, CellHorizontalScrolling->False, PageBreakWithin->Automatic, LineSpacing->{1, 3}, CounterIncrements->"Text", AspectRatioFixed->True, FontFamily->"Times New Roman", FontSize->12], Cell[StyleData["Text", "Presentation"], CellMargins->{{24, 10}, {10, 10}}, LineSpacing->{1, 5}, FontFamily->"Times New Roman"], Cell[StyleData["Text", "Condensed"], CellMargins->{{8, 10}, {6, 6}}, LineSpacing->{1, 1}, FontFamily->"Times New Roman"], Cell[StyleData["Text", "Printout"], CellMargins->{{2, 2}, {6, 6}}, FontFamily->"Times New Roman"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SmallText"], CellMargins->{{7, 10}, {6, 6}}, Evaluatable->False, CellHorizontalScrolling->False, PageBreakWithin->Automatic, LineSpacing->{1, 3}, CounterIncrements->"SmallText", AspectRatioFixed->True, FontFamily->"Times New Roman", FontSize->10], Cell[StyleData["SmallText", "Presentation"], CellMargins->{{24, 10}, {8, 8}}, LineSpacing->{1, 5}, FontFamily->"Times New Roman", FontSize->12], Cell[StyleData["SmallText", "Condensed"], CellMargins->{{8, 10}, {5, 5}}, LineSpacing->{1, 2}, FontFamily->"Times New Roman", FontSize->9], Cell[StyleData["SmallText", "Printout"], CellMargins->{{2, 2}, {5, 5}}, FontFamily->"Times New Roman", FontSize->7] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Styles for Input/Output"]], "Section", FontFamily->"Courier", FontSize->14, FontWeight->"Plain"], Cell[TextData[StyleBox[ "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", FontFamily->"Courier", FontSize->14], Cell[CellGroupData[{ Cell[StyleData["Input"], PageWidth->Infinity, CellMargins->{{42, 10}, {5, 7}}, Evaluatable->True, CellGroupingRules->"InputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultInputFormatType, LineSpacing->{1, 0}, AutoItalicWords->{}, FormatType->InputForm, ShowStringCharacters->True, NumberMarks->True, CounterIncrements->"Input", AspectRatioFixed->True, FontFamily->"Courier", FontSize->14, FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False}], Cell[StyleData["Input", "Presentation"], CellMargins->{{72, Inherited}, {8, 10}}, LineSpacing->{1, 0}, FontFamily->"Courier", FontSize->14, FontWeight->"Plain"], Cell[StyleData["Input", "Condensed"], CellMargins->{{40, 10}, {2, 3}}, FontFamily->"Courier", FontSize->14, FontWeight->"Plain"], Cell[StyleData["Input", "Printout"], CellMargins->{{39, 0}, {4, 6}}, FontFamily->"Courier", FontSize->14, FontWeight->"Plain"] }, Closed]], Cell[StyleData["InputOnly"], Evaluatable->True, CellGroupingRules->"InputGrouping", CellHorizontalScrolling->True, DefaultFormatType->DefaultInputFormatType, AutoItalicWords->{}, FormatType->InputForm, ShowStringCharacters->True, NumberMarks->True, CounterIncrements->"Input", StyleMenuListing->None, FontFamily->"Courier", FontSize->14, FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False}], Cell[CellGroupData[{ Cell[StyleData["Output"], PageWidth->Infinity, CellMargins->{{42, 10}, {7, 5}}, CellEditDuplicate->True, Evaluatable->False, CellGroupingRules->"OutputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, LineSpacing->{1, 0}, AutoItalicWords->{}, FormatType->InputForm, CounterIncrements->"Output", AspectRatioFixed->True, FontFamily->"Courier", FontSize->14, FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False}], Cell[StyleData["Output", "Presentation"], CellMargins->{{72, Inherited}, {10, 8}}, LineSpacing->{1, 0}, FontFamily->"Courier", FontSize->14], Cell[StyleData["Output", "Condensed"], CellMargins->{{41, Inherited}, {3, 2}}, FontFamily->"Courier", FontSize->14], Cell[StyleData["Output", "Printout"], CellMargins->{{39, 0}, {6, 4}}, FontFamily->"Courier", FontSize->14] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Message"], PageWidth->Infinity, CellMargins->{{42, Inherited}, {Inherited, Inherited}}, Evaluatable->False, CellGroupingRules->"OutputGrouping", PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, LineSpacing->{1, 0}, AutoItalicWords->{}, FormatType->InputForm, CounterIncrements->"Message", AspectRatioFixed->True, StyleMenuListing->None, FontFamily->"Courier", FontSize->14, FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontColor->RGBColor[0.500008, 0, 0], FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False}], Cell[StyleData["Message", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, LineSpacing->{1, 0}, FontFamily->"Courier", FontSize->14], Cell[StyleData["Message", "Condensed"], CellMargins->{{41, Inherited}, {Inherited, Inherited}}, FontFamily->"Courier", FontSize->14], Cell[StyleData["Message", "Printout"], CellMargins->{{39, Inherited}, {Inherited, Inherited}}, FontFamily->"Courier", FontSize->14, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Print"], PageWidth->Infinity, CellMargins->{{42, Inherited}, {Inherited, Inherited}}, Evaluatable->False, CellGroupingRules->"OutputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, LineSpacing->{1, 0}, AutoItalicWords->{}, FormatType->InputForm, CounterIncrements->"Print", AspectRatioFixed->True, StyleMenuListing->None, FontFamily->"Courier", FontSize->14, FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False}], Cell[StyleData["Print", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, LineSpacing->{1, 0}, FontFamily->"Courier", FontSize->14], Cell[StyleData["Print", "Condensed"], CellMargins->{{41, Inherited}, {Inherited, Inherited}}, FontFamily->"Courier", FontSize->14], Cell[StyleData["Print", "Printout"], CellMargins->{{39, Inherited}, {Inherited, Inherited}}, FontFamily->"Courier", FontSize->14] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Graphics"], PageWidth->Infinity, CellMargins->{{7, Inherited}, {Inherited, Inherited}}, Evaluatable->False, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, DefaultFormatType->DefaultOutputFormatType, FormatType->InputForm, CounterIncrements->"Graphics", AspectRatioFixed->True, ImageSize->{387, 393}, ImageMargins->{{34, Inherited}, {Inherited, 0}}, StyleMenuListing->None, FontFamily->"Courier", FontSize->14, FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False}], Cell[StyleData["Graphics", "Presentation"], ImageMargins->{{62, Inherited}, {Inherited, 0}}, FontFamily->"Courier", FontSize->14], Cell[StyleData["Graphics", "Condensed"], ImageSize->{175, 175}, ImageMargins->{{38, Inherited}, {Inherited, 0}}, FontFamily->"Courier", FontSize->14], Cell[StyleData["Graphics", "Printout"], ImageSize->{250, 250}, ImageMargins->{{30, Inherited}, {Inherited, 0}}, FontFamily->"Courier", FontSize->14] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["CellLabel"], StyleMenuListing->None, FontFamily->"Courier", FontSize->14, FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False}], Cell[StyleData["CellLabel", "Presentation"], FontFamily->"Courier", FontSize->14], Cell[StyleData["CellLabel", "Condensed"], FontFamily->"Courier", FontSize->14], Cell[StyleData["CellLabel", "Printout"], FontFamily->"Courier", FontSize->14, FontColor->GrayLevel[0]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Formulas and Programming"]], "Section"], Cell[CellGroupData[{ Cell[StyleData["InlineFormula"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, ScriptLevel->1, SingleLetterItalics->True], Cell[StyleData["InlineFormula", "Presentation"], CellMargins->{{24, 10}, {10, 10}}, LineSpacing->{1, 5}], Cell[StyleData["InlineFormula", "Condensed"], CellMargins->{{8, 10}, {6, 6}}, LineSpacing->{1, 1}], Cell[StyleData["InlineFormula", "Printout"], CellMargins->{{2, 0}, {6, 6}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DisplayFormula"], CellMargins->{{42, Inherited}, {Inherited, Inherited}}, CellHorizontalScrolling->True, DefaultFormatType->DefaultInputFormatType, ScriptLevel->0, SingleLetterItalics->True, UnderoverscriptBoxOptions->{LimitsPositioning->True}], Cell[StyleData["DisplayFormula", "Presentation"], LineSpacing->{1, 5}], Cell[StyleData["DisplayFormula", "Condensed"], LineSpacing->{1, 1}], Cell[StyleData["DisplayFormula", "Printout"]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Styles for Headers and Footers"]], "Section"], Cell[StyleData["Header"], CellMargins->{{7, 0}, {4, 1}}, Evaluatable->False, PageBreakWithin->Automatic, AspectRatioFixed->True, StyleMenuListing->None, FontFamily->"Times", FontSize->12, FontSlant->"Italic"], Cell[StyleData["Footer"], CellMargins->{{7, 0}, {0, 4}}, Evaluatable->False, PageBreakWithin->Automatic, TextAlignment->Center, AspectRatioFixed->True, StyleMenuListing->None, FontFamily->"Times", FontSize->12, FontSlant->"Italic"], Cell[StyleData["PageNumber"], CellMargins->{{0, 0}, {4, 1}}, StyleMenuListing->None, FontFamily->"Times", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Palette Styles"]], "Section"], Cell[TextData[StyleBox[ "The cells below define styles that define standard ButtonFunctions, for \ use in palette buttons."]], "Text"], Cell[StyleData["Paste"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, After]}]&)}], Cell[StyleData["Evaluate"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, All], SelectionEvaluate[ FrontEnd`InputNotebook[ ], All]}]&)}], Cell[StyleData["EvaluateCell"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, All], FrontEnd`SelectionMove[ FrontEnd`InputNotebook[ ], All, Cell, 1], FrontEnd`SelectionEvaluateCreateCell[ FrontEnd`InputNotebook[ ], All]}]&)}], Cell[StyleData["CopyEvaluate"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`SelectionCreateCell[ FrontEnd`InputNotebook[ ], All], FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, All], FrontEnd`SelectionEvaluate[ FrontEnd`InputNotebook[ ], All]}]&)}], Cell[StyleData["CopyEvaluateCell"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`SelectionCreateCell[ FrontEnd`InputNotebook[ ], All], FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, All], FrontEnd`SelectionEvaluateCreateCell[ FrontEnd`InputNotebook[ ], All]}]&)}] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Hyperlink Styles"]], "Section"], Cell[TextData[StyleBox[ "The cells below define styles useful for making hypertext ButtonBoxes. \ The \"Hyperlink\" style is for links within the same Notebook, or between \ Notebooks."]], "Text"], Cell[CellGroupData[{ Cell[StyleData["Hyperlink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookLocate[ #2]}]&), Active->True, ButtonNote->ButtonData}], Cell[StyleData["Hyperlink", "Presentation"]], Cell[StyleData["Hyperlink", "Condensed"]], Cell[StyleData["Hyperlink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[TextData[StyleBox[ "The following styles are for linking automatically to the on-line help \ system."]], "Text"], Cell[CellGroupData[{ Cell[StyleData["MainBookLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "MainBook", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["MainBookLink", "Presentation"]], Cell[StyleData["MainBookLink", "Condensed"]], Cell[StyleData["MainBookLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["AddOnsLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontFamily->"Courier", FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "AddOns", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["AddOnsLink", "Presentation"]], Cell[StyleData["AddOnsLink", "Condensed"]], Cell[StyleData["AddOnLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["RefGuideLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontFamily->"Courier", FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "RefGuideLink", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["RefGuideLink", "Presentation"]], Cell[StyleData["RefGuideLink", "Condensed"]], Cell[StyleData["RefGuideLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["GettingStartedLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "GettingStarted", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["GettingStartedLink", "Presentation"]], Cell[StyleData["GettingStartedLink", "Condensed"]], Cell[StyleData["GettingStartedLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["OtherInformationLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "OtherInformation", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["OtherInformationLink", "Presentation"]], Cell[StyleData["OtherInformationLink", "Condensed"]], Cell[StyleData["OtherInformationLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Placeholder Styles"]], "Section"], Cell[TextData[StyleBox[ "The cells below define styles useful for making placeholder objects in \ palette templates."]], "Text"], Cell[CellGroupData[{ Cell[StyleData["Placeholder"], Editable->False, Selectable->False, StyleBoxAutoDelete->True, Placeholder->True, StyleMenuListing->None], Cell[StyleData["Placeholder", "Presentation"]], Cell[StyleData["Placeholder", "Condensed"]], Cell[StyleData["Placeholder", "Printout"]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SelectionPlaceholder"], Editable->False, Selectable->False, StyleBoxAutoDelete->True, Placeholder->Primary, StyleMenuListing->None, DrawHighlighted->True], Cell[StyleData["SelectionPlaceholder", "Presentation"]], Cell[StyleData["SelectionPlaceholder", "Condensed"]], Cell[StyleData["SelectionPlaceholder", "Printout"]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["FormatType Styles"]], "Section"], Cell[TextData[StyleBox[ "The cells below define styles that are mixed in with the styles of most \ cells. If a cell's FormatType matches the name of one of the styles defined \ below, then that style is applied between the cell's style and its own \ options."]], "Text"], Cell[StyleData["CellExpression"], PageWidth->Infinity, CellMargins->{{6, Inherited}, {Inherited, Inherited}}, ShowCellLabel->False, ShowSpecialCharacters->False, AllowInlineCells->False, AutoItalicWords->{}, StyleMenuListing->None, FontFamily->"Courier", Background->GrayLevel[1]], Cell[StyleData["InputForm"], AllowInlineCells->False, StyleMenuListing->None, FontFamily->"Courier"], Cell[StyleData["OutputForm"], PageWidth->Infinity, TextAlignment->Left, LineSpacing->{1, -5}, StyleMenuListing->None, FontFamily->"Courier"], Cell[StyleData["StandardForm"], LineSpacing->{1.25, 0}, StyleMenuListing->None, FontFamily->"Courier"], Cell[StyleData["TraditionalForm"], LineSpacing->{1.25, 0}, SingleLetterItalics->True, TraditionalFunctionNotation->True, DelimiterMatching->None, StyleMenuListing->None], Cell[TextData[StyleBox[ "The style defined below is mixed in to any cell that is in an inline cell \ within another."]], "Text"], Cell[StyleData["InlineCell"], TextAlignment->Left, ScriptLevel->1, StyleMenuListing->None], Cell[StyleData["InlineCellEditing"], StyleMenuListing->None, Background->RGBColor[1, 0.749996, 0.8]] }, 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[CellGroupData[{ Cell[1731, 51, 61, 0, 43, "Subtitle"], Cell[1795, 53, 48, 0, 39, "Subsubtitle"], Cell[1846, 55, 103, 1, 90, "Text"], Cell[CellGroupData[{ Cell[1974, 60, 111, 1, 42, "Subsection"], Cell[2088, 63, 549, 9, 128, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[2674, 77, 110, 1, 42, "Subsection"], Cell[2787, 80, 62, 0, 33, "Text"], Cell[2852, 82, 195, 6, 52, "Input"], Cell[3050, 90, 182, 4, 52, "Text"], Cell[3235, 96, 156, 3, 52, "Text"], Cell[3394, 101, 268, 5, 71, "Text"], Cell[3665, 108, 256, 7, 77, "Input"], Cell[3924, 117, 107, 3, 33, "Text"], Cell[4034, 122, 86, 3, 32, "Input"], Cell[4123, 127, 204, 4, 52, "Text"], Cell[4330, 133, 182, 5, 107, "Input"], Cell[4515, 140, 45, 0, 33, "Text"], Cell[4563, 142, 261, 7, 78, "Input"], Cell[4827, 151, 124, 3, 33, "Text"], Cell[4954, 156, 349, 7, 109, "Input"], Cell[5306, 165, 138, 3, 52, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[5481, 173, 124, 1, 42, "Subsection"], Cell[5608, 176, 137, 3, 52, "Text"], Cell[5748, 181, 142, 3, 52, "Text"], Cell[5893, 186, 156, 4, 32, "Input"], Cell[6052, 192, 300, 5, 71, "Text"], Cell[6355, 199, 255, 7, 32, "Input"], Cell[6613, 208, 101, 3, 33, "Text"], Cell[6717, 213, 255, 6, 78, "Input"], Cell[6975, 221, 117, 3, 33, "Text"], Cell[7095, 226, 226, 6, 34, "Input"], Cell[7324, 234, 63, 0, 33, "Text"], Cell[7390, 236, 112, 3, 33, "Text"], Cell[7505, 241, 189, 4, 50, "Input"], Cell[7697, 247, 206, 4, 52, "Text"], Cell[7906, 253, 74, 0, 33, "Text"], Cell[7983, 255, 625, 11, 178, "Input"], Cell[8611, 268, 99, 3, 33, "Text"], Cell[8713, 273, 264, 6, 101, "Input"], Cell[8980, 281, 133, 3, 52, "Text"], Cell[9116, 286, 128, 3, 46, "Input"], Cell[9247, 291, 65, 0, 33, "Text"], Cell[9315, 293, 790, 20, 239, "Input"], Cell[10108, 315, 104, 3, 33, "Text"], Cell[10215, 320, 489, 11, 130, "Input"], Cell[10707, 333, 266, 5, 71, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[11010, 343, 111, 1, 42, "Subsection"], Cell[11124, 346, 525, 8, 109, "Text"], Cell[11652, 356, 525, 8, 109, "Text"] }, Open ]] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)