Does anybody?
Mithras
someone would give here link to some examples?
Esspecialy of so called ill-posed problems (Fredholm equations of the FIRS
kind) and Tchonov Reguralizations etc.
Thank you very much for some help and hint!
Mithras
Mithras
I found some regularization tools for another system. Is there anything like
that for Mathematica?
Mithras
Paul Abbott
"Mithras" <mit...@NOSPAM.blast.pl> wrote:
> Does anybody here met the problem of soving Integral equations. Maybe
> someone would give here link to some examples?
There is an article on Integral Equations by Stan Richardson in the
latest issue of The Mathematica Journal:
http://mathematica-journal.com/issue/v9i2/
Cheers,
Paul
--
Paul Abbott Phone: +61 8 9380 2734
School of Physics, M013 Fax: +61 8 9380 1014
The University of Western Australia (CRICOS Provider No 00126G)
35 Stirling Highway
Crawley WA 6009 mailto:pa...@physics.uwa.edu.au
AUSTRALIA http://physics.uwa.edu.au/~paul
Paul Abbott
"Mithras" <mit...@NOSPAM.blast.pl> wrote:
Perhaps http://www.dm.unife.it/pn2o/unit2.html is of interest.
Blimbaum, Jerry AA R22
your email comes back as undeliverable...
Jerry blimbaum
Mike
voltammetry is a first kind volterra equation. If other reactions are
couples to the electrochemical reaction the solution is a 2nd kind volterra
or freidholm eqn. (I'm not a mathematician and always get the difference
between these mixed up).
I solve these in mathematica using a numerical method which seems to be the
convention in my field see:
Nicholson, R. S. and Shain, I. (1964). Analytical Chemistry, 36, 704-23.
Nicholson, R. S. (1965). Analytical Chemistry, 37, 1351-5.
Nicholson, R. S. and Olmstead, M. L. (1972). Numerical solution of integral
equations. In Electrochemistry; calculations, simulations, and
instrumentation, (ed. J. S. Mattson, H. B. Mark jnr., and H. C. MacDonald
jnr.), pp. 119-38. Marcel Dekker, New York.
Implementation in Mathematica depends on how much you know about
mathematica. A procedural implementation based on the methods described in
these refs is straight forward but slow. A functional implementation is a
bit more complicated but solves in less than a second (in my case the
problem must be solved at each potential and typically needs to be solved
400 or so times so less than a second per 400 results is good for me).
I seem to recall someone, (perhaps Paul Abbott?) writing an article on the
use of Chebyshev polynomials to solve integral equations. This was based on
an article in The computer journal in the 1960s. I only have incomplete
details of this article: S.E.El-gendi, page 282. I copied this article at
the time I read the mathematica article but unfortunately the copy doesn't
include the year and volume.
Hope that is of some help.
Cheers
Mike
On 3/8/04 3:17 PM, in article cen755$bv$1...@smc.vnet.net, "Mithras"
Paul Abbott
Mike <m.Honeych...@uq.edu.au> wrote:
> I seem to recall someone, (perhaps Paul Abbott?) writing an article on the
> use of Chebyshev polynomials to solve integral equations.
See "Tricks of the Trade" in The Mathematica Journal 8(4), appended
below.
> This was based on an article in The computer journal in the 1960s. I only
> have incomplete details of this article: S.E.El-gendi, page 282.
The article was
S. E. El-gendi, Chebyshev Solution of Differential, Integral and
Integro-differential Equations, The Computer Journal, 12, 1969: 282-287
URL: http://www3.oup.co.uk/computer_journal/hdb/Volume_12/Issue_03
> I copied this article at the time I read the mathematica article but
> unfortunately the copy doesn't include the year and volume.
The full Notebook is appended below.
Cheers,
Paul
Notebook[{
Cell[CellGroupData[{
Cell["Integral Equations", "Section"],
Cell["\<\
Inhomogeneous Fredholm integral equations of the second \
kind,\
\>", "Text"],
Cell[BoxData[
\(TraditionalForm\`f(x) =
g(x) + \[Lambda]\ \(\[Integral]\_a\%b\( \[Kappa](x, t)\)\ \(f(
t)\) \[DifferentialD]t\), \
a \[LessEqual] x \[LessEqual] b, \)], "NumberedEquation",
CellTags->"inhomogenous Fredholm integral equation"],
Cell[TextData[{
"involve solving for ",
Cell[BoxData[
\(TraditionalForm\`f(x)\)]],
", where ",
Cell[BoxData[
\(TraditionalForm\`\[Kappa](x, \ t)\)]],
" is the integral kernel, ",
Cell[BoxData[
\(TraditionalForm\`\[Lambda]\)]],
" is a parameter, and ",
Cell[BoxData[
\(TraditionalForm\`g(x)\)]],
" is the inhomogeneous term [",
StyleBox[
CounterBox["Reference", "Baker (1977)"], "Hyperlink"],
", ",
StyleBox[
CounterBox["Reference", "Pearson (1990)"], "Hyperlink"],
"]. ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" does not include built-in routines or packages for integral \
equations. However, it is straightforward to implement quite general \
methods for solving such equations."
}], "Text"],
Cell["\<\
As a specific example, consider Love\[CloseCurlyQuote]s \
equation\
\>", "Text"],
Cell[BoxData[
\(TraditionalForm\`\(\(f(x) =
1 + \(1\/\[Pi]\) \(\[Integral]\_\(-1\)\%1\(\( f(
t)\)\/\(\((x - t)\)\^2 +
1\)\) \[DifferentialD]t\)\)\(,\)\)\)], \
"NumberedEquation",
CellTags->"Love's equation"],
Cell[TextData[{
"which arises in electrostatics [",
StyleBox[
CounterBox["Reference", "Love (1949)"], "Hyperlink"],
", ",
StyleBox[
CounterBox["Reference", "Fox and Goodwin (1953)"], "Hyperlink"],
"]. An excellent approximation to the solution ",
Cell[BoxData[
\(TraditionalForm\`f(x)\)]],
" can be found in the form of a ",
StyleBox["Chebyshev-series",
FontSlant->"Italic"]
}], "Text"],
Cell[BoxData[
\(TraditionalForm\`f(
x) = \[Sum]\+\(i = 0\)\%n\( c\_i\) \(\(\(T\_\(2\ i\)\)(
x)\)\(.\)\)\)], "NumberedEquation",
CellTags->"Chebyshev-series"],
Cell[TextData[{
"The coefficients ",
Cell[BoxData[
\(TraditionalForm\`c\_i\)]],
" for ",
Cell[BoxData[
\(TraditionalForm\`i = 0, 1, \[Ellipsis], n\)]],
", are determined by solving numerically the simultaneous linear \
algebraic equations that result by evaluating the integral equation \
(",
CounterBox["NumberedEquation", "Love's equation"],
") at the ",
StyleBox["Chebyshev points",
FontSlant->"Italic"],
" ",
Cell[BoxData[
\(TraditionalForm\`x\_j = cos(\(j\ \[Pi]\)\/\(2\ n\))\)]],
" for ",
Cell[BoxData[
\(TraditionalForm\`j = 0, 1, \[Ellipsis], 2 n\)]],
", using the Chebyshev-series (",
CounterBox["NumberedEquation", "Chebyshev-series"],
") [",
StyleBox[
CounterBox["Reference", "Clenshaw and Curtis (1960)"],
"Hyperlink"],
", ",
StyleBox[
CounterBox["Reference", "El-gendi (1969)"], "Hyperlink"],
"]."
}], "Text",
CellTags->"Chebyshev points"],
Cell[TextData[{
"Here is a direct implementation for ",
Cell[BoxData[
\(TraditionalForm\`n = 4\)]],
". The Chebyshev points are calculated using arbitrary-precision \
arithmetic."
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(TraditionalForm\`n = 4;
xs = N[cos(\(Range[0, 2 n]\ \[Pi]\)\/\(2\ n\)), 20]\)], "Input"],
Cell[BoxData[
\(TraditionalForm\`{1.`20,
0.92387953251128675612818318939678828768`20,
0.707106781186547524400844362104841`20,
0.382683432365089771728459984030457`20,
0, \(-0.38268343236508977172845998403030093491`20\), \
\(-0.707106781186547524400844362104841`20\), \
\(-0.92387953251128675612818318939673155745`20\), \(-1.`20\)}\)], \
"Output"]
}, Open ]],
Cell[TextData[{
"Instead of computing the points using ",
StyleBox["Table", "InlineInputTraditionalForm"],
", we have used the ",
StyleBox["Listable", "InlineInputTraditionalForm"],
" attribute of ",
StyleBox["Cos", "InlineInputTraditionalForm"],
"."
}], "Text",
CellTags->"Listable attribute"],
Cell[TextData[{
"We introduce the undetermined coefficients ",
Cell[BoxData[
\(TraditionalForm\`c\_i\)]],
"."
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(TraditionalForm\`cs = Thread[c\_\(Range[0, n]\)]\)], "Input"],
Cell[BoxData[
\(TraditionalForm\`{c\_0, c\_1, c\_2, c\_3, c\_4}\)], "Output"]
}, Open ]],
Cell[TextData[{
"We evaluate the left-hand side of equation (",
CounterBox["NumberedEquation", "Love's equation"],
") at the Chebyshev points."
}], "Text"],
Cell[BoxData[
\(TraditionalForm\`\(lhs =
cs . Table[\(T\_\(2\ i\)\)(xs), {i, 0, n}];\)\)], "InputOnly"],
Cell[TextData[{
"Note that we have replaced the sum in the Chebyshev-series (",
CounterBox["NumberedEquation", "Chebyshev-series"],
") by a dot product and have used the ",
StyleBox["Listable", "InlineInputTraditionalForm"],
" attribute of ",
StyleBox["ChebyshevT", "InlineInputTraditionalForm"],
" to compute the value at ",
StyleBox["all",
FontSlant->"Italic"],
" the Chebyshev points at once."
}], "Text",
CellTags->"Listable attribute"],
Cell[CellGroupData[{
Cell[BoxData[
\(TraditionalForm\`Attributes[ChebyshevT]\)], "Input"],
Cell[BoxData[
\(TraditionalForm\`{Listable, NumericFunction, Protected,
ReadProtected}\)], "Output"]
}, Open ]],
Cell[TextData[{
"To compute the right-hand side of equation (",
CounterBox["NumberedEquation", "Love's equation"],
") we could use a Chebyshev quadrature formula [",
StyleBox[
CounterBox["Reference", "Clenshaw and Curtis (1960)"],
"Hyperlink"],
", ",
StyleBox[
CounterBox["Reference", "El-gendi (1969)"], "Hyperlink"],
"]. Instead we use ",
StyleBox["NIntegrate", "InlineInputTraditionalForm"],
" for simplicity, again using arbitrary-precision arithmetic."
}], "Text",
CellTags->"quadrature formula"],
Cell[BoxData[
\(TraditionalForm\`\(rhs =
1 + \(1\/\[Pi]\)
cs . Table[
NIntegrate[
Evaluate[\(\(T\_\(2\ i\)\)(t)\)\/\(\((xs - t)\)\^2 \
+ 1\)], {t, \(-1\), 1}, WorkingPrecision \[Rule] 20], {i, 0,
n}];\)\)], "InputOnly"],
Cell[TextData[{
"Solving the resulting simultaneous linear algebraic equations we \
obtain the coefficients ",
Cell[BoxData[
\(TraditionalForm\`c\_i\)]],
" for ",
Cell[BoxData[
\(TraditionalForm\`i = 0, 1, \[Ellipsis], n\)]],
"."
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(TraditionalForm\`Solve[lhs \[Equal] rhs, cs]\)], "Input"],
Cell[BoxData[
\(TraditionalForm\`{{c\_0 \[Rule]
1.774444805405816089451717`10.0316,
c\_1 \[Rule] \(-0.1400430745415970909939`10.0316\),
c\_2 \[Rule] 0.004962498177017669262634`10.0316,
c\_3 \[Rule] 0.000374672334133862620845`10.0316,
c\_4 \[Rule] \
\(-0.0000436865088592062024742579`10.0316\)}}\)], "Output"]
}, Open ]],
Cell[TextData[{
"The solution ",
Cell[BoxData[
\(TraditionalForm\`f(x)\)]],
" is obtained from the",
" Chebyshev-series",
" (",
CounterBox["NumberedEquation", "Chebyshev-series"],
")."
}], "Text"],
Cell[CellGroupData[{
Cell[BoxData[
\(TraditionalForm\`f(
x_) = \[Sum]\+\(i = 0\)\%n\( c\_i\) \(\(T\_\(2\ i\)\)(x)\) /.
First[%]\)], "Input"],
Cell[BoxData[
\(TraditionalForm\`\(-0.1400430745415970909939`10.0316\)\ \((2\ x\
\^2 - 1)\) +
0.004962498177017669262634`10.0316\ \((8\ x\^4 - 8\ x\^2 +
1)\) + 0.000374672334133862620845`10.0316\ \((32\ x\^6 -
48\ x\^4 + 18\ x\^2 - 1)\) -
0.0000436865088592062024742579`10.0316\ \((128\ x\^8 -
256\ x\^6 + 160\ x\^4 - 32\ x\^2 + 1)\) +
1.774444805405816089451717`10.0316\)], "Output"]
}, Open ]],
Cell[TextData[{
"To see how well the Chebyshev-series solution satisfies Love\
\[CloseCurlyQuote]s equation (",
CounterBox["NumberedEquation", "Love's equation"],
"), we substitute it back into the equation and plot the difference \
of the left- and right-hand sides. The Chebyshev points are also \
displayed and it is apparent that the ",
StyleBox["minimum error",
FontSlant->"Italic"],
" in the Chebyshev-series solution occurs at these points."
}], "Text",
Evaluatable->False,
AspectRatioFixed->True,
CellTags->"minimum error"],
Cell[BoxData[
\(TraditionalForm\`\(Plot[
1 + \(1\/\[Pi]\)
NIntegrate[\(f(t)\)\/\(\((x - t)\)\^2 + 1\), {t, \(-1\),
1}] - f(x), {x, \(-1\), 1},
Epilog \[Rule] {Hue[0], AbsolutePointSize[3],
Point /@ \((xs /. x_?NumberQ \[Rule] {x, 0})\)},
PlotRange \[Rule] All];\)\)], "Input"],
Cell[TextData[{
"As an aside, we can get a bound for the ",
StyleBox["maximum error",
FontSlant->"Italic"],
" directly from the ",
StyleBox["PlotRange", "InlineInputTraditionalForm"],
" of this plot. We could use this error-bound in a recursive \
procedure so as to find a solution for a given maximum error."
}], "Text",
CellTags->"maximum error"],
Cell[CellGroupData[{
Cell[BoxData[
\(TraditionalForm\`Max[Abs[Last[PlotRange[%]]]]\)], "Input"],
Cell[BoxData[
\(TraditionalForm\`3.859164471187171`*^-6\)], "Output"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["References", "Section"],
Cell[TextData[{
"\[ThickSpace]\[MediumSpace][",
CounterBox["Reference"],
"]\[ThickSpace]\[MediumSpace]C. T. H. Baker, ",
StyleBox["The Numerical Treatment of Integral Equations",
FontSlant->"Italic"],
", Oxford: Clarendon Press, 1977 pp. 358\[Dash]60."
}], "Reference",
CellTags->"Baker (1977)"],
Cell[TextData[{
"\[ThickSpace]\[MediumSpace][",
CounterBox["Reference"],
"]\[ThickSpace]\[MediumSpace]C. E. Pearson, ",
StyleBox["Handbook of Applied Mathematics",
FontSlant->"Italic"],
", New York: Van Nostrand Reinhold, 1990."
}], "Reference",
CellTags->"Pearson (1990)"],
Cell[TextData[{
"\[ThickSpace]\[MediumSpace][",
CounterBox["Reference"],
"]\[ThickSpace]\[MediumSpace]E. R. Love, \[OpenCurlyDoubleQuote]The \
Electrostatic Field of Two Equal Circular Co-axial Conducting Disks,\
\[CloseCurlyDoubleQuote] ",
StyleBox["Quarterly Journal of",
FontSlant->"Italic"],
" ",
StyleBox["Mechanics and Applied Mathematics",
FontSlant->"Italic"],
", ",
StyleBox["2",
FontWeight->"Bold"],
", 1949 pp. 428\[Dash]451."
}], "Reference",
CellTags->"Love (1949)"],
Cell[TextData[{
"\[ThickSpace]\[MediumSpace][",
CounterBox["Reference"],
"]\[ThickSpace]\[MediumSpace]L. Fox and E. T. Goodwin, \
\[OpenCurlyDoubleQuote]The Numerical Solution of Non-singular Linear \
Integral Equations,\[CloseCurlyDoubleQuote] ",
StyleBox["Philosophical Transactions of the Royal Society of \
London",
FontSlant->"Italic"],
", Series A, ",
StyleBox["245",
FontWeight->"Bold"],
", 1953 pp. 501\[Dash]534."
}], "Reference",
CellTags->"Fox and Goodwin (1953)"],
Cell[TextData[{
"\[ThickSpace]\[MediumSpace][",
CounterBox["Reference"],
"]\[ThickSpace]\[MediumSpace]C. W. Clenshaw and A. R. Curtis, \
\[OpenCurlyDoubleQuote]A Method for Numerical Integration on an \
Automatic Computer,\[CloseCurlyDoubleQuote] ",
StyleBox["Numerische Mathematik",
FontSlant->"Italic"],
", ",
StyleBox["2",
FontWeight->"Bold"],
", 1960 pp. 197\[Dash]205."
}], "Reference",
CellTags->"Clenshaw and Curtis (1960)"],
Cell[TextData[{
"\[ThickSpace]\[MediumSpace][",
CounterBox["Reference"],
"]\[ThickSpace]\[MediumSpace]S. E. El-gendi, \
\[OpenCurlyDoubleQuote]Chebyshev Solution of Differential, Integral \
and Integro-differential Equations,\[CloseCurlyDoubleQuote] ",
StyleBox["The Computer Journal",
FontSlant->"Italic"],
", ",
StyleBox["12",
FontWeight->"Bold"],
", 1969 pp. 282\[Dash]287. ",
ButtonBox["http://www3.oup.co.uk/computer_journal/hdb/Volume_12/\
Issue_03",
ButtonData:>{
URL[
"http://www3.oup.co.uk/computer_journal/hdb/Volume_12/Issue_03/\
"], None},
ButtonStyle->"Hyperlink"],
"."
}], "Reference",
CellTags->"El-gendi (1969)"]
}, Open ]]
},
FrontEndVersion->"5.0 for Macintosh",
ScreenRectangle->{{0, 1436}, {0, 878}},
WindowSize->{520, 740},
WindowMargins->{{124, Automatic}, {Automatic, 24}},
StyleDefinitions -> Notebook[{
Cell[CellGroupData[{
Cell[TextData[{
"Style Definitions for \n",
StyleBox["The Mathematica Journal",
FontSlant->"Italic"],
"\nWorking, Presentation, and Printout Environments"
}], "Subtitle",
CellMargins->{{0, Inherited}, {Inherited, 0}},
CellFrameMargins->{{20, 4}, {8, 20}},
FontSize->36,
FontWeight->"Bold",
FontColor->GrayLevel[1],
Background->GrayLevel[0]],
Cell["\<\
TMJv4Style.nb
1-30-2003\
\>", "EditorialComment"],
Cell[CellGroupData[{
Cell["Style Environment Names", "Section",
CellFrame->False,
CellDingbat->None,
ShowCellBracket->True,
CellMargins->{{0, 0}, {10, 40}},
CellFrameMargins->{{20, 4}, {8, 8}},
FontColor->GrayLevel[1],
Background->RGBColor[0.269902, 0.558434, 0.715618]],
Cell[StyleData[All, "Working"],
ScreenStyleEnvironment->"Working",
PrintingStyleEnvironment->"Printout",
CellBracketOptions->{"Color"->RGBColor[0.115343, 0.350561,
0.362966]},
ShowCellLabel->True,
CellFrameLabelMargins->6,
ScriptMinSize->9,
PrivateFontOptions->{"FontType"->"Bitmap"}],
Cell[StyleData[All, "Presentation"],
ScreenStyleEnvironment->"Presentation",
PrintingStyleEnvironment->"Printout",
Magnification->1.25],
Cell[StyleData[All, "Printout"],
ScreenStyleEnvironment->"Printout",
PrintingStyleEnvironment->"Printout",
PageWidth->PaperWidth,
PrintingOptions->{"PrintRegistrationMarks"->False,
"FirstPageHeader"->False,
"FacingPages"->True},
ShowCellBracket->False,
PrivateFontOptions->{"FontType"->"Outline"}]
}, Closed]],
Cell[CellGroupData[{
Cell["Notebook Options", "Section",
CellFrame->False,
CellDingbat->None,
ShowCellBracket->True,
CellMargins->{{0, 0}, {10, 40}},
CellFrameMargins->{{20, 4}, {8, 8}},
FontColor->GrayLevel[1],
Background->RGBColor[0.269902, 0.558434, 0.715618]],
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"], Inherited, Cell[
"Author(s)", "Header"]}, {
Cell[ "Article Title", "Header"], Inherited, Cell[
TextData[ {
CounterBox[ "Page"]}], "PageNumber"]}},
PageFooters->{{Cell[
TextData[ {"The Mathematica Journal ",
StyleBox[ "volume", FontWeight -> "Bold"],
":issue \[Copyright] year Wolfram Media, Inc."}],
"Footer"], Inherited, Cell[
TextData[ {
ValueBox[ "FileName"],
ValueBox[ "Date"]}], "Footer"]}, {Cell[
TextData[ {
ValueBox[ "FileName"],
ValueBox[ "Date"]}], "Footer"], Inherited, Cell[
TextData[ {"The Mathematica Journal ",
StyleBox[ "volume", FontWeight -> "Bold"],
":issue \[Copyright] year Wolfram Media, Inc."}],
"Footer"]}},
CellLabelAutoDelete->True,
CellFrameLabelMargins->6,
HyphenationOptions->{"HyphenationCharacter"->"-"},
StyleMenuListing->None]
}, Closed]],
Cell[CellGroupData[{
Cell["Styles for Headings", "Section",
CellFrame->False,
CellDingbat->None,
ShowCellBracket->True,
CellMargins->{{0, 0}, {10, 40}},
CellFrameMargins->{{20, 4}, {8, 8}},
FontColor->GrayLevel[1],
Background->RGBColor[0.269902, 0.558434, 0.715618]],
Cell["\<\
Each notebook should contain a Title cell. Title resets \
all cell CounterBox values to zero (except Title).\
\>",
"EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["Title"],
ShowCellBracket->False,
ShowSelection->True,
CellMargins->{{54, 24}, {0, 15}},
CellGroupingRules->{"TitleGrouping", 0},
PageBreakBelow->False,
LineSpacing->{1.125, 0},
CounterIncrements->"Title",
CounterAssignments->{{"Subtitle", 0}, {"Section", 0}, {
"Subsection", 0}, {"Subsubsection", 0}, {"List", 0}, {
"NumberedFigure", 0}, {"NumberedTable", 0}, {
"NumberedProgram", 0}, {"Equation", 0}, {"Text", 0}, {
"SmallText", 0}, {"Reference", 0}},
FontFamily->"Times",
FontSize->36,
FontSlant->"Italic"],
Cell[StyleData["Title", "Presentation"]],
Cell[StyleData["Title", "Printout"],
CellMargins->{{72, 72}, {14, 0}},
CellFrameMargins->False,
FontColor->GrayLevel[0],
Background->None]
}, Closed]],
Cell["Sub(sub)titles are optional, follows Title, precedes Author.",
"EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["Subtitle"],
ShowCellBracket->False,
ShowSelection->True,
CellMargins->{{54, 24}, {5, 2}},
CellGroupingRules->{"TitleGrouping", 10},
PageBreakBelow->False,
LineSpacing->{1.25, 0},
CounterIncrements->"Subtitle",
FontFamily->"Times",
FontSize->24,
FontSlant->"Italic"],
Cell[StyleData["Subtitle", "Presentation"]],
Cell[StyleData["Subtitle", "Printout"],
CellMargins->{{72, 72}, {12, 2}},
FontSize->12,
FontSlant->"Plain"]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Subsubtitle"],
ShowCellBracket->False,
ShowSelection->True,
CellMargins->{{54, 24}, {5, 2}},
CellGroupingRules->{"TitleGrouping", 10},
PageBreakBelow->False,
LineSpacing->{1, 0},
CounterIncrements->"Subtitle",
StyleMenuListing->None,
FontFamily->"Times",
FontSize->18,
FontSlant->"Italic"],
Cell[StyleData["Subsubtitle", "Presentation"]],
Cell[StyleData["Subsubtitle", "Printout"],
CellMargins->{{72, 72}, {6, 2}},
FontSize->10,
FontSlant->"Plain"]
}, Closed]],
Cell["\<\
SectionFirst should be used for the first section level \
heading in a notebook. SectionFirst sets the Subsection and \
Subsubsection counters to zero. Sets Section counter value to 1. If \
not preceded by Abstract space above should be adjusted to 18.\
\>",
"EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["SectionFirst"],
CellFrame->False,
CellDingbat->"\[FilledSquare]",
CellMargins->{{67, 25}, {10, 30}},
Evaluatable->False,
CellGroupingRules->{"SectionGrouping", 40},
PageBreakBelow->False,
CounterIncrements->"Section",
CounterAssignments->{{"Section", 0}, {"Subsection", 0}, {
"Subsubsection", 0}},
AspectRatioFixed->True,
FontFamily->"Helvetica",
FontSize->16,
FontWeight->"Bold"],
Cell[StyleData["SectionFirst", "Presentation"],
FontSize->18],
Cell[StyleData["SectionFirst", "Printout"],
CellMargins->{{72, 72}, {2, 30}},
FontSize->12]
}, Closed]],
Cell["\<\
Section should be used for subsequent Section level \
headings. Sets counter values Subsection and Subsubsection to zero.\
\
\>", "EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["Section"],
CellFrame->False,
CellDingbat->"\[FilledSquare]",
CellMargins->{{67, 25}, {10, 30}},
Evaluatable->False,
CellGroupingRules->{"SectionGrouping", 40},
PageBreakBelow->False,
CounterIncrements->"Section",
CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}},
AspectRatioFixed->True,
FontFamily->"Helvetica",
FontSize->16,
FontWeight->"Bold"],
Cell[StyleData["Section", "Presentation"],
FontSize->18],
Cell[StyleData["Section", "Printout"],
CellMargins->{{72, 72}, {2, 30}},
FontSize->12]
}, Closed]],
Cell["\<\
Subsection is an optional style. Sets counter \
Subsubsection to zero.\
\>", "EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["Subsection"],
CellDingbat->"\[EmptySquare]",
CellMargins->{{67, 25}, {10, 26}},
CellGroupingRules->{"SectionGrouping", 50},
PageBreakBelow->False,
CounterIncrements->"Subsection",
CounterAssignments->{{"Subsubsection", 0}},
FontFamily->"Helvetica",
FontSize->14,
FontWeight->"Bold"],
Cell[StyleData["Subsection", "Presentation"]],
Cell[StyleData["Subsection", "Printout"],
CellDingbat->"\[EmptySquare]",
CellMargins->{{72, 72}, {2, 16}},
FontSize->10]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Subsubsection"],
CellDingbat->"\[FilledSmallSquare]",
CellMargins->{{67, 25}, {6, 20}},
CellGroupingRules->{"SectionGrouping", 60},
PageBreakBelow->False,
CounterIncrements->"Subsubsection",
FontFamily->"Helvetica",
FontSize->12,
FontWeight->"Bold"],
Cell[StyleData["Subsubsection", "Presentation"]],
Cell[StyleData["Subsubsection", "Printout"],
CellDingbat->None,
CellMargins->{{72, 72}, {-4, 2}},
FontSize->9,
FontSlant->"Oblique"]
}, Closed]],
Cell["\<\
NoSpace heading variants used if a subsequent level \
heading directly follows its predecessor.\
\>", "EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["SubsectionNoSpace"],
CellDingbat->"\[EmptySquare]",
CellMargins->{{67, 25}, {10, 2}},
CellGroupingRules->{"SectionGrouping", 50},
PageBreakBelow->False,
CounterIncrements->"Subsection",
CounterAssignments->{{"Subsubsection", 0}},
StyleMenuListing->None,
FontFamily->"Helvetica",
FontSize->14,
FontWeight->"Bold"],
Cell[StyleData["SubsectionNoSpace", "Presentation"]],
Cell[StyleData["SubsectionNoSpace", "Printout"],
CellDingbat->"\[EmptySquare]",
CellMargins->{{72, 72}, {2, 2}},
FontSize->10]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["SubsubsectionNoSpace"],
CellDingbat->"\[FilledSmallSquare]",
CellMargins->{{67, 25}, {6, 2}},
CellGroupingRules->{"SectionGrouping", 60},
PageBreakBelow->False,
CounterIncrements->"Subsubsection",
StyleMenuListing->None,
FontFamily->"Helvetica",
FontSize->12,
FontWeight->"Bold"],
Cell[StyleData["SubsubsectionNoSpace", "Presentation"]],
Cell[StyleData["SubsubsectionNoSpace", "Printout"],
CellDingbat->None,
CellMargins->{{72, 72}, {-4, 2}},
FontSize->9,
FontSlant->"Oblique"]
}, Closed]],
Cell["\<\
NoDingbat heading variants used, for example, in the \
frontmatter.\
\>", "EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["SectionNoDingbat"],
CellFrame->False,
CellDingbat->None,
CellMargins->{{67, 25}, {10, 30}},
CellGroupingRules->{"SectionGrouping", 40},
PageBreakBelow->False,
CounterIncrements->"Section",
CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}},
StyleMenuListing->None,
FontFamily->"Helvetica",
FontSize->16,
FontWeight->"Bold"],
Cell[StyleData["SectionNoDingbat", "Presentation"],
CellFrameMargins->{{0, 0}, {0, 4}}],
Cell[StyleData["SectionNoDingbat", "Printout"],
CellFrame->False,
CellMargins->{{72, 72}, {2, 30}},
CellFrameColor->GrayLevel[0],
FontSize->12]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["SubsectionNoDingbat"],
CellDingbat->None,
CellMargins->{{67, 25}, {10, 26}},
CellGroupingRules->{"SectionGrouping", 50},
PageBreakBelow->False,
CounterIncrements->"Subsection",
CounterAssignments->{{"Subsubsection", 0}},
StyleMenuListing->None,
FontFamily->"Helvetica",
FontSize->14,
FontWeight->"Bold"],
Cell[StyleData["SubsectionNoDingbat", "Presentation"]],
Cell[StyleData["SubsectionNoDingbat", "Printout"],
CellMargins->{{72, 72}, {2, 16}},
FontSize->10]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["SubsectionNoSpaceNoDingbat"],
CellMargins->{{67, 25}, {2, 2}},
CellGroupingRules->{"SectionGrouping", 50},
PageBreakBelow->False,
CounterIncrements->"Subsection",
CounterAssignments->{{"Subsubsection", 0}},
StyleMenuListing->None,
FontFamily->"Helvetica",
FontSize->14,
FontWeight->"Bold"],
Cell[StyleData["SubsectionNoSpaceNoDingbat", "Presentation"]],
Cell[StyleData["SubsectionNoSpaceNoDingbat", "Printout"],
CellMargins->{{72, 72}, {2, 2}},
FontSize->10]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["SubsubsectionNoDingbat"],
CellMargins->{{67, 25}, {6, 20}},
CellGroupingRules->{"SectionGrouping", 60},
PageBreakBelow->False,
CounterIncrements->"Subsubsection",
StyleMenuListing->None,
FontFamily->"Helvetica",
FontSize->12,
FontWeight->"Bold"],
Cell[StyleData["SubsubsectionNoDingbat", "Presentation"]],
Cell[StyleData["SubsubsectionNoDingbat", "Printout"],
CellMargins->{{72, 72}, {-4, 2}},
FontSize->9,
FontSlant->"Oblique"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell["Styles for Body Text", "Section",
CellFrame->False,
CellDingbat->None,
ShowCellBracket->True,
CellMargins->{{0, 0}, {10, 40}},
CellFrameMargins->{{20, 4}, {8, 8}},
FontColor->GrayLevel[1],
Background->RGBColor[0.269902, 0.558434, 0.715618]],
Cell[CellGroupData[{
Cell[StyleData["Text"],
CellMargins->{{67, 24}, {4, 4}},
LineSpacing->{1, 4},
CounterIncrements->"Text",
FontFamily->"Times",
FontSize->12],
Cell[StyleData["Text", "Presentation"]],
Cell[StyleData["Text", "Printout"],
CellMargins->{{72, 72}, {2, 4}},
LineSpacing->{0, 12},
FontSize->10]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["SmallText"],
CellMargins->{{67, 24}, {4, 4}},
LineSpacing->{1, 4},
CounterIncrements->"SmallText",
FontFamily->"Times",
FontSize->10],
Cell[StyleData["SmallText", "Presentation"]],
Cell[StyleData["SmallText", "Printout"],
CellMargins->{{72, 72}, {2, 4}},
LineSpacing->{0, 11},
FontSize->9]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Quote"],
CellMargins->{{83, 40}, {Inherited, Inherited}},
LineSpacing->{1, 3},
FontFamily->"Times",
FontSize->12],
Cell[StyleData["Quote", "Presentation"]],
Cell[StyleData["Quote", "Printout"],
CellMargins->{{96, 96}, {2, 4}},
LineSpacing->{0, 12},
FontSize->10]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell["Styles for Input, Output, and Graphics", "Section",
CellFrame->False,
CellDingbat->None,
ShowCellBracket->True,
CellMargins->{{0, 0}, {10, 40}},
CellFrameMargins->{{20, 4}, {8, 8}},
FontColor->GrayLevel[1],
Background->RGBColor[0.269902, 0.558434, 0.715618]],
Cell["\<\
The cells in this section define styles used for active \
kernel sessions. Be careful when modifying, renaming, or removing \
these styles, because the front end associates special meanings with \
these style names.\
\>", "Text"],
Cell[TextData[{
"Input cell style to be used for ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" input statements that are followed by either Output or \
GraphicsOnly cell styles. Sets ",
"DefaultFormatType->DefaultInputFormatType."
}], "EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["Input"],
CellFrame->{{0.25, 0.25}, {0, 0.25}},
CellMargins->{{67, 24}, {-1, 10}},
Evaluatable->True,
CellGroupingRules->"InputGrouping",
CellHorizontalScrolling->True,
PageBreakWithin->False,
GroupPageBreakWithin->False,
CellLabelAutoDelete->True,
CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}},
CellFrameColor->GrayLevel[0.869993],
DefaultFormatType->DefaultInputFormatType,
AutoItalicWords->{},
ShowStringCharacters->True,
NumberMarks->True,
CounterIncrements->"Input",
FontFamily->"Courier",
FontSize->12,
FontWeight->"Bold",
Background->GrayLevel[0.949996]],
Cell[StyleData["Input", "Presentation"],
FontSize->14],
Cell[StyleData["Input", "Printout"],
CellFrame->False,
CellMargins->{{96, 72}, {2, 4}},
PrivateEvaluationOptions->{"OutputFormPageWidth"->342},
CellFrameMargins->False,
LineSpacing->{1.25, 0},
FontSize->9,
Background->None]
}, Closed]],
Cell[TextData[{
"InputOnly cell style to be used for ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" input statements that produce no output or graphic. See Program \
and ProgramNoLabel cell styles for presenting segments of code that \
do not evaluate."
}], "EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["InputOnly"],
CellFrame->{{0.25, 0.25}, {0, 0.25}},
CellMargins->{{67, 24}, {10, 10}},
Evaluatable->True,
CellGroupingRules->"InputGrouping",
CellHorizontalScrolling->True,
PageBreakWithin->False,
GroupPageBreakWithin->False,
CellLabelAutoDelete->True,
CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}},
CellFrameColor->GrayLevel[0.869993],
DefaultFormatType->DefaultInputFormatType,
AutoItalicWords->{},
ShowStringCharacters->True,
NumberMarks->True,
CounterIncrements->"Input",
FontFamily->"Courier",
FontSize->12,
FontWeight->"Bold",
Background->GrayLevel[0.949996]],
Cell[StyleData["InputOnly", "Presentation"],
FontSize->14],
Cell[StyleData["InputOnly", "Printout"],
CellFrame->False,
CellMargins->{{96, 72}, {2, 4}},
PrivateEvaluationOptions->{"OutputFormPageWidth"->342},
LineSpacing->{1.25, 0},
FontSize->9,
Background->None]
}, Closed]],
Cell[TextData[{
"Output cell style is usually generated by the ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" kernel. To follow Input cell style. Sets \
DefaultFormatType->DefaultOutputFormatType."
}], "EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["Output"],
CellFrame->{{0.25, 0.25}, {0.25, 0}},
CellMargins->{{67, 24}, {10, 0}},
CellEditDuplicate->True,
CellGroupingRules->"OutputGrouping",
CellHorizontalScrolling->True,
PageBreakWithin->False,
GroupPageBreakWithin->False,
GeneratedCell->True,
CellAutoOverwrite->True,
CellLabelAutoDelete->True,
CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}},
CellFrameColor->GrayLevel[0.869993],
DefaultFormatType->DefaultOutputFormatType,
AutoItalicWords->{},
CounterIncrements->"Output",
StyleMenuListing->None,
FontFamily->"Courier",
FontSize->12,
Background->GrayLevel[0.949996]],
Cell[StyleData["Output", "Presentation"],
FontSize->14],
Cell[StyleData["Output", "Printout"],
CellFrame->False,
CellMargins->{{96, 72}, {2, 4}},
CellLabelMargins->{{72, Inherited}, {Inherited, Inherited}},
LineSpacing->{1.25, 0},
FontSize->9,
Background->None]
}, Closed]],
Cell[TextData[{
"OutputOnly cell style to be used for output generated by the ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" kernel without the Input. Sets \
DefaultFormatType->DefaultOutputFormatType."
}], "EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["OutputOnly"],
CellFrame->True,
CellMargins->{{67, 24}, {15, 10}},
CellEditDuplicate->True,
CellGroupingRules->"OutputGrouping",
CellHorizontalScrolling->True,
PageBreakWithin->False,
GroupPageBreakWithin->False,
GeneratedCell->True,
CellAutoOverwrite->True,
CellLabelAutoDelete->True,
CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}},
CellFrameColor->GrayLevel[0.869993],
DefaultFormatType->DefaultOutputFormatType,
AutoItalicWords->{},
CounterIncrements->"Output",
StyleMenuListing->None,
FontFamily->"Courier",
FontSize->12,
Background->GrayLevel[0.949996]],
Cell[StyleData["OutputOnly", "Presentation"],
FontSize->14],
Cell[StyleData["OutputOnly", "Printout"],
CellFrame->False,
CellMargins->{{96, 72}, {2, 4}},
CellLabelMargins->{{72, Inherited}, {Inherited, Inherited}},
LineSpacing->{1.25, 0},
FontSize->9,
Background->None]
}, Closed]],
Cell[TextData[{
"Message cells are sometimes generated by the ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" kernel during evaluation. To follow Input cell style, precede \
Output cell style."
}], "EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["Message"],
CellFrame->{{0.25, 0.25}, {0, 0}},
CellDingbat->"\[WarningSign]",
CellMargins->{{67, 24}, {0, 0}},
CellGroupingRules->"OutputGrouping",
PageBreakWithin->False,
GroupPageBreakWithin->False,
GeneratedCell->True,
CellAutoOverwrite->True,
ShowCellLabel->False,
CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}},
CellFrameColor->GrayLevel[0.869993],
CellFrameLabelMargins->-9,
DefaultFormatType->DefaultOutputFormatType,
AutoItalicWords->{},
StyleMenuListing->None,
FontFamily->"Helvetica",
FontSize->10,
FontColor->RGBColor[0, 0, 1],
Background->GrayLevel[0.949996]],
Cell[StyleData["Message", "Presentation"],
FontSize->12],
Cell[StyleData["Message", "Printout"],
CellFrame->True,
CellDingbat->None,
CellMargins->{{96, 72}, {2, 4}},
PrivateEvaluationOptions->{"OutputFormPageWidth"->342},
CellFrameMargins->4,
CellFrameColor->GrayLevel[0],
LineSpacing->{0, 10},
FontSize->8,
FontColor->GrayLevel[0],
Background->None]
}, Closed]],
Cell[TextData[{
"Print cells are usually generated by the ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" kernel from such commands as ?Plot."
}], "EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["Print"],
CellFrame->True,
CellMargins->{{67, 24}, {0, 0}},
CellGroupingRules->"OutputGrouping",
CellHorizontalScrolling->True,
PageBreakWithin->False,
GroupPageBreakWithin->False,
GeneratedCell->True,
CellAutoOverwrite->True,
ShowCellLabel->False,
CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}},
CellFrameColor->GrayLevel[0],
DefaultFormatType->DefaultOutputFormatType,
AutoItalicWords->{},
StyleMenuListing->None,
FontSize->10],
Cell[StyleData["Print", "Presentation"],
FontSize->12],
Cell[StyleData["Print", "Printout"],
CellFrame->True,
CellMargins->{{96, 72}, {2, 4}},
PrivateEvaluationOptions->{"OutputFormPageWidth"->342},
CellFrameMargins->4,
CellFrameColor->GrayLevel[0],
LineSpacing->{0, 11},
FontSize->9,
Background->None]
}, Closed]],
Cell["\<\
Graphics cell usually output by kernel. To be preceded by \
Input cell, followed by Output cell.\
\>", "EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["Graphics"],
CellFrame->{{0.25, 0.25}, {0, 0}},
CellMargins->{{67, 24}, {0, 0}},
CellGroupingRules->"GraphicsGrouping",
CellHorizontalScrolling->True,
PageBreakWithin->False,
GeneratedCell->True,
CellAutoOverwrite->True,
ShowCellLabel->True,
CellLabelPositioning->Left,
CellLabelAutoDelete->True,
CellFrameColor->GrayLevel[0.869993],
DefaultFormatType->DefaultOutputFormatType,
FormatType->InputForm,
ImageMargins->{{30, 0}, {0, 0}},
StyleMenuListing->None,
Background->GrayLevel[0.949996]],
Cell[StyleData["Graphics", "Presentation"]],
Cell[StyleData["Graphics", "Printout"],
CellFrame->False,
CellMargins->{{96, 72}, {8, 10}},
LineSpacing->{0, 12},
ImageSize->{144, 144},
Background->None]
}, Closed]],
Cell["\<\
GraphicsOnly cell to follow Input cell, not followed by \
Output cell. Set Graphics cell to GraphicsOnly cell manually.\
\>",
"EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["GraphicsOnly"],
CellFrame->{{0.25, 0.25}, {0.25, 0}},
CellMargins->{{67, 24}, {10, 0}},
CellGroupingRules->"GraphicsGrouping",
CellHorizontalScrolling->True,
PageBreakWithin->False,
GeneratedCell->True,
CellAutoOverwrite->True,
ShowCellLabel->True,
CellLabelPositioning->Left,
CellLabelAutoDelete->True,
CellFrameColor->GrayLevel[0.869993],
DefaultFormatType->DefaultOutputFormatType,
FormatType->InputForm,
ImageMargins->{{30, 0}, {0, 0}},
Background->GrayLevel[0.949996]],
Cell[StyleData["GraphicsOnly", "Presentation"]],
Cell[StyleData["GraphicsOnly", "Printout"],
CellFrame->False,
CellMargins->{{96, 72}, {8, 10}},
LineSpacing->{0, 12},
ImageSize->{144, 144},
FontSize->10,
Background->None]
}, Closed]],
Cell["\<\
PictureGroup cell style used to group graphic cells that \
comprise an animation.\
\>", "EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["PictureGroup"],
CellFrame->{{0.25, 0.25}, {0.25, 0}},
CellMargins->{{67, 17}, {0, 0}},
CellGroupingRules->"GraphicsGrouping",
CellHorizontalScrolling->True,
PageBreakWithin->False,
ShowCellLabel->True,
CellLabelAutoDelete->True,
CellFrameColor->GrayLevel[0.869993],
DefaultFormatType->DefaultOutputFormatType,
FormatType->InputForm,
ImageMargins->{{30, 0}, {0, 0}},
StyleMenuListing->None,
Background->GrayLevel[0.949996]],
Cell[StyleData["PictureGroup", "Presentation"]],
Cell[StyleData["PictureGroup", "Printout"],
CellFrame->False,
CellMargins->{{96, 72}, {8, 10}},
LineSpacing->{0, 12},
ImageSize->{144, 144},
FontSize->10,
Background->None]
}, Closed]],
Cell[TextData[{
"PlacedGraphics cell style to be used when importing a graphic \
from another application or when presenting a graphic not associated \
with ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" input. May be followed by NumberedFigureCaption."
}], "EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["PlacedGraphics"],
CellFrame->False,
CellMargins->{{67, 24}, {10, 10}},
CellGroupingRules->"GraphicsGrouping",
CellHorizontalScrolling->True,
ShowCellLabel->False,
CellLabelAutoDelete->True,
TextAlignment->Center],
Cell[StyleData["PlacedGraphics", "Presentation"]],
Cell[StyleData["PlacedGraphics", "Printout"],
CellMargins->{{72, 72}, {8, 10}},
LineSpacing->{0, 12},
FontSize->10,
Background->None]
}, Closed]],
Cell["\<\
CellLabel style definition controls how labels appear \
when a cell has ShowCellLabels->True.\
\>", "EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["CellLabel"],
CellMargins->{{5, Inherited}, {Inherited, Inherited}},
StyleMenuListing->None,
FontFamily->"Helvetica",
FontSize->8,
FontSlant->"Oblique",
FontColor->RGBColor[0.115343, 0.350561, 0.362966]],
Cell[StyleData["CellLabel", "Presentation"],
FontSize->10,
FontColor->RGBColor[0.115343, 0.350561, 0.362966]],
Cell[StyleData["CellLabel", "Printout"],
LineSpacing->{1, 0},
FontSize->6,
FontColor->GrayLevel[0]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell["Styles for Automatic Numbering and Lists", "Section",
CellFrame->False,
CellDingbat->None,
ShowCellBracket->True,
CellMargins->{{0, 0}, {10, 40}},
CellFrameMargins->{{20, 4}, {8, 8}},
FontColor->GrayLevel[1],
Background->RGBColor[0.269902, 0.558434, 0.715618]],
Cell["\<\
NumberedEquation is for DisplayFormula cells that number \
sequentially throughout a notebook. Sets as \
DefaultFormatType->TraditionalForm.\
\>", "EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["NumberedEquation"],
CellMargins->{{67, 24}, {5, 10}},
PageBreakAbove->False,
CellFrameLabels->{{None, Cell[
TextData[ {"(",
CounterBox[ "NumberedEquation"], ")"}]]}, {None, None}},
DefaultFormatType->TraditionalForm,
TextAlignment->Center,
SingleLetterItalics->True,
SpanMaxSize->Infinity,
CounterIncrements->"NumberedEquation",
FormatTypeAutoConvert->False,
FontFamily->"Times",
FontSize->12,
UnderoverscriptBoxOptions->{LimitsPositioning->True},
GridBoxOptions->{AllowScriptLevelChange->False}],
Cell[StyleData["NumberedEquation", "Presentation"],
FontSize->14],
Cell[StyleData["NumberedEquation", "Printout"],
CellMargins->{{72, 72}, {2, 4}},
PrivateEvaluationOptions->{"OutputFormPageWidth"->342},
FontSize->10]
}, Closed]],
Cell["\<\
NumberedFigureCaption to be used directly after a \
PlacedGraphic cell. Use the TMJStyles.nb palette to begin the cell \
and paste in the word \"Figure\" and the NumberedFigure counter \
value. Allows for a descriptive caption.\
\>", "EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["NumberedFigureCaption"],
CellDingbat->"\[FilledUpTriangle]",
CellMargins->{{67, 24}, {8, 10}},
PageBreakAbove->False,
CellLabelPositioning->Left,
TextAlignment->Left,
CounterIncrements->"NumberedFigure",
FormatTypeAutoConvert->False,
FontFamily->"Helvetica",
FontSize->10],
Cell[StyleData["NumberedFigureCaption", "Presentation"]],
Cell[StyleData["NumberedFigureCaption", "Printout"],
CellDingbat->None,
CellMargins->{{72, 72}, {18, 4}},
LineSpacing->{0, 11},
FontSize->9]
}, Closed]],
Cell["\<\
NumberedTableCaption to be used directly after a Table \
cell. Use the TMJStyles.nb palette to begin the cell and paste in the \
word \"Table\" and the NumberedTable counter value. Allows for a \
descriptive caption.\
\>", "EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["NumberedTableCaption"],
CellDingbat->"\[FilledUpTriangle]",
CellMargins->{{67, 24}, {8, 10}},
PageBreakAbove->False,
CounterIncrements->"NumberedTable",
FontFamily->"Helvetica",
FontSize->10],
Cell[StyleData["NumberedTableCaption", "Presentation"]],
Cell[StyleData["NumberedTableCaption", "Printout"],
CellDingbat->None,
CellMargins->{{72, 72}, {18, 4}},
LineSpacing->{0, 11},
FontSize->9]
}, Closed]],
Cell["\<\
NumberedProgramCaption to be used directly after a \
Program cell. Use the TMJStyles.nb palette to begin the cell and \
paste in the word \"Listing\" and the NumberedProgram counter value. \
Allows for a descriptive caption.\
\>", "EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["NumberedProgramCaption"],
CellDingbat->"\[FilledUpTriangle]",
CellMargins->{{67, 24}, {8, 10}},
PageBreakAbove->False,
CounterIncrements->"NumberedProgram",
FormatTypeAutoConvert->False,
FontFamily->"Helvetica",
FontSize->10],
Cell[StyleData["NumberedProgramCaption", "Presentation"]],
Cell[StyleData["NumberedProgramCaption", "Printout"],
CellDingbat->None,
CellMargins->{{72, 72}, {18, 4}},
LineSpacing->{0, 11},
FontSize->9]
}, Closed]],
Cell["\<\
BulletedList is an optional style. Adds a CellDingbat of \
FilledSmallCircle. Text indents left a little more.\
\>",
"EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["BulletedList"],
CellDingbat->"\[FilledSmallCircle]",
CellMargins->{{86, 24}, {Inherited, Inherited}},
FontFamily->"Times",
FontSize->12],
Cell[StyleData["BulletedList", "Presentation"]],
Cell[StyleData["BulletedList", "Printout"],
CellMargins->{{101, 72}, {2, Inherited}},
LineSpacing->{0, 12},
FontSize->10]
}, Closed]],
Cell["\<\
BeginNumberedList to be used as the first item in a \
numbered list sequence. Use the TMJStyles.nb palette to begin the \
cell and paste in the List counter value.\
\>", "EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["BeginNumberedList"],
CellMargins->{{87, 24}, {Inherited, Inherited}},
ParagraphIndent->-20,
CounterIncrements->"List",
CounterAssignments->{{"List", 0}},
FontFamily->"Times",
FontSize->12],
Cell[StyleData["BeginNumberedList", "Presentation"],
ParagraphIndent->-31],
Cell[StyleData["BeginNumberedList", "Printout"],
CellMargins->{{85, 72}, {2, Inherited}},
LineSpacing->{0, 12},
ParagraphIndent->-17,
FontSize->10]
}, Closed]],
Cell["\<\
NumberedList to be used for subsequent items in a \
numbered list sequence with a single-digit label. Use the \
TMJstyles.nb palette to begin the cell and paste in the List counter \
value.\
\>", "EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["NumberedList"],
CellMargins->{{87, 10}, {Inherited, Inherited}},
ParagraphIndent->-20,
CounterIncrements->"List",
FontFamily->"Times",
FontSize->12],
Cell[StyleData["NumberedList", "Presentation"],
ParagraphIndent->-31],
Cell[StyleData["NumberedList", "Printout"],
CellMargins->{{85, 72}, {2, Inherited}},
LineSpacing->{0, 12},
ParagraphIndent->-17,
FontSize->10]
}, Closed]],
Cell["\<\
NumberedListTwo to be used for subsequent items in a \
numbered list sequence with a two-digit label. Use the TMJStyles.nb \
palette to begin the cell and paste in the List counter value.\
\>",
"EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["NumberedListTwo"],
CellMargins->{{85, 10}, {Inherited, Inherited}},
ParagraphIndent->-20,
CounterIncrements->"List",
FontFamily->"Times",
FontSize->12],
Cell[StyleData["NumberedListTwo", "Presentation"],
ParagraphIndent->-31],
Cell[StyleData["NumberedListTwo", "Printout"],
CellMargins->{{85, 72}, {2, Inherited}},
LineSpacing->{0, 12},
ParagraphIndent->-17,
FontSize->10]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["NolabelList"],
CellMargins->{{105, 10}, {Inherited, Inherited}},
FontFamily->"Times",
FontSize->12],
Cell[StyleData["NolabelList", "Presentation"],
FontSize->14],
Cell[StyleData["NolabelList", "Printout"],
CellMargins->{{102, 72}, {2, Inherited}},
LineSpacing->{0, 12},
ParagraphIndent->0,
FontSize->10]
}, Closed]],
Cell["\<\
BeginSubList to be used as the first item in a lettered \
list sequence used as a subitem to a NumberedList item. Use the \
TMJStyles.nb palette to begin the cell and paste in the SubList \
counter value. Sets SubList counter to 0.\
\>", "EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["BeginSubList"],
CellMargins->{{107, 10}, {Inherited, Inherited}},
ParagraphIndent->-12,
CounterIncrements->"SubList",
CounterAssignments->{{"SubList", 0}},
FontFamily->"Times",
FontSize->12,
CounterBoxOptions->{CounterFunction:>(Part[
CharacterRange[ "a", "z"], #]&)}],
Cell[StyleData["BeginSubList", "Presentation"],
ParagraphIndent->-19],
Cell[StyleData["BeginSubList", "Printout"],
CellMargins->{{102, 72}, {2, Inherited}},
LineSpacing->{0, 12},
ParagraphIndent->-12,
FontSize->10]
}, Closed]],
Cell["\<\
SubList to be used as subsequent items in a lettered list \
sequence used as a subitem to a NumberedList item. Use the \
TMJStyles.nb palette to begin the cell and paste in the SubList \
counter value. Increments SubList counter.\
\>", "EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["SubList"],
CellMargins->{{107, 10}, {Inherited, Inherited}},
ParagraphIndent->-14,
CounterIncrements->"SubList",
FontFamily->"Times",
FontSize->12,
CounterBoxOptions->{CounterFunction:>(Part[
CharacterRange[ "a", "z"], #]&)}],
Cell[StyleData["SubList", "Presentation"],
ParagraphIndent->-19],
Cell[StyleData["SubList", "Printout"],
CellMargins->{{102, 72}, {2, Inherited}},
LineSpacing->{0, 12},
ParagraphIndent->-12,
FontSize->10]
}, Closed]],
Cell["\<\
Reference style to be used in the bibliography portion of \
a notebook. One cell for each bibliography entry. Use the \
TMJStyles.nb palette to begin cell and paste in the Reference counter \
value. Use Inline style SB for bold font changes. Use Inline style SO \
for italic font changes.\
\>", "EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["Reference"],
CellMargins->{{67, 25}, {Inherited, Inherited}},
ParagraphIndent->-20,
CounterIncrements->"Reference",
FontFamily->"Helvetica",
FontSize->10],
Cell[StyleData["Reference", "Presentation"],
ParagraphIndent->-25],
Cell[StyleData["Reference", "Printout"],
CellMargins->{{85, 72}, {2, 4}},
LineSpacing->{0, 10},
ParagraphIndent->-15,
FontSize->8]
}, Closed]],
Cell["\<\
ReferenceTwo is for two-digit reference entries. See the \
TMJStyles.nb palette. Use Inline style SB for bold font changes. Use \
Inline style SO for italic font changes.\
\>", "EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["ReferenceTwo"],
CellMargins->{{67, 25}, {Inherited, Inherited}},
ParagraphIndent->-22,
CounterIncrements->"Reference",
FontFamily->"Helvetica",
FontSize->10],
Cell[StyleData["ReferenceTwo", "Presentation"],
ParagraphIndent->-27,
FontFamily->"Helvetica",
FontSize->12],
Cell[StyleData["ReferenceTwo", "Printout"],
CellMargins->{{84, 72}, {2, 4}},
LineSpacing->{0, 10},
ParagraphIndent->-16,
FontSize->8]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell["Journal Element Styles", "Section",
CellFrame->False,
CellDingbat->None,
ShowCellBracket->True,
CellMargins->{{0, 0}, {10, 40}},
CellFrameMargins->{{20, 4}, {8, 8}},
FontColor->GrayLevel[1],
Background->RGBColor[0.269902, 0.558434, 0.715618]],
Cell["\<\
OnlineHeader to be used at the beginning of a notebook. \
Precedes the Title cell.\
\>", "EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["OnlineHeader"],
ShowCellBracket->False,
ShowSelection->True,
CellMargins->{{0, 25}, {0, 0}},
CellGroupingRules->{"TitleGrouping", 30},
PageBreakBelow->False,
CellFrameMargins->{{54, 4}, {2, 8}},
LineSpacing->{1, 1},
StyleMenuListing->None,
FontFamily->"Times",
FontSize->12,
FontWeight->"Plain",
FontSlant->"Italic",
FontColor->GrayLevel[1],
Background->RGBColor[0.725383, 0.0545968, 0.0770581]],
Cell[StyleData["OnlineHeader", "Presentation"],
FontSize->14],
Cell[StyleData["OnlineHeader", "Printout"],
PageWidth->PaperWidth,
CellFrame->False,
CellMargins->{{72, 72}, {0, 0}},
FontSize->10,
FontColor->GrayLevel[0],
Background->None]
}, Closed]],
Cell["\<\
Cell Style PreTitle to be used for such things that \
precede a title as in EDITOR'S PICK. Should be entered all caps with \
a space between each letter, two spaces between words. FontTracking \
is set to Wide.\
\>", "EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["PreTitle"],
ShowCellBracket->False,
CellMargins->{{54, 25}, {Inherited, 0}},
CellGroupingRules->{"TitleGrouping", 0},
PageBreakBelow->False,
CellFrameMargins->{{55, 4}, {8, 20}},
LineSpacing->{1.125, 0},
StyleMenuListing->None,
FontFamily->"Helvetica",
FontSize->14,
FontWeight->"Bold"],
Cell[StyleData["PreTitle", "Presentation"]],
Cell[StyleData["PreTitle", "Printout"],
CellMargins->{{72, 72}, {14, 0}},
CellFrameMargins->False,
FontSize->12,
FontColor->GrayLevel[0],
Background->None]
}, Closed]],
Cell["\<\
Author to be used after the Title cell with author \
name(s). Author name(s) may be preceded by \"Edited by \" for certain \
columns. Text in author cell to be used as the left page header. \
Usually followed by an Address cell.\
\>", "EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["Author"],
ShowCellBracket->False,
ShowSelection->True,
CellMargins->{{54, 24}, {4, 0}},
CellGroupingRules->"NormalGrouping",
PageBreakBelow->False,
FontFamily->"Helvetica",
FontSize->14,
FontWeight->"Bold",
FontSlant->"Plain"],
Cell[StyleData["Author", "Presentation"],
FontSize->16],
Cell[StyleData["Author", "Printout"],
CellMargins->{{72, 72}, {4, 4}},
LineSpacing->{0, 14},
FontSize->12]
}, Closed]],
Cell["\<\
Abstract to be used after the Author cell. Contains a \
short summary of the article.\
\>", "EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["Abstract"],
ShowCellBracket->False,
ShowSelection->True,
CellMargins->{{54, 86}, {4, 25}},
LineSpacing->{1, 3},
FontFamily->"Times",
FontSize->14,
FontWeight->"Bold",
FontSlant->"Plain"],
Cell[StyleData["Abstract", "Presentation"],
FontSize->16],
Cell[StyleData["Abstract", "Printout"],
CellMargins->{{72, 72}, {Inherited, 2}},
LineSpacing->{0, 12},
FontSize->10,
FontWeight->"Bold",
FontSlant->"Plain"]
}, Closed]],
Cell["\<\
BeginQuestion is used in the In and Out column directly \
after a section cell. Followed by either Question or Input, \
InputOnly, etc. Last paragraph of the question should be in \
EndQuestion cell style.\
\>", "EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["BeginQuestion"],
CellFrame->{{0, 0}, {0, 2}},
CellDingbat->"Q:",
CellMargins->{{89, 34}, {8, 8}},
CellFrameMargins->{{0, 0}, {2, 4}},
LineSpacing->{1, 2},
FontFamily->"Times",
FontSize->14,
FontWeight->"Bold",
FontColor->RGBColor[0.115511, 0.321752, 0.580118]],
Cell[StyleData["BeginQuestion", "Presentation"]],
Cell[StyleData["BeginQuestion", "Printout"],
PageWidth->PaperWidth,
CellFrame->{{0, 0}, {0, 2}},
CellMargins->{{72, 72}, {4, 16}},
LineSpacing->{0, 12},
FontSize->10,
FontWeight->"Plain",
FontColor->GrayLevel[0]]
}, Closed]],
Cell["\<\
Question used for text cells within the Question portion \
of a QuestionAnswer.\
\>", "EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["Question"],
CellMargins->{{89, 34}, {8, 8}},
LineSpacing->{1, 2},
FontFamily->"Times",
FontSize->14,
FontWeight->"Bold",
FontColor->RGBColor[0.115511, 0.321752, 0.580118]],
Cell[StyleData["Question", "Presentation"]],
Cell[StyleData["Question", "Printout"],
PageWidth->PaperWidth,
CellMargins->{{72, 72}, {2, 4}},
LineSpacing->{0, 12},
FontSize->10,
FontWeight->"Plain",
FontColor->GrayLevel[0]]
}, Closed]],
Cell["\<\
EndQuestion used in the In and Out column as the last \
paragraph of the question.\
\>", "EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["EndQuestion"],
CellFrame->{{0, 0}, {2, 0}},
CellMargins->{{89, 35}, {8, 8}},
LineSpacing->{1, 2},
FontFamily->"Times",
FontSize->14,
FontWeight->"Bold",
FontColor->RGBColor[0.115511, 0.321752, 0.580118]],
Cell[StyleData["EndQuestion", "Presentation"]],
Cell[StyleData["EndQuestion", "Printout"],
CellFrame->{{0, 0}, {2, 0}},
CellMargins->{{72, 72}, {18, 4}},
LineSpacing->{0, 12},
FontSize->10,
FontWeight->"Plain",
FontColor->GrayLevel[0]]
}, Closed]],
Cell["\<\
BeginEndQuestion is used in the In and Out column \
directly after a section cell. Used if the question is a single text \
paragraph.\
\>", "EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["BeginEndQuestion"],
CellFrame->{{0, 0}, {2, 2}},
CellDingbat->"Q:",
CellMargins->{{89, 35}, {8, 8}},
LineSpacing->{1, 2},
FontFamily->"Times",
FontSize->14,
FontWeight->"Bold",
FontColor->RGBColor[0.115511, 0.321752, 0.580118]],
Cell[StyleData["BeginEndQuestion", "Presentation"]],
Cell[StyleData["BeginEndQuestion", "Printout"],
CellMargins->{{72, 72}, {18, 14}},
LineSpacing->{0, 12},
FontSize->10,
FontWeight->"Plain",
FontColor->GrayLevel[0]]
}, Closed]],
Cell["\<\
BeginAnswer is used in the In and Out column directly \
after an EndQuestion or BeginEndQuestion cell style to begin the \
answer portion. Followed by Text or Input/Output etc.\
\>",
"EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["BeginAnswer"],
CellDingbat->"A:",
CellMargins->{{89, 35}, {Inherited, Inherited}},
LineSpacing->{1, 4},
CounterIncrements->"Text",
FontFamily->"Times",
FontSize->12],
Cell[StyleData["BeginAnswer", "Presentation"]],
Cell[StyleData["BeginAnswer", "Printout"],
CellMargins->{{72, 72}, {2, 4}},
LineSpacing->{0, 12},
FontSize->10]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Answer"],
CellMargins->{{89, 35}, {Inherited, Inherited}},
LineSpacing->{1, 4},
FontFamily->"Times",
FontSize->12],
Cell[StyleData["Answer", "Presentation"]],
Cell[StyleData["Answer", "Printout"],
CellMargins->{{72, 72}, {2, 4}},
LineSpacing->{0, 12},
FontSize->10]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["EditorialComment"],
CellFrame->False,
CellDingbat->"\[FilledCircle]",
CellMargins->{{36, 25}, {Inherited, Inherited}},
LineSpacing->{1, 3},
CounterIncrements->"Text",
FontColor->RGBColor[1, 0, 0],
Background->GrayLevel[1]],
Cell[StyleData["EditorialComment", "Presentation"]],
Cell[StyleData["EditorialComment", "Printout"],
CellMargins->{{24, 80}, {Inherited, 0}},
LineSpacing->{1, 3},
FontSize->10,
FontColor->GrayLevel[0]]
}, Closed]],
Cell["\<\
SecondAuthor to be used after a Section cell. Author \
name(s) credit a particular portion of a notebook. Used for columns \
Tech Support and Tricks of the Trade. Usually followed by a \
TextAboutAuthor cell with author affiliation/address/hyperlink.\
\>",
"EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["SecondAuthor"],
ShowCellBracket->False,
ShowSelection->True,
CellMargins->{{67, 24}, {Inherited, Inherited}},
CellGroupingRules->"NormalGrouping",
PageBreakBelow->False,
StyleMenuListing->None,
FontFamily->"Helvetica",
FontSize->14,
FontWeight->"Bold",
FontSlant->"Plain"],
Cell[StyleData["SecondAuthor", "Presentation"],
FontSize->16],
Cell[StyleData["SecondAuthor", "Printout"],
CellMargins->{{72, 72}, {2, 4}},
LineSpacing->{0, 14},
FontSize->12]
}, Closed]],
Cell["\<\
SectionAboutAuthor to be used as the section head for the \
About the Author portion of a notebook.\
\>", "EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["SectionAboutAuthor"],
CellMargins->{{54, 25}, {10, 60}},
CellGroupingRules->{"SectionGrouping", 40},
PageBreakBelow->False,
CellFrameMargins->4,
FontFamily->"Helvetica",
FontSize->12,
FontWeight->"Bold"],
Cell[StyleData["SectionAboutAuthor", "Presentation"]],
Cell[StyleData["SectionAboutAuthor", "Printout"],
CellFrame->False,
CellMargins->{{72, 72}, {0, 30}},
FontSize->12]
}, Closed]],
Cell["\<\
TextAboutAuthor is to be used for the text in the About \
the Author portion of a notebook. The last paragraph should be \
affiliation and contact information with author name set in \
bold.\
\>", "EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["TextAboutAuthor"],
CellMargins->{{54, 24}, {2, 5}},
LineSpacing->{1, 3},
CounterIncrements->"Text",
FontSize->12],
Cell[StyleData["TextAboutAuthor", "Presentation"],
FontSize->14],
Cell[StyleData["TextAboutAuthor", "Printout"],
CellMargins->{{72, 72}, {2, 4}},
LineSpacing->{0, 11},
FontFamily->"Helvetica",
FontSize->9]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Subsubsubsection"],
CellDingbat->None,
CellMargins->{{67, 25}, {6, 20}},
CellGroupingRules->{"SectionGrouping", 60},
PageBreakBelow->False,
CounterIncrements->"Subsubsubsection",
StyleMenuListing->None,
FontFamily->"Helvetica",
FontSize->12,
FontWeight->"Bold"],
Cell[StyleData["Subsubsubsection", "Presentation"]],
Cell[StyleData["Subsubsubsection", "Printout"],
CellDingbat->None,
CellMargins->{{72, 72}, {-4, 2}},
FontSize->9,
FontWeight->"Bold",
FontSlant->"Plain"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell["Display Formulas and Programming", "Section",
CellFrame->False,
CellDingbat->None,
ShowCellBracket->True,
CellMargins->{{0, 0}, {10, 40}},
CellFrameMargins->{{20, 4}, {8, 8}},
FontColor->GrayLevel[1],
Background->RGBColor[0.269902, 0.558434, 0.715618]],
Cell[CellGroupData[{
Cell[StyleData["DisplayFormula"],
CellMargins->{{67, 24}, {4, 4}},
CellHorizontalScrolling->True,
PageBreakAbove->False,
DefaultFormatType->TraditionalForm,
TextAlignment->Center,
ScriptLevel->0,
SingleLetterItalics->True,
SpanMaxSize->Infinity,
FormatTypeAutoConvert->False,
FontFamily->"Times",
FontSize->12,
UnderoverscriptBoxOptions->{LimitsPositioning->True},
GridBoxOptions->{AllowScriptLevelChange->False}],
Cell[StyleData["DisplayFormula", "Presentation"]],
Cell[StyleData["DisplayFormula", "Printout"],
CellMargins->{{72, 72}, {2, 4}},
PrivateEvaluationOptions->{"OutputFormPageWidth"->342},
LineSpacing->{1.25, 0},
FontSize->10]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["ChemicalFormula"],
CellMargins->{{67, 24}, {4, 4}},
PageBreakAbove->False,
DefaultFormatType->DefaultInputFormatType,
AutoSpacing->False,
ScriptLevel->1,
ScriptBaselineShifts->{0.6, Automatic},
SingleLetterItalics->False,
ZeroWidthTimes->False,
FontFamily->"Times",
FontSize->12],
Cell[StyleData["ChemicalFormula", "Presentation"],
FontSize->14],
Cell[StyleData["ChemicalFormula", "Printout"],
CellMargins->{{72, 72}, {2, 4}},
LineSpacing->{0, 12},
FontSize->10]
}, Closed]],
Cell[TextData[{
"Program cell style to be followed by NumberedProgramCaption. See \
ProgramNoLabel cell style if nonevaluatable source code to be \
displayed (e.g., program listings from a program language other than \
",
StyleBox["Mathematica",
FontSlant->"Italic"],
")."
}], "EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["Program"],
CellMargins->{{67, 25}, {Inherited, 6}},
FontFamily->"Courier",
FontSize->10,
FontWeight->"Plain"],
Cell[StyleData["Program", "Presentation"]],
Cell[StyleData["Program", "Printout"],
CellMargins->{{72, 72}, {2, 18}},
LineSpacing->{0, 11},
FontSize->9]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["ProgramNoLabel"],
CellMargins->{{67, 25}, {10, 10}},
FontFamily->"Courier",
FontSize->10,
FontWeight->"Plain"],
Cell[StyleData["ProgramNoLabel", "Presentation"]],
Cell[StyleData["ProgramNoLabel", "Printout"],
CellMargins->{{72, 72}, {2, 4}},
LineSpacing->{0, 11},
FontSize->9]
}, Closed]],
Cell["\<\
Table cell style to be used for cells containing \
displayed tabular material. May be followed by NumberedTableCaption \
cell.\
\>", "EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["Table"],
CellMargins->{{67, 24}, {5, 10}},
TextAlignment->Center,
FontFamily->"Times",
FontSize->12,
Background->GrayLevel[0.899001]],
Cell[StyleData["Table", "Presentation"],
FontSize->14],
Cell[StyleData["Table", "Printout"],
CellMargins->{{72, 72}, {0, 18}},
FontSize->10,
Background->None]
}, Closed]],
Cell["DefinitionBox, 2 left-aligned columns.", "EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["DefinitionBox"],
CellFrame->0.5,
CellMargins->{{67, 24}, {8, 10}},
CellHorizontalScrolling->True,
AutoIndent->False,
AutoSpacing->False,
SingleLetterItalics->False,
LineIndent->0,
FontFamily->"Times",
FontSize->12,
Background->GrayLevel[0.899001],
GridBoxOptions->{RowSpacings->1.5,
ColumnSpacings->1,
ColumnWidths->{0.4, 0.6},
ColumnAlignments->{Left}}],
Cell[StyleData["DefinitionBox", "Presentation"]],
Cell[StyleData["DefinitionBox", "Printout"],
CellMargins->{{72, 72}, {8, 10}},
FontSize->10,
Background->None]
}, Closed]],
Cell["\<\
PseudoCellExpression cell style to be used when \
displaying unformatted box expressions. \
\>", "EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["PseudoCellExpression"],
CellFrame->{{0, 0}, {0, 0.5}},
CellMargins->{{67, 17}, {Inherited, Inherited}},
CellFrameMargins->2,
LineSpacing->{1, 4},
FontFamily->"Courier",
FontSize->12],
Cell[StyleData["PseudoCellExpression", "Presentation"]],
Cell[StyleData["PseudoCellExpression", "Printout"],
CellMargins->{{84, 96}, {Inherited, Inherited}},
LineSpacing->{0, 12},
FontSize->10]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell["Styles for Headers and Footers", "Section",
CellFrame->False,
CellDingbat->None,
ShowCellBracket->True,
CellMargins->{{0, 0}, {10, 40}},
CellFrameMargins->{{20, 4}, {8, 8}},
FontColor->GrayLevel[1],
Background->RGBColor[0.269902, 0.558434, 0.715618]],
Cell[StyleData["Header"],
CellMargins->{{0, 0}, {4, 1}},
StyleMenuListing->None,
FontFamily->"Times",
FontSize->9,
FontSlant->"Italic"],
Cell[StyleData["PageNumber"],
CellMargins->{{0, 0}, {4, 1}},
StyleMenuListing->None,
FontFamily->"Helvetica",
FontSize->9,
FontWeight->"Bold"],
Cell[StyleData["Footer"],
CellMargins->{{0, 0}, {0, 4}},
StyleMenuListing->None,
FontFamily->"Helvetica",
FontSize->7,
FontSlant->"Oblique"]
}, Closed]],
Cell[CellGroupData[{
Cell["Frontmatter Styles", "Section",
CellFrame->False,
CellDingbat->None,
ShowCellBracket->True,
CellMargins->{{0, 0}, {10, 40}},
CellFrameMargins->{{20, 4}, {8, 8}},
FontColor->GrayLevel[1],
Background->RGBColor[0.269902, 0.558434, 0.715618]],
Cell[CellGroupData[{
Cell[StyleData["tocentry"],
CellMargins->{{67, 24}, {Inherited, Inherited}},
AutoIndent->True,
TabFilling->".",
LineSpacing->{1, 4},
FontFamily->"Times",
FontSize->12],
Cell[StyleData["tocentry", "Presentation"]],
Cell[StyleData["tocentry", "Printout"],
CellMargins->{{84, 72}, {0, 0}},
LineSpacing->{0, 12},
ParagraphIndent->0,
FontSize->10]
}, Closed]],
Cell["\<\
LetterWriter to be used after a letter. Use inline \
formatting SCBO for person's name. Use Text cell style for letter \
text.\
\>", "EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["LetterWriter"],
CellMargins->{{213, Inherited}, {6, 0}},
LineSpacing->{0, 10},
FontFamily->"Helvetica",
FontSize->10,
FontSlant->"Oblique"],
Cell[StyleData["LetterWriter", "Presentation"],
LineSpacing->{0, 12},
FontSize->12],
Cell[StyleData["LetterWriter", "Printout"],
CellMargins->{{250, Inherited}, {6, 0}},
LineSpacing->{0, 8},
FontFamily->"Helvetica",
FontSize->8,
FontSlant->"Oblique"]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["LetterReply"],
CellMargins->{{67, 24}, {Inherited, Inherited}},
LineSpacing->{1, 4},
FontFamily->"Times",
FontSize->12,
FontSlant->"Italic"],
Cell[StyleData["LetterReply", "Presentation"],
FontSize->14],
Cell[StyleData["LetterReply", "Printout"],
CellMargins->{{72, 72}, {8, 4}},
LineSpacing->{0, 12},
FontSize->10]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["IndexEntry"],
CellMargins->{{67, 24}, {Inherited, Inherited}},
LineSpacing->{1, 4},
FontFamily->"Times",
FontSize->12],
Cell[StyleData["IndexEntry", "Presentation"],
FontSize->14],
Cell[StyleData["IndexEntry", "Printout"],
PageWidth->336,
CellMargins->{{72, 72}, {0, 0}},
AutoIndent->True,
LineSpacing->{0, 10},
ParagraphIndent->-27,
TabSpacings->1,
FontSize->8]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["Classified"],
CellFrame->{{0, 0}, {0, 2}},
CellMargins->{{67, 24}, {Inherited, Inherited}},
CellFrameMargins->False,
LineSpacing->{1, 4},
FontFamily->"Helvetica",
FontSize->12],
Cell[StyleData["Classified", "Presentation"],
FontSize->14],
Cell[StyleData["Classified", "Printout"],
CellMargins->{{72, 24}, {Inherited, 0}},
LineSpacing->{1, 3},
FontSize->10]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell["Hyperlink Styles", "Section",
CellFrame->False,
CellDingbat->None,
ShowCellBracket->True,
CellMargins->{{0, 0}, {10, 40}},
CellFrameMargins->{{20, 4}, {8, 8}},
FontColor->GrayLevel[1],
Background->RGBColor[0.269902, 0.558434, 0.715618]],
Cell["The cells below define styles used for ButtonBoxes.", "Text"],
Cell[CellGroupData[{
Cell[StyleData["Hyperlink"],
StyleMenuListing->None,
ButtonStyleMenuListing->Automatic,
FontColor->RGBColor[1, 0, 0],
FontVariations->{"Underline"->True},
ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
FrontEnd`NotebookLocate[ #2]}]&),
Active->True,
ButtonNote->ButtonData}],
Cell[StyleData["Hyperlink", "Presentation"]],
Cell[StyleData["Hyperlink", "Printout"],
FontColor->GrayLevel[0]]
}, Closed]],
Cell["\<\
The following styles are for linking automatically to the \
locally installed on-line help system.\
\>", "Text"],
Cell[CellGroupData[{
Cell[StyleData["MainBookLink"],
StyleMenuListing->None,
ButtonStyleMenuListing->Automatic,
FontColor->RGBColor[1, 0, 0],
FontVariations->{"Underline"->True},
ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
FrontEnd`HelpBrowserLookup[ "MainBook", #]}]&),
Active->True,
ButtonFrame->"None"}],
Cell[StyleData["MainBookLink", "Presentation"]],
Cell[StyleData["MainBookLink", "Printout"],
FontColor->GrayLevel[0]]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["AddOnsLink"],
StyleMenuListing->None,
ButtonStyleMenuListing->Automatic,
FontColor->RGBColor[1, 0, 0],
FontVariations->{"Underline"->True},
ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
FrontEnd`HelpBrowserLookup[ "AddOns", #]}]&),
Active->True,
ButtonFrame->"None"}],
Cell[StyleData["AddOnsLink", "Presentation"]],
Cell[StyleData["AddOnsLink", "Printout"],
FontColor->GrayLevel[0]]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["RefGuideLink"],
StyleMenuListing->None,
ButtonStyleMenuListing->Automatic,
FontColor->RGBColor[1, 0, 0],
FontVariations->{"Underline"->True},
ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
FrontEnd`HelpBrowserLookup[ "RefGuide", #]}]&),
Active->True,
ButtonFrame->"None"}],
Cell[StyleData["RefGuideLink", "Presentation"]],
Cell[StyleData["RefGuideLink", "Printout"],
FontColor->GrayLevel[0]]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["GettingStartedLink"],
StyleMenuListing->None,
ButtonStyleMenuListing->Automatic,
FontColor->RGBColor[1, 0, 0],
FontVariations->{"Underline"->True},
ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
FrontEnd`HelpBrowserLookup[ "GettingStarted", #]}]&),
Active->True,
ButtonFrame->"None"}],
Cell[StyleData["GettingStartedLink", "Presentation"]],
Cell[StyleData["GettingStartedLink", "Printout"],
FontColor->GrayLevel[0]]
}, Closed]],
Cell[CellGroupData[{
Cell[StyleData["OtherInformationLink"],
StyleMenuListing->None,
ButtonStyleMenuListing->Automatic,
FontColor->RGBColor[1, 0, 0],
FontVariations->{"Underline"->True},
ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ {
FrontEnd`HelpBrowserLookup[ "OtherInformation", #]}]&),
Active->True,
ButtonFrame->"None"}],
Cell[StyleData["OtherInformationLink", "Presentation"]],
Cell[StyleData["OtherInformationLink", "Printout"],
FontColor->GrayLevel[0]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell["FormatType Styles", "Section",
CellFrame->False,
CellDingbat->None,
ShowCellBracket->True,
CellMargins->{{0, 0}, {10, 40}},
CellFrameMargins->{{20, 4}, {8, 8}},
FontColor->GrayLevel[1],
Background->RGBColor[0.269902, 0.558434, 0.715618]],
Cell["\<\
These cells define styles that are mixed in with other \
cells. If the FormatType of a cell style matches the name of one of \
the styles defined below, then that style is applied along with the \
local cell style definitions. \
\>", "Text",
CellMargins->{{24, 0}, {Inherited, Inherited}}],
Cell[StyleData["CellExpression"],
CellMargins->{{54, 24}, {2, 4}},
ShowCellLabel->False,
ShowSpecialCharacters->False,
AllowInlineCells->False,
Hyphenation->False,
AutoItalicWords->{},
StyleMenuListing->None,
FontFamily->"Courier",
FontSize->12,
Background->GrayLevel[1]],
Cell[StyleData["InputForm"],
AllowInlineCells->False,
Hyphenation->False,
LineSpacing->{1.25, 0},
StyleMenuListing->None,
FontFamily->"Courier",
FontProperties->{"FontSerifed"->True,
"FontMonospaced"->True}],
Cell[StyleData["OutputForm"],
LineSpacing->{1.25, 0},
StyleMenuListing->None,
FontFamily->"Courier",
FontProperties->{"FontSerifed"->True,
"FontMonospaced"->True}],
Cell[StyleData["StandardForm"],
LineSpacing->{1.25, 0},
SingleLetterItalics->False,
StyleMenuListing->None,
FontFamily->"Courier",
FontProperties->{"FontSerifed"->True,
"FontMonospaced"->True}],
Cell[StyleData["TraditionalForm"],
LineSpacing->{1.25, 0},
SingleLetterItalics->True,
TraditionalFunctionNotation->True,
DelimiterMatching->None,
ZeroWidthTimes->False,
StyleMenuListing->None,
FontFamily->"Times",
FontProperties->{"FontSerifed"->True,
"FontMonospaced"->False}],
Cell["\<\
The style defined below is mixed in to any cell that is \
in an inline cell within another.\
\>", "Text",
CellMargins->{{24, 0}, {Inherited, Inherited}}],
Cell[StyleData["InlineCell"],
TextAlignment->Left,
ScriptLevel->1,
StyleMenuListing->None],
Cell[StyleData["InlineCellEditing"],
StyleMenuListing->None,
Background->RGBColor[1, 0.749996, 0.8]]
}, Closed]],
Cell[CellGroupData[{
Cell["Inline Formatting", "Section",
CellFrame->False,
CellDingbat->None,
ShowCellBracket->True,
CellMargins->{{0, 0}, {10, 40}},
CellFrameMargins->{{20, 4}, {8, 8}},
FontColor->GrayLevel[1],
Background->RGBColor[0.269902, 0.558434, 0.715618]],
Cell["\<\
InlineInput is for code segments embedded within another \
cell. Sets as FormatType->DefaultInputFormatType.\
\>",
"EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["InlineInput"],
Evaluatable->True,
CellGroupingRules->"InputGrouping",
CellHorizontalScrolling->True,
HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"},
AutoItalicWords->{},
FormatType->DefaultInputFormatType,
ShowStringCharacters->True,
NumberMarks->True,
FontFamily->"Courier",
FontWeight->"Bold"],
Cell[StyleData["InlineInput", "Presentation"]],
Cell[StyleData["InlineInput", "Printout"]]
}, Closed]],
Cell["\<\
InlineInputTraditionalForm is for code segments embedded \
within another cell for articles that set Default Input/Output \
FormatType to TraditionalForm. Sets FormatType->TraditionalForm.\
\>",
"EditorialComment"],
Cell[CellGroupData[{
Cell[StyleData["InlineInputTraditionalForm"],
CellHorizontalScrolling->True,
FormatType->TraditionalForm,
ShowStringCharacters->True,
NumberMarks->True,
SingleLetterItalics->True,
ZeroWidthTimes->False,
FontFamily->"Times",
FontWeight->"Bold"],
Cell[StyleData["InlineInputTraditionalForm", "Presentation"]],
Cell[StyleData["InlineInputTraditionalForm", "Printout"]]
}, Closed]],
Cell["\<\
The following styles are for modifying individual words \
or letters in a cell exclusive of the cell style.\
\>",
"EditorialComment"],
Cell["\<\
RM used to change selection to FontWeight->Plain, \
FontSlant->Plain\
\>", "EditorialComment"],
Cell[StyleData["RM"],
FontWeight->"Plain",
FontSlant->"Plain"],
Cell["\<\
BF used to change selection to FontWeight->Bold, \
FontSlant->Plain\
\>", "EditorialComment"],
Cell[StyleData["BF"],
FontWeight->"Bold",
FontSlant->"Plain"],
Cell["\<\
IT used to change selection to FontWeight->Plain, \
FontSlant->Italic\
\>", "EditorialComment"],
Cell[StyleData["IT"],
FontWeight->"Plain",
FontSlant->"Italic"],
Cell["\<\
BFI used to change selection to FontWeight->Bold, \
FontSlant->Italic\
\>", "EditorialComment"],
Cell[StyleData["BFI"],
FontWeight->"Bold",
FontSlant->"Italic"],
Cell["\<\
TR used to change selection to normal text font, \
FontWeight->Plain, FontSlant->Plain\
\>", "EditorialComment"],
Cell[StyleData["TR"],
FontFamily->"Times",
FontWeight->"Plain",
FontSlant->"Plain"],
Cell["\<\
TI used to change selection to normal text font, \
FontWeight->Plain, FontSlant->Italic\
\>", "EditorialComment"],
Cell[StyleData["TI"],
FontFamily->"Times",
FontWeight->"Plain",
FontSlant->"Italic"],
Cell["\<\
TB used to change selection to normal text font, \
FontWeight->Bold, FontSlant->Plain\
\>", "EditorialComment"],
Cell[StyleData["TB"],
FontFamily->"Times",
FontWeight->"Bold",
FontSlant->"Plain"],
Cell["\<\
TBI used to change selection to normal text font, \
FontWeight->Bold, FontSlant->Italic\
\>", "EditorialComment"],
Cell[StyleData["TBI"],
FontFamily->"Times",
FontWeight->"Bold",
FontSlant->"Italic"],
Cell["\<\
MR used to change selection to monospace font with \
FontWeight->Plain, FontSlant->Plain\
\>", "EditorialComment"],
Cell[StyleData["MR"],
HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"},
StyleMenuListing->None,
FontFamily->"Courier",
FontWeight->"Plain",
FontSlant->"Plain"],
Cell["\<\
MO used to change selection to monospace font with \
FontWeight->Plain, FontSlant->Oblique\
\>", "EditorialComment"],
Cell[StyleData["MO"],
HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"},
StyleMenuListing->None,
FontFamily->"Courier",
FontWeight->"Plain",
FontSlant->"Oblique"],
Cell["\<\
MB used to change selection to monospace font with \
FontWeight->Bold, FontSlant->Plain\
\>", "EditorialComment"],
Cell[StyleData["MB"],
HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"},
StyleMenuListing->None,
FontFamily->"Courier",
FontWeight->"Bold",
FontSlant->"Plain"],
Cell["\<\
MBO used to change selection to monospace font with \
FontWeight->Bold, FontSlant->Oblique\
\>", "EditorialComment"],
Cell[StyleData["MBO"],
HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"},
StyleMenuListing->None,
FontFamily->"Courier",
FontWeight->"Bold",
FontSlant->"Oblique"],
Cell["\<\
SR used to change selection to sans serif font with \
FontWeight->Plain, FontSlant->Plain\
\>", "EditorialComment"],
Cell[StyleData["SR"],
FontFamily->"Helvetica",
FontWeight->"Plain",
FontSlant->"Plain"],
Cell["\<\
SO used to change selection to sans serif font with \
FontWeight->Plain, FontSlant->Oblique\
\>", "EditorialComment"],
Cell[StyleData["SO"],
FontFamily->"Helvetica",
FontWeight->"Plain",
FontSlant->"Oblique"],
Cell["\<\
SB used to change selection to sans serif font with \
FontWeight->Bold, FontSlant->Plain\
\>", "EditorialComment"],
Cell[StyleData["SB"],
FontFamily->"Helvetica",
FontWeight->"Bold",
FontSlant->"Plain"],
Cell["\<\
SBO used to change selection to sans serif font with \
FontWeight->Bold, FontSlant->Oblique\
\>", "EditorialComment"],
Cell[StyleData["SBO"],
FontFamily->"Helvetica",
FontWeight->"Bold",
FontSlant->"Oblique"],
Cell["\<\
SCL used to change selection to sans serif font \
(FontTracking->\"Condensed\", FontWeight->\"Light\")\
\>",
"EditorialComment"],
Cell[StyleData["SCL"],
FontFamily->"Helvetica",
FontWeight->"Light",
FontTracking->"Condensed"],
Cell["\<\
SCLO used to change selection to sans serif font \
(FontSlant->\"Oblique\", FontTracking->\"Condensed\", \
FontWeight->\"Light\")\
\>", "EditorialComment"],
Cell[StyleData["SCLO"],
FontFamily->"Helvetica",
FontWeight->"Light",
FontSlant->"Oblique",
FontTracking->"Condensed"],
Cell["\<\
SCB used to change selection to sans serif font \
(FontWeight->\"Bold\", FontTracking->\"Condensed\")\
\>",
"EditorialComment"],
Cell[StyleData["SCB"],
FontFamily->"Helvetica",
FontWeight->"Bold",
FontTracking->"Condensed"],
Cell["\<\
SCBO used to change selection to sans serif font \
(FontWeight->\"Bold\", FontSlant->\"Oblique\", \
FontTracking->\"Condensed\")\
\>", "EditorialComment"],
Cell[StyleData["SCBO"],
FontFamily->"Helvetica",
FontWeight->"Bold",
FontSlant->"Oblique",
FontTracking->"Condensed"],
Cell["\<\
SXR used to change selection to sans serif font \
(FontWeight->\"ExtraBold\", FontTracking->\"Condensed\")\
\>",
"EditorialComment"],
Cell[StyleData["SXR"],
FontFamily->"Helvetica",
FontWeight->"ExtraBold",
FontTracking->"Condensed"],
Cell["\<\
SXO used to change selection to sans serif font \
(FontWeight->\"ExtraBold\", FontSlant->\"Oblique\", \
FontTracking->\"Condensed\")\
\>", "EditorialComment"],
Cell[StyleData["SXO"],
FontFamily->"Helvetica",
FontWeight->"ExtraBold",
FontSlant->"Oblique",
FontTracking->"Condensed"]
}, Closed]]
}, Open ]]
}]
]