(***********************************************************************
Mathematica-Compatible Notebook
This notebook can be used on any computer system with Mathematica 4.0,
MathReader 4.0, or any compatible application. The data for the notebook
starts with the line containing stars above.
To get the notebook into a Mathematica-compatible application, do one of
the following:
* Save the data starting with the line of stars above into a file
with a name ending in .nb, then open the file inside the application;
* Copy the data starting with the line of stars above to the
clipboard, then use the Paste menu command inside the application.
Data for notebooks contains only printable 7-bit ASCII and can be
sent directly in email or through ftp in text mode. Newlines can be
CR, LF or CRLF (Unix, Macintosh or MS-DOS style).
NOTE: If you modify the data for this notebook not in a Mathematica-
compatible application, you must delete the line below containing the
word CacheID, otherwise Mathematica-compatible applications may try to
use invalid cache data.
For more information on notebooks and Mathematica-compatible
applications, contact Wolfram Research:
web: http://www.wolfram.com
email: info@wolfram.com
phone: +1-217-398-0700 (U.S.)
Notebook reader applications are available free of charge from
Wolfram Research.
***********************************************************************)
(*CacheID: 232*)
(*NotebookFileLineBreakTest
NotebookFileLineBreakTest*)
(*NotebookOptionsPosition[ 31144, 860]*)
(*NotebookOutlinePosition[ 33133, 915]*)
(* CellTagsIndexPosition[ 32750, 903]*)
(*WindowFrame->Normal*)
Notebook[{
Cell[CellGroupData[{
Cell["Cell Properties Palette", "Title"],
Cell["January 2000", "Text"],
Cell[TextData[{
"Rolf Mertig \nMertig Research & Consulting ",
ButtonBox["http://www.mertig.com",
ButtonData:>{
URL[ "http://www.mertig.com"], None},
ButtonStyle->"Hyperlink"]
}], "Subsubtitle",
GeneratedCell->True],
Cell[CellGroupData[{
Cell["All buttons act on one or more selected cells and toggle", "Subtitle"],
Cell["The code is straightforward and self-explanatory.", "Text"],
Cell[TextData[{
" Click on the \"VP\" button of the ButtonTools palette from ",
ButtonBox["http://www.mathdepot.com",
ButtonData:>{
URL[ "http://www.mathdepot.com"], None},
ButtonStyle->"Hyperlink"]
}], "Text",
GeneratedCell->True],
Cell[CellGroupData[{
Cell["Open", "Subsubsection"],
Cell[BoxData[
RowBox[{
RowBox[{
StyleBox["SelectionMove",
FontWeight->"Bold",
FontColor->RGBColor[1, 0.4, 0]], "[",
RowBox[{
RowBox[{
StyleBox["InputNotebook",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]], "[", "]"}], ",", "All", ",",
StyleBox["Cell",
FontWeight->"Bold",
FontColor->RGBColor[0.4, 0.6, 0]]}], "]"}], ";"}]], "Input",
Active->False,
Evaluatable->True,
CellOpen->True,
InitializationCell->False,
GeneratedCell->True],
Cell[BoxData[
RowBox[{"If", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"Options", "[",
RowBox[{
RowBox[{
StyleBox["NotebookSelection",
FontWeight->"Bold",
FontColor->RGBColor[1, 0.4, 0]], "[",
RowBox[{
StyleBox["InputNotebook",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]], "[", "]"}], "]"}], ",",
StyleBox["CellOpen",
FontWeight->"Bold",
FontColor->RGBColor[0.4, 0.6, 0]]}], "]"}],
"\[LeftDoubleBracket]", \(1, 2\), "\[RightDoubleBracket]"}], "===",
StyleBox["True",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]]}], ",",
RowBox[{"SetOptions", "[",
RowBox[{
RowBox[{
StyleBox["NotebookSelection",
FontWeight->"Bold",
FontColor->RGBColor[1, 0.4, 0]], "[",
RowBox[{
StyleBox["InputNotebook",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]], "[", "]"}], "]"}], ",",
RowBox[{
StyleBox["CellOpen",
FontWeight->"Bold",
FontColor->RGBColor[0.4, 0.6, 0]], "\[Rule]", "False"}]}],
"]"}], ",",
RowBox[{"SetOptions", "[",
RowBox[{
RowBox[{
StyleBox["NotebookSelection",
FontWeight->"Bold",
FontColor->RGBColor[1, 0.4, 0]], "[",
RowBox[{
StyleBox["InputNotebook",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]], "[", "]"}], "]"}], ",",
RowBox[{
StyleBox["CellOpen",
FontWeight->"Bold",
FontColor->RGBColor[0.4, 0.6, 0]], "\[Rule]",
StyleBox["True",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]]}]}], "]"}]}], "]"}]], "Input",\
GeneratedCell->True],
Cell[BoxData[
ButtonBox["Open",
ButtonFunction:>CompoundExpression[
CompoundExpression[
SelectionMove[
InputNotebook[ ], All, Cell], Null],
If[
SameQ[
Part[
Options[
NotebookSelection[
InputNotebook[ ]], CellOpen], 1, 2], True],
SetOptions[
NotebookSelection[
InputNotebook[ ]], CellOpen -> False],
SetOptions[
NotebookSelection[
InputNotebook[ ]], CellOpen -> True]]],
ButtonEvaluator->Automatic]], NotebookDefault,
GeneratedCell->True,
CellTags->"GeneratedButtonBoxOpen"]
}, Open ]],
Cell[CellGroupData[{
Cell["Editable", "Subsubsection"],
Cell[BoxData[
RowBox[{
StyleBox["Module",
FontSize->18,
FontWeight->"Bold",
FontColor->RGBColor[0, 0.4, 0]], "[",
RowBox[{\({temp}\), ",",
RowBox[{
RowBox[{"temp", "=",
RowBox[{"Flatten", "[",
RowBox[{"{",
RowBox[{
StyleBox["NotebookRead",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]], "[",
RowBox[{
StyleBox["InputNotebook",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]], "[", "]"}], "]"}],
"}"}], "]"}]}], ";",
RowBox[{"If", "[",
RowBox[{\(temp === {}\), ",",
RowBox[{
RowBox[{
StyleBox["SelectionMove",
FontWeight->"Bold",
FontColor->RGBColor[1, 0.4, 0]], "[",
RowBox[{
RowBox[{
StyleBox["InputNotebook",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]], "[", "]"}], ",",
"All", ",",
StyleBox["Cell",
FontWeight->"Bold",
FontColor->RGBColor[0.4, 0.6, 0]]}], "]"}], ";",
RowBox[{"temp", "=",
RowBox[{"Flatten", "[",
RowBox[{"{",
RowBox[{
StyleBox["NotebookRead",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]], "[",
RowBox[{
StyleBox["InputNotebook",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]], "[", "]"}],
"]"}], "}"}], "]"}]}], ";"}]}], "]"}], ";",
RowBox[{"If", "[",
RowBox[{
RowBox[{"MatchQ", "[",
RowBox[{"temp", ",",
RowBox[{"{",
RowBox[{"BlankSequence", "[",
StyleBox["Cell",
FontWeight->"Bold",
FontColor->RGBColor[0.4, 0.6, 0]], "]"}], "}"}]}],
"]"}], ",",
RowBox[{"If", "[",
RowBox[{\(\((Union[\((#1\[LeftDoubleBracket]2\
\[RightDoubleBracket] &)\) /@
temp])\) \[Intersection] {"\
", \
"\", "\", "\", "\", \
"\"} === {}\), ",",
RowBox[{"If", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"Options", "[",
RowBox[{
RowBox[{
StyleBox["NotebookSelection",
FontWeight->"Bold",
FontColor->RGBColor[1, 0.4, 0]], "[",
RowBox[{
StyleBox["InputNotebook",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]], "[",
"]"}], "]"}], ",", "Editable"}], "]"}],
"\[LeftDoubleBracket]", \(1, 2\),
"\[RightDoubleBracket]"}], "===",
StyleBox["True",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]]}], ",",
RowBox[{"SetOptions", "[",
RowBox[{
RowBox[{
StyleBox["NotebookSelection",
FontWeight->"Bold",
FontColor->RGBColor[1, 0.4, 0]], "[",
RowBox[{
StyleBox["InputNotebook",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]], "[", "]"}],
"]"}], ",", \(Editable \[Rule] False\)}], "]"}],
",",
RowBox[{
RowBox[{
StyleBox["NotebookWrite",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]], "[",
RowBox[{
RowBox[{
StyleBox["InputNotebook",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]], "[", "]"}],
",",
RowBox[{
RowBox[{
StyleBox["NotebookRead",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]], "[",
RowBox[{
StyleBox["InputNotebook",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]], "[",
"]"}], "]"}], "/.",
"\[InvisibleSpace]", \(\((Editable \[Rule]
False)\) \[RuleDelayed] Sequence[]\)}],
",",
RowBox[{
StyleBox["GeneratedCell",
FontWeight->"Bold",
FontColor->RGBColor[0.4, 0.6, 0]], "\[Rule]",
"False"}]}], "]"}], ";",
RowBox[{
StyleBox["SelectionMove",
FontWeight->"Bold",
FontColor->RGBColor[1, 0.4, 0]], "[",
RowBox[{
RowBox[{
StyleBox["InputNotebook",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]], "[", "]"}],
",", "Previous", ",",
StyleBox["Cell",
FontWeight->"Bold",
FontColor->RGBColor[0.4, 0.6, 0]]}], "]"}]}]}],
"]"}]}], "]"}]}], "]"}], ";"}]}], "]"}]], "Input",
GeneratedCell->True]
}, Open ]],
Cell[CellGroupData[{
Cell["Evaluatable", "Subsubsection"],
Cell[BoxData[
RowBox[{
RowBox[{
StyleBox["SelectionMove",
FontWeight->"Bold",
FontColor->RGBColor[1, 0.4, 0]], "[",
RowBox[{
RowBox[{
StyleBox["InputNotebook",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]], "[", "]"}], ",", "All", ",",
StyleBox["Cell",
FontWeight->"Bold",
FontColor->RGBColor[0.4, 0.6, 0]]}], "]"}], ";"}]], "Input",
GeneratedCell->True],
Cell[BoxData[
RowBox[{"If", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"Options", "[",
RowBox[{
RowBox[{
StyleBox["NotebookSelection",
FontWeight->"Bold",
FontColor->RGBColor[1, 0.4, 0]], "[",
RowBox[{
StyleBox["InputNotebook",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]], "[", "]"}], "]"}], ",",
"Evaluatable"}], "]"}], "\[LeftDoubleBracket]", \(1, 2\),
"\[RightDoubleBracket]"}], "===",
StyleBox["True",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]]}], ",",
RowBox[{"SetOptions", "[",
RowBox[{
RowBox[{
StyleBox["NotebookSelection",
FontWeight->"Bold",
FontColor->RGBColor[1, 0.4, 0]], "[",
RowBox[{
StyleBox["InputNotebook",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]], "[", "]"}], "]"}],
",", \(Evaluatable \[Rule] False\)}], "]"}], ",",
RowBox[{"SetOptions", "[",
RowBox[{
RowBox[{
StyleBox["NotebookSelection",
FontWeight->"Bold",
FontColor->RGBColor[1, 0.4, 0]], "[",
RowBox[{
StyleBox["InputNotebook",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]], "[", "]"}], "]"}], ",",
RowBox[{"Evaluatable", "\[Rule]",
StyleBox["True",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]]}]}], "]"}]}], "]"}]], "Input",\
GeneratedCell->True],
Cell[BoxData[
ButtonBox["Evaluatable",
ButtonFunction:>CompoundExpression[
CompoundExpression[
SelectionMove[
InputNotebook[ ], All, Cell], Null],
If[
SameQ[
Part[
Options[
NotebookSelection[
InputNotebook[ ]], Evaluatable], 1, 2], True],
SetOptions[
NotebookSelection[
InputNotebook[ ]], Evaluatable -> False],
SetOptions[
NotebookSelection[
InputNotebook[ ]], Evaluatable -> True]]],
ButtonEvaluator->Automatic]], NotebookDefault,
GeneratedCell->True,
CellTags->"GeneratedButtonBoxEvaluatable"]
}, Open ]],
Cell[CellGroupData[{
Cell["Active", "Subsubsection"],
Cell[BoxData[
RowBox[{
RowBox[{
StyleBox["SelectionMove",
FontWeight->"Bold",
FontColor->RGBColor[1, 0.4, 0]], "[",
RowBox[{
RowBox[{
StyleBox["InputNotebook",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]], "[", "]"}], ",", "All", ",",
StyleBox["Cell",
FontWeight->"Bold",
FontColor->RGBColor[0.4, 0.6, 0]]}], "]"}], ";"}]], "Input",
GeneratedCell->True],
Cell[BoxData[
RowBox[{"If", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"Options", "[",
RowBox[{
RowBox[{
StyleBox["NotebookSelection",
FontWeight->"Bold",
FontColor->RGBColor[1, 0.4, 0]], "[",
RowBox[{
StyleBox["InputNotebook",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]], "[", "]"}], "]"}], ",",
"Active"}], "]"}], "\[LeftDoubleBracket]", \(1, 2\),
"\[RightDoubleBracket]"}], "===",
StyleBox["True",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]]}], ",",
RowBox[{"SetOptions", "[",
RowBox[{
RowBox[{
StyleBox["NotebookSelection",
FontWeight->"Bold",
FontColor->RGBColor[1, 0.4, 0]], "[",
RowBox[{
StyleBox["InputNotebook",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]], "[", "]"}], "]"}],
",", \(Active \[Rule] False\)}], "]"}], ",",
RowBox[{"SetOptions", "[",
RowBox[{
RowBox[{
StyleBox["NotebookSelection",
FontWeight->"Bold",
FontColor->RGBColor[1, 0.4, 0]], "[",
RowBox[{
StyleBox["InputNotebook",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]], "[", "]"}], "]"}], ",",
RowBox[{"Active", "\[Rule]",
StyleBox["True",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]]}]}], "]"}]}], "]"}]], "Input",\
GeneratedCell->True],
Cell[BoxData[
ButtonBox["Active",
ButtonFunction:>CompoundExpression[
CompoundExpression[
SelectionMove[
InputNotebook[ ], All, Cell], Null],
If[
SameQ[
Part[
Options[
NotebookSelection[
InputNotebook[ ]], Active], 1, 2], True],
SetOptions[
NotebookSelection[
InputNotebook[ ]], Active -> False],
SetOptions[
NotebookSelection[
InputNotebook[ ]], Active -> True]]],
ButtonEvaluator->Automatic]], NotebookDefault,
GeneratedCell->True,
CellTags->"GeneratedButtonBoxActive"]
}, Open ]],
Cell[CellGroupData[{
Cell["Initialization", "Subsubsection"],
Cell[BoxData[
RowBox[{
RowBox[{
StyleBox["SelectionMove",
FontWeight->"Bold",
FontColor->RGBColor[1, 0.4, 0]], "[",
RowBox[{
RowBox[{
StyleBox["InputNotebook",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]], "[", "]"}], ",", "All", ",",
StyleBox["Cell",
FontWeight->"Bold",
FontColor->RGBColor[0.4, 0.6, 0]]}], "]"}], ";"}]], "Input",
GeneratedCell->True],
Cell[BoxData[
RowBox[{"If", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"Options", "[",
RowBox[{
RowBox[{
StyleBox["NotebookSelection",
FontWeight->"Bold",
FontColor->RGBColor[1, 0.4, 0]], "[",
RowBox[{
StyleBox["InputNotebook",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]], "[", "]"}], "]"}], ",",
StyleBox["InitializationCell",
FontWeight->"Bold",
FontColor->RGBColor[0.4, 0.6, 0]]}], "]"}],
"\[LeftDoubleBracket]", \(1, 2\), "\[RightDoubleBracket]"}], "===",
StyleBox["True",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]]}], ",",
RowBox[{"SetOptions", "[",
RowBox[{
RowBox[{
StyleBox["NotebookSelection",
FontWeight->"Bold",
FontColor->RGBColor[1, 0.4, 0]], "[",
RowBox[{
StyleBox["InputNotebook",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]], "[", "]"}], "]"}], ",",
RowBox[{
StyleBox["InitializationCell",
FontWeight->"Bold",
FontColor->RGBColor[0.4, 0.6, 0]], "\[Rule]", "False"}]}],
"]"}], ",",
RowBox[{"SetOptions", "[",
RowBox[{
RowBox[{
StyleBox["NotebookSelection",
FontWeight->"Bold",
FontColor->RGBColor[1, 0.4, 0]], "[",
RowBox[{
StyleBox["InputNotebook",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]], "[", "]"}], "]"}], ",",
RowBox[{
StyleBox["InitializationCell",
FontWeight->"Bold",
FontColor->RGBColor[0.4, 0.6, 0]], "\[Rule]",
StyleBox["True",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]]}]}], "]"}]}], "]"}]], "Input",\
GeneratedCell->True],
Cell[BoxData[
ButtonBox["Initialization",
ButtonFunction:>CompoundExpression[
CompoundExpression[
SelectionMove[
InputNotebook[ ], All, Cell], Null],
If[
SameQ[
Part[
Options[
NotebookSelection[
InputNotebook[ ]], InitializationCell], 1, 2], True],
SetOptions[
NotebookSelection[
InputNotebook[ ]], InitializationCell -> False],
SetOptions[
NotebookSelection[
InputNotebook[ ]], InitializationCell -> True]]],
ButtonEvaluator->Automatic]], NotebookDefault,
GeneratedCell->True,
CellTags->"GeneratedButtonBoxInitialization"]
}, Open ]],
Cell[CellGroupData[{
Cell["Duplicate", "Subsubsection",
GeneratedCell->True],
Cell[BoxData[
RowBox[{
StyleBox["Module",
FontSize->18,
FontWeight->"Bold",
FontColor->RGBColor[0, 0.4, 0]], "[",
RowBox[{\({temp}\), ",",
RowBox[{
RowBox[{"temp", "=",
RowBox[{"Flatten", "[",
RowBox[{"{",
RowBox[{
StyleBox["NotebookRead",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]], "[",
RowBox[{
StyleBox["InputNotebook",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]], "[", "]"}], "]"}],
"}"}], "]"}]}], ";",
RowBox[{"If", "[",
RowBox[{\(temp === {}\), ",",
RowBox[{
RowBox[{
StyleBox["SelectionMove",
FontWeight->"Bold",
FontColor->RGBColor[1, 0.4, 0]], "[",
RowBox[{
RowBox[{
StyleBox["InputNotebook",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]], "[", "]"}], ",",
"All", ",",
StyleBox["Cell",
FontWeight->"Bold",
FontColor->RGBColor[0.4, 0.6, 0]]}], "]"}], ";",
RowBox[{"temp", "=",
RowBox[{"Flatten", "[",
RowBox[{"{",
RowBox[{
StyleBox["NotebookRead",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]], "[",
RowBox[{
StyleBox["InputNotebook",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]], "[", "]"}],
"]"}], "}"}], "]"}]}], ";"}]}], "]"}], ";",
RowBox[{"If", "[",
RowBox[{
RowBox[{"MatchQ", "[",
RowBox[{"temp", ",",
RowBox[{"{",
RowBox[{"BlankSequence", "[",
StyleBox["Cell",
FontWeight->"Bold",
FontColor->RGBColor[0.4, 0.6, 0]], "]"}], "}"}]}],
"]"}], ",",
RowBox[{"If", "[",
RowBox[{\(\((Union[\((#1\[LeftDoubleBracket]2\
\[RightDoubleBracket] &)\) /@
temp])\) \[Intersection] {"\", \
"\", "\", "\", "\", \
"\"} === {}\), ",",
RowBox[{
RowBox[{
StyleBox["SelectionMove",
FontWeight->"Bold",
FontColor->RGBColor[1, 0.4, 0]], "[",
RowBox[{
RowBox[{
StyleBox["InputNotebook",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]], "[", "]"}], ",",
"After", ",",
StyleBox["Cell",
FontWeight->"Bold",
FontColor->RGBColor[0.4, 0.6, 0]]}], "]"}], ";",
RowBox[{
StyleBox["NotebookWrite",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]], "[",
RowBox[{
RowBox[{
StyleBox["InputNotebook",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]], "[", "]"}], ",",
"temp", ",", "All"}], "]"}]}]}], "]"}]}], "]"}],
";"}]}], "]"}]], "Input",
GeneratedCell->True],
Cell[BoxData[
ButtonBox["Duplicate",
ButtonFunction:>CompoundExpression[
Module[ {temp},
CompoundExpression[
Set[ temp,
Flatten[ {
NotebookRead[
InputNotebook[ ]]}]],
If[
SameQ[ temp, {}],
CompoundExpression[
SelectionMove[
InputNotebook[ ], All, Cell],
Set[ temp,
Flatten[ {
NotebookRead[
InputNotebook[ ]]}]], Null]],
If[
MatchQ[ temp, {
BlankSequence[ Cell]}],
If[
SameQ[
Intersection[
Union[
Map[ Part[ #, 2]&, temp]], {"Title", "Subtitle",
"Subsubtitle", "Section", "Subsection",
"Subsubsection"}], {}],
CompoundExpression[
SelectionMove[
InputNotebook[ ], After, Cell],
NotebookWrite[
InputNotebook[ ], temp, All]]]], Null]]],
ButtonEvaluator->Automatic]], NotebookDefault,
GeneratedCell->True,
CellTags->"GeneratedButtonBoxDuplicate"]
}, Open ]],
Cell[CellGroupData[{
Cell["OpenAllGroups", "Subsubsection"],
Cell[BoxData[
RowBox[{
RowBox[{
StyleBox["SelectionMove",
FontWeight->"Bold",
FontColor->RGBColor[1, 0.4, 0]], "[",
RowBox[{
RowBox[{
StyleBox["InputNotebook",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]], "[", "]"}], ",", "All", ",",
StyleBox["CellGroup",
FontWeight->"Bold",
FontColor->RGBColor[0.4, 0.6, 0]]}], "]"}], ";"}]], "Input",
GeneratedCell->True],
Cell[BoxData[
RowBox[{
RowBox[{
StyleBox["FrontEndExecute",
FontSize->18,
FontSlant->"Italic",
FontColor->RGBColor[0.6, 0.8, 0.100008]], "[",
RowBox[{"{",
RowBox[{"FrontEnd`FrontEndToken", "[",
RowBox[{
RowBox[{
StyleBox["InputNotebook",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]], "[", "]"}], ",",
"\"\\""}], "]"}], "}"}], "]"}],
";"}]], "Input",
GeneratedCell->True],
Cell[BoxData[
ButtonBox["OpenAllGroups",
ButtonFunction:>CompoundExpression[
CompoundExpression[
SelectionMove[
InputNotebook[ ], All, CellGroup], Null],
CompoundExpression[
FrontEndExecute[ {
FrontEnd`FrontEndToken[
InputNotebook[ ], "SelectionOpenAllGroups"]}], Null]],
ButtonEvaluator->Automatic]], NotebookDefault,
GeneratedCell->True,
CellTags->"GeneratedButtonBoxOpenAllGroups"]
}, Open ]],
Cell[CellGroupData[{
Cell["CloseAllGroups", "Subsubsection",
GeneratedCell->True],
Cell[BoxData[
RowBox[{
RowBox[{
StyleBox["SelectionMove",
FontWeight->"Bold",
FontColor->RGBColor[1, 0.4, 0]], "[",
RowBox[{
RowBox[{
StyleBox["InputNotebook",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]], "[", "]"}], ",", "All", ",",
StyleBox["CellGroup",
FontWeight->"Bold",
FontColor->RGBColor[0.4, 0.6, 0]]}], "]"}], ";"}]], "Input",
GeneratedCell->True],
Cell[BoxData[
RowBox[{
RowBox[{
StyleBox["FrontEndExecute",
FontSize->18,
FontSlant->"Italic",
FontColor->RGBColor[0.6, 0.8, 0.100008]], "[",
RowBox[{"{",
RowBox[{"FrontEnd`FrontEndToken", "[",
RowBox[{
RowBox[{
StyleBox["InputNotebook",
FontWeight->"Bold",
FontColor->RGBColor[0.2, 0, 1]], "[", "]"}], ",",
"\"\\""}], "]"}], "}"}], "]"}],
";"}]], "Input",
GeneratedCell->True],
Cell[BoxData[
ButtonBox["CloseAllGroups",
ButtonFunction:>CompoundExpression[
CompoundExpression[
SelectionMove[
InputNotebook[ ], All, CellGroup], Null],
CompoundExpression[
FrontEndExecute[ {
FrontEnd`FrontEndToken[
InputNotebook[ ], "SelectionCloseAllGroups"]}], Null]],
ButtonEvaluator->Automatic]], NotebookDefault,
GeneratedCell->True,
CellTags->"GeneratedButtonBoxCloseAllGroups"]
}, Open ]]
}, Open ]]
}, Open ]]
},
FrontEndVersion->"4.0 for X",
ScreenRectangle->{{0, 1152}, {0, 864}},
WindowSize->{849, 590},
WindowMargins->{{Automatic, 135}, {Automatic, 60}},
CellLabelAutoDelete->True,
Magnification->1.5
]
(***********************************************************************
Cached data follows. If you edit this Notebook file directly, not using
Mathematica, you must remove the line containing CacheID at the top of
the file. The cache data will then be recreated when you save this file
from within Mathematica.
***********************************************************************)
(*CellTagsOutline
CellTagsIndex->{
"GeneratedButtonBoxOpen"->{
Cell[5286, 162, 718, 20, 39, NotebookDefault,
CellTags->"GeneratedButtonBoxOpen"]},
"GeneratedButtonBoxEvaluatable"->{
Cell[15085, 400, 741, 20, 39, NotebookDefault,
CellTags->"GeneratedButtonBoxEvaluatable"]},
"GeneratedButtonBoxActive"->{
Cell[18187, 491, 716, 20, 39, NotebookDefault,
CellTags->"GeneratedButtonBoxActive"]},
"GeneratedButtonBoxInitialization"->{
Cell[21683, 593, 768, 20, 39, NotebookDefault,
CellTags->"GeneratedButtonBoxInitialization"]},
"GeneratedButtonBoxDuplicate"->{
Cell[26428, 713, 1340, 35, 39, NotebookDefault,
CellTags->"GeneratedButtonBoxDuplicate"]},
"GeneratedButtonBoxOpenAllGroups"->{
Cell[28924, 789, 498, 12, 39, NotebookDefault,
CellTags->"GeneratedButtonBoxOpenAllGroups"]},
"GeneratedButtonBoxCloseAllGroups"->{
Cell[30603, 843, 501, 12, 39, NotebookDefault,
CellTags->"GeneratedButtonBoxCloseAllGroups"]}
}
*)
(*CellTagsIndex
CellTagsIndex->{
{"GeneratedButtonBoxOpen", 31794, 878},
{"GeneratedButtonBoxEvaluatable", 31925, 881},
{"GeneratedButtonBoxActive", 32059, 884},
{"GeneratedButtonBoxInitialization", 32196, 887},
{"GeneratedButtonBoxDuplicate", 32336, 890},
{"GeneratedButtonBoxOpenAllGroups", 32476, 893},
{"GeneratedButtonBoxCloseAllGroups", 32620, 896}
}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[1739, 51, 40, 0, 159, "Title"],
Cell[1782, 53, 28, 0, 46, "Text"],
Cell[1813, 55, 237, 7, 108, "Subsubtitle"],
Cell[CellGroupData[{
Cell[2075, 66, 76, 0, 146, "Subtitle"],
Cell[2154, 68, 65, 0, 46, "Text"],
Cell[2222, 70, 251, 7, 46, "Text"],
Cell[CellGroupData[{
Cell[2498, 81, 29, 0, 60, "Subsubsection"],
Cell[2530, 83, 579, 18, 39, "Input",
Evaluatable->True,
CellOpen->True,
InitializationCell->False],
Cell[3112, 103, 2171, 57, 108, "Input"],
Cell[5286, 162, 718, 20, 39, NotebookDefault,
CellTags->"GeneratedButtonBoxOpen"]
}, Open ]],
Cell[CellGroupData[{
Cell[6041, 187, 33, 0, 60, "Subsubsection"],
Cell[6077, 189, 6627, 140, 342, "Input"]
}, Open ]],
Cell[CellGroupData[{
Cell[12741, 334, 36, 0, 60, "Subsubsection"],
Cell[12780, 336, 494, 14, 39, "Input"],
Cell[13277, 352, 1805, 46, 108, "Input"],
Cell[15085, 400, 741, 20, 39, NotebookDefault,
CellTags->"GeneratedButtonBoxEvaluatable"]
}, Open ]],
Cell[CellGroupData[{
Cell[15863, 425, 31, 0, 60, "Subsubsection"],
Cell[15897, 427, 494, 14, 39, "Input"],
Cell[16394, 443, 1790, 46, 108, "Input"],
Cell[18187, 491, 716, 20, 39, NotebookDefault,
CellTags->"GeneratedButtonBoxActive"]
}, Open ]],
Cell[CellGroupData[{
Cell[18940, 516, 39, 0, 60, "Subsubsection"],
Cell[18982, 518, 494, 14, 39, "Input"],
Cell[19479, 534, 2201, 57, 177, "Input"],
Cell[21683, 593, 768, 20, 39, NotebookDefault,
CellTags->"GeneratedButtonBoxInitialization"]
}, Open ]],
Cell[CellGroupData[{
Cell[22488, 618, 57, 1, 60, "Subsubsection"],
Cell[22548, 621, 3877, 90, 273, "Input"],
Cell[26428, 713, 1340, 35, 39, NotebookDefault,
CellTags->"GeneratedButtonBoxDuplicate"]
}, Open ]],
Cell[CellGroupData[{
Cell[27805, 753, 38, 0, 60, "Subsubsection"],
Cell[27846, 755, 499, 14, 39, "Input"],
Cell[28348, 771, 573, 16, 89, "Input"],
Cell[28924, 789, 498, 12, 39, NotebookDefault,
CellTags->"GeneratedButtonBoxOpenAllGroups"]
}, Open ]],
Cell[CellGroupData[{
Cell[29459, 806, 62, 1, 60, "Subsubsection"],
Cell[29524, 809, 499, 14, 39, "Input"],
Cell[30026, 825, 574, 16, 89, "Input"],
Cell[30603, 843, 501, 12, 39, NotebookDefault,
CellTags->"GeneratedButtonBoxCloseAllGroups"]
}, Open ]]
}, Open ]]
}, Open ]]
}
]
*)
(***********************************************************************
End of Mathematica Notebook file.
***********************************************************************)