Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2003
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2003

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Readability confuses mathematica?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg44523] Re: [mg44492] Readability confuses mathematica?
  • From: Andrzej Kozlowski <akoz at mimuw.edu.pl>
  • Date: Thu, 13 Nov 2003 02:27:23 -0500 (EST)
  • References: <200311121301.IAA12528@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

On 12 Nov 2003, at 22:01, patrick_m_lahey wrote:

> I am new to mathematica so perhaps there is a simple answer to this
>
> Consider:
>
> In[1]:= D[x-x0,x]
>
> except that x0 is really x ctrl-- 0 (x subscript 0).  Normally that
> would be a completely independent variable from x but not according to
> mathematica!
>
> Out[1]=1-Subscript(1,0)[x,0]
>
> (the (1,0) is a superscript of Subscript).
>
> One of the things that attracted me to mathematica was the ability to
> work with expressions that closely mirrored the true expressions of
> interest (a readability issue really...).
>
> Is there anything that can be done here?
>
>
>

In principle it can be done with the Utilites`Notation` package using 
the function Symbolize.
Once I used to use this package a lot but I have given up because of 
serious problems. Recently I have been quite unable to use it and I am 
not sure if this is because of something wrong with my setup or because 
this package has recently been been neglected by WRI.

  Anyway, to test this load the package with

<<Utilities`Notation`

If you do the latter a palette will appear. You have to use this 
palette to input the Symbolize command. Now find the documentation for 
the Notation package in the Help Browser (for some reason it is in the 
Demos section). At the bottom of the documentation for Symbolize you 
will find an example involving transmissionCoefficient. Try to see if 
it works on your system. (Don't forget to use the palette for to input 
Symbolize). On my system this example just fails miserabley (the 
definiton of transmissionCoefficient does not parse) although it once 
used to work. (Actually, I would like to hear from other people, 
because either the Notation package is no longer working or something 
is wrong with my installation).
Anyway, if this works on your system than the problem is solved. You 
can symbolize subscripted variables and use them as if they were 
symbols. On the other hand, in the past, when this package used to work 
on my system, I got myself into a huge mess when I tried to evaluate 
again a notebook that had previously worked correctly. Because of that 
I finally decided that relying on a package like this is just too risky 
if you are doing any serious work. It would be much better if WRI took 
this matter seriously and made the (intended) features of this part of 
the regular Front End.

below is a (non-working example) as a Mathematica notebook.
(I am inlcuding it in the hope that somebody can see what is wrong.)

(************** Content-type: application/mathematica **************
                      CreatedBy='Mathematica 5.0'

                     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 at 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[      3053,         90]*)
(*NotebookOutlinePosition[     77961,       2617]*)
(*  CellTagsIndexPosition[     77849,       2610]*)
(*WindowFrame->Normal*)



Notebook[{
Cell[BoxData[
     \(<< Utilities`Notation`\)], "Input"],

Cell[BoxData[
     RowBox[{"Symbolize", "[",
       TagBox[
         TagBox[\(k\__\),
           NotationBoxTag,
           TagStyle->"NotationTemplateStyle"],
         NotationBoxTag,
         TagStyle->"NotationTemplateStyle"], "]"}]], "Input",
   CellTags->{"Notation:S1", "Notation:S1.2"}],

Cell[CellGroupData[{

Cell[BoxData[
     \(transmissionCoefficient[\(k\_1\) : _, k\_2\  : _] := \
       1 - \(4\ \(k\_1\) k\_2\)\/\((k\_1 + k\_2)\)\^2\)], "Input"],

Cell[BoxData[
     FormBox[
       RowBox[{\(Syntax::"sntxf"\), \(\(:\)\(\ \)\), \
"\<\"\\\"\\!\\(TraditionalForm\\`\\(transmissionCoefficient[\\)\\)\\\"\
  cannot be followed by \\\"\\!\\(TraditionalForm\\`\\(\\(\\(k\\_1 : _\
\\)\\), \\(\\(k\\_2 : _\\)\\)]\\)\\)\\\".\\!\\(TraditionalForm\\`\\\"\
\\\"\\) \\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", \
ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"General::sntxf\\\"]\\)\"\>"}],
       TraditionalForm]], "Message"],

Cell[BoxData[
     StyleBox[
       RowBox[{
         RowBox[{"transmissionCoefficient", "[",
           ErrorBox[\(\(k\_1\) : _\)], ",", \(\(k\_2\) : _\), "]"}],
         ":=", \(1 - \(4 \( k\_1\) k\_2\)\/\((k\_1 + k\_2)\)\^2\)}],
       ShowStringCharacters->True]], "Message"]
}, Open  ]]
},
FrontEndVersion->"5.0 for Macintosh",
ScreenRectangle->{{27, 1152}, {0, 746}},
WindowSize->{520, 624},
WindowMargins->{{164, Automatic}, {Automatic, 44}},
Visible->True,
InputAliases->{"intt"->RowBox[ {"\[Integral]",
         RowBox[ {"\[SelectionPlaceholder]",
           RowBox[ {"\[DifferentialD]", "\[Placeholder]"}]}]}],
     "dintt"->RowBox[ {
         SubsuperscriptBox[
         "\[Integral]", "\[SelectionPlaceholder]", "\[Placeholder]"],
         RowBox[ {"\[Placeholder]",
           RowBox[ {"\[DifferentialD]", "\[Placeholder]"}]}]}],
     "sumt"->RowBox[ {
         UnderoverscriptBox[ "\[Sum]",
           RowBox[ {"\[SelectionPlaceholder]", "=", "\[Placeholder]"}],
            "\[Placeholder]"], "\[Placeholder]"}], "prodt"->RowBox[ {
         UnderoverscriptBox[ "\[Product]",
           RowBox[ {"\[SelectionPlaceholder]", "=", "\[Placeholder]"}],
            "\[Placeholder]"], "\[Placeholder]"}], "dt"->RowBox[ {
         SubscriptBox[ "\[PartialD]", "\[Placeholder]"], " ",
         "\[SelectionPlaceholder]"}],
     "notation"->RowBox[ {"Notation", "[",
         RowBox[ {
           TagBox[
           "\[Placeholder]", NotationBoxTag, TagStyle ->
             "NotationTemplateStyle"], " ",
           "\[DoubleLongLeftRightArrow]", " ",
           TagBox[
           "\[Placeholder]", NotationBoxTag, TagStyle ->
             "NotationTemplateStyle"]}], "]"}],
     "notation>"->RowBox[ {"Notation", "[",
         RowBox[ {
           TagBox[
           "\[Placeholder]", NotationBoxTag, TagStyle ->
             "NotationTemplateStyle"], " ", "\[DoubleLongRightArrow]",
           " ",
           TagBox[
           "\[Placeholder]", NotationBoxTag, TagStyle ->
             "NotationTemplateStyle"]}], "]"}],
     "notation<"->RowBox[ {"Notation", "[",
         RowBox[ {
           TagBox[
           "\[Placeholder]", NotationBoxTag, TagStyle ->
             "NotationTemplateStyle"], " ", "\[DoubleLongLeftArrow]",
           " ",
           TagBox[
           "\[Placeholder]", NotationBoxTag, TagStyle ->
             "NotationTemplateStyle"]}], "]"}],
     "symb"->RowBox[ {"Symbolize", "[",
         TagBox[
         "\[Placeholder]", NotationBoxTag, TagStyle ->
           "NotationTemplateStyle"], "]"}],
     "infixnotation"->RowBox[ {"InfixNotation", "[",
         RowBox[ {
           TagBox[
           "\[Placeholder]", NotationBoxTag, TagStyle ->
             "NotationTemplateStyle"], ",", "\[Placeholder]"}], "]"}],
     "addia"->RowBox[ {"AddInputAlias", "[",
         RowBox[ {"\"\[Placeholder]\"", "\[Rule]",
           TagBox[
           "\[Placeholder]", NotationBoxTag, TagStyle ->
             "NotationTemplateStyle"]}], "]"}],
     "pattwraper"->TagBox[
       "\[Placeholder]", NotationPatternTag, TagStyle ->
         "NotationPatternWrapperStyle"],
     "madeboxeswraper"->TagBox[
       "\[Placeholder]", NotationMadeBoxesTag, TagStyle ->
         "NotationMadeBoxesWrapperStyle"]},
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, "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", "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", "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", "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", "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", "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", "Printout"],
     CellMargins->{{9, 0}, {7, 14}},
     FontSize->11]
   }, Closed]]
   }, Closed]],

   Cell[CellGroupData[{

   Cell["Styles for Body Text", "Section"],

   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"],

   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,
     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->"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,
     Hyphenation->True,
     FontSize->7]
   }, Closed]]
   }, Closed]],

   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", "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", "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", "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", "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", "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.269993, 0.308507, 0.6]],

   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]],

   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", "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]]
   }, 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->{{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", "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", "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",
     FontSize->18,
     FontWeight->"Bold",
     CounterBoxOptions->{
     CounterFunction:>
       Utilities`Notation`Private`CapitalRomanNumeral}],

   Cell[StyleData["Outline1", "Printout"],
     CounterBoxOptions->{
     CounterFunction:>Utilities`Notation`Private`CapitalRomanNumeral}]
   }, Closed]],

   Cell[CellGroupData[{

   Cell[StyleData["Outline2"],
     CellMargins->{{90, 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->{{120, 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->{{150, 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.269993, 0.308507, 0.6],
     FontVariations->{"Underline"->True},
     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", "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],
     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.269993, 0.308507, 0.6],
     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.269993, 0.308507, 0.6],
     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["RefGuideLinkText"],
     StyleMenuListing->None,
     ButtonStyleMenuListing->Automatic,
     FontColor->RGBColor[0.269993, 0.308507, 0.6],
     FontVariations->{"Underline"->True},
     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", "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],
     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["DemosLink"],
     StyleMenuListing->None,
     ButtonStyleMenuListing->Automatic,
     FontColor->RGBColor[0.269993, 0.308507, 0.6],
     FontVariations->{"Underline"->True},
     ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
         FrontEnd`HelpBrowserLookup[ "Demos", #]}]&),
     Active->True,
     ButtonFrame->"None"}],

   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],
     FontVariations->{"Underline"->True},
     ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
         FrontEnd`HelpBrowserLookup[ "Tour", #]}]&),
     Active->True,
     ButtonFrame->"None"}],

   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],
     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]],

   Cell[CellGroupData[{

   Cell[StyleData["MasterIndexLink"],
     StyleMenuListing->None,
     ButtonStyleMenuListing->Automatic,
     FontColor->RGBColor[0.269993, 0.308507, 0.6],
     FontVariations->{"Underline"->True},
     ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
         FrontEnd`HelpBrowserLookup[ "MasterIndex", #]}]&),
     Active->True,
     ButtonFrame->"None"}],

   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,
     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[ ], #, Placeholder]}]&)}],

   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},
     "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", "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", "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", "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", "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", "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", "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", "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", "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", "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", "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", "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", "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", "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", "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", "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", "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", "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", "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", "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", "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", "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", "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", "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", "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", "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", "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", "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", "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", "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", "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", "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", "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", "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", "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", "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", "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", "Printout"],
     CellMargins->{{2, 0}, {0, 8}},
     FontSize->9]
   }, Closed]]
   }, Closed]]
   }, Closed]]
   }, Open  ]],

   Cell[CellGroupData[{

   Cell["Notation Package Styles", "Section",
     CellTags->"NotationPackage"],

   Cell["\<\
The cells below define certain styles needed by the \
Notation package. These styles serve to make visible otherwise \
invisible tagboxes.\
\>", "Text",
     CellTags->"NotationPackage"],

   Cell[StyleData["NotationTemplateStyle"],
     StyleMenuListing->None,
     Background->RGBColor[1, 1, 0.850004],
     TagBoxOptions->{SyntaxForm->"symbol"},
     CellTags->"NotationPackage"],

   Cell[StyleData["NotationPatternWrapperStyle"],
     StyleMenuListing->None,
     Background->RGBColor[1, 0.900008, 0.979995],
     TagBoxOptions->{SyntaxForm->"symbol"},
     CellTags->"NotationPackage"],

   Cell[StyleData["NotationMadeBoxesWrapperStyle"],
     StyleMenuListing->None,
     Background->RGBColor[0.900008, 0.889998, 1],
     TagBoxOptions->{SyntaxForm->"symbol"},
     CellTags->"NotationPackage"]
   }, Closed]]
   }]
]

(*******************************************************************
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->{
   "Notation:S1"->{
     Cell[1812, 54, 286, 8, 28, "Input",
       CellTags->{"Notation:S1", "Notation:S1.2"}]},
   "Notation:S1.2"->{
     Cell[1812, 54, 286, 8, 28, "Input",
       CellTags->{"Notation:S1", "Notation:S1.2"}]}
   }
*)

(*CellTagsIndex
CellTagsIndex->{
   {"Notation:S1", 77619, 2600},
   {"Notation:S1.2", 77732, 2603}
   }
*)

(*NotebookFileOutline
Notebook[{
Cell[1754, 51, 55, 1, 27, "Input"],
Cell[1812, 54, 286, 8, 28, "Input",
   CellTags->{"Notation:S1", "Notation:S1.2"}],

Cell[CellGroupData[{
Cell[2123, 66, 141, 2, 62, "Input"],
Cell[2267, 70, 492, 9, 22, "Message"],
Cell[2762, 81, 275, 6, 38, "Message"]
}, Open  ]]
}
]
*)



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




  • Prev by Date: Re: Re: Just trying to import an image
  • Next by Date: Optimization with conditional restrictions
  • Previous by thread: Readability confuses mathematica?
  • Next by thread: Re: Readability confuses mathematica?