(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 5.2' Mathematica-Compatible Notebook This notebook can be used with any Mathematica-compatible application, such as Mathematica, MathReader or Publicon. The data for the notebook starts with the line containing stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. *******************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 29579, 940]*) (*NotebookOutlinePosition[ 109586, 3682]*) (* CellTagsIndexPosition[ 109542, 3678]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["Le mod\[EGrave]le de Kepler", "Title", FormatType->TextForm], Cell["\<\ Pour comparer les distances des plan\[EGrave]tes au Soleil fournies \ par le mod\[EGrave]le de Kepler \[AGrave] la distance Terre-Soleil, nous \ choisissons de repr\[EAcute]senter l'orbite de la Terre par une \ sph\[EGrave]re de rayon unit\[EAcute] :\ \>", "Text", FormatType->TextForm], Cell[BoxData[{ \(Needs["\"]\), "\n", \(Needs["\"]\), "\[IndentingNewLine]", \(longueurArete[poly_] := Sqrt[Dot[\((\(Vertices[poly]\)[\([2]\)] - \(Vertices[ poly]\)[\([1]\)])\), \((\(Vertices[ poly]\)[\([2]\)] - \(Vertices[ poly]\)[\([1]\)])\)]]\), "\[IndentingNewLine]", \(\(Show[Graphics3D[Drop[Sphere[], {196, 247}]], Boxed -> False, PlotRange \[Rule] {{\(-1\), 1}, {\(-1\), 1}, {\(-1\), 1}}];\)\)}], "Input"], Cell[TextData[{ "Cette ", StyleBox["sph\[EGrave]re de rayon 1", FontColor->RGBColor[0, 0, 1]], " doit \[EHat]tre circonscrite \[AGrave] l'icosa\[EGrave]dre \ associ\[EAcute] \[AGrave] la Terre. Par d\[EAcute]faut, l'icosa\[EGrave]dre a \ une ar\[EHat]te dont la longueur vaut :" }], "Text", FormatType->TextForm], Cell[CellGroupData[{ Cell[BoxData[{ \(longueurArete[Icosahedron]\), "\[IndentingNewLine]", \(% // N\)}], "Input"], Cell[BoxData[ \(\@\(2\/5\ \((5 - \@5)\) + \((\@\(1\/2 - 1\/\(2\ \@5\)\) - \@\(5\/2 - \ \@5\/2\))\)\^2\)\)], "Output"], Cell[BoxData[ \(1.2360679774997898`\)], "Output"] }, Open ]], Cell["\<\ En divisant sa taille par un facteur \[EAcute]gal \[AGrave] ce \ nombre, nous obtenons un icosa\[EGrave]dre dont l'ar\[EHat]te vaut 1 et pour \ lequel la sph\[EGrave]re circonscrite aurait un rayon de :\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[{ \(CircumscribedRadius[Icosahedron]\), "\[IndentingNewLine]", \(% // N\)}], "Input"], Cell[BoxData[ \(1\/4\ \@\(10 + 2\ \@5\)\)], "Output"], Cell[BoxData[ \(0.9510565162951535`\)], "Output"] }, Open ]], Cell["\<\ Pour obtenir un icosa\[EGrave]dre circonscrit par une \ sph\[EGrave]re de rayon unit\[EAcute], nous devons donc modifier la taille de \ l'icosa\[EGrave]dre par d\[EAcute]faut de la mani\[EGrave]re suivante :\ \>", \ "Text", FormatType->TextForm], Cell[CellGroupData[{ Cell[BoxData[{ \(1/\((CircumscribedRadius[Icosahedron])\)\), "\[IndentingNewLine]", \(% // N\)}], "Input"], Cell[BoxData[ \(4\/\@\(10 + 2\ \@5\)\)], "Output"], Cell[BoxData[ \(1.0514622242382672`\)], "Output"] }, Open ]], Cell[BoxData[ \(\(Show[ Graphics3D[{Icosahedron[{0, 0, 0}, 1/\((longueurArete[Icosahedron]* CircumscribedRadius[Icosahedron])\)], Drop[Sphere[], {196, 247}]}], Boxed -> False, PlotRange \[Rule] {{\(-1\), 1}, {\(-1\), 1}, {\(-1\), 1}}];\)\)], "Input"], Cell[CellGroupData[{ Cell["Plan\[EGrave]tes int\[EAcute]rieures", "Subsubsection", FormatType->TextForm, FontFamily->"Verdana", FontWeight->"Plain"], Cell["\<\ Nous devons maintenant inscrire une sph\[EGrave]re dans cet icosa\ \[EGrave]dre pour obtenir l'orbite de V\[EAcute]nus. Si l'ar\[EHat]te de \ l'icosa\[EGrave]dre valait 1, le rayon de cette sph\[EGrave]re vaudrait \ :\ \>", "Text", FormatType->TextForm], Cell[CellGroupData[{ Cell[BoxData[{ \(InscribedRadius[Icosahedron]\), "\[IndentingNewLine]", \(% // N\)}], "Input"], Cell[BoxData[ \(1\/12\ \@\(42 + 18\ \@5\)\)], "Output"], Cell[BoxData[ \(0.7557613140761706`\)], "Output"] }, Open ]], Cell["Or l'ar\[EHat]te unit\[EAcute] a \[EAcute]t\[EAcute] multipli\[EAcute]e \ par :", "Text", FormatType->TextForm], Cell[CellGroupData[{ Cell[BoxData[{ \(1/\((CircumscribedRadius[Icosahedron])\)\), "\[IndentingNewLine]", \(% // N\)}], "Input"], Cell[BoxData[ \(4\/\@\(10 + 2\ \@5\)\)], "Output"], Cell[BoxData[ \(1.0514622242382672`\)], "Output"] }, Open ]], Cell[TextData[{ "Le ", StyleBox["rayon de la sph\[EGrave]re inscrite dans l'icosa\[EGrave]dre", FontColor->RGBColor[0, 0, 1]], " (orbite de V\[EAcute]nus) vaut donc :" }], "Text", FormatType->TextForm], Cell[CellGroupData[{ Cell[BoxData[{ \(InscribedRadius[Icosahedron]/CircumscribedRadius[Icosahedron] // Simplify\), "\[IndentingNewLine]", \(% // N\)}], "Input"], Cell[BoxData[ \(\@\(\(7 + 3\ \@5\)\/\(15 + 3\ \@5\)\)\)], "Output"], Cell[BoxData[ \(0.7946544722917661`\)], "Output"] }, Open ]], Cell[BoxData[ \(\(Show[ Graphics3D[{Drop[ Sphere[InscribedRadius[Icosahedron]/ CircumscribedRadius[Icosahedron], 20, 15], {196, 247}], Drop[Icosahedron[{0, 0, 0}, 1/\((longueurArete[Icosahedron]* CircumscribedRadius[Icosahedron])\)], {4, 5}], Drop[Sphere[], {196, 247}]}], Boxed -> False, PlotRange \[Rule] {{\(-1\), 1}, {\(-1\), 1}, {\(-1\), 1}}];\)\)], "Input"], Cell["\<\ Pour obtenir l'octa\[EGrave]dre inscrit dans cette sph\[EGrave]re, \ nous devons comparer le rayon de cette derni\[EGrave]re \[AGrave] celui de la \ sph\[EGrave]re circonscrite \[AGrave] un octa\[EGrave]dre dont l'ar\[EHat]te \ vaudrait 1\ \>", "Text", FormatType->TextForm], Cell[CellGroupData[{ Cell[BoxData[{ \(CircumscribedRadius[Octahedron]\), "\[IndentingNewLine]", \(% // N\)}], "Input"], Cell[BoxData[ \(1\/\@2\)], "Output"], Cell[BoxData[ \(0.7071067811865475`\)], "Output"] }, Open ]], Cell["\<\ Les dimensions de l'octa\[EGrave]dre par d\[EAcute]faut doivent \ donc \[EHat]tre multipli\[EAcute]es par :\ \>", "Text", FormatType->TextForm], Cell[CellGroupData[{ Cell[BoxData[{ \(CircumscribedRadius[Octahedron]* InscribedRadius[Icosahedron]/ CircumscribedRadius[Icosahedron]\), "\[IndentingNewLine]", \(% // N\)}], "Input"], Cell[BoxData[ \(1\/3\ \@\(\(42 + 18\ \@5\)\/\(2\ \((10 + 2\ \@5)\)\)\)\)], "Output"], Cell[BoxData[ \(0.5619055660577252`\)], "Output"] }, Open ]], Cell[BoxData[ \(\(Show[ Graphics3D[{Drop[ Octahedron[{0, 0, 0}, CircumscribedRadius[Octahedron]* InscribedRadius[Icosahedron]/ CircumscribedRadius[Icosahedron]], {4}], Drop[Sphere[ InscribedRadius[Icosahedron]/ CircumscribedRadius[Icosahedron], 20, 15], {196, 247}], Drop[Icosahedron[{0, 0, 0}, 1/\((longueurArete[Icosahedron]* CircumscribedRadius[Icosahedron])\)], {4, 5}], Drop[Sphere[], {196, 247}]}], Boxed -> False, PlotRange \[Rule] {{\(-1\), 1}, {\(-1\), 1}, {\(-1\), 1}}];\)\)], "Input"], Cell["\<\ La sph\[EGrave]re inscrite dans cet octa\[EGrave]dre fournit \ l'orbite de Mercure. Si l'ar\[EHat]te de l'octa\[EGrave]dre valait 1, le \ rayon de cette sph\[EGrave]re vaudrait :\ \>", "Text", FormatType->TextForm], Cell[CellGroupData[{ Cell[BoxData[{ \(InscribedRadius[Octahedron]\), "\[IndentingNewLine]", \(% // N\)}], "Input"], Cell[BoxData[ \(1\/\@6\)], "Output"], Cell[BoxData[ \(0.4082482904638631`\)], "Output"] }, Open ]], Cell["Or l'ar\[EHat]te de l'oct\[EGrave]dre par d\[EAcute]faut vaut :", "Text", FormatType->TextForm], Cell[CellGroupData[{ Cell[BoxData[ \(longueurArete[Octahedron]\)], "Input"], Cell[BoxData[ \(2\)], "Output"] }, Open ]], Cell["et elle a \[EAcute]t\[EAcute] multipli\[EAcute]e par :", "Text", FormatType->TextForm], Cell[CellGroupData[{ Cell[BoxData[{ \(InscribedRadius[Octahedron]*CircumscribedRadius[Octahedron]* InscribedRadius[Icosahedron]/ CircumscribedRadius[Icosahedron]\), "\[IndentingNewLine]", \(% // N\)}], "Input"], Cell[BoxData[ \(1\/6\ \@\(\(42 + 18\ \@5\)\/\(3\ \((10 + 2\ \@5)\)\)\)\)], "Output"], Cell[BoxData[ \(0.22939698674519554`\)], "Output"] }, Open ]], Cell[TextData[{ "Le ", StyleBox["rayon de la sph\[EGrave]re inscrite dans l'octa\[EGrave]dre", FontColor->RGBColor[0, 0, 1]], " (orbite de Mercure) vaut donc :" }], "Text", FormatType->TextForm], Cell[CellGroupData[{ Cell[BoxData[{ \(2*InscribedRadius[Octahedron]*CircumscribedRadius[Octahedron]* InscribedRadius[Icosahedron]/CircumscribedRadius[Icosahedron] // Simplify\), "\[IndentingNewLine]", \(% // N\)}], "Input"], Cell[BoxData[ \(1\/3\ \@\(\(7 + 3\ \@5\)\/\(5 + \@5\)\)\)], "Output"], Cell[BoxData[ \(0.4587939734903912`\)], "Output"] }, Open ]], Cell[BoxData[ \(\(Show[ Graphics3D[{Drop[ Sphere[2*InscribedRadius[Octahedron]* CircumscribedRadius[Octahedron]* InscribedRadius[Icosahedron]/ CircumscribedRadius[Icosahedron], 20, 15], {196, 247}], Drop[Octahedron[{0, 0, 0}, CircumscribedRadius[Octahedron]* InscribedRadius[Icosahedron]/ CircumscribedRadius[Icosahedron]], {4}], Drop[Octahedron[{0, 0, 0}, CircumscribedRadius[Octahedron]* InscribedRadius[Icosahedron]/ CircumscribedRadius[Icosahedron]], {4}], Drop[Sphere[ InscribedRadius[Icosahedron]/ CircumscribedRadius[Icosahedron], 20, 15], {196, 247}], Drop[Icosahedron[{0, 0, 0}, 1/\((longueurArete[Icosahedron]* CircumscribedRadius[Icosahedron])\)], {4, 5}], Drop[Sphere[], {196, 247}]}], Boxed -> False, PlotRange \[Rule] {{\(-1\), 1}, {\(-1\), 1}, {\(-1\), 1}}];\)\)], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["Plan\[EGrave]tes ext\[EAcute]rieures", "Subsubsection", FormatType->TextForm, FontFamily->"Verdana", FontWeight->"Plain"], Cell["\<\ L'orbite de Mars est donn\[EAcute]e par la sph\[EGrave]re \ circonscrite au dod\[EAcute]ca\[EGrave]dre, lui-m\[EHat]me circonscrit \ \[AGrave] la sph\[EGrave]re de rayon unit\[EAcute]. Si l'ar\[EHat]te de ce \ dod\[EAcute]ca\[EGrave]dre valait 1, le rayon de la sph\[EGrave]re inscrite \ dans le dod\[EAcute]ca\[EGrave]dre vaudrait :\ \>", "Text", FormatType->TextForm], Cell[CellGroupData[{ Cell[BoxData[{ \(InscribedRadius[Dodecahedron]\), "\[IndentingNewLine]", \(% // N\)}], "Input"], Cell[BoxData[ \(1\/20\ \@\(250 + 110\ \@5\)\)], "Output"], Cell[BoxData[ \(1.1135163644116068`\)], "Output"] }, Open ]], Cell["Mais l'ar\[EHat]te du dod\[EAcute]ca\[EGrave]dre vaut :", "Text", FormatType->TextForm], Cell[CellGroupData[{ Cell[BoxData[{ \(longueurArete[Dodecahedron] // Simplify\), "\[IndentingNewLine]", \(% // N\), "\[IndentingNewLine]", \(\)}], "Input"], Cell[BoxData[ \(\@\(2\/5\ \((30 - 13\ \@5 + \@\(5\ \((9 - 4\ \@5)\)\))\)\)\)], "Output"], Cell[BoxData[ \(0.7639320225002094`\)], "Output"] }, Open ]], Cell["\<\ Et nous voulons que le rayon de la sph\[EGrave]re inscrite vaille \ 1. Nous devons donc modifier la taille du dod\[EAcute]ca\[EGrave]dre :\ \>", \ "Text", FormatType->TextForm], Cell[BoxData[ \(\(Show[ Graphics3D[{Drop[ Dodecahedron[{0, 0, 0}, 1/\((InscribedRadius[Dodecahedron]* longueurArete[Dodecahedron])\)], {6}], Sphere[]}], Boxed -> False];\)\)], "Input"], Cell["\<\ La sph\[EGrave]re circonscrite \[AGrave] un \ dod\[EAcute]ca\[EGrave]dre d'ar\[EHat]te unit\[EAcute] vaudrait :\ \>", "Text",\ FormatType->TextForm], Cell[CellGroupData[{ Cell[BoxData[ \(CircumscribedRadius[Dodecahedron]\)], "Input"], Cell[BoxData[ \(1\/4\ \((\@3 + \@15)\)\)], "Output"] }, Open ]], Cell["Or l'ar\[EHat]te unit\[EAcute] a \[EAcute]t\[EAcute] multipli\[EAcute]e \ par :", "Text", FormatType->TextForm], Cell[CellGroupData[{ Cell[BoxData[{ \(1/InscribedRadius[Dodecahedron]\), "\[IndentingNewLine]", \(% // N\)}], "Input"], Cell[BoxData[ \(20\/\@\(250 + 110\ \@5\)\)], "Output"], Cell[BoxData[ \(0.8980559531591708`\)], "Output"] }, Open ]], Cell[TextData[{ "Le ", StyleBox["rayon de la sph\[EGrave]re circonscrite au \ dod\[EAcute]ca\[EGrave]dre", FontColor->RGBColor[0, 0, 1]], " (orbite de Mars) vaut donc :" }], "Text", FormatType->TextForm], Cell[CellGroupData[{ Cell[BoxData[{ \(CircumscribedRadius[Dodecahedron]/InscribedRadius[Dodecahedron] // Simplify\), "\[IndentingNewLine]", \(% // N\)}], "Input"], Cell[BoxData[ \(\(5\ \((\@3 + \@15)\)\)\/\@\(250 + 110\ \@5\)\)], "Output"], Cell[BoxData[ \(1.258408572364819`\)], "Output"] }, Open ]], Cell[BoxData[ \(\(Show[ Graphics3D[{Drop[ Sphere[CircumscribedRadius[Dodecahedron]/ InscribedRadius[Dodecahedron], 20, 15], {196, 247}], Drop[Dodecahedron[{0, 0, 0}, 1/\((InscribedRadius[Dodecahedron]* longueurArete[Dodecahedron])\)], {6}]}], Boxed -> False];\)\)], "Input"], Cell["\<\ Pour obtenir l'orbite de Jupiter, nous devons circonscrire un t\ \[EAcute]tra\[EGrave]dre \[AGrave] la sph\[EGrave]re donnant l'orbite de mars \ puis circonscrire une sph\[EGrave]re \[AGrave] ce t\[EAcute]tra\[EGrave]dre. \ Cette derni\[EGrave]re sph\[EGrave]re donnera l'orbite de Jupiter. L'orbite \ de Jupiter est donc donn\[EAcute]e par la sph\[EGrave]re circonscrite au t\ \[EAcute]tra\[EGrave]dre, lui-m\[EHat]me circonscrit \[AGrave] la \ sph\[EGrave]re donnant l'orbite de Mars. \ \>", "Text", FormatType->TextForm], Cell["Rayon d'une sph\[EGrave]re inscrite dans le t\[EAcute]tra\[EGrave]dre \ par d\[EAcute]faut :", "Text", FormatType->TextForm], Cell[CellGroupData[{ Cell[BoxData[{ \(InscribedRadius[Tetrahedron]* longueurArete[Tetrahedron]\), "\[IndentingNewLine]", \(% // N\)}], "Input"], Cell[BoxData[ \(1\/2\ \@\(1\/6\ \((8\/3 + \((\(-\(1\/\@3\)\) - \@3)\)\^2)\)\)\)], \ "Output"], Cell[BoxData[ \(0.5773502691896257`\)], "Output"] }, Open ]], Cell["Et nous voulons que le rayon de la sph\[EGrave]re inscrite vaille :", \ "Text", FormatType->TextForm], Cell[CellGroupData[{ Cell[BoxData[{ \(CircumscribedRadius[Dodecahedron]/InscribedRadius[Dodecahedron] // Simplify\), "\[IndentingNewLine]", \(% // N\)}], "Input"], Cell[BoxData[ \(\(5\ \((\@3 + \@15)\)\)\/\@\(250 + 110\ \@5\)\)], "Output"], Cell[BoxData[ \(1.258408572364819`\)], "Output"] }, Open ]], Cell["Nous devons augmenter la taille du t\[EAcute]tra\[EGrave]dre d'un \ facteur :", "Text", FormatType->TextForm], Cell[CellGroupData[{ Cell[BoxData[{ \(\(CircumscribedRadius[Dodecahedron]/ InscribedRadius[Dodecahedron]\)/\((InscribedRadius[Tetrahedron]* longueurArete[Tetrahedron])\)\), "\[IndentingNewLine]", \(% // N\)}], "Input"], Cell[BoxData[ \(10\ \((\@3 + \@15)\)\ \@\(6\/\(\((250 + 110\ \@5)\)\ \((8\/3 + \ \((\(-\(1\/\@3\)\) - \@3)\)\^2)\)\)\)\)], "Output"], Cell[BoxData[ \(2.1796275840160826`\)], "Output"] }, Open ]], Cell[BoxData[ \(\(Show[ Graphics3D[{Drop[ Tetrahedron[{0, 0, 0}, \(CircumscribedRadius[Dodecahedron]/ InscribedRadius[ Dodecahedron]\)/\((InscribedRadius[Tetrahedron]* longueurArete[Tetrahedron])\)], {2}], Drop[Sphere[ CircumscribedRadius[Dodecahedron]/ InscribedRadius[Dodecahedron], 20, 15], {196, 247}], Drop[Dodecahedron[{0, 0, 0}, 1/\((InscribedRadius[Dodecahedron]* longueurArete[Dodecahedron])\)], {6}]}], Boxed -> False];\)\)], "Input"], Cell["\<\ La sph\[EGrave]re circonscrite \[AGrave] un \ t\[EAcute]tra\[EGrave]dre d'ar\[EHat]te unit\[EAcute] vaudrait :\ \>", "Text",\ FormatType->TextForm], Cell[CellGroupData[{ Cell[BoxData[{ \(CircumscribedRadius[Tetrahedron]\), "\[IndentingNewLine]", \(% // N\)}], "Input"], Cell[BoxData[ \(\@\(3\/2\)\/2\)], "Output"], Cell[BoxData[ \(0.6123724356957945`\)], "Output"] }, Open ]], Cell["Or l'ar\[EHat]te unit\[EAcute] a \[EAcute]t\[EAcute] multipli\[EAcute]e \ par :", "Text", FormatType->TextForm], Cell[CellGroupData[{ Cell[BoxData[{ \(\(CircumscribedRadius[Dodecahedron]/InscribedRadius[Dodecahedron]\)/ InscribedRadius[Tetrahedron]\), "\[IndentingNewLine]", \(% // N\)}], "Input"], Cell[BoxData[ \(10\ \@\(6\/\(250 + 110\ \@5\)\)\ \((\@3 + \@15)\)\)], "Output"], Cell[BoxData[ \(6.164917780476094`\)], "Output"] }, Open ]], Cell[TextData[{ "Le ", StyleBox["rayon de la sph\[EGrave]re circonscrite au \ t\[EAcute]tra\[EGrave]dre", FontColor->RGBColor[0, 0, 1]], " (orbite de Jupiter) vaut donc :" }], "Text", FormatType->TextForm], Cell[CellGroupData[{ Cell[BoxData[{ \(CircumscribedRadius[ Tetrahedron] \(CircumscribedRadius[Dodecahedron]/ InscribedRadius[Dodecahedron]\)/InscribedRadius[Tetrahedron] // Simplify\), "\[IndentingNewLine]", \(% // N\)}], "Input"], Cell[BoxData[ \(\(15\ \((\@3 + \@15)\)\)\/\@\(250 + 110\ \@5\)\)], "Output"], Cell[BoxData[ \(3.775225717094457`\)], "Output"] }, Open ]], Cell[BoxData[ \(\(Show[ Graphics3D[{Drop[ Sphere[CircumscribedRadius[ Tetrahedron] \(CircumscribedRadius[Dodecahedron]/ InscribedRadius[Dodecahedron]\)/ InscribedRadius[Tetrahedron], 20, 15], {196, 247}], Drop[Tetrahedron[{0, 0, 0}, \(CircumscribedRadius[Dodecahedron]/ InscribedRadius[ Dodecahedron]\)/\((InscribedRadius[Tetrahedron]* longueurArete[Tetrahedron])\)], {2}], Drop[Sphere[ CircumscribedRadius[Dodecahedron]/ InscribedRadius[Dodecahedron], 20, 15], {196, 247}], Drop[Dodecahedron[{0, 0, 0}, 1/\((InscribedRadius[Dodecahedron]* longueurArete[Dodecahedron])\)], {6}]}], Boxed -> False];\)\)], "Input"], Cell["\<\ L'orbite de Saturne est donn\[EAcute]e par la sph\[EGrave]re \ circonscrite au cube, lui-m\[EHat]me circonscrit \[AGrave] la sph\[EGrave]re \ donnant l'orbite de Jupiter. Si l'ar\[EHat]te de ce cube valait 1, le rayon \ de la sph\[EGrave]re inscrite dans le cube vaudrait :\ \>", "Text", FormatType->TextForm], Cell["Rayon d'une sph\[EGrave]re inscrite dans le cube par d\[EAcute]faut :", \ "Text", FormatType->TextForm], Cell[CellGroupData[{ Cell[BoxData[{ \(InscribedRadius[Cube]*longueurArete[Cube]\), "\[IndentingNewLine]", \(% // N\)}], "Input"], Cell[BoxData[ \(1\/\@2\)], "Output"], Cell[BoxData[ \(0.7071067811865475`\)], "Output"] }, Open ]], Cell["Et nous voulons que le rayon de la sph\[EGrave]re inscrite vaille :", \ "Text", FormatType->TextForm], Cell[CellGroupData[{ Cell[BoxData[{ \(CircumscribedRadius[ Tetrahedron] \(CircumscribedRadius[Dodecahedron]/ InscribedRadius[Dodecahedron]\)/InscribedRadius[Tetrahedron] // Simplify\), "\[IndentingNewLine]", \(% // N\)}], "Input"], Cell[BoxData[ \(\(15\ \((\@3 + \@15)\)\)\/\@\(250 + 110\ \@5\)\)], "Output"], Cell[BoxData[ \(3.775225717094457`\)], "Output"] }, Open ]], Cell["Nous devons augmenter la taille du cube d'un facteur :", "Text", FormatType->TextForm], Cell[CellGroupData[{ Cell[BoxData[{ \(CircumscribedRadius[ Tetrahedron] \(\(CircumscribedRadius[Dodecahedron]/ InscribedRadius[Dodecahedron]\)/ InscribedRadius[Tetrahedron]\)/\((InscribedRadius[Cube]* longueurArete[Cube])\)\), "\[IndentingNewLine]", \(% // N\)}], "Input"], Cell[BoxData[ \(15\ \@\(2\/\(250 + 110\ \@5\)\)\ \((\@3 + \@15)\)\)], "Output"], Cell[BoxData[ \(5.338975410134674`\)], "Output"] }, Open ]], Cell[BoxData[ \(\(Show[ Graphics3D[{Drop[ Cube[{0, 0, 0}, CircumscribedRadius[ Tetrahedron] \(\(CircumscribedRadius[Dodecahedron]/ InscribedRadius[Dodecahedron]\)/ InscribedRadius[Tetrahedron]\)/\((InscribedRadius[Cube]* longueurArete[Cube])\)\[IndentingNewLine]], {6}], Drop[Sphere[ CircumscribedRadius[ Tetrahedron] \(CircumscribedRadius[Dodecahedron]/ InscribedRadius[Dodecahedron]\)/ InscribedRadius[Tetrahedron], 20, 15], {196, 247}], Drop[Tetrahedron[{0, 0, 0}, \(CircumscribedRadius[Dodecahedron]/ InscribedRadius[ Dodecahedron]\)/\((InscribedRadius[Tetrahedron]* longueurArete[Tetrahedron])\)], {2}], Drop[Sphere[ CircumscribedRadius[Dodecahedron]/ InscribedRadius[Dodecahedron], 20, 15], {196, 247}], Drop[Dodecahedron[{0, 0, 0}, 1/\((InscribedRadius[Dodecahedron]* longueurArete[Dodecahedron])\)], {6}]}], Boxed -> False];\)\)], "Input"], Cell["La sph\[EGrave]re circonscrite \[AGrave] un cube d'ar\[EHat]te unit\ \[EAcute] vaudrait :", "Text"], Cell[CellGroupData[{ Cell[BoxData[{ \(CircumscribedRadius[Cube]\), "\[IndentingNewLine]", \(% // N\)}], "Input"], Cell[BoxData[ \(\@3\/2\)], "Output"], Cell[BoxData[ \(0.8660254037844386`\)], "Output"] }, Open ]], Cell["Or l'ar\[EHat]te unit\[EAcute] a \[EAcute]t\[EAcute] multipli\[EAcute]e \ par :", "Text"], Cell[CellGroupData[{ Cell[BoxData[{ \(CircumscribedRadius[ Tetrahedron] \(\(CircumscribedRadius[Dodecahedron]/ InscribedRadius[Dodecahedron]\)/InscribedRadius[Tetrahedron]\)/ InscribedRadius[Cube]\), "\[IndentingNewLine]", \(% // N\)}], "Input"], Cell[BoxData[ \(\(30\ \((\@3 + \@15)\)\)\/\@\(250 + 110\ \@5\)\)], "Output"], Cell[BoxData[ \(7.550451434188914`\)], "Output"] }, Open ]], Cell[TextData[{ "Le ", StyleBox["rayon de la sph\[EGrave]re circonscrite au \ t\[EAcute]tra\[EGrave]dre", FontColor->RGBColor[0, 0, 1]], " (orbite de Jupiter) vaut donc :" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[{ \(CircumscribedRadius[Cube]* CircumscribedRadius[ Tetrahedron] \(\(CircumscribedRadius[Dodecahedron]/ InscribedRadius[Dodecahedron]\)/InscribedRadius[Tetrahedron]\)/ InscribedRadius[Cube] // Simplify\), "\[IndentingNewLine]", \(% // N\)}], "Input"], Cell[BoxData[ \(3\ \@\(15\/\(50 + 22\ \@5\)\)\ \((\@3 + \@15)\)\)], "Output"], Cell[BoxData[ \(6.538882752048248`\)], "Output"] }, Open ]], Cell[BoxData[ \(\(Show[ Graphics3D[{Drop[ Sphere[CircumscribedRadius[Cube]* CircumscribedRadius[ Tetrahedron] \(\(CircumscribedRadius[Dodecahedron]/ InscribedRadius[Dodecahedron]\)/ InscribedRadius[Tetrahedron]\)/InscribedRadius[Cube], 20, 15], {196, 247}], Drop[Cube[{0, 0, 0}, CircumscribedRadius[ Tetrahedron] \(\(CircumscribedRadius[Dodecahedron]/ InscribedRadius[Dodecahedron]\)/ InscribedRadius[Tetrahedron]\)/\((InscribedRadius[Cube]* longueurArete[Cube])\)\[IndentingNewLine]], {6}], Drop[Sphere[ CircumscribedRadius[ Tetrahedron] \(CircumscribedRadius[Dodecahedron]/ InscribedRadius[Dodecahedron]\)/ InscribedRadius[Tetrahedron], 20, 15], {196, 247}], Drop[Tetrahedron[{0, 0, 0}, \(CircumscribedRadius[Dodecahedron]/ InscribedRadius[ Dodecahedron]\)/\((InscribedRadius[Tetrahedron]* longueurArete[Tetrahedron])\)], {2}], Drop[Sphere[ CircumscribedRadius[Dodecahedron]/ InscribedRadius[Dodecahedron], 20, 15], {196, 247}], Drop[Dodecahedron[{0, 0, 0}, 1/\((InscribedRadius[Dodecahedron]* longueurArete[Dodecahedron])\)], {6}]}], Boxed -> False];\)\)], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["Tableau", "Subsubsection", FormatType->TextForm, FontFamily->"Verdana", FontWeight->"Plain"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(rayonexact = {1\/3\ \@\(\(7 + 3\ \@5\)\/\(5 + \@5\)\), \@\(\(7 + 3\ \ \@5\)\/\(15 + 3\ \@5\)\), 1, \(5\ \((\@3 + \@15)\)\)\/\@\(250 + 110\ \@5\), \(15\ \((\@3 + \ \@15)\)\)\/\@\(250 + 110\ \@5\), 3\ \@\(15\/\(50 + 22\ \@5\)\)\ \((\@3 + \@15)\)};\)\), "\ \[IndentingNewLine]", \(\(rayon = rayonexact // N;\)\), "\[IndentingNewLine]", \(\(planetes = {"\", "\", \ "\", \ \ "\", \ "\", \ "\"};\)\), "\[IndentingNewLine]", \(\(polyedres = {"\", \ "\", "\", "\", "\", \[IndentingNewLine]"\"};\)\), "\[IndentingNewLine]", \(\(table = {0.387099, 0.723332, 1, 1.523691, 5.202803, 9.53884};\)\), "\[IndentingNewLine]", \(TableForm[Transpose[{planetes, polyedres, rayonexact, rayon, table}], TableHeadings \[Rule] {None, {"\", "\", "\", "\", "\"}}]\)}], "Input"], Cell[BoxData[ TagBox[GridBox[{ {"\<\"Plan\[EGrave]te\"\>", "\<\"Orbite d\[EAcute]crite par (mod\ \[EGrave]le de Kepler)\"\>", "\<\"Rayon exact\"\>", "\<\"Rayon\"\>", \ "\<\"Valeurs des tables\"\>"}, {"\<\"Mercure\"\>", "\<\"Sph\[EGrave]re inscrite dans \ l'oct\[EGrave]dre\"\>", \(1\/3\ \@\(\(7 + 3\ \@5\)\/\(5 + \@5\)\)\), "0.4587939734903912`", "0.387099`"}, {"\<\"V\[EAcute]nus\"\>", "\<\"Sph\[EGrave]re circonscrite \ \[AGrave] l'octa\[EGrave]dre\"\>", \(\@\(\(7 + 3\ \@5\)\/\(15 + 3\ \@5\)\)\), "0.7946544722917661`", "0.723332`"}, {"\<\"Terre\"\>", "\<\"Sph\[EGrave]re circonscrite \[AGrave] \ l'icosa\[EGrave]dre\"\>", "1", "1.`", "1"}, {"\<\"Mars\"\>", "\<\"Sph\[EGrave]re circonscrite au dod\[EAcute]ca\ \[EGrave]dre\"\>", \(\(5\ \((\@3 + \@15)\)\)\/\@\(250 + 110\ \@5\)\), "1.258408572364819`", "1.523691`"}, {"\<\"Jupiter\"\>", "\<\"Sph\[EGrave]re circonscrite au \ t\[EAcute]tra\[EGrave]dre\"\>", \(\(15\ \((\@3 + \@15)\)\)\/\@\(250 + 110\ \ \@5\)\), "3.775225717094457`", "5.202803`"}, {"\<\"Saturne\"\>", "\<\"Sph\[EGrave]re circonscrite au cube\"\>", \ \(3\ \@\(15\/\(50 + 22\ \@5\)\)\ \((\@3 + \@15)\)\), "6.538882752048248`", "9.53884`"} }, RowSpacings->1, ColumnSpacings->3, RowAlignments->Baseline, ColumnAlignments->{Left}], Function[ BoxForm`e$, TableForm[ BoxForm`e$, TableHeadings -> {None, {"Plan\[EGrave]te", "Orbite d\[EAcute]crite par (mod\[EGrave]le de Kepler)", "Rayon exact", "Rayon", "Valeurs des tables"}}]]]], "Output"] }, Open ]], Cell[BoxData[ \(<< RealTime3D`\)], "Input"], Cell[BoxData[ \(<< Default3D`\)], "Input"] }, Open ]] }, Open ]] }, FrontEndVersion->"5.2 for Macintosh", ScreenRectangle->{{0, 997}, {0, 746}}, WindowSize->{828, 641}, WindowMargins->{{13, Automatic}, {Automatic, 0}}, ShowSelection->True, ShowCellLabel->False, Magnification->1.5, StyleDefinitions -> Notebook[{ Cell[CellGroupData[{ Cell["Style Definitions", "Title"], Cell["\<\ Modify the definitions below to change the default appearance of \ all cells in a given style. Make modifications to any definition using \ commands in the Format menu.\ \>", "Text"], Cell[CellGroupData[{ Cell["Style Environment Names", "Section"], Cell[StyleData[All, "Working"], PageWidth->WindowWidth, CellBracketOptions->{"Color"->RGBColor[0.269993, 0.308507, 0.6]}, CellLabelMargins->{{12, Inherited}, {Inherited, Inherited}}, ScriptMinSize->9], Cell[StyleData[All, "Presentation"], PageWidth->WindowWidth, CellLabelMargins->{{24, Inherited}, {Inherited, Inherited}}, ScriptMinSize->12], Cell[StyleData[All, "Condensed"], PageWidth->WindowWidth, CellLabelMargins->{{8, Inherited}, {Inherited, Inherited}}, ScriptMinSize->8], Cell[StyleData[All, "SlideShow"], PageWidth->WindowWidth, ScrollingOptions->{"PagewiseDisplay"->True, "VerticalScrollRange"->Fit}, ShowCellBracket->False, ScriptMinSize->9], Cell[StyleData[All, "Printout"], PageWidth->PaperWidth, CellLabelMargins->{{2, Inherited}, {Inherited, Inherited}}, ScriptMinSize->5, PrivateFontOptions->{"FontType"->"Outline"}] }, Closed]], Cell[CellGroupData[{ Cell["Notebook Options", "Section"], Cell["\<\ The options defined for the style below will be used at the \ Notebook level.\ \>", "Text"], Cell[StyleData["Notebook"], 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] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Headings", "Section"], Cell[CellGroupData[{ Cell[StyleData["Title"], CellMargins->{{27, Inherited}, {10, 30}}, CellGroupingRules->{"TitleGrouping", 0}, PageBreakBelow->False, DefaultNewInlineCellStyle->"None", InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.35999999999999999, \ -0.10000000000000001}, {0, 0}}, BoxBaselineShift -> -0.20000000000000001], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica", "gridMathematica"->FormBox[ RowBox[ {"grid", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.17499999999999999, 0}, {0, 0}}]}], TextForm], "webMathematica"->FormBox[ RowBox[ {"web", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.17499999999999999, 0}, {0, 0}}]}], TextForm], Inherited}, LineSpacing->{1, 11}, LanguageCategory->"NaturalLanguage", CounterIncrements->"Title", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, { "Subtitle", 0}, {"Subsubtitle", 0}}, FontFamily->"Helvetica", FontSize->36, FontWeight->"Bold"], Cell[StyleData["Title", "Presentation"], CellMargins->{{27, 10}, {10, 30}}, LineSpacing->{1, 0}, FontSize->44], Cell[StyleData["Title", "Condensed"], CellMargins->{{8, 10}, {4, 8}}, FontSize->20], Cell[StyleData["Title", "SlideShow"]], Cell[StyleData["Title", "Printout"], CellMargins->{{2, 10}, {12, 30}}, FontSize->24] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subtitle"], CellMargins->{{27, Inherited}, {20, 2}}, CellGroupingRules->{"TitleGrouping", 10}, PageBreakBelow->False, DefaultNewInlineCellStyle->"None", InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.35999999999999999, \ -0.10000000000000001}, {0, 0}}, BoxBaselineShift -> -0.20000000000000001], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica", "gridMathematica"->FormBox[ RowBox[ {"grid", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.17499999999999999, 0}, {0, 0}}]}], TextForm], "webMathematica"->FormBox[ RowBox[ {"web", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.17499999999999999, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory->"NaturalLanguage", CounterIncrements->"Subtitle", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, { "Subsubtitle", 0}}, FontFamily->"Helvetica", FontSize->24], Cell[StyleData["Subtitle", "Presentation"], CellMargins->{{27, 10}, {20, 2}}, LineSpacing->{1, 0}, FontSize->36], Cell[StyleData["Subtitle", "Condensed"], CellMargins->{{8, 10}, {4, 4}}, FontSize->14], Cell[StyleData["Subtitle", "SlideShow"]], Cell[StyleData["Subtitle", "Printout"], CellMargins->{{2, 10}, {12, 8}}, FontSize->18] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsubtitle"], CellMargins->{{27, Inherited}, {8, 2}}, CellGroupingRules->{"TitleGrouping", 20}, PageBreakBelow->False, DefaultNewInlineCellStyle->"None", InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.35999999999999999, \ -0.10000000000000001}, {0, 0}}, BoxBaselineShift -> -0.20000000000000001], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica", "gridMathematica"->FormBox[ RowBox[ {"grid", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.17499999999999999, 0}, {0, 0}}]}], TextForm], "webMathematica"->FormBox[ RowBox[ {"web", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.17499999999999999, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory->"NaturalLanguage", CounterIncrements->"Subsubtitle", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}}, FontFamily->"Helvetica", FontSize->16], Cell[StyleData["Subsubtitle", "Presentation"], CellMargins->{{24, 10}, {20, 20}}, LineSpacing->{1, 0}, FontSize->24], Cell[StyleData["Subsubtitle", "Condensed"], CellMargins->{{8, 10}, {8, 8}}, FontSize->12], Cell[StyleData["Subsubtitle", "SlideShow"]], Cell[StyleData["Subsubtitle", "Printout"], CellMargins->{{2, 10}, {12, 8}}, FontSize->14] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Section"], CellFrame->{{0, 0}, {0, 1}}, CellMargins->{{27, Inherited}, {8, 34}}, CellGroupingRules->{"SectionGrouping", 30}, PageBreakBelow->False, CellFrameMargins->4, DefaultNewInlineCellStyle->"None", InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.35999999999999999, \ -0.10000000000000001}, {0, 0}}, BoxBaselineShift -> -0.20000000000000001], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica", "gridMathematica"->FormBox[ RowBox[ {"grid", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.17499999999999999, 0}, {0, 0}}]}], TextForm], "webMathematica"->FormBox[ RowBox[ {"web", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.17499999999999999, 0}, {0, 0}}]}], TextForm], Inherited}, LineSpacing->{1, 2}, LanguageCategory->"NaturalLanguage", CounterIncrements->"Section", CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}}, FontFamily->"Helvetica", FontSize->20, FontWeight->"Bold"], Cell[StyleData["Section", "Presentation"], CellMargins->{{40, 10}, {11, 32}}, LineSpacing->{1, 0}, FontSize->24], Cell[StyleData["Section", "Condensed"], CellMargins->{{18, Inherited}, {6, 12}}, FontSize->12], Cell[StyleData["Section", "SlideShow"]], Cell[StyleData["Section", "Printout"], CellMargins->{{2, 0}, {7, 22}}, FontSize->14] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsection"], CellDingbat->"\[FilledSmallSquare]", CellMargins->{{60, Inherited}, {8, 12}}, CellGroupingRules->{"SectionGrouping", 40}, PageBreakBelow->False, DefaultNewInlineCellStyle->"None", InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.35999999999999999, \ -0.10000000000000001}, {0, 0}}, BoxBaselineShift -> -0.20000000000000001], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica", "gridMathematica"->FormBox[ RowBox[ {"grid", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.17499999999999999, 0}, {0, 0}}]}], TextForm], "webMathematica"->FormBox[ RowBox[ {"web", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.17499999999999999, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory->"NaturalLanguage", CounterIncrements->"Subsection", CounterAssignments->{{"Subsubsection", 0}}, FontFamily->"Helvetica", FontSize->14, FontWeight->"Bold"], Cell[StyleData["Subsection", "Presentation"], CellMargins->{{36, 10}, {11, 32}}, LineSpacing->{1, 0}, FontSize->22], Cell[StyleData["Subsection", "Condensed"], CellMargins->{{16, Inherited}, {6, 12}}, FontSize->12], Cell[StyleData["Subsection", "SlideShow"]], Cell[StyleData["Subsection", "Printout"], CellMargins->{{9, 0}, {7, 22}}, FontSize->12] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsubsection"], CellDingbat->"\[FilledSmallSquare]", CellMargins->{{60, Inherited}, {2, 10}}, CellGroupingRules->{"SectionGrouping", 50}, PageBreakBelow->False, DefaultNewInlineCellStyle->"None", InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.35999999999999999, \ -0.10000000000000001}, {0, 0}}, BoxBaselineShift -> -0.20000000000000001], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica", "gridMathematica"->FormBox[ RowBox[ {"grid", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.17499999999999999, 0}, {0, 0}}]}], TextForm], "webMathematica"->FormBox[ RowBox[ {"web", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.17499999999999999, 0}, {0, 0}}]}], TextForm], Inherited}, LanguageCategory->"NaturalLanguage", CounterIncrements->"Subsubsection", FontFamily->"Times", FontWeight->"Bold"], Cell[StyleData["Subsubsection", "Presentation"], CellMargins->{{34, 10}, {11, 26}}, LineSpacing->{1, 0}, FontSize->18], Cell[StyleData["Subsubsection", "Condensed"], CellMargins->{{17, Inherited}, {6, 12}}, FontSize->10], Cell[StyleData["Subsubsection", "SlideShow"]], Cell[StyleData["Subsubsection", "Printout"], CellMargins->{{9, 0}, {7, 14}}, FontSize->11] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Body Text", "Section", FontFamily->"Verdana"], Cell[CellGroupData[{ Cell[StyleData["Text"], CellMargins->{{60, 10}, {7, 7}}, InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.35999999999999999, \ -0.10000000000000001}, {0, 0}}, BoxBaselineShift -> -0.20000000000000001], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica", "gridMathematica"->FormBox[ RowBox[ {"grid", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.17499999999999999, 0}, {0, 0}}]}], TextForm], "webMathematica"->FormBox[ RowBox[ {"web", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.17499999999999999, 0}, {0, 0}}]}], TextForm], Inherited}, LineSpacing->{1, 3}, CounterIncrements->"Text", FontFamily->"Verdana"], Cell[StyleData["Text", "Presentation"], CellMargins->{{24, 10}, {10, 10}}, LineSpacing->{1, 5}, FontSize->16], Cell[StyleData["Text", "Condensed"], CellMargins->{{8, 10}, {6, 6}}, LineSpacing->{1, 1}, FontSize->11], Cell[StyleData["Text", "SlideShow"]], Cell[StyleData["Text", "Printout"], CellMargins->{{2, 2}, {6, 6}}, TextJustification->0.5, Hyphenation->True, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SmallText"], CellMargins->{{60, 10}, {6, 6}}, DefaultNewInlineCellStyle->"None", LineSpacing->{1, 3}, LanguageCategory->"NaturalLanguage", CounterIncrements->"SmallText", FontFamily->"Verdana", FontSize->9], Cell[StyleData["SmallText", "Presentation"], CellMargins->{{24, 10}, {8, 8}}, LineSpacing->{1, 5}, FontSize->12], Cell[StyleData["SmallText", "Condensed"], CellMargins->{{8, 10}, {5, 5}}, LineSpacing->{1, 2}, FontSize->9], Cell[StyleData["SmallText", "SlideShow"]], Cell[StyleData["SmallText", "Printout"], CellMargins->{{2, 2}, {5, 5}}, TextJustification->0.5, Hyphenation->True, FontSize->7] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Styles for Input/Output", "Section"], Cell["\<\ The cells in this section define styles used for input and output \ to the kernel. Be careful when modifying, renaming, or removing these \ styles, because the front end associates special meanings with these style \ names. Some attributes for these styles are actually set in FormatType Styles \ (in the last section of this stylesheet). \ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["Input"], CellMargins->{{66, 10}, {5, 7}}, Evaluatable->True, CellGroupingRules->"InputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, DefaultFormatType->DefaultInputFormatType, "TwoByteSyntaxCharacterAutoReplacement"->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, AutoItalicWords->{}, LanguageCategory->"Mathematica", FormatType->InputForm, ShowStringCharacters->True, NumberMarks->True, LinebreakAdjustments->{0.85, 2, 10, 0, 1}, CounterIncrements->"Input", FontWeight->"Bold"], Cell[StyleData["Input", "Presentation"], CellMargins->{{72, Inherited}, {8, 10}}, LineSpacing->{1, 0}, FontSize->16], Cell[StyleData["Input", "Condensed"], CellMargins->{{40, 10}, {2, 3}}, FontSize->11], Cell[StyleData["Input", "SlideShow"]], Cell[StyleData["Input", "Printout"], CellMargins->{{39, 0}, {4, 6}}, LinebreakAdjustments->{0.85, 2, 10, 1, 1}, FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["InputOnly"], CellMargins->{{66, 10}, {7, 7}}, Evaluatable->True, CellGroupingRules->"InputGrouping", CellHorizontalScrolling->True, DefaultFormatType->DefaultInputFormatType, "TwoByteSyntaxCharacterAutoReplacement"->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, AutoItalicWords->{}, LanguageCategory->"Mathematica", FormatType->InputForm, ShowStringCharacters->True, NumberMarks->True, LinebreakAdjustments->{0.85, 2, 10, 0, 1}, CounterIncrements->"Input", StyleMenuListing->None, FontWeight->"Bold"], Cell[StyleData["InputOnly", "Presentation"], CellMargins->{{72, Inherited}, {8, 10}}, LineSpacing->{1, 0}, FontSize->16], Cell[StyleData["InputOnly", "Condensed"], CellMargins->{{40, 10}, {2, 3}}, FontSize->11], Cell[StyleData["InputOnly", "SlideShow"]], Cell[StyleData["InputOnly", "Printout"], CellMargins->{{39, 0}, {4, 6}}, LinebreakAdjustments->{0.85, 2, 10, 1, 1}, FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Output"], CellMargins->{{66, 10}, {7, 5}}, CellEditDuplicate->True, CellGroupingRules->"OutputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, DefaultFormatType->DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement"->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, AutoItalicWords->{}, LanguageCategory->None, FormatType->InputForm, CounterIncrements->"Output"], Cell[StyleData["Output", "Presentation"], CellMargins->{{72, Inherited}, {10, 8}}, LineSpacing->{1, 0}, FontSize->16], Cell[StyleData["Output", "Condensed"], CellMargins->{{41, Inherited}, {3, 2}}, FontSize->11], Cell[StyleData["Output", "SlideShow"]], Cell[StyleData["Output", "Printout"], CellMargins->{{39, 0}, {6, 4}}, FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Message"], CellMargins->{{66, Inherited}, {Inherited, Inherited}}, CellGroupingRules->"OutputGrouping", PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, DefaultFormatType->DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement"->True, AutoStyleOptions->{"UnmatchedBracketStyle"->None}, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, AutoItalicWords->{}, LanguageCategory->None, FormatType->InputForm, CounterIncrements->"Message", StyleMenuListing->None, FontFamily->"Helvetica", FontSize->10, FontColor->RGBColor[0.6, 0.100008, 0.100008]], Cell[StyleData["Message", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, LineSpacing->{1, 0}, FontSize->16], Cell[StyleData["Message", "Condensed"], CellMargins->{{41, Inherited}, {Inherited, Inherited}}, FontSize->11], Cell[StyleData["Message", "SlideShow"]], Cell[StyleData["Message", "Printout"], CellMargins->{{39, Inherited}, {Inherited, Inherited}}, FontSize->7, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Print"], CellMargins->{{66, Inherited}, {Inherited, Inherited}}, CellGroupingRules->"OutputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, DefaultFormatType->DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement"->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, AutoItalicWords->{}, LanguageCategory->None, FormatType->InputForm, CounterIncrements->"Print", StyleMenuListing->None], Cell[StyleData["Print", "Presentation"], CellMargins->{{72, Inherited}, {Inherited, Inherited}}, LineSpacing->{1, 0}, FontSize->16], Cell[StyleData["Print", "Condensed"], CellMargins->{{41, Inherited}, {Inherited, Inherited}}, FontSize->11], Cell[StyleData["Print", "SlideShow"]], Cell[StyleData["Print", "Printout"], CellMargins->{{39, Inherited}, {Inherited, Inherited}}, FontSize->8] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Graphics"], CellMargins->{{4, Inherited}, {Inherited, Inherited}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, DefaultFormatType->DefaultOutputFormatType, LanguageCategory->None, FormatType->InputForm, CounterIncrements->"Graphics", ImageMargins->{{43, Inherited}, {Inherited, 0}}, StyleMenuListing->None, FontFamily->"Courier", FontSize->10], Cell[StyleData["Graphics", "Presentation"], ImageMargins->{{62, Inherited}, {Inherited, 0}}], Cell[StyleData["Graphics", "Condensed"], ImageMargins->{{38, Inherited}, {Inherited, 0}}, Magnification->0.6], Cell[StyleData["Graphics", "SlideShow"]], Cell[StyleData["Graphics", "Printout"], ImageMargins->{{30, Inherited}, {Inherited, 0}}, Magnification->0.8] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["CellLabel"], LanguageCategory->None, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->9, FontColor->RGBColor[0.269993, 0.308507, 0.6]], Cell[StyleData["CellLabel", "Presentation"], FontSize->12], Cell[StyleData["CellLabel", "Condensed"], FontSize->9], Cell[StyleData["CellLabel", "SlideShow"]], Cell[StyleData["CellLabel", "Printout"], FontFamily->"Courier", FontSize->8, FontSlant->"Italic", FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["FrameLabel"], LanguageCategory->None, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->9], Cell[StyleData["FrameLabel", "Presentation"], FontSize->12], Cell[StyleData["FrameLabel", "Condensed"], FontSize->9], Cell[StyleData["FrameLabel", "SlideShow"]], Cell[StyleData["FrameLabel", "Printout"], FontFamily->"Courier", FontSize->8, FontSlant->"Italic", FontColor->GrayLevel[0]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Inline Formatting", "Section"], Cell["\<\ These styles are for modifying individual words or letters in a \ cell exclusive of the cell tag.\ \>", "Text"], Cell[StyleData["RM"], StyleMenuListing->None, FontWeight->"Plain", FontSlant->"Plain"], Cell[StyleData["BF"], StyleMenuListing->None, FontWeight->"Bold"], Cell[StyleData["IT"], StyleMenuListing->None, FontSlant->"Italic"], Cell[StyleData["TR"], StyleMenuListing->None, FontFamily->"Times", FontWeight->"Plain", FontSlant->"Plain"], Cell[StyleData["TI"], StyleMenuListing->None, FontFamily->"Times", FontWeight->"Plain", FontSlant->"Italic"], Cell[StyleData["TB"], StyleMenuListing->None, FontFamily->"Times", FontWeight->"Bold", FontSlant->"Plain"], Cell[StyleData["TBI"], StyleMenuListing->None, FontFamily->"Times", FontWeight->"Bold", FontSlant->"Italic"], Cell[StyleData["MR"], "TwoByteSyntaxCharacterAutoReplacement"->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, StyleMenuListing->None, FontFamily->"Courier", FontWeight->"Plain", FontSlant->"Plain"], Cell[StyleData["MO"], "TwoByteSyntaxCharacterAutoReplacement"->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, StyleMenuListing->None, FontFamily->"Courier", FontWeight->"Plain", FontSlant->"Italic"], Cell[StyleData["MB"], "TwoByteSyntaxCharacterAutoReplacement"->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, StyleMenuListing->None, FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Plain"], Cell[StyleData["MBO"], "TwoByteSyntaxCharacterAutoReplacement"->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, StyleMenuListing->None, FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Italic"], Cell[StyleData["SR"], StyleMenuListing->None, FontFamily->"Helvetica", FontWeight->"Plain", FontSlant->"Plain"], Cell[StyleData["SO"], StyleMenuListing->None, FontFamily->"Helvetica", FontWeight->"Plain", FontSlant->"Italic"], Cell[StyleData["SB"], StyleMenuListing->None, FontFamily->"Helvetica", FontWeight->"Bold", FontSlant->"Plain"], Cell[StyleData["SBO"], StyleMenuListing->None, FontFamily->"Helvetica", FontWeight->"Bold", FontSlant->"Italic"], Cell[CellGroupData[{ Cell[StyleData["SO10"], StyleMenuListing->None, FontFamily->"Helvetica", FontSize->10, FontWeight->"Plain", FontSlant->"Italic"], Cell[StyleData["SO10", "Printout"], StyleMenuListing->None, FontFamily->"Helvetica", FontSize->7, FontWeight->"Plain", FontSlant->"Italic"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Inert"], StyleMenuListing->None, Background->RGBColor[0.870588, 0.905882, 0.972549]], Cell[StyleData["Inert", "Printout"], StyleMenuListing->None, Background->GrayLevel[1]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Formulas and Programming", "Section"], Cell[CellGroupData[{ Cell[StyleData["InlineFormula"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, LanguageCategory->"Formula", ScriptLevel->1, SingleLetterItalics->True], Cell[StyleData["InlineFormula", "Presentation"], CellMargins->{{24, 10}, {10, 10}}, LineSpacing->{1, 5}, FontSize->16], Cell[StyleData["InlineFormula", "Condensed"], CellMargins->{{8, 10}, {6, 6}}, LineSpacing->{1, 1}, FontSize->11], Cell[StyleData["InlineFormula", "SlideShow"]], Cell[StyleData["InlineFormula", "Printout"], CellMargins->{{2, 0}, {6, 6}}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DisplayFormula"], CellMargins->{{60, Inherited}, {Inherited, Inherited}}, CellHorizontalScrolling->True, DefaultFormatType->DefaultInputFormatType, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, LanguageCategory->"Formula", ScriptLevel->0, SingleLetterItalics->True, UnderoverscriptBoxOptions->{LimitsPositioning->True}], Cell[StyleData["DisplayFormula", "Presentation"], LineSpacing->{1, 5}, FontSize->16], Cell[StyleData["DisplayFormula", "Condensed"], LineSpacing->{1, 1}, FontSize->11], Cell[StyleData["DisplayFormula", "SlideShow"]], Cell[StyleData["DisplayFormula", "Printout"], FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Program"], CellFrame->{{0, 0}, {0.5, 0.5}}, CellMargins->{{60, 4}, {0, 8}}, CellHorizontalScrolling->True, Hyphenation->False, LanguageCategory->"Formula", ScriptLevel->1, FontFamily->"Courier"], Cell[StyleData["Program", "Presentation"], CellMargins->{{24, 10}, {10, 10}}, LineSpacing->{1, 5}, FontSize->16], Cell[StyleData["Program", "Condensed"], CellMargins->{{8, 10}, {6, 6}}, LineSpacing->{1, 1}, FontSize->11], Cell[StyleData["Program", "SlideShow"]], Cell[StyleData["Program", "Printout"], CellMargins->{{2, 0}, {6, 6}}, FontSize->9] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Outline Styles", "Section"], Cell[CellGroupData[{ Cell[StyleData["Outline1"], CellMargins->{{60, 10}, {7, 7}}, CellGroupingRules->{"SectionGrouping", 50}, ParagraphIndent->-38, CounterIncrements->"Outline1", CounterAssignments->{{"Outline2", 0}, {"Outline3", 0}, {"Outline4", 0}}, FontSize->18, FontWeight->"Bold", CounterBoxOptions->{CounterFunction:>CapitalRomanNumeral}], Cell[StyleData["Outline1", "SlideShow"]], Cell[StyleData["Outline1", "Printout"], CounterBoxOptions->{CounterFunction:>CapitalRomanNumeral}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Outline2"], CellMargins->{{90, 10}, {7, 7}}, CellGroupingRules->{"SectionGrouping", 60}, ParagraphIndent->-27, CounterIncrements->"Outline2", CounterAssignments->{{"Outline3", 0}, {"Outline4", 0}}, FontSize->15, FontWeight->"Bold", CounterBoxOptions->{CounterFunction:>(Part[ CharacterRange[ "A", "Z"], #]&)}], Cell[StyleData["Outline2", "SlideShow"]], Cell[StyleData["Outline2", "Printout"], CounterBoxOptions->{CounterFunction:>(Part[ CharacterRange[ "A", "Z"], #]&)}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Outline3"], CellMargins->{{120, 10}, {7, 7}}, CellGroupingRules->{"SectionGrouping", 70}, ParagraphIndent->-21, CounterIncrements->"Outline3", CounterAssignments->{{"Outline4", 0}}, FontSize->12, CounterBoxOptions->{CounterFunction:>Identity}], Cell[StyleData["Outline3", "SlideShow"]], Cell[StyleData["Outline3", "Printout"], CounterBoxOptions->{CounterFunction:>Identity}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Outline4"], CellMargins->{{150, 10}, {7, 7}}, CellGroupingRules->{"SectionGrouping", 80}, ParagraphIndent->-18, CounterIncrements->"Outline4", FontSize->10, CounterBoxOptions->{CounterFunction:>(Part[ CharacterRange[ "a", "z"], #]&)}], Cell[StyleData["Outline4", "SlideShow"]], Cell[StyleData["Outline4", "Printout"]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Hyperlink Styles", "Section"], Cell["\<\ The cells below define styles useful for making hypertext \ ButtonBoxes. The \"Hyperlink\" style is for links within the same Notebook, \ or between Notebooks.\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["Hyperlink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookLocate[ #2]}]&), Active->True, ButtonFrame->"None", ButtonNote->ButtonData}], Cell[StyleData["Hyperlink", "Presentation"], FontSize->16], Cell[StyleData["Hyperlink", "Condensed"], FontSize->11], Cell[StyleData["Hyperlink", "SlideShow"]], Cell[StyleData["Hyperlink", "Printout"], FontSize->10, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell["\<\ The following styles are for linking automatically to the on-line \ help system.\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["MainBookLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "MainBook", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["MainBookLink", "Presentation"], FontSize->16], Cell[StyleData["MainBookLink", "Condensed"], FontSize->11], Cell[StyleData["MainBookLink", "SlideShow"]], Cell[StyleData["MainBookLink", "Printout"], FontSize->10, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["AddOnsLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontFamily->"Courier", FontColor->RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "AddOns", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["AddOnsLink", "Presentation"], FontSize->16], Cell[StyleData["AddOnsLink", "Condensed"], FontSize->11], Cell[StyleData["AddOnsLink", "SlideShow"]], Cell[StyleData["AddOnsLink", "Printout"], FontSize->10, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["RefGuideLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontFamily->"Courier", FontColor->RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "RefGuide", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["RefGuideLink", "Presentation"], FontSize->16], Cell[StyleData["RefGuideLink", "Condensed"], FontSize->11], Cell[StyleData["RefGuideLink", "SlideShow"]], Cell[StyleData["RefGuideLink", "Printout"], FontSize->10, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["RefGuideLinkText"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "RefGuide", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["RefGuideLinkText", "Presentation"], FontSize->16], Cell[StyleData["RefGuideLinkText", "Condensed"], FontSize->11], Cell[StyleData["RefGuideLinkText", "SlideShow"]], Cell[StyleData["RefGuideLinkText", "Printout"], FontSize->10, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["GettingStartedLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "GettingStarted", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["GettingStartedLink", "Presentation"], FontSize->16], Cell[StyleData["GettingStartedLink", "Condensed"], FontSize->11], Cell[StyleData["GettingStartedLink", "SlideShow"]], Cell[StyleData["GettingStartedLink", "Printout"], FontSize->10, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DemosLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "Demos", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["DemosLink", "SlideShow"]], Cell[StyleData["DemosLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TourLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "Tour", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["TourLink", "SlideShow"]], Cell[StyleData["TourLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["OtherInformationLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "OtherInformation", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["OtherInformationLink", "Presentation"], FontSize->16], Cell[StyleData["OtherInformationLink", "Condensed"], FontSize->11], Cell[StyleData["OtherInformationLink", "SlideShow"]], Cell[StyleData["OtherInformationLink", "Printout"], FontSize->10, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["MasterIndexLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0.269993, 0.308507, 0.6], ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "MasterIndex", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["MasterIndexLink", "SlideShow"]], Cell[StyleData["MasterIndexLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Headers and Footers", "Section"], Cell[StyleData["Header"], CellMargins->{{0, 0}, {4, 1}}, DefaultNewInlineCellStyle->"None", LanguageCategory->"NaturalLanguage", StyleMenuListing->None, FontFamily->"Verdana", FontSize->10, FontSlant->"Italic"], Cell[StyleData["Footer"], CellMargins->{{0, 0}, {0, 4}}, DefaultNewInlineCellStyle->"None", LanguageCategory->"NaturalLanguage", StyleMenuListing->None, FontFamily->"Verdana", FontSize->9, FontSlant->"Italic"], Cell[StyleData["PageNumber"], CellMargins->{{0, 0}, {4, 1}}, StyleMenuListing->None, FontFamily->"Verdana", FontSize->10] }, Open ]], Cell[CellGroupData[{ Cell["Palette Styles", "Section"], Cell["\<\ 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[ ], #, Placeholder]}]&)}], Cell[StyleData["Evaluate"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookApply[ FrontEnd`InputNotebook[ ], #, All], FrontEnd`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["Placeholder Styles", "Section"], Cell["\<\ The cells below define styles useful for making placeholder \ objects in palette templates.\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["Placeholder"], Placeholder->True, StyleMenuListing->None, FontSlant->"Italic", FontColor->RGBColor[0.890623, 0.864698, 0.384756], TagBoxOptions->{Editable->False, Selectable->False, StripWrapperBoxes->False}], Cell[StyleData["Placeholder", "Presentation"]], Cell[StyleData["Placeholder", "Condensed"]], Cell[StyleData["Placeholder", "SlideShow"]], Cell[StyleData["Placeholder", "Printout"]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["PrimaryPlaceholder"], StyleMenuListing->None, DrawHighlighted->True, FontSlant->"Italic", Background->RGBColor[0.912505, 0.891798, 0.507774], TagBoxOptions->{Editable->False, Selectable->False, StripWrapperBoxes->False}], Cell[StyleData["PrimaryPlaceholder", "Presentation"]], Cell[StyleData["PrimaryPlaceholder", "Condensed"]], Cell[StyleData["PrimaryPlaceholder", "SlideShow"]], Cell[StyleData["PrimaryPlaceholder", "Printout"]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["FormatType Styles", "Section"], 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. This is particularly true of Input and Output.\ \>", "Text"], Cell[StyleData["CellExpression"], PageWidth->Infinity, CellMargins->{{6, Inherited}, {Inherited, Inherited}}, ShowCellLabel->False, ShowSpecialCharacters->False, AllowInlineCells->False, Hyphenation->False, AutoItalicWords->{}, StyleMenuListing->None, FontFamily->"Courier", FontSize->12, Background->GrayLevel[1]], Cell[StyleData["InputForm"], InputAutoReplacements->{}, AllowInlineCells->False, Hyphenation->False, StyleMenuListing->None, FontFamily->"Courier"], Cell[StyleData["OutputForm"], PageWidth->Infinity, TextAlignment->Left, LineSpacing->{0.6, 1}, StyleMenuListing->None, FontFamily->"Courier"], Cell[StyleData["StandardForm"], InputAutoReplacements->{ "->"->"\[Rule]", ":>"->"\[RuleDelayed]", "<="->"\[LessEqual]", ">="->"\[GreaterEqual]", "!="->"\[NotEqual]", "=="->"\[Equal]", Inherited}, "TwoByteSyntaxCharacterAutoReplacement"->True, LineSpacing->{1.25, 0}, StyleMenuListing->None, FontFamily->"Courier"], Cell[StyleData["TraditionalForm"], InputAutoReplacements->{ "->"->"\[Rule]", ":>"->"\[RuleDelayed]", "<="->"\[LessEqual]", ">="->"\[GreaterEqual]", "!="->"\[NotEqual]", "=="->"\[Equal]", Inherited}, "TwoByteSyntaxCharacterAutoReplacement"->True, LineSpacing->{1.25, 0}, SingleLetterItalics->True, TraditionalFunctionNotation->True, DelimiterMatching->None, StyleMenuListing->None], Cell["\<\ The style defined below is mixed in to any cell that is in an \ inline cell within another.\ \>", "Text"], Cell[StyleData["InlineCell"], LanguageCategory->"Formula", ScriptLevel->1, StyleMenuListing->None], Cell[StyleData["InlineCellEditing"], StyleMenuListing->None, Background->RGBColor[0.964706, 0.929412, 0.839216]] }, Closed]], Cell[CellGroupData[{ Cell["Automatic Styles", "Section"], Cell["\<\ The cells below define styles that are used to affect the display \ of certain types of objects in typeset expressions. For example, \ \"UnmatchedBracket\" style defines how unmatched bracket, curly bracket, and \ parenthesis characters are displayed (typically by coloring them to make them \ stand out).\ \>", "Text"], Cell[StyleData["UnmatchedBracket"], StyleMenuListing->None, FontColor->RGBColor[0.760006, 0.330007, 0.8]], Cell[StyleData["Completions"], StyleMenuListing->None, FontFamily->"Courier"] }, Closed]], Cell[CellGroupData[{ Cell["Styles from HelpBrowser", "Section"], Cell[CellGroupData[{ Cell[StyleData["MathCaption"], CellFrame->{{0, 0}, {0, 0.5}}, CellMargins->{{66, 12}, {2, 24}}, PageBreakBelow->False, CellFrameMargins->{{8, 8}, {8, 2}}, CellFrameColor->GrayLevel[0.700008], CellFrameLabelMargins->4, LineSpacing->{1, 1}, ParagraphSpacing->{0, 8}, StyleMenuListing->None, FontColor->GrayLevel[0.2]], Cell[StyleData["MathCaption", "Presentation"], FontSize->18], Cell[StyleData["MathCaption", "SlideShow"]], Cell[StyleData["MathCaption", "Printout"], CellMargins->{{39, 0}, {0, 14}}, Hyphenation->True, FontSize->9, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ObjectName"], ShowCellBracket->True, CellMargins->{{66, 4}, {8, 8}}, Evaluatable->True, CellGroupingRules->"InputGrouping", PageBreakWithin->False, GroupPageBreakWithin->False, CellLabelAutoDelete->False, CellLabelMargins->{{14, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultInputFormatType, ShowSpecialCharacters->Automatic, "TwoByteSyntaxCharacterAutoReplacement"->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, LanguageCategory->"Mathematica", FormatType->StandardForm, ShowStringCharacters->True, NumberMarks->True, StyleMenuListing->None, FontWeight->"Bold"], Cell[StyleData["ObjectName", "Presentation"], FontSize->18], Cell[StyleData["ObjectName", "SlideShow"]], Cell[StyleData["ObjectName", "Printout"], ShowCellBracket->False, CellMargins->{{39, 0}, {6, 6}}, FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Usage"], ShowCellBracket->True, CellMargins->{{66, 4}, {8, 8}}, Evaluatable->True, CellGroupingRules->"InputGrouping", PageBreakWithin->False, GroupPageBreakWithin->False, CellLabelAutoDelete->False, CellLabelMargins->{{14, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultInputFormatType, ShowSpecialCharacters->Automatic, "TwoByteSyntaxCharacterAutoReplacement"->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, LanguageCategory->"Mathematica", FormatType->StandardForm, ShowStringCharacters->True, NumberMarks->True, StyleMenuListing->None, FontWeight->"Bold"], Cell[StyleData["Usage", "Presentation"], FontSize->18], Cell[StyleData["Usage", "SlideShow"]], Cell[StyleData["Usage", "Printout"], ShowCellBracket->False, CellMargins->{{39, 0}, {6, 6}}, FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Notes"], ShowCellBracket->True, CellMargins->{{66, 4}, {8, 8}}, Evaluatable->True, CellGroupingRules->"InputGrouping", PageBreakWithin->False, GroupPageBreakWithin->False, CellLabelAutoDelete->False, CellLabelMargins->{{14, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultInputFormatType, ShowSpecialCharacters->Automatic, "TwoByteSyntaxCharacterAutoReplacement"->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, LanguageCategory->"Mathematica", FormatType->StandardForm, ShowStringCharacters->True, NumberMarks->True, StyleMenuListing->None, FontWeight->"Bold"], Cell[StyleData["Notes", "Presentation"], FontSize->18], Cell[StyleData["Notes", "SlideShow"]], Cell[StyleData["Notes", "Printout"], ShowCellBracket->False, CellMargins->{{39, 0}, {6, 6}}, FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["InlineOutput"], ShowCellBracket->True, CellMargins->{{66, 4}, {8, 8}}, Evaluatable->True, CellGroupingRules->"InputGrouping", PageBreakWithin->False, GroupPageBreakWithin->False, CellLabelAutoDelete->False, CellLabelMargins->{{14, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultInputFormatType, ShowSpecialCharacters->Automatic, "TwoByteSyntaxCharacterAutoReplacement"->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, LanguageCategory->"Mathematica", FormatType->StandardForm, ShowStringCharacters->True, NumberMarks->True, StyleMenuListing->None, FontWeight->"Bold"], Cell[StyleData["InlineOutput", "Presentation"], FontSize->18], Cell[StyleData["InlineOutput", "SlideShow"]], Cell[StyleData["InlineOutput", "Printout"], ShowCellBracket->False, CellMargins->{{39, 0}, {6, 6}}, FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell["Emphasis Boxes and Pictures", "Subsection"], Cell[CellGroupData[{ Cell[StyleData["Box"], CellFrame->0.5, CellMargins->{{27, 12}, {0, 8}}, CellHorizontalScrolling->True, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], StyleMenuListing->None, Background->RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions->{BoxFrame->0.5, BoxMargins->True}, GridBoxOptions->{ColumnSpacings->1}], Cell[StyleData["Box", "Presentation"], FontSize->18], Cell[StyleData["Box", "SlideShow"]], Cell[StyleData["Box", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[0.900008]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DoubleBox"], CellFrame->0.5, CellMargins->{{27, 12}, {0, 8}}, CellHorizontalScrolling->True, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], StyleMenuListing->None, Background->RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions->{BoxFrame->0.5, BoxMargins->True}, GridBoxOptions->{ColumnSpacings->2, RowAlignments->Top}], Cell[StyleData["DoubleBox", "Presentation"], FontSize->18], Cell[StyleData["DoubleBox", "SlideShow"]], Cell[StyleData["DoubleBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[0.900008]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["1ColumnBox"], CellFrame->0.5, CellMargins->{{27, 12}, {0, 8}}, CellHorizontalScrolling->True, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], LineIndent->0, StyleMenuListing->None, Background->RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions->{BoxFrame->0.5, BoxMargins->True}, GridBoxOptions->{ColumnSpacings->1}], Cell[StyleData["1ColumnBox", "Presentation"], FontSize->18], Cell[StyleData["1ColumnBox", "SlideShow"]], Cell[StyleData["1ColumnBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[0.900008]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["2ColumnBox"], CellFrame->0.5, CellMargins->{{27, 12}, {0, 8}}, CellHorizontalScrolling->True, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], SingleLetterItalics->False, LineIndent->0, StyleMenuListing->None, Background->RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions->{BoxFrame->0.5, BoxMargins->True}, GridBoxOptions->{ColumnWidths->{0.31, 0.67}}], Cell[StyleData["2ColumnBox", "Presentation"], FontSize->18], Cell[StyleData["2ColumnBox", "SlideShow"]], Cell[StyleData["2ColumnBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->9, Background->GrayLevel[0.900008]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["2ColumnEvenBox"], CellFrame->0.5, CellMargins->{{27, 12}, {0, 8}}, CellHorizontalScrolling->True, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], LineIndent->0, StyleMenuListing->None, Background->RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions->{BoxFrame->0.5, BoxMargins->True}, GridBoxOptions->{ColumnWidths->0.46}], Cell[StyleData["2ColumnEvenBox", "Presentation"], FontSize->18], Cell[StyleData["2ColumnEvenBox", "SlideShow"]], Cell[StyleData["2ColumnEvenBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[0.900008]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["2ColumnSmallBox"], CellFrame->0.5, CellMargins->{{27, 12}, {0, 8}}, CellHorizontalScrolling->True, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], LineIndent->0, StyleMenuListing->None, Background->RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions->{BoxFrame->0.5, BoxMargins->True}, GridBoxOptions->{ColumnSpacings->1.5, ColumnWidths->0.35, ColumnAlignments->{Right, Left}}], Cell[StyleData["2ColumnSmallBox", "Presentation"], FontSize->18], Cell[StyleData["2ColumnSmallBox", "SlideShow"]], Cell[StyleData["2ColumnSmallBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[0.900008]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["3ColumnBox"], CellFrame->0.5, CellMargins->{{27, 12}, {0, 8}}, CellHorizontalScrolling->True, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], LineIndent->0, StyleMenuListing->None, Background->RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions->{BoxFrame->0.5, BoxMargins->True}, GridBoxOptions->{ColumnWidths->0.32}], Cell[StyleData["3ColumnBox", "Presentation"], FontSize->18], Cell[StyleData["3ColumnBox", "SlideShow"]], Cell[StyleData["3ColumnBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[0.900008]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["3ColumnSmallBox"], CellFrame->0.5, CellMargins->{{27, 12}, {0, 8}}, CellHorizontalScrolling->True, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], LineIndent->0, StyleMenuListing->None, Background->RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions->{BoxFrame->0.5, BoxMargins->True}, GridBoxOptions->{ColumnSpacings->1.5, ColumnWidths->0.24, ColumnAlignments->{Right, Center, Left}}], Cell[StyleData["3ColumnSmallBox", "Presentation"], FontSize->18], Cell[StyleData["3ColumnSmallBox", "SlideShow"]], Cell[StyleData["3ColumnSmallBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[0.900008]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["4ColumnBox"], CellFrame->0.5, CellMargins->{{27, 12}, {0, 8}}, CellHorizontalScrolling->True, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], SingleLetterItalics->False, LineIndent->0, StyleMenuListing->None, Background->RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions->{BoxFrame->0.5, BoxMargins->True}, GridBoxOptions->{ColumnWidths->{0.13, 0.35, 0.13, 0.35}}], Cell[StyleData["4ColumnBox", "Presentation"], FontSize->18], Cell[StyleData["4ColumnBox", "SlideShow"]], Cell[StyleData["4ColumnBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[0.900008]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["5ColumnBox"], CellFrame->0.5, CellMargins->{{27, 12}, {0, 8}}, CellHorizontalScrolling->True, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], LineIndent->0, StyleMenuListing->None, Background->RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions->{BoxFrame->0.5, BoxMargins->True}, GridBoxOptions->{ColumnWidths->0.202}], Cell[StyleData["5ColumnBox", "Presentation"], FontSize->18], Cell[StyleData["5ColumnBox", "SlideShow"]], Cell[StyleData["5ColumnBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->9, Background->GrayLevel[0.900008]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["6ColumnBox"], CellFrame->0.5, CellMargins->{{27, 12}, {0, 8}}, CellHorizontalScrolling->True, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], LineIndent->0, StyleMenuListing->None, Background->RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions->{BoxFrame->0.5, BoxMargins->True}, GridBoxOptions->{ColumnWidths->{0.12, 0.22, 0.12, 0.12, 0.22, 0.12}}], Cell[StyleData["6ColumnBox", "Presentation"], FontSize->18], Cell[StyleData["6ColumnBox", "SlideShow"]], Cell[StyleData["6ColumnBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[0.900008]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["FramedBox"], CellFrame->0.5, CellMargins->{{27, 12}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions->{RowSpacings->1.5, ColumnAlignments->{Left}}], Cell[StyleData["FramedBox", "Presentation"], FontSize->18], Cell[StyleData["FramedBox", "SlideShow"]], Cell[StyleData["FramedBox", "Printout"], CellMargins->{{2, 4}, {0, 8}}, FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DefinitionBox"], CellFrame->0.5, CellMargins->{{27, 12}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.4, 0.6}, ColumnAlignments->{Left}}], Cell[StyleData["DefinitionBox", "Presentation"], FontSize->18], Cell[StyleData["DefinitionBox", "SlideShow"]], Cell[StyleData["DefinitionBox", "Printout"], CellMargins->{{2, 4}, {0, 8}}, FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DefinitionBox3Col"], CellFrame->0.5, CellMargins->{{27, 12}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.35, 0.2, 0.45}, ColumnAlignments->{Left}}], Cell[StyleData["DefinitionBox3Col", "Presentation"], FontSize->18], Cell[StyleData["DefinitionBox3Col", "SlideShow"]], Cell[StyleData["DefinitionBox3Col", "Printout"], CellMargins->{{2, 4}, {0, 8}}, FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DefinitionBox4Col"], CellFrame->0.5, CellMargins->{{27, 12}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.15, 0.35, 0.15, 0.35}, ColumnAlignments->{Left}}], Cell[StyleData["DefinitionBox4Col", "Presentation"], FontSize->18], Cell[StyleData["DefinitionBox4Col", "SlideShow"]], Cell[StyleData["DefinitionBox4Col", "Printout"], CellMargins->{{2, 4}, {0, 8}}, FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DefinitionBox5Col"], CellFrame->0.5, CellMargins->{{27, 12}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->0.2, ColumnAlignments->{Left}}], Cell[StyleData["DefinitionBox5Col", "Presentation"], FontSize->18], Cell[StyleData["DefinitionBox5Col", "SlideShow"]], Cell[StyleData["DefinitionBox5Col", "Printout"], CellMargins->{{2, 4}, {0, 8}}, FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DefinitionBox6Col"], CellFrame->0.5, CellMargins->{{27, 12}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.13, 0.24, 0.13, 0.13, 0.24, 0.13}, ColumnAlignments->{Left}}], Cell[StyleData["DefinitionBox6Col", "Presentation"], FontSize->18], Cell[StyleData["DefinitionBox6Col", "SlideShow"]], Cell[StyleData["DefinitionBox6Col", "Printout"], CellMargins->{{2, 4}, {0, 8}}, FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TopBox"], CellFrame->{{0.5, 0.5}, {0, 0.5}}, CellMargins->{{27, 12}, {0, 8}}, CellHorizontalScrolling->True, PageBreakBelow->False, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.31, 0.62}, ColumnAlignments->{Left}}], Cell[StyleData["TopBox", "Presentation"], FontSize->18], Cell[StyleData["TopBox", "SlideShow"]], Cell[StyleData["TopBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["MiddleBox"], CellFrame->{{0.5, 0.5}, {0, 0}}, CellMargins->{{27, 12}, {0, -7}}, CellHorizontalScrolling->True, PageBreakAbove->False, PageBreakBelow->False, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.31, 0.62}, ColumnAlignments->{Left}}], Cell[StyleData["MiddleBox", "Presentation"], FontSize->18], Cell[StyleData["MiddleBox", "SlideShow"]], Cell[StyleData["MiddleBox", "Printout"], CellMargins->{{2, 0}, {0, 2}}, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["BottomBox"], CellFrame->{{0.5, 0.5}, {0.5, 0}}, CellMargins->{{27, 12}, {0, -7}}, CellHorizontalScrolling->True, PageBreakAbove->False, PageBreakBelow->False, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.31, 0.62}, ColumnAlignments->{Left}}], Cell[StyleData["BottomBox", "Presentation"], FontSize->18], Cell[StyleData["BottomBox", "SlideShow"]], Cell[StyleData["BottomBox", "Printout"], CellMargins->{{2, 0}, {0, -5}}, FontSize->10, Background->GrayLevel[1], GridBoxOptions->{RowMinHeight->2.2}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TopSpanBox"], CellFrame->{{0.5, 0.5}, {0, 0.5}}, CellMargins->{{27, 12}, {-2, 8}}, CellHorizontalScrolling->True, PageBreakBelow->False, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.9, 0.03}, ColumnAlignments->{Left}}], Cell[StyleData["TopSpanBox", "Presentation"], FontSize->18], Cell[StyleData["TopSpanBox", "SlideShow"]], Cell[StyleData["TopSpanBox", "Printout"], CellMargins->{{2, 0}, {-2, 8}}, FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["MiddleSpanBox"], CellFrame->{{0.5, 0.5}, {0, 0}}, CellMargins->{{27, 12}, {0, 0}}, CellHorizontalScrolling->True, PageBreakAbove->False, PageBreakBelow->False, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[0.964706, 0.929412, 0.839216], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.9, 0.03}, ColumnAlignments->{Left}}], Cell[StyleData["MiddleSpanBox", "Presentation"], FontSize->18], Cell[StyleData["MiddleSpanBox", "SlideShow"]], Cell[StyleData["MiddleSpanBox", "Printout"], CellMargins->{{2, 0}, {-5, 0}}, FontSize->10, Background->GrayLevel[1], GridBoxOptions->{RowMinHeight->1.8}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Picture"], CellMargins->{{27, Inherited}, {4, 4}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, StyleMenuListing->None], Cell[StyleData["Picture", "Presentation"], FontSize->18], Cell[StyleData["Picture", "SlideShow"]], Cell[StyleData["Picture", "Printout"], CellMargins->{{2, Inherited}, {4, 4}}, Magnification->0.65] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["OpenCloseItemizedPicture"], CellMargins->{{88, 4}, {4, 4}}, PrivateCellOptions->{"DefaultCellGroupOpen"->False}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, StyleMenuListing->None], Cell[StyleData["OpenCloseItemizedPicture", "Presentation"], FontSize->18], Cell[StyleData["OpenCloseItemizedPicture", "SlideShow"]], Cell[StyleData["OpenCloseItemizedPicture", "Printout"], CellMargins->{{76, 2}, {0, 0}}, CellElementSpacings->{"CellMinHeight"->1, "ClosedCellHeight"->0}, CellOpen->False] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ItemizedPicture"], CellMargins->{{88, 4}, {4, 4}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, StyleMenuListing->None], Cell[StyleData["ItemizedPicture", "Presentation"], FontSize->18], Cell[StyleData["ItemizedPicture", "SlideShow"]], Cell[StyleData["ItemizedPicture", "Printout"], CellMargins->{{77, 2}, {4, -4}}, Magnification->0.5] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ListGraphic"], CellMargins->{{88, 4}, {4, 4}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, StyleMenuListing->None], Cell[StyleData["ListGraphic", "Presentation"], FontSize->18], Cell[StyleData["ListGraphic", "SlideShow"]], Cell[StyleData["ListGraphic", "Printout"], CellMargins->{{77, 2}, {4, -4}}, Magnification->0.5] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ListNoteBox"], CellFrame->0.5, CellMargins->{{88, 12}, {8, 8}}, CellHorizontalScrolling->True, CellFrameColor->RGBColor[0.74902, 0.694118, 0.552941], LineIndent->0, StyleMenuListing->None, Background->RGBColor[0.964706, 0.929412, 0.839216], FrameBoxOptions->{BoxMargins->{{1, 1}, {1.5, 1.5}}}, GridBoxOptions->{ColumnSpacings->1}], Cell[StyleData["ListNoteBox", "Presentation"], FontSize->18], Cell[StyleData["ListNoteBox", "SlideShow"]], Cell[StyleData["ListNoteBox", "Printout"], CellMargins->{{77, 4}, {6, 2}}, FontSize->10, Background->GrayLevel[0.900008]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["PictureGroup"], CellMargins->{{41, 4}, {0, 4}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, StyleMenuListing->None], Cell[StyleData["PictureGroup", "Presentation"], FontSize->18], Cell[StyleData["PictureGroup", "SlideShow"]], Cell[StyleData["PictureGroup", "Printout"], CellMargins->{{76, 2}, {0, 0}}, CellElementSpacings->{"CellMinHeight"->1, "ClosedCellHeight"->0}, CellOpen->False] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Sound"], ShowCellBracket->True, CellMargins->{{27, Inherited}, {0, 8}}, StyleMenuListing->None], Cell[StyleData["Sound", "Presentation"], FontSize->18], Cell[StyleData["Sound", "SlideShow"]], Cell[StyleData["Sound", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Tables", "Subsection"], Cell[CellGroupData[{ Cell[StyleData["2ColumnTable"], CellMargins->{{35, 4}, {0, 8}}, CellHorizontalScrolling->True, LineIndent->0, StyleMenuListing->None, GridBoxOptions->{ColumnWidths->{0.34, 0.64}, ColumnAlignments->{Left}}], Cell[StyleData["2ColumnTable", "Presentation"], FontSize->18], Cell[StyleData["2ColumnTable", "SlideShow"]], Cell[StyleData["2ColumnTable", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["2ColumnEvenTable"], CellMargins->{{35, 4}, {0, 8}}, CellHorizontalScrolling->True, LineIndent->0, StyleMenuListing->None, GridBoxOptions->{ColumnWidths->0.49, ColumnAlignments->{Left}}], Cell[StyleData["2ColumnEvenTable", "Presentation"], FontSize->18], Cell[StyleData["2ColumnEvenTable", "SlideShow"]], Cell[StyleData["2ColumnEvenTable", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["3ColumnTable"], CellMargins->{{35, 4}, {0, 8}}, CellHorizontalScrolling->True, LineIndent->0, StyleMenuListing->None, GridBoxOptions->{ColumnWidths->{0.28, 0.28, 0.43}, ColumnAlignments->{Left}}], Cell[StyleData["3ColumnTable", "Presentation"], FontSize->18], Cell[StyleData["3ColumnTable", "SlideShow"]], Cell[StyleData["3ColumnTable", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->9] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Slide Show Styles", "Section"], Cell[CellGroupData[{ Cell[StyleData["SlideShowNavigationBar"], Editable->False, CellFrame->True, CellMargins->{{0, 0}, {3, 3}}, CellElementSpacings->{"CellMinHeight"->0.8125}, CellGroupingRules->{"SectionGrouping", 30}, CellFrameMargins->False, CellFrameColor->GrayLevel[1], CellFrameLabelMargins->False, TextAlignment->Center, CounterIncrements->"SlideShowNavigationBar", StyleMenuListing->None, FontSize->10, Background->GrayLevel[0.8], Magnification->1, GridBoxOptions->{GridBaseline->Center, RowSpacings->0, ColumnSpacings->0, ColumnWidths->{3.5, 3.5, 3.5, 3.5, 13, 5, 4}, RowAlignments->Baseline, ColumnAlignments->{ Center, Center, Center, Center, Center, Center, Right, Center}}], Cell[StyleData["SlideShowNavigationBar", "Presentation"]], Cell[StyleData["SlideShowNavigationBar", "SlideShow"], Deletable->False, ShowCellBracket->False, CellMargins->{{-1, -1}, {-1, -1}}, PageBreakAbove->True, CellFrameMargins->{{1, 1}, {0, 0}}], Cell[StyleData["SlideShowNavigationBar", "Printout"], CellMargins->{{18, 4}, {4, 4}}, LineSpacing->{1, 3}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SlideShowSection"], CellFrame->{{0, 0}, {0, 0.5}}, CellMargins->{{0, 0}, {10, 0}}, CellGroupingRules->{"SectionGrouping", 40}, PageBreakBelow->False, CellFrameMargins->{{12, 4}, {6, 12}}, InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.35999999999999999, \ -0.10000000000000001}, {0, 0}}, BoxBaselineShift -> -0.20000000000000001], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica", "gridMathematica"->FormBox[ RowBox[ {"grid", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], "webMathematica"->FormBox[ RowBox[ {"web", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.17499999999999999, 0}, {0, 0}}]}], TextForm], Inherited}, CounterIncrements->"Section", CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->18, FontWeight->"Plain", FontColor->GrayLevel[1], Background->RGBColor[0.408011, 0.440726, 0.8]], Cell[StyleData["SlideShowSection", "Presentation"], CellFrameMargins->{{20, 10}, {10, 18}}, FontSize->27], Cell[StyleData["SlideShowSection", "SlideShow"], ShowCellBracket->False, PageBreakAbove->True], Cell[StyleData["SlideShowSection", "Printout"], CellMargins->{{18, 30}, {0, 30}}, CellFrameMargins->5, FontSize->14] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SlideHyperlink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontSize->26, FontColor->GrayLevel[0.400015], ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookLocate[ #2]}]&), Active->True, ButtonMinHeight->0.85, ButtonMargins->0.5, ButtonNote->None}], Cell[StyleData["SlideHyperlink", "Presentation"], CellMargins->{{14, 10}, {6, 12}}, FontSize->36], Cell[StyleData["SlideHyperlink", "SlideShow"]], Cell[StyleData["SlideHyperlink", "Printout"], FontSize->10, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SlideTOCLink"], CellMargins->{{24, Inherited}, {Inherited, Inherited}}, StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontFamily->"Helvetica", ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookLocate[ #2]}]&), Active->True, ButtonMargins->1.5, ButtonNote->ButtonData}], Cell[StyleData["SlideTOCLink", "Presentation"], CellMargins->{{35, 10}, {8, 8}}, FontSize->18], Cell[StyleData["SlideTOCLink", "SlideShow"]], Cell[StyleData["SlideTOCLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SlideTOC"], CellDingbat->"\[Bullet]", CellMargins->{{18, Inherited}, {Inherited, Inherited}}, StyleMenuListing->None, FontFamily->"Helvetica"], Cell[StyleData["SlideTOC", "Presentation"], CellMargins->{{25, 10}, {10, 5}}, FontSize->18], Cell[StyleData["SlideTOC", "SlideShow"], FontSize->14], Cell[StyleData["SlideTOC", "Printout"], FontSize->10, FontColor->GrayLevel[0]] }, Closed]] }, 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[1776, 53, 68, 1, 115, "Title"], Cell[1847, 56, 298, 6, 85, "Text"], Cell[2148, 64, 556, 10, 119, "Input"], Cell[2707, 76, 324, 8, 63, "Text"], Cell[CellGroupData[{ Cell[3056, 88, 101, 2, 49, "Input"], Cell[3160, 92, 121, 2, 72, "Output"], Cell[3284, 96, 53, 1, 32, "Output"] }, Open ]], Cell[3352, 100, 226, 4, 63, "Text"], Cell[CellGroupData[{ Cell[3603, 108, 107, 2, 49, "Input"], Cell[3713, 112, 57, 1, 45, "Output"], Cell[3773, 115, 53, 1, 32, "Output"] }, Open ]], Cell[3841, 119, 257, 6, 63, "Text"], Cell[CellGroupData[{ Cell[4123, 129, 115, 2, 49, "Input"], Cell[4241, 133, 54, 1, 57, "Output"], Cell[4298, 136, 53, 1, 32, "Output"] }, Open ]], Cell[4366, 140, 334, 7, 84, "Input"], Cell[CellGroupData[{ Cell[4725, 151, 133, 3, 54, "Subsubsection"], Cell[4861, 156, 265, 6, 63, "Text"], Cell[CellGroupData[{ Cell[5151, 166, 103, 2, 49, "Input"], Cell[5257, 170, 59, 1, 45, "Output"], Cell[5319, 173, 53, 1, 32, "Output"] }, Open ]], Cell[5387, 177, 119, 2, 40, "Text"], Cell[CellGroupData[{ Cell[5531, 183, 115, 2, 49, "Input"], Cell[5649, 187, 54, 1, 57, "Output"], Cell[5706, 190, 53, 1, 32, "Output"] }, Open ]], Cell[5774, 194, 213, 6, 40, "Text"], Cell[CellGroupData[{ Cell[6012, 204, 155, 3, 49, "Input"], Cell[6170, 209, 71, 1, 58, "Output"], Cell[6244, 212, 53, 1, 32, "Output"] }, Open ]], Cell[6312, 216, 496, 10, 119, "Input"], Cell[6811, 228, 286, 6, 63, "Text"], Cell[CellGroupData[{ Cell[7122, 238, 106, 2, 49, "Input"], Cell[7231, 242, 40, 1, 49, "Output"], Cell[7274, 245, 53, 1, 32, "Output"] }, Open ]], Cell[7342, 249, 155, 4, 40, "Text"], Cell[CellGroupData[{ Cell[7522, 257, 184, 4, 84, "Input"], Cell[7709, 263, 88, 1, 72, "Output"], Cell[7800, 266, 53, 1, 32, "Output"] }, Open ]], Cell[7868, 270, 712, 15, 137, "Input"], Cell[8583, 287, 226, 5, 63, "Text"], Cell[CellGroupData[{ Cell[8834, 296, 102, 2, 49, "Input"], Cell[8939, 300, 40, 1, 49, "Output"], Cell[8982, 303, 53, 1, 32, "Output"] }, Open ]], Cell[9050, 307, 103, 1, 40, "Text"], Cell[CellGroupData[{ Cell[9178, 312, 58, 1, 32, "Input"], Cell[9239, 315, 35, 1, 32, "Output"] }, Open ]], Cell[9289, 319, 94, 1, 40, "Text"], Cell[CellGroupData[{ Cell[9408, 324, 212, 4, 84, "Input"], Cell[9623, 330, 88, 1, 72, "Output"], Cell[9714, 333, 54, 1, 32, "Output"] }, Open ]], Cell[9783, 337, 206, 6, 40, "Text"], Cell[CellGroupData[{ Cell[10014, 347, 226, 4, 84, "Input"], Cell[10243, 353, 73, 1, 58, "Output"], Cell[10319, 356, 53, 1, 32, "Output"] }, Open ]], Cell[10387, 360, 1142, 23, 224, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[11566, 388, 133, 3, 54, "Subsubsection"], Cell[11702, 393, 381, 7, 85, "Text"], Cell[CellGroupData[{ Cell[12108, 404, 104, 2, 49, "Input"], Cell[12215, 408, 61, 1, 46, "Output"], Cell[12279, 411, 53, 1, 32, "Output"] }, Open ]], Cell[12347, 415, 95, 1, 40, "Text"], Cell[CellGroupData[{ Cell[12467, 420, 148, 3, 67, "Input"], Cell[12618, 425, 92, 1, 58, "Output"], Cell[12713, 428, 53, 1, 32, "Output"] }, Open ]], Cell[12781, 432, 188, 5, 63, "Text"], Cell[12972, 439, 258, 6, 67, "Input"], Cell[13233, 447, 161, 5, 40, "Text"], Cell[CellGroupData[{ Cell[13419, 456, 66, 1, 32, "Input"], Cell[13488, 459, 56, 1, 44, "Output"] }, Open ]], Cell[13559, 463, 119, 2, 40, "Text"], Cell[CellGroupData[{ Cell[13703, 469, 106, 2, 49, "Input"], Cell[13812, 473, 58, 1, 57, "Output"], Cell[13873, 476, 53, 1, 32, "Output"] }, Open ]], Cell[13941, 480, 215, 7, 40, "Text"], Cell[CellGroupData[{ Cell[14181, 491, 157, 3, 49, "Input"], Cell[14341, 496, 79, 1, 63, "Output"], Cell[14423, 499, 52, 1, 32, "Output"] }, Open ]], Cell[14490, 503, 379, 8, 102, "Input"], Cell[14872, 513, 535, 9, 108, "Text"], Cell[15410, 524, 132, 2, 40, "Text"], Cell[CellGroupData[{ Cell[15567, 530, 137, 3, 49, "Input"], Cell[15707, 535, 97, 2, 58, "Output"], Cell[15807, 539, 53, 1, 32, "Output"] }, Open ]], Cell[15875, 543, 109, 2, 40, "Text"], Cell[CellGroupData[{ Cell[16009, 549, 157, 3, 49, "Input"], Cell[16169, 554, 79, 1, 63, "Output"], Cell[16251, 557, 52, 1, 32, "Output"] }, Open ]], Cell[16318, 561, 117, 2, 40, "Text"], Cell[CellGroupData[{ Cell[16460, 567, 224, 4, 84, "Input"], Cell[16687, 573, 136, 2, 72, "Output"], Cell[16826, 577, 53, 1, 32, "Output"] }, Open ]], Cell[16894, 581, 661, 14, 137, "Input"], Cell[17558, 597, 160, 5, 40, "Text"], Cell[CellGroupData[{ Cell[17743, 606, 107, 2, 49, "Input"], Cell[17853, 610, 47, 1, 54, "Output"], Cell[17903, 613, 53, 1, 32, "Output"] }, Open ]], Cell[17971, 617, 119, 2, 40, "Text"], Cell[CellGroupData[{ Cell[18115, 623, 178, 3, 84, "Input"], Cell[18296, 628, 83, 1, 58, "Output"], Cell[18382, 631, 52, 1, 32, "Output"] }, Open ]], Cell[18449, 635, 217, 7, 40, "Text"], Cell[CellGroupData[{ Cell[18691, 646, 247, 5, 102, "Input"], Cell[18941, 653, 80, 1, 63, "Output"], Cell[19024, 656, 52, 1, 32, "Output"] }, Open ]], Cell[19091, 660, 904, 18, 189, "Input"], Cell[19998, 680, 321, 6, 85, "Text"], Cell[20322, 688, 111, 2, 40, "Text"], Cell[CellGroupData[{ Cell[20458, 694, 116, 2, 49, "Input"], Cell[20577, 698, 40, 1, 49, "Output"], Cell[20620, 701, 53, 1, 32, "Output"] }, Open ]], Cell[20688, 705, 109, 2, 40, "Text"], Cell[CellGroupData[{ Cell[20822, 711, 247, 5, 102, "Input"], Cell[21072, 718, 80, 1, 63, "Output"], Cell[21155, 721, 52, 1, 32, "Output"] }, Open ]], Cell[21222, 725, 94, 1, 40, "Text"], Cell[CellGroupData[{ Cell[21341, 730, 302, 6, 102, "Input"], Cell[21646, 738, 83, 1, 58, "Output"], Cell[21732, 741, 52, 1, 32, "Output"] }, Open ]], Cell[21799, 745, 1275, 25, 259, "Input"], Cell[23077, 772, 105, 1, 40, "Text"], Cell[CellGroupData[{ Cell[23207, 777, 100, 2, 49, "Input"], Cell[23310, 781, 40, 1, 48, "Output"], Cell[23353, 784, 53, 1, 32, "Output"] }, Open ]], Cell[23421, 788, 95, 1, 40, "Text"], Cell[CellGroupData[{ Cell[23541, 793, 261, 5, 102, "Input"], Cell[23805, 800, 80, 1, 63, "Output"], Cell[23888, 803, 52, 1, 32, "Output"] }, Open ]], Cell[23955, 807, 193, 6, 40, "Text"], Cell[CellGroupData[{ Cell[24173, 817, 314, 6, 102, "Input"], Cell[24490, 825, 81, 1, 58, "Output"], Cell[24574, 828, 52, 1, 32, "Output"] }, Open ]], Cell[24641, 832, 1610, 31, 329, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[26288, 868, 104, 3, 54, "Subsubsection"], Cell[CellGroupData[{ Cell[26417, 875, 1354, 21, 324, "Input"], Cell[27774, 898, 1666, 31, 251, "Output"] }, Open ]], Cell[29455, 932, 47, 1, 32, "Input"], Cell[29505, 935, 46, 1, 32, "Input"] }, Open ]] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)