(************** Content-type: application/mathematica **************
CreatedBy='Mathematica 5.2'
Mathematica-Compatible Notebook
This notebook can be used with any Mathematica-compatible
application, such as Mathematica, MathReader or Publicon. The data
for the notebook starts with the line containing stars above.
To get the notebook into a Mathematica-compatible application, do
one of the following:
* Save the data starting with the line of stars above into a file
with a name ending in .nb, then open the file inside the
application;
* Copy the data starting with the line of stars above to the
clipboard, then use the Paste menu command inside the application.
Data for notebooks contains only printable 7-bit ASCII and can be
sent directly in email or through ftp in text mode. Newlines can be
CR, LF or CRLF (Unix, Macintosh or MS-DOS style).
NOTE: If you modify the data for this notebook not in a Mathematica-
compatible application, you must delete the line below containing
the word CacheID, otherwise Mathematica-compatible applications may
try to use invalid cache data.
For more information on notebooks and Mathematica-compatible
applications, contact Wolfram Research:
web: http://www.wolfram.com
email: info@wolfram.com
phone: +1-217-398-0700 (U.S.)
Notebook reader applications are available free of charge from
Wolfram Research.
*******************************************************************)
(*CacheID: 232*)
(*NotebookFileLineBreakTest
NotebookFileLineBreakTest*)
(*NotebookOptionsPosition[ 14947, 464]*)
(*NotebookOutlinePosition[ 49056, 1694]*)
(* CellTagsIndexPosition[ 48967, 1688]*)
(*WindowFrame->Normal*)
Notebook[{
Cell[CellGroupData[{
Cell["Markov Chains", "Title",
TextAlignment->Center,
TextJustification->0],
Cell[TextData[{
"from ",
StyleBox[ButtonBox["Essential Mathematica for Students of Science",
Active->False,
ButtonData:>{
URL[
"http://www.physics.umd.edu/courses/CourseWare/EssentialMathematica/"],
None},
Active->False,
ButtonStyle->"Hyperlink"],
Active->False],
"\n\[Copyright] James J. Kelly, 1998\nLast revised: January, 2006"
}], "Author",
Active->True,
TextAlignment->Center,
TextJustification->0],
Cell[CellGroupData[{
Cell["Introduction", "Section"],
Cell[TextData[{
"Suppose that a system has ",
StyleBox["n",
FontSlant->"Italic"],
" possible states and that the ",
StyleBox["probability vector",
FontSlant->"Italic"],
" ",
Cell[BoxData[
\(TraditionalForm\`{x\_i}\)]],
" contains a list of probabilities for the occurrence of these states at a \
particular time. At a later time, or the next computation cycle, the \
probability vector becomes ",
Cell[BoxData[
\(TraditionalForm\`y = T . x\)]],
" where ",
StyleBox["T",
FontSlant->"Italic"],
" is the ",
StyleBox["transition matrix",
FontSlant->"Italic"],
" consisting of the probabilities ",
Cell[BoxData[
\(TraditionalForm\`T\_\(i, j\)\)]],
" for a transition from state ",
StyleBox["j",
FontSlant->"Italic"],
" to state ",
StyleBox["i",
FontSlant->"Italic"],
" during the specified interval. If the transition matrix is independent \
of time, the evolution of the system is described as a ",
StyleBox["Markov chain",
FontSlant->"Italic"],
" consisting of the sequence of probability vectors ",
Cell[BoxData[
\(TraditionalForm\`y\_1\)]],
", ",
Cell[BoxData[
\(TraditionalForm\`y\_2\)]],
", \[CenterEllipsis], ",
Cell[BoxData[
\(TraditionalForm\`y\_n\)]],
" where ",
Cell[BoxData[
\(TraditionalForm\`y\_n = \(T\^n\) x\)]],
". All elements of each probability vector and of the transition matrix \
must be nonnegative real numbers and the sum of the elements in any \
probability vector and in each column of the transition matrix must be \
unity."
}], "Text"],
Cell[TextData[{
"Suppose that for a given ",
StyleBox["T",
FontSlant->"Italic"],
" there exists a probability vector ",
StyleBox["x",
FontSlant->"Italic"],
" such that ",
Cell[BoxData[
\(TraditionalForm\`x = T . x\)]],
". We then call ",
StyleBox["x",
FontSlant->"Italic"],
" an ",
StyleBox["equilibrium vector",
FontSlant->"Italic"],
" of ",
StyleBox["T",
FontSlant->"Italic"],
". Every transition matrix has at least one equilibrium vector. We will \
use two important theorems about equilibrium vectors."
}], "Text"],
Cell[TextData[{
StyleBox["Theorem 1",
FontWeight->"Bold"],
": If ",
StyleBox["T",
FontSlant->"Italic"],
" is the transition matrix for a Markov chain, then \[Lambda]=1 is an \
eigenvalue of ",
StyleBox["T",
FontSlant->"Italic"],
". If ",
StyleBox["x",
FontSlant->"Italic"],
" is an eigenvector with \[Lambda]=1 and nonnegative components, then ",
Cell[BoxData[
\(TraditionalForm\`x/\(\[Sum]\+i x\_i\)\)]],
" is an equilibrium vector of ",
StyleBox["T",
FontSlant->"Italic"],
"."
}], "Text"],
Cell[TextData[{
StyleBox["Theorem 2",
FontWeight->"Bold"],
": If ",
StyleBox["T",
FontSlant->"Italic"],
" is the transition matrix for a Markov chain and there exists some power \
of ",
StyleBox["T",
FontSlant->"Italic"],
" for which every element is nonzero, then ",
StyleBox["T",
FontSlant->"Italic"],
" has one unique equilibrium vector."
}], "Text"],
Cell[TextData[{
"These theorems provide a simple algorithm for construction of the \
equilibrium vector known as the ",
StyleBox["power method",
FontSlant->"Italic"],
". If we assume that there exists a unique equilibrium vector, we can \
construct that vector by choosing a random probability vector ",
StyleBox["x",
FontSlant->"Italic"],
" and evaluating the limit of ",
Cell[BoxData[
\(TraditionalForm\`\(T\^n\) x\)]],
" as ",
Cell[BoxData[
\(TraditionalForm\`x \[Rule] \[Infinity]\)]],
". Otherwise, if we evaluate the limit of ",
Cell[BoxData[
\(TraditionalForm\`T\^n\)]],
" directly its transpose provides a list of equilibrium vectors. However, \
this list is usually highly degenerate. "
}], "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell["Initialization", "Section"],
Cell[BoxData[{
\(\(ClearAll["\"];\)\), "\n",
\(Off[General::spell, \ General::spell1]\)}], "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell["Implementation", "Section"],
Cell[CellGroupData[{
Cell["Function for construction of equilibrium vectors", "Subsection"],
Cell[TextData[{
"The function ",
StyleBox["EquilibriumVector", "InlineInput",
FontWeight->"Bold"],
" implements two closely related algorithms for the construction of \
equilibrium vectors for a Markovian transition matrix. If we assume that the \
equilibrium vector is unique, a random probability vector ",
StyleBox["x",
FontSlant->"Italic"],
" is constructed and the limit of ",
Cell[BoxData[
\(TraditionalForm\`\(T\^n\) x\)]],
" is evaluated using the rms deviation as a measure of convergence. \
Otherwise, the limit of ",
Cell[BoxData[
\(TraditionalForm\`T\^n\)]],
" is evaluated and its transpose is returned as a list of equilibrium \
vectors which might contain many duplications."
}], "Text"],
Cell[BoxData[{
\(\(\(ClearAll[EquilibriumVector];\)\(\n\)
\)\), "\n",
\(\(\(EquilibriumVector::usage = "\False the transpose of the limiting power of T is returned. \
Additional options include the maximum number of iterations, MaxIterations, \
and the convergence criterion, Tolerance.\>";\)\(\n\)
\)\), "\n",
\(\(EquilibriumVector::unsquare = "\";\)\), "\n",
\(\(EquilibriumVector::badvalues = "\";\)\), "\n",
\(\(EquilibriumVector::badcolumn = "\";\)\), "\n",
\(\(EquilibriumVector::fail = "\";\)\), "\n",
\(\(\(EquilibriumVector::iterations = "\";\)\(\n\)
\)\), "\n",
\(\(\(Options[
EquilibriumVector] = {Tolerance \[Rule] 10\ $MachineEpsilon,
MaxIterations \[Rule] $RecursionLimit,
Unique \[Rule] True};\)\(\n\)
\)\), "\n",
\(EquilibriumVector[T_?MatrixQ, opts___] :=
With[{defaults = Options[EquilibriumVector]},
Module[{n = 0, m, error = Infinity, U, V, goof = False, tolerance,
nmax, result},
m = Dimensions[T]; \n\n (*\
Verify\ that\ T\ is\ a\ proper\ transition\ \(\(matrix\)\(.\)\)\ \
*) \[IndentingNewLine]\n
If[Not[MatchQ[m, {k_, k_}]], \
Message[EquilibriumVector::unsquare, m]; goof = True]; \n
If[Count[Flatten[T], \((x_ /; x < 0 || x > 1)\)] > 0,
Message[EquilibriumVector::badvalues]; goof = True]; \n
If[Count[\((1 - Plus @@ # &)\)\ /@ Transpose[T],
x_ /; x > tolerance] > 0,
Message[EquilibriumVector::badcolumn]; goof = True]; \n\n (*\
Initialize\ iteration\ parameters\ and\ \(\(options\)\(.\)\)\
*) \[IndentingNewLine]\[IndentingNewLine]tolerance = \(Tolerance /. {opts}\) /.
defaults; \[IndentingNewLine]nmax = \(MaxIterations /. {opts}\) \
/. defaults; \[IndentingNewLine]unique = \(Unique /. {opts}\) /.
defaults; \[IndentingNewLine]m =
m\[LeftDoubleBracket]1\[RightDoubleBracket]; \
\[IndentingNewLine]Which[goof,
Message[EquilibriumVector::fail], \n\n (*\
Construct\ dominant\ eigenvector, \ assumed\ to\ be\ unique, \
from\ random\ initial\ \(\(state\)\(.\)\)\ \
*) \[IndentingNewLine]\[IndentingNewLine]unique, \[IndentingNewLine]V =
Table[Random[Real, {0, 1}], {m}]; \[IndentingNewLine]V =
V/Plus @@ V; \[IndentingNewLine]While[
error \[GreaterEqual] tolerance && n \[LessEqual] nmax, U = V;
V = T . V; error = Sqrt[Plus @@ \((\((V - U)\)\^2)\)/m];
n = n + 1]; \
result = V, \n\t\t\t\t\n (*\
Evaluate\ limit\ of\ T\^n\ *) \[IndentingNewLine]\
\[IndentingNewLine]True,
U = T; \[IndentingNewLine]While[
error \[GreaterEqual] tolerance && n \[LessEqual] nmax, V = U;
U = T . U; error = Sqrt[Plus @@ \((Flatten[V - U]\^2)\)]/m;
n = n + 1]; \[IndentingNewLine]result = Transpose[V]]; \n\n (*\
Return\ \(\(result\)\(.\)\)\ *) \[IndentingNewLine]\
\[IndentingNewLine]If[n \[GreaterEqual] nmax,
Message[EquilibriumVector::iterations, n]]; result]]\)}], "Input"],
Cell[CellGroupData[{
Cell[BoxData[
\(\(?EquilibriumVector\)\)], "Input"],
Cell[BoxData[
\("EquilibriumVector[T,options] constructs the equilibrium vector(s) for \
a Markov transition matrix T. The equilibrium vector is assumed to be unique \
by default, but with option Unique->False the transpose of the limiting power \
of T is returned. Additional options include the maximum number of \
iterations, MaxIterations, and the convergence criterion, Tolerance."\)], \
"Print",
CellTags->"Info3349187489-9001416"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell["Test cases", "Subsection"],
Cell["\<\
The following function constructs a random transition matrix.\
\>", "Text"],
Cell[BoxData[
\(randomT[n_] :=
Transpose[
Map[#/Plus @@ # &, \
Table[Random[Real, {0, 1}], {n}, {n}]]]\)], "Input"],
Cell[BoxData[
\(\(testMatrix = randomT[100];\)\)], "Input"],
Cell[TextData[{
"Below we compare equilibrium vectors constructed using both versions of \
our algorithm with the result of the built-in ",
StyleBox["Eigensystem", "InlineInput",
FontWeight->"Bold"],
" function. Note that we must normalize the latter result."
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(Timing[\(result1 = EquilibriumVector[testMatrix];\)]\)], "Input"],
Cell[BoxData[
\({0.06300000000000239`\ Second, Null}\)], "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[BoxData[
\(Timing[\(result2 =
EquilibriumVector[testMatrix, Unique \[Rule] False];\)]\)], "Input"],
Cell[BoxData[
\({0.1869999999999976`\ Second, Null}\)], "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[BoxData[
\(Sqrt[\((Plus @@ \(\((result1 - First[result2])\)\^2\))\)/
Length[result1]]\)], "Input"],
Cell[BoxData[
\(2.18984362415386`*^-16\)], "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[BoxData[
\(Timing[\(result3 = \((#/Plus @@ # &)\)@\(Rest[
Eigensystem[testMatrix]]\)\[LeftDoubleBracket]1,
1\[RightDoubleBracket];\)]\)], "Input"],
Cell[BoxData[
\({0.0940000000000012`\ Second, Null}\)], "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[BoxData[
\(Sqrt[\((Plus @@ \(\((result1 - result3)\)\^2\))\)/
Length[result1]]\)], "Input"],
Cell[BoxData[
\(9.130975358565956`*^-17\)], "Output"]
}, Closed]],
Cell["\<\
Thus, we find good numerical agreement between the three methods. The \
built-in function is the most efficient, producing the entire eigensystem in \
about the same time as a single equilibrium vector by the power method. \
Evaluating the limiting power of the transition matrix directly is rather \
slow.\
\>", "Text"],
Cell[TextData[{
"Evaluate all equilibrium vectors of ",
Cell[BoxData[
FormBox[
RowBox[{"(", "\[NegativeThinSpace]",
RowBox[{GridBox[{
{\(1/3\)},
{\(1/3\)},
{\(1/3\)}
}], "\[NegativeThinSpace]", GridBox[{
{"0"},
{"0"},
{"1"}
}], GridBox[{
{\(1/2\)},
{\(1/2\)},
{"0"}
}]}], ")"}], TraditionalForm]]],
"."
}], "Exercise"],
Cell[TextData[{
"Evaluate all equilibrium vectors of ",
Cell[BoxData[
FormBox[
RowBox[{"(", "\[NegativeThinSpace]",
RowBox[{GridBox[{
{\(1/3\)},
{\(2/3\)},
{"0"}
}], "\[NegativeThinSpace]", GridBox[{
{"0"},
{"0"},
{"1"}
}], GridBox[{
{\(1/2\)},
{\(1/2\)},
{"0"}
}]}], ")"}], TraditionalForm]]],
" and compare with the previous exercise. Justify the claim that if a \
transition matrix can be arranged in block diagonal form by renumbering the \
state space, the number of equilibrium vectors will be at least as large as \
the number of blocks."
}], "Exercise"]
}, Closed]]
}, Closed]]
}, Open ]]
},
FrontEndVersion->"5.2 for Microsoft Windows",
ScreenRectangle->{{0, 1400}, {0, 952}},
WindowToolbars->"EditBar",
WindowSize->{1392, 912},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
ShowSelection->True,
ShowCellLabel->False,
Magnification->1.5,
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,
ScriptMinSize->9],
Cell[StyleData[All, "Presentation"],
PageWidth->WindowWidth,
ScriptMinSize->12,
FontSize->16],
Cell[StyleData[All, "Condensed"],
PageWidth->PaperWidth,
CellBracketOptions->{"Margins"->{1, 1},
"Widths"->{0, 5}},
ScriptMinSize->7,
FontSize->10],
Cell[StyleData[All, "Printout"],
PageWidth->PaperWidth,
ScriptMinSize->7,
FontSize->10,
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"]}},
PageFooters->{{Cell[
TextData[ {"Essential Mathematica for Students of Science"}],
"Footer"], None, Cell[
TextData[ {"\[Copyright] James J. Kelly, 1998"}], "Footer"]}, {
Cell[
TextData[ {"Essential Mathematica for Students of Science"}],
"Footer"], None, Cell[
TextData[ {"\[Copyright] James J. Kelly, 1998"}], "Footer"]}},
PageHeaderLines->{True, True},
PageFooterLines->{True, True},
PrintingOptions->{"FirstPageHeader"->False,
"FacingPages"->True},
CellFrameLabelMargins->6,
StyleMenuListing->None]
}, Closed]],
Cell[CellGroupData[{
Cell["Styles for Headings", "Section"],
Cell[CellGroupData[{
Cell[StyleData["Title"],
ShowCellBracket->True,
CellMargins->{{0, 0}, {0, 0}},
CellGroupingRules->"TitleGrouping",
PageBreakBelow->False,
LineSpacing->{1, 0},
CounterIncrements->"Title",
CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, {
"Subtitle", 0}, {"Subsubtitle", 0}},
FontSize->34,
FontColor->GrayLevel[1],
Background->RGBColor[0.571389, 0.19675, 0.570504]],
Cell[StyleData["Title", "Presentation"],
CellMargins->{{0, 0}, {0, 0}},
LineSpacing->{1, 0},
FontSize->44],
Cell[StyleData["Title", "Condensed"],
CellMargins->{{0, 0}, {0, 0}},
FontSize->24],
Cell[StyleData["Title", "Printout"],
CellMargins->{{0, 0}, {0, 0}},
FontSize->24,
FontTracking->"Plain",
FontColor->GrayLevel[0],
Background->None]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Subtitle"],
CellMargins->{{0, 0}, {0, 0}},
PageBreakBelow->False,
LineSpacing->{1, 3},
ParagraphIndent->-96,
CounterIncrements->"Subtitle",
CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, {
"Subsubtitle", 0}},
FontFamily->"Helvetica",
FontSize->18,
FontColor->GrayLevel[1],
Background->RGBColor[0.2, 0.700008, 0.700008]],
Cell[StyleData["Subtitle", "Presentation"],
CellMargins->{{0, 0}, {0, 0}},
LineSpacing->{1, 6},
ParagraphIndent->-157,
FontSize->30],
Cell[StyleData["Subtitle", "Condensed"],
CellMargins->{{0, 0}, {0, 0}},
ParagraphIndent->-78,
FontSize->14],
Cell[StyleData["Subtitle", "Printout"],
CellMargins->{{0, 0}, {0, 0}},
ParagraphIndent->-85,
FontSize->16,
FontColor->GrayLevel[0],
Background->None]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Subsubtitle"],
ShowCellBracket->True,
CellMargins->{{10, 4}, {30, 10}},
PageBreakBelow->False,
CounterIncrements->"Subsubtitle",
CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}},
FontFamily->"Helvetica",
FontSize->14,
FontSlant->"Italic"],
Cell[StyleData["Subsubtitle", "Presentation"],
ShowCellBracket->True,
CellMargins->{{8, 10}, {40, 20}},
LineSpacing->{1, 0},
FontSize->24],
Cell[StyleData["Subsubtitle", "Condensed"],
ShowCellBracket->True,
CellMargins->{{8, 10}, {12, 8}},
FontSize->12],
Cell[StyleData["Subsubtitle", "Printout"],
ShowCellBracket->True,
CellMargins->{{9, 10}, {50, 10}},
FontSize->14]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Section"],
CellFrame->{{0, 0}, {0, 1}},
CellDingbat->None,
CellMargins->{{12, Inherited}, {4, 24}},
CellGroupingRules->{"SectionGrouping", 30},
PageBreakBelow->False,
CellFrameMargins->6,
CounterIncrements->"Section",
CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}},
FontFamily->"Helvetica",
FontSize->16,
FontWeight->"Bold",
FontColor->RGBColor[0.571389, 0.19675, 0.570504]],
Cell[StyleData["Section", "Presentation"],
CellMargins->{{10, 10}, {8, 32}},
LineSpacing->{1, 2},
FontSize->24,
FontTracking->"Condensed"],
Cell[StyleData["Section", "Condensed"],
CellMargins->{{9, 0}, {2, 50}},
FontSize->14],
Cell[StyleData["Section", "Printout"],
CellMargins->{{9, 0}, {2, 50}},
FontSize->14,
FontTracking->"Plain",
FontColor->GrayLevel[0]]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Subsection"],
CellMargins->{{12, Inherited}, {8, 20}},
CellGroupingRules->{"SectionGrouping", 40},
PageBreakBelow->False,
CounterIncrements->"Subsection",
CounterAssignments->{{"Subsubsection", 0}},
FontFamily->"Helvetica",
FontSize->13,
FontWeight->"Bold"],
Cell[StyleData["Subsection", "Presentation"],
CellMargins->{{11, 10}, {8, 32}},
LineSpacing->{1, 0},
FontSize->22],
Cell[StyleData["Subsection", "Condensed"],
CellMargins->{{8, Inherited}, {2, 12}},
FontSize->12],
Cell[StyleData["Subsection", "Printout"],
CellMargins->{{9, 0}, {4, 40}},
FontSize->12]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Subsubsection"],
CellDingbat->"\[FilledSquare]",
CellMargins->{{25, Inherited}, {8, 12}},
CellGroupingRules->{"SectionGrouping", 50},
PageBreakBelow->False,
CounterIncrements->"Subsubsection",
FontFamily->"Times",
FontSize->13,
FontWeight->"Bold"],
Cell[StyleData["Subsubsection", "Presentation"],
CellMargins->{{29, 10}, {8, 26}},
LineSpacing->{1, 0},
FontSize->18],
Cell[StyleData["Subsubsection", "Condensed"],
CellMargins->{{21, 0}, {4, 20}},
FontSize->11],
Cell[StyleData["Subsubsection", "Printout"],
CellMargins->{{21, 0}, {4, 20}},
FontSize->11]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell["Styles for Body Text", "Section"],
Cell[CellGroupData[{
Cell[StyleData["Text"],
CellMargins->{{12, 10}, {5, 5}},
LineSpacing->{1, 3},
ParagraphSpacing->{0, 12},
CounterIncrements->"Text",
FontFamily->"Times"],
Cell[StyleData["Text", "Presentation"],
CellMargins->{{13, 10}, {8, 8}},
LineSpacing->{1, 5},
ParagraphSpacing->{0, 12},
FontSize->16],
Cell[StyleData["Text", "Condensed"],
CellMargins->{{9, 0}, {4, 4}},
LineSpacing->{1, 1},
ParagraphSpacing->{0, 6}],
Cell[StyleData["Text", "Printout"],
CellMargins->{{9, 0}, {4, 4}},
ParagraphSpacing->{0, 6}]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["SmallText"],
CellMargins->{{12, 10}, {5, 5}},
LineSpacing->{1, 3},
ParagraphSpacing->{0, 6},
CounterIncrements->"SmallText",
FontFamily->"Helvetica",
FontSize->9],
Cell[StyleData["SmallText", "Presentation"],
CellMargins->{{13, 10}, {8, 8}},
LineSpacing->{1, 5},
FontSize->12],
Cell[StyleData["SmallText", "Condensed"],
CellMargins->{{8, 10}, {2, 2}},
LineSpacing->{1, 2},
FontSize->9],
Cell[StyleData["SmallText", "Printout"],
CellMargins->{{9, 0}, {4, 4}}]
}, 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.\
\>", "Text"],
Cell[CellGroupData[{
Cell[StyleData["Input"],
CellFrame->0.5,
CellMargins->{{25, 10}, {8, 8}},
Evaluatable->True,
CellGroupingRules->"InputGrouping",
CellHorizontalScrolling->True,
PageBreakWithin->False,
GroupPageBreakWithin->False,
CellLabelMargins->{{5, Inherited}, {Inherited, Inherited}},
DefaultFormatType->DefaultInputFormatType,
FormatType->InputForm,
ShowStringCharacters->True,
NumberMarks->True,
CounterIncrements->"Input",
FontWeight->"Bold",
Background->RGBColor[1, 0.700008, 0.4]],
Cell[StyleData["Input", "Presentation"],
CellMargins->{{25, Inherited}, {10, 10}},
LineSpacing->{1, 0}],
Cell[StyleData["Input", "Condensed"],
CellMargins->{{25, 0}, {6, 6}}],
Cell[StyleData["Input", "Printout"],
CellFrame->0.5,
CellMargins->{{25, 0}, {6, 6}},
Background->None]
}, Closed]],
Cell[StyleData["InlineInput"],
CellGroupingRules->"InputGrouping",
CellHorizontalScrolling->True,
PageBreakWithin->False,
GroupPageBreakWithin->False,
DefaultFormatType->DefaultInputFormatType,
AutoItalicWords->{},
FormatType->InputForm,
ShowStringCharacters->True,
NumberMarks->True,
CounterIncrements->"Input",
FontWeight->"Bold"],
Cell[CellGroupData[{
Cell[StyleData["Output"],
CellFrame->True,
CellMargins->{{25, 10}, {8, 0}},
CellElementSpacings->{"ClosedGroupTopMargin"->4},
CellEditDuplicate->True,
CellGroupingRules->"OutputGrouping",
CellHorizontalScrolling->True,
PageBreakWithin->False,
GroupPageBreakWithin->False,
GeneratedCell->True,
CellAutoOverwrite->True,
CellLabelMargins->{{3, Inherited}, {Inherited, Inherited}},
DefaultFormatType->DefaultOutputFormatType,
FormatType->InputForm,
CounterIncrements->"Output",
Background->RGBColor[1, 0.900008, 0.900008]],
Cell[StyleData["Output", "Presentation"],
CellMargins->{{25, Inherited}, {12, 0}},
CellElementSpacings->{"ClosedGroupTopMargin"->4},
LineSpacing->{1, 0}],
Cell[StyleData["Output", "Condensed"],
CellMargins->{{25, 0}, {6, 0}},
CellElementSpacings->{"ClosedGroupTopMargin"->4}],
Cell[StyleData["Output", "Printout"],
CellMargins->{{25, 0}, {6, 0}},
CellElementSpacings->{"ClosedGroupTopMargin"->4},
Background->None]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Message"],
CellMargins->{{62, Inherited}, {Inherited, Inherited}},
CellGroupingRules->"OutputGrouping",
PageBreakWithin->False,
GroupPageBreakWithin->False,
GeneratedCell->True,
CellAutoOverwrite->True,
ShowCellLabel->False,
DefaultFormatType->DefaultOutputFormatType,
FormatType->InputForm,
CounterIncrements->"Message",
StyleMenuListing->None,
FontColor->RGBColor[1, 0, 0]],
Cell[StyleData["Message", "Presentation"],
CellMargins->{{74, Inherited}, {Inherited, Inherited}},
LineSpacing->{1, 0}],
Cell[StyleData["Message", "Condensed"],
CellMargins->{{50, Inherited}, {Inherited, Inherited}}],
Cell[StyleData["Message", "Printout"],
CellMargins->{{54, Inherited}, {Inherited, Inherited}},
FontColor->GrayLevel[0]]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Print"],
CellMargins->{{62, Inherited}, {Inherited, Inherited}},
CellGroupingRules->"OutputGrouping",
CellHorizontalScrolling->True,
PageBreakWithin->False,
GroupPageBreakWithin->False,
GeneratedCell->True,
CellAutoOverwrite->True,
ShowCellLabel->False,
DefaultFormatType->DefaultOutputFormatType,
FormatType->InputForm,
CounterIncrements->"Print",
StyleMenuListing->None],
Cell[StyleData["Print", "Presentation"],
CellMargins->{{74, Inherited}, {Inherited, Inherited}},
LineSpacing->{1, 0}],
Cell[StyleData["Print", "Condensed"],
CellMargins->{{50, Inherited}, {Inherited, Inherited}}],
Cell[StyleData["Print", "Printout"],
CellMargins->{{54, Inherited}, {Inherited, Inherited}}]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Graphics"],
CellMargins->{{62, Inherited}, {Inherited, Inherited}},
CellGroupingRules->"GraphicsGrouping",
CellHorizontalScrolling->True,
PageBreakWithin->False,
GeneratedCell->True,
CellAutoOverwrite->True,
ShowCellLabel->False,
DefaultFormatType->DefaultOutputFormatType,
FormatType->InputForm,
CounterIncrements->"Graphics",
StyleMenuListing->None],
Cell[StyleData["Graphics", "Presentation"],
CellMargins->{{74, Inherited}, {Inherited, Inherited}}],
Cell[StyleData["Graphics", "Condensed"],
CellMargins->{{52, Inherited}, {Inherited, Inherited}},
ImageSize->{175, 175}],
Cell[StyleData["Graphics", "Printout"],
CellMargins->{{54, Inherited}, {Inherited, Inherited}},
ImageSize->{250, 250}]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["CellLabel"],
StyleMenuListing->None,
FontFamily->"Helvetica",
FontSize->11,
FontWeight->"Bold",
FontColor->RGBColor[0.571389, 0.19675, 0.570504]],
Cell[StyleData["CellLabel", "Presentation"],
FontSize->12],
Cell[StyleData["CellLabel", "Condensed"],
FontSize->8],
Cell[StyleData["CellLabel", "Printout"],
FontSize->8,
FontColor->GrayLevel[0]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell["Unique Styles", "Section"],
Cell[CellGroupData[{
Cell[StyleData["Author"],
CellMargins->{{10, 4}, {2, 10}},
FontSize->12,
FontSlant->"Italic"],
Cell[StyleData["Author", "Presentation"],
CellMargins->{{12, 10}, {2, 12}},
LineSpacing->{1, 5},
ParagraphSpacing->{0, 12},
FontSize->16],
Cell[StyleData["Author", "Condensed"],
CellMargins->{{8, 10}, {1, 4}},
LineSpacing->{1, 1},
ParagraphSpacing->{0, 4},
FontSize->9],
Cell[StyleData["Author", "Printout"],
CellMargins->{{9, 0}, {4, 12}},
ParagraphSpacing->{0, 6}]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Copyright"],
CellMargins->{{10, 10}, {40, 2}},
FontFamily->"Helvetica",
FontSize->9],
Cell[StyleData["Copyright", "Presentation"],
CellMargins->{{12, 10}, {50, 2}},
LineSpacing->{1, 5},
FontSize->12],
Cell[StyleData["Copyright", "Condensed"],
CellMargins->{{8, 10}, {12, 1}},
LineSpacing->{1, 2},
FontSize->9],
Cell[StyleData["Copyright", "Printout"],
CellMargins->{{9, 0}, {72, 4}},
FontSize->7]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Abstract"],
CellMargins->{{45, 75}, {Inherited, 30}},
LineSpacing->{1, 0}],
Cell[StyleData["Abstract", "Printout"],
CellMargins->{{36, 67}, {Inherited, 50}},
FontSize->10]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Example"],
CellMargins->{{12, 10}, {5, 12}},
LineSpacing->{1, 3},
ParagraphSpacing->{0, 12},
CounterIncrements->"Example",
FontFamily->"Times",
FontWeight->"Bold"],
Cell[StyleData["Example", "Presentation"],
CellMargins->{{18, 10}, {8, 20}},
LineSpacing->{1, 5},
ParagraphSpacing->{0, 12}],
Cell[StyleData["Example", "Condensed"],
CellMargins->{{8, 10}, {4, 8}},
LineSpacing->{1, 1},
ParagraphSpacing->{0, 4}],
Cell[StyleData["Example", "Printout"],
CellMargins->{{9, 0}, {4, 10}},
ParagraphSpacing->{0, 6}]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Definition"],
CellFrame->{{3, 0}, {0, 0}},
CellMargins->{{52, 10}, {8, 8}},
PageBreakWithin->False,
GroupPageBreakWithin->False,
CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}},
ShowStringCharacters->True,
CounterIncrements->"Definition",
FontFamily->"Helvetica",
FontWeight->"Bold",
FontColor->GrayLevel[1],
Background->RGBColor[0.2, 0.700008, 0.700008]],
Cell[StyleData["Definition", "Presentation"],
CellMargins->{{62, Inherited}, {5, 12}},
LineSpacing->{1, 0}],
Cell[StyleData["Definition", "Condensed"],
CellMargins->{{40, 10}, {1, 4}}],
Cell[StyleData["Definition", "Printout"],
CellMargins->{{44, 0}, {2, 6}},
Background->GrayLevel[0.6]]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Theorem"],
CellFrame->{{3, 0}, {0, 0}},
CellMargins->{{52, 10}, {8, 8}},
PageBreakWithin->False,
GroupPageBreakWithin->False,
CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}},
ShowStringCharacters->True,
CounterIncrements->"Theorem",
FontFamily->"Helvetica",
FontWeight->"Bold",
FontColor->GrayLevel[1],
Background->RGBColor[0.571389, 0.19675, 0.570504]],
Cell[StyleData["Theorem", "Presentation"],
CellMargins->{{62, Inherited}, {5, 12}},
LineSpacing->{1, 0}],
Cell[StyleData["Theorem", "Condensed"],
CellMargins->{{40, 10}, {1, 4}}],
Cell[StyleData["Theorem", "Printout"],
CellMargins->{{44, 0}, {2, 6}},
Background->GrayLevel[0.4]]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Caution"],
CellFrame->False,
CellDingbat->"\[WarningSign]",
CellMargins->{{52, 25}, {8, 8}},
PageBreakWithin->False,
GroupPageBreakWithin->False,
CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}},
ShowStringCharacters->True,
CounterIncrements->"Caution",
FontFamily->"Helvetica",
FontWeight->"Bold",
FontSlant->"Plain",
FontColor->GrayLevel[0],
Background->RGBColor[0.996109, 0, 0],
FontVariations->{"Underline"->False}],
Cell[StyleData["Caution", "Presentation"],
CellFrame->False,
CellDingbat->"\[WarningSign]",
CellMargins->{{62, Inherited}, {5, 12}},
LineSpacing->{1, 0}],
Cell[StyleData["Caution", "Condensed"],
CellFrame->False,
CellDingbat->"\[WarningSign]",
CellMargins->{{40, 25}, {1, 4}}],
Cell[StyleData["Caution", "Printout"],
CellFrame->False,
CellDingbat->"\[WarningSign]",
CellMargins->{{44, 25}, {2, 6}},
Background->GrayLevel[0.900008]]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Advice"],
CellFrame->False,
CellDingbat->"\[LightBulb]",
CellMargins->{{52, 25}, {8, 8}},
PageBreakWithin->False,
GroupPageBreakWithin->False,
CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}},
ShowStringCharacters->True,
CounterIncrements->"Advice",
FontFamily->"Helvetica",
FontWeight->"Bold",
FontSlant->"Plain",
FontColor->GrayLevel[0],
Background->RGBColor[0, 1, 0],
FontVariations->{"Underline"->False}],
Cell[StyleData["Advice", "Presentation"],
CellFrame->False,
CellDingbat->"\[LightBulb]",
CellMargins->{{62, Inherited}, {5, 12}},
LineSpacing->{1, 0}],
Cell[StyleData["Advice", "Condensed"],
CellFrame->False,
CellDingbat->"\[LightBulb]",
CellMargins->{{40, 25}, {1, 4}}],
Cell[StyleData["Advice", "Printout"],
CellFrame->False,
CellDingbat->"\[LightBulb]",
CellMargins->{{44, 25}, {2, 6}},
Background->GrayLevel[0.900008]]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Exercise"],
CellDingbat->"\[FilledDownTriangle]",
CellMargins->{{23, Inherited}, {4, 18}},
CellGroupingRules->"NormalGrouping",
PageBreakBelow->False,
CounterIncrements->"Subsubsection",
FontFamily->"Times",
FontSize->13,
FontWeight->"Bold",
FontColor->RGBColor[0, 0, 0.996109]],
Cell[StyleData["Exercise", "Presentation"],
CellMargins->{{33, 10}, {8, 26}},
LineSpacing->{1, 0},
FontSize->18],
Cell[StyleData["Exercise", "Condensed"],
CellMargins->{{9, 0}, {6, 20}},
FontSize->11],
Cell[StyleData["Exercise", "Printout"],
CellFrame->False,
CellDingbat->"\[FilledDownTriangle]",
CellMargins->{{9, 0}, {6, 20}},
FontSize->11,
FontColor->GrayLevel[0]]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["ExerciseMain"],
CellFrame->{{6, 0}, {0, 1}},
CellMargins->{{12, Inherited}, {4, 20}},
CellGroupingRules->{"SectionGrouping", 30},
PageBreakBelow->False,
CellFrameColor->RGBColor[0.571389, 0.19675, 0.570504],
CounterIncrements->"Subsection",
CounterAssignments->{{"Subsubsection", 0}},
FontFamily->"Helvetica",
FontSize->16,
FontWeight->"Bold",
FontColor->RGBColor[0.571389, 0.19675, 0.570504]],
Cell[StyleData["ExerciseMain", "Presentation"],
CellMargins->{{18, 10}, {8, 32}},
LineSpacing->{1, 2},
FontSize->24,
FontTracking->"Condensed"],
Cell[StyleData["ExerciseMain", "Condensed"],
CellMargins->{{9, 0}, {2, 50}},
FontSize->14],
Cell[StyleData["ExerciseMain", "Printout"],
CellMargins->{{9, 0}, {2, 50}},
CellFrameColor->GrayLevel[0.500008],
FontSize->14,
FontTracking->"Plain",
FontColor->GrayLevel[0]]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["ExerciseTitle"],
CellDingbat->"\[FilledDownTriangle]",
CellMargins->{{23, Inherited}, {4, 18}},
CellGroupingRules->{"SectionGrouping", 40},
PageBreakBelow->False,
CounterIncrements->"Subsection",
CounterAssignments->{{"Subsubsection", 0}},
FontFamily->"Times",
FontSize->13,
FontWeight->"Bold",
FontColor->RGBColor[0.571389, 0.19675, 0.570504]],
Cell[StyleData["ExerciseTitle", "Presentation"],
CellMargins->{{33, 10}, {8, 26}},
LineSpacing->{1, 0},
FontSize->18],
Cell[StyleData["ExerciseTitle", "Condensed"],
CellDingbat->"\[FilledDownTriangle]",
CellMargins->{{9, 0}, {6, 20}},
FontSize->11],
Cell[StyleData["ExerciseTitle", "Printout"],
CellDingbat->"\[FilledDownTriangle]",
CellMargins->{{9, 0}, {6, 20}},
FontSize->11,
FontColor->GrayLevel[0]]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["ExerciseText"],
CellMargins->{{32, 10}, {5, 5}},
LineSpacing->{1, 3},
ParagraphSpacing->{0, 8},
CounterIncrements->"ExcersiceText",
FontFamily->"Times"],
Cell[StyleData["ExerciseText", "Presentation"],
CellMargins->{{32, 10}, {8, 8}},
LineSpacing->{1, 5},
ParagraphSpacing->{0, 12}],
Cell[StyleData["ExerciseText", "Condensed"],
CellMargins->{{32, 0}, {4, 4}},
LineSpacing->{1, 1},
ParagraphSpacing->{0, 6}],
Cell[StyleData["ExerciseText", "Printout"],
CellMargins->{{32, 0}, {4, 4}},
ParagraphSpacing->{0, 6}]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Problem"],
CellDingbat->"\[FilledDownTriangle]",
CellMargins->{{23, Inherited}, {4, 18}},
CellGroupingRules->{"SectionGrouping", 40},
PageBreakBelow->False,
CounterIncrements->"Subsection",
CounterAssignments->{{"Subsubsection", 0}},
FontFamily->"Times",
FontSize->13,
FontWeight->"Plain",
FontColor->GrayLevel[0]],
Cell[StyleData["Problem", "Presentation"],
CellMargins->{{33, 10}, {8, 26}},
LineSpacing->{1, 0},
FontSize->18],
Cell[StyleData["Problem", "Condensed"],
CellMargins->{{9, 0}, {6, 20}},
FontSize->11],
Cell[StyleData["Problem", "Printout"],
CellFrame->False,
CellDingbat->"\[FilledDownTriangle]",
CellMargins->{{9, 0}, {6, 20}},
FontSize->11,
FontColor->GrayLevel[0]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell["Formulas and Programming", "Section"],
Cell[CellGroupData[{
Cell[StyleData["DisplayFormula"],
CellMargins->{{62, 10}, {2, 10}},
CellHorizontalScrolling->True,
DefaultFormatType->DefaultInputFormatType,
ScriptLevel->0,
SingleLetterItalics->True,
UnderoverscriptBoxOptions->{LimitsPositioning->True}],
Cell[StyleData["DisplayFormula", "Presentation"],
CellMargins->{{74, 10}, {2, 10}}],
Cell[StyleData["DisplayFormula", "Condensed"],
CellMargins->{{52, 10}, {2, 10}}],
Cell[StyleData["DisplayFormula", "Printout"],
CellMargins->{{54, 10}, {2, 10}}]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["ChemicalFormula"],
CellMargins->{{62, 10}, {2, 10}},
DefaultFormatType->DefaultInputFormatType,
AutoSpacing->False,
ScriptLevel->1,
ScriptBaselineShifts->{0.6, Automatic},
SingleLetterItalics->False,
ZeroWidthTimes->True],
Cell[StyleData["ChemicalFormula", "Presentation"],
CellMargins->{{74, 10}, {2, 10}},
FontSize->10],
Cell[StyleData["ChemicalFormula", "Condensed"],
CellMargins->{{52, 10}, {2, 10}},
FontSize->10],
Cell[StyleData["ChemicalFormula", "Printout"],
CellMargins->{{54, 10}, {2, 10}},
FontSize->10]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Program"],
CellMargins->{{12, 10}, {Inherited, 6}},
FontFamily->"Courier"],
Cell[StyleData["Program", "Presentation"],
CellMargins->{{13, 30}, {Inherited, 4}},
FontSize->9.5],
Cell[StyleData["Program", "Condensed"],
CellMargins->{{8, 10}, {Inherited, 4}},
FontSize->9.5],
Cell[StyleData["Program", "Printout"],
CellMargins->{{9, 0}, {Inherited, 4}},
FontSize->9.5]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell["Styles for Automatic Numbering", "Section"],
Cell["\<\
The following styles are useful for numbered equations, figures, etc. They \
automatically give the cell a FrameLabel containing a reference to a \
particular counter, and also increment that counter.\
\>", "Text"],
Cell[CellGroupData[{
Cell[StyleData["NumberedEquation"],
CellMargins->{{62, 10}, {Inherited, Inherited}},
CellFrameLabels->{{None, Cell[
TextData[ {"(",
CounterBox[ "NumberedEquation"], ")"}]]}, {None, None}},
DefaultFormatType->DefaultInputFormatType,
CounterIncrements->"NumberedEquation",
FormatTypeAutoConvert->False],
Cell[StyleData["NumberedEquation", "Presentation"],
CellMargins->{{74, 10}, {Inherited, Inherited}}],
Cell[StyleData["NumberedEquation", "Condensed"],
CellMargins->{{52, 10}, {Inherited, Inherited}}],
Cell[StyleData["NumberedEquation", "Printout"],
CellMargins->{{54, 0}, {Inherited, Inherited}}]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["NumberedFigure"],
CellMargins->{{62, 145}, {Inherited, Inherited}},
CellFrameLabels->{{None, None}, {Cell[
TextData[ {"Figure ",
CounterBox[ "NumberedFigure"]}]], None}},
CounterIncrements->"NumberedFigure",
ImageMargins->{{43, Inherited}, {Inherited, 0}},
FormatTypeAutoConvert->False],
Cell[StyleData["NumberedFigure", "Presentation"]],
Cell[StyleData["NumberedFigure", "Condensed"]],
Cell[StyleData["NumberedFigure", "Printout"]]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["NumberedTable"],
CellMargins->{{62, 145}, {Inherited, Inherited}},
CellFrameLabels->{{None, None}, {Cell[
TextData[ {"Table ",
CounterBox[ "NumberedTable"]}]], None}},
TextAlignment->Center,
CounterIncrements->"NumberedTable",
FormatTypeAutoConvert->False],
Cell[StyleData["NumberedTable", "Presentation"]],
Cell[StyleData["NumberedTable", "Condensed"]],
Cell[StyleData["NumberedTable", "Printout"]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell["Styles for Headers and Footers", "Section"],
Cell[StyleData["Header"],
CellMargins->{{0, 0}, {4, 1}},
StyleMenuListing->None,
FontFamily->"Helvetica",
FontSize->9,
FontSlant->"Italic"],
Cell[StyleData["Footer"],
CellMargins->{{0, 0}, {0, 4}},
StyleMenuListing->None,
FontFamily->"Helvetica",
FontSize->9,
FontSlant->"Italic"],
Cell[StyleData["PageNumber"],
CellMargins->{{0, 0}, {4, 1}},
StyleMenuListing->None,
FontFamily->"Helvetica",
FontSize->9,
FontWeight->"Bold"]
}, 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,
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1],
Background->None,
FontVariations->{"Underline"->True},
ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
FrontEnd`NotebookLocate[ #2]}]&),
Active->True,
ButtonFrame->"None",
ButtonNote->ButtonData}],
Cell[StyleData["Hyperlink", "Presentation"]],
Cell[StyleData["Hyperlink", "Condensed"]],
Cell[StyleData["Hyperlink", "Printout"],
FontColor->GrayLevel[0],
Background->GrayLevel[1],
FontVariations->{"Underline"->True}]
}, 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,
FontWeight->"Bold",
FontSlant->"Plain",
FontColor->RGBColor[0, 0, 1],
Background->None,
FontVariations->{"Underline"->True},
ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
FrontEnd`HelpBrowserLookup[ "MainBook", #]}]&),
Active->True,
ButtonFrame->"None"}],
Cell[StyleData["MainBookLink", "Presentation"]],
Cell[StyleData["MainBookLink", "Condensed"]],
Cell[StyleData["MainBookLink", "Printout"],
FontColor->GrayLevel[0],
Background->GrayLevel[1],
FontVariations->{"Underline"->True}]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["AddOnsLink"],
StyleMenuListing->None,
ButtonStyleMenuListing->Automatic,
FontFamily->"Courier",
FontWeight->"Bold",
FontSlant->"Plain",
FontColor->RGBColor[0, 0, 1],
Background->None,
FontVariations->{"Underline"->True},
ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
FrontEnd`HelpBrowserLookup[ "AddOns", #]}]&),
Active->True,
ButtonFrame->"None"}],
Cell[StyleData["AddOnsLink", "Presentation"]],
Cell[StyleData["AddOnsLink", "Condensed"]],
Cell[StyleData["AddOnLink", "Printout"],
FontWeight->"Bold",
FontColor->GrayLevel[0],
Background->GrayLevel[1],
FontVariations->{"Underline"->True}]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["RefGuideLink"],
StyleMenuListing->None,
ButtonStyleMenuListing->Automatic,
FontFamily->"Courier",
FontWeight->"Bold",
FontSlant->"Plain",
FontColor->RGBColor[0, 0, 1],
Background->None,
FontVariations->{"Underline"->True},
ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
FrontEnd`HelpBrowserLookup[ "RefGuideLink", #]}]&),
Active->True,
ButtonFrame->"None"}],
Cell[StyleData["RefGuideLink", "Presentation"]],
Cell[StyleData["RefGuideLink", "Condensed"]],
Cell[StyleData["RefGuideLink", "Printout"],
FontColor->GrayLevel[0],
Background->GrayLevel[1],
FontVariations->{"Underline"->True}]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["GettingStartedLink"],
StyleMenuListing->None,
ButtonStyleMenuListing->Automatic,
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1],
Background->None,
FontVariations->{"Underline"->True},
ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
FrontEnd`HelpBrowserLookup[ "GettingStarted", #]}]&),
Active->True,
ButtonFrame->"None"}],
Cell[StyleData["GettingStartedLink", "Presentation"]],
Cell[StyleData["GettingStartedLink", "Condensed"]],
Cell[StyleData["GettingStartedLink", "Printout"],
FontColor->GrayLevel[0],
Background->GrayLevel[1],
FontVariations->{"Underline"->True}]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["OtherInformationLink"],
StyleMenuListing->None,
ButtonStyleMenuListing->Automatic,
FontWeight->"Bold",
FontSlant->"Italic",
FontColor->RGBColor[0, 0, 1],
Background->None,
FontVariations->{"Underline"->True},
ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
FrontEnd`HelpBrowserLookup[ "OtherInformation", #]}]&),
Active->True,
ButtonFrame->"None"}],
Cell[StyleData["OtherInformationLink", "Presentation"]],
Cell[StyleData["OtherInformationLink", "Condensed"]],
Cell[StyleData["OtherInformationLink", "Printout"],
FontColor->GrayLevel[0],
Background->GrayLevel[1],
FontVariations->{"Underline"->True}]
}, Closed]]
}, Closed]]
}, Open ]]
}]
]
(*******************************************************************
Cached data follows. If you edit this Notebook file directly, not
using Mathematica, you must remove the line containing CacheID at
the top of the file. The cache data will then be recreated when
you save this file from within Mathematica.
*******************************************************************)
(*CellTagsOutline
CellTagsIndex->{
"Info3349187489-9001416"->{
Cell[10994, 322, 445, 7, 110, "Print",
CellTags->"Info3349187489-9001416"]}
}
*)
(*CellTagsIndex
CellTagsIndex->{
{"Info3349187489-9001416", 48855, 1681}
}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[1776, 53, 79, 2, 81, "Title"],
Cell[1858, 57, 455, 15, 85, "Author"],
Cell[CellGroupData[{
Cell[2338, 76, 31, 0, 83, "Section"],
Cell[2372, 78, 1591, 50, 145, "Text"],
Cell[3966, 130, 574, 21, 67, "Text"],
Cell[4543, 153, 541, 20, 67, "Text"],
Cell[5087, 175, 385, 14, 41, "Text"],
Cell[5475, 191, 758, 20, 93, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[6270, 216, 33, 0, 51, "Section"],
Cell[6306, 218, 119, 2, 99, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[6462, 225, 33, 0, 51, "Section"],
Cell[CellGroupData[{
Cell[6520, 229, 70, 0, 68, "Subsection"],
Cell[6593, 231, 742, 18, 94, "Text"],
Cell[7338, 251, 3573, 64, 1321, "Input"],
Cell[CellGroupData[{
Cell[10936, 319, 55, 1, 73, "Input"],
Cell[10994, 322, 445, 7, 110, "Print",
CellTags->"Info3349187489-9001416"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[11488, 335, 32, 0, 68, "Subsection"],
Cell[11523, 337, 85, 2, 41, "Text"],
Cell[11611, 341, 145, 4, 73, "Input"],
Cell[11759, 347, 63, 1, 73, "Input"],
Cell[11825, 350, 282, 6, 68, "Text"],
Cell[CellGroupData[{
Cell[12132, 360, 85, 1, 73, "Input"],
Cell[12220, 363, 70, 1, 59, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[12327, 369, 118, 2, 73, "Input"],
Cell[12448, 373, 69, 1, 59, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[12554, 379, 115, 2, 74, "Input"],
Cell[12672, 383, 56, 1, 61, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[12765, 389, 186, 3, 73, "Input"],
Cell[12954, 394, 69, 1, 59, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[13060, 400, 108, 2, 74, "Input"],
Cell[13171, 404, 57, 1, 61, "Output"]
}, Closed]],
Cell[13243, 408, 332, 6, 67, "Text"],
Cell[13578, 416, 541, 19, 103, "Exercise"],
Cell[14122, 437, 785, 22, 128, "Exercise"]
}, Closed]]
}, Closed]]
}, Open ]]
}
]
*)
(*******************************************************************
End of Mathematica Notebook file.
*******************************************************************)