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.
*******************************************************************)
- References:
- Readability confuses mathematica?
- From: patrick.m.lahey@aero.org (patrick_m_lahey)
- Readability confuses mathematica?