(************** Content-type: application/mathematica ************** Mathematica-Compatible Notebook This notebook can be used with any Mathematica-compatible application, such as Mathematica, MathReader or Publicon. The data for the notebook starts with the line containing stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. *******************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 16405, 638]*) (*NotebookOutlinePosition[ 60225, 2074]*) (* CellTagsIndexPosition[ 60181, 2070]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["MATHEMATICA: SOME BASICS", "Title"], Cell[CellGroupData[{ Cell["Tips on Syntax", "Section"], Cell[CellGroupData[{ Cell["1. Commands are capitalized", "Subsection"], Cell[BoxData[{ \(Sqrt[25]\), "\n", \(ArcTan[1]\), "\n", \(Pi\), "\n", \(Solve[\ 3 x + 1 == 7, \ x]\), "\n", \(\(sdata\ = \ Table[Sin[x] Cos[y], \ {x, 0, 10, 0.25}, \ {y, 0, 10, 0.33}];\)\), "\[IndentingNewLine]", \(\(ListPlot3D[sdata];\)\)}], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["2. Parameters are put in square brackets", "Subsection"], Cell[BoxData[{ \(Cos[x]\), \(\(Plot[Sin[x^2], \ {x, 0, 5}]; \)\)}], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["3. Lists (esp. vectors, matrices) appear in curly brackets", "Subsection"], Cell[BoxData[{ \(list1\ \ = \ \ {a, \ b, \ 17}\), \(matrix1\ \ = \ \ {\ {1, 0}, \ \ {0, 1}\ }\)}], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["4. Parentheses are for algebraic grouping", "Subsection"], Cell[BoxData[{ \(\((x + y)\)^3\), \(\((4 Pi - x)\)/\((x\ y\ + \ 1)\)\)}], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["5. `=' indicates value assignment; `==' indicates equality", "Subsection"], Cell[BoxData[ \(equation1\ \ \ = \ \ \ x + 3 y == 8\)], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["6. Double square brackets indicate an index", "Subsection"], Cell[BoxData[{ \(matrix\ \ = \ \ \ {\ {a, b}, \ {c, d}\ }; \nmatrix[\([1]\)]\), \(matrix[\([1, 2]\)]\)}], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["7. Multiple commands can be separated by a semicolon", "Subsection"], Cell[BoxData[{ \(a = 3\ \ \ ; \ \ \ b = 4\ \ \ ; \ \ \ c = a + b\), \(\(x\ = \ N[Pi, 999]; \)\)}], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["\<\ 8. Functions which take only one parameter can appear as postfix \ commands using `//'\ \>", "Subsection"], Cell[BoxData[{ \(matrix1\ \ \ // \ \ MatrixForm\), \(Sqrt[2]\ \ // \ \ N\)}], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["\<\ 9. Multiplication is indicated by `*' or by juxtaposition, but be \ sure to separate variable names by a space\ \>", "Subsection"], Cell[BoxData[ \({\ \ \ \ n\ *\ Pi\ \ \ , \ \ \ n\ Pi\ \ \ , \ \ nPi\ \ \ \ , \ \ 4 Pi\ \ \ }\)], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["10. Matrix multiplication is indicated by `.'", "Subsection"], Cell[BoxData[{ \(matrA\ \ = \ \ {{u, v, w}, {d, e, f}}; \n matrB\ \ = \ \ {{g, h}, \ \ {i, j}, \ \ {m, n}}; \n vecA\ \ \ \ \ = \ \ \ {xx, yy, zz}; \nvecB\ \ \ \ \ = \ \ \ {3, 4, 5}; \n\nmatrA\ . \ matrB\), \(matrA\ . \ vecB\), \(vecA\ \ . \ \ vecB\)}], "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["SuperCalculator", "Section"], Cell[CellGroupData[{ Cell["\<\ Mathematica tries to do exact arithmetic on integers and on \ symbols; floating point numbers (e.g. numbers with a decimal point) are \ treated differently in many cases. Function N converts to floating \ point.\ \>", "Subsection"], Cell[BoxData[ \({Sqrt[2], \ Sqrt[2.0], 10\ Pi, N[10\ Pi, 40]}\)], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Algebraic expressions can be manipulated with commands like Expand, \ Factor, Simplify, Solve;\ \>", "Subsection"], Cell[BoxData[ \(Remove[a]\)], "Input"], Cell[BoxData[ \(Clear[a, x, y]; \n{\ Expand[\((x + y)\)^3], \ \ Factor[a^3 - 1], \ \ Simplify[\((x + y)\)^2 - \((x - y)\)^2]\ }\)], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["Complex arithmetic? Of course!", "Subsection"], Cell[BoxData[ \({\ \((2 - 3\ I)\)\ \((4 + I)\), \ \ Sqrt[\(-1.2\) + 0.3\ I], \ \ E^\((I\ Pi)\)\ }\)], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Solves equations; exactly when possible, numerically if necessary \ \ \>", "Subsection"], Cell[BoxData[{ \(Clear[x]\), \(Solve[x^2 - x == 1, x]\)}], "Input"], Cell["\<\ A floating-point coefficient (anything with a decimal point) tells \ Mathematica to solve numerically:\ \>", "Text"], Cell[BoxData[ \(Solve[x^2 - x == 1.0, x]\)], "Input"], Cell["\<\ Fifth-degree polynomials are not, in general, solvable in terms of \ roots:\ \>", "Text"], Cell[BoxData[ \(soln = Solve[x^5 + x^3 - x == 20, x]\)], "Input"], Cell["\<\ ...but numerical solutions, to any given precision, are always \ available:\ \>", "Text"], Cell[BoxData[ \(N[soln]\)], "Input"], Cell[BoxData[ \(x /. N[soln]\)], "Input"], Cell["Simultaneous equations are grouped in curly brackets {}:", "Text"], Cell[BoxData[{ \(Clear[x, y]\), \(Solve[{x + y == 3, 2\ x - 3\ y == 7}, {x, y}]\)}], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["\<\ For solving nonlinear equations numerically one can use FindRoot \ \ \>", "Subsection"], Cell[BoxData[ \(Remove[a, b]\)], "Input"], Cell[BoxData[ \(Clear[a, b]; \n nlroots = FindRoot[{2\ a\ b == Sin[b] + 3, b == 7^a}, \ {a, 0, 1}, {b, 1, 9}, WorkingPrecision \[Rule] 40]\)], "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Plotting functions or data", "Section"], Cell[CellGroupData[{ Cell["Plotting a function of one variable:", "Subsection"], Cell[BoxData[ \(Plot[Sin[x^2], {x, 0, 5}]\)], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["Plotting a function of two variables:", "Subsection"], Cell[BoxData[ \(\(Plot3D[Cos[x]\ Cos[y], {x, 0, 6}, {y, 0, 3}]; \)\)], "Input"], Cell[BoxData[ \(\(DensityPlot[Cos[x]\ Cos[y], {x, 0, 6}, {y, 0, 3}, Mesh \[Rule] False, PlotPoints \[Rule] 25]; \)\)], "Input"], Cell[BoxData[ \(\(ContourPlot[Cos[x]\ Cos[y], {x, 0, 6}, {y, 0, 3}, PlotPoints \[Rule] 25]; \)\)], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["Plotting a list of points, with or without \"PlotJoined\":", "Subsection"], Cell[CellGroupData[{ Cell["Simple data list (y coordinates only)", "Subsubsection"], Cell[BoxData[ \(points = {3, 2, 4, 1, 8, 3, 2, 4, 2, 7, 3, 2, 4}; \n ListPlot[points, PlotJoined \[Rule] True]\)], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["x-y coordinate pairs", "Subsubsection"], Cell[BoxData[ \(points = {{5, 3}, {2, 5.5}, {\(-1\), 3}, {4, 2}, {4, 3.5}}; \n ListPlot[points, PlotStyle \[Rule] {PointSize[0.04], Hue[0.12]}]; \)], "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Viewing a rectangular array of points:", "Subsection"], Cell["\<\ One can read data in from a separate text file using \"ReadList\". \ A 25x30 array of values would be read from file \"matrix.dat\" with the \ command \t\tdata = ReadList[\"matrix.dat\", Table[Real,30]] \t\t Alternatively, data may be the result of calculations, such as the following:\ \ \>", "Text"], Cell[BoxData[ \(\(data = Table[\((i - j)\)\^2 + 300\ Sin[\(i + j\)\/9] + 750\ Exp[\(-\(1\/8\)\)\ \((i - 22)\)\^2 - 1\/35\ \((j - 17)\)\^2], { i, 30}, {j, 25}]; \)\)], "Input"], Cell["\<\ Three common ways to display data over an x-y grid are shown below;\ \ \>", "Text"], Cell[BoxData[{ \(surface = ListPlot3D[data, DisplayFunction \[Rule] Identity]; \n \(density = ListDensityPlot[data, Mesh \[Rule] False, DisplayFunction \[Rule] Identity]; \)\), \(\(contour = ListContourPlot[data, DisplayFunction \[Rule] Identity]; \)\), \(\(Show[ GraphicsArray[{surface, density, contour}, DisplayFunction \[Rule] $DisplayFunction]]; \)\)}], "Input"], Cell["\t\tListPlot3D\t\t\t ListDensityPlot\t\t\tListContourPlot", "Text"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Linear algebra", "Section"], Cell[CellGroupData[{ Cell["\<\ MatrixForm displays matrices in familiar rectangular form, rather than as a \"list of lists\" in curly brackets.\ \>", "Subsection"], Cell[BoxData[ \(Remove[a, b, c, d, u, v, w, x]\)], "Input"], Cell[BoxData[{ \(vecA = {a, b, c, d}; \n\(vecB = {u, v, w, x}; \)\), \(dm = DiagonalMatrix[{2, 3, 5, 7}]\)}], "Input"], Cell[BoxData[ \(MatrixForm[dm]\)], "Input"], Cell[BoxData[ \(dm[\([1]\)] = vecA; \nMatrixForm[dm]\)], "Input"], Cell[BoxData[ \(dm . vecB\)], "Input"], Cell[BoxData[ \(MatrixForm[dm . dm]\)], "Input"], Cell[BoxData[ \(Inverse[dm]\ \ \ \ \ \ \ \ \ \ \ // \ MatrixForm\)], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["\<\ To solve a set of simultaneous linear equations mx=b for matrix m \ and vector b, use \"LinearSolve\":\ \>", "Subsection"], Cell[BoxData[{ \(m = {{1, 2, 3}, {2, 3, 5}, {1, 4, 7}}; \n\(b = {8, 16, 18}; \)\), \(x = LinearSolve[m, b]\)}], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Other matrix functions include Det, Eigenvalues, Eigenvectors. \ \"Chop\" gets rid of negligible imaginary components in numerical \ results.\ \>", "Subsection"], Cell[BoxData[{ \(Det[m]\), \(Eigenvalues[m]\ \ \ // \ N\)}], "Input"], Cell[BoxData[ \(\(Eigenvalues[m]\ \ \ \ // N\)\ \ \ // Chop\)], "Input"], Cell[BoxData[ \(e\ = \ \(\(Eigenvectors[m]\ \ \ \ // N\)\ // Chop\)\ // MatrixForm\)], "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Calculus", "Section"], Cell[BoxData[ \(Remove[x, y, z]\)], "Input"], Cell[CellGroupData[{ Cell["\<\ Differentiation is always possible, but integration sometimes has \ to be done numerically instead of symbolically.\ \>", "Subsection"], Cell[BoxData[ \(Clear[x, y, t]; \n\nD[\ \ Sin[x] - x^2, \ \ x]\)], "Input"], Cell[BoxData[ \(Integrate[\ \ Sin[x]\ - \ x^2, \ \ x]\)], "Input"], Cell[BoxData[ \(NIntegrate[\ \ Sin[x^2] - Tan[Sqrt[x - 3]], \ \ {x, 3.5, 5.2}]\)], "Input"], Cell[BoxData[ \(DSolve[\ \ \ \ \ \(\(y'\)'\)[t] == 3 - y[t], \ \ \ y[t], \ \ \ t]\)], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Numerical solutions to ODEs are in the form of \"interpolating \ functions\";\ \>", "Subsection"], Cell[BoxData[ \(soln\ = \ NDSolve[\ \ \ {\(y\^\[Prime]\)[t] == Sin[y[t]], \ \ y[1] == 4.2}, \ \ \ y, \ \ {t, \(-2\), 4}]\)], "Input"], Cell[BoxData[ \(Plot[\ \ \ \ y[x] /. soln[\([1]\)], \ \ \ {x, \(-2\), 4}]\)], "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Fancier Graphics", "Section"], Cell[CellGroupData[{ Cell["Several functions can be plotted simultaneously", "Subsection"], Cell[BoxData[ \(Plot[\ \ {Sin[x], \ \ 2 + 2 Cos[x/2], \ \ Sqrt[x]}, \ \ \ {x, 0, 15}, \n\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ PlotStyle -> {{Hue[0.7]}, {Dashing[{0.02}]}, \ {Hue[0]}}]\)], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["Parametric plotting is possible in 2-D and 3-D", "Subsection"], Cell[BoxData[ \(ParametricPlot[\ \ \ \ {Sin[2\ t], \ \ Cos[3\ t]}, \ \ {t, 0, 2 Pi}] \)], "Input"], Cell[BoxData[ \(ParametricPlot3D[{z, \((Sin[z] + 2)\)\ Cos[t], \((Sin[z] + 2)\)\ Sin[t]}, {t, 2, 8}, {z, 0, 15}]\)], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Standard packages have routines for many special graphing functions\ \ \>", "Subsection"], Cell[BoxData[{ \(Needs["\"]\), \(Show[Polyhedron[Icosahedron]]; \n Show[Stellate[Polyhedron[Icosahedron]]]; \)}], "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Defining variables and functions", "Section"], Cell[CellGroupData[{ Cell["Pattern matching; general vs. specific definitions", "Subsection"], Cell[BoxData[ \(Remove[f, x, a, blah]\)], "Input"], Cell[BoxData[ \(f[x] = 3\ x; \n{f[a], f[0], f[4], f[4. ], f[blah], f[x]}\)], "Input"], Cell[BoxData[ \(f[x_] = 5\ x; \n{f[a], f[0], f[4], f[4. ], f[blah], f[x]}\)], "Input"], Cell[BoxData[ \(f[x_Integer] = "\"; \n{f[a], f[0], f[4], f[4. ], f[blah], f[x]}\)], "Input"], Cell["\<\ Types of expressions include Integer Real Rational Complex \ Symbol List\ \>", "Text"] }, Closed]], Cell[CellGroupData[{ Cell["Immediate vs. delayed evaluation", "Subsection"], Cell[BoxData[{ \(a = 5; f[x_] = a\ x; \n\(g[x_] := a\ x; \)\), \({f[x], g[x]}\)}], "Input"], Cell[BoxData[ \(a = 7; {f[x], g[x]}\)], "Input"] }, Closed]], Cell[CellGroupData[{ Cell["Iterative functions; alternatives to \"Do\" and \"For\"", "Subsection"], Cell[BoxData[{ \(Do[Print[i, "\< squared is \>", i\^2], {i, 5, 9, 2}]\), \(For[i = 10, i < 17, i += 4, Print[i, "\< cubed is \>", i^3]]\)}], "Input"], Cell["\<\ While the above procedural looping constructs are provided, the \ following are often more appropriate:\ \>", "Text"], Cell[BoxData[ \(Table[\ \ i^2, \ \ {i, 1, 19, 3}]\)], "Input"], Cell[BoxData[ \(Sum[\ w^i, \ {i, 3, 11, 2}\ ]\)], "Input"], Cell[BoxData[ \(Product[\ \ x - n, \ \ {n, 0, 5}\ ]\)], "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Getting more information about Mathematica", "Section"], Cell[TextData[{ " * Local ", StyleBox["Mathematica", FontSlant->"Italic"], " help: email ", StyleBox["Bruce.Fast@Colorado.EDU", FontWeight->"Bold"], "\n * General campus computer help: email help@spot or call \ 492-1615.\n * Use the Function Browser (or Help Browser) by typing \ Alt-Shift-F, or using the pull-down Help menu.\n * Local Web page ", StyleBox["http://www.Colorado.EDU/ITS/docs/scientific/mma/\n", FontWeight->"Bold"], " * Wolfram Research Inc home page: ", StyleBox["http://www.wri.com/", FontWeight->"Bold"], "\n * Campus newsgroup ", StyleBox["cu.mathematica", FontWeight->"Bold"], ", national newsgroup ", StyleBox["comp.soft-sys.math.mathematica\n", FontWeight->"Bold"], " * Many books are available at the C.U.Bookstore, including\n\t", StyleBox["Mathematica", FontWeight->"Bold", FontSlant->"Italic"], StyleBox[": A System for Doing Mathematics by Computer", FontWeight->"Bold"], ", Stephen Wolfram,\n\t\t Addison-Wesley. Comprehensive, perhaps dense \ reading.\n\t", StyleBox["Mathematica", FontWeight->"Bold", FontSlant->"Italic"], StyleBox[": A Practical Approach", FontWeight->"Bold"], ",\tNancy Blachman, Prentice-Hall.\n\t\tReasonably comprehensive, and more \ reader-friendly.\n * To purchase ", StyleBox["Mathematica", FontSlant->"Italic"], " for your own computer under the C.U. Site License arrangement,\n \t\ contact Karin.Berglund@Colorado.EDU, 492-4175, \ http://www/ITS/TPSiteLic/math3.html\n * To generate a ", StyleBox["Mathematica", FontSlant->"Italic"], " password (for CU site license): ", StyleBox["http://www.wri.com/site/", FontWeight->"Bold"] }], "Text"] }, Closed]] }, Open ]] }, FrontEndVersion->"4.1 for X", ScreenRectangle->{{0, 1152}, {0, 900}}, WindowToolbars->{}, CellGrouping->Automatic, WindowSize->{920, 659}, WindowMargins->{{Automatic, 19}, {41, Automatic}}, PrintingPageRange->{Automatic, Automatic}, PrintingOptions->{"PaperSize"->{612, 792}, "PaperOrientation"->"Portrait", "Magnification"->1}, PrivateNotebookOptions->{"ColorPalette"->{RGBColor, 128}}, ShowCellLabel->True, ShowCellTags->False, RenderingOptions->{"ObjectDithering"->True, "RasterDithering"->False}, CharacterEncoding->"XAutomaticEncoding", Magnification->1, StyleDefinitions -> Notebook[{ Cell[CellGroupData[{ Cell["APPM 2360 Lab Style Notebook Definitions", "Subtitle", AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell[CellGroupData[{ Cell["Style Environment Names", "Section", AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell[StyleData[All, "Working"], PageWidth->WindowWidth, ScriptMinSize->9, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell[StyleData[All, "Presentation"], PageWidth->WindowWidth, ScriptMinSize->12, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontSize->16], Cell[StyleData[All, "Condensed"], PageWidth->WindowWidth, CellBracketOptions->{"Margins"->{1, 1}, "Widths"->{0, 5}}, ScriptMinSize->8, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontSize->11], Cell[StyleData[All, "Printout"], PageWidth->PaperWidth, ScriptMinSize->5, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontSize->10, PrivateFontOptions->{"FontType"->"Outline"}] }, Closed]], Cell[CellGroupData[{ Cell["Notebook Options", "Section", AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell["\<\ The options defined for the style below will be used at the \ Notebook level.\ \>", "Text", AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell[StyleData["Notebook"], Editable->True, 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, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, StyleMenuListing->None] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Headings", "Section", AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell[CellGroupData[{ Cell[StyleData["Title"], Editable->True, CellMargins->{{12, Inherited}, {20, 40}}, CellGroupingRules->{"TitleGrouping", 0}, PageBreakBelow->False, TextAlignment->Center, CounterIncrements->"Title", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, { "Subtitle", 0}, {"Subsubtitle", 0}}, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontFamily->"Helvetica", FontSize->32, FontWeight->"Bold", FontColor->RGBColor[1, 1, 0], Background->RGBColor[0, 0, 1]], Cell[StyleData["Title", "Presentation"], CellMargins->{{24, 10}, {20, 40}}, TextAlignment->Center, LineSpacing->{1, 0}, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontSize->31, FontColor->RGBColor[1, 1, 0], Background->RGBColor[0, 0, 1]], Cell[StyleData["Title", "Condensed"], CellMargins->{{8, 10}, {4, 8}}, TextAlignment->Center, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontSize->31, FontColor->RGBColor[1, 1, 0], Background->RGBColor[0, 0, 1]], Cell[StyleData["Title", "Printout"], CellMargins->{{2, 10}, {15, 30}}, TextAlignment->Center, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontSize->31, FontColor->RGBColor[1, 1, 0], Background->RGBColor[0, 0, 1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subtitle"], Editable->True, CellMargins->{{12, Inherited}, {10, 15}}, CellGroupingRules->{"TitleGrouping", 10}, PageBreakBelow->False, TextAlignment->Center, CounterIncrements->"Subtitle", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, { "Subsubtitle", 0}}, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontFamily->"Helvetica", FontSize->24, FontWeight->"Bold", FontColor->RGBColor[1, 0, 0], Background->RGBColor[0, 1, 0]], Cell[StyleData["Subtitle", "Presentation"], CellMargins->{{24, 10}, {15, 20}}, TextAlignment->Center, LineSpacing->{1, 0}, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontWeight->"Bold", FontColor->RGBColor[1, 0, 0], Background->RGBColor[0, 1, 0]], Cell[StyleData["Subtitle", "Condensed"], CellMargins->{{8, 10}, {4, 4}}, TextAlignment->Center, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontWeight->"Bold", FontColor->RGBColor[1, 0, 0], Background->RGBColor[0, 1, 0]], Cell[StyleData["Subtitle", "Printout"], CellMargins->{{2, 10}, {10, 15}}, TextAlignment->Center, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontWeight->"Bold", FontColor->RGBColor[1, 0, 0], Background->RGBColor[0, 1, 0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsubtitle"], Editable->True, CellMargins->{{12, Inherited}, {10, 20}}, CellGroupingRules->{"TitleGrouping", 20}, PageBreakBelow->False, TextAlignment->Center, CounterIncrements->"Subsubtitle", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}}, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontFamily->"Helvetica", FontSize->18, FontSlant->"Italic", FontColor->RGBColor[1, 0, 0]], Cell[StyleData["Subsubtitle", "Presentation"], CellMargins->{{24, 10}, {10, 20}}, TextAlignment->Center, LineSpacing->{1, 0}, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontSize->18, FontColor->RGBColor[1, 0, 0]], Cell[StyleData["Subsubtitle", "Condensed"], CellMargins->{{8, 10}, {8, 12}}, TextAlignment->Center, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontSize->18, FontColor->RGBColor[1, 0, 0]], Cell[StyleData["Subsubtitle", "Printout"], CellMargins->{{2, 10}, {8, 10}}, TextAlignment->Center, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontSize->18, FontColor->RGBColor[1, 0, 0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Section"], Editable->True, CellDingbat->"\[FilledSquare]", CellMargins->{{25, Inherited}, {8, 24}}, CellGroupingRules->{"SectionGrouping", 30}, PageBreakBelow->False, CounterIncrements->"Section", CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}}, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontFamily->"Helvetica", FontSize->24, FontWeight->"Plain", FontColor->RGBColor[0, 0, 1], Background->RGBColor[0, 1, 0]], Cell[StyleData["Section", "Presentation"], CellMargins->{{40, 10}, {11, 32}}, LineSpacing->{1, 0}, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontSize->24, FontWeight->"Plain", FontColor->RGBColor[0, 0, 1], Background->RGBColor[0, 1, 0]], Cell[StyleData["Section", "Condensed"], CellMargins->{{18, Inherited}, {6, 12}}, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontSize->24, FontWeight->"Plain", FontColor->RGBColor[0, 0, 1], Background->RGBColor[0, 1, 0]], Cell[StyleData["Section", "Printout"], CellMargins->{{13, 0}, {7, 22}}, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontSize->24, FontWeight->"Plain", FontColor->RGBColor[0, 0, 1], Background->RGBColor[0, 1, 0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsection"], Editable->True, CellFrame->True, CellDingbat->"\[GrayCircle]", CellMargins->{{22, Inherited}, {8, 20}}, CellGroupingRules->{"SectionGrouping", 40}, PageBreakBelow->False, TextAlignment->Center, CounterIncrements->"Subsection", CounterAssignments->{{"Subsubsection", 0}}, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontSize->24, FontWeight->"Bold", FontColor->GrayLevel[0], Background->GrayLevel[0.849989]], Cell[StyleData["Subsection", "Presentation"], CellFrame->True, CellDingbat->"\[GrayCircle]", CellMargins->{{36, 10}, {11, 32}}, TextAlignment->Center, LineSpacing->{1, 0}, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontSize->24, Background->GrayLevel[0.849989]], Cell[StyleData["Subsection", "Condensed"], CellFrame->True, CellDingbat->"\[GrayCircle]", CellMargins->{{16, Inherited}, {6, 12}}, TextAlignment->Center, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontSize->24, Background->GrayLevel[0.849989]], Cell[StyleData["Subsection", "Printout"], CellFrame->True, CellDingbat->"\[GrayCircle]", CellMargins->{{9, 0}, {7, 22}}, TextAlignment->Center, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontSize->24, Background->GrayLevel[0.849989]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsubsection"], Editable->True, CellDingbat->"\[FilledSmallSquare]", CellMargins->{{22, Inherited}, {8, 18}}, CellGroupingRules->{"SectionGrouping", 50}, PageBreakBelow->False, CounterIncrements->"Subsubsection", AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontSize->18, FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]], Cell[StyleData["Subsubsection", "Presentation"], CellMargins->{{34, 10}, {11, 26}}, LineSpacing->{1, 0}, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontSize->18, FontColor->RGBColor[0, 0, 1]], Cell[StyleData["Subsubsection", "Condensed"], CellMargins->{{17, Inherited}, {6, 12}}, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontSize->18, FontColor->RGBColor[0, 0, 1]], Cell[StyleData["Subsubsection", "Printout"], CellMargins->{{9, 0}, {7, 14}}, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontSize->18, FontColor->RGBColor[0, 0, 1]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Body Text", "Section", AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell[CellGroupData[{ Cell[StyleData["Text"], Editable->True, CellMargins->{{12, 10}, {7, 7}}, LineSpacing->{1, 3}, CounterIncrements->"Text", AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontSize->18], Cell[StyleData["Text", "Presentation"], CellMargins->{{24, 10}, {10, 10}}, LineSpacing->{1, 5}, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontSize->14], Cell[StyleData["Text", "Condensed"], CellMargins->{{8, 10}, {6, 6}}, LineSpacing->{1, 1}, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontSize->14], Cell[StyleData["Text", "Printout"], CellMargins->{{2, 2}, {6, 6}}, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontSize->14] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SmallText"], Editable->True, CellMargins->{{12, 10}, {6, 6}}, TextAlignment->Right, LineSpacing->{1, 3}, CounterIncrements->"SmallText", AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontFamily->"Helvetica", FontSize->16], Cell[StyleData["SmallText", "Presentation"], CellMargins->{{24, 10}, {8, 8}}, TextAlignment->Right, LineSpacing->{1, 5}, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontSize->12], Cell[StyleData["SmallText", "Condensed"], CellMargins->{{8, 10}, {5, 5}}, TextAlignment->Right, LineSpacing->{1, 2}, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontSize->12], Cell[StyleData["SmallText", "Printout"], CellMargins->{{2, 2}, {5, 5}}, TextAlignment->Right, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontSize->12] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Input/Output", "Section", AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}], 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", AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell[CellGroupData[{ Cell[StyleData["Input"], Editable->True, CellMargins->{{45, 10}, {5, 7}}, Evaluatable->True, CellGroupingRules->"InputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, CellLabelMargins->{{11, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultInputFormatType, AutoItalicWords->{}, FormatType->InputForm, ShowStringCharacters->True, NumberMarks->True, CounterIncrements->"Input", AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontFamily->"Courier", FontSize->18, FontWeight->"Bold", Background->RGBColor[1, 1, 0]], Cell[StyleData["Input", "Presentation"], CellMargins->{{72, Inherited}, {8, 10}}, LineSpacing->{1, 0}, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontFamily->"Courier", FontSize->18, Background->RGBColor[1, 1, 0]], Cell[StyleData["Input", "Condensed"], CellMargins->{{40, 10}, {2, 3}}, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontFamily->"Courier", FontSize->18, Background->RGBColor[1, 1, 0]], Cell[StyleData["Input", "Printout"], CellMargins->{{39, 0}, {4, 6}}, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontFamily->"Courier", FontSize->18, Background->RGBColor[1, 1, 0]] }, Closed]], Cell[StyleData["InputOnly"], Editable->True, Evaluatable->True, CellGroupingRules->"InputGrouping", CellHorizontalScrolling->True, DefaultFormatType->DefaultInputFormatType, AutoItalicWords->{}, FormatType->InputForm, ShowStringCharacters->True, NumberMarks->True, CounterIncrements->"Input", AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, StyleMenuListing->None, FontFamily->"Courier", FontSize->18, FontWeight->"Bold", Background->RGBColor[1, 1, 0]], Cell[CellGroupData[{ Cell[StyleData["Output"], Editable->True, CellMargins->{{47, 10}, {7, 5}}, CellEditDuplicate->True, CellGroupingRules->"OutputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, CellLabelMargins->{{11, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, TextAlignment->Center, AutoItalicWords->{}, FormatType->InputForm, CounterIncrements->"Output", AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontSize->18, Background->RGBColor[0, 1, 1]], Cell[StyleData["Output", "Presentation"], CellMargins->{{72, Inherited}, {10, 8}}, TextAlignment->Center, LineSpacing->{1, 0}, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontSize->18, Background->RGBColor[0, 1, 1]], Cell[StyleData["Output", "Condensed"], CellMargins->{{41, Inherited}, {3, 2}}, TextAlignment->Center, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontSize->18, Background->RGBColor[0, 1, 1]], Cell[StyleData["Output", "Printout"], CellMargins->{{39, 0}, {6, 4}}, TextAlignment->Center, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontSize->18, Background->RGBColor[0, 1, 1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Message"], Editable->True, CellMargins->{{45, Inherited}, {Inherited, Inherited}}, CellGroupingRules->"OutputGrouping", PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, CellLabelMargins->{{11, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, AutoItalicWords->{}, FormatType->InputForm, CounterIncrements->"Message", AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, StyleMenuListing->None, FontSize->16, FontColor->RGBColor[1, 0, 0]], Cell[StyleData["Message", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, LineSpacing->{1, 0}, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontSize->16, FontColor->RGBColor[1, 0, 0]], Cell[StyleData["Message", "Condensed"], CellMargins->{{41, Inherited}, {Inherited, Inherited}}, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontSize->16, FontColor->RGBColor[1, 0, 0]], Cell[StyleData["Message", "Printout"], CellMargins->{{39, Inherited}, {Inherited, Inherited}}, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontSize->16, FontColor->RGBColor[1, 0, 0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Print"], Editable->True, CellMargins->{{45, Inherited}, {Inherited, Inherited}}, CellGroupingRules->"OutputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, CellLabelMargins->{{11, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, AutoItalicWords->{}, FormatType->InputForm, CounterIncrements->"Print", AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, StyleMenuListing->None, FontSize->16, FontColor->RGBColor[0, 0, 1]], Cell[StyleData["Print", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, LineSpacing->{1, 0}, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontSize->16, FontColor->RGBColor[0, 0, 1]], Cell[StyleData["Print", "Condensed"], CellMargins->{{41, Inherited}, {Inherited, Inherited}}, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontSize->16, FontColor->RGBColor[0, 0, 1]], Cell[StyleData["Print", "Printout"], CellMargins->{{39, Inherited}, {Inherited, Inherited}}, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontSize->16, FontColor->RGBColor[0, 0, 1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Graphics"], Editable->True, CellMargins->{{4, Inherited}, {Inherited, Inherited}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, DefaultFormatType->DefaultOutputFormatType, TextAlignment->Center, FormatType->InputForm, CounterIncrements->"Graphics", AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, 0}}, StyleMenuListing->None, FontSize->16], Cell[StyleData["Graphics", "Presentation"], TextAlignment->Center, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, 0}}, FontSize->16], Cell[StyleData["Graphics", "Condensed"], TextAlignment->Center, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, 0}}, FontSize->16], Cell[StyleData["Graphics", "Printout"], TextAlignment->Center, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, 0}}, FontSize->16] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["CellLabel"], Editable->True, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->12, FontColor->RGBColor[0, 0, 1]], Cell[StyleData["CellLabel", "Presentation"], AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontSize->12], Cell[StyleData["CellLabel", "Condensed"], AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontSize->12], Cell[StyleData["CellLabel", "Printout"], AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontFamily->"Courier", FontSize->12, FontSlant->"Italic", FontColor->GrayLevel[0]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Formulas and Programming", "Section", AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell[CellGroupData[{ Cell[StyleData["InlineFormula"], Editable->True, CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, ScriptLevel->1, SingleLetterItalics->True, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell[StyleData["InlineFormula", "Presentation"], CellMargins->{{24, 10}, {10, 10}}, LineSpacing->{1, 5}, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell[StyleData["InlineFormula", "Condensed"], CellMargins->{{8, 10}, {6, 6}}, LineSpacing->{1, 1}, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell[StyleData["InlineFormula", "Printout"], CellMargins->{{2, 0}, {6, 6}}, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DisplayFormula"], Editable->True, CellMargins->{{42, Inherited}, {Inherited, Inherited}}, CellHorizontalScrolling->True, ScriptLevel->0, SingleLetterItalics->True, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, StyleMenuListing->None, UnderoverscriptBoxOptions->{LimitsPositioning->True}], Cell[StyleData["DisplayFormula", "Presentation"], LineSpacing->{1, 5}, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell[StyleData["DisplayFormula", "Condensed"], LineSpacing->{1, 1}, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell[StyleData["DisplayFormula", "Printout"], AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Headers and Footers", "Section", AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell[StyleData["Header"], Editable->True, CellMargins->{{0, 0}, {4, 1}}, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, StyleMenuListing->None, FontSize->10, FontSlant->"Italic"], Cell[StyleData["Footer"], Editable->True, CellMargins->{{0, 0}, {0, 4}}, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, StyleMenuListing->None, FontSize->9, FontSlant->"Italic"], Cell[StyleData["PageNumber"], Editable->True, CellMargins->{{0, 0}, {4, 1}}, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, StyleMenuListing->None, FontFamily->"Times", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell["Palette Styles", "Section", AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell["\<\ The cells below define styles that define standard \ ButtonFunctions, for use in palette buttons.\ \>", "Text", AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell[StyleData["Paste"], Editable->True, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, After]}]&)}], Cell[StyleData["Evaluate"], Editable->True, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, All], SelectionEvaluate[ FrontEnd`InputNotebook[ ], All]}]&)}], Cell[StyleData["EvaluateCell"], Editable->True, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, 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"], Editable->True, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, 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"], Editable->True, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`SelectionCreateCell[ FrontEnd`InputNotebook[ ], All], FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, All], FrontEnd`SelectionEvaluateCreateCell[ FrontEnd`InputNotebook[ ], All]}]&)}] }, Closed]], Cell[CellGroupData[{ Cell["Hyperlink Styles", "Section", AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}], 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", AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell[CellGroupData[{ Cell[StyleData["Hyperlink"], Editable->True, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, 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"], AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell[StyleData["Hyperlink", "Condensed"], AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell[StyleData["Hyperlink", "Printout"], AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell["\<\ The following styles are for linking automatically to the on-line \ help system.\ \>", "Text", AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell[CellGroupData[{ Cell[StyleData["MainBookLink"], Editable->True, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, 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"], AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell[StyleData["MainBookLink", "Condensed"], AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell[StyleData["MainBookLink", "Printout"], AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["AddOnsLink"], Editable->True, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, 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"], AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell[StyleData["AddOnsLink", "Condensed"], AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell[StyleData["AddOnLink", "Printout"], AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["RefGuideLink"], Editable->True, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, 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"], AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell[StyleData["RefGuideLink", "Condensed"], AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell[StyleData["RefGuideLink", "Printout"], AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["GettingStartedLink"], Editable->True, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, 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"], AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell[StyleData["GettingStartedLink", "Condensed"], AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell[StyleData["GettingStartedLink", "Printout"], AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["OtherInformationLink"], Editable->True, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, 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"], AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell[StyleData["OtherInformationLink", "Condensed"], AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell[StyleData["OtherInformationLink", "Printout"], AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Placeholder Styles", "Section", AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell["\<\ The cells below define styles useful for making placeholder \ objects in palette templates.\ \>", "Text", AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell[CellGroupData[{ Cell[StyleData["Placeholder"], Editable->True, Selectable->False, StyleBoxAutoDelete->True, Placeholder->True, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, StyleMenuListing->None], Cell[StyleData["Placeholder", "Presentation"], Editable->True, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell[StyleData["Placeholder", "Condensed"], Editable->True, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell[StyleData["Placeholder", "Printout"], Editable->True, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SelectionPlaceholder"], Editable->True, Selectable->False, StyleBoxAutoDelete->True, Placeholder->PrimaryPlaceholder, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, StyleMenuListing->None, DrawHighlighted->True], Cell[StyleData["SelectionPlaceholder", "Presentation"], Editable->True, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell[StyleData["SelectionPlaceholder", "Condensed"], Editable->True, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell[StyleData["SelectionPlaceholder", "Printout"], Editable->True, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["FormatType Styles", "Section", AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell["\<\ The cells below define styles that are mixed in with the styles \ of most cells. If a cell's FormatType matches the name of one of the styles \ defined below, then that style is applied between the cell's style and its \ own options.\ \>", "Text", AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell[StyleData["CellExpression"], Editable->True, PageWidth->Infinity, CellMargins->{{6, Inherited}, {Inherited, Inherited}}, ShowCellLabel->False, ShowSpecialCharacters->False, AllowInlineCells->False, AutoItalicWords->{}, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, StyleMenuListing->None, FontFamily->"Courier", Background->GrayLevel[1]], Cell[StyleData["InputForm"], Editable->True, AllowInlineCells->False, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, StyleMenuListing->None, FontFamily->"Courier"], Cell[StyleData["OutputForm"], Editable->True, PageWidth->Infinity, TextAlignment->Left, LineSpacing->{1, -5}, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, StyleMenuListing->None, FontFamily->"Courier"], Cell[StyleData["StandardForm"], Editable->True, LineSpacing->{1.25, 0}, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, StyleMenuListing->None, FontFamily->"Courier"], Cell[StyleData["TraditionalForm"], Editable->True, LineSpacing->{1.25, 0}, SingleLetterItalics->True, TraditionalFunctionNotation->True, DelimiterMatching->None, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, StyleMenuListing->None], Cell["\<\ The style defined below is mixed in to any cell that is in an \ inline cell within another.\ \>", "Text", AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}], Cell[StyleData["InlineCell"], Editable->True, TextAlignment->Left, ScriptLevel->1, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, StyleMenuListing->None], Cell[StyleData["InlineCellEditing"], Editable->True, AspectRatioFixed->True, ImageSize->{400, 300}, ImageMargins->{{50, Inherited}, {Inherited, Inherited}}, 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[1727, 52, 41, 0, 121, "Title"], Cell[CellGroupData[{ Cell[1793, 56, 33, 0, 77, "Section"], Cell[CellGroupData[{ Cell[1851, 60, 50, 0, 72, "Subsection"], Cell[1904, 62, 304, 8, 163, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[2245, 75, 63, 0, 56, "Subsection"], Cell[2311, 77, 85, 2, 71, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[2433, 84, 84, 1, 56, "Subsection"], Cell[2520, 87, 118, 2, 71, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[2675, 94, 64, 0, 56, "Subsection"], Cell[2742, 96, 93, 2, 71, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[2872, 103, 85, 1, 56, "Subsection"], Cell[2960, 106, 70, 1, 48, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[3067, 112, 66, 0, 56, "Subsection"], Cell[3136, 114, 124, 2, 94, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[3297, 121, 75, 0, 56, "Subsection"], Cell[3375, 123, 117, 2, 71, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[3529, 130, 117, 3, 84, "Subsection"], Cell[3649, 135, 97, 2, 71, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[3783, 142, 141, 3, 84, "Subsection"], Cell[3927, 147, 117, 2, 48, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[4081, 154, 68, 0, 56, "Subsection"], Cell[4152, 156, 295, 6, 209, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[4496, 168, 34, 0, 57, "Section"], Cell[CellGroupData[{ Cell[4555, 172, 247, 5, 128, "Subsection"], Cell[4805, 179, 78, 1, 48, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[4920, 185, 124, 3, 100, "Subsection"], Cell[5047, 190, 42, 1, 48, "Input"], Cell[5092, 193, 156, 3, 71, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[5285, 201, 53, 0, 72, "Subsection"], Cell[5341, 203, 121, 2, 48, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[5499, 210, 117, 3, 72, "Subsection"], Cell[5619, 215, 76, 2, 71, "Input"], Cell[5698, 219, 126, 3, 37, "Text"], Cell[5827, 224, 57, 1, 48, "Input"], Cell[5887, 227, 99, 3, 37, "Text"], Cell[5989, 232, 69, 1, 48, "Input"], Cell[6061, 235, 99, 3, 37, "Text"], Cell[6163, 240, 40, 1, 48, "Input"], Cell[6206, 243, 45, 1, 48, "Input"], Cell[6254, 246, 72, 0, 37, "Text"], Cell[6329, 248, 102, 2, 71, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[6468, 255, 110, 3, 100, "Subsection"], Cell[6581, 260, 45, 1, 48, "Input"], Cell[6629, 263, 175, 4, 94, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[6853, 273, 45, 0, 57, "Section"], Cell[CellGroupData[{ Cell[6923, 277, 58, 0, 72, "Subsection"], Cell[6984, 279, 58, 1, 48, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[7079, 285, 59, 0, 72, "Subsection"], Cell[7141, 287, 83, 1, 48, "Input"], Cell[7227, 290, 138, 2, 71, "Input"], Cell[7368, 294, 118, 2, 71, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[7523, 301, 83, 1, 72, "Subsection"], Cell[CellGroupData[{ Cell[7631, 306, 62, 0, 47, "Subsubsection"], Cell[7696, 308, 131, 2, 71, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[7864, 315, 45, 0, 47, "Subsubsection"], Cell[7912, 317, 169, 3, 71, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[8130, 326, 60, 0, 56, "Subsection"], Cell[8193, 328, 313, 9, 152, "Text"], Cell[8509, 339, 207, 4, 107, "Input"], Cell[8719, 345, 93, 3, 37, "Text"], Cell[8815, 350, 421, 9, 140, "Input"], Cell[9239, 361, 77, 0, 37, "Text"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[9365, 367, 33, 0, 57, "Section"], Cell[CellGroupData[{ Cell[9423, 371, 142, 3, 100, "Subsection"], Cell[9568, 376, 63, 1, 48, "Input"], Cell[9634, 379, 127, 2, 94, "Input"], Cell[9764, 383, 47, 1, 48, "Input"], Cell[9814, 386, 69, 1, 71, "Input"], Cell[9886, 389, 42, 1, 48, "Input"], Cell[9931, 392, 52, 1, 48, "Input"], Cell[9986, 395, 82, 1, 48, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[10105, 401, 135, 3, 100, "Subsection"], Cell[10243, 406, 129, 2, 94, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[10409, 413, 174, 4, 100, "Subsection"], Cell[10586, 419, 79, 2, 71, "Input"], Cell[10668, 423, 78, 1, 48, "Input"], Cell[10749, 426, 113, 3, 48, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[10911, 435, 27, 0, 57, "Section"], Cell[10941, 437, 48, 1, 48, "Input"], Cell[CellGroupData[{ Cell[11014, 442, 145, 3, 100, "Subsection"], Cell[11162, 447, 79, 1, 94, "Input"], Cell[11244, 450, 71, 1, 48, "Input"], Cell[11318, 453, 98, 2, 48, "Input"], Cell[11419, 457, 101, 2, 48, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[11557, 464, 107, 3, 72, "Subsection"], Cell[11667, 469, 154, 3, 49, "Input"], Cell[11824, 474, 90, 1, 48, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[11963, 481, 35, 0, 57, "Section"], Cell[CellGroupData[{ Cell[12023, 485, 69, 0, 72, "Subsection"], Cell[12095, 487, 207, 3, 71, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[12339, 495, 68, 0, 72, "Subsection"], Cell[12410, 497, 109, 2, 48, "Input"], Cell[12522, 501, 138, 2, 71, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[12697, 508, 99, 3, 72, "Subsection"], Cell[12799, 513, 157, 3, 94, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[13005, 522, 51, 0, 57, "Section"], Cell[CellGroupData[{ Cell[13081, 526, 72, 0, 72, "Subsection"], Cell[13156, 528, 54, 1, 48, "Input"], Cell[13213, 531, 89, 1, 71, "Input"], Cell[13305, 534, 90, 1, 71, "Input"], Cell[13398, 537, 113, 2, 71, "Input"], Cell[13514, 541, 108, 3, 37, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[13659, 549, 54, 0, 72, "Subsection"], Cell[13716, 551, 100, 2, 94, "Input"], Cell[13819, 555, 52, 1, 48, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[13908, 561, 77, 0, 72, "Subsection"], Cell[13988, 563, 161, 3, 79, "Input"], Cell[14152, 568, 127, 3, 37, "Text"], Cell[14282, 573, 66, 1, 48, "Input"], Cell[14351, 576, 62, 1, 48, "Input"], Cell[14416, 579, 68, 1, 48, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[14533, 586, 61, 0, 57, "Section"], Cell[14597, 588, 1780, 46, 336, "Text"] }, Closed]] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)