(************** Content-type: application/mathematica **************

                    Mathematica-Compatible Notebook

This notebook can be used with any Mathematica-compatible
application, such as Mathematica, MathReader or Publicon. The data
for the notebook starts with the line containing stars above.

To get the notebook into a Mathematica-compatible application, do
one of the following:

* Save the data starting with the line of stars above into a file
  with a name ending in .nb, then open the file inside the
  application;

* Copy the data starting with the line of stars above to the
  clipboard, then use the Paste menu command inside the application.

Data for notebooks contains only printable 7-bit ASCII and can be
sent directly in email or through ftp in text mode.  Newlines can be
CR, LF or CRLF (Unix, Macintosh or MS-DOS style).

NOTE: If you modify the data for this notebook not in a Mathematica-
compatible application, you must delete the line below containing
the word CacheID, otherwise Mathematica-compatible applications may
try to use invalid cache data.

For more information on notebooks and Mathematica-compatible 
applications, contact Wolfram Research:
  web: http://www.wolfram.com
  email: info@wolfram.com
  phone: +1-217-398-0700 (U.S.)

Notebook reader applications are available free of charge from 
Wolfram Research.
*******************************************************************)

(*CacheID: 232*)


(*NotebookFileLineBreakTest
NotebookFileLineBreakTest*)
(*NotebookOptionsPosition[     13658,        381]*)
(*NotebookOutlinePosition[     51423,       1673]*)
(*  CellTagsIndexPosition[     51379,       1669]*)
(*WindowFrame->Normal*)



Notebook[{

Cell[CellGroupData[{
Cell["Continuously Iterated Generating Functions", "Title",
  TextAlignment->Center],

Cell[TextData[{
  "See ",
  StyleBox["Schroeder Polynomials - Experimental Results",
    FontSlant->"Italic"],
  " for notes on limitations and implementation. Uses the Iterate.m package."
}], "Text"],

Cell["\<\
The Continuous Iteration the Generating Functions of Parabolic Rational \
Neutral Maps with a Fixed Point at Zero\
\>", "Section"],

Cell[TextData[{
  "Let ",
  Cell[BoxData[
      \(TraditionalForm\`f(z)\)]],
  " be an the exponential generating function of a combinatorial structure \
where ",
  Cell[BoxData[
      \(TraditionalForm\`a(0) = 0\)]],
  " and ",
  Cell[BoxData[
      \(TraditionalForm\`a(1) = 1\)]],
  ", then ",
  Cell[BoxData[
      \(TraditionalForm\`\(f\^n\)(z)\)]],
  " is a parabolic rational neutral map with a fixed point at zero. The flow \
of ",
  Cell[BoxData[
      \(TraditionalForm\`\(f\^n\)(z)\)]],
  " is the exponential generating function of a family of combinatorial \
structures polynomial in ",
  Cell[BoxData[
      \(TraditionalForm\`f\_k\)]],
  "and ",
  Cell[BoxData[
      \(TraditionalForm\`n\)]],
  ". "
}], "Text"],

Cell[CellGroupData[{

Cell[BoxData[{
    \(\(\(<< Iterate`\)\(\[IndentingNewLine]\)
    \) (*\ 
      size\ controls\ the\ number\ of\ derivatives\ \(\(computed\)\(.\)\)\ *) \
\), "\[IndentingNewLine]", 
    \(\(size = 8;\)\), "\[IndentingNewLine]", 
    \(\(a[0] = 0;\)\), "\[IndentingNewLine]", 
    \(\(a[1] = 1;\)\), "\[IndentingNewLine]", 
    \(\(b[i_] := \(i!\)\ a[i];\)\), "\[IndentingNewLine]", 
    \(\(\(\(Derivative[1]\)[f]\)[p] = 1;\)\), "\n", 
    \(\(Iterate[f, n, z, p, size];\)\), "\[IndentingNewLine]", 
    \(\(\(Dyne[0] = 0;\)\(\[IndentingNewLine]\)
    \)\), "\[IndentingNewLine]", 
    \(\(Print["\<EGF:\>"];\)\), "\[IndentingNewLine]", 
    \(Table[a[k], {k, 0, size}]\), "\[IndentingNewLine]", 
    \(\(egf = 
        Table[Simplify[Dyne[k]], {k, 0, size}] /. \(\(Derivative[j_]\)[f]\)[
              p] \[Rule] 
            a[j]\ ;\)\[IndentingNewLine]\), "\[IndentingNewLine]", 
    \(\(Print["\<\n OGF:\>"];\)\), "\[IndentingNewLine]", 
    \(comb = Table[\(k!\)\ b[k], {k, 0, size}]\), "\[IndentingNewLine]", 
    \(\(ogf = 
        Table[Simplify[1/\(k!\)\ Dyne[k]], {k, 0, 
              size}] /. \(\(Derivative[j_]\)[f]\)[p] \[Rule] 
            b[j]\ ;\)\)}], "Input",
  Background->None],

Cell[BoxData[
    \("EGF:"\)], "Print"],

Cell[BoxData[
    \({0, 1, a[2], a[3], a[4], a[5], a[6], a[7], a[8]}\)], "Output"],

Cell[BoxData[
    \("\n OGF:"\)], "Print"],

Cell[BoxData[
    \({0, 1, 4\ a[2], 36\ a[3], 576\ a[4], 14400\ a[5], 518400\ a[6], 
      25401600\ a[7], 1625702400\ a[8]}\)], "Output"],

Cell[CellGroupData[{

Cell[BoxData[
    \(egf // InputForm\)], "Input"],

Cell["\<\
{0, 1, n*a[2], (n*(3*(-1 + n)*a[2]^2 + 2*a[3]))/2, 
 (n*(3*(3 - 5*n + 2*n^2)*a[2]^3 + 10*(-1 + n)*a[2]*a[3] + 2*a[4]))/2, 
 (n*(15*(-8 + 18*n - 13*n^2 + 3*n^3)*a[2]^4 + 5*(37 - 63*n + \
26*n^2)*a[2]^2*a[3] + 
    45*(-1 + n)*a[2]*a[4] + 6*(5*(-1 + n)*a[3]^2 + a[5])))/6, 
 (n*(45*(62 - 175*n + 178*n^2 - 77*n^3 + 12*n^4)*a[2]^5 + 
    30*(-184 + 427*n - 320*n^2 + 77*n^3)*a[2]^3*a[3] + 360*(4 - 7*n + \
3*n^2)*a[2]^2*
     a[4] + 28*(-1 + n)*a[2]*(10*(-7 + 5*n)*a[3]^2 + 9*a[5]) + 
    12*(35*(-1 + n)*a[3]*a[4] + 2*a[6])))/24, 
 (n*(63*(-314 + 1075*n - 1405*n^2 + 875*n^3 - 261*n^4 + 30*n^5)*a[2]^6 + 
    42*(1144 - 3350*n + 3545*n^2 - 1600*n^3 + 261*n^4)*a[2]^4*a[3] + 
    420*(-31 + 75*n - 59*n^2 + 15*n^3)*a[2]^3*a[4] + 28*(-1 + n)*a[2]^2*
     (5*(193 - 262*n + 85*n^2)*a[3]^2 + 18*(-5 + 4*n)*a[5]) + 
    56*(-1 + n)*a[2]*(5*(-31 + 23*n)*a[3]*a[4] + 6*a[6]) + 
    4*(70*(7 - 12*n + 5*n^2)*a[3]^3 + 168*(-1 + n)*a[3]*a[5] + 
      3*(35*(-1 + n)*a[4]^2 + 2*a[7]))))/24, 
 (n*(63*(1298 - 5301*n + 8510*n^2 - 6900*n^3 + 3002*n^4 - 669*n^5 + \
60*n^6)*a[2]^7 + 
    21*(-11282 + 40257*n - 54830*n^2 + 35625*n^3 - 11108*n^4 + \
1338*n^5)*a[2]^5*a[3] + 
    105*(628 - 1935*n + 2162*n^2 - 1035*n^3 + 180*n^4)*a[2]^4*a[4] + 
    28*(-1 + n)*a[2]^3*(4*(-1652 + 3298*n - 2062*n^2 + 413*n^3)*a[3]^2 + 
      15*(32 - 49*n + 18*n^2)*a[5]) + 14*(-1 + n)*a[2]^2*
     (75*(68 - 97*n + 33*n^2)*a[3]*a[4] + 2*(-73 + 62*n)*a[6]) + 
    2*(-1 + n)*a[2]*(210*(78 - 107*n + 35*n^2)*a[3]^3 + 35*(-77 + \
58*n)*a[4]^2 + 
      56*(-76 + 59*n)*a[3]*a[5] + 108*a[7]) + 
    4*(70*(26 - 45*n + 19*n^2)*a[3]^2*a[4] + 126*(-1 + n)*a[3]*a[6] + 
      3*(63*(-1 + n)*a[4]*a[5] + a[8]))))/12}\
\>", "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(ogf // InputForm\)], "Input"],

Cell["\<\
{0, 1, n*a[2], (n*(12*(-1 + n)*a[2]^2 + 12*a[3]))/12, 
 (n*(24*(3 - 5*n + 2*n^2)*a[2]^3 + 120*(-1 + n)*a[2]*a[3] + 48*a[4]))/48, 
 (n*(240*(-8 + 18*n - 13*n^2 + 3*n^3)*a[2]^4 + 120*(37 - 63*n + \
26*n^2)*a[2]^2*a[3] + 
    2160*(-1 + n)*a[2]*a[4] + 6*(180*(-1 + n)*a[3]^2 + 120*a[5])))/720, 
 (n*(1440*(62 - 175*n + 178*n^2 - 77*n^3 + 12*n^4)*a[2]^5 + 
    1440*(-184 + 427*n - 320*n^2 + 77*n^3)*a[2]^3*a[3] + 
    34560*(4 - 7*n + 3*n^2)*a[2]^2*a[4] + 56*(-1 + n)*a[2]*
     (360*(-7 + 5*n)*a[3]^2 + 1080*a[5]) + 12*(5040*(-1 + n)*a[3]*a[4] + \
1440*a[6])))/
  17280, (n*(4032*(-314 + 1075*n - 1405*n^2 + 875*n^3 - 261*n^4 + \
30*n^5)*a[2]^6 + 
    4032*(1144 - 3350*n + 3545*n^2 - 1600*n^3 + 261*n^4)*a[2]^4*a[3] + 
    80640*(-31 + 75*n - 59*n^2 + 15*n^3)*a[2]^3*a[4] + 
    112*(-1 + n)*a[2]^2*(180*(193 - 262*n + 85*n^2)*a[3]^2 + 2160*(-5 + \
4*n)*a[5]) + 
    112*(-1 + n)*a[2]*(720*(-31 + 23*n)*a[3]*a[4] + 4320*a[6]) + 
    4*(15120*(7 - 12*n + 5*n^2)*a[3]^3 + 120960*(-1 + n)*a[3]*a[5] + 
      3*(20160*(-1 + n)*a[4]^2 + 10080*a[7]))))/120960, 
 (n*(8064*(1298 - 5301*n + 8510*n^2 - 6900*n^3 + 3002*n^4 - 669*n^5 + \
60*n^6)*a[2]^7 + 
    4032*(-11282 + 40257*n - 54830*n^2 + 35625*n^3 - 11108*n^4 + \
1338*n^5)*a[2]^5*
     a[3] + 40320*(628 - 1935*n + 2162*n^2 - 1035*n^3 + 180*n^4)*a[2]^4*a[4] \
+ 
    224*(-1 + n)*a[2]^3*(144*(-1652 + 3298*n - 2062*n^2 + 413*n^3)*a[3]^2 + 
      1800*(32 - 49*n + 18*n^2)*a[5]) + 56*(-1 + n)*a[2]^2*
     (10800*(68 - 97*n + 33*n^2)*a[3]*a[4] + 1440*(-73 + 62*n)*a[6]) + 
    4*(-1 + n)*a[2]*(45360*(78 - 107*n + 35*n^2)*a[3]^3 + 20160*(-77 + \
58*n)*a[4]^2 + 
      40320*(-76 + 59*n)*a[3]*a[5] + 544320*a[7]) + 
    4*(60480*(26 - 45*n + 19*n^2)*a[3]^2*a[4] + 544320*(-1 + n)*a[3]*a[6] + 
      3*(181440*(-1 + n)*a[4]*a[5] + 40320*a[8]))))/483840}\
\>", "Output"]
}, Open  ]],

Cell["Hierarchies of Height n", "Section"],

Cell["\<\
{1,1/2,1/8,0,1/32,-7/128,1/128,159/256}      1/2 A052122
{0,1,1,1,1,1,1,1,1}                                           1
{1,2,5,15,52,203,877,4140}                            2 A000110
{1,3,12,60,358,2471,19302,167894}              3 A000258
{1,4,22,154,1304,12915,146115,1855570}    4 A000307
{1,-1,2,-6,24,-120,720,-5040}                      -1 A000142
{1,-2,7,-35,228,-1834,17582,-195866}        -2 A003713\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[{
    \(\(comb = \[InvisibleSpace]{0, 1, 1, 1, 1, 1, 1, 1, 
          1}\[InvisibleSpace];\)\), "\[IndentingNewLine]", 
    \(struct = 
      egf\  /. a[i_] \[RuleDelayed] comb[\([i + 1]\)]\  // 
        ExpandAll\), "\[IndentingNewLine]", 
    \(struct /. n \[Rule] 1/2\), "\[IndentingNewLine]", 
    \(struct /. n \[Rule] 1\), "\[IndentingNewLine]", 
    \(struct /. n \[Rule] 2\), "\[IndentingNewLine]", 
    \(struct /. n \[Rule] 3\), "\[IndentingNewLine]", 
    \(struct /. n \[Rule] 4\), "\[IndentingNewLine]", 
    \(struct /. n \[Rule] \(-1\)\), "\[IndentingNewLine]", 
    \(struct /. n \[Rule] \(-2\)\)}], "Input"],

Cell[BoxData[
    \({0, 1, 1, 1, 1, 1, 1, 1, 1}\)], "Output"],

Cell[BoxData[
    \({0, 1, n, \(-\(n\/2\)\) + \(3\ n\^2\)\/2, 
      n\/2 - \(5\ n\^2\)\/2 + 3\ n\^3, \(-\(\(2\ n\)\/3\)\) + 
        5\ n\^2 - \(65\ n\^3\)\/6 + \(15\ n\^4\)\/2, \(11\ n\)\/12 - \(91\ \
n\^2\)\/8 + \(445\ n\^3\)\/12 - \(385\ n\^4\)\/8 + \(45\ n\^5\)\/2, \(-\(\(3\ \
n\)\/4\)\) + \(637\ n\^2\)\/24 - \(1043\ n\^3\)\/8 + \(6125\ n\^4\)\/24 - \
\(1827\ n\^5\)\/8 + \(315\ n\^6\)\/4, \(-\(\(11\ n\)\/6\)\) - \(215\ \
n\^2\)\/4 + \(2737\ n\^3\)\/6 - 
        1295\ n\^4 + \(10507\ n\^5\)\/6 - \(4683\ n\^6\)\/4 + 
        315\ n\^7}\)], "Output"],

Cell[BoxData[
    \({0, 1, 1\/2, 1\/8, 0, 1\/32, \(-\(7\/128\)\), 1\/128, 
      159\/256}\)], "Output"],

Cell[BoxData[
    \({0, 1, 1, 1, 1, 1, 1, 1, 1}\)], "Output"],

Cell[BoxData[
    \({0, 1, 2, 5, 15, 52, 203, 877, 4140}\)], "Output"],

Cell[BoxData[
    \({0, 1, 3, 12, 60, 358, 2471, 19302, 167894}\)], "Output"],

Cell[BoxData[
    \({0, 1, 4, 22, 154, 1304, 12915, 146115, 1855570}\)], "Output"],

Cell[BoxData[
    \({0, 1, \(-1\), 2, \(-6\), 24, \(-120\), 720, \(-5040\)}\)], "Output"],

Cell[BoxData[
    \({0, 1, \(-2\), 7, \(-35\), 228, \(-1834\), 
      17582, \(-195866\)}\)], "Output"]
}, Open  ]],

Cell["Fibonacci numbers", "Section"],

Cell["\<\
{1,1,2,3,5,8,13,21}                                  1 A000045
{1,-1,0,2,-3,-1,11,-15}                          -1 A007440\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[{
    \(\(Print["\<\n OGF:\>"];\)\), "\[IndentingNewLine]", 
    \(\(comb = \[InvisibleSpace]{0, 1, 1, 2, 3, 5, 8, 13, 
          21}\[InvisibleSpace];\)\), "\[IndentingNewLine]", 
    \(struct = 
      ogf\  /. a[i_] \[RuleDelayed] comb[\([i + 1]\)]\  // 
        ExpandAll\), "\[IndentingNewLine]", 
    \(struct /. n \[Rule] 1\), "\[IndentingNewLine]", 
    \(struct /. n \[Rule] \(-1\)\)}], "Input"],

Cell[BoxData[
    \("\n OGF:"\)], "Print"],

Cell[BoxData[
    \({0, 1, 1, 2, 3, 5, 8, 13, 21}\)], "Output"],

Cell[BoxData[
    \({0, 1, n, 
      n + n\^2, \(-\(n\/2\)\) + \(5\ n\^2\)\/2 + 
        n\^3, \(-\(n\/3\)\) + \(13\ n\^3\)\/3 + 
        n\^4, \(2\ n\)\/3 - \(35\ n\^2\)\/12 + \(17\ n\^3\)\/6 + \(77\ n\^4\)\
\/12 + n\^5, \(2\ n\)\/15 + \(11\ n\^2\)\/6 - \(47\ n\^3\)\/6 + \(55\ \
n\^4\)\/6 + \(87\ n\^5\)\/10 + 
        n\^6, \(-\(\(31\ n\)\/30\)\) + \(87\ n\^2\)\/20 - 
        2\ n\^3 - \(25\ n\^4\)\/2 + \(601\ n\^5\)\/30 + \(223\ n\^6\)\/20 + 
        n\^7}\)], "Output"],

Cell[BoxData[
    \({0, 1, 1, 2, 3, 5, 8, 13, 21}\)], "Output"],

Cell[BoxData[
    \({0, 1, \(-1\), 0, 2, \(-3\), \(-1\), 11, \(-15\)}\)], "Output"]
}, Open  ]],

Cell["Triangular numbers", "Section"],

Cell["\<\
{1,3,6,10,15,21,28,36}                                    1 A000217
{1,6,30,137,588,2415,9600,37209}                2 A030280
{1,-3,12,-55,273,-1428,7752,-43263}           -1 A001764\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[{
    \(\(Print["\<\n OGF:\>"];\)\), "\[IndentingNewLine]", 
    \(\(comb = \[InvisibleSpace]{0, 1, 3, 6, 10, 15, 21, 28, 
          36};\)\), "\[IndentingNewLine]", 
    \(struct = 
      ogf\  /. a[i_] \[RuleDelayed] comb[\([i + 1]\)]\  // 
        ExpandAll\), "\[IndentingNewLine]", 
    \(struct /. n \[Rule] 1\), "\[IndentingNewLine]", 
    \(struct /. n \[Rule] 2\), "\[IndentingNewLine]", 
    \(struct /. n \[Rule] \(-1\)\)}], "Input"],

Cell[BoxData[
    \("\n OGF:"\)], "Print"],

Cell[BoxData[
    \({0, 1, 3, 6, 10, 15, 21, 28, 36}\)], "Output"],

Cell[BoxData[
    \({0, 1, 
      3\ n, \(-3\)\ n + 9\ n\^2, \(11\ n\)\/2 - \(45\ n\^2\)\/2 + 
        27\ n\^3, \(-12\)\ n + 63\ n\^2 - 117\ n\^3 + 81\ n\^4, 
      27\ n - \(735\ n\^2\)\/4 + \(909\ n\^3\)\/2 - \(2079\ n\^4\)\/4 + 
        243\ n\^5, \(-\(\(287\ n\)\/5\)\) + \(1057\ n\^2\)\/2 - \(3381\ \
n\^3\)\/2 + \(5265\ n\^4\)\/2 - \(21141\ n\^5\)\/10 + 
        729\ n\^6, \(1069\ n\)\/10 - \(7182\ n\^2\)\/5 + \(11965\ n\^3\)\/2 - \
\(48195\ n\^4\)\/4 + \(133731\ n\^5\)\/10 - \(162567\ n\^6\)\/20 + 
        2187\ n\^7}\)], "Output"],

Cell[BoxData[
    \({0, 1, 3, 6, 10, 15, 21, 28, 36}\)], "Output"],

Cell[BoxData[
    \({0, 1, 6, 30, 137, 588, 2415, 9600, 37209}\)], "Output"],

Cell[BoxData[
    \({0, 1, \(-3\), 12, \(-55\), 273, \(-1428\), 
      7752, \(-43263\)}\)], "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
    \(\[Copyright]\ 2003 - 2004\ Daniel\ Geisler\)], "Input"]
},
FrontEndVersion->"4.1 for Microsoft Windows",
ScreenRectangle->{{0, 1024}, {0, 723}},
AutoGeneratedPackage->None,
ScreenStyleEnvironment->"Presentation",
WindowToolbars->"EditBar",
CellGrouping->Manual,
WindowSize->{1016, 696},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
ShowCellLabel->False,
CellLabelAutoDelete->True,
Magnification->1,
StyleDefinitions -> Notebook[{
  
  Cell[CellGroupData[{
  Cell["Style Definitions", "Subtitle"],
  
  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,
    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, "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]
  }, Open  ]],
  
  Cell[CellGroupData[{
  
  Cell["Styles for Headings", "Section"],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Title"],
    CellMargins->{{12, Inherited}, {20, 40}},
    CellGroupingRules->{"TitleGrouping", 0},
    PageBreakBelow->False,
    DefaultNewInlineCellStyle->"None",
    InputAutoReplacements->{"TeX"->StyleBox[ 
            RowBox[ {"T", 
              AdjustmentBox[ 
              "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
                0.5], "X"}]], "LaTeX"->StyleBox[ 
            RowBox[ {"L", 
              StyleBox[ 
                AdjustmentBox[ 
                "A", BoxMargins -> {{-0.36, -0.1}, {0, -0}}, 
                  BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", 
              AdjustmentBox[ 
              "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
                0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", 
        "MMA"->"Mathematica", 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->{{24, 10}, {20, 40}},
    LineSpacing->{1, 0},
    FontSize->44],
  
  Cell[StyleData["Title", "Condensed"],
    CellMargins->{{8, 10}, {4, 8}},
    FontSize->20],
  
  Cell[StyleData["Title", "Printout"],
    CellMargins->{{2, 10}, {12, 30}},
    FontSize->24]
  }, Open  ]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Subtitle"],
    CellMargins->{{12, Inherited}, {20, 15}},
    CellGroupingRules->{"TitleGrouping", 10},
    PageBreakBelow->False,
    DefaultNewInlineCellStyle->"None",
    InputAutoReplacements->{"TeX"->StyleBox[ 
            RowBox[ {"T", 
              AdjustmentBox[ 
              "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
                0.5], "X"}]], "LaTeX"->StyleBox[ 
            RowBox[ {"L", 
              StyleBox[ 
                AdjustmentBox[ 
                "A", BoxMargins -> {{-0.36, -0.1}, {0, -0}}, 
                  BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", 
              AdjustmentBox[ 
              "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
                0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", 
        "MMA"->"Mathematica", Inherited},
    LanguageCategory->"NaturalLanguage",
    CounterIncrements->"Subtitle",
    CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, {
        "Subsubtitle", 0}},
    FontFamily->"Helvetica",
    FontSize->24],
  
  Cell[StyleData["Subtitle", "Presentation"],
    CellMargins->{{24, 10}, {20, 20}},
    LineSpacing->{1, 0},
    FontSize->36],
  
  Cell[StyleData["Subtitle", "Condensed"],
    CellMargins->{{8, 10}, {4, 4}},
    FontSize->14],
  
  Cell[StyleData["Subtitle", "Printout"],
    CellMargins->{{2, 10}, {12, 8}},
    FontSize->18]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Subsubtitle"],
    CellMargins->{{12, Inherited}, {20, 15}},
    CellGroupingRules->{"TitleGrouping", 20},
    PageBreakBelow->False,
    DefaultNewInlineCellStyle->"None",
    InputAutoReplacements->{"TeX"->StyleBox[ 
            RowBox[ {"T", 
              AdjustmentBox[ 
              "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
                0.5], "X"}]], "LaTeX"->StyleBox[ 
            RowBox[ {"L", 
              StyleBox[ 
                AdjustmentBox[ 
                "A", BoxMargins -> {{-0.36, -0.1}, {0, -0}}, 
                  BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", 
              AdjustmentBox[ 
              "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
                0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", 
        "MMA"->"Mathematica", Inherited},
    LanguageCategory->"NaturalLanguage",
    CounterIncrements->"Subsubtitle",
    CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}},
    FontFamily->"Helvetica",
    FontSize->14,
    FontSlant->"Italic"],
  
  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", "Printout"],
    CellMargins->{{2, 10}, {12, 8}},
    FontSize->14]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Section"],
    CellDingbat->"\[FilledSquare]",
    CellMargins->{{25, Inherited}, {8, 24}},
    CellGroupingRules->{"SectionGrouping", 30},
    PageBreakBelow->False,
    DefaultNewInlineCellStyle->"None",
    InputAutoReplacements->{"TeX"->StyleBox[ 
            RowBox[ {"T", 
              AdjustmentBox[ 
              "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
                0.5], "X"}]], "LaTeX"->StyleBox[ 
            RowBox[ {"L", 
              StyleBox[ 
                AdjustmentBox[ 
                "A", BoxMargins -> {{-0.36, -0.1}, {0, -0}}, 
                  BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", 
              AdjustmentBox[ 
              "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
                0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", 
        "MMA"->"Mathematica", Inherited},
    LineSpacing->{1, 7},
    LanguageCategory->"NaturalLanguage",
    CounterIncrements->"Section",
    CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}},
    FontFamily->"Helvetica",
    FontSize->16,
    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", "Printout"],
    CellMargins->{{13, 0}, {7, 22}},
    FontSize->14]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Subsection"],
    CellDingbat->"\[FilledSmallSquare]",
    CellMargins->{{22, Inherited}, {8, 20}},
    CellGroupingRules->{"SectionGrouping", 40},
    PageBreakBelow->False,
    DefaultNewInlineCellStyle->"None",
    InputAutoReplacements->{"TeX"->StyleBox[ 
            RowBox[ {"T", 
              AdjustmentBox[ 
              "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
                0.5], "X"}]], "LaTeX"->StyleBox[ 
            RowBox[ {"L", 
              StyleBox[ 
                AdjustmentBox[ 
                "A", BoxMargins -> {{-0.36, -0.1}, {0, -0}}, 
                  BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", 
              AdjustmentBox[ 
              "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
                0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", 
        "MMA"->"Mathematica", Inherited},
    LanguageCategory->"NaturalLanguage",
    CounterIncrements->"Subsection",
    CounterAssignments->{{"Subsubsection", 0}},
    FontFamily->"Times",
    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", "Printout"],
    CellMargins->{{9, 0}, {7, 22}},
    FontSize->12]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Subsubsection"],
    CellDingbat->"\[FilledSmallSquare]",
    CellMargins->{{22, Inherited}, {8, 18}},
    CellGroupingRules->{"SectionGrouping", 50},
    PageBreakBelow->False,
    DefaultNewInlineCellStyle->"None",
    InputAutoReplacements->{"TeX"->StyleBox[ 
            RowBox[ {"T", 
              AdjustmentBox[ 
              "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
                0.5], "X"}]], "LaTeX"->StyleBox[ 
            RowBox[ {"L", 
              StyleBox[ 
                AdjustmentBox[ 
                "A", BoxMargins -> {{-0.36, -0.1}, {0, -0}}, 
                  BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", 
              AdjustmentBox[ 
              "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
                0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", 
        "MMA"->"Mathematica", 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", "Printout"],
    CellMargins->{{9, 0}, {7, 14}},
    FontSize->11]
  }, Closed]]
  }, Open  ]],
  
  Cell[CellGroupData[{
  
  Cell["Styles for Body Text", "Section"],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Text"],
    CellMargins->{{12, 10}, {7, 7}},
    InputAutoReplacements->{"TeX"->StyleBox[ 
            RowBox[ {"T", 
              AdjustmentBox[ 
              "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
                0.5], "X"}]], "LaTeX"->StyleBox[ 
            RowBox[ {"L", 
              StyleBox[ 
                AdjustmentBox[ 
                "A", BoxMargins -> {{-0.36, -0.1}, {0, -0}}, 
                  BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", 
              AdjustmentBox[ 
              "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 
                0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", 
        "MMA"->"Mathematica", Inherited},
    Hyphenation->True,
    LineSpacing->{1, 3},
    CounterIncrements->"Text"],
  
  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", "Printout"],
    CellMargins->{{2, 2}, {6, 6}},
    TextJustification->0.5,
    FontSize->10]
  }, Open  ]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["SmallText"],
    CellMargins->{{12, 10}, {6, 6}},
    DefaultNewInlineCellStyle->"None",
    Hyphenation->True,
    LineSpacing->{1, 3},
    LanguageCategory->"NaturalLanguage",
    CounterIncrements->"SmallText",
    FontFamily->"Helvetica",
    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", "Printout"],
    CellMargins->{{2, 2}, {5, 5}},
    TextJustification->0.5,
    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->{{45, 10}, {5, 7}},
    Evaluatable->True,
    CellGroupingRules->"InputGrouping",
    CellHorizontalScrolling->True,
    PageBreakWithin->False,
    GroupPageBreakWithin->False,
    DefaultFormatType->DefaultInputFormatType,
    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", "Printout"],
    CellMargins->{{39, 0}, {4, 6}},
    LinebreakAdjustments->{0.85, 2, 10, 1, 1},
    FontSize->9]
  }, Closed]],
  
  Cell[StyleData["InputOnly"],
    Evaluatable->True,
    CellGroupingRules->"InputGrouping",
    CellHorizontalScrolling->True,
    DefaultFormatType->DefaultInputFormatType,
    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[CellGroupData[{
  
  Cell[StyleData["Output"],
    CellMargins->{{47, 10}, {7, 5}},
    CellEditDuplicate->True,
    CellGroupingRules->"OutputGrouping",
    CellHorizontalScrolling->True,
    PageBreakWithin->False,
    GroupPageBreakWithin->False,
    GeneratedCell->True,
    CellAutoOverwrite->True,
    DefaultFormatType->DefaultOutputFormatType,
    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", "Printout"],
    CellMargins->{{39, 0}, {6, 4}},
    FontSize->9]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Message"],
    CellMargins->{{45, Inherited}, {Inherited, Inherited}},
    CellGroupingRules->"OutputGrouping",
    PageBreakWithin->False,
    GroupPageBreakWithin->False,
    GeneratedCell->True,
    CellAutoOverwrite->True,
    ShowCellLabel->False,
    DefaultFormatType->DefaultOutputFormatType,
    HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"},
    AutoItalicWords->{},
    LanguageCategory->None,
    FormatType->InputForm,
    CounterIncrements->"Message",
    StyleMenuListing->None,
    FontSize->11,
    FontColor->RGBColor[0, 0, 1]],
  
  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", "Printout"],
    CellMargins->{{39, Inherited}, {Inherited, Inherited}},
    FontSize->7,
    FontColor->GrayLevel[0]]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Print"],
    CellMargins->{{45, Inherited}, {Inherited, Inherited}},
    CellGroupingRules->"OutputGrouping",
    CellHorizontalScrolling->True,
    PageBreakWithin->False,
    GroupPageBreakWithin->False,
    GeneratedCell->True,
    CellAutoOverwrite->True,
    ShowCellLabel->False,
    DefaultFormatType->DefaultOutputFormatType,
    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", "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", "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, 0, 1]],
  
  Cell[StyleData["CellLabel", "Presentation"],
    FontSize->12],
  
  Cell[StyleData["CellLabel", "Condensed"],
    FontSize->9],
  
  Cell[StyleData["CellLabel", "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"],
    HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"},
    StyleMenuListing->None,
    FontFamily->"Courier",
    FontWeight->"Plain",
    FontSlant->"Plain"],
  
  Cell[StyleData["MO"],
    HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"},
    StyleMenuListing->None,
    FontFamily->"Courier",
    FontWeight->"Plain",
    FontSlant->"Italic"],
  
  Cell[StyleData["MB"],
    HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"},
    StyleMenuListing->None,
    FontFamily->"Courier",
    FontWeight->"Bold",
    FontSlant->"Plain"],
  
  Cell[StyleData["MBO"],
    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"],
  
  Cell[StyleData["SO10", "EnhancedPrintout"],
    StyleMenuListing->None,
    FontFamily->"Futura",
    FontSize->7,
    FontWeight->"Plain",
    FontSlant->"Italic"]
  }, 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", "Printout"],
    CellMargins->{{2, 0}, {6, 6}},
    FontSize->10]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["DisplayFormula"],
    CellMargins->{{42, 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", "Printout"],
    FontSize->10]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Program"],
    CellFrame->{{0, 0}, {0.5, 0.5}},
    CellMargins->{{10, 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", "Printout"],
    CellMargins->{{2, 0}, {6, 6}},
    FontSize->9]
  }, Closed]]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell["Outline Styles", "Section"],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Outline1"],
    CellMargins->{{12, 10}, {7, 7}},
    CellGroupingRules->{"SectionGrouping", 50},
    ParagraphIndent->-38,
    CounterIncrements->"Outline1",
    FontSize->18,
    FontWeight->"Bold",
    CounterBoxOptions->{CounterFunction:>CapitalRomanNumeral}],
  
  Cell[StyleData["Outline1", "Printout"],
    CounterBoxOptions->{CounterFunction:>CapitalRomanNumeral}]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Outline2"],
    CellMargins->{{59, 10}, {7, 7}},
    CellGroupingRules->{"SectionGrouping", 60},
    ParagraphIndent->-27,
    CounterIncrements->"Outline2",
    FontSize->15,
    FontWeight->"Bold",
    CounterBoxOptions->{CounterFunction:>(Part[ 
        CharacterRange[ "A", "Z"], #]&)}],
  
  Cell[StyleData["Outline2", "Printout"],
    CounterBoxOptions->{CounterFunction:>(Part[ 
        CharacterRange[ "A", "Z"], #]&)}]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Outline3"],
    CellMargins->{{108, 10}, {7, 7}},
    CellGroupingRules->{"SectionGrouping", 70},
    ParagraphIndent->-21,
    CounterIncrements->"Outline3",
    FontSize->12,
    CounterBoxOptions->{CounterFunction:>Identity}],
  
  Cell[StyleData["Outline3", "Printout"],
    CounterBoxOptions->{CounterFunction:>Identity}]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["Outline4"],
    CellMargins->{{158, 10}, {7, 7}},
    CellGroupingRules->{"SectionGrouping", 80},
    ParagraphIndent->-18,
    CounterIncrements->"Outline4",
    FontSize->10,
    CounterBoxOptions->{CounterFunction:>(Part[ 
        CharacterRange[ "a", "z"], #]&)}],
  
  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, 0, 1],
    FontVariations->{"Underline"->True},
    ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
        FrontEnd`NotebookLocate[ #2]}]&),
    Active->True,
    ButtonNote->ButtonData}],
  
  Cell[StyleData["Hyperlink", "Presentation"],
    FontSize->16],
  
  Cell[StyleData["Hyperlink", "Condensed"],
    FontSize->11],
  
  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, 0, 1],
    FontVariations->{"Underline"->True},
    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", "Printout"],
    FontSize->10,
    FontColor->GrayLevel[0],
    FontVariations->{"Underline"->False}]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["AddOnsLink"],
    StyleMenuListing->None,
    ButtonStyleMenuListing->Automatic,
    FontFamily->"Courier",
    FontColor->RGBColor[0, 0, 1],
    FontVariations->{"Underline"->True},
    ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
        FrontEnd`HelpBrowserLookup[ "AddOns", #]}]&),
    Active->True,
    ButtonFrame->"None"}],
  
  Cell[StyleData["AddOnsLink", "Presentation"],
    FontSize->16],
  
  Cell[StyleData["AddOnsLink", "Condensed"],
    FontSize->11],
  
  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, 0, 1],
    FontVariations->{"Underline"->True},
    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", "Printout"],
    FontSize->10,
    FontColor->GrayLevel[0],
    FontVariations->{"Underline"->False}]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["GettingStartedLink"],
    StyleMenuListing->None,
    ButtonStyleMenuListing->Automatic,
    FontColor->RGBColor[0, 0, 1],
    FontVariations->{"Underline"->True},
    ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
        FrontEnd`HelpBrowserLookup[ "GettingStarted", #]}]&),
    Active->True,
    ButtonFrame->"None"}],
  
  Cell[StyleData["GettingStartedLink", "Presentation"],
    FontSize->16],
  
  Cell[StyleData["GettingStartedLink", "Condensed"],
    FontSize->11],
  
  Cell[StyleData["GettingStartedLink", "Printout"],
    FontSize->10,
    FontColor->GrayLevel[0],
    FontVariations->{"Underline"->False}]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell[StyleData["OtherInformationLink"],
    StyleMenuListing->None,
    ButtonStyleMenuListing->Automatic,
    FontColor->RGBColor[0, 0, 1],
    FontVariations->{"Underline"->True},
    ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
        FrontEnd`HelpBrowserLookup[ "OtherInformation", #]}]&),
    Active->True,
    ButtonFrame->"None"}],
  
  Cell[StyleData["OtherInformationLink", "Presentation"],
    FontSize->16],
  
  Cell[StyleData["OtherInformationLink", "Condensed"],
    FontSize->11],
  
  Cell[StyleData["OtherInformationLink", "Printout"],
    FontSize->10,
    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,
    FontSize->10,
    FontSlant->"Italic"],
  
  Cell[StyleData["Footer"],
    CellMargins->{{0, 0}, {0, 4}},
    DefaultNewInlineCellStyle->"None",
    LanguageCategory->"NaturalLanguage",
    StyleMenuListing->None,
    FontSize->9,
    FontSlant->"Italic"],
  
  Cell[StyleData["PageNumber"],
    CellMargins->{{0, 0}, {4, 1}},
    StyleMenuListing->None,
    FontFamily->"Times",
    FontSize->10]
  }, Closed]],
  
  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[ ], #, After]}]&)}],
  
  Cell[StyleData["Evaluate"],
    StyleMenuListing->None,
    ButtonStyleMenuListing->Automatic,
    ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
        FrontEnd`NotebookApply[ 
          FrontEnd`InputNotebook[ ], #, All], 
        SelectionEvaluate[ 
          FrontEnd`InputNotebook[ ], All]}]&)}],
  
  Cell[StyleData["EvaluateCell"],
    StyleMenuListing->None,
    ButtonStyleMenuListing->Automatic,
    ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
        FrontEnd`NotebookApply[ 
          FrontEnd`InputNotebook[ ], #, All], 
        FrontEnd`SelectionMove[ 
          FrontEnd`InputNotebook[ ], All, Cell, 1], 
        FrontEnd`SelectionEvaluateCreateCell[ 
          FrontEnd`InputNotebook[ ], All]}]&)}],
  
  Cell[StyleData["CopyEvaluate"],
    StyleMenuListing->None,
    ButtonStyleMenuListing->Automatic,
    ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
        FrontEnd`SelectionCreateCell[ 
          FrontEnd`InputNotebook[ ], All], 
        FrontEnd`NotebookApply[ 
          FrontEnd`InputNotebook[ ], #, All], 
        FrontEnd`SelectionEvaluate[ 
          FrontEnd`InputNotebook[ ], All]}]&)}],
  
  Cell[StyleData["CopyEvaluateCell"],
    StyleMenuListing->None,
    ButtonStyleMenuListing->Automatic,
    ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
        FrontEnd`SelectionCreateCell[ 
          FrontEnd`InputNotebook[ ], All], 
        FrontEnd`NotebookApply[ 
          FrontEnd`InputNotebook[ ], #, All], 
        FrontEnd`SelectionEvaluateCreateCell[ 
          FrontEnd`InputNotebook[ ], All]}]&)}]
  }, Closed]],
  
  Cell[CellGroupData[{
  
  Cell["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", "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", "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},
    LineSpacing->{1.25, 0},
    StyleMenuListing->None,
    FontFamily->"Courier"],
  
  Cell[StyleData["TraditionalForm"],
    InputAutoReplacements->{
      "->"->"\[Rule]", ":>"->"\[RuleDelayed]", "<="->"\[LessEqual]", 
        ">="->"\[GreaterEqual]", "!="->"\[NotEqual]", "=="->"\[Equal]", 
        Inherited},
    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[1, 0.749996, 0.8]]
  }, 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]]
  }, Closed]]
  }, Open  ]]
  }]
]

(*******************************************************************
Cached data follows.  If you edit this Notebook file directly, not
using Mathematica, you must remove the line containing CacheID at
the top of  the file.  The cache data will then be recreated when
you save this file from within Mathematica.
*******************************************************************)

(*CellTagsOutline
CellTagsIndex->{}
*)

(*CellTagsIndex
CellTagsIndex->{}
*)

(*NotebookFileOutline
Notebook[{

Cell[CellGroupData[{
Cell[1727, 52, 84, 1, 111, "Title"],
Cell[1814, 55, 200, 5, 45, "Text"],
Cell[2017, 62, 140, 3, 101, "Section"],
Cell[2160, 67, 727, 26, 70, "Text"],

Cell[CellGroupData[{
Cell[2912, 97, 1199, 25, 406, "Input"],
Cell[4114, 124, 39, 1, 28, "Print"],
Cell[4156, 127, 82, 1, 38, "Output"],
Cell[4241, 130, 42, 1, 51, "Print"],
Cell[4286, 133, 138, 2, 38, "Output"],

Cell[CellGroupData[{
Cell[4449, 139, 49, 1, 38, "Input"],
Cell[4501, 142, 1698, 31, 468, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[6236, 178, 49, 1, 38, "Input"],
Cell[6288, 181, 1825, 34, 468, "Output"]
}, Open  ]],
Cell[8128, 218, 42, 0, 72, "Section"],
Cell[8173, 220, 434, 8, 195, "Text"],

Cell[CellGroupData[{
Cell[8632, 232, 637, 12, 222, "Input"],
Cell[9272, 246, 61, 1, 38, "Output"],
Cell[9336, 249, 558, 9, 147, "Output"],
Cell[9897, 260, 104, 2, 54, "Output"],
Cell[10004, 264, 61, 1, 38, "Output"],
Cell[10068, 267, 70, 1, 38, "Output"],
Cell[10141, 270, 77, 1, 38, "Output"],
Cell[10221, 273, 82, 1, 38, "Output"],
Cell[10306, 276, 89, 1, 38, "Output"],
Cell[10398, 279, 103, 2, 38, "Output"]
}, Open  ]],
Cell[10516, 284, 36, 0, 72, "Section"],
Cell[10555, 286, 146, 3, 70, "Text"],

Cell[CellGroupData[{
Cell[10726, 293, 416, 8, 130, "Input"],
Cell[11145, 303, 42, 1, 51, "Print"],
Cell[11190, 306, 63, 1, 38, "Output"],
Cell[11256, 309, 476, 9, 102, "Output"],
Cell[11735, 320, 63, 1, 38, "Output"],
Cell[11801, 323, 83, 1, 38, "Output"]
}, Open  ]],
Cell[11899, 327, 37, 0, 72, "Section"],
Cell[11939, 329, 206, 4, 95, "Text"],

Cell[CellGroupData[{
Cell[12170, 337, 457, 9, 153, "Input"],
Cell[12630, 348, 42, 1, 51, "Print"],
Cell[12675, 351, 66, 1, 38, "Output"],
Cell[12744, 354, 543, 9, 192, "Output"],
Cell[13290, 365, 66, 1, 38, "Output"],
Cell[13359, 368, 76, 1, 38, "Output"],
Cell[13438, 371, 102, 2, 38, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[13579, 378, 75, 1, 38, "Input"]
}
]
*)



(*******************************************************************
End of Mathematica Notebook file.
*******************************************************************)