(*********************************************************************** 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. ***********************************************************************)