(* Content-type: application/vnd.wolfram.cdf.text *)
(*** Wolfram CDF File ***)
(* http://www.wolfram.com/cdf *)
(* CreatedBy='Mathematica 9.0' *)
(*************************************************************************)
(* *)
(* The Mathematica License under which this file was created prohibits *)
(* restricting third parties in receipt of this file from republishing *)
(* or redistributing it by any means, including but not limited to *)
(* rights management or terms of use, without the express consent of *)
(* Wolfram Research, Inc. For additional information concerning CDF *)
(* licensing and redistribution see: *)
(* *)
(* www.wolfram.com/cdf/adopting-cdf/licensing-options.html *)
(* *)
(*************************************************************************)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 1063, 20]
NotebookDataLength[ 119748, 2798]
NotebookOptionsPosition[ 20361, 561]
NotebookOutlinePosition[ 119146, 2768]
CellTagsIndexPosition[ 119071, 2763]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
"The ",
Cell[BoxData[
FormBox[
SuperscriptBox["Mathematica", "\[RegisteredTrademark]"], TraditionalForm]]],
" ",
"Journal"
}], "OnlineHeader"],
Cell[CellGroupData[{
Cell["B E Y O N D\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]S U D O \
K U", "ColumnTitle"],
Cell["Classic Puzzles in Wolfram Demonstrations", "Title"],
Cell["Ed Pegg Jr", "Author"],
Cell[TextData[{
"Sudoku, today\[CloseCurlyQuote]s most well-known grid-solving puzzle, was \
originally invented by Howard Garns in 1978. Almost 30 years later, its \
popularity suddenly exploded. This column presents logic puzzles of various \
sorts and challenges readers to solve the puzzles in two ways: by hand and \
with ",
StyleBox["Mathematica. ",
FontSlant->"Italic"],
"Solvers are invited to send their code to ",
ButtonBox["edp@wolfram.com",
BaseStyle->"Hyperlink",
ButtonData:>{
URL["mailto:edp@wolfram.com"], None}],
"."
}], "Abstract"],
Cell[CellGroupData[{
Cell["Fifteen Classic Puzzles", "Section"],
Cell[CellGroupData[{
Cell[TextData[{
"If a package has one of 50 random baseball cards, how many packages do you \
need to buy to get a complete set? \n(",
ButtonBox["demonstrations.wolfram.com/CouponCollectorProblem",
BaseStyle->"Hyperlink",
ButtonData->{
URL["http://demonstrations.wolfram.com/CouponCollectorProblem/"], None}],
")"
}], "ItemNumbered",
ShowCellBracket->True],
Cell[TextData[{
"A chess king is at one corner of a chessboard. It makes a series of moves \
that always take it closer to the opposite corner. How many possible paths \
are there? (",
ButtonBox["demonstrations.wolfram.com/DelannoyPathExhaustionDiagonal",
BaseStyle->"Hyperlink",
ButtonData->{
URL["http://demonstrations.wolfram.com/DelannoyPathExhaustionDiagonal/"],
None}],
")"
}], "ItemNumbered",
ShowCellBracket->True],
Cell[TextData[{
"A hallway has 100 lockers, all closed. 100 students are sent down the hall \
as follows: student 1 opens all the lockers; student 2 closes every other \
locker, beginning with the second; student 3 changes the state of every third \
locker, beginning with the third; and so on. After all the students have \
marched, which lockers remain open? \n(",
ButtonBox["demonstrations.wolfram.com/TheLockerProblem",
BaseStyle->"Hyperlink",
ButtonData->{
URL["http://demonstrations.wolfram.com/TheLockerProblem/"], None}],
")"
}], "ItemNumbered",
ShowCellBracket->True],
Cell[TextData[{
"In the Florida Lotto\[Trademark], a player picks 6 numbers out of 1 to 53. \
Matching 3, 4, 5, or 6 numbers from the drawing wins a prize. What are the \
odds of winning? (",
ButtonBox["demonstrations.wolfram.com/UrnProblem",
BaseStyle->"Hyperlink",
ButtonData->{
URL["http://demonstrations.wolfram.com/UrnProblem/"], None}],
")"
}], "ItemNumbered",
ShowCellBracket->True],
Cell[TextData[{
"On a ",
Cell[BoxData[
FormBox[
RowBox[{"7", "\[Times]", "7"}], TraditionalForm]], "Math"],
" grid, plant 10 trees to make 5 lines each containing 4 trees. (",
ButtonBox["demonstrations.wolfram.com/OrchardPlantingProblem",
BaseStyle->"Hyperlink",
ButtonData->{
URL["http://demonstrations.wolfram.com/OrchardPlantingProblem/"], None}],
")"
}], "ItemNumbered",
ShowCellBracket->True],
Cell[TextData[{
"A ",
Cell[BoxData[
FormBox[
RowBox[{"5", "\[Times]", "5"}], TraditionalForm]], "Math"],
" grid has 25 \[OpenCurlyDoubleQuote]on\[CloseCurlyDoubleQuote] buttons. \
Pressing a button changes the state of that button and the surrounding \
buttons. Can all the buttons be turned \[OpenCurlyDoubleQuote]off\
\[CloseCurlyDoubleQuote]? (",
ButtonBox["demonstrations.wolfram.com/LightsOutPuzzle",
BaseStyle->"Hyperlink",
ButtonData->{
URL["http://demonstrations.wolfram.com/LightsOutPuzzle/"], None}],
")"
}], "ItemNumbered", "ProductionPageBreak",
ShowCellBracket->True],
Cell[TextData[{
"Can books similar in size be stacked on the edge of a desk so that the top \
book is not over the desk at all? (",
ButtonBox["demonstrations.wolfram.com/StackingDominoesToTheLimit",
BaseStyle->"Hyperlink",
ButtonData->{
URL["http://demonstrations.wolfram.com/StackingDominoesToTheLimit/"],
None}],
")"
}], "ItemNumbered",
ShowCellBracket->True],
Cell[TextData[{
"McDonald\[CloseCurlyQuote]s\[ThinSpace]",
Cell[BoxData[
FormBox[
OverscriptBox[" ", "\[RegisteredTrademark]"], TraditionalForm]]],
" once sold Chicken McNuggets\[Trademark] in packs of 6, 9, or 20. What is \
the highest number of McNuggets you cannot buy?\n(",
ButtonBox["demonstrations.wolfram.com/McNuggetProblemAndFrobeniusNum-bers",
BaseStyle->"Hyperlink",
ButtonData->{
URL["http://demonstrations.wolfram.com/McNuggetProblemAndFrobeniusNumbers/\
"], None}],
")"
}], "ItemNumbered",
ShowCellBracket->True,
CellChangeTimes->{{3.5342926458823442`*^9, 3.534292646208742*^9}}],
Cell[TextData[{
"Thirty people are in a room. What is the probability that two of them share \
a birthday? (",
ButtonBox["demonstrations.wolfram.com/TheBirthdayProblem",
BaseStyle->"Hyperlink",
ButtonData->{
URL["http://demonstrations.wolfram.com/TheBirthdayProblem/"], None}],
")"
}], "ItemNumbered",
ShowCellBracket->True],
Cell[TextData[{
"Wheels of radius 30cm and 40cm are 10cm apart. What is the length of a snug \
belt that goes around both? (",
ButtonBox["demonstrations.wolfram.com/TwoWheelBelt",
BaseStyle->"Hyperlink",
ButtonData->{
URL["http://demonstrations.wolfram.com/TwoWheelBelt/"], None}],
")"
}], "ItemNumbered",
ShowCellBracket->True],
Cell[TextData[{
"You have a 3 gallon jug and a 5 gallon jug at a well. How can exactly 1 \
gallon be measured? (",
ButtonBox["demonstrations.wolfram.com/JugProblem",
BaseStyle->"Hyperlink",
ButtonData->{
URL["http://demonstrations.wolfram.com/JugProblem/"], None}],
")"
}], "ItemNumbered",
ShowCellBracket->True],
Cell[TextData[{
"A 30-foot statue is on a 10-foot pedestal. Where should you stand so that \
the statue itself looks as big as possible from your point of view? (",
ButtonBox["demonstrations.wolfram.com/TheStatueOfRegiomontanus",
BaseStyle->"Hyperlink",
ButtonData->{
URL["http://demonstrations.wolfram.com/TheStatueOfRegiomontanus/"], None}],
")"
}], "ItemNumbered",
ShowCellBracket->True],
Cell[TextData[{
"As a contestant on Monty Hall\[CloseCurlyQuote]s game show, you are \
presented with three doors. Behind one door is a new car and behind each of \
the other two is a goat. You select a door behind which, you hope, is the new \
car. Monty Hall then opens another door to reveal a goat and asks if you \
would like to change your selection. Should you switch?\n(",
ButtonBox["demonstrations.wolfram.com/MontyHallProblem",
BaseStyle->"Hyperlink",
ButtonData->{
URL["http://demonstrations.wolfram.com/MontyHallProblem/"], None}],
")"
}], "ItemNumbered",
ShowCellBracket->True],
Cell[TextData[{
"You have 12 coins, labeled with letters M, I, T, F, O, L, K, D, A, N, C, \
and E. One of the coins is fake, and is heavier or lighter than the others. \
Can you find the fake coin in 3 weighings?\n(",
ButtonBox["demonstrations.wolfram.com/The12CoinWeighingProblem",
BaseStyle->"Hyperlink",
ButtonData->{
URL["http://demonstrations.wolfram.com/The12CoinWeighingProblem/"], None}],
")"
}], "ItemNumbered",
ShowCellBracket->True],
Cell[TextData[{
"A 55-gallon barrel, with a diameter of 22.5 inches, is lying on its side. \
10 inches of grain is in the barrel. How much grain does the barrel contain? \
(",
ButtonBox["demonstrations.wolfram.com/SagittaApothemAndChord",
BaseStyle->"Hyperlink",
ButtonData->{
URL["http://demonstrations.wolfram.com/SagittaApothemAndChord/"], None}],
")"
}], "ItemNumbered",
ShowCellBracket->True]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell["Discussion\[LongDash]Coupon Collecting", "Section"],
Cell[TextData[{
"For each of the problems listed above, a link is given to a Wolfram \
Demonstration that allows for further exploration [",
CounterBox["Reference", "Nikoli #73"],
"]. For example, the Coupon Collector Demonstration comes with the following \
explanatory caption:"
}], "Text",
CellChangeTimes->{3.611308801253009*^9}],
Cell[TextData[{
"If a package has one of 50 random baseball cards, how many packages do you \
need to buy to get a complete set? The expected answer is ",
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{"50",
SubscriptBox["H", "50"]}], "\[TildeTilde]", "225"}], TraditionalForm]],
"Math"],
" packages, where ",
Cell[BoxData[
FormBox[
SubscriptBox["H", "50"], TraditionalForm]], "Math"],
" is the harmonic number ",
Cell[BoxData[
FormBox[
RowBox[{
RowBox[{"1", "/", "1"}], "+",
RowBox[{"1", "/", "2"}], "+",
RowBox[{"1", "/", "3"}], "+", "\[CenterEllipsis]", "+",
RowBox[{"1", "/", "50"}]}], TraditionalForm]], "Math"],
". Switching from baseball cards to coupons gives the coupon collector \
problem: if there are ",
Cell[BoxData[
FormBox["n", TraditionalForm]], "Math"],
" different kinds of coupons and many of them are distributed randomly, the \
expected number of purchases necessary for a complete set is ",
Cell[BoxData[
FormBox[
RowBox[{"n", " ",
SubscriptBox["H", "n"]}], TraditionalForm]], "Math"],
"."
}], "Quote"],
Cell[TextData[{
"Code containing a ",
Cell[BoxData["Manipulate"], "MCode"],
" is provided for each Demonstration, allowing for exploration of the \
problem with either ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" or ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" ",
StyleBox["Player",
FontSlant->"Italic"],
"."
}], "Text",
CellChangeTimes->{{3.5149114062935123`*^9, 3.5149114062971563`*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Manipulate", "[",
RowBox[{
RowBox[{
RowBox[{"SeedRandom", "[", "sr", "]"}], ";", "\[IndentingNewLine]",
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"jj", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"RandomInteger", "[",
RowBox[{"{",
RowBox[{"1", ",", "coupons"}], "}"}], "]"}], ",",
RowBox[{"{",
RowBox[{"20", " ", "coupons"}], "}"}]}], "]"}]}], "}"}], ",",
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"store", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"Length", "[",
RowBox[{"Union", "[",
RowBox[{"Take", "[",
RowBox[{"jj", ",", "k"}], "]"}], "]"}], "]"}], ",",
RowBox[{"{",
RowBox[{"k", ",", "1", ",",
RowBox[{"Length", "[", "jj", "]"}]}], "}"}]}], "]"}]}], "}"}],
",",
RowBox[{"With", "[",
RowBox[{
RowBox[{"{",
RowBox[{"list", "=",
RowBox[{"Flatten", "[",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"First", "[",
RowBox[{"Position", "[",
RowBox[{"store", ",", "n"}], "]"}], "]"}], ",",
RowBox[{"{",
RowBox[{"n", ",", "1", ",", "coupons"}], "}"}]}], "]"}],
"]"}]}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{"ListPlot", "[",
RowBox[{"list", ",",
RowBox[{"PlotRange", "\[Rule]", "All"}], ",",
RowBox[{"Frame", "\[Rule]", "True"}], ",",
RowBox[{"Axes", "\[Rule]", "False"}], ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"Style", "[",
RowBox[{
"\"\\"", ",", "\"\\""}],
"]"}], ",",
RowBox[{"Style", "[",
RowBox[{
"\"\\"", ",", "\"\\""}],
"]"}]}], "}"}]}], ",", "\[IndentingNewLine]",
RowBox[{"PlotLabel", "\[Rule]",
RowBox[{"Style", "[",
RowBox[{
RowBox[{
RowBox[{"ToString", "[",
RowBox[{"Last", "[", "list", "]"}], "]"}], "<>",
"\"\< coupons had to be bought for the complete set of \>\"",
"<>",
RowBox[{"ToString", "[", "coupons", "]"}], "<>",
"\"\<.\\nThe expected number was \>\"", "<>",
RowBox[{"ToString", "[",
RowBox[{"Round", "[",
RowBox[{"coupons", " ",
RowBox[{"HarmonicNumber", "[", "coupons", "]"}]}], "]"}],
"]"}], "<>", "\"\<.\>\""}], ",", "\"\\""}], "]"}]}],
",",
RowBox[{"ImagePadding", "\[Rule]", "All"}]}], "]"}]}], "]"}]}],
"]"}]}], "]"}]}], ",",
RowBox[{"{", "\[IndentingNewLine]",
RowBox[{
RowBox[{"{",
RowBox[{"coupons", ",", "50", ",",
RowBox[{"TextCell", "[",
RowBox[{"\"\\"", ",",
RowBox[{"TextAlignment", "\[Rule]", "Right"}]}], "]"}]}], "}"}], ",",
"6", ",", "100", ",", "1", ",",
RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"sr", ",", "1", ",", "\"\\""}], "}"}], ",", "1",
",", "400", ",", "1", ",",
RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}]}],
"]"}]], "Input"],
Cell[BoxData[
TagBox[
StyleBox[
DynamicModuleBox[{$CellContext`coupons$$ = 50, $CellContext`sr$$ = 1,
Typeset`show$$ = True, Typeset`bookmarkList$$ = {},
Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ =
1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
Hold[$CellContext`coupons$$], 50,
TextCell["number of\ndistinct coupons", TextAlignment -> Right]}, 6,
100, 1}, {{
Hold[$CellContext`sr$$], 1, "seed random"}, 1, 400, 1}},
Typeset`size$$ = {360., {128., 132.}}, Typeset`update$$ = 0,
Typeset`initDone$$, Typeset`skipInitDone$$ =
True, $CellContext`coupons$364$$ = 0, $CellContext`sr$369$$ = 0},
DynamicBox[Manipulate`ManipulateBoxes[
1, StandardForm,
"Variables" :> {$CellContext`coupons$$ = 50, $CellContext`sr$$ = 1},
"ControllerVariables" :> {
Hold[$CellContext`coupons$$, $CellContext`coupons$364$$, 0],
Hold[$CellContext`sr$$, $CellContext`sr$369$$, 0]},
"OtherVariables" :> {
Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$,
Typeset`animator$$, Typeset`animvar$$, Typeset`name$$,
Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
Typeset`skipInitDone$$},
"Body" :> (SeedRandom[$CellContext`sr$$]; With[{$CellContext`jj$ = Table[
RandomInteger[{1, $CellContext`coupons$$}], {
20 $CellContext`coupons$$}]},
With[{$CellContext`store$ = Table[
Length[
Union[
Take[$CellContext`jj$, $CellContext`k]]], {$CellContext`k, 1,
Length[$CellContext`jj$]}]},
With[{$CellContext`list$ = Flatten[
Table[
First[
Position[$CellContext`store$, $CellContext`n]], \
{$CellContext`n, 1, $CellContext`coupons$$}]]},
ListPlot[$CellContext`list$, PlotRange -> All, Frame -> True, Axes ->
False, FrameLabel -> {
Style["distinct coupons bought", "Label"],
Style["total coupons bought", "Label"]}, PlotLabel -> Style[
StringJoin[
ToString[
Last[$CellContext`list$]],
" coupons had to be bought for the complete set of ",
ToString[$CellContext`coupons$$],
".\nThe expected number was ",
ToString[
Round[$CellContext`coupons$$
HarmonicNumber[$CellContext`coupons$$]]], "."], "Label"],
ImagePadding -> All]]]]),
"Specifications" :> {{{$CellContext`coupons$$, 50,
TextCell["number of\ndistinct coupons", TextAlignment -> Right]}, 6,
100, 1, Appearance ->
"Labeled"}, {{$CellContext`sr$$, 1, "seed random"}, 1, 400, 1,
Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}],
ImageSizeCache->{403., {187., 191.}},
SingleEvaluation->True],
Deinitialization:>None,
DynamicModuleValues:>{},
SynchronousInitialization->True,
UnsavedVariables:>{Typeset`initDone$$},
UntrackedVariables:>{Typeset`size$$}], "Manipulate",
Deployed->True,
StripOnInput->False],
Manipulate`InterpretManipulate[1]]], "Output"]
}, Open ]],
Cell[TextData[{
"All the classic puzzles listed here have been given a similar Demonstration \
treatment. Is there another classic problem that should be added to The \
Wolfram Demonstrations Project? If so, please consider adding it at ",
ButtonBox["demonstrations.wolfram.com/participate.html",
BaseStyle->"Hyperlink",
ButtonData->{
URL["http://demonstrations.wolfram.com/participate.html"], None}],
". Drop me a line once your new Demonstration has been published."
}], "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell["References", "Section"],
Cell[TextData[{
"The Wolfram Demonstrations Project, ",
ButtonBox["demonstrations.wolfram.com",
BaseStyle->"Hyperlink",
ButtonData->{
URL["http://demonstrations.wolfram.com/"], None}],
"."
}], "Reference",
CellChangeTimes->{{3.514911435883445*^9, 3.514911436169611*^9}},
CellTags->"Nikoli #73"],
Cell[TextData[{
"E. Pegg Jr., \[OpenCurlyDoubleQuote]Classic Puzzles in Wolfram \
Demonstrations,\[CloseCurlyDoubleQuote] ",
StyleBox["The Mathematica Journal",
FontSlant->"Italic"],
", 2011. ",
ButtonBox["doi:10.3888/tmj.10.4\[Dash]2",
BaseStyle->"Hyperlink",
ButtonData->{
URL["http://dx.doi.org/10.3888/tmj.10.4-2"], None},
ButtonNote->"http://dx.doi.org/10.3888/tmj.10.4-2"],
"."
}], "DOIReference1",
CellChangeTimes->{{3.500647185533589*^9, 3.500647185556703*^9}, {
3.519417792272653*^9, 3.519417793631654*^9}, {3.519417873627851*^9,
3.5194178762732353`*^9}, {3.520111223607513*^9, 3.520111227190987*^9}, {
3.520111271519908*^9, 3.520111272374915*^9}, 3.520111405953899*^9, {
3.520122616585761*^9, 3.520122618264038*^9}, {3.520122777109995*^9,
3.5201227858034*^9}}]
}, Closed]],
Cell[TextData[{
StyleBox["Ed Pegg Jr", "AboutAuthorB"],
"\nScientific Information Editor\n",
StyleBox["Wolfram Research, Inc.\n", "AboutAuthorI"],
StyleBox[ButtonBox["edp@wolfram.com",
BaseStyle->"Hyperlink",
ButtonData:>{
URL["mailto:edp@wolfram.com"], None}], "AboutAuthorI"]
}], "TextAboutAuthor",
CellMargins->{{Inherited, Inherited}, {Inherited, 30}},
CellGroupingRules->{"SectionGrouping", 40}]
}, Open ]]
},
AutoGeneratedPackage->None,
ScreenStyleEnvironment->"Working",
PrintingStyleEnvironment->"Printout",
WindowToolbars->{},
WindowSize->{640, 750},
WindowMargins->{{318, Automatic}, {Automatic, 115}},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
PageHeaders->{{
Cell[
TextData[{
CounterBox["Page"]}], "PageNumber"], None,
Cell["Ed Pegg Jr", "Header"]}, {
Cell["Classic Puzzles in Wolfram Demonstrations", "Header"], None,
Cell[
TextData[{
CounterBox["Page"]}], "PageNumber"]}},
PageFooters->{{
Cell[
TextData[{"The Mathematica Journal ",
StyleBox["10", FontWeight -> "Bold"],
":4 \[Copyright] 2008 Wolfram Media, Inc."}], "Footer"], None, None}, {
None, None,
Cell[
TextData[{"The Mathematica Journal ",
StyleBox["10", FontWeight -> "Bold"],
":4 \[Copyright] 2008 Wolfram Media, Inc."}], "Footer"]}},
PrivateNotebookOptions->{"PluginToolbarEnabled"->False,
"PluginUpdateNotificationsEnabled"->False},
ShowSelection->True,
ShowCellLabel->False,
CellLabelAutoDelete->False,
Magnification->1.,
FrontEndVersion->"9.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (January 25, \
2013)",
StyleDefinitions->Notebook[{
Cell[
CellGroupData[{
Cell[
TextData[{"Style Definitions for \n",
StyleBox["The Mathematica Journal", FontSlant -> "Italic"]}],
"Subtitle", CellMargins -> {{0, Inherited}, {Inherited, 0}},
CellFrameMargins -> {{20, 4}, {8, 20}}, FontSize -> 36, FontWeight ->
"Bold", FontColor -> GrayLevel[1], Background -> GrayLevel[0]],
Cell[
StyleData[StyleDefinitions -> "Default_8.0.nb"]],
Cell[
CellGroupData[{
Cell[
"Styles Brought in from Core.nb, adjusted for TMJ", "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["Code"], PageWidth -> DirectedInfinity[1],
CellMargins -> {{57, 21}, {10, 10}}, Evaluatable -> True,
CellGroupingRules -> "InputGrouping", TextClipboardType ->
"Package", StripStyleOnPaste -> True, PageBreakWithin -> False,
GroupPageBreakWithin -> False, InitializationCell -> True,
DefaultFormatType -> DefaultInputFormatType, AutoIndent -> False,
ShowAutoStyles -> True, "TwoByteSyntaxCharacterAutoReplacement" ->
True, HyphenationOptions -> {
"HyphenationCharacter" -> "\[Continuation]"},
AutoItalicWords -> {}, LanguageCategory -> "Mathematica",
AutoSpacing -> False, ShowStringCharacters -> True, NumberMarks ->
True, DigitBlock -> DirectedInfinity[1], ZeroWidthTimes -> True,
LineBreakWithin -> False, LineIndent -> 0, CounterIncrements ->
"Code", MenuSortingValue -> 1375, MenuCommandKey -> "8",
FontSize -> 11, FontWeight -> "Bold", Background ->
RGBColor[0.9, 0.9, 1]],
Cell[
StyleData["Code", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData["Code", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["Code", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell["Brought in from Core.nb, removed FontSize", "Text"],
Cell[
StyleData["MSG"], StyleMenuListing -> None, FontFamily ->
"Helvetica"],
Cell["Brought in from Core.nb, not modified", "Text"],
Cell[
StyleData["PrintUsage"], Editable -> False, PageWidth ->
WindowWidth, CellFrame -> {{0, 0}, {0, 3}}, CellFrameColor ->
RGBColor[1, 0.6000000000000001, 0], FontFamily -> "Helvetica",
FontSize -> 10, Background -> RGBColor[1, 0.993332, 0.899718]]},
Closed]],
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[
"Corrected style environment names to use the MenuPosition values \
from Core.nb. ", "Text"],
Cell[
StyleData[All, "Working"],
CellBracketOptions -> {
"Color" -> RGBColor[0.115343, 0.350561, 0.362966]}, ShowCellLabel ->
True, CellFrameLabelMargins -> 6, ScriptMinSize -> 9,
MenuSortingValue -> 1100],
Cell[
StyleData[All, "Presentation"], ScreenStyleEnvironment ->
"Presentation", MenuSortingValue -> 1200, Magnification -> 1.25],
Cell[
StyleData[All, "Printout"], PageWidth -> PaperWidth,
ShowCellBracket -> True, CellLabelAutoDelete -> False, Hyphenation ->
True, HyphenationOptions -> {"HyphenationMinLengths" -> {3, 4}},
ScriptMinSize -> 5, MenuSortingValue -> 1500,
PrivateFontOptions -> {"FontType" -> "Outline"}, Magnification ->
0.9],
Cell["Disabled Menu appearance for SlideShow and Condensed", "Text"],
Cell[
StyleData[All, "SlideShow"], PageWidth -> WindowWidth, DockedCells ->
FEPrivate`FrontEndResource["FEExpressions", "SlideshowToolbar"],
ScrollingOptions -> {
"PagewiseDisplay" -> True, "VerticalScrollRange" -> Fit},
ShowCellBracket -> False, ShowAutoStyles -> False, ScriptMinSize ->
9, MenuSortingValue -> 1300, StyleMenuListing -> None],
Cell[
StyleData[All, "Condensed"], PageWidth -> WindowWidth,
CellLabelMargins -> {{8, Inherited}, {Inherited, Inherited}},
ShowAutoStyles -> False, ScriptMinSize -> 8, MenuSortingValue ->
1400, StyleMenuListing -> None]}, 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"]}},
PrintingOptions -> {
"FacingPages" -> True, "FirstPageHeader" -> False,
"PageFooterMargins" -> {36, 36}, "PageHeaderMargins" -> {42, 42},
"PrintRegistrationMarks" -> False,
"PrintingMargins" -> {{90, 90}, {90, 90}}}, CellFrameLabelMargins ->
6, HyphenationOptions -> {
"HyphenationCharacter" -> "-", "HyphenationFreeZone" -> 12,
"HyphenationMinLengths" -> {2, 3}}, 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[
CellGroupData[{
Cell[
StyleData["Title"], ShowCellBracket -> False, ShowSelection ->
True, CellMargins -> {{21, 21}, {0, 15}},
CellGroupingRules -> {"TitleGrouping", 0}, PageBreakBelow ->
False, Hyphenation -> False, LineSpacing -> {1, 1},
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}}, MenuSortingValue -> 1100,
FontFamily -> "Times", FontSize -> 36, FontWeight -> "Plain",
FontSlant -> "Italic"],
Cell[
StyleData["Title", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData["Title", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["Title", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["Subtitle"], ShowCellBracket -> False, ShowSelection ->
True, CellMargins -> {{21, 21}, {5, 2}},
CellGroupingRules -> {"TitleGrouping", 10}, PageBreakBelow ->
False, Hyphenation -> False, LineSpacing -> {1, 1},
CounterIncrements -> "Subtitle", FontFamily -> "Times", FontSize ->
24, FontSlant -> "Italic"],
Cell[
StyleData["Subtitle", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData["Subtitle", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["Subtitle", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
StyleData["Subsubtitle"], MenuSortingValue -> "None"],
Cell[
CellGroupData[{
Cell[
StyleData["Section"], CellFrame -> False, CellDingbat ->
"\[FilledSquare]", CellMargins -> {{21, 21}, {10, 30}},
Evaluatable -> False,
CellGroupingRules -> {"SectionGrouping", 40}, PageBreakBelow ->
False, Hyphenation -> False, CounterIncrements -> "Section",
CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}, {
"ItemNumbered", 0}}, AspectRatioFixed -> True, FontFamily ->
"Helvetica", FontSize -> 16, FontWeight -> "Bold", FontColor ->
RGBColor[
0.7013504234378576, 0.3030136568245975, 0.12634470130464637`]],
Cell[
StyleData["Section", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData["Section", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["Section", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["Subsection"], CellDingbat -> "\[EmptySquare]",
CellMargins -> {{21, 21}, {10, 26}},
CellGroupingRules -> {"SectionGrouping", 50}, PageBreakBelow ->
False, Hyphenation -> False, LineSpacing -> {1, 1},
CounterIncrements -> "Subsection",
CounterAssignments -> {{"Subsubsection", 0}, {
"ItemNumbered", 0}}, FontFamily -> "Helvetica", FontSize -> 14,
FontWeight -> "Bold", FontColor -> GrayLevel[0]],
Cell[
StyleData[
"Subsection", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData["Subsection", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["Subsection", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["Subsubsection"], CellDingbat ->
"\[FilledSmallSquare]", CellMargins -> {{21, 21}, {6, 20}},
CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow ->
False, Hyphenation -> False, LineSpacing -> {1, 1},
CounterIncrements -> "Subsubsection",
CounterAssignments -> {{"ItemNumbered", 0}}, FontFamily ->
"Helvetica", FontSize -> 12, FontWeight -> "Bold", FontSlant ->
"Oblique"],
Cell[
StyleData[
"Subsubsection", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData[
"Subsubsection", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData[
"Subsubsection", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["Subsubsubsection"], CellDingbat -> None,
CellMargins -> {{21, 21}, {6, 20}},
CellGroupingRules -> {"SectionGrouping", 70}, PageBreakBelow ->
False, Hyphenation -> False, LineSpacing -> {1, 1},
CounterIncrements -> "Subsubsubsection",
CounterAssignments -> {{"ItemNumbered", 0}}, StyleMenuListing ->
None, FontFamily -> "Helvetica", FontSize -> 12, FontWeight ->
"Bold"],
Cell[
StyleData[
"Subsubsubsection", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData[
"Subsubsubsection", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData[
"Subsubsubsection", "Printout", StyleDefinitions -> None]]},
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 -> {{21, 21}, {4, 4}},
CounterIncrements -> "Text",
CounterAssignments -> {{"ItemNumbered", 0}}, MenuSortingValue ->
1370, MenuCommandKey -> "7", FontFamily -> "Times", FontSize ->
12],
Cell[
StyleData["Text", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData["Text", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["Text", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["Quote"],
CellMargins -> {{45, 45}, {Inherited, Inherited}},
MenuSortingValue -> 1520, FontFamily -> "Times", FontSize -> 12],
Cell[
StyleData["Quote", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData["Quote", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["Quote", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, 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[
CellGroupData[{
Cell[
StyleData["Input"], CellMargins -> {{57, 21}, {10, 10}},
Evaluatable -> True, CellGroupingRules -> "InputGrouping",
CellHorizontalScrolling -> True, PageBreakWithin -> False,
GroupPageBreakWithin -> False,
CellLabelMargins -> {{23, Inherited}, {Inherited, Inherited}},
CellFrameColor -> GrayLevel[0.869993], DefaultFormatType ->
DefaultInputFormatType, LineSpacing -> {1, 1},
AutoItalicWords -> {}, ShowStringCharacters -> True, NumberMarks ->
True, CounterIncrements -> "Input", MenuSortingValue -> 1400,
FontSize -> 11, FontWeight -> "Bold", Background -> None],
Cell[
StyleData["Input", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData["Input", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["Input", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["Output"], CellMargins -> {{57, 21}, {13, 5}},
CellEditDuplicate -> True, CellGroupingRules -> "OutputGrouping",
CellHorizontalScrolling -> True, PageBreakWithin -> False,
GroupPageBreakWithin -> False, GeneratedCell -> True,
CellAutoOverwrite -> True,
CellLabelMargins -> {{23, Inherited}, {Inherited, Inherited}},
CellFrameColor -> GrayLevel[0.869993], DefaultFormatType ->
DefaultOutputFormatType, LineSpacing -> {1, 1},
AutoItalicWords -> {}, CounterIncrements -> "Output",
StyleMenuListing -> None, FontSize -> 11, Background -> None],
Cell[
StyleData["Output", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData["Output", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["Output", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["Message"], CellFrame -> {{0.25, 0.25}, {0, 0}},
CellDingbat -> "\[WarningSign]",
CellMargins -> {{57, 21}, {13, 0}}, CellGroupingRules ->
"OutputGrouping", PageBreakWithin -> False, GroupPageBreakWithin ->
False, GeneratedCell -> True, CellAutoOverwrite -> True,
ShowCellLabel -> False,
CellLabelMargins -> {{23, Inherited}, {Inherited, Inherited}},
CellFrameColor -> GrayLevel[0.869993], CellFrameLabelMargins ->
0, DefaultFormatType -> DefaultOutputFormatType,
LineSpacing -> {1, 1}, AutoItalicWords -> {}, StyleMenuListing ->
None, FontFamily -> "Helvetica", FontSize -> 10, FontColor ->
RGBColor[0, 0, 1], Background -> GrayLevel[0.949996]],
Cell[
StyleData["Message", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData["Message", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["Message", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["Print"], CellFrame -> True,
CellMargins -> {{57, 21}, {13, 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,
LineSpacing -> {1, 1}, AutoItalicWords -> {}, StyleMenuListing ->
None, FontFamily -> "Helvetica", FontSize -> 10],
Cell[
StyleData["Print", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData["Print", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["Print", "Printout", StyleDefinitions -> 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."}], "Text"],
Cell[
CellGroupData[{
Cell[
StyleData["PlacedGraphics"], CellFrame -> False,
CellMargins -> {{21, 21}, {8, 10}}, CellGroupingRules ->
"GraphicsGrouping", CellHorizontalScrolling -> True,
ShowCellLabel -> False, TextAlignment -> Left,
LineSpacing -> {1, 1},
InsetBoxOptions -> {
BaseStyle -> {CellFrame -> None, Background -> None}}],
Cell[
StyleData[
"PlacedGraphics", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData[
"PlacedGraphics", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData[
"PlacedGraphics", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["CellLabel"],
CellMargins -> {{5, Inherited}, {Inherited, Inherited}},
LineSpacing -> {1, 1}, StyleMenuListing -> None, FontFamily ->
"Helvetica", FontSize -> 8, FontSlant -> "Oblique", FontColor ->
RGBColor[0.115343, 0.350561, 0.362966]],
Cell[
StyleData[
"CellLabel", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData["CellLabel", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["CellLabel", "Printout", StyleDefinitions -> None]]},
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[
CellGroupData[{
Cell[
StyleData["DisplayFormulaNumbered"],
CellMargins -> {{39, 21}, {4, 4}}, StripStyleOnPaste -> True,
CellFrameLabels -> {{None,
Cell[
TextData[{"(",
CounterBox["DisplayFormulaNumbered"], ")"}],
CellSize -> {30, Inherited}, TextAlignment -> Right]}, {
None, None}}, DefaultFormatType -> TraditionalForm,
HyphenationOptions -> {
"HyphenationCharacter" -> "\[Continuation]"},
LineSpacing -> {1, 1}, LanguageCategory -> "Formula",
ScriptLevel -> 0, SingleLetterItalics -> True, CounterIncrements ->
"DisplayFormulaNumbered", MenuSortingValue -> 1700, FontFamily ->
"Times",
UnderoverscriptBoxOptions -> {LimitsPositioning -> True}],
Cell[
StyleData[
"DisplayFormulaNumbered", "Presentation", StyleDefinitions ->
None]],
Cell[
StyleData[
"DisplayFormulaNumbered", "SlideShow", StyleDefinitions ->
None]],
Cell[
StyleData[
"DisplayFormulaNumbered", "Printout", StyleDefinitions ->
None]]}, Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["InlineFormula"], CellMargins -> {{10, 4}, {0, 8}},
StripStyleOnPaste -> True,
HyphenationOptions -> {
"HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory ->
"Formula", ScriptLevel -> 1, SingleLetterItalics -> True,
MenuSortingValue -> None],
Cell[
StyleData[
"InlineFormula", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData[
"InlineFormula", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData[
"InlineFormula", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["NumberedFigureCaption"], CellDingbat ->
"\[FilledUpTriangle]", CellMargins -> {{21, 21}, {8, 0}},
PageBreakAbove -> False, TextAlignment -> Left,
LineSpacing -> {1, 1}, CounterIncrements -> "NumberedFigure",
MenuSortingValue -> 1711, FormatTypeAutoConvert -> False,
FontFamily -> "Helvetica", FontSize -> 10],
Cell[
StyleData[
"NumberedFigureCaption", "Presentation", StyleDefinitions ->
None]],
Cell[
StyleData[
"NumberedFigureCaption", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData[
"NumberedFigureCaption", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["NumberedTableCaption"], CellDingbat ->
"\[FilledUpTriangle]", CellMargins -> {{21, 21}, {8, 0}},
PageBreakAbove -> False, LineSpacing -> {1, 1},
CounterIncrements -> "NumberedTable", MenuSortingValue -> 1712,
FontFamily -> "Helvetica", FontSize -> 10],
Cell[
StyleData[
"NumberedTableCaption", "Presentation", StyleDefinitions ->
None]],
Cell[
StyleData[
"NumberedTableCaption", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData[
"NumberedTableCaption", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["NumberedProgramCaption"], CellDingbat ->
"\[FilledUpTriangle]", CellMargins -> {{21, 21}, {8, 0}},
PageBreakAbove -> False, LineSpacing -> {1, 1},
CounterIncrements -> "NumberedProgram", MenuSortingValue -> 1713,
FormatTypeAutoConvert -> False, FontFamily -> "Helvetica",
FontSize -> 10],
Cell[
StyleData[
"NumberedProgramCaption", "Presentation", StyleDefinitions ->
None]],
Cell[
StyleData[
"NumberedProgramCaption", "SlideShow", StyleDefinitions ->
None]],
Cell[
StyleData[
"NumberedProgramCaption", "Printout", StyleDefinitions ->
None]]}, Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["Caption"], CellDingbat -> "\[FilledUpTriangle]",
CellMargins -> {{21, 21}, {Inherited, 5}}, PageBreakAbove ->
False, LineSpacing -> {1, 1}, FontFamily -> "Helvetica",
FontSize -> 10],
Cell[
StyleData["Caption", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData["Caption", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["Caption", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["Item"], CellDingbat -> "\[FilledSmallCircle]",
CellMargins -> {{58, 21}, {Inherited, Inherited}},
LineSpacing -> {1, 1},
CounterAssignments -> {{"SubitemNumbered", 0}}, MenuSortingValue ->
1775, FontFamily -> "Times", FontSize -> 12],
Cell[
StyleData["Item", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData["Item", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["Item", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["Subitem"], CellDingbat -> "\[FilledSmallCircle]",
CellMargins -> {{74, 21}, {Inherited, Inherited}},
LineSpacing -> {1, 1}, MenuSortingValue -> 1776, FontFamily ->
"Times", FontSize -> 12],
Cell[
StyleData["Subitem", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData["Subitem", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["Subitem", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["ItemNumbered"], CellDingbat -> Cell[
TextData[{
CounterBox["ItemNumbered"], "."}], FontWeight -> "Bold",
CellSize -> {20, Inherited}, TextAlignment -> Right],
CellMargins -> {{58, 21}, {Inherited, Inherited}}, CellBaseline ->
Baseline, LineSpacing -> {1, 1}, TabSpacings -> {4.},
CounterAssignments -> {{"SubitemNumbered", 0}}, MenuSortingValue ->
1777, FontFamily -> "Times", FontSize -> 12],
Cell[
StyleData[
"ItemNumbered", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData[
"ItemNumbered", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["ItemNumbered", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["SubitemNumbered"], CellDingbat -> Cell[
TextData[{
CounterBox["SubitemNumbered", CounterFunction :> (Part[
CharacterRange["a", "z"], #]& )], "."}], FontWeight ->
"Bold"], CellMargins -> {{74, 21}, {Inherited, Inherited}},
CellBaseline -> Baseline, LineSpacing -> {1, 1},
MenuSortingValue -> 1778, FontFamily -> "Times", FontSize -> 12],
Cell[
StyleData[
"SubitemNumbered", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData[
"SubitemNumbered", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData[
"SubitemNumbered", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
Cell[
CellGroupData[{
Cell[
StyleData[
"ItemParagraph", StyleDefinitions -> StyleData["Item"]],
CellDingbat -> None, CounterIncrements -> "ItemParagraph",
MenuSortingValue -> 1779],
Cell[
StyleData[
"ItemParagraph", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData[
"ItemParagraph", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["ItemParagraph", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
Cell[
CellGroupData[{
Cell[
StyleData[
"SubitemParagraph", StyleDefinitions -> StyleData["Subitem"]],
CellDingbat -> None, CounterIncrements -> "SubitemParagraph",
MenuSortingValue -> 1800],
Cell[
StyleData[
"SubitemParagraph", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData[
"SubitemParagraph", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData[
"SubitemParagraph", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["Reference"], CellDingbat -> Cell[
TextData[{"[",
CounterBox["Reference"], "]"}], "SR",
CellSize -> {25, Inherited}, TextAlignment -> Right],
CellMargins -> {{47, 21}, {Inherited, Inherited}},
CellFrameLabels -> {{None, None}, {None, None}},
LineSpacing -> {1, 1}, CounterIncrements -> "Reference",
MenuSortingValue -> 1870, FontFamily -> "Helvetica", FontSize ->
10],
Cell[
StyleData["Reference", "Presentation", StyleDefinitions -> None],
CellMargins -> {{59, 21}, {Inherited, Inherited}}],
Cell[
StyleData["Reference", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["Reference", "Printout", StyleDefinitions -> None],
CellMargins -> {{45, 21}, {Inherited, Inherited}},
TextJustification -> 1.]}, Closed]],
Cell[
CellGroupData[{
Cell[
StyleData[
"DOIReference", StyleDefinitions -> StyleData["Reference"]],
CellDingbat -> None, CellMargins -> {{21, 21}, {Inherited, 10}},
CounterIncrements -> "DOIReference", FontSize -> 9],
Cell[
StyleData["DOIReference", "Presentation"],
CellMargins -> {{21, 21}, {Inherited, 10}}],
Cell[
StyleData["DOIReference", "Printout"],
CellMargins -> {{21, 21}, {Inherited, 10}}]}, Closed]],
Cell[
StyleData[
"DOIReference1", StyleDefinitions -> StyleData["DOIReference"]],
CellChangeTimes -> {{3.500647185533589*^9, 3.500647185556703*^9}}],
Cell[
StyleData[
"DOIReference10", StyleDefinitions -> StyleData["DOIReference"]],
CellChangeTimes -> {{3.500647185533589*^9,
3.5006471855594378`*^9}}]}, 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[
StyleData["OnlineHeader"], ShowCellBracket -> False, ShowSelection ->
True, CellMargins -> {{0, 0}, {0, 0}},
CellGroupingRules -> {"TitleGrouping", 30}, PageBreakBelow -> False,
CellFrameMargins -> {{21, 21}, {2, 8}}, Hyphenation -> False,
LineSpacing -> {1, 1}, StyleMenuListing -> None, FontFamily ->
"Times", FontSize -> 14, FontWeight -> "Plain", FontSlant ->
"Italic", FontColor ->
RGBColor[
0.9864194705119402, 0.9585259784847792, 0.7428549629968719],
Background -> RGBColor[0, 0, 0]],
Cell[
"ColumnTitle is a renaming of PreTitle.", "Text",
CellChangeTimes -> {{3.4810538075243597`*^9,
3.481053831482122*^9}}],
Cell[
CellGroupData[{
Cell[
StyleData["ColumnTitle"], ShowCellBracket -> False,
CellMargins -> {{21, 21}, {14, 4}},
CellGroupingRules -> {"TitleGrouping", 0}, PageBreakBelow ->
False, CellFrameMargins -> {{55, 4}, {8, 20}}, Hyphenation ->
False, LineSpacing -> {1, 1}, StyleMenuListing -> None,
FontFamily -> "Helvetica", FontSize -> 13, FontWeight ->
"Regular"],
Cell[
StyleData[
"ColumnTitle", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData["ColumnTitle", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["ColumnTitle", "Printout", StyleDefinitions -> 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.", "Text"],
Cell[
CellGroupData[{
Cell[
StyleData["Author"], ShowCellBracket -> False, ShowSelection ->
True, CellMargins -> {{21, 21}, {4, 6}}, CellGroupingRules ->
"NormalGrouping", PageBreakBelow -> False, Hyphenation -> False,
LineSpacing -> {1, 1}, ParagraphSpacing -> {0, 0},
MenuSortingValue -> 1155, FontFamily -> "Helvetica", FontSize ->
14, FontWeight -> "Bold"],
Cell[
StyleData["Author", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData["Author", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["Author", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["Abstract"], ShowCellBracket -> False, ShowSelection ->
True, CellMargins -> {{21, 83}, {4, 25}}, Hyphenation -> False,
LineSpacing -> {1, 3}, MenuSortingValue -> 1156, FontFamily ->
"Helvetica", FontSize -> 13, FontWeight -> "Regular", FontSlant ->
"Plain"],
Cell[
StyleData["Abstract", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData["Abstract", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["Abstract", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["Question"], CellFrame -> {{0, 0}, {0, 2}},
CellDingbat -> "Q:", CellMargins -> {{45, 45}, {8, 8}},
CellFrameMargins -> {{0, 0}, {2, 4}}, LineSpacing -> {1, 1},
MenuSortingValue -> 1820, FontFamily -> "Times", FontSize -> 14,
FontWeight -> "Bold", FontColor ->
RGBColor[0.115511, 0.321752, 0.580118]],
Cell[
StyleData["Question", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData["Question", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["Question", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["Answer"], CellDingbat ->
Cell["A:", FontWeight -> "Bold"],
CellMargins -> {{45, 45}, {Inherited, Inherited}},
LineSpacing -> {1, 1}, CounterIncrements -> "Text",
MenuSortingValue -> 1860, FontFamily -> "Times", FontSize -> 12],
Cell[
StyleData["Answer", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData["Answer", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["Answer", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["TextAboutAuthor"], CellMargins -> {{21, 21}, {2, 5}},
LineSpacing -> {1, 1}, CounterIncrements -> "Text",
MenuSortingValue -> 1880, FontSize -> 12],
Cell[
StyleData[
"TextAboutAuthor", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData[
"TextAboutAuthor", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData[
"TextAboutAuthor", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["SectionAboutAuthor"],
CellMargins -> {{21, 21}, {10, 30}},
CellGroupingRules -> {"SectionGrouping", 40}, PageBreakBelow ->
False, CellFrameMargins -> 4, Hyphenation -> False,
LineSpacing -> {1, 1}, MenuSortingValue -> 1875, FontFamily ->
"Helvetica", FontSize -> 12, FontWeight -> "Bold"],
Cell[
StyleData[
"SectionAboutAuthor", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData[
"SectionAboutAuthor", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData[
"SectionAboutAuthor", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
"Styles for algorithm listings, based on BulletedList, indent an \
additional 12 points for each level, dingbat also changes", "Text"],
Cell[
CellGroupData[{
Cell[
StyleData["Algorithm1"], CellDingbat -> "\[FilledSmallCircle]",
CellMargins -> {{58, 21}, {Inherited, Inherited}},
LineSpacing -> {1, 1}, FontFamily -> "Times", FontSize -> 12],
Cell[
StyleData[
"Algorithm1", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData["Algorithm1", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["Algorithm1", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["Algorithm2"], CellDingbat -> "\[Dash]",
CellMargins -> {{74, 21}, {Inherited, Inherited}},
LineSpacing -> {1, 1}, FontFamily -> "Times", FontSize -> 12],
Cell[
StyleData[
"Algorithm2", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData["Algorithm2", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["Algorithm2", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["Algorithm3"], CellDingbat -> "\[Star]",
CellMargins -> {{86, 21}, {Inherited, Inherited}},
LineSpacing -> {1, 1}, FontFamily -> "Times", FontSize -> 12],
Cell[
StyleData[
"Algorithm3", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData["Algorithm3", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["Algorithm3", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["Algorithm4"], CellDingbat -> "\[CenterDot]",
CellMargins -> {{98, 21}, {Inherited, Inherited}},
LineSpacing -> {1, 1}, FontFamily -> "Times", FontSize -> 12],
Cell[
StyleData[
"Algorithm4", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData["Algorithm4", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["Algorithm4", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]]}, Closed]],
Cell[
CellGroupData[{
Cell[
"Enunciations", "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["Theorem", "Subsubsection", MenuSortingValue -> 1871],
Cell[
CellGroupData[{
Cell[
StyleData["Theorem"], CellMargins -> {{21, 21}, {4, 4}},
CellGroupingRules -> "GraphicsGrouping",
LineSpacing -> {1, 1}, ParagraphIndent -> 24,
CounterIncrements -> "Theorem",
CounterAssignments -> {{"EnunciationItem1Numbered", 0}, {
"Item1Numbered", 0}}, MenuSortingValue -> 1871, FontSlant ->
"Italic"],
Cell[
StyleData[
"Theorem", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData["Theorem", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["Theorem", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["TheoremLabel"], StyleMenuListing -> None,
FontWeight -> "Bold", FontSlant -> "Plain"],
Cell[
StyleData[
"TheoremLabel", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData[
"TheoremLabel", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData[
"TheoremLabel", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["TheoremContinuation"],
CellMargins -> {{21, 21}, {4, 4}}, CellGroupingRules ->
"GraphicsGrouping", LineSpacing -> {1, 1}, CounterIncrements ->
"TheoremContinuation", MenuSortingValue -> 1872, FontSlant ->
"Italic"],
Cell[
StyleData[
"TheoremContinuation", "Presentation", StyleDefinitions ->
None]],
Cell[
StyleData[
"TheoremContinuation", "SlideShow", StyleDefinitions ->
None]],
Cell[
StyleData[
"TheoremContinuation", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]]}, Closed]],
Cell[
CellGroupData[{
Cell["Example", "Subsubsection", StyleMenuListing -> None],
Cell[
CellGroupData[{
Cell[
StyleData["Example"], CellMargins -> {{21, 21}, {4, 4}},
CellGroupingRules -> "GraphicsGrouping",
LineSpacing -> {1, 1}, ParagraphIndent -> 24,
CounterIncrements -> "Example",
CounterAssignments -> {{"EnunciationItem1Numbered", 0}, {
"Item1Numbered", 0}}, MenuSortingValue -> 1873, FontSlant ->
"Plain"],
Cell[
StyleData[
"Example", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData["Example", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["Example", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["ExampleLabel"], StyleMenuListing -> None,
FontWeight -> "Bold", FontSlant -> "Italic"],
Cell[
StyleData[
"ExampleLabel", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData[
"ExampleLabel", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData[
"ExampleLabel", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["ExampleContinuation"],
CellMargins -> {{21, 21}, {4, 4}}, CellGroupingRules ->
"GraphicsGrouping", LineSpacing -> {1, 1}, CounterIncrements ->
"ExampleContinuation", MenuSortingValue -> 1874],
Cell[
StyleData[
"ExampleContinuation", "Presentation", StyleDefinitions ->
None]],
Cell[
StyleData[
"ExampleContinuation", "SlideShow", StyleDefinitions ->
None]],
Cell[
StyleData[
"ExampleContinuation", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]]}, Closed]],
Cell[
CellGroupData[{
Cell["Proof", "Subsubsection", StyleMenuListing -> None],
Cell[
CellGroupData[{
Cell[
StyleData["Proof"], CellMargins -> {{21, 21}, {4, 4}},
CellGroupingRules -> "GraphicsGrouping",
LineSpacing -> {1, 1}, ParagraphIndent -> 24,
CounterAssignments -> {{"EnunciationItem1Numbered", 0}, {
"Item1Numbered", 0}}, MenuSortingValue -> 1875, FontSlant ->
"Plain"],
Cell[
StyleData["Proof", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData["Proof", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["Proof", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["ProofLabel"], StyleMenuListing -> None, FontWeight ->
"Bold", FontSlant -> "Italic"],
Cell[
StyleData[
"ProofLabel", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData[
"ProofLabel", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData[
"ProofLabel", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["ProofContinuation"],
CellMargins -> {{21, 21}, {4, 4}}, CellGroupingRules ->
"GraphicsGrouping", LineSpacing -> {1, 1}, CounterIncrements ->
"ProofContinuation"],
Cell[
StyleData[
"ProofContinuation", "Presentation", StyleDefinitions ->
None]],
Cell[
StyleData[
"ProofContinuation", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData[
"ProofContinuation", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["QED"], CellMargins -> {{21, 21}, {8, 0}},
StyleMenuListing -> None, FontSize -> 14],
Cell[
StyleData["QED", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData["QED", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["QED", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]]}, Closed]],
Cell[
CellGroupData[{
Cell["Corollary", "Subsubsection", StyleMenuListing -> None],
Cell[
CellGroupData[{
Cell[
StyleData["Corollary"], CellMargins -> {{21, 21}, {4, 4}},
CellGroupingRules -> "GraphicsGrouping", Hyphenation -> True,
LineSpacing -> {1, 1}, ParagraphIndent -> 24,
CounterIncrements -> "Corollary",
CounterAssignments -> {{"EnunciationItem1Numbered", 0}, {
"Item1Numbered", 0}}, StyleMenuListing -> None, FontSlant ->
"Italic"],
Cell[
StyleData[
"Corollary", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData[
"Corollary", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["Corollary", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["CorollaryLabel"], StyleMenuListing -> None,
FontWeight -> "Bold", FontSlant -> "Plain"],
Cell[
StyleData[
"CorollaryLabel", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData[
"CorollaryLabel", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData[
"CorollaryLabel", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["CorollaryContinuation"],
CellMargins -> {{21, 21}, {4, 4}}, CellGroupingRules ->
"GraphicsGrouping", Hyphenation -> True,
LineSpacing -> {1, 1}, CounterIncrements ->
"CorollaryContinuation", StyleMenuListing -> None, FontSlant ->
"Italic"],
Cell[
StyleData[
"CorollaryContinuation", "Presentation", StyleDefinitions ->
None]],
Cell[
StyleData[
"CorollaryContinuation", "SlideShow", StyleDefinitions ->
None]],
Cell[
StyleData[
"CorollaryContinuation", "Printout", StyleDefinitions ->
None], TextJustification -> 1.]}, Closed]]}, Closed]],
Cell[
CellGroupData[{
Cell["Lemma", "Subsubsection", StyleMenuListing -> None],
Cell[
CellGroupData[{
Cell[
StyleData["Lemma"], CellMargins -> {{21, 21}, {4, 4}},
CellGroupingRules -> "GraphicsGrouping", Hyphenation -> True,
LineSpacing -> {1, 1}, ParagraphIndent -> 24,
CounterIncrements -> "Lemma",
CounterAssignments -> {{"EnunciationItem1Numbered", 0}, {
"Item1Numbered", 0}}, StyleMenuListing -> None, FontSlant ->
"Italic"],
Cell[
StyleData["Lemma", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData["Lemma", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["Lemma", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["LemmaLabel"], StyleMenuListing -> None, FontWeight ->
"Bold", FontSlant -> "Plain"],
Cell[
StyleData[
"LemmaLabel", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData[
"LemmaLabel", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData[
"LemmaLabel", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["LemmaContinuation"],
CellMargins -> {{21, 21}, {4, 4}}, CellGroupingRules ->
"GraphicsGrouping", Hyphenation -> True,
LineSpacing -> {1, 1}, CounterIncrements ->
"LemmaContinuation", StyleMenuListing -> None, FontSlant ->
"Italic"],
Cell[
StyleData[
"LemmaContinuation", "Presentation", StyleDefinitions ->
None]],
Cell[
StyleData[
"LemmaContinuation", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData[
"LemmaContinuation", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]]}, Closed]],
Cell[
CellGroupData[{
Cell["Definition", "Subsubsection", StyleMenuListing -> None],
Cell[
CellGroupData[{
Cell[
StyleData["Definition"], CellMargins -> {{21, 21}, {4, 4}},
CellGroupingRules -> "GraphicsGrouping", Hyphenation -> True,
LineSpacing -> {1, 1}, ParagraphIndent -> 24,
CounterIncrements -> "Definition",
CounterAssignments -> {{"EnunciationItem1Numbered", 0}, {
"Item1Numbered", 0}}, StyleMenuListing -> None, FontSlant ->
"Italic"],
Cell[
StyleData[
"Definition", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData[
"Definition", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["Definition", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["DefinitionLabel"], StyleMenuListing -> None,
FontWeight -> "Bold", FontSlant -> "Plain"],
Cell[
StyleData[
"DefinitionLabel", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData[
"DefinitionLabel", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData[
"DefinitionLabel", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["DefinitionContinuation"],
CellMargins -> {{21, 21}, {4, 4}}, CellGroupingRules ->
"GraphicsGrouping", Hyphenation -> True,
LineSpacing -> {1, 1}, CounterIncrements ->
"DefinitionContinuation", StyleMenuListing -> None, FontSlant ->
"Italic"],
Cell[
StyleData[
"DefinitionContinuation", "Presentation", StyleDefinitions ->
None]],
Cell[
StyleData[
"DefinitionContinuation", "SlideShow", StyleDefinitions ->
None]],
Cell[
StyleData[
"DefinitionContinuation", "Printout", StyleDefinitions ->
None], TextJustification -> 1.]}, Closed]]}, Closed]],
Cell[
CellGroupData[{
Cell["Proposition", "Subsubsection", StyleMenuListing -> None],
Cell[
CellGroupData[{
Cell[
StyleData["Proposition"], CellMargins -> {{21, 21}, {4, 4}},
CellGroupingRules -> "GraphicsGrouping", Hyphenation -> True,
LineSpacing -> {1, 1}, ParagraphIndent -> 24,
CounterIncrements -> "Proposition",
CounterAssignments -> {{"EnunciationItem1Numbered", 0}, {
"Item1Numbered", 0}}, StyleMenuListing -> None, FontSlant ->
"Italic"],
Cell[
StyleData[
"Proposition", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData[
"Proposition", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData[
"Proposition", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["PropositionLabel"], StyleMenuListing -> None,
FontWeight -> "Bold", FontSlant -> "Plain"],
Cell[
StyleData[
"PropositionLabel", "Presentation", StyleDefinitions ->
None]],
Cell[
StyleData[
"PropositionLabel", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData[
"PropositionLabel", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["PropositionContinuation"],
CellMargins -> {{21, 21}, {4, 4}}, CellGroupingRules ->
"GraphicsGrouping", Hyphenation -> True,
LineSpacing -> {1, 1}, CounterIncrements ->
"PropositionContinuation", StyleMenuListing -> None,
FontSlant -> "Italic"],
Cell[
StyleData[
"PropositionContinuation", "Presentation", StyleDefinitions ->
None]],
Cell[
StyleData[
"PropositionContinuation", "SlideShow", StyleDefinitions ->
None]],
Cell[
StyleData[
"PropositionContinuation", "Printout", StyleDefinitions ->
None], TextJustification -> 1.]}, Closed]]}, Closed]],
Cell[
CellGroupData[{
Cell["Conjecture", "Subsubsection", StyleMenuListing -> None],
Cell[
CellGroupData[{
Cell[
StyleData["Conjecture"], CellMargins -> {{21, 21}, {4, 4}},
CellGroupingRules -> "GraphicsGrouping", Hyphenation -> True,
LineSpacing -> {1, 1}, ParagraphIndent -> 24,
CounterIncrements -> "Conjecture",
CounterAssignments -> {{"EnunciationItem1Numbered", 0}, {
"Item1Numbered", 0}}, StyleMenuListing -> None, FontSlant ->
"Italic"],
Cell[
StyleData[
"Conjecture", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData[
"Conjecture", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["Conjecture", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["ConjectureLabel"], StyleMenuListing -> None,
FontWeight -> "Bold", FontSlant -> "Plain"],
Cell[
StyleData[
"ConjectureLabel", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData[
"ConjectureLabel", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData[
"ConjectureLabel", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["ConjectureContinuation"],
CellMargins -> {{21, 21}, {4, 4}}, CellGroupingRules ->
"GraphicsGrouping", Hyphenation -> True,
LineSpacing -> {1, 1}, CounterIncrements ->
"ConjectureContinuation", StyleMenuListing -> None, FontSlant ->
"Italic"],
Cell[
StyleData[
"ConjectureContinuation", "Presentation", StyleDefinitions ->
None]],
Cell[
StyleData[
"ConjectureContinuation", "SlideShow", StyleDefinitions ->
None]],
Cell[
StyleData[
"ConjectureContinuation", "Printout", StyleDefinitions ->
None], TextJustification -> 1.]}, Closed]]}, Closed]],
Cell[
CellGroupData[{
Cell["Axiom", "Subsubsection", StyleMenuListing -> None],
Cell[
CellGroupData[{
Cell[
StyleData["Axiom"], CellMargins -> {{21, 21}, {4, 4}},
CellGroupingRules -> "GraphicsGrouping", Hyphenation -> True,
LineSpacing -> {1, 1}, ParagraphIndent -> 24,
CounterIncrements -> "Axiom",
CounterAssignments -> {{"EnunciationItem1Numbered", 0}, {
"Item1Numbered", 0}}, StyleMenuListing -> None, FontSlant ->
"Italic"],
Cell[
StyleData["Axiom", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData["Axiom", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["Axiom", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["AxiomLabel"], StyleMenuListing -> None, FontWeight ->
"Bold", FontSlant -> "Plain"],
Cell[
StyleData[
"AxiomLabel", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData[
"AxiomLabel", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData[
"AxiomLabel", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["AxiomContinuation"],
CellMargins -> {{21, 21}, {4, 4}}, CellGroupingRules ->
"GraphicsGrouping", Hyphenation -> True,
LineSpacing -> {1, 1}, CounterIncrements ->
"AxiomContinuation", StyleMenuListing -> None, FontSlant ->
"Italic"],
Cell[
StyleData[
"AxiomContinuation", "Presentation", StyleDefinitions ->
None]],
Cell[
StyleData[
"AxiomContinuation", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData[
"AxiomContinuation", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]]}, Closed]],
Cell[
CellGroupData[{
Cell["Rule", "Subsubsection", StyleMenuListing -> None],
Cell[
CellGroupData[{
Cell[
StyleData["Rule"], CellMargins -> {{21, 21}, {4, 4}},
CellGroupingRules -> "GraphicsGrouping", Hyphenation -> True,
LineSpacing -> {1, 1}, ParagraphIndent -> 24,
CounterIncrements -> "Rule",
CounterAssignments -> {{"EnunciationItem1Numbered", 0}, {
"Item1Numbered", 0}}, StyleMenuListing -> None, FontSlant ->
"Italic"],
Cell[
StyleData["Rule", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData["Rule", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["Rule", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["RuleLabel"], StyleMenuListing -> None, FontWeight ->
"Bold", FontSlant -> "Plain"],
Cell[
StyleData[
"RuleLabel", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData[
"RuleLabel", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData[
"RuleLabel", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["RuleContinuation"],
CellMargins -> {{21, 21}, {4, 4}}, CellGroupingRules ->
"GraphicsGrouping", Hyphenation -> True,
LineSpacing -> {1, 1}, CounterIncrements ->
"RuleContinuation", StyleMenuListing -> None, FontSlant ->
"Italic"],
Cell[
StyleData[
"RuleContinuation", "Presentation", StyleDefinitions ->
None]],
Cell[
StyleData[
"RuleContinuation", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData[
"RuleContinuation", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]]}, Closed]],
Cell[
CellGroupData[{
Cell["Remark", "Subsubsection", StyleMenuListing -> None],
Cell[
CellGroupData[{
Cell[
StyleData["Remark"], CellMargins -> {{21, 21}, {4, 4}},
CellGroupingRules -> "GraphicsGrouping", Hyphenation -> True,
LineSpacing -> {1, 1}, ParagraphIndent -> 24,
CounterIncrements -> "Remark",
CounterAssignments -> {{"EnunciationItem1Numbered", 0}, {
"Item1Numbered", 0}}, StyleMenuListing -> None, FontSlant ->
"Plain"],
Cell[
StyleData[
"Remark", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData["Remark", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["Remark", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["RemarkLabel"], StyleMenuListing -> None,
FontWeight -> "Bold", FontSlant -> "Italic"],
Cell[
StyleData[
"RemarkLabel", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData[
"RemarkLabel", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData[
"RemarkLabel", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["RemarkContinuation"],
CellMargins -> {{21, 21}, {4, 4}}, CellGroupingRules ->
"GraphicsGrouping", Hyphenation -> True,
LineSpacing -> {1, 1}, CounterIncrements ->
"RemarkContinuation", StyleMenuListing -> None],
Cell[
StyleData[
"RemarkContinuation", "Presentation", StyleDefinitions ->
None]],
Cell[
StyleData[
"RemarkContinuation", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData[
"RemarkContinuation", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]]}, Closed]],
Cell[
CellGroupData[{
Cell["Solution", "Subsubsection", StyleMenuListing -> None],
Cell[
CellGroupData[{
Cell[
StyleData["Solution"], CellMargins -> {{21, 21}, {4, 4}},
CellGroupingRules -> "GraphicsGrouping", Hyphenation -> True,
LineSpacing -> {1, 1}, ParagraphIndent -> 24,
CounterAssignments -> {{"EnunciationItem1Numbered", 0}, {
"Item1Numbered", 0}}, StyleMenuListing -> None, FontSlant ->
"Plain"],
Cell[
StyleData[
"Solution", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData["Solution", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["Solution", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["SolutionLabel"], StyleMenuListing -> None,
FontWeight -> "Bold", FontSlant -> "Italic"],
Cell[
StyleData[
"SolutionLabel", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData[
"SolutionLabel", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData[
"SolutionLabel", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["SolutionContinuation"],
CellMargins -> {{21, 21}, {4, 4}}, CellGroupingRules ->
"GraphicsGrouping", Hyphenation -> True,
LineSpacing -> {1, 1}, CounterIncrements ->
"SolutionContinuation", StyleMenuListing -> None],
Cell[
StyleData[
"SolutionContinuation", "Presentation", StyleDefinitions ->
None]],
Cell[
StyleData[
"SolutionContinuation", "SlideShow", StyleDefinitions ->
None]],
Cell[
StyleData[
"SolutionContinuation", "Printout", StyleDefinitions -> None],
TextJustification -> 1.]}, Closed]]}, 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 -> {{39, 21}, {4, 4}},
CellHorizontalScrolling -> True, PageBreakAbove -> False,
DefaultFormatType -> TraditionalForm, LineSpacing -> {1, 1},
ScriptLevel -> 0, SingleLetterItalics -> True, SpanMaxSize ->
DirectedInfinity[1], FormatTypeAutoConvert -> False, FontFamily ->
"Times", FontSize -> 12,
UnderoverscriptBoxOptions -> {LimitsPositioning -> True},
GridBoxOptions -> {AllowScriptLevelChange -> False}],
Cell[
StyleData[
"DisplayFormula", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData[
"DisplayFormula", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData[
"DisplayFormula", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["Program"], CellMargins -> {{21, 21}, {8, 10}},
LineSpacing -> {1, 1}, MenuSortingValue -> 1455, FontFamily ->
"Courier", FontSize -> 12, FontWeight -> "Plain"],
Cell[
StyleData["Program", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData["Program", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["Program", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["Table"], CellMargins -> {{21, 21}, {8, 10}},
DefaultFormatType -> TraditionalForm, TextAlignment -> Center,
LineSpacing -> {1, 1}, FontFamily -> "Times", FontSize -> 12,
Background -> GrayLevel[0.899001]],
Cell[
StyleData["Table", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData["Table", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["Table", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
"PseudoCellExpression cell style to be used when displaying \
unformatted box expressions. ", "Text"],
Cell[
CellGroupData[{
Cell[
StyleData["PseudoCellExpression"],
CellFrame -> {{0, 0}, {0, 0.5}},
CellMargins -> {{21, 21}, {Inherited, Inherited}},
CellFrameMargins -> 2, LineSpacing -> {1, 1}, FontFamily ->
"Courier", FontSize -> 12],
Cell[
StyleData[
"PseudoCellExpression", "Presentation", StyleDefinitions ->
None]],
Cell[
StyleData[
"PseudoCellExpression", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData[
"PseudoCellExpression", "Printout", StyleDefinitions -> None]]},
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 -> "Times", FontSize -> 9,
FontWeight -> "Bold", FontSlant -> "Plain"],
Cell[
StyleData["Footer"], CellMargins -> {{0, 0}, {0, 4}},
StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 7,
FontSlant -> "Oblique"]}, 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,
FontVariations -> {"Underline" -> True}, FontColor ->
RGBColor[
0.9230792706187534, 0.3988097962920577, 0.1662928206301976],
ButtonBoxOptions -> {
Active -> True, ButtonFunction :> (FrontEndExecute[{
FrontEnd`NotebookLocate[#2]}]& ), ButtonNote ->
ButtonData}],
Cell[
StyleData[
"Hyperlink", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData["Hyperlink", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["Hyperlink", "Printout", StyleDefinitions -> None],
FontVariations -> {"Underline" -> False}, 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,
FontVariations -> {"Underline" -> True}, FontColor ->
RGBColor[
0.9230792706187534, 0.3988097962920577, 0.1662928206301976],
ButtonBoxOptions -> {
Active -> True, Appearance -> {Automatic, None},
ButtonFunction :> (FrontEndExecute[{
FrontEnd`HelpBrowserLookup["MainBook", #]}]& )}],
Cell[
StyleData[
"MainBookLink", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData[
"MainBookLink", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData[
"MainBookLink", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["AddOnsLink"], StyleMenuListing -> None,
ButtonStyleMenuListing -> Automatic,
FontVariations -> {"Underline" -> True}, FontColor ->
RGBColor[
0.9230792706187534, 0.3988097962920577, 0.1662928206301976],
ButtonBoxOptions -> {
Active -> True, Appearance -> {Automatic, None},
ButtonFunction :> (FrontEndExecute[{
FrontEnd`HelpBrowserLookup["AddOns", #]}]& )}],
Cell[
StyleData[
"AddOnsLink", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData["AddOnsLink", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["AddOnsLink", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["RefGuideLink"], StyleMenuListing -> None,
ButtonStyleMenuListing -> Automatic,
FontVariations -> {"Underline" -> True}, FontColor ->
RGBColor[
0.9230792706187534, 0.3988097962920577, 0.1662928206301976],
ButtonBoxOptions -> {
Active -> True, Appearance -> {Automatic, None},
ButtonFunction :> (FrontEndExecute[{
FrontEnd`HelpBrowserLookup["RefGuide", #]}]& )}],
Cell[
StyleData[
"RefGuideLink", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData[
"RefGuideLink", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData[
"RefGuideLink", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["GettingStartedLink"], StyleMenuListing -> None,
ButtonStyleMenuListing -> Automatic,
FontVariations -> {"Underline" -> True}, FontColor ->
RGBColor[
0.9230792706187534, 0.3988097962920577, 0.1662928206301976],
ButtonBoxOptions -> {
Active -> True, Appearance -> {Automatic, None},
ButtonFunction :> (FrontEndExecute[{
FrontEnd`HelpBrowserLookup["GettingStarted", #]}]& )}],
Cell[
StyleData[
"GettingStartedLink", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData[
"GettingStartedLink", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData[
"GettingStartedLink", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["OtherInformationLink"], StyleMenuListing -> None,
ButtonStyleMenuListing -> Automatic,
FontVariations -> {"Underline" -> True}, FontColor ->
RGBColor[
0.9230792706187534, 0.3988097962920577, 0.1662928206301976],
ButtonBoxOptions -> {
Active -> True, Appearance -> {Automatic, None},
ButtonFunction :> (FrontEndExecute[{
FrontEnd`HelpBrowserLookup["OtherInformation", #]}]& )}],
Cell[
StyleData[
"OtherInformationLink", "Presentation", StyleDefinitions ->
None]],
Cell[
StyleData[
"OtherInformationLink", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData[
"OtherInformationLink", "Printout", StyleDefinitions -> None]]},
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[
CellGroupData[{
Cell[
StyleData["CellExpression"], CellMargins -> {{54, 24}, {2, 4}},
ShowCellLabel -> False, ShowSpecialCharacters -> False,
AllowInlineCells -> False, Hyphenation -> False,
LineSpacing -> {1, 1}, AutoItalicWords -> {}, StyleMenuListing ->
None, FontFamily -> "Courier", FontSize -> 12, Background ->
GrayLevel[1]],
Cell[
StyleData[
"CellExpression", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData[
"CellExpression", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData[
"CellExpression", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["InputForm"], PageWidth -> WindowWidth,
InputAutoReplacements -> {}, AllowInlineCells -> False,
Hyphenation -> False, AutoSpacing -> False, NumberMarks -> True,
AutoNumberFormatting -> False, StyleMenuListing -> None,
FontFamily -> "Courier"],
Cell[
StyleData[
"InputForm", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData["InputForm", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["InputForm", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["OutputForm"], StyleMenuListing -> None, FontFamily ->
"Courier"],
Cell[
StyleData[
"OutputForm", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData["OutputForm", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["OutputForm", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["StandardForm"],
InputAutoReplacements -> {
"->" -> "\[Rule]", ":>" -> "\[RuleDelayed]", "<=" ->
"\[LessEqual]", ">=" -> "\[GreaterEqual]", "!=" ->
"\[NotEqual]", "==" -> "\[Equal]", $CellContext`ParentList},
"TwoByteSyntaxCharacterAutoReplacement" -> True,
SingleLetterItalics -> False, StyleMenuListing -> None,
FontFamily -> "Courier"],
Cell[
StyleData[
"StandardForm", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData[
"StandardForm", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData[
"StandardForm", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["TraditionalForm"], TextClipboardType -> "PlainText",
InputAutoReplacements -> {
"->" -> "\[Rule]", ":>" -> "\[RuleDelayed]", "<=" ->
"\[LessEqual]", ">=" -> "\[GreaterEqual]", "!=" ->
"\[NotEqual]", "==" -> "\[Equal]", $CellContext`ParentList},
ShowSyntaxStyles -> False,
"TwoByteSyntaxCharacterAutoReplacement" -> True,
SingleLetterItalics -> True, TraditionalFunctionNotation -> True,
DelimiterMatching -> None, ZeroWidthTimes -> False,
StyleMenuListing -> None],
Cell[
StyleData[
"TraditionalForm", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData[
"TraditionalForm", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData[
"TraditionalForm", "Printout", StyleDefinitions -> None]]},
Closed]],
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[
CellGroupData[{
Cell[
StyleData["InlineCell"], TextAlignment -> Left, ScriptLevel -> 1,
StyleMenuListing -> None],
Cell[
StyleData[
"InlineCell", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData["InlineCell", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData["InlineCell", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["InlineCellEditing"], StyleMenuListing -> None,
Background -> RGBColor[1, 0.749996, 0.8]],
Cell[
StyleData[
"InlineCellEditing", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData[
"InlineCellEditing", "SlideShow", StyleDefinitions -> None]],
Cell[
StyleData[
"InlineCellEditing", "Printout", StyleDefinitions -> None]]},
Closed]]}, 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[
StyleData["RM"], FontWeight -> "Plain", FontSlant -> "Plain"],
Cell[
StyleData["MR"],
HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"},
StyleMenuListing -> None, FontFamily -> "Courier", FontWeight ->
"Plain", FontSlant -> "Plain"],
Cell[
StyleData["MO"],
HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"},
StyleMenuListing -> None, FontFamily -> "Courier", FontWeight ->
"Plain", FontSlant -> "Oblique"],
Cell[
StyleData["MB"],
HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"},
StyleMenuListing -> None, FontFamily -> "Courier", FontWeight ->
"Bold", FontSlant -> "Plain"],
Cell[
StyleData["MBO"],
HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"},
StyleMenuListing -> None, FontFamily -> "Courier", FontWeight ->
"Bold", FontSlant -> "Oblique"],
Cell[
StyleData["AboutAuthorR"], FontFamily -> "Times", FontWeight ->
"Plain", FontSlant -> "Plain"],
Cell[
StyleData["AboutAuthorI"], FontFamily -> "Times", FontWeight ->
"Plain", FontSlant -> "Italic"],
Cell[
StyleData["AboutAuthorB"], FontFamily -> "Times", FontWeight ->
"Bold", FontSlant -> "Plain"],
Cell[
StyleData["AboutAuthorBI"], FontFamily -> "Times", FontWeight ->
"Bold", FontSlant -> "Italic"],
Cell[
CellGroupData[{
Cell[
StyleData["MCode"], "TwoByteSyntaxCharacterAutoReplacement" ->
True,
HyphenationOptions -> {
"HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory ->
"Formula", AutoSpacing -> True, ScriptLevel -> 1,
SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing ->
None, FontFamily -> "Courier",
ButtonBoxOptions -> {Appearance -> {Automatic, None}},
FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}},
GridBoxOptions -> {
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "ColumnsIndexed" -> {},
"Rows" -> {{1.}}, "RowsIndexed" -> {}}}],
Cell[
StyleData["MCode", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["Math"], DefaultFormatType -> "DefaultTextFormatType",
DefaultInlineFormatType -> "TraditionalForm", LanguageCategory ->
"Formula", AutoSpacing -> True, ScriptLevel -> 1,
AutoMultiplicationSymbol -> False, SingleLetterItalics -> True,
SpanMaxSize -> Infinity, StyleMenuListing -> None, FontFamily ->
"Times", ButtonBoxOptions -> {Appearance -> {Automatic, None}},
GridBoxOptions -> {
BaseStyle -> {FontFamily -> "Times"}, GridBoxDividers -> {},
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "ColumnsIndexed" -> {},
"Rows" -> {{1.}}, "RowsIndexed" -> {}},
GridBoxSpacings -> {}}],
Cell[
StyleData["Math", "Printout", StyleDefinitions -> None]]},
Closed]]}, Closed]],
Cell[
CellGroupData[{
Cell[
"Editorial", "Section", CellFrame -> False, CellDingbat -> None,
ShowCellBracket -> True, CellMargins -> {{0, 0}, {10, 40}},
CellFrameMargins -> {{20, 4}, {8, 8}},
CellChangeTimes -> {{3.481313643935946*^9, 3.481313646546287*^9}},
FontColor -> GrayLevel[1], Background ->
RGBColor[0.269902, 0.558434, 0.715618]],
Cell[
CellGroupData[{
Cell[
StyleData["EditorialComment"], CellFrame -> False, CellDingbat ->
"\[FilledCircle]",
CellMargins -> {{36, 25}, {Inherited, Inherited}},
LineSpacing -> {1, 1}, MenuSortingValue -> None, FontColor ->
RGBColor[
0.9230792706187534, 0.3988097962920577, 0.1662928206301976],
Background -> GrayLevel[1]],
Cell[
StyleData[
"EditorialComment", "Presentation", StyleDefinitions -> None]],
Cell[
StyleData[
"EditorialComment", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["TextAnnotation"], CellFrame -> 1, CellFrameColor ->
RGBColor[0.8, 0, 0], AutoSpacing -> False, LineIndent ->
Automatic, FontSize -> 11, FontWeight -> "Plain", FontColor ->
RGBColor[0.4, 0.2, 0.2], Background -> GrayLevel[0.999]],
Cell[
StyleData[
"TextAnnotation", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["TextAnnotationButton"], Editable -> False, FontFamily ->
"Verdana", FontSize -> 9,
ButtonBoxOptions -> {
Active -> True, Appearance -> "DialogBox",
ButtonFunction :> (Needs["DocuTools`"];
DocuTools`GenerateAnnotationDialog[]), ButtonMargins -> 1,
Evaluator -> Automatic, Method -> "Queued"}],
Cell[
StyleData[
"TextAnnotationButton", "Printout", StyleDefinitions -> None]]},
Closed]],
Cell[
CellGroupData[{
Cell[
StyleData["TextAnnotationRemoveButton"], Editable -> False,
FontFamily -> "Verdana", FontSize -> 9,
ButtonBoxOptions -> {
Active -> True, Appearance -> "DialogBox",
ButtonFunction :> (Needs["DocuTools`"];
DocuTools`AnnotationRemove[
DocuTools`CalledFromFrameLabel -> True]), ButtonMargins -> 1,
Evaluator -> Automatic, Method -> "Queued"}],
Cell[
StyleData[
"TextAnnotationRemoveButton", "Printout", StyleDefinitions ->
None]]}, Closed]]}, Closed]]}, Open]]}, Visible -> False,
FrontEndVersion ->
"9.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (January 25, 2013)",
StyleDefinitions -> "PrivateStylesheetFormatting.nb"]
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
"Nikoli #73"->{
Cell[18801, 516, 307, 9, 20, "Reference",
CellTags->"Nikoli #73"]}
}
*)
(*CellTagsIndex
CellTagsIndex->{
{"Nikoli #73", 118975, 2757}
}
*)
(*NotebookFileOutline
Notebook[{
Cell[1463, 33, 167, 7, 27, "OnlineHeader"],
Cell[CellGroupData[{
Cell[1655, 44, 99, 1, 32, "ColumnTitle"],
Cell[1757, 47, 58, 0, 88, "Title"],
Cell[1818, 49, 28, 0, 25, "Author"],
Cell[1849, 51, 564, 14, 111, "Abstract"],
Cell[CellGroupData[{
Cell[2438, 69, 42, 0, 57, "Section"],
Cell[CellGroupData[{
Cell[2505, 73, 368, 9, 46, "ItemNumbered"],
Cell[2876, 84, 439, 11, 46, "ItemNumbered"],
Cell[3318, 97, 588, 12, 72, "ItemNumbered"],
Cell[3909, 111, 401, 10, 33, "ItemNumbered"],
Cell[4313, 123, 416, 12, 33, "ItemNumbered"],
Cell[4732, 137, 599, 15, 33, "ItemNumbered"],
Cell[5334, 154, 378, 10, 33, "ItemNumbered"],
Cell[5715, 166, 613, 15, 48, "ItemNumbered"],
Cell[6331, 183, 336, 9, 33, "ItemNumbered"],
Cell[6670, 194, 340, 9, 33, "ItemNumbered"],
Cell[7013, 205, 324, 9, 33, "ItemNumbered"],
Cell[7340, 216, 402, 9, 33, "ItemNumbered"],
Cell[7745, 227, 602, 12, 72, "ItemNumbered"],
Cell[8350, 241, 455, 10, 46, "ItemNumbered"],
Cell[8808, 253, 409, 10, 33, "ItemNumbered"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[9266, 269, 57, 0, 31, "Section"],
Cell[9326, 271, 339, 8, 35, "Text"],
Cell[9668, 281, 1087, 32, 72, "Quote"],
Cell[10758, 315, 417, 15, 37, "Text"],
Cell[CellGroupData[{
Cell[11200, 334, 3726, 92, 243, "Input"],
Cell[14929, 428, 3297, 69, 398, "Output"]
}, Open ]],
Cell[18241, 500, 491, 9, 50, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[18769, 514, 29, 0, 31, "Section"],
Cell[18801, 516, 307, 9, 20, "Reference",
CellTags->"Nikoli #73"],
Cell[19111, 527, 805, 18, 26, "DOIReference1"]
}, Closed]],
Cell[19931, 548, 414, 10, 57, "TextAboutAuthor",
CellGroupingRules->{"SectionGrouping", 40}]
}, Open ]]
}
]
*)
(* End of internal cache information *)
(* NotebookSignature wINTcePfRlLovL#bN1MCw4HF *)