(************** Content-type: application/mathematica **************
CreatedBy='Mathematica 4.2'
Mathematica-Compatible Notebook
This notebook can be used with any Mathematica-compatible
application, such as Mathematica, MathReader or Publicon. The data
for the notebook starts with the line containing stars above.
To get the notebook into a Mathematica-compatible application, do
one of the following:
* Save the data starting with the line of stars above into a file
with a name ending in .nb, then open the file inside the
application;
* Copy the data starting with the line of stars above to the
clipboard, then use the Paste menu command inside the application.
Data for notebooks contains only printable 7-bit ASCII and can be
sent directly in email or through ftp in text mode. Newlines can be
CR, LF or CRLF (Unix, Macintosh or MS-DOS style).
NOTE: If you modify the data for this notebook not in a Mathematica-
compatible application, you must delete the line below containing
the word CacheID, otherwise Mathematica-compatible applications may
try to use invalid cache data.
For more information on notebooks and Mathematica-compatible
applications, contact Wolfram Research:
web: http://www.wolfram.com
email: info@wolfram.com
phone: +1-217-398-0700 (U.S.)
Notebook reader applications are available free of charge from
Wolfram Research.
*******************************************************************)
(*CacheID: 232*)
(*NotebookFileLineBreakTest
NotebookFileLineBreakTest*)
(*NotebookOptionsPosition[ 7488, 208]*)
(*NotebookOutlinePosition[ 46229, 1529]*)
(* CellTagsIndexPosition[ 46185, 1525]*)
(*WindowFrame->Normal*)
Notebook[{
Cell[CellGroupData[{
Cell["Parsing SymbolicXML", "Title",
TextAlignment->Center],
Cell[TextData[{
"An XML Example Using ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" 4.2"
}], "Subtitle",
TextAlignment->Center],
Cell[TextData[{
"Once we have an XML file, we can use ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" to read the file as SymbolicXML. In this case, the data set is an XML \
form of the Ritter Catalog of Cataclysmic Variable Stars (Ritter, H., & Kolb, \
U., 1998, A&AS, 129, 83). This XML file was created using ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" 4.2 to modify the original row-column format of the data set (refer to \
the notebook entitled DataToXML.nb). ",
StyleBox["You will probably need to modify the path to the file to reflect \
its location at your end",
FontSlant->"Italic"],
"."
}], "Text"],
Cell[BoxData[
\(\(newdata = Import["\"];\)\)], "Input",
CellLabel->"In[1]:=",
TextAlignment->Left],
Cell["We can view the data in SymbolicXML format as follows.", "Text"],
Cell[BoxData[
\(newdata\)], "Input",
CellLabel->"In[2]:=",
TextAlignment->Left],
Cell[TextData[{
"Now that we have a SymbolicXML expression, we can parse the expression for \
any data we might want. Below is a series of parsing functions that look for \
",
StyleBox["XMLElement",
FontFamily->"Courier New"],
"s with particular names and/or properties and then extract the data into \
",
StyleBox["Mathematica",
FontSlant->"Italic"],
"'s list format."
}], "Text"],
Cell[BoxData[{
\(\(GetNames[xml_] :=
Cases[xml, XMLElement["\", {}, {name_}] \[Rule] name,
Infinity];\)\), "\n",
\(\(GetMR[xml_] :=
Cases[xml,
XMLElement["\", {}, {mr_}] \[Rule] ToExpression[mr],
Infinity];\)\), "\n",
\(\(GetMag1[xml_] :=
Cases[xml, XMLElement["\", {}, {mag1_}] \[Rule] mag1,
Infinity];\)\), "\n",
\(\(GetNameMRPair[xml_] :=
Cases[xml,
XMLElement["\", _, {___,
XMLElement["\", _, {name_}], ___,
XMLElement["\", {}, {mr_}], ___}] \[RuleDelayed] \
{name, ToExpression[mr]}, Infinity];\)\), "\n",
\(\(GetNameMag1Pair[xml_] :=
Cases[xml,
XMLElement["\", _, {___,
XMLElement["\", _, {name_}], ___,
XMLElement["\", {}, {mag1_}], ___}] \[RuleDelayed] \
{name, ToExpression[mag1]}, Infinity];\)\), "\n",
\(\(GetMag1MR[xml_] :=
Cases[xml,
XMLElement["\", _, {___,
XMLElement["\", _, {mag1_}], ___,
XMLElement["\", {}, {mr_}], ___}] \[RuleDelayed] \
{ToExpression[mr], ToExpression[mag1]}, Infinity];\)\), "\n",
\(\(GetOrbPerMR[xml_] :=
Cases[xml,
XMLElement["\", _, {___,
XMLElement["\", _, {orb_}], ___,
XMLElement["\", {}, {mr_}], ___}] \[RuleDelayed] \
{ToExpression[orb]*24, ToExpression[mr]}, Infinity];\)\), "\n",
\(\(GetNameMaglimitedPair[xml_] :=
Cases[xml,
XMLElement["\", _, {___,
XMLElement["\", _, {name_}], ___,
XMLElement["\", {}, {mag1_}], ___}] \[RuleDelayed] \
{name, ToExpression[mag1]}, Infinity];\)\)}], "Input",
CellLabel->"In[3]:=",
TextAlignment->Left],
Cell["\<\
Here's an example of using one of the parsing functions that was written. In \
this case, we are going to extract a list of pairs of data. Each pair \
consists of the orbital period and the mass ratio. In addition, several \
parsing functions are defined that allow the data to be divided into two \
groups: the first have orbital periods less than 2.1 hours and the second \
have orbital periods greater than 2.1 hours.\
\>", "Text"],
Cell[BoxData[{
\(\(mydata = GetOrbPerMR[newdata];\)\), "\n",
\(\(myless[num_] := num < 2.1;\)\), "\n",
\(\(mygreater[num_] := num > 2.1;\)\), "\n",
\(\(firstset =
Cases[mydata, {x_?myless, y_} \[RuleDelayed] {x, y}];\)\), "\n",
\(\(secset =
Cases[mydata, {x_?mygreater, y_} \[RuleDelayed] {x,
y}];\)\)}], "Input",
CellLabel->"In[11]:=",
TextAlignment->Left],
Cell["\<\
With the data now extracted and organized, we can plot the data.\
\>", "Text"],
Cell[BoxData[
\(\(Module[{a, b},
a = ListPlot[firstset, DisplayFunction \[Rule] Identity,
PlotStyle \[Rule] {RGBColor[1, 0, 0],
PointSize[0.011]}]; \[IndentingNewLine]b =
ListPlot[secset, DisplayFunction \[Rule] Identity,
PlotStyle \[Rule] {RGBColor[0, 0, 1],
PointSize[0.011]}]; \[IndentingNewLine]Show[a, b,
DisplayFunction \[Rule] $DisplayFunction, Frame \[Rule] True,
FrameLabel \[Rule] {"\", \*"\"\\""}, ImageSize \[Rule] 550,
TextStyle \[Rule] {FontFamily -> "\"}]];\)\)], "Input",
CellLabel->"In[16]:=",
TextAlignment->Left],
Cell["\<\
Of course it is easy to perform a much more simple analysis of the data, such \
as getting the number of elements that have particular properties. Below, we \
are able to get the number of named objects in the data set followed by the \
number of entries with the mass ratio specified. \
\>", "Text"],
Cell[BoxData[
\(Length@GetNames[newdata]\)], "Input",
CellLabel->"In[17]:=",
TextAlignment->Left],
Cell[BoxData[
\(Length@GetMR[newdata]\)], "Input",
CellLabel->"In[18]:=",
TextAlignment->Left]
}, Open ]]
},
FrontEndVersion->"4.2 for Microsoft Windows",
ScreenRectangle->{{0, 1024}, {0, 695}},
ScreenStyleEnvironment->"Working",
WindowSize->{1016, 668},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
StyleDefinitions -> Notebook[{
Cell[CellGroupData[{
Cell["Style Definitions", "Subtitle"],
Cell["\<\
Modify the definitions below to change the default appearance of all cells in \
a given style. Make modifications to any definition using commands in the \
Format menu.\
\>", "Text"],
Cell[CellGroupData[{
Cell["Style Environment Names", "Section"],
Cell[StyleData[All, "Working"],
PageWidth->WindowWidth,
CellLabelMargins->{{12, Inherited}, {Inherited, Inherited}},
ScriptMinSize->9],
Cell[StyleData[All, "Presentation"],
PageWidth->WindowWidth,
CellLabelMargins->{{24, Inherited}, {Inherited, Inherited}},
ScriptMinSize->12],
Cell[StyleData[All, "Condensed"],
PageWidth->WindowWidth,
CellLabelMargins->{{8, Inherited}, {Inherited, Inherited}},
ScriptMinSize->8],
Cell[StyleData[All, "Printout"],
PageWidth->PaperWidth,
CellLabelMargins->{{2, Inherited}, {Inherited, Inherited}},
ScriptMinSize->5,
PrivateFontOptions->{"FontType"->"Outline"}]
}, Closed]],
Cell[CellGroupData[{
Cell["Notebook Options", "Section"],
Cell["\<\
The options defined for the style below will be used at the Notebook level.\
\>", "Text"],
Cell[StyleData["Notebook"],
PageHeaders->{{Cell[
TextData[ {
CounterBox[ "Page"]}], "PageNumber"], None, Cell[
TextData[ {
ValueBox[ "FileName"]}], "Header"]}, {Cell[
TextData[ {
ValueBox[ "FileName"]}], "Header"], None, Cell[
TextData[ {
CounterBox[ "Page"]}], "PageNumber"]}},
CellFrameLabelMargins->6,
StyleMenuListing->None,
Background->RGBColor[1, 0.900008, 0.700008]]
}, Open ]],
Cell[CellGroupData[{
Cell["Styles for Headings", "Section"],
Cell[CellGroupData[{
Cell[StyleData["Title"],
CellMargins->{{0, 0}, {0, 0}},
CellGroupingRules->{"TitleGrouping", 0},
PageBreakBelow->False,
DefaultNewInlineCellStyle->"None",
InputAutoReplacements->{"TeX"->StyleBox[
RowBox[ {"T",
AdjustmentBox[
"E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift ->
0.5], "X"}]], "LaTeX"->StyleBox[
RowBox[ {"L",
StyleBox[
AdjustmentBox[
"A", BoxMargins -> {{-0.36, -0.1}, {0, -0}},
BoxBaselineShift -> -0.2], FontSize -> Smaller], "T",
AdjustmentBox[
"E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift ->
0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica",
"MMA"->"Mathematica", Inherited},
LineSpacing->{1, 11},
LanguageCategory->"NaturalLanguage",
CounterIncrements->"Title",
CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, {
"Subtitle", 0}, {"Subsubtitle", 0}},
FontFamily->"Times",
FontSize->36,
FontWeight->"Bold",
FontColor->GrayLevel[0.900008],
Background->RGBColor[0.2, 0.2, 0.700008]],
Cell[StyleData["Title", "Presentation"],
CellMargins->{{24, 10}, {20, 40}},
LineSpacing->{1, 0},
FontSize->44],
Cell[StyleData["Title", "Condensed"],
CellMargins->{{8, 10}, {4, 8}},
FontSize->20],
Cell[StyleData["Title", "Printout"],
CellMargins->{{2, 10}, {12, 30}},
FontSize->24]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Subtitle"],
CellMargins->{{0, 0}, {0, 0}},
CellGroupingRules->{"TitleGrouping", 10},
PageBreakBelow->False,
DefaultNewInlineCellStyle->"None",
InputAutoReplacements->{"TeX"->StyleBox[
RowBox[ {"T",
AdjustmentBox[
"E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift ->
0.5], "X"}]], "LaTeX"->StyleBox[
RowBox[ {"L",
StyleBox[
AdjustmentBox[
"A", BoxMargins -> {{-0.36, -0.1}, {0, -0}},
BoxBaselineShift -> -0.2], FontSize -> Smaller], "T",
AdjustmentBox[
"E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift ->
0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica",
"MMA"->"Mathematica", Inherited},
LanguageCategory->"NaturalLanguage",
CounterIncrements->"Subtitle",
CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, {
"Subsubtitle", 0}},
FontFamily->"Helvetica",
FontSize->18,
FontColor->GrayLevel[0.900008],
Background->GrayLevel[0]],
Cell[StyleData["Subtitle", "Presentation"],
CellMargins->{{24, 10}, {20, 20}},
LineSpacing->{1, 0},
FontSize->36],
Cell[StyleData["Subtitle", "Condensed"],
CellMargins->{{8, 10}, {4, 4}},
FontSize->14],
Cell[StyleData["Subtitle", "Printout"],
CellMargins->{{2, 10}, {12, 8}},
FontSize->18]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Subsubtitle"],
CellMargins->{{12, Inherited}, {20, 15}},
CellGroupingRules->{"TitleGrouping", 20},
PageBreakBelow->False,
DefaultNewInlineCellStyle->"None",
InputAutoReplacements->{"TeX"->StyleBox[
RowBox[ {"T",
AdjustmentBox[
"E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift ->
0.5], "X"}]], "LaTeX"->StyleBox[
RowBox[ {"L",
StyleBox[
AdjustmentBox[
"A", BoxMargins -> {{-0.36, -0.1}, {0, -0}},
BoxBaselineShift -> -0.2], FontSize -> Smaller], "T",
AdjustmentBox[
"E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift ->
0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica",
"MMA"->"Mathematica", Inherited},
LanguageCategory->"NaturalLanguage",
CounterIncrements->"Subsubtitle",
CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}},
FontFamily->"Helvetica",
FontSize->14,
FontSlant->"Italic"],
Cell[StyleData["Subsubtitle", "Presentation"],
CellMargins->{{24, 10}, {20, 20}},
LineSpacing->{1, 0},
FontSize->24],
Cell[StyleData["Subsubtitle", "Condensed"],
CellMargins->{{8, 10}, {8, 8}},
FontSize->12],
Cell[StyleData["Subsubtitle", "Printout"],
CellMargins->{{2, 10}, {12, 8}},
FontSize->14]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Section"],
CellMargins->{{25, Inherited}, {8, 24}},
CellGroupingRules->{"SectionGrouping", 30},
PageBreakBelow->False,
DefaultNewInlineCellStyle->"None",
InputAutoReplacements->{"TeX"->StyleBox[
RowBox[ {"T",
AdjustmentBox[
"E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift ->
0.5], "X"}]], "LaTeX"->StyleBox[
RowBox[ {"L",
StyleBox[
AdjustmentBox[
"A", BoxMargins -> {{-0.36, -0.1}, {0, -0}},
BoxBaselineShift -> -0.2], FontSize -> Smaller], "T",
AdjustmentBox[
"E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift ->
0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica",
"MMA"->"Mathematica", Inherited},
LineSpacing->{1, 7},
LanguageCategory->"NaturalLanguage",
CounterIncrements->"Section",
CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}},
FontFamily->"Helvetica",
FontSize->16,
FontWeight->"Bold"],
Cell[StyleData["Section", "Presentation"],
CellMargins->{{40, 10}, {11, 32}},
LineSpacing->{1, 0},
FontSize->24],
Cell[StyleData["Section", "Condensed"],
CellMargins->{{18, Inherited}, {6, 12}},
FontSize->12],
Cell[StyleData["Section", "Printout"],
CellMargins->{{13, 0}, {7, 22}},
FontSize->14]
}, Open ]],
Cell[CellGroupData[{
Cell[StyleData["Subsection"],
CellDingbat->"\[FilledSmallSquare]",
CellMargins->{{22, Inherited}, {8, 20}},
CellGroupingRules->{"SectionGrouping", 40},
PageBreakBelow->False,
DefaultNewInlineCellStyle->"None",
InputAutoReplacements->{"TeX"->StyleBox[
RowBox[ {"T",
AdjustmentBox[
"E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift ->
0.5], "X"}]], "LaTeX"->StyleBox[
RowBox[ {"L",
StyleBox[
AdjustmentBox[
"A", BoxMargins -> {{-0.36, -0.1}, {0, -0}},
BoxBaselineShift -> -0.2], FontSize -> Smaller], "T",
AdjustmentBox[
"E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift ->
0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica",
"MMA"->"Mathematica", Inherited},
LanguageCategory->"NaturalLanguage",
CounterIncrements->"Subsection",
CounterAssignments->{{"Subsubsection", 0}},
FontFamily->"Times",
FontSize->14,
FontWeight->"Bold"],
Cell[StyleData["Subsection", "Presentation"],
CellMargins->{{36, 10}, {11, 32}},
LineSpacing->{1, 0},
FontSize->22],
Cell[StyleData["Subsection", "Condensed"],
CellMargins->{{16, Inherited}, {6, 12}},
FontSize->12],
Cell[StyleData["Subsection", "Printout"],
CellMargins->{{9, 0}, {7, 22}},
FontSize->12]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Subsubsection"],
CellDingbat->"\[FilledSmallSquare]",
CellMargins->{{22, Inherited}, {8, 18}},
CellGroupingRules->{"SectionGrouping", 50},
PageBreakBelow->False,
DefaultNewInlineCellStyle->"None",
InputAutoReplacements->{"TeX"->StyleBox[
RowBox[ {"T",
AdjustmentBox[
"E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift ->
0.5], "X"}]], "LaTeX"->StyleBox[
RowBox[ {"L",
StyleBox[
AdjustmentBox[
"A", BoxMargins -> {{-0.36, -0.1}, {0, -0}},
BoxBaselineShift -> -0.2], FontSize -> Smaller], "T",
AdjustmentBox[
"E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift ->
0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica",
"MMA"->"Mathematica", Inherited},
LanguageCategory->"NaturalLanguage",
CounterIncrements->"Subsubsection",
FontFamily->"Times",
FontWeight->"Bold"],
Cell[StyleData["Subsubsection", "Presentation"],
CellMargins->{{34, 10}, {11, 26}},
LineSpacing->{1, 0},
FontSize->18],
Cell[StyleData["Subsubsection", "Condensed"],
CellMargins->{{17, Inherited}, {6, 12}},
FontSize->10],
Cell[StyleData["Subsubsection", "Printout"],
CellMargins->{{9, 0}, {7, 14}},
FontSize->11]
}, Closed]]
}, Open ]],
Cell[CellGroupData[{
Cell["Styles for Body Text", "Section"],
Cell[CellGroupData[{
Cell[StyleData["Text"],
CellMargins->{{12, 10}, {7, 7}},
InputAutoReplacements->{"TeX"->StyleBox[
RowBox[ {"T",
AdjustmentBox[
"E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift ->
0.5], "X"}]], "LaTeX"->StyleBox[
RowBox[ {"L",
StyleBox[
AdjustmentBox[
"A", BoxMargins -> {{-0.36, -0.1}, {0, -0}},
BoxBaselineShift -> -0.2], FontSize -> Smaller], "T",
AdjustmentBox[
"E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift ->
0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica",
"MMA"->"Mathematica", Inherited},
Hyphenation->True,
LineSpacing->{1, 3},
CounterIncrements->"Text"],
Cell[StyleData["Text", "Presentation"],
CellMargins->{{24, 10}, {10, 10}},
LineSpacing->{1, 5},
FontSize->16],
Cell[StyleData["Text", "Condensed"],
CellMargins->{{8, 10}, {6, 6}},
LineSpacing->{1, 1},
FontSize->11],
Cell[StyleData["Text", "Printout"],
CellMargins->{{2, 2}, {6, 6}},
TextJustification->0.5,
FontSize->10]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["SmallText"],
CellMargins->{{12, 10}, {6, 6}},
DefaultNewInlineCellStyle->"None",
Hyphenation->True,
LineSpacing->{1, 3},
LanguageCategory->"NaturalLanguage",
CounterIncrements->"SmallText",
FontFamily->"Helvetica",
FontSize->9],
Cell[StyleData["SmallText", "Presentation"],
CellMargins->{{24, 10}, {8, 8}},
LineSpacing->{1, 5},
FontSize->12],
Cell[StyleData["SmallText", "Condensed"],
CellMargins->{{8, 10}, {5, 5}},
LineSpacing->{1, 2},
FontSize->9],
Cell[StyleData["SmallText", "Printout"],
CellMargins->{{2, 2}, {5, 5}},
TextJustification->0.5,
FontSize->7]
}, Closed]]
}, 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->{{45, 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[StyleData["InputOnly"],
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[CellGroupData[{
Cell[StyleData["Output"],
CellMargins->{{47, 10}, {7, 5}},
CellEditDuplicate->True,
CellGroupingRules->"OutputGrouping",
CellHorizontalScrolling->True,
PageBreakWithin->False,
GroupPageBreakWithin->False,
GeneratedCell->True,
CellAutoOverwrite->True,
DefaultFormatType->DefaultOutputFormatType,
"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->{{45, Inherited}, {Inherited, Inherited}},
CellGroupingRules->"OutputGrouping",
PageBreakWithin->False,
GroupPageBreakWithin->False,
GeneratedCell->True,
CellAutoOverwrite->True,
ShowCellLabel->False,
DefaultFormatType->DefaultOutputFormatType,
"TwoByteSyntaxCharacterAutoReplacement"->True,
HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"},
AutoItalicWords->{},
LanguageCategory->None,
FormatType->InputForm,
CounterIncrements->"Message",
StyleMenuListing->None,
FontSize->11,
FontColor->RGBColor[0, 0, 1]],
Cell[StyleData["Message", "Presentation"],
CellMargins->{{72, Inherited}, {Inherited, Inherited}},
LineSpacing->{1, 0},
FontSize->16],
Cell[StyleData["Message", "Condensed"],
CellMargins->{{41, Inherited}, {Inherited, Inherited}},
FontSize->11],
Cell[StyleData["Message", "Printout"],
CellMargins->{{39, Inherited}, {Inherited, Inherited}},
FontSize->7,
FontColor->GrayLevel[0]]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Print"],
CellMargins->{{45, Inherited}, {Inherited, Inherited}},
CellGroupingRules->"OutputGrouping",
CellHorizontalScrolling->True,
PageBreakWithin->False,
GroupPageBreakWithin->False,
GeneratedCell->True,
CellAutoOverwrite->True,
ShowCellLabel->False,
DefaultFormatType->DefaultOutputFormatType,
"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, 0, 1]],
Cell[StyleData["CellLabel", "Presentation"],
FontSize->12],
Cell[StyleData["CellLabel", "Condensed"],
FontSize->9],
Cell[StyleData["CellLabel", "Printout"],
FontFamily->"Courier",
FontSize->8,
FontSlant->"Italic",
FontColor->GrayLevel[0]]
}, Closed]],
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"],
Cell[StyleData["SO10", "EnhancedPrintout"],
StyleMenuListing->None,
FontFamily->"Futura",
FontSize->7,
FontWeight->"Plain",
FontSlant->"Italic"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell["Formulas and Programming", "Section"],
Cell[CellGroupData[{
Cell[StyleData["InlineFormula"],
CellMargins->{{10, 4}, {0, 8}},
CellHorizontalScrolling->True,
HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"},
LanguageCategory->"Formula",
ScriptLevel->1,
SingleLetterItalics->True],
Cell[StyleData["InlineFormula", "Presentation"],
CellMargins->{{24, 10}, {10, 10}},
LineSpacing->{1, 5},
FontSize->16],
Cell[StyleData["InlineFormula", "Condensed"],
CellMargins->{{8, 10}, {6, 6}},
LineSpacing->{1, 1},
FontSize->11],
Cell[StyleData["InlineFormula", "Printout"],
CellMargins->{{2, 0}, {6, 6}},
FontSize->10]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["DisplayFormula"],
CellMargins->{{42, Inherited}, {Inherited, Inherited}},
CellHorizontalScrolling->True,
DefaultFormatType->DefaultInputFormatType,
HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"},
LanguageCategory->"Formula",
ScriptLevel->0,
SingleLetterItalics->True,
UnderoverscriptBoxOptions->{LimitsPositioning->True}],
Cell[StyleData["DisplayFormula", "Presentation"],
LineSpacing->{1, 5},
FontSize->16],
Cell[StyleData["DisplayFormula", "Condensed"],
LineSpacing->{1, 1},
FontSize->11],
Cell[StyleData["DisplayFormula", "Printout"],
FontSize->10]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Program"],
CellFrame->{{0, 0}, {0.5, 0.5}},
CellMargins->{{10, 4}, {0, 8}},
CellHorizontalScrolling->True,
Hyphenation->False,
LanguageCategory->"Formula",
ScriptLevel->1,
FontFamily->"Courier"],
Cell[StyleData["Program", "Presentation"],
CellMargins->{{24, 10}, {10, 10}},
LineSpacing->{1, 5},
FontSize->16],
Cell[StyleData["Program", "Condensed"],
CellMargins->{{8, 10}, {6, 6}},
LineSpacing->{1, 1},
FontSize->11],
Cell[StyleData["Program", "Printout"],
CellMargins->{{2, 0}, {6, 6}},
FontSize->9]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell["Outline Styles", "Section"],
Cell[CellGroupData[{
Cell[StyleData["Outline1"],
CellMargins->{{12, 10}, {7, 7}},
CellGroupingRules->{"SectionGrouping", 50},
ParagraphIndent->-38,
CounterIncrements->"Outline1",
FontSize->18,
FontWeight->"Bold",
CounterBoxOptions->{CounterFunction:>CapitalRomanNumeral}],
Cell[StyleData["Outline1", "Printout"],
CounterBoxOptions->{CounterFunction:>CapitalRomanNumeral}]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Outline2"],
CellMargins->{{59, 10}, {7, 7}},
CellGroupingRules->{"SectionGrouping", 60},
ParagraphIndent->-27,
CounterIncrements->"Outline2",
FontSize->15,
FontWeight->"Bold",
CounterBoxOptions->{CounterFunction:>(Part[
CharacterRange[ "A", "Z"], #]&)}],
Cell[StyleData["Outline2", "Printout"],
CounterBoxOptions->{CounterFunction:>(Part[
CharacterRange[ "A", "Z"], #]&)}]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Outline3"],
CellMargins->{{108, 10}, {7, 7}},
CellGroupingRules->{"SectionGrouping", 70},
ParagraphIndent->-21,
CounterIncrements->"Outline3",
FontSize->12,
CounterBoxOptions->{CounterFunction:>Identity}],
Cell[StyleData["Outline3", "Printout"],
CounterBoxOptions->{CounterFunction:>Identity}]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Outline4"],
CellMargins->{{158, 10}, {7, 7}},
CellGroupingRules->{"SectionGrouping", 80},
ParagraphIndent->-18,
CounterIncrements->"Outline4",
FontSize->10,
CounterBoxOptions->{CounterFunction:>(Part[
CharacterRange[ "a", "z"], #]&)}],
Cell[StyleData["Outline4", "Printout"]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell["Hyperlink Styles", "Section"],
Cell["\<\
The cells below define styles useful for making hypertext ButtonBoxes. The \
\"Hyperlink\" style is for links within the same Notebook, or between \
Notebooks.\
\>", "Text"],
Cell[CellGroupData[{
Cell[StyleData["Hyperlink"],
StyleMenuListing->None,
ButtonStyleMenuListing->Automatic,
FontColor->RGBColor[0, 0, 1],
FontVariations->{"Underline"->True},
ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
FrontEnd`NotebookLocate[ #2]}]&),
Active->True,
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, 0, 1],
FontVariations->{"Underline"->True},
ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
FrontEnd`HelpBrowserLookup[ "MainBook", #]}]&),
Active->True,
ButtonFrame->"None"}],
Cell[StyleData["MainBookLink", "Presentation"],
FontSize->16],
Cell[StyleData["MainBookLink", "Condensed"],
FontSize->11],
Cell[StyleData["MainBookLink", "Printout"],
FontSize->10,
FontColor->GrayLevel[0],
FontVariations->{"Underline"->False}]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["AddOnsLink"],
StyleMenuListing->None,
ButtonStyleMenuListing->Automatic,
FontFamily->"Courier",
FontColor->RGBColor[0, 0, 1],
FontVariations->{"Underline"->True},
ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
FrontEnd`HelpBrowserLookup[ "AddOns", #]}]&),
Active->True,
ButtonFrame->"None"}],
Cell[StyleData["AddOnsLink", "Presentation"],
FontSize->16],
Cell[StyleData["AddOnsLink", "Condensed"],
FontSize->11],
Cell[StyleData["AddOnsLink", "Printout"],
FontSize->10,
FontColor->GrayLevel[0],
FontVariations->{"Underline"->False}]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["RefGuideLink"],
StyleMenuListing->None,
ButtonStyleMenuListing->Automatic,
FontFamily->"Courier",
FontColor->RGBColor[0, 0, 1],
FontVariations->{"Underline"->True},
ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
FrontEnd`HelpBrowserLookup[ "RefGuide", #]}]&),
Active->True,
ButtonFrame->"None"}],
Cell[StyleData["RefGuideLink", "Presentation"],
FontSize->16],
Cell[StyleData["RefGuideLink", "Condensed"],
FontSize->11],
Cell[StyleData["RefGuideLink", "Printout"],
FontSize->10,
FontColor->GrayLevel[0],
FontVariations->{"Underline"->False}]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["GettingStartedLink"],
StyleMenuListing->None,
ButtonStyleMenuListing->Automatic,
FontColor->RGBColor[0, 0, 1],
FontVariations->{"Underline"->True},
ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
FrontEnd`HelpBrowserLookup[ "GettingStarted", #]}]&),
Active->True,
ButtonFrame->"None"}],
Cell[StyleData["GettingStartedLink", "Presentation"],
FontSize->16],
Cell[StyleData["GettingStartedLink", "Condensed"],
FontSize->11],
Cell[StyleData["GettingStartedLink", "Printout"],
FontSize->10,
FontColor->GrayLevel[0],
FontVariations->{"Underline"->False}]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["OtherInformationLink"],
StyleMenuListing->None,
ButtonStyleMenuListing->Automatic,
FontColor->RGBColor[0, 0, 1],
FontVariations->{"Underline"->True},
ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
FrontEnd`HelpBrowserLookup[ "OtherInformation", #]}]&),
Active->True,
ButtonFrame->"None"}],
Cell[StyleData["OtherInformationLink", "Presentation"],
FontSize->16],
Cell[StyleData["OtherInformationLink", "Condensed"],
FontSize->11],
Cell[StyleData["OtherInformationLink", "Printout"],
FontSize->10,
FontColor->GrayLevel[0],
FontVariations->{"Underline"->False}]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell["Styles for Headers and Footers", "Section"],
Cell[StyleData["Header"],
CellMargins->{{0, 0}, {4, 1}},
DefaultNewInlineCellStyle->"None",
LanguageCategory->"NaturalLanguage",
StyleMenuListing->None,
FontSize->10,
FontSlant->"Italic"],
Cell[StyleData["Footer"],
CellMargins->{{0, 0}, {0, 4}},
DefaultNewInlineCellStyle->"None",
LanguageCategory->"NaturalLanguage",
StyleMenuListing->None,
FontSize->9,
FontSlant->"Italic"],
Cell[StyleData["PageNumber"],
CellMargins->{{0, 0}, {4, 1}},
StyleMenuListing->None,
FontFamily->"Times",
FontSize->10]
}, Closed]],
Cell[CellGroupData[{
Cell["Palette Styles", "Section"],
Cell["\<\
The cells below define styles that define standard ButtonFunctions, for use \
in palette buttons.\
\>", "Text"],
Cell[StyleData["Paste"],
StyleMenuListing->None,
ButtonStyleMenuListing->Automatic,
ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
FrontEnd`NotebookApply[
FrontEnd`InputNotebook[ ], #, 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[1, 0.749996, 0.8]]
}, Closed]],
Cell[CellGroupData[{
Cell["Automatic Styles", "Section"],
Cell["\<\
The cells below define styles that are used to affect the display of certain \
types of objects in typeset expressions. For example, \"UnmatchedBracket\" \
style defines how unmatched bracket, curly bracket, and parenthesis \
characters are displayed (typically by coloring them to make them stand out).\
\
\>", "Text"],
Cell[StyleData["UnmatchedBracket"],
StyleMenuListing->None,
FontColor->RGBColor[0.760006, 0.330007, 0.8]]
}, Closed]]
}, Open ]]
}]
]
(*******************************************************************
Cached data follows. If you edit this Notebook file directly, not
using Mathematica, you must remove the line containing CacheID at
the top of the file. The cache data will then be recreated when
you save this file from within Mathematica.
*******************************************************************)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[1776, 53, 61, 1, 69, "Title"],
Cell[1840, 56, 144, 6, 40, "Subtitle"],
Cell[1987, 64, 649, 15, 71, "Text"],
Cell[2639, 81, 122, 3, 30, "Input"],
Cell[2764, 86, 70, 0, 33, "Text"],
Cell[2837, 88, 87, 3, 30, "Input"],
Cell[2927, 93, 400, 11, 52, "Text"],
Cell[3330, 106, 1925, 42, 370, "Input"],
Cell[5258, 150, 447, 7, 71, "Text"],
Cell[5708, 159, 418, 10, 110, "Input"],
Cell[6129, 171, 88, 2, 33, "Text"],
Cell[6220, 175, 724, 13, 90, "Input"],
Cell[6947, 190, 312, 5, 52, "Text"],
Cell[7262, 197, 105, 3, 30, "Input"],
Cell[7370, 202, 102, 3, 30, "Input"]
}, Open ]]
}
]
*)
(*******************************************************************
End of Mathematica Notebook file.
*******************************************************************)