(************** 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["\<Graphics`Polyhedra`\>"]\), "\n",
\(Needs["\<Graphics`Shapes`\>"]\), "\[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 = {"\<Mercure\>", "\<V\[EAcute]nus\>", \ "\<Terre\>", \ \
"\<Mars\>", \ "\<Jupiter\>", \ "\<Saturne\>"};\)\), "\[IndentingNewLine]",
\(\(polyedres = {"\<Sph\[EGrave]re inscrite dans l'oct\[EGrave]dre\>", \
"\<Sph\[EGrave]re circonscrite \[AGrave] l'octa\[EGrave]dre\>", "\<Sph\
\[EGrave]re circonscrite \[AGrave] l'icosa\[EGrave]dre\>", "\<Sph\[EGrave]re \
circonscrite au dod\[EAcute]ca\[EGrave]dre\>", "\<Sph\[EGrave]re circonscrite \
au t\[EAcute]tra\[EGrave]dre\>", \[IndentingNewLine]"\<Sph\[EGrave]re \
circonscrite au cube\>"};\)\), "\[IndentingNewLine]",
\(\(table = {0.387099, 0.723332, 1, 1.523691, 5.202803,
9.53884};\)\), "\[IndentingNewLine]",
\(TableForm[Transpose[{planetes, polyedres, rayonexact, rayon, table}],
TableHeadings \[Rule] {None, {"\<Plan\[EGrave]te\>", "\<Orbite d\
\[EAcute]crite par (mod\[EGrave]le de Kepler)\>", "\<Rayon exact\>", "\<Rayon\
\>", "\<Valeurs des tables\>"}}]\)}], "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.
*******************************************************************)