(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 538681, 12447] NotebookOptionsPosition[ 379581, 8701] NotebookOutlinePosition[ 518777, 11782] CellTagsIndexPosition[ 516131, 11739] WindowFrame->Normal ContainsDynamic->True *) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Every Document is an Expression: The Reach of ", StyleBox["Mathematica", FontSlant->"Italic"], " 6" }], "Title", CellChangeTimes->{{3.393595411785886*^9, 3.39359541474046*^9}, { 3.393595530018134*^9, 3.393595543973138*^9}, 3.395938600731394*^9, { 3.397086616042899*^9, 3.397086619069579*^9}}, CellTags->"reiss", CellID->1758546655], Cell[TextData[{ "This notebook is Copyright \[Copyright], 2008 Scientific Arts, LLC, all \ rights reserved. It may be redistributed only in full and in its original \ form without modification; and it may not be used for any commercial purpose \ without permission from Scientific Arts. A non-exclusive royalty-free \ license is given to reproduce and use all the of the ", StyleBox["Mathematica", FontSlant->"Italic"], " ", StyleBox["code", FontSlant->"Italic"], " in this notebook for any purpose whatsoever, as well as any of the ideas. \ No guarantee whatsoever is given as to the accuracy or functionality of \ anything presented in this document. Use at your own risk. \[LineSeparator]\ \[LineSeparator]Enjoy: I hope that it's useful. For further information on \ ", StyleBox["A", FontWeight->"Bold", FontColor->RGBColor[0.542718, 0.103822, 0.139086]], StyleBox[" ", FontWeight->"Bold"], StyleBox["Work", FontWeight->"Bold", FontColor->RGBColor[0.647059, 0.119585, 0.134844]], StyleBox["Life", FontWeight->"Bold", FontColor->RGBColor[0.692302, 0.471, 0.275517]], StyleBox[" ", FontWeight->"Bold"], StyleBox["Frame", FontWeight->"Bold", FontColor->RGBColor[0.0872663, 0.520363, 0.287388]], StyleBox["Work", FontWeight->"Bold", FontColor->RGBColor[0, 0.300008, 0.4]], ", please click on the Scientific Arts banner above." }], "Text", Editable->False, CellFrame->True, ShowCellBracket->False, CellChangeTimes->{{3.417128787102659*^9, 3.417128932911289*^9}, { 3.417128966977538*^9, 3.417129009600556*^9}, {3.4171299658753567`*^9, 3.41713007488867*^9}, 3.417130106213378*^9, {3.417130890353876*^9, 3.417130965142454*^9}, {3.4171310313529577`*^9, 3.417131134463414*^9}, { 3.417131180005157*^9, 3.41713120084977*^9}}, TextJustification->0, Background->GrayLevel[0.9], CellID->2123826423], Cell["Version of 24 July 2008", "Text", Editable->False, Deletable->True, ShowCellBracket->False, CellChangeTimes->{{3.417268790243142*^9, 3.41726880540938*^9}}, TextAlignment->Center, CellID->1486673549], Cell[TextData[{ "David Reiss, ", ButtonBox["Scientific Arts", BaseStyle->"Hyperlink", ButtonData->{ URL["http://scientificarts.com"], None}], ", LLC" }], "AuthorHeader", CellChangeTimes->{{3.393595319532567*^9, 3.3935953276577168`*^9}, { 3.425944191248358*^9, 3.425944191249482*^9}}, CellTags->"reiss", CellID->76196924], Cell[CellGroupData[{ Cell["Abstract", "AbstractHeading", CellTags->"reiss", CellID->741448056], Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " 6 exposes a huge landscape of possibilities for automatic report \ generation, the creation and maintenance of documents with active content, \ and the development of document-oriented applications. In this brief review \ I touch on a few aspects of ", StyleBox["Mathematica", FontSlant->"Italic"], " 6 as a system for creating programmable, active, document-oriented \ applications." }], "Abstract", CellChangeTimes->{{3.393595604761119*^9, 3.39359561012674*^9}, { 3.39387208538627*^9, 3.393872225134159*^9}, {3.394550049192195*^9, 3.394550049251917*^9}, {3.394553924461452*^9, 3.394553945244039*^9}, 3.3949798864011908`*^9, {3.3949804038247833`*^9, 3.394980438962339*^9}, { 3.394982358946765*^9, 3.394982368361615*^9}, {3.394993399853179*^9, 3.394993529628495*^9}, {3.395057937720381*^9, 3.3950580308711*^9}, { 3.395058320345644*^9, 3.395058320862487*^9}, {3.39507178790737*^9, 3.39507183567173*^9}, {3.395074129273698*^9, 3.395074132864068*^9}, { 3.395075325397415*^9, 3.395075325524581*^9}, 3.395078364728401*^9, { 3.3951528526198187`*^9, 3.395152856939555*^9}, {3.395155983412575*^9, 3.395155984124758*^9}, {3.397131736721653*^9, 3.397131738719048*^9}, { 3.397218825850521*^9, 3.397218837091271*^9}, {3.397219788837962*^9, 3.3972197984744377`*^9}, 3.397219853431013*^9}, CellTags->"reiss", CellID->1817357298], Cell[TextData[{ "This review is based on ", StyleBox["Mathematica", FontSlant->"Italic"], " 6.01: some observations may change as new versions of ", StyleBox["Mathematica", FontSlant->"Italic"], " are rolled out." }], "Text", CellChangeTimes->{{3.395058721536145*^9, 3.395058762571537*^9}, { 3.3950753133404303`*^9, 3.395075313683082*^9}, {3.395076967316193*^9, 3.3950769711876783`*^9}}, CellTags->"reiss", CellID->1519302010] }, Open ]], Cell[TextData[{ "Copyright \[Copyright] ", ValueBox["Year"], " ", "Scientific Arts, LLC" }], "Copyright", CellChangeTimes->{{3.393595290555282*^9, 3.393595298713043*^9}}, CellTags->"reiss", CellID->525620329], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], ButtonBox[" Initializations", BaseStyle->"SectionButton"] }], "Initialize", CellChangeTimes->{3.394979891192853*^9}, CellTags->"init", CellID->1500629392], Cell[BoxData[ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"Names", "[", "\"\\"", "]"}], "]"}], ">", "0"}], ",", RowBox[{"Remove", "[", "\"\\"", "]"}]}], "]"}], ";"}]], "InputOnly", InitializationCell->True, CellLabel->"In[36]:=", CellID->1030240976], Cell[BoxData[{ RowBox[{ RowBox[{"Off", "[", RowBox[{"General", "::", "\"\\""}], "]"}], ";"}], "\n", RowBox[{ RowBox[{"Off", "[", RowBox[{"General", "::", "\"\\""}], "]"}], ";"}]}], "InputOnly", InitializationCell->True, CellLabel->"In[37]:=", CellID->99437871], Cell[BoxData[{ RowBox[{ RowBox[{"$TextStyle", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", " ", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", " ", "10"}], ",", " ", RowBox[{"FontWeight", "\[Rule]", "Plain"}]}], "}"}]}], ";", RowBox[{"$FormatType", "=", "TraditionalForm"}], ";"}], "\n", RowBox[{ RowBox[{"$FrameStyle", "=", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"AbsoluteThickness", "[", ".5", "]"}]}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"$ImageSize", "=", "288"}], ";"}]}], "InputOnly", InitializationCell->True, CellLabel->"In[39]:=", CellID->510020531], Cell[BoxData[ RowBox[{ RowBox[{"SetOptions", "[", RowBox[{"ListPlot", ",", "\n", RowBox[{"Axes", "\[Rule]", "False"}], ",", "\n", RowBox[{"Frame", "\[Rule]", "True"}], ",", "\n", RowBox[{"FrameStyle", "\[Rule]", "$FrameStyle"}], ",", "\n", RowBox[{"GridLines", "\[Rule]", "None"}], ",", "\n", RowBox[{"ImageSize", "\[Rule]", "$ImageSize"}], ",", "\n", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"AbsoluteThickness", "[", ".5", "]"}]}], "}"}]}], ",", "\n", RowBox[{"PlotJoined", "\[Rule]", "True"}]}], "]"}], ";"}]], "InputOnly", InitializationCell->True, CellLabel->"In[42]:=", CellID->1307829340], Cell[BoxData[ RowBox[{ RowBox[{"SetOptions", "[", RowBox[{"ListPlot3D", ",", "\n", RowBox[{"Axes", "\[Rule]", "True"}], ",", "\n", RowBox[{"AxesLabel", "\[Rule]", "None"}], ",", "\n", RowBox[{"AxesStyle", "\[Rule]", RowBox[{"AbsoluteThickness", "[", "1", "]"}]}], ",", "\n", RowBox[{"Boxed", "\[Rule]", " ", "True"}], ",", "\n", RowBox[{"BoxRatios", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1", ",", ".7"}], "}"}]}], ",", "\n", RowBox[{"BoxStyle", "\[Rule]", RowBox[{"AbsoluteDashing", "[", RowBox[{"{", RowBox[{"2.5", ",", "2.5"}], "}"}], "]"}]}], ",", "\n", RowBox[{"ImageSize", "\[Rule]", "$ImageSize"}], ",", "\n", RowBox[{"Lighting", "\[Rule]", " ", "True"}], ",", "\n", RowBox[{"Mesh", "\[Rule]", "False"}], ",", "\n", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", "\n", RowBox[{"ViewVertical", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], ",", "\n", RowBox[{"ViewPoint", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", ".5"}], ",", "1"}], "}"}]}]}], "]"}], ";"}]], "InputOnly",\ InitializationCell->True, CellLabel->"In[43]:=", CellID->1192590335], Cell[BoxData[ RowBox[{ RowBox[{"SetOptions", "[", RowBox[{"Plot", ",", "\n", RowBox[{"Axes", "\[Rule]", "False"}], ",", "\n", RowBox[{"Frame", "\[Rule]", "True"}], ",", "\n", RowBox[{"FrameStyle", "\[Rule]", "$FrameStyle"}], ",", "\n", RowBox[{"GridLines", "\[Rule]", "None"}], ",", "\n", RowBox[{"ImageSize", "\[Rule]", " ", "$ImageSize"}], ",", "\n", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"AbsoluteThickness", "[", ".5", "]"}]}], "}"}]}]}], "]"}], ";"}]], "InputOnly", InitializationCell->True, CellLabel->"In[44]:=", CellID->1400882894], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"PrependTo", "[", RowBox[{"$Path", ",", RowBox[{"DirectoryName", "[", RowBox[{"ToFileName", "[", "\n", " ", RowBox[{"\"\\"", " ", "/.", " ", RowBox[{"NotebookInformation", "[", RowBox[{"EvaluationNotebook", "[", "]"}], "]"}]}], "]"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"$Path", "=", RowBox[{"Union", "[", "$Path", "]"}]}], ";"}]}], "InputOnly", InitializationCell->True, CellLabel->"In[45]:=", CellID->1775577397], Cell[BoxData[ RowBox[{ RowBox[{"$Line", "=", "0"}], ";"}]], "InputOnly", InitializationCell->True, CellLabel->"In[47]:=", CellID->696552667] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ CounterBox["Section"], ". Introduction" }], "Section", CellChangeTimes->{ 3.3945539504492207`*^9, {3.394554222127109*^9, 3.394554225946309*^9}, 3.394979899819578*^9, {3.394983031304462*^9, 3.394983032948402*^9}, { 3.3959386576200457`*^9, 3.395938665986681*^9}}, CellTags->"reiss", CellID->1074796312], Cell[TextData[{ "In this brief review, for lack of a better term, a ", StyleBox["Document ", FontSlant->"Italic"], "is a very general concept covering a very large space of possible ", StyleBox["Mathematica", FontSlant->"Italic"], " document types along with external non-notebook files and data sources. \ Typically a ", StyleBox["Document", FontSlant->"Italic"], " will contain a set of ", StyleBox["Mathematica", FontSlant->"Italic"], " ", StyleBox["Notebook", "In"], "s with arbitrary user interface elements in them, arbitrary interdependent \ ", StyleBox["Dynamic", "In"], " contents, arbitrary graphical and textual content, and arbitrary code that \ creates and modifies content. And, with this definition, a ", StyleBox["Document", FontSlant->"Italic"], " will also contain and interlink with external files and applications. The \ programmatic aspects of generalized documents in ", StyleBox["Mathematica", FontSlant->"Italic"], " and the underlying form of many of their elements as Expressions opens up \ a conceptual space of broad potential and scope for the creation of systems \ of documents and ", "document-oriented", " applications." }], "Text", CellChangeTimes->{{3.394878721519373*^9, 3.394878909507876*^9}, { 3.394982393641327*^9, 3.3949824334715567`*^9}, {3.394988376487275*^9, 3.3949884181344748`*^9}, 3.394993382084271*^9, {3.394993550460865*^9, 3.39499378557415*^9}, {3.3950583292198553`*^9, 3.395058412994265*^9}, { 3.3950585822734632`*^9, 3.39505859201416*^9}, {3.3950586241131153`*^9, 3.395058662575706*^9}, {3.3950587805490513`*^9, 3.395058781126904*^9}, { 3.395071877005787*^9, 3.395071972001823*^9}, {3.395072024852065*^9, 3.395072090654063*^9}, {3.395072414822637*^9, 3.395072416563367*^9}, 3.395074141950767*^9, {3.395074861810501*^9, 3.395074944262952*^9}, { 3.395141747511218*^9, 3.3951418759521103`*^9}, {3.395156013420182*^9, 3.395156052766947*^9}, {3.3951561267408457`*^9, 3.3951561474412317`*^9}, { 3.397131750107217*^9, 3.39713181488265*^9}, {3.397132059773644*^9, 3.3971321465620327`*^9}, 3.397142914598866*^9, 3.397218568038055*^9, { 3.397218690630453*^9, 3.3972186921760187`*^9}, {3.397218856028701*^9, 3.397218876525346*^9}, 3.397219837956184*^9}, CellTags->"reiss", CellID->1743598127], Cell[TextData[{ "This has been true prior to ", StyleBox["Mathematica", FontSlant->"Italic"], " 6, and my ", StyleBox["Mathematica", FontSlant->"Italic"], " add-on\[LongDash]\"A WorkLife FrameWork\" ", ButtonBox["http://scientificarts.com/worklife", BaseStyle->"Hyperlink", ButtonData->{ URL["http://scientificarts.com/worklife"], None}], "\[LongDash] is, from this perspective, a broad document-oriented \ application that enhances the reach of ", StyleBox["Mathematica", FontSlant->"Italic"], ". This application was built with ", StyleBox["Mathematica", FontSlant->"Italic"], " 5.1 and 5.2 and was the first ", StyleBox["Mathematica", FontSlant->"Italic"], " add-on package available that was compatible with ", StyleBox["Mathematica", FontSlant->"Italic"], " 6 upon its release. With ", StyleBox["Mathematica", FontSlant->"Italic"], " 6, the continued development of \"A WorkLife FrameWork\"\[LongDash]and the \ potential for new document-oriented applications\[LongDash]can now move into \ areas that were previously inaccessible. " }], "Text", CellChangeTimes->{{3.39507210767946*^9, 3.395072304989546*^9}, { 3.395072439277543*^9, 3.395072487382526*^9}, {3.3950743398486843`*^9, 3.395074353736577*^9}, {3.395074835148861*^9, 3.395074836110279*^9}, { 3.395141899714717*^9, 3.395141949945942*^9}, {3.395151536891502*^9, 3.395151573500684*^9}, {3.395156160252551*^9, 3.395156196411539*^9}, { 3.397075112423291*^9, 3.397075216610568*^9}, 3.397083909801293*^9, { 3.3971318359191923`*^9, 3.397131940159706*^9}, {3.397218693804061*^9, 3.3972186968992*^9}, {3.3972188973687897`*^9, 3.397218962961537*^9}, { 3.397218997278647*^9, 3.397219058481064*^9}, 3.3972198394402637`*^9, { 3.397220228656474*^9, 3.3972202419951963`*^9}}, CellTags->"reiss", CellID->2109275851], Cell[TextData[{ "It is now open season for creativity and discovery in the field of ", "document-oriented", " applications. ", StyleBox["Mathematica", FontSlant->"Italic"], " is ideal for both the creation of such applications: both ones driven by \ ", StyleBox["Mathematica ", FontSlant->"Italic"], "as its engine, and the prototyping of such applications that may ultimately \ be deployed with a technology other than ", StyleBox["Mathematica", FontSlant->"Italic"], "." }], "Text", CellChangeTimes->{{3.39507210767946*^9, 3.395072304989546*^9}, { 3.395072439277543*^9, 3.395072487382526*^9}, {3.3950743398486843`*^9, 3.395074353736577*^9}, {3.395074835148861*^9, 3.395074836110279*^9}, { 3.395141899714717*^9, 3.395141949945942*^9}, {3.395151536891502*^9, 3.395151573500684*^9}, {3.395156160252551*^9, 3.395156196411539*^9}, { 3.397075112423291*^9, 3.397075216610568*^9}, 3.397083909801293*^9, { 3.3971318359191923`*^9, 3.397131940159706*^9}, {3.397218693804061*^9, 3.3972186968992*^9}, {3.3972188973687897`*^9, 3.397218962961537*^9}, { 3.397218997278647*^9, 3.397219058481064*^9}, {3.397219093641095*^9, 3.397219103342602*^9}, 3.397219840644912*^9, {3.39722027357626*^9, 3.397220283176133*^9}}, CellTags->"reiss", CellID->1267425330], Cell[TextData[{ "These opportunities are enabled by several aspects of ", StyleBox["Mathematica", FontSlant->"Italic"], " 6: its very wide variety of new user interface elements, its new ", StyleBox["Dynamic", "In"], " functionality, and a document programming language that extends and sits \ above the much ", "lower-level", " functions that first appeared in ", StyleBox["Mathematica ", FontSlant->"Italic"], "starting at version 3", StyleBox[".", FontSlant->"Italic"] }], "Text", CellChangeTimes->{ 3.395058853623104*^9, 3.3950741430886106`*^9, 3.3950749771846743`*^9, { 3.395152973794887*^9, 3.39515300541615*^9}, {3.397131950148979*^9, 3.3971319568416367`*^9}, {3.397132186821866*^9, 3.397132188259729*^9}, 3.397142922215611*^9, 3.397218698420787*^9, 3.397242374970704*^9}, CellTags->"reiss", CellID->1328319240], Cell[TextData[{ "This review focuses on the document generation tools in ", StyleBox["Mathematica", FontSlant->"Italic"], " 6: Wolfram Research has created these as an essential complement to the \ new user interface generation tools and ", StyleBox["Dynamic", "In"], " functionality, and their full power is in concert with these." }], "Text", CellChangeTimes->{{3.395142022449271*^9, 3.395142133946558*^9}, { 3.395153019138636*^9, 3.395153033816819*^9}, {3.3951562444148912`*^9, 3.3951562561655807`*^9}, {3.397132179780305*^9, 3.397132190574008*^9}, 3.397218699003599*^9}, CellTags->"reiss", CellID->498897057], Cell[TextData[{ "For historical reasons there is still the impression amongst non-", StyleBox["Mathematica", FontSlant->"Italic"], " users that ", StyleBox["Mathematica", FontSlant->"Italic"], " is \"a symbolic computation tool\" or a \"technical computation tool.\" \ These, of course, are sub-aspects of ", StyleBox["Mathematica", FontSlant->"Italic"], ". What is not appreciated in general is the ", StyleBox["Mathematica", FontSlant->"Italic"], "'s reach well beyond these narrow scopings. Understanding and exploring \ document-oriented applications is one way to get a sense of ", StyleBox["Mathematica", FontSlant->"Italic"], "'s breadth of scope." }], "Text", CellChangeTimes->{{3.3971319840257797`*^9, 3.397132036651718*^9}, { 3.397132254699349*^9, 3.3971324882398043`*^9}, 3.397142924803944*^9, 3.3972187007757883`*^9, 3.3972198422468433`*^9, {3.3972203877929907`*^9, 3.3972204319636374`*^9}}, CellTags->"reiss", CellID->687098614] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ CounterBox["Section"], ". The Scope of ", StyleBox["Mathematica", FontSlant->"Italic"], " and the New User Interface Programming Layer" }], "Section", CellChangeTimes->{ 3.3945539504492207`*^9, {3.394554222127109*^9, 3.394554225946309*^9}, 3.394979899819578*^9, {3.395066735152628*^9, 3.3950667435481367`*^9}, { 3.3959386775543327`*^9, 3.3959386788166857`*^9}, {3.39722047288628*^9, 3.397220479880143*^9}}, CellTags->"reiss", CellID->1791914474], Cell[TextData[{ "Something that we, as ", StyleBox["Mathematica", FontSlant->"Italic"], " users, often hear is that, in ", StyleBox["Mathematica, ", FontSlant->"Italic"], "\[OpenCurlyDoubleQuote]everything is an expression.\[CloseCurlyDoubleQuote] \ This elemental design decision for ", StyleBox["Mathematica", FontSlant->"Italic"], " is a key to what gives it its broad scope and extensibility. It is also \ what allows ", StyleBox["Mathematica", FontSlant->"Italic"], " to represent entities of arbitrary complexity, whether in historically \ traditional mathematical systems, or arbitrary other abstract systems, \ including document-oriented applications." }], "Text", CellChangeTimes->{{3.394554228748169*^9, 3.39455435953633*^9}, { 3.394577651936741*^9, 3.394577751983803*^9}, {3.3949824624453783`*^9, 3.394982481702078*^9}, {3.394988470928173*^9, 3.3949884758081903`*^9}, 3.395058427125773*^9, {3.3950588920037527`*^9, 3.395058892919978*^9}, { 3.395153068631206*^9, 3.395153070247023*^9}, {3.39515627671385*^9, 3.3951562901901217`*^9}, {3.397132508651031*^9, 3.397132509826726*^9}, 3.397218702072894*^9, 3.397219843569993*^9, {3.3972205298477697`*^9, 3.3972205334614573`*^9}}, CellTags->"reiss", CellID->2130003839], Cell[TextData[{ "In versions of ", StyleBox["Mathematica", FontSlant->"Italic"], " prior version 6 accessing and programming entities like ", StyleBox["Cell", "In"], " and ", StyleBox["Notebook", "In"], " expressions, as well as the then limited set of user interface elements \ mainly ", StyleBox["Button", "In"], "s programmed as ", StyleBox["ButtonBox", "In"], "es), required a strong familiarity with their subtle ", "low-level", " details. " }], "Text", CellChangeTimes->{{3.394577804385788*^9, 3.394577960341254*^9}, { 3.394578058235147*^9, 3.3945781562134657`*^9}, 3.394834098450556*^9, { 3.3949825204321737`*^9, 3.394982585385367*^9}, 3.394982678780435*^9, { 3.394988507920445*^9, 3.394988583491541*^9}, {3.3949938371133747`*^9, 3.394993878592326*^9}, 3.395058429417947*^9, 3.395065784934101*^9, 3.395065828504356*^9, {3.395066692154348*^9, 3.395066692802635*^9}, 3.395066728221299*^9, {3.3950725311343527`*^9, 3.395072557820059*^9}, { 3.3950749973259087`*^9, 3.395075010321999*^9}, {3.395153077850306*^9, 3.3951530789124737`*^9}, {3.397132513982401*^9, 3.397132514709372*^9}, { 3.397220571914785*^9, 3.3972206086802053`*^9}, 3.3972423557369204`*^9}, CellTags->"reiss", CellID->640710818], Cell[TextData[{ "In ", StyleBox["Mathematica", FontSlant->"Italic"], " 6 there is now a new layer for FrontEnd programming that sits above the ", "low-level", " elements (which typically are explicit Box constructs). This is an \ enabling design choice on Wolfram Research's part because it gives users \ powerful, \[OpenCurlyDoubleQuote]simple,\[CloseCurlyDoubleQuote] and \ enabling access to these constructs." }], "Text", CellChangeTimes->{{3.394988686540698*^9, 3.394988715351617*^9}, { 3.3949941249462147`*^9, 3.394994138968894*^9}, 3.395058465043744*^9, { 3.395059163222633*^9, 3.395059174005625*^9}, {3.395059336603362*^9, 3.395059338779133*^9}, {3.395059682844466*^9, 3.3950597555324907`*^9}, { 3.395059847297468*^9, 3.395059881505237*^9}, {3.395059951568514*^9, 3.395059984675927*^9}, 3.395065786364542*^9, 3.3950658285396433`*^9, { 3.395066797336038*^9, 3.395066821462165*^9}, {3.395072587412394*^9, 3.3950726504065847`*^9}, {3.395075063569981*^9, 3.3950750699063272`*^9}, 3.39507840391144*^9, {3.395153100785231*^9, 3.395153117897786*^9}, { 3.395156315690288*^9, 3.3951563432625933`*^9}, {3.397220654578452*^9, 3.3972206885954237`*^9}, 3.3972423569617167`*^9}, CellTags->"reiss", CellID->559931871], Cell[TextData[{ "Many functions that exist at the ", "low-level", " as Box structures, and which are of the form ", StyleBox["fooBox", "In"], ", now also have counterparts simply of the form ", StyleBox["foo", "In"], ". Thus, ", StyleBox["StyleBox", "In"], " now has the counterpart ", StyleBox["Style", "In"], " and ", StyleBox["GridBox", "In"], " has the counterpart ", StyleBox["Grid", "In"], ". And, in many of the cases where those Box functions were present in \ earlier versions of ", StyleBox["Mathematica", FontSlant->"Italic"], ", they are considerably more versatile in their latest incarnations." }], "Text", CellChangeTimes->{{3.394988718144866*^9, 3.394988762336733*^9}, 3.394994002840639*^9, 3.394994044373624*^9, {3.395058965915476*^9, 3.395058988167692*^9}, {3.395059764717513*^9, 3.395059800822645*^9}, { 3.3950600077421*^9, 3.395060049909947*^9}, 3.395065787325989*^9, 3.395065828575326*^9, {3.395072661775757*^9, 3.395072705959775*^9}, { 3.395075075482957*^9, 3.395075083469513*^9}, {3.395156384222322*^9, 3.395156387642087*^9}, {3.3971325279160023`*^9, 3.397132529764594*^9}, 3.397242357907497*^9}, CellTags->"reiss", CellID->501614743] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ CounterBox["Section"], ". ", ButtonBox["The ", BaseStyle->"SectionButton"], StyleBox[ButtonBox["Mathematica", BaseStyle->"SectionButton"], FontSlant->"Italic"], ButtonBox[" Document Programming Language (MDPL)", BaseStyle->"SectionButton"] }], "Section", CellChangeTimes->{{3.394831377449003*^9, 3.3948313840381536`*^9}, { 3.3950596488422413`*^9, 3.3950596540677*^9}, {3.3950669678186483`*^9, 3.395066991467778*^9}, 3.395938683943722*^9}, CellTags->"reiss", CellID->1825318854], Cell[TextData[{ "From the perspective of this review, one thing that is new in ", StyleBox["Mathematica", FontSlant->"Italic"], " 6 is the ", "high-level", " language-within-the-language for creating and programming documents. While \ one might engage in debate about what determines whether a function should be \ included in this ", StyleBox["MDPL", "ChemicalFormula"], ", here is a list of many important top level ones that, in effect comprise \ a core of the ", StyleBox["MDPL", "ChemicalFormula"], "." }], "Text", CellChangeTimes->{{3.394831387439093*^9, 3.394831421864606*^9}, { 3.394834119874481*^9, 3.394834140677513*^9}, {3.3949788485074043`*^9, 3.394978849844946*^9}, 3.3950584747479677`*^9, {3.395059256771928*^9, 3.395059333666514*^9}, {3.39506690453157*^9, 3.3950669631576777`*^9}, { 3.395066994901163*^9, 3.3950670273817787`*^9}, {3.395072745686183*^9, 3.395072769497696*^9}, {3.395075533327939*^9, 3.395075563407379*^9}, { 3.395156399969803*^9, 3.395156405342763*^9}, 3.397132536277341*^9, 3.397218707693968*^9, 3.397242391868183*^9}, CellTags->"reiss", CellID->1330081783], Cell[BoxData[ TagBox[GridBox[{ { StyleBox["\<\"Documents\"\>", FontSize->9], StyleBox["\<\"Notebooks\"\>", FontSize->9], StyleBox["\<\"Cells\"\>", FontSize->9]}, { StyleBox["\<\"CreateDocument\"\>", FontSize->9], StyleBox["\<\"DocumentNotebook\"\>", FontSize->9], StyleBox["\<\"TextCell\"\>", FontSize->9]}, { StyleBox["\<\"CreateWindow\"\>", FontSize->9], StyleBox["\<\"PaletteNotebook\"\>", FontSize->9], StyleBox["\<\"ExpressionCell\"\>", FontSize->9]}, { StyleBox["\<\"PopupWindow\"\>", FontSize->9], StyleBox["\<\"DialogNotebook\"\>", FontSize->9], StyleBox["\<\"CellGroup\"\>", FontSize->9]}, { StyleBox["\<\"Deploy\"\>", FontSize->9], StyleBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, BaselinePosition->Baseline, ImageSize->{1, 0}], CacheGraphics->False], Spacer[1]], FontSize->9], StyleBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, BaselinePosition->Baseline, ImageSize->{1, 0}], CacheGraphics->False], Spacer[1]], FontSize->9]} }, ColumnsEqual->False, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxFrame->{"Columns" -> {{True}}, "RowsIndexed" -> {1 -> True}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxItemStyle->{"Columns" -> {{ Directive[10, FontFamily -> "Helvetica"]}}, "Rows" -> { Directive[Bold, 10, FontFamily -> "Helvetica"]}}, RowsEqual->False], "Grid"]], "Text", Editable->True, Deletable->True, CellMargins->{{0, 0}, {6, 2}}, PageBreakWithin->False, PageBreakBelow->False, CellChangeTimes->{{3.3970777922963343`*^9, 3.397077793541153*^9}}, TextAlignment->Center, ShowStringCharacters->False, CellTags->"reiss"], Cell[TextData[{ StyleBox["Fig. ", FontWeight->"Bold"], StyleBox[ CounterBox["FigureCaption"], FontWeight->"Bold"], " New functions for creating Documents, ", StyleBox["Notebook", "In"], "s, and Cells" }], "FigureCaption", Editable->True, Deletable->True, PageBreakAbove->False, CellChangeTimes->{{3.395067079185699*^9, 3.3950670992706957`*^9}, { 3.395072780323164*^9, 3.3950727806273727`*^9}}, TextAlignment->Center, CellTags->"reiss", CellID->1759549199], Cell[BoxData[ InterpretationBox[Cell[BoxData[ TagBox[GridBox[{ {"\<\"Cell\\nLayout\"\>", "\<\"Graphic\\nLayout\"\>", "\<\"Views\"\>", \ "\<\"Events\"\>", "\<\"UI\\nelements\"\>"}, {"\<\"Grid\"\>", "\<\"GraphicsGrid\"\>", "\<\"FlipView\"\>", \ "\<\"FrontEndEventActions\"\>", "\<\"Button\"\>"}, {"\<\"Row\"\>", "\<\"GraphicsRow\"\>", "\<\"MenuView\"\>", \ "\<\"NotebookEventActions\"\>", "\<\"ActionMenu\"\>"}, {"\<\"Column\"\>", "\<\"GraphicsColumn\"\>", "\<\"OpenerView\"\>", \ "\<\"CellEventActions\"\>", "\<\"RadioButton\"\>"}, {"\<\"Item\"\>", InterpretationBox[ StyleBox[ GraphicsBox[{}, BaselinePosition->Baseline, ImageSize->{1, 0}], CacheGraphics->False], Spacer[1]], "\<\"PopupView\"\>", InterpretationBox[ StyleBox[ GraphicsBox[{}, BaselinePosition->Baseline, ImageSize->{1, 0}], CacheGraphics->False], Spacer[1]], "\<\"Dynamic\"\>"}, {"\<\"Spacer\"\>", InterpretationBox[ StyleBox[ GraphicsBox[{}, BaselinePosition->Baseline, ImageSize->{1, 0}], CacheGraphics->False], Spacer[1]], "\<\"SlideView\"\>", InterpretationBox[ StyleBox[ GraphicsBox[{}, BaselinePosition->Baseline, ImageSize->{1, 0}], CacheGraphics->False], Spacer[1]], StyleBox["\<\"Many, many,\\nmore...\"\>", StripOnInput->False, FontSlant->Italic]}, { InterpretationBox[ StyleBox[ GraphicsBox[{}, BaselinePosition->Baseline, ImageSize->{1, 0}], CacheGraphics->False], Spacer[1]], InterpretationBox[ StyleBox[ GraphicsBox[{}, BaselinePosition->Baseline, ImageSize->{1, 0}], CacheGraphics->False], Spacer[1]], "\<\"TabView\"\>", InterpretationBox[ StyleBox[ GraphicsBox[{}, BaselinePosition->Baseline, ImageSize->{1, 0}], CacheGraphics->False], Spacer[1]], "\[SpanFromAbove]"} }, ColumnsEqual->False, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxFrame->{"Columns" -> {{True}}, "RowsIndexed" -> {1 -> True}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxItemStyle->{"Columns" -> {{ Directive[9, FontFamily -> "Helvetica"]}}, "Rows" -> { Directive[Bold, 10, FontFamily -> "Helvetica"]}}, RowsEqual->False], "Grid"]], "Text", "TR"], Text[ Grid[{{ "Cell\nLayout", "Graphic\nLayout", "Views", "Events", "UI\nelements"}, { "Grid", "GraphicsGrid", "FlipView", "FrontEndEventActions", "Button"}, { "Row", "GraphicsRow", "MenuView", "NotebookEventActions", "ActionMenu"}, { "Column", "GraphicsColumn", "OpenerView", "CellEventActions", "RadioButton"}, {"Item", Spacer[1], "PopupView", Spacer[1], "Dynamic"}, {"Spacer", Spacer[1], "SlideView", Spacer[1], Style["Many, many,\nmore...", Italic]}, { Spacer[1], Spacer[1], "TabView", Spacer[1], SpanFromAbove}}, Alignment -> Left, ItemStyle -> { Directive[9, FontFamily -> "Helvetica"], { Directive[Bold, 10, FontFamily -> "Helvetica"]}}, Frame -> {All, {1 -> True}}]]]], "Text", CellMargins->{{0, 0}, {6, 2}}, CellChangeTimes->{ 3.3951543224645777`*^9, {3.3958715505363207`*^9, 3.395871551067453*^9}}, TextAlignment->Center, ShowStringCharacters->False, CellTags->{"CodeTag", "reiss"}, CellID->718470291], Cell[TextData[{ StyleBox["Fig. ", FontWeight->"Bold"], StyleBox[ CounterBox["FigureCaption"], FontWeight->"Bold"], " New functions for Document content and Document interaction events " }], "FigureCaption", Editable->True, Deletable->True, PageBreakAbove->False, CellChangeTimes->{{3.395067119135652*^9, 3.39506716703342*^9}, { 3.395072872849387*^9, 3.395072873261973*^9}}, TextAlignment->Center, CellTags->"reiss", CellID->1893568403] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ CounterBox["Section"], ". ", ButtonBox["Using the language", BaseStyle->"SectionButton"] }], "Section", CellChangeTimes->{{3.3945781849375687`*^9, 3.394578190566461*^9}, { 3.395073068572289*^9, 3.395073072675469*^9}, 3.3959386868099194`*^9}, CellTags->"reiss", CellID->1801993781], Cell[TextData[{ "Prior to ", StyleBox["Mathematica", FontSlant->"Italic"], " 6, you might create a cell and its associated content in a way similar to \ this (", StyleBox["MakeBoxes", "In"], " does not evaluate its argument while ", StyleBox["ToBoxes", "In"], " does)," }], "Text", CellChangeTimes->{{3.3948309670668583`*^9, 3.394830995653414*^9}, { 3.395060350937324*^9, 3.3950603677676277`*^9}, {3.395061032973352*^9, 3.395061049010438*^9}, {3.395061081140663*^9, 3.3950610966624937`*^9}, { 3.397220764242456*^9, 3.397220765002098*^9}}, CellTags->"reiss", CellID->104377895], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"aCell", "=", RowBox[{"Cell", "[", RowBox[{ RowBox[{"BoxData", "[", RowBox[{"MakeBoxes", "[", RowBox[{"1", "+", "2", "+", RowBox[{"1", "/", "x"}]}], "]"}], "]"}], ",", "\"\\""}], "]"}]}]], "Input", Editable->True, TaggingRules:>{"GUIDTag[176828567952662482399440058816033181456]"}, PageBreakBelow->False, CellChangeTimes->{{3.394831008249764*^9, 3.394831009997225*^9}, { 3.3948310469522953`*^9, 3.3948310853786173`*^9}, {3.394831202945074*^9, 3.3948312062404547`*^9}, {3.394831257706809*^9, 3.394831258218761*^9}, 3.394831308052815*^9, {3.395060215055285*^9, 3.3950602343186083`*^9}, { 3.395061000193219*^9, 3.395061013088173*^9}}, CellTags->{ "DiaryDate[{2007, 7, 31, 0, 36, 44.878506}]", "EphemeralGUID[209170993718452391156402599282204919735]", "CellGUID[7115556334885253127570320834443099987]", "reiss"}, CellLabel->"In[1]:=", CellID->1247760127], Cell[BoxData[ RowBox[{"Cell", "[", RowBox[{ RowBox[{"BoxData", "[", RowBox[{"RowBox", "[", RowBox[{"{", RowBox[{"\<\"1\"\>", ",", "\<\"+\"\>", ",", "\<\"2\"\>", ",", "\<\"+\"\>", ",", RowBox[{"FractionBox", "[", RowBox[{"\<\"1\"\>", ",", "\<\"x\"\>"}], "]"}]}], "}"}], "]"}], "]"}], ",", "\<\"DisplayFormula\"\>"}], "]"}]], "Output", CellChangeTimes->{3.3950610144449577`*^9, 3.395065970393518*^9, 3.3950762903484917`*^9, 3.395078910271451*^9, 3.3950790253915358`*^9, 3.395143650293601*^9, 3.3951557605070887`*^9, 3.395157044319664*^9, 3.3958650151954107`*^9, 3.3970864011534986`*^9, 3.39708709552748*^9, 3.397127990089559*^9, 3.397128034300839*^9, 3.397135534537324*^9, 3.39721811171913*^9, 3.397241128926797*^9, 3.397243563689582*^9, 3.397243709947019*^9}, CellTags->{ "DiaryDate[{2007, 7, 31, 0, 36, 44.878506}]", "EphemeralGUID[209170993718452391156402599282204919735]", "CellGUID[7115556334885253127570320834443099987]", "reiss"}, CellLabel->"Out[1]=", CellID->737676234] }, Open ]], Cell["and then display that cell in this manner,", "Text", CellChangeTimes->{{3.394831013667593*^9, 3.394831023958274*^9}, { 3.394879714882127*^9, 3.394879728369124*^9}, {3.395058499300146*^9, 3.3950585090439568`*^9}, {3.3950610750195913`*^9, 3.395061089819562*^9}}, CellTags->"reiss", CellID->943474716], Cell[BoxData[ RowBox[{"CellPrint", "[", "aCell", "]"}]], "InputOnly", PageBreakBelow->False, CellChangeTimes->{{3.394831026226906*^9, 3.394831031631032*^9}}, CellTags->"reiss", CellLabel->"In[2]:=", CellID->2107786011], Cell[BoxData[ RowBox[{"1", "+", "2", "+", FractionBox["1", "x"]}]], "DisplayFormula", GeneratedCell->True, CellAutoOverwrite->True, CellChangeTimes->{3.3972437100055857`*^9}, CellTags->"reiss", CellID->701370707], Cell[TextData[{ "In version 6 the function ", StyleBox["ExpressionCell", "In"], " (there is now also a related function, ", StyleBox["TextCell", "In"], ") will take care of the ", "lower-level", " formatting constructs automatically (here the automatic expression \ evaluation is suppressed using the new function ", StyleBox["Defer", "In"], "):" }], "Text", CellChangeTimes->{{3.3948311012929373`*^9, 3.39483113338734*^9}, 3.394986281480811*^9, {3.3950602790096207`*^9, 3.395060288773961*^9}, { 3.397133195202106*^9, 3.397133221367382*^9}, {3.397220780570579*^9, 3.397220805195249*^9}, 3.397242376482346*^9}, CellTags->"reiss", CellID->2061238234], Cell[BoxData[ RowBox[{ RowBox[{"ExpressionCell", "[", RowBox[{ RowBox[{"Defer", "[", RowBox[{"1", "+", "2", "+", FractionBox["1", "x"]}], "]"}], ",", "\"\\""}], "]"}], "//", "CellPrint"}]], "InputOnly", Editable->True, TaggingRules:>{"GUIDTag[240646219588487261253999640150399390420]"}, PageBreakBelow->False, CellChangeTimes->{{3.394831139573737*^9, 3.394831179063177*^9}, 3.394831212797859*^9, {3.394831303684494*^9, 3.3948313047563953`*^9}, { 3.3948313479368258`*^9, 3.394831353571499*^9}, {3.395060259547616*^9, 3.395060265127469*^9}, 3.395154598995482*^9}, CellTags->{ "DiaryDate[{2007, 7, 31, 0, 38, 58.807917}]", "EphemeralGUID[306228893835280154638996120920000492953]", "CellGUID[68737925254373730641620103448272160818]", "reiss"}, CellLabel->"In[3]:=", CellID->24805434], Cell[BoxData[ RowBox[{"1", "+", "2", "+", FractionBox["1", "x"]}]], "DisplayFormula", GeneratedCell->True, CellAutoOverwrite->True, CellChangeTimes->{3.397243710087212*^9}, CellTags->{ "DiaryDate[{2007, 7, 31, 0, 38, 58.807917}]", "EphemeralGUID[306228893835280154638996120920000492953]", "CellGUID[68737925254373730641620103448272160818]", "reiss"}, CellID->399734166], Cell[TextData[{ "Here is an example of a simple reporting function written in the way one \ would have done prior to version 6. It involves explicitly making use of ", "low-level", " functions such as ", StyleBox["TextData", "In"], ", ", StyleBox["BoxData", "In"], ", and ", StyleBox["ToBoxes", "In"], " as well as care, using string manipulation, in making sure that certain \ items do not evaluate:" }], "Text", CellChangeTimes->{{3.3948201323536177`*^9, 3.39482016185225*^9}, { 3.3948232547373657`*^9, 3.3948232958085823`*^9}, {3.3948233398080797`*^9, 3.394823364377503*^9}, {3.395065799181814*^9, 3.395065828717785*^9}, { 3.395075616002862*^9, 3.3950756164866123`*^9}, {3.3951564607120333`*^9, 3.395156465787575*^9}, 3.3972208257422657`*^9, 3.3972423591381397`*^9}, CellTags->"reiss", CellID->1003867615], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"FibonacciReportCell", "[", RowBox[{"n_", "?", "Positive"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Cell", "[", RowBox[{ RowBox[{"TextData", "[", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "<>", RowBox[{"ToString", "[", RowBox[{"Unevaluated", "[", RowBox[{"Fibonacci", "[", "n", "]"}], "]"}], "]"}], "<>", "\"\< is \>\""}], ",", RowBox[{"Cell", "[", RowBox[{ RowBox[{"BoxData", "[", RowBox[{"ToBoxes", "[", RowBox[{"Fibonacci", "[", RowBox[{"N", "[", "n", "]"}], "]"}], "]"}], "]"}], ",", "\"\\""}], "]"}]}], "}"}], "]"}], ",", "\"\\"", ",", RowBox[{"CellDingbat", "\[Rule]", "\"\<\[MathematicaIcon]\>\""}], ",", RowBox[{"CellFrame", "\[Rule]", "1"}], ",", RowBox[{"CellFrameMargins", "\[Rule]", "2"}]}], "]"}]}], ";"}]], "InputOnly", CellChangeTimes->{{3.394818153998465*^9, 3.394818175804987*^9}, { 3.3948182378982887`*^9, 3.3948182941382513`*^9}, 3.3948232368727713`*^9, 3.39482344815127*^9, {3.394985179646798*^9, 3.394985208715579*^9}, { 3.394993301423367*^9, 3.394993315551543*^9}, {3.395061145466339*^9, 3.395061180044325*^9}, {3.3950613117685966`*^9, 3.395061329192299*^9}, { 3.395061369066806*^9, 3.39506138693898*^9}, {3.39506374181929*^9, 3.395063760236863*^9}, 3.395064012495226*^9, 3.3950653536484823`*^9, { 3.395143684406014*^9, 3.395143733714082*^9}, 3.3951441700607767`*^9, 3.397131598879236*^9, 3.3971316646177893`*^9}, CellTags->"reiss", CellLabel->"In[4]:=", CellID->917615362], Cell["Here is an example of the output:", "Text", CellChangeTimes->{{3.394823386385833*^9, 3.3948234032183113`*^9}, 3.395061160696538*^9, {3.395061417879324*^9, 3.395061419198884*^9}}, CellTags->"reiss", CellID->1445760231], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FibonacciReportCell", "[", "54", "]"}]], "Input", CellChangeTimes->{{3.394823414926751*^9, 3.39482342694112*^9}, 3.39506115596351*^9}, CellTags->"reiss", CellLabel->"In[5]:=", CellID->114736612], Cell[BoxData[ RowBox[{"Cell", "[", RowBox[{ RowBox[{"TextData", "[", RowBox[{"{", RowBox[{"\<\"The numerical value of Fibonacci[54] is \"\>", ",", RowBox[{"Cell", "[", RowBox[{ RowBox[{"BoxData", "[", "\<\"8.626757127199998`*^10\"\>", "]"}], ",", "\<\"Text\"\>"}], "]"}]}], "}"}], "]"}], ",", "\<\"Text\"\>", ",", RowBox[{"CellDingbat", "\[Rule]", "\<\"\[MathematicaIcon]\"\>"}], ",", RowBox[{"CellFrame", "\[Rule]", "1"}], ",", RowBox[{"CellFrameMargins", "\[Rule]", "2"}]}], "]"}]], "Output", CellChangeTimes->{3.395065359736209*^9, 3.395065970640587*^9, 3.3950762906840487`*^9, 3.395078910566472*^9, 3.395079025723991*^9, 3.3951436506897383`*^9, 3.395143691848947*^9, 3.3951557607807913`*^9, 3.395157044575943*^9, 3.395865018404601*^9, 3.397086401478281*^9, 3.397087095752521*^9, 3.397127990562714*^9, 3.3971280345564423`*^9, 3.3971316727992268`*^9, 3.397135534809678*^9, 3.3972181120100203`*^9, 3.3972411298378363`*^9, 3.397243563896142*^9, 3.397243710188146*^9}, CellTags->"reiss", CellLabel->"Out[5]=", CellID->1003280146] }, Open ]], Cell[TextData[{ "And here it is formatted with ", StyleBox["CellPrint", "In"], ":" }], "Text", CellChangeTimes->{{3.3950640198942423`*^9, 3.395064033397024*^9}}, CellTags->"reiss", CellID->406463414], Cell[BoxData[ RowBox[{"CellPrint", "[", RowBox[{"FibonacciReportCell", "[", "54", "]"}], "]"}]], "InputOnly", PageBreakBelow->False, CellChangeTimes->{{3.39506405131319*^9, 3.3950640518360023`*^9}}, CellTags->"reiss", CellLabel->"In[6]:=", CellID->285117991], Cell[TextData[{ "The numerical value of Fibonacci[54] is ", Cell[BoxData["8.626757127199998`*^10"], "Text"] }], "Text", CellFrame->1, CellDingbat->"\[MathematicaIcon]", GeneratedCell->True, CellAutoOverwrite->True, CellFrameMargins->2, CellChangeTimes->{3.39724371025386*^9}, CellTags->"reiss", CellID->87817578], Cell[TextData[{ "Here is a version of this function using some constructs from ", StyleBox["Mathematica", FontSlant->"Italic"], " 6\[LongDash]", "low-level", " Box constructs are not needed in its design:" }], "Text", CellChangeTimes->{{3.3948234636976223`*^9, 3.394823501883247*^9}, { 3.395063806309656*^9, 3.395063829173403*^9}, {3.3950640769683447`*^9, 3.395064099781362*^9}, 3.395065387960313*^9, {3.395065800982559*^9, 3.3950658287533607`*^9}, 3.397242360456443*^9}, CellTags->"reiss", CellID->1455621358], Cell[BoxData[ RowBox[{ RowBox[{"FibonacciReportCellV6", "[", RowBox[{"n_", "?", "Positive"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"TextCell", "[", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"Text", "[", RowBox[{"Defer", "[", RowBox[{"Fibonacci", "[", "n", "]"}], "]"}], "]"}], ",", "\"\< is \>\"", ",", RowBox[{"Text", "[", RowBox[{"Fibonacci", "[", RowBox[{"N", "[", "n", "]"}], "]"}], "]"}]}], "}"}], "]"}], ",", "\"\\"", ",", RowBox[{"CellDingbat", "\[Rule]", "\"\<\[MathematicaIcon]\>\""}], ",", RowBox[{"CellFrame", "\[Rule]", "1"}], ",", RowBox[{"CellFrameMargins", "\[Rule]", "2"}]}], "]"}]}]], "InputOnly", CellChangeTimes->{{3.394985214550767*^9, 3.3949852238283577`*^9}, { 3.3949852662932997`*^9, 3.394985289288213*^9}, {3.394986234659143*^9, 3.394986248409658*^9}, 3.394993312526622*^9, {3.3950611921232862`*^9, 3.395061232516816*^9}, {3.395061265609756*^9, 3.3950612960475197`*^9}, { 3.395061480308599*^9, 3.3950614905630608`*^9}, 3.395061775794808*^9, 3.395061953181621*^9, 3.395062064591977*^9, {3.3950638818150263`*^9, 3.395063883780766*^9}, {3.395063926256864*^9, 3.3950639588560047`*^9}, { 3.395064129337377*^9, 3.395064138548851*^9}, {3.395064170046691*^9, 3.3950642677218437`*^9}, {3.3950643319669027`*^9, 3.395064447121591*^9}, 3.395064552429369*^9, 3.395064623061132*^9, {3.395064813586484*^9, 3.3950648148020487`*^9}, 3.39506504051814*^9, {3.395065093701683*^9, 3.395065096393478*^9}, {3.395065152823908*^9, 3.395065201236298*^9}, { 3.3951437345055733`*^9, 3.395143762918211*^9}}, CellTags->"reiss", CellLabel->"In[7]:=", CellID->1924066276], Cell["\<\ (The choice of option, CellFrameMargins \[Rule] 2, is so that the CellDingbat \ doesn't print over the CellFrame.)\ \>", "Text", CellChangeTimes->{{3.397061780234353*^9, 3.3970618235442266`*^9}, { 3.397083940670534*^9, 3.397083941088917*^9}}, CellTags->"reiss", CellID->1675386437], Cell[TextData[{ "Executing this creates an output that is a ", StyleBox["representation", FontSlant->"Italic"], " of the cell itself." }], "Text", CellChangeTimes->{{3.39482354523559*^9, 3.3948236452763443`*^9}, { 3.394986187570464*^9, 3.394986208317236*^9}, 3.3949933286380033`*^9, { 3.3950641546048*^9, 3.395064164185405*^9}, {3.395064776832066*^9, 3.3950647845656*^9}, 3.395075681315579*^9, 3.39721959979538*^9}, CellTags->"reiss", CellID->1883966795], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FibonacciReportCellV6", "[", "54", "]"}]], "Input", PageBreakBelow->False, CellChangeTimes->{{3.395063866915059*^9, 3.3950638682163687`*^9}}, CellTags->"reiss", CellLabel->"In[8]:=", CellID->442035984], Cell[BoxData[ InterpretationBox[Cell[TextData[{ "The numerical value of ", Cell[BoxData[ RowBox[{"Fibonacci", "[", "54", "]"}]], "Text", "TR"], " is ", Cell[BoxData["8.626757127199998`*^10"], "Text", "TR"] }], "Text", CellFrame->1, CellDingbat->"\[MathematicaIcon]", CellFrameMargins->2], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[54]]], " is ", Text[8.626757127199998*^10]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]]], "Output", CellChangeTimes->{{3.3950638692254257`*^9, 3.3950639299822197`*^9}, 3.395063962884368*^9, 3.395064141793355*^9, 3.395064181198378*^9, 3.395064218687694*^9, 3.395064276224353*^9, 3.395064369719708*^9, 3.3950645566796503`*^9, 3.3950650484284067`*^9, 3.395065099792446*^9, 3.395065166658431*^9, 3.395065970774412*^9, 3.395076290817112*^9, 3.395078910722086*^9, 3.395079025890563*^9, 3.395143650912121*^9, 3.395143768165159*^9, 3.395155760928451*^9, 3.3951570447563953`*^9, 3.395865018688012*^9, 3.39708640167551*^9, 3.397087095946527*^9, 3.397127990918911*^9, 3.3971280347400312`*^9, 3.397135535523657*^9, 3.397218112167246*^9, 3.39724113012646*^9, 3.3972435640725327`*^9, 3.3972437103684683`*^9}, CellTags->"reiss", CellLabel->"Out[8]=", CellID->628767957] }, Open ]], Cell[TextData[{ "Note that the ", StyleBox["CellDingbat", "In"], " does not appear in the Output cell. This is an important point. Since \ the result of executing the ", StyleBox["TextCell", "In"], " is displayed in an Output cell, it does not exhibit its full formatting as \ it would when printed as a cell in its own right. Use ", StyleBox["CellPrint", "In"], " to create a fully formatted version:" }], "Text", CellChangeTimes->{ 3.395064803432098*^9, {3.395065219987893*^9, 3.395065323219798*^9}, { 3.39506542142367*^9, 3.395065422928194*^9}, {3.395066420441483*^9, 3.395066444087105*^9}, {3.395156505884893*^9, 3.3951565066558733`*^9}}, CellTags->"reiss", CellID->337721080], Cell[BoxData[ RowBox[{ RowBox[{"FibonacciReportCellV6", "[", "54", "]"}], "//", "CellPrint"}]], "InputOnly", PageBreakBelow->False, CellChangeTimes->{{3.395063866915059*^9, 3.3950638682163687`*^9}, { 3.3950651051764297`*^9, 3.3950651087427607`*^9}}, CellTags->"reiss", CellLabel->"In[9]:=", CellID->999556125], Cell[TextData[{ "The numerical value of ", Cell[BoxData[ RowBox[{"Fibonacci", "[", "54", "]"}]], "Text", "TR"], " is ", Cell[BoxData["8.626757127199998`*^10"], "Text", "TR"] }], "Text", CellFrame->1, CellDingbat->"\[MathematicaIcon]", GeneratedCell->True, CellAutoOverwrite->True, CellFrameMargins->2, CellChangeTimes->{3.397243710439116*^9}, CellTags->"reiss", CellID->2083510059], Cell[TextData[{ "Here is a prototypical example of a \"report\" generating function built \ using the new function ", StyleBox["DocumentNotebook", "In"], " (another approach is to use ", StyleBox["CreateDocument", "In"], "). The function ", StyleBox["DocumentNotebook", "In"], " can take any of the options that ", StyleBox["Notebook", "In"], " can, and these are used to adjust details of the resulting document." }], "Text", CellChangeTimes->{{3.3948236619029703`*^9, 3.3948236789496107`*^9}, { 3.3950616590172443`*^9, 3.3950616702464533`*^9}, {3.395062540728463*^9, 3.395062620353848*^9}, {3.395062927129221*^9, 3.395062947548312*^9}, 3.395065439572494*^9, {3.395066465340323*^9, 3.395066536975472*^9}, { 3.395067200732535*^9, 3.3950672131634407`*^9}, 3.395074145624902*^9, 3.395078412745875*^9, 3.3970821175626297`*^9, {3.397133309292741*^9, 3.397133311340837*^9}, 3.3972187327629013`*^9}, CellTags->"reiss", CellID->302191996], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"FibonacciReport", "[", RowBox[{"name_String", ",", RowBox[{"n_", "?", "Positive"}]}], "]"}], ":=", RowBox[{"DocumentNotebook", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"TextCell", "[", RowBox[{ RowBox[{ "name", "<>", "\"\<'s personal Fibonacci Report for \>\"", "<>", RowBox[{"ToString", "[", "n", "]"}]}], ",", "\"\\""}], "]"}], ",", RowBox[{"FibonacciReportCellV6", "[", "n", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"WindowSize", "\[Rule]", RowBox[{"{", RowBox[{"450", ",", "170"}], "}"}]}], ",", RowBox[{"ShowCellBracket", "\[Rule]", "False"}], ",", RowBox[{"WindowTitle", "\[Rule]", "\"\\""}]}], "]"}]}], ";"}]], "InputOnly", CellChangeTimes->{{3.394823712308455*^9, 3.39482371904525*^9}, 3.395061532654954*^9, {3.395061567759725*^9, 3.3950616437367563`*^9}, { 3.3950616795915127`*^9, 3.395061721860355*^9}, {3.395061778684596*^9, 3.395061785458596*^9}, {3.395061828684442*^9, 3.3950618292397747`*^9}, { 3.3950619448312597`*^9, 3.395061946839324*^9}, {3.395062005931986*^9, 3.395062049034707*^9}, {3.3950621014264183`*^9, 3.395062135265811*^9}, { 3.3950621746826477`*^9, 3.395062189339035*^9}, {3.395062365595272*^9, 3.3950623961025743`*^9}, {3.395062528794059*^9, 3.395062529798029*^9}, 3.395066557347987*^9, {3.395143735543941*^9, 3.39514373792378*^9}, 3.395144160637292*^9, {3.397087067239388*^9, 3.397087084761551*^9}, { 3.397134824361125*^9, 3.397134824750873*^9}}, CellTags->"reiss", CellLabel->"In[10]:=", CellID->142051617], Cell[TextData[{ "Here is an example. ", StyleBox["DocumentNotebook", "In"], " creates an in-notebook representation of the ", "document", " in an Output cell. As above, some of the formatting is not exhibited in \ the environment of the Output cell." }], "Text", CellChangeTimes->{{3.395062640073215*^9, 3.3950626456096153`*^9}, { 3.395065457016165*^9, 3.395065500937645*^9}, {3.3950672382485647`*^9, 3.395067249003962*^9}, 3.395074146617219*^9, 3.395078414585772*^9, { 3.397133335381998*^9, 3.397133338886094*^9}, 3.3972187377804737`*^9}, CellTags->"reiss", CellID->1662528822], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FibonacciReport", "[", RowBox[{"\"\\"", ",", "54"}], "]"}]], "Input", PageBreakBelow->False, CellChangeTimes->{{3.395061806182403*^9, 3.395061847273879*^9}, { 3.3950619691292353`*^9, 3.395061981088627*^9}, 3.3950788694574623`*^9}, CellTags->"reiss", CellLabel->"In[11]:=", CellID->957191777], Cell[BoxData[ InterpretationBox[ PanelBox[GridBox[{ { TooltipBox[ ButtonBox[ StyleBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "ManipulatePasteIcon"], ImageSizeCache->{13., {4., 9.}}], DynamicUpdating->True], ButtonFrame->None, ButtonFunction:>FrontEndExecute[{ FrontEnd`NotebookPut[ Notebook[{ Cell["David's personal Fibonacci Report for 54", "Section"], Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "54", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["8.626757127199998`*^10", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}], DefaultBaseStyle->{}, Evaluator->None, Method->"Queued"], "Open this notebook in a new window"]}, { ItemBox[GridBox[{ {Cell["David's personal Fibonacci Report for 54", "Section"]}, {Cell[TextData[{ "The numerical value of ", Cell[BoxData[ RowBox[{"Fibonacci", "[", "54", "]"}]], "Text", "TR"], " is ", Cell[BoxData["8.626757127199998`*^10"], "Text", "TR"] }], "Text", CellFrame->1, CellDingbat->"\[MathematicaIcon]", CellFrameMargins->2]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Background->GrayLevel[1], Frame->True, FrameStyle->GrayLevel[0, 0.2]]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], DefaultBaseStyle->{}, FrameMargins->5], DocumentNotebook[{ TextCell["David's personal Fibonacci Report for 54", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[54]]], " is ", Text[8.626757127199998*^10]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]], "Output", CellChangeTimes->{ 3.395061811910861*^9, 3.395061848419301*^9, {3.395061970122064*^9, 3.395062012553406*^9}, {3.39506205345959*^9, 3.395062072156781*^9}, 3.395062109929544*^9, {3.395062144297039*^9, 3.395062191615343*^9}, { 3.3950623824203243`*^9, 3.395062398251532*^9}, {3.3950646365241003`*^9, 3.39506464638549*^9}, 3.395065970910408*^9, 3.395073955916103*^9, 3.3950762909513206`*^9, 3.395078910871621*^9, 3.395079026057708*^9, 3.395143651047882*^9, 3.395143781618319*^9, 3.395155761062582*^9, 3.395157044941161*^9, 3.395865018853724*^9, 3.397086401925551*^9, 3.397087096131125*^9, 3.397127991093317*^9, 3.397128034984647*^9, 3.3971355356716757`*^9, 3.3972181124302692`*^9, 3.397241130300147*^9, 3.397243564213949*^9, 3.3972437105410357`*^9}, CellTags->"reiss", CellLabel->"Out[11]=", CellID->685213631] }, Open ]], Cell[TextData[{ "By clicking on the ", Cell[GraphicsData["CompressedBitmap", "\<\ eJyFUUsOgjAQnVI+asLCG3ATdrjyEA0xgYXRIPsepUfpUThKndeCAQSdZNrJ +2Q6navqm9td9W2tikunnk1bv4rq0TEkBRHlnOeCUDsup0M6xDAMSDrgjIAQ RahPzlorAsBa6BhA0tGVZSmcMWZBMcgUh/DlmvL9kmD9LaIU9dRu4uameG4C ETmt9X9ftvbB5u/Q3I+8fmG6Z/oeJtmSjkPFn15j7A6TQCmXn4TY+uSwMoll eDvAbLafPGxw8yLxBuKNPdU=\ \>"], "Text", Evaluatable->False, ImageSize->{13, 17}, ImageMargins->0, ImageRegion->{{0, 1}, {0, 1}}], " icon, a full notebook will open with the contents of the ", "document", ". Here is a screen shot:" }], "Text", CellChangeTimes->{{3.3948240131862707`*^9, 3.394824079862887*^9}, { 3.3949791431612263`*^9, 3.3949791490961323`*^9}, 3.395058511867566*^9, { 3.395065515179254*^9, 3.395065519034712*^9}, {3.395066576478427*^9, 3.39506658767927*^9}, {3.395075749044962*^9, 3.3950757490450563`*^9}, 3.39721873884265*^9}, CellTags->"reiss", CellID->1727461987], Cell[TextData[Cell[GraphicsData["CompressedBitmap", "\<\ eJzVfXV8Vcf2bxxIsAKlQgu0vXUX2lunpQqllFKKt0Bxd3d3CSQEgibEgBhE iRHi7u7uJ0fiQL9vrdl7nwRK772/333vjxc+CefM3jOzZvlaY6NnrJo3e/GM VfP/mDH02xUzls2b/8fKod8sXUFFxoYGBoavGRgYzB1qwJ9BH5U/xkhISEBq air/Gvwo/hojOTkZYWFhiIqKMuiD6OhoKouOiUEM/9I3Iy4z4a+95af8dklJ CbRarcFlqNVqA3NUVFSgqakJf/75JxoaGsA/7e3tUKlU4rNOp0NLS4shfyZg jJGSkoL6+nr+NRgt/pqKisXFxQgPD0dtbS1XMjBBc3OzEbdtxJ8M+otu6BNa W9vQ1tYmPjc10feWJmh1WrS0toiylpZW6LRaNDXT9yYdgcsgSOVcr6W5ieBQ WjfoLldqkRtsEjDn5OSgrKyMOmu154cGFvwR1dXV4rW7d+8iODhYIFWj0cDb 2xuVlZUoLS2Fv7+/gSG/rR8vI6PreBsbG8V4IyIiRO179+4Z9BAY6od2dTVC fN3g6OiE+LwK4G4rIkP84ex4FfGZZQKpVbmJ8LzmDM+A26intmPDbqG+9S5q 8pNx3dMH2VUaU9GcNDYGSvmhrlBQUICqqiqmmT3u3LlDY1PIx0PnH0ZDQECA YJK6ujoxPoY4NzeXxsb04bHx6IkNeDw0Nv7bTYyHO2Ra8jNmho6ODtGPMePN iD8a8SeDAbhHTyoLY3HB/goaO+6iIjsOV3xvo6osB45XvIkbqnD92jWkFVcg Ntgbt1IKUJwZjcBbUYgKD0FiciR8w/N5YJ3N9hCjZFJduHABGRkZguwMRH5+ vhg5I9xeBonfZYbkQRkJrJkJNNy8eVMQj9vh4ZeXlxsynvRUZSoSZWnk/NdE jFbhYnpmzr0S27a3d6C+Ig32Tu5opuYzYm/COywJf97V4pqjPRJSk+B49QbK NTT85FA43CDENVTA190Z5y7Z45qLC8LSynG3o5065jZ7iLEQPNi4cSMOHDgg JJOkUlCWywnpND5+11gQgIWKed1YjM9UjI/Jy8Ng8vr4+BBZWaK7siwxBA2O /5qJwbLs8+C4hiyMRiwbRvd/IiZuJXzXlafCztEDWhKV1Gg/eIcn4+4dNa5e tkdMYjwuX7mBMvUdGvNtnLnkCj93NzhcPAebc05IySmBRtdsIiSvhyAfY3bP nj24cuWKAIQZm7hRlLNCshfgGwv+Y0nk4ZqI4ZoIYJmczM1Ezk7h/CsDm93H wDU1NeI7dWDEH0xFV48S/pqgrq9DalwAbC9dhaqNeCvxNhzdAlBWlIELF6+i sLgQLg4OSMorRvRNTzhe94a3WyBCrnvidlQYPLyCUaNSU1ta0arogIBl2jAN AwMDGdNSsbFQSNnZ2QwSjZWYmMoYPB4/I10SeGMx1qCgICaiwf1a936Sdmoh HigLBXOxscDiE+KZjBj9Z7Vag/rKYni7OuKaVxBqNE1Q1ZQh4IYHLts5Iig6 FY2ka7PjbuGKkx2uevoit7AEt3w84XY9GOWEsLggP0RnlNKY1DRgyYQo7bP+ 4REp/TK8PGKGPS8vz14oH2P+KIp50GY8QEP+aMgENhQkfDhhTe8jrCLw3QSf PKq3JU2EfLWa4WH70UTfidCNrL0boKGxifd0GoK1Hg2NavreBA2930i44Wda DX/WcrmBZF4kYWOqKL/M00ayOBYWFrIBRmJiIplUMtMyrdjWSKpIDJBeNhSq jceWlJQklBLzwGjx11TgjRFz+/ZtQUumsDmP0og/Ggm7012CmrAs218xqoZ6 fZl4lzpQHnGlHuKvsXiFsU5YJkCJwaiMNQgDz4g0ZSE1YriNhN5hQJm5GOH0 azBG/DUWGpgHTb8Gz4u/xkJrcdtZWVnE2vzXQnzngfKA4uLihKmMjIwUn7k8 PT1dvENiQWxO38jRYTF6RsiShUA0i0xISIiw46wy2BIwcrkef2etyKMzZEjv q28m/AFWL+T5CAIyQYQvIg2D0cGvMC0NWUwf6J55gekRGxsrQGElzD4D04a1 E/O3bJQMZK7tUr/HX+qzwmcb7e7uLobO3CMM6X9SmSsy3idMmIDjx48LyRGW 0lDolr9Czi/Hx8eLygzlkSNH8Pnnn2P8+PFCsviHufFf1WdCMdLY9fz999/x 448/YtSoUThx4oRok03wv6vPGFaklvtl/c2Eo3H/Tf9m99Xnz9wXYd9IVpnc HBPi34HPYDP47B0w/lgmmF/4Of+wI2Ao6hi8LP4TmlPIIWtolfgrlbFhlt7o ZC1mQfITkZmZibS0NB6ZEfM6vUSqQPFTqAdiFgODl+T6DNCaNWsYn9TDzJkz qWzatGnYvHmzEDoT8Z6J3jay0BDQRoJBTQVPcDH77IwH5gNDIfP6Hhi2MWPG CMFcwmaIysrLK1BF46oiULrLZRUVlbIOqjBYIZfxmH7++WfB0yZdWJEH01UO mJcVOZAMn+Bj4X0MkXGk1WjReofJ1CFRkXzD1uYm4y5gMkMx7BZC/xgL1a2T fg0eUcqaOsuG6Mua9GXGXcrk+gY9xV8zYeO7tCl9b2p6pMtjnbYR+UkJyC4o E9aBHpvK2pBbbKytRGpKBvJLa9mYSKbgX0DwYJmuS5npvyqTIBPfzB8y8uFy GSOcidtJoL+KC/M7/RjJ3pQsqV3FZbCo2UuEVc2tWoSdsoblUUfk5mfC3/EE YrLYvGtFCMasr9CKNa2RImVUxrjl52x2mwX0TcKcNgkzSqZbw890cp1nRLmg h3hf+p+5WCeHebomqT63QyGeBB+3x+9r1VCxuZZNcLN4rhVtSGa5GTrqUyai KOfnzSK0pDKCl/w0WYSfkGBp0unf0WibJBjE92aBee5DrdHqo8omKlezq6OT KCipBQpNm3WoI1ES4xWughifPG5j0b+EL61c9mwnzhhOcj94bPpx0Peamlrp s05yWXSy6yIxLfmzwtXpOu4mpV+CWSNzGeGRFI6mNh2rRk7CjZh0cm10UDWo JFeoSSeB84p4vYWab6jMxYkdO7HnqA+aSHIVFlDQrKPmG1UN7Norbq+E3iYt 6usapG75fRlFPER1g+R5CdQIUiuelE5iFWqPvTUu5/Y0Ao1aPWs1MXpU7Kk1 S957ty4cIoHGGGhoUHNzBl/IWGcd+dNPP3WRlb+aNlbednZ2sLGxgZWVFa5f v/6gaZOEJYAQ3gKKsLHmt1XYtmw1xk39DWOnTcIBG2fUatr0EOuFhUbNDFSc FYF50yZi31lP1DbUwf7Aamw4dh43XKwxf9NxJIS6YuEvYzB97gbcTiwkgSQ3 RV2JE8vnY9MFXzjvWI1lx92Q4G+HefNmYNrUX7HtpDN8zx7CrC2nERl4FjPn bERYZCAWz14LH/9grF40Cz9OmYfz/lFwsdqOFduOo1xVj/N712H9MWekJ4Vg xpRfsWDNFiTlZMN67Qys37MXK+fMxxlrB8yfOQu+BEtLa7Ng8PZ2DUIp6AmJ zEJHWy1OLl+MZSu2YNXixbC85IgVs36HQ1A8fM/swJzpkzF/7kJYOQcizOUI fh39E1ZtPIG8igbJH1fX4pLlXuw5dBqnTtojg0zaqc3TsXCrPWqJC5gsMb52 GDlmAmz9kgiHzDE1uLBnKTYcvYT0IE9sWbEZltbHcSMkHnUlsdi2eSmO2Z7D addgJN92xbyFq3Drthf+mLcCN32dMXXBEmzbtR5LVq5CYIgvfp/0C5Zs2In0 vFwc27oE4yb/jqu3EhDrcxa/zVqC9NxYLBm9DMW6NgRfXIrZS1bg5BkXxGTX 4t6fkjuRd/sCzt/Kwr277Qi0s8Xu3U7Q3rsjcb2mDmf3rMMmy8sIcLXDmWOW sDlli+xaScoaq7NhtXsHBcpnYGtzDXXNWrgc2QybwAyEejhg3VFrnLAl3GQn Y82MMRgzaRp++20qPKJzkHrrOtYdPInDJ6wQnVtO+FLDadtaJJSr0NbagvLM WGw4eALHTh6HV2QamgifrNCEsmYJJD6NcT+KyTM3IyGX/NjKTJw6dgTWlofg 6p/INCdz85+JEPN6UVGR8A6//PJLfPHFF3CggJnx08XePC2qBonudSQWEacP Y9q8lVgy5xf0H/QxFs2cgimrNyO9WtKnD9gc+s5oq8DykcNh65+Ku2062O1f jeUHXRDnewZzFm7EsRU/YeXOG8hKiYW/ZygaWlrR2t6CS/NG48ytbMRcWon5 dqHw3fo7Djl74/Sccdh61hvR9jvw25YzKI51xuhtVqgpT8T4H/bC7vABzJi3 HSl5Wbjuewue56ywcfMZNJMpDT24CceszmP/prlYvNcOKbGhuBnojaXjf8EF 3xv4ddQcZJQU4cAP3+JWoQqtTawkm9CqKsH2GZ9i6cnruNNaibnfjMTl664Y N24LohNjMHH8RoQnpGHehEmwcfXBvpVLceTUOWyd9A0ueqUiITgI0XHZ0LV2 oDzVG1+NnInsylpcsdmHXWeD4Gy9EHMvRuNeW7PQijXZkZj23RdwT62j/lrQ 0arBpX2rseKAA65ftMbmHQGoyQ3Bjm2LsWv9PMzc6IKGigzs3PgHnG8GYNG4 tcgrT8CcMcsR5n8SX845iJvnVmPejgPYunIm1h53QWrcbZw+vgaf/rQQMRSZ BQf6Iy7UBV9+twgltZlYNHIZinStKMmMQ3JmARKCvLBh+WEE+3rhjM1prJv9 Pb6Yt0eoh1Cns51iRDzQ+uddhBzYhINWDkjPSsH1S3swduI38MtTkxrqQG74 BYz57Rwa6wqx+5sfEVmqRk5SLGIjfPHztI1IKavH1SOzsflaDIJOr8XGHVaI S45BsI8nfvtjJdxjSxFlvw7zjzujpa0VXqfXYLtLMtBRj2M712KfczRKYq9g 1ta9NBYtSvILUV3fKKWmW++g8PZZjNp+GnU0Pt9Tq7Bwvxeq8iKx+bd5SK9v IbrrDD7/D0VJCRGdnJxEoEahgRCth4rSbWEXK3PCsXzsOOyyPIV1K37BR2Nm 4cyJrfjgo9cwecEZ1BBYLO0PitKdjlosHz0c54Mz8GdHE+wOrsPyI55IDSEL s2ADts/+Br/vd4Kn80VcD04Wbk/b3TZcmvsDzkYUIe3qBiywC0PA+skkjgnw J5Gycg9G/OVtmEiiVJXiSv9bQ9uYhfHf78e57XuwfM5WePi6w8UrGP5OF7B5 6wVwfiTq1BacOH0S6zath8PtUjQ3VqKkMA++HvY4enw5Rn8xH2XaBhz/7Vvc LlajrZldqVak37bDr1Nn4Lz1JRSQSgmyuwDns7sx7NOlyM5Pw6Rxe5GQkoXp Y6fAKSIZV/Yfgu2JM5g//lMccvCGw6VLSMgpJ7J3oCjKAd98cxB3/gSuHFmF Bbtc4G63AVu9coE7LcLZaCxOwtwxn8D+diaigvwQn5SDy0c3YOV+Z7g7WmHz iTD8WZ+MWSumY+qUr7DahWLs5kIsnPMV4cYLS8atQ0l9FuaOWoH8yiycsnKE 5cIfMWPrQaxeuxYecdVoVtfA7dxGjF3viTt3SbPm5SMnygWff7sEZXVZJEpL UaAhtuLZC1JD2cGXseiXyTiwagpWbLfEnmXf4d0Fh1Bc24hbDrb3iVIbvR9l vRnHLl9FtJsdxrz3PY7aXUN1Y7PwyWoKorFu2WYcmj8Xvw6nfqi8te0OisLt 8POGE2gg78d2+yhMsglBO1ljzyM2cPJIhSr/Fias2ISkijbcOjsTw9dbEU7b kRV2A+vn7idXuRrbNsyCY1wtKmPO4ROyyMU11dizeQl8E3KFz9fcdhfFEXb4 7eBlEisNDoz/GufC8tBKVnLZxBFwS6/Dn+SLtpMlY/PQKrI2rey+fvRvpKtr DoVzBiwCixYtwtWrV8XzB9IQknSF0aNWRHodxZazp7ByyVT8TP7BsoXzsWrr Ntg722H33ouoUpMv84ChYs68e6cOK0Z/IaQL9zpw5fgifDxuJhYvXojVx68h wNsS846cwYrffsA220gCoQ0thNE9P3+DnzYfxJpRI7DPLQKnfh4DG49o2M2d iOPOfgg8vRFfTlsBqz3zMHLkHJyz2opRP+1ClKcrDq3fjF1r5mPhTlvYHtmA EaPHYNehyzizfiEOX3BDgPMVnDhxGfs2z4flRRecIJ9nm/VJzJ6xFVW6Ohyb /h1JVyPaOfBpqMDmae9i6hF/pHnbYPvlQJzcuBbnLhzBlMm7UVScjsk/7kNU ZCx++n4SLgVHYe/yNTh3xQ+nbLdhh9VxTBr7M3ziKtFOSlVVloL1s9fgmsdV LJk5Eee9wrB70RhM2OmEyroGEQGoK1Iwd/gLmLfuAJYvWABX0jqntizFxqPu uH55N36ashg71s7BDzPWw+uGPRastYbL6b34Y/56BPo64ttPvsb+/dvx7aQt KCkIwcJph8mnnIy9zh7wveQAm9MO2E0Gbp/lSWxbZY0rjkcxe/FGBPlexLcj l6NUlq4i8vcqClJgZbkPo4e9g5W7PFBdnIiTh53gdXkTFtuFk0Imn9D+TBfp ogCQuPbKhgU4dNEdN86dxa7NlnCjvks1rZLfRQZqNWnVV1/7EAdcIkmjEteT AalM9MA7b38Mq8t2+GPGNNxILKbwowNtNamYOWs3YuPCMfKj97DB8iyWzp0C K68YtJORaK7JwaH963E7qww7Z4zAhNX7cWT7Iqy3vgINSWopOR91FOSJ4Jak qzTSHtMP2qOpTY1dY76CU0wxWmtzsGril8I5yIwPgjfRUUdBdkJ8tJh9yK+h iIsC1g//VsQ605SKAePcEBssToAp08xdc0ODZflqaW9D5W1rvPf9u1hA2mXP KuLpn8fjgrs/kpPSKQ6QAnFFtjjXGuEdhcraQiz9+mOc8k9BfmQAtq+ejnFz t+Kqtz+yyuqga6xFctQt+IZEo7JeLXxxTWMdkuMiEB4RBFfi0eLKGkQHBCO7 qAyJQaFIzylFcU4ajSEWPp4+5CBkIMTnGkLjM4g3dchKJIfS7yZyy6qQl56A YH9v3PAOR2xoIGJS8ylYr0N8RBgCA4NRWF2P4tx03AoJQkx6MRrrS7Dr1y8R KsuWuq4cAR4eiE4vQkluKgJjslBekEZOUyDiUnPQoc7A2BHbERyeSXFKFPKK ihEWEobM8jqKzOnzrSDcik5Do1YOfWl8ZbmZBJMfwpOyoKopwaG1MzFxqyNy CkqIF5pRnxeD6aM+w/X0etSXZcE76BbCg0IQn5KHq1b7MX/BBXj7XadYoJx4 VUUOXTh8vfyQXVJDspCFW0HB8PNwI3zkUJhdj7TYCPgHRKCgvEHgOy4sFAHB t1Ba24ASwmOQvw9is4pQnJ8CH+9Y1BEvLxy1HOXt91AQ7olxn36FncfJoSuo otilGTnxNzH2i7exwPY2+QN3cMv5PMmWo95yMU8m3w4gfBagrqIIMZHhiI5K h5ozCM1tKEl0xUefLEdKWgjm/TIbpbpWKbGiKse66R9j7BqOPetQnZWEG37B KCF5/uGLyfBLLcKFrWPxGcXz8VnFqC0vQSg9L6rIh9WGbbjgHIkYj314/4fx uB6aApVGp4/xOUMh8N/SjnTv45iw6wJ0ZC1dtv6IeVYBaCwKx2zSwUn17FTu w+qttshNCsexPWfh7+WGc8euQE2yQuMz+Od/4CAqmXx2ELmM3+XcLdP/ARMm iVh3tHS0I8fHjWKWTTiw0wqr1h3D2uVzsPm4HTsDUt6nX6eE0cg81m/B7hPW mDVzKtZZWmENRb3L5v1KWs0XrdSLNHqdnHaSVmyI/I9Gq0yUSZkqQkxzkzJp RgqAc5cvy+keOe0jp3+k/I38XSdFSU3CLrcgwP4ELnvdFpk78Zzb1Ork99kN JOInBVPw+RviyhrJLZJTRkqWUafr8n+TWFxSmxeAGT9vIYLXCeZTJvY4lUVt i0k9nZQifLwTMHnVSk7kLexbdghL19mQZm9BcvA1jPhpCo7becLL8TCW2ZyH y+XLuOwRBvsji3H6QgINpKPLQPVJXsajkchWfSmhsutjbefrzUquWJ8dJQOV EYQNW69CpUrHzA9/gn9aIZpVVbAnd/Trb3/EBmLG+uYOin7VcF65GGudYtHa WArLLeuwarsLmv6UjFbHnaYuOG7V56WllF4TVKUpOLx8H25ct8fqVdRmk0xb jixLYrFn2yaccQlGWWUpzu9cRc7BT/hu7l7k13GUX4gzR7bi4BkP5Bfk4uKh lRj54xiM+upr7L7sT/2p4XP5EFbtskUiCZ9Gq1M4UgxXq4Kf9U4sP+oKLQ25 LDMEh9ZsgqPdIWy/EkLebxtC7G1xkLxvP08XHD4ZifqsYOya9TvyNPfYbv0n YqWYLWW+nmcZlWnBB1LmQ+TEo5hZ1qiRl5tNGrYa+empSCFtrhOzxVLzXaY2 UF9Xg8qKSlRVV/Hsi5g1qa6qQGVVLQ/aYJAMJjNgXTU9r22gXqQ5oEZVPVly 0kwqDT/vLr+qUVNxcQkaVI0GveVMvk7TiJK8LOQUVogsSy1P9lCXFRXlKGdl UVuPWmq+hv6vJ/e7hrp5VF4JoVbV0MirKVyrQchVF4Qn54hMtlrVQEqmUsKK WiNEX6OqRU1dI+orCuHr6Y2IhAIh65Ix6hyCqTwEhqWxrgr5uYWoU2uMFXCZ zdQNyMtKRzEF/jqNCiUU7NYKn0WeVNBpUJyXgdyiSqga6gyk6T8z1NY36G1f dUkeMvOKiCI6ibZ9iTs1qONAV6NAVE4cWErIpiCovQn+F22wZ58TAjyv4uiJ cNQR2+ycNRVFTfdYA/0nbMMTi7yAhpfsuLq6wsXFBTdu3BDsxFBJE4uCbZ6R 8dAkJ97kWSpjubhr7EA1jRhfUncyGoQb9LS0eIW+ddPPQkpqjQZJXtgDZfSt j9y+0GD6iQqtsbwsTye3LaPxMbmOks8X2UKqqZFz+0ouX6vpzPfr35WmUaRp FQGjmX7SQyvLslY/VaXVdoVHmd7SKnOCOqVhZQbNSP9Ar5pk1urTZQJGqG65 XV4nqMKlwzuw9YQHipNCcHzHEVx2voz1O6+g+W7bf2xzeebVx8cH586dEzlN XrXElObpAl9fX56VVaaPu069KvNkrrId5vGU5GYJNm1q0SIrJQ7hYTEoZ/dU q/1771qChBda8IoB7tnPzw+hoaFiQQPzGi/c4CVGBKmygqErJKNHjxaryNzk ZSh//nmPtNqf+jWEHA/Tt4/kVUc8EfcwCHhph5ubm+id190w9/P6BV6awb5/ VlYWQ0MQ8OKe+ya6x40bhz/++MNAhXnz5lHZ9OnTMWXKlL90wTPaPPNy69Yt MTBunrtlzaNMMxcVFVEX1GFnF8wBPIHDS1kaeS0nlTE0CqcYyyRQumBqMlV5 8Ql/5zUJYnkWhRcCf4bco7yaYFCXTu6f/u9kEZ7+Z2Lw9D/n6pSlT8pqVI55 DAWjPHyFAi9o47W6PAgGhtWAEkbJy2OV2f2/rc/ZDZ62Zwbi5Vbcr7xYU67/ 4OqSzvq8+ofxzaRUlrQw3WSXUl4a89/WF5Hf/+/1v5X0G3HDMf2nr//3zX3d RSHy3CW7BOUVVWIRGmmMIzK71VBxWXkFFxt89d/31kThSmN+OMZ++hKGfDQa gZl16GhtOqQAo2sWU8XT334VTw8dgYDUMp5kHfG/77i/IkTE1PwKL9oUqoFD BdntVX6bm3lNHT+TVr9wLo3rtPCSLcWcNYv57NZWMZdvpAyLV5CLNzstSzOv ZO3aWAtaW4T/avJgLc4mcqPSBL2iNBhXDdmhGDa0B0yfeg8hWSrgbrtUpbnZ WLZFYt5cboUfSQuzpFE3NUsjaNLp9CuHONd6f6/NnUMxve+x1JPiVvLiebkL PeJ0YrJYxoYybAnRYi18k74dZWWBjFDZiBrr32cTbirTWSe/p6ywUGBSFuZL hBRgy7A9Is3Ht8jDkv/XLw/Q6vTEVMqUlQm8qF8rTfPLxLcQZUqfrfJzfr8r 2lqkONOgE2/N9+Gt6+qLZrmtJsW3kv1SiZNaO9HfX4Q9SrHipzyEwpKkVCfh x0e6w8DwdfgkV5DSlZmjpStoFlJXgv1a9P939YEESuXFKcpw7iel1J7iM3ai s4XLH845LfLy1U73SeGmbvL7SvMKSM16DjDuMuQmPVf8L6S/XxcTWl9RhNgY 3pJCBs/gWd6egti4BJRWqdDR3qZfdlOSk4Lr7q647uWLHApyirLiERkVg4Tc UjkQboaqMg+JsRGISkxHbaPk5rNzXVach4jIaKQXirXjgkmzU6Lh6XYNXn4B yC8tQ256IuISsqGSljcZKS4CYay+qhDBfl5wc3fDNVcPhMSmokHXwsGk9NrH eqXw/hBzdBv6PrxiMxAe5A2PG96IyyoR4siLc5pa2qBtqEZ0sD9cr12Dq7sX 0vPL0N7RJtR9YUY8oggDZTX1epHg9ERlSRb8vTwlENyuIyIlBxp5LwwjuaYk jcIuVzg5ONFzL6TmVKBNsLAOFYWpiIqMQH5JueBjjq8y42PJQUlFNTmbra1N KEyMwg3yJq/7hiCrtBLpaSmIDA9DHmG6oqyQsBeF1KIKeSNFFxOlUyM/NZna j0RReRU/l9jxQ8ErNaXZiI0KR1YBp3w1KMxORXRsPAopeI0JC4SXlxdCwzOg plC+SaCHQFbXIDzYF1ecneDsfA0hBKamlXweERqqkJcWg+iYOFTVq0Uw0lBV hgQCLyklHxpSrA0UgQb43IC7x3XEpWWhoigdsdGRAmWNTDVNA6JC/clxdoKT iyti0vOFTyXSytRPZVEmvNyvwsHJGR4+gSirVRMqSfNo1cjOSEV4dDyKqxq6 rF97Q6BCTRFwWmwMYmIJtga1Eq+gsZbgI3RHRYahsLyaWOHvWKADmqpE/Niv BwyoTY+wZIQF+MDN4waik7OE3ClZllaKF5KjQ3HtCo3B6Qr8bkWjXtssVIyG ovWkBOovKQ01UoJAT6rc1ASEBAfhdkwGRe5aJbOiFdnwWmQlRyE2PhE1jRrB OcxBFfnJ8CI5Yc5y8/RHbmkD2oVh0aG2qkRa4c5bOrRypN1dVl4tKCNq+3i6 iZnrG363UFrHzNbFQhLxKkqQEBGFlNRiaPRq+L9SKs2tHYhz3oU+PXtScz3p 7/P45xejsdUxCDrCcWHcdXz06hCYm5vD3MICr7wzDG8/14vfxIrzQVLzd1vg tHkS+lJZz56DcDFEWrZ/t00D2z1zxbvfr72Ce+hAhLsVnhv0qGjPgtp746OP 8NJTvfH4kAlIr29iLSG5MW0tKIkLxtSPX6H3zIl3qAZBbdF/CKYtO41KbYuY NhRWT1Yn/3yuDwzM++O9d15GT2rb3NwCfYb8ExevR6P1HlCbH4PFE75EbwsL qTkLDHntYxxypcettdg06gkBqpVfglDlrR2tyLx5Fd+/PrgLCC+i5+OvYN1+ dzQRVlNvu2H4m/Sc0SN+LTDoHx/jYkAC7tzrgN2az0Wbi49dhq7tHjQ1Kfjx ib5U9gH8MkgEvKzxyYCeevQ++8GnePrJR+j547C8HoGrNqtF/c9W2KGlo1W/ jlBL7NvWUo7lw14Rz9fZuhEp22Xr1hdtRG1/yyni2S9r9pPnW4P1k4eJ72+8 +zb6UV+MfoueL2DNvqtQd9xFY3kyNkwfzqiThjoQFgOexqxVl1Cja4euNgtz P2UKPwLnmEKxYCvp+mk8SU2++P4ylJSnY/ZPHzOqxHAGDn4Wn7z9tOhyxOLD qFdV48DaaZ3Nm2LgP97EOvsQNLV3IC/KDZ+++5KM5e4CG8N+WYqIonqgtQJT fnxfYGWvazJ13SYJY28pi5pzG58y7/UmyOIK0dbMk+F3kOlvhUH9qLzXK3CK LoSqOP5++veW6O8WiyYV0YVeNSAn7N23XpfZxxwDBv0DuxxDhafQpKnApR1T 8Fj/nlL15wh9ffHdpD3IqWyBpigYrwwh0j71OfzSaoTDwbMHhaGe+OzRPhK6 n/sN6WVqfSqbvY2GvHBMeo2gfHwofLPr8Gd7M8K9LuGfLz52H1u9+s9RcI/O xh2KasM9Dgm8Dh23G7VNLV0cmx7Cp0sMvIz3hz7ZWZ+R+fUiJObWC2/ESN4z dOdPln5LDKS23hq+EbUdd1gCHwzQ/8d65VGhV2Idt6G7kQFMLfpg8JAhGDJk MPr3sYCRsQm6PfUGzgVn4/aFZTAyMkSv18bC1sEeMz96E0aGBjA2fRP+aeXS VtX6fEwf/gJBzbt4f8eY1ReEa8D6xWbX71yKEctd0NqYgbEvPgFDqv/Mq+9g 5fI/MHSgBXgT8IBBY5Bep+gXHSllLc5vnARTY0P0f+YtHD3vCKsti/E4DcR0 wMtwSihHR0vTffrlw+f7Ul+GMO/zIuYtmI9hLw4gt9UIj3w+F1lV9TizfTrM TIxhNvQdrNi+F9NG/xPGRsZ46eupyKquwpbv+glYj3hLq2Y7dFXY8ftwescQ z77zFc66XMPeuRNhTn08+tp3SCgqwKK3XxDPn/zHa1i1bhU+ff5pGp8Rhrw5 HmkNzbBf9qFoc9bBC0LBaKsT8cMjbBNfRzC5NbbzxsKYnj///te45HABk756 S+DD4oVPEV6ggovlQlH/w9nnhMJ7UMEsfvN58Xyp1RU06RXMh2hlBXNwAkzp 2ehle9DQWIXV494Q7xoZDcDEmUsx4dv3BL7MBn2AwLRK+FjPRTdTYxiQjfhl /irMGv8pujG+zYbg6PVUtKty8cd79NzYHJei8iUNQ/ZiALX57LuLkXL7Ap7u Q897vYjNJ+ywdx7hinBjYNAHBxzDkeZ3AY+bmdL37vh5+krMnzxc0KfbkHcR nF+CTd8PE7gc8NRH2LBlDV5/qgeMTMwwcfdFsRx34vdvirZ2OyewipH9lRGy jgnGRybEgd0Itsh8oWN4W0bQyT9gQfA98cV85Neo/p4HviHJL0rGz6QJBE4G DMX0JYvx6QuDCUbiwZfeQ3RpExmc4xjYncfQE+//Ohcr5oxFfwuSB5NumH/M H9riEDz3JNG3LxmQ5EqhZdrvtSHUZgd6ERz9nibcWLqhWtW574C1TH1eGMa/ SLTp8yQ8M+vQVJGKcUMGCll79o33sWbdCrwzqD/RzgRvjJiHUm07It33C3oO +nozaZmu4RhLOU8NF2D2c49Jbbw+Hnu3rcTzT/Yi+TbDlD1XxZRzbnamtDm1 pAgeR9ajB9Pyrd+RVFrD6eb/WtOskTXNdphQy6+PX4ecshqqWoYIj7N46fE+ ggNGTFmP62fXidH0fHs8IsmBKk68gSHmxD0mwxCSVS2yhdmRzhhKxsGg1wD0 6WWC/k+NREqNFmhnTTNd1P9mtRuKws+inxnVfeQtOIdnEvg6+J7fLlHgAU3T Qp6kr8NRTJwwATsOnYfrVQdsmTtVcLVB30E4c6sId1qbHvBkelNfj2LvxVCS uhYk+xzG4N58gMHrcA+IxIqxr9HzbvhhgwMqayqQGhMGW2tLnD7vjMKyYmz8 rn8XTUNevLoajlbbMGHSVBw+5UTRwiWsGDdSUKPPy5/C8/plDGLJ6j4YtuT+ 8MKarGAnvN3PGIbmA3HydiGurv5EtDn74EW9plG87xDSNDbTx4jnL305DXGl 9cgNc8ILfQnfLwxHYrGaNM0iSdPM+RtN85asaayvoaX9jjQV/pGI8VnZ3FSU zXJSNuRKrB73phCkEX9YoZ6MRG1WCN5/mYZt2Be7bdyxbPgg0dzoNefQwLsn KjOxctxbos7IqSeg1hZhrqxs7BRl42GFgVTnOVY2YZdI2RDKez+PM55x0FRn Ycyw56h+L5xwioDDkblCkb70xRQU1LegOisS83/6DB//MJkczhv44AVW9hbY bXcTrW2t8LVcjS8/eh/Ttl+gwKwCk0YyLH2xR1I2Smyk6JpPhK6xgGNcMe5Q 9TsAAg5ORHfq8sUxK1BUXIwVY155OBdcuIK83Bj89GgvoUdW2fhBRwKWGUIU HWBC7fbHiZsZODfrY4GiV8esRm4NeSXEJdarfhBlLwxbgZLiW3iRdc0jXXTN 3VbcOrOdbJQB3h2xBjVt7eyH65NrXVVN3ydxI1uFnMBTMCUVYdLvVbjF5PLu NcRcs8JTJvTOwBfhnV6HeK+Dkqr5Zgvq7lM1UjZJXZuJhePG4OvvRuFaZJY4 6cL16AJR56lPVyA3PQwfv/oUnh48BM8MHozHuncjTqD2jU0xbOoWlKmkxJXR f6tvruv1DVvV96ZuQ7VaygvyAkS7zROFTJk8/w08vK5hzBtPoHs3Mzz51HN4 841X8Ah5Q0akb4JJ39whP89x6xTBRJ/P24IFkz4ikHtih1MK0bpZr2++Xe1O KLREHzNixv4TkJjPG2ZbkR5+Gb3/om+0YheYpiIPq/+YgFdeGCr8v25kFY2I m14ftgCJZSr9u/pEzFBzmA59nzyGBnSQvmhpyMK4QY9Q/6+IpcZzRwwRsPR9 /Dm8/NprePWNV/Hee+/itQ/G4kpwAraOHiieWwYkkyw3i8xEbV4ipv/8PV58 9imCoQdZfhMYmvXBV78ewe1rh/EIkd/g5ckCHpE9qy/AqrEvUTs9sGRXEK5s +Fy0Oe+InaRvapIwpp/k2filVSHb7xLefn4QeZc98cQzL+Kt119Gd0PWZ58j objxP9Y3c/bYUuxSTexQivy8YpRV1qDl7r2/KJxVY8m7Me6DLW5p5KO34l5H DZaNGCbaWLR9J8YNfEx8tvZNFOHjvT+b4bl3mSgb/ste1KuLMXeYiVA4DrFS /JTiaY3H6Pkzb81FaU0eVo56G316mKH/gCfx+ltvYVDv7kJJHHe4jdNbJoi2 Pl56GR13pPE0qtQU2jWjKj0QLz9pBoN+78EjoZK8W7InGg0a6hugIk/grq4U E77/9wqHnIz1Z9wQHRWOW4EeGD/8FdHlK7+sR25+FmZ/8fTD2eCf4+Dk5YPx T/YU5sAnpVLK/VZnY9E3j9KQB+C4Xzz2fPK2hK7DvIbyDtra25Dobo3+VDb4 zT9Iad3CS4OIxAM/QmBWjV7hhCoK56v1qKVYsUn3twrHK7cR0RfXwYh93H8u RLGqSQreShMx8m02D4/C2iUN8f5HJOUxZjsapVyR7NuSnGtUKM7LRWp6plhC yT8h9hvE+48+MwkJsX54/XEzGPZ5HCNG/4qP33lWPOtm3gtTttigStVlMuJf 6xpm/L/VNW8/oGu2C13DGarm9nvI9DqEQT1Jhvp9CI/INPhfOY91S5djxrhf 8P2XH6KXomsopmxRZeGXZ1hGzXDkegzcDkuyMXzCDjRRDHhmd6dvkxd0Ar1M qd1BIxCW34A/6V+Kn43wVxRdIyXhiTgdzQi4tFvSL6bd8cb7n2LMzz9jze5j CInJQoNGyZ5v7fRtniWrZD4Elyj645+GbH8MHcB8/pI48Gbp6BcFLIOHfYcp s1dg6s/vk5dvRNR9FQ6hqdj+w6Pi+fw9HiKrAzTBfvcCmJF+MaNIc9gnX2Ac +VpbjtgiPqsSmf7W6MW684mvxHgY3ZriJPz6OnGDSR/sd0/X+zaTtp1DC5na 1ppkfC3rGp/kctSVZuPapVPYsGwhJk2ehG8/e1fo+b4vD/8f6RpzirOHDHkZ vXq9Qr8DMXLxQajvsGV/QNf8/Kag1fzDPuAhdjTkYOKwZ6jMFGsPnMW0VwaI 9lbYhxHrUAMdapxd9Yso+/qXA6QTijFnGDk3hj1gE5wjDgVK9rBGX+F9z0YF Z3X9XLF36wbM+XUSfhr9DTk7kq454RSGCwdnibbembgFmrt/oo0cFh8na5wk //J2RADeeJb8apOncCkkg9c+oDzZhzyP47D3i0WLpowiqft0jcGDyuZTjgJZ YnqYizwG54xMjI2Ec7Vqnz/atCVY/N0/Hs4Hj7yOS/6BmPAER1L9iJ+TBI9q CmMw7nkLGJj1x2HfJBz+8R1R//sNp6DtuCc20AfbrhNxwtDX5qAwPxQvPkW8 2GMoTvuxzeVW7iDi/G4R0Q37Zisa793rVDYviqRDY2EUJrxEAdkjg+BfqEPS lZ2imx4v/IqMWuk8rJrUILz3GKn6PkPgGl2h9276vTsRKRVqsZ+hSc8iOjRr G3B67ST0f/Qx/LpgA+wuWmPch09I7vTPO9FQW4DxHz2GHo+R6SN2DHfYL0z/ Sx/MQyGvp9X8dVEFaxte1MCnRfBxH7wYhMuV9a7sXf9Lz6aLtmm9i8KQUxjM 7vDjH8Phmh0+feJxPPvmxzjrcxv+jofRlzUGaazgfDVyvC3RvztFR48OR1Bu A4pC7PG0OaHsuU8RWViL8/v/EEP7auUVaMuj8FZfnv4zwVc/L8UVBxt8+/4L +pxNJunvjIhA+ASGiXkNX9v1EiqffU3k/F3P7sBbr72Mj7/9GSm1TX/xbJSc zXOvT4TDlauYNfZjkR8yGPglbqUXYO+i70R7L38+FT63bmPP8l+E7XjsjS+R VlGFrd9LkZRZ96cxfvJoOBAcF7bOFGXPffAVbsWnwmbvErz4/D8wZvpSFJel YcSjPaXxjFuHsKhQ7Jn9NboZGaLbgLfgT/hwWvGRqN/r6Vdg7e6HSztnop8x 4+9VeKfVI8vHEq+Stv7HS6PgeCMe3mfW4THyliz+8Qni/wfaxrR7D/Tu1Qu9 e/eEOUWrn8/di4YO0jaHJj4klDJA737vw/KCBw6snooeQhofh5VnPE6v+kYy +29+DUe/UFy13YNnB3YXntrkQ35oVxeQtjER77z+9UT4hgaSBntP0HDo63NQ SdZn+nuv4PFB/8AGK0ckRXhh2POPifDosFM0Il0OCokz7vY4dp9whf2xlehr 3h3dezwF68AYzH//eUHDNz7+A95+Xpj0xbPo0aM73p6xi8Zc3altXLp4NhM6 lQ17NkSOF0ZNxpJF8zF/1jS8PFRy1l4YtxMldbXYveCbh7LB429+haS8JIyT 0zaD3v0Kl12vYc2YEcLAGvR+Ag4JFbhtu0i8b/LYy9hDKAy8fgH/fElyit+Z cwYqCqWeH9xPtPHYs2/ju/Hr4XU7HIfWS6z08nuTERCbBRUvXJEXDqtrS3Db 4yyGP0H99OyPXY4hyI71wlssWkY9MO6PvYiICsSaXz6AMbF0/398heTKZkR7 HhBtGlLs8/KwUZi85CTyGzT6VfetzRqcWTdavGNi1k2g0sTYEMYDX8VJn0Qx tZZCzkV/QyN8vdIGkdes8QjD+OFSVLW2i+MXHraEi3e78DpOZ2dneHh44Nq1 a2K1Hx9WxIe3GIpztR6qbYZN24Ea3vzP+8tIEweenCVslcFTn+FmZAzWfDkY hkbGMCdfvyfFEsxZg1+ah/z6Ouwe/7n4/so43m53T2z6+WAwST29v/WiP07t lHybTxfb4d49irl2/g4zzjCbmMG8Rw+RETQQ2uYn5Go7YL/wI7z0yfdIq7uD 6jQffPcixS1kdyx69YYFcaURfR4+4yiq5XXckrbpQENWMN56SpKC7uZmIu4y NTGWfZVzUFEMkxtpj09f7kl+mSksyO5172ZK9udJzLfyI7JQPPFBN8Eijw7s DxMTE4zb4468MDu8PdBAZM179e6NHhTaGhla4PdtV9F2twXep9ahh6mUIbTo aSFlWE3MMWO/M/kyHTg35y0BQ59+/dDD3AI9uE9m7bf/QEqVDurCMHz7IWlc IxPCby8aYzeBz2FjKSZpbILjsYX/kbaZudMauXkFwthkZJCxKa0i/+wefHb+ JPkli7aLOaDV4yR4THubk4TTr5kEz2e/zkNBQxtKIm/gm6d7CPrxvIV5Dwme dz6fj6QqwnVNBqa9bCDw9MiA/mJexYxFnJhy5IKz0HU0wnbetxQLGgr/ohfh RNCYfOGrtwrJt8vG/J8/EfW7dTcnfJqJ/j/4ZgnyGlsRf+0oBg/sLVIH7Jfw DIGBwVAcvxoNtFdi7PCXRNZlm2Psw7SNiKO6W8A2Igc6tQqqRi3Sg2wxsK8h ucjvwzuJQs0Yh4eywQJrf+gakvFVdyPJQPQhchEbmQk2MsXn84+K3ciqkhQs ZKXIyW0aogWJBE+iPDF0FHzSqqEtvIkn+5oKNhjY14hYYwBmTf6WJN1MnxWx eHkGMsqlqahmYs28gON4ZmAPoUkYNd3NH8MZjwi4HF4i0G9C7n3PnhKqjSnQ Wm3rJxZIhl7dIWC1ePRR9DI2hkn3zxBbrtEbYg5Fr1pJYfA/J63E9nWrsH7z ftyMTheHr4gjxXS1ODhnBMzMBmPO1IlC27xK2qb6IdqG18qydrG1tcXZs2fF ql7WPMoqXi6j/2kEJSUlf42kRJb41/XIq6hHbX0NMkM88N2QxyUl/NUklJA7 Xl0QB+sDm7Bw4UIsXbkaO/eeQjhvKdTVwd35HHbs3A33kEiom3mFlAq+l2yx b+8euIclIiroKtasXY9z7vFiKYqmvgLXLp7EsgXzsWLdThzcuxTPUF+PDBqL XE0jdn9H0cA/PkJYXiPutDchM8IDe7eswvx5c7Fo6QocOu0sbcnTJ69G0Odm qKvycfn0Eey1OgtXTwfs3rQKS5atxonzjiirldDPh8lkxgaQl78Os2f8gRWr N8HGPQjVGl4t2YCb54/hwMGzCAr0w9a1y3H4WjhFdRrE+V3G1nXLeLUxlqxY h5P211FSq5Z2Aanr4HXtPJYtnIvfp/6O2fMW45SDJ2pUOnH+TyLVPXTgGLx8 fWF5YCeNYz7WbTyIkNg8kYNkDZ+fFoVDuzdj0aKFWLFyDQ4cO4W4rFLcu9ME Ozmp9++0zaz9F1EpDhZjMn8IFT3PDHLBFmKvi163oGkow8qxb4mMzbwjF2Gz fxMWL1qCXQdPILWoSpzvw1n77Dgv7N2wDDN//x2/z5yNjbtOITm3WsCpaaiC 9/mjOGZ5AT5+ntiydgXmz1+MfYftkVksnfzZWJ0P94uHsHTxIixevgIbtx3A Na84NMjnF1UVZcD62F4sW7wEy2is+4/ZU/tVktjp1IgO9sAmgnnxomVYu2kn HNzCUadpIl6rgcuF41i1bgeC4wt5JYjBQ1WNGUV4ASlig0xNbTW8jy9GX452 KVxxuc1rdZr/hgeaoW2sgMtJ5oGjuH7dFTs2rSUeWo69Ng7IrVLJBw01o7ow Aaf2r8dswtFv02dixfr9uBVXAF1LKzTV2bA5eRgnLzoh0Oci1i1fh6s3XLH6 9x+FQzTkpe9h6RRE/KHVr8epL03H8c1zRUbBuFcfzN9qg4x8wom6Bq4Op7Bo /mzird8wb+EKOHiHokErnT9WmBaGffv2wdE3AO52+7Bi1QFk12n0oVRbWwvC nQ8IX/KXbeeRmpaM+Lh4xMUlILtY2tHT3NaO6kR/vPd0b5iZmgrV9sa/UDWs Tk6ePCl2urN64ZCKLRyvq2eVY21tTaqGT4WWVU1/varhqW/jHn0w6Omn8dRT g/Bon54wMZSMyfpzIeRntUrHTmk1Ysl6A+/a4aOnmnVi+Ze0kY4Ff5A+UpQ2 vjThTpsGdpYrYP7I45i0zx1t7dIaIxZ7FTlFalIRRVFueJnd9ifHIk9Tg+Xv PQ+jJ96BX0oVaWXplE+NRoU6PvyR+mZSN+uU5Yvd5F0v0p49tVol4NM1dV1h +ZyowyvxamtqKZTQKAtKBfxaeVNgM/fTyPUbpWiX3tGoG8Qhglwm2uiyyJUP pFI11KGmuga1fBaW2IioLHiVcdAsLTGrr60Tm6w6l2n2k8664mcyThlmFvcO Pu7miKxeZp976HqaBW9JSYcevfsa48knnzToReQbgssJJYggF//ZAd0wa7sV 1KoqrPzpVfJR+uKwVzY6WnUi16oRJ+UpoAwW2UmNWiUfhlgLtUxCrbTdU79X kYfMKKqrb7hv/6DynI8rrZeP/+pEsVZYAiY5990gSCj2g3ZmHqVm+QjTRo2G l36IKnd0ZZg/7Vt0e+IVnPBJwd2OVhnkxzsnu+UUTb/HnsDTxMFPPz0IfWRX 6ZFP5iKhvFEsMvxbDtBo7+cAQgNxmVEnfGbSaWjEKbUyeng1KQ1Bemwu7zqV iK2i0bfeacctm83SnNUnq9Bw525ndmaAyM7U5QRh5CAD4S29MuoPhCQViNWk vNi7geI85ine0S821up3PWk7j4zT6cQ5sGqNVlmTzZvss7xtMVhE1Obo06cP RdS9Rd7q602XqalWKaxqb4XX8akishaJm3fnUbjU0UWrmIp0L6d/jx07Bk9P T7EPx0icQm+i3/nC2x1tbGwMOX5SlIqFpFSu7IA5efqGBobCRev72EA8NfgZ fPLNrzhErmONVgxKnEioFSuUdWKNzGkxk2SIr1c7ol2aOZDJ3UOsXy6O9cC7 FGH0eWYS8hoqsPj9F2DQ5zXYR/PcY+dCfG2XPTyPdFmUrJSZP6TMRKmrbFOT IVO2tinvSbsye1J/Olw+tkRg8KPlFwn7XYW0iaIkgm/YK+jx2GN4atAgIyGk FqRfn4I5mZILMUW4dXQKulH1H5fvo3i6Fmsnvwtzk0dwzCtLDEd0LxRrdz3A nYAMlHmT16bztMnEkW+Tz9wPe68mdrr70ur+2pxb+Jxdd4oIDQ0lmnTr9hgG DXoeX/4wC55hWWQjWwyMH4KXXg8AYSa8p8L4cBzbtRcXnUPIu2zuXFptITIC zapSnNv6K3p249T+AFi6xQm2UzSngmALGfWsfiozI7F2zmRMnjrNiI9IpYeT J03CDocg/dmOYt1tVS42zZ2Mb74fhfmrLVHDcybaTnuoHNXKh9ayXVS2z3MZ 7y3j/Vr8c/HiRcICWc3OJabcfH1VMRIS4omV4uPjSRBS0tKQlpGJwpJKaOVN CH1kIWFqlJfkIZZMd2ZBpbzZUmISdUM1MtLikJSaS7RtRF56CuKS0lBJdoTq fd6licqyAtFERlGlfOqnwolqFGSkITEtjZpNo7/mYitbZb0KtaU5SIiLRVYh L9HVoCg3A8nxSSivUXGbryrNaxuRk5VOzSehpLL+vubVqjpkJiSIcUqjNUFi Io02LQslFdWs0ofI5NHvD2CD2Lmjhu2uqrYSyYnsuiShrEqsbu+rdEAKvZow XlVdTR1U019jQYG6enFQiX7zA2/mrK/hixjKUSG2SWv1C4aZmrzF7/Tp0yIh zCu62RxzKoe35PLzTmqyj3PfLgR5D4e8B0k6G1XZl9Rf/6Tlgb1KxmLaqO2B ss6tMK0GnytlrUpZC0krfTKRT/CXNnK08gudjba2KeUGb3bpSGnU6CFlDwP8 1Ye811cpa5Mu2mAoxKneAipSgl1Gqd8GomCIEcxRKiOWI2X2R1jJ8/ZCnoTi nwsXLhCCraysDGSNKp16r2yLZo+To1tzsTmzl9jZybs5GRaWvFOnTompRP7O dbh5nlbkSYi/aZ4h492w69eTQz97NjjK6yE2lvbG3LlzsWzZMnFOBkPMXRDx haBzFzwCPo9GOTpa7kLuQexSA3fQS8xl9tRj4u/aYaXx13bu22P4YHVGMlfn E9UfqG7w7+ozpv6b+l3B5/p/g+n/qP5Dhv//vD6fzfB/A3/Maf838Pe/6V/h 9P83+KdI7yH1WZDPnDkjBJlXCXal//2CTNbxb+ormpbrM/wcP3I7LGb8c/78 eapvaWn5kPq8r1mhH9fndtiLVKbyOuuTX3lffXN9/4cPHxaJeFY+rCV4rzXj gGERd5b8dehKCMzOKoPPOX5WSnwqFaOUFRE3s3HjRgPZW/1LfdY0fPUMh+1k TMQWJt79zpcPcDt8nj49o/oUVD+kPhskvviATwvYtWuXQANvkOG2tmzZgu3b t8v3e/z99m7eac+sw2dLcCh/8OBBMSaen+Dt4ry5/68H4Hee2K4cCM7ajVHG 6JNR/+8vD1DORmE+Ebt85L343JhyGZB+bzgR5xn58hFWsUy3aHH/lOQYMP/y Wlrlxgb5TGtDccI+Vf/kk0+e4T/U/QcffMBHBojzDjhbynMyjDc+gYBpwIaF 8Ur0pO4DAgK4PvX1rHzBFac2eI8/n4lgwn9NmGwG0ikARl3u05EtqIQu2UJz OSNVeU+5UUracyC9x2UPvqdsC+U3fuC/gn2viO9UUbm5o0HPxIwgvgmBhYEp SeXd5NdYNhlfzMDMbCxDzIzM79SE0hq3pIgjz5DLN6wo63N+kK+p4le4SP9b UUFQ86SWKX/Wl3OPfIDEqS53hXAX0n06/NdYuXxGvCGBId1AQ1RT7n7hwxBY WBloZiJOOMl3oyh3xFBDnXWYmfgdpijjg+swozDzybNv8pU6Uh1+n0FlaeaD Exh/XIfXCrB0Ml75He7ne1HncT1s/Cw1JRWZ9H8mX1WSlIhMgou/Z/AvwcFw MxaV+2vU8knkavkOncZGtXB+xeH2av7cbCTzBR9XowxRf90ZX0UjyqTz2KXD gzT6K2q08tnuyolYOnomTgAQyTQpocb1NcI75jYtRNJNgCEnuKTraySwNGoJ ZHEGvLrRYJZMOR4O62BWVWZy1M7oZiXIck3PJSLLtLYQyGViMs2ZuxV/kzU/ E4Zrc6ss80ZdCMrE4EvVuFWWFKUej45VLxOOOUciqInQBuwbMvLFeS8sUFK6 genMp52wvDBSR4oqn4kq7OcVUrlWXB7QDBXRsik+VnSlJv5p4rtZSEgZnEaZ AFXF2UjKyBF3/khlKmQnxKGgrJqisxokRYYh5FYAPK77IiFLOjCIyyNvB8HD 3RNRiZlQUX+qukqkxsahukEtzuRLTklDDUVxhRkJuHHdG5EJqQR3CBLzKHyj KD4x4ibcPW4gNCINKmqzuigbN29ch4fPTSTmlouzrtLjI+BJ2i7gdhQqqmuQ kRSLUgrdqujdyNhU1KoaZ8qyyBRhTDM22biwYSHjYCqCHTNxiD0fZs92hpEq E0nCNyGckd9LNMJKhbUpaxCWD+WUMylt1yBki+enmHHYRhnJKkUhGbMAf9bq mdNUf3MX041lkjtV6jHOuQ4/Y9p2Ckpn6MDPSReMElU+E1klVgXZJJL1pCbL /PzR6OaKjptXob7thVLXa9DRUNqoej6/Q9zJSdXsMHdYO3igpr5RuvZJUwuX 4wfgF5sNdS05Bhs34tQ1b9x0c8K+bdbIKKlCmLcjDpy6iKBgP5wkQ+t6OwP1 fDT6vgPIrib2yYzEKdtLyC7Ixrndm2F3xR+Ol2yw7IANUksrEG5niz3bj8CL YAwMikFFaSYO7t8Lq8t8dI4/IpJIn4dew/bd++Du7Qvfm0HIL8iDg9V+ROfX oCwnAV43w/lI1JkyxphK7K7xCUTyVWIUVUoSwhTii5E4TmMKSvfXCaUsrrGT D9li08AH9yj3BTKGFD3OhGJlxzfjMTNIhOS6kt1g88v1mQH4DBsj0Yl0URVb clbazAjSGX9cr6dgIGYaVsb8Drsbii3hNpnw3CbnEKlspKj2mXgliWS6LCMd DdwlIbP1pgPuhDqh2uUUsk6TE+lzA+q0FCHTQqE2t6AgxhsX3G+KcxhbxHEX KridPo6gxHxoG8iDO3ocubVNuNtcDw87G3gGhcLuxHGEppSL1SIZIVdx+AQz SgHOH7NEQUMz6vJicd7eSWxHcT9zBM6ewQh2tcNZ1yDoGitw7NAu+CcWi90A vEA3+7YT9u69gGqdfLOFtgb25DVeDsoQEzuczmisLcEV22NIKCbUF+YgNjoZ 9RrdTDF86QYXNpEsz0wRxhSJkoTUHkKqpNvbpF8mImOBT6XiaR1JhsSKOBMh qiJHJ3Q4u04sVKwtmMbMTqxQlbu57O3thdGTBFW6VI75gtmK9b9syOkZ368l 3T/EVoNdUp7AllxJrtdT9MmuKR+zxO+wIee+uE/um9viNpmdiZ++F9WGC9ao IT0SFxmBHEcHNNmdQ0egC1ARgtZkH9S626E5whV3IgJxp70DBYVFgl94SqIg zgd7d27BCfKOTzsHolZdh2unjuJmfA7hPB/nDxxEUnEN2jQ1uHbuMK763yT6 H6bnBSJXk+DvgIOW7qgipXB6734kFtWiJicWp23tkF+tRk15IWKiIuDneIYU ih/p/hIc278dN6JzhF/A0xqZxKM7d9miTKUV9kjTWAm7vXtwwTdRGGI21vVV RXA6fQRxRQ0oj78FNxc3VNL7qoaGGQIN0qWb7Cox5tmZY3eFVbB0Yx7fkdZN YJTLhCtD6pUxyVIoJUhEIEHswoqWEaT8cstMaw6FWF7pM9FM8gVYFpnzeNEl 52S4B6qvsAKLOgPEnjfbXL6kTapqKoBkV4ACOEFySX1I9ZgV+EAvZmh+h10O pR6zBrfFz3kArNVGinqfC3vC4GSlpaMtMQytQcQPUR4ouHEFBd5OuJfpiQ7/ K2grLRESoPBBXpQXrM47Ii0zG5k55C9o6+BqeQyBcTnQ1BXCdssGMpJn4HTh NLavs0RmYSViQjxw5JgNsbIrDlKQ6RtHfl9NHmzIOFjanoHd6ZM4ftYTFapG ZCdFEA68YWdtCVvXUDTq1IhwvoR9u4inyDfwuxmDqspcWB49iJPnHeB+/QbC UwqQEXEDu/fth+NVN/gHhqC8ohhOtkcRW1SPvEg/im6uo7qRL+RpMJghX9PJ 5GKyUEgtcMciRO6UCQcKRuKAMlNRxuLNV8GxeEv3S1J95frEHkLzdlUciuvM /oKjo6MghpG49stMeGvMITxnzORkBaPXPz1FM8wBnEJnAWbFzkZBCevYgHA8 LJ+9plRj+8PE5gieD8xj3aFU4yZ4cDxIDs8JOskWfC46TybeyuWbPq86o+y0 Jao97FARdA2Z9jaoczyFVjLSrakUL+Rki8EJWxDthXOuJKOaJgGxRtuIguR0 lFbUQ11fCDvL44iOSURwQDBS8sr4HApxbGZ2bJQAITW7UJpQUNWiIDsX+dmJ 5AyEILukWkz41JQX4HZwAAJCI1FcXS9dkKVTiQP9/EmvRMdmEV80QVVVjEjy I33J1qQWVZIO0CIvIxn+ZIaj4pNQr2qgttPEwoLsKB9YnXVDVWOTuE9zhmwQ GH4WY1axLLYc0ZIMCeGRPHhRxKLJ8/uylAvEi5jeUKTXeWEZ2wduTbq6i/9a CI3LyN+/f78wxKxS5PBAGIxDhw4JrpIC+s46rMg5D8FswlLKbMOOBfsmTGTm A0n+uY65cCCYLzggkLlY5DR4RKxs5Mh3pHj9c6FsYsnbyyDQGrJyUGR/Ee2k +O+mekBFRC88YQlNeYXIGilZKJ4czov2w15Oi7hJSzfjsvIQ6ngF0WlkKKpz cZqGmVmlFpO+0kWg9fqJZREsNjZ2lqmlIE8r9ihJ12w2qBqlozDZ+ddfvdkg nBCtOAy68f73KEJTy3UbZcnT8MWr1cXwu3Ye6aX1Auajp1xQUsO+WL2B4vIp F6gqC8I4L2csUlzdhPgx+vl/fsZMK/tXEplk0hPJBelZQTATScqBiWkuWIFJ e+nSJUEavo6XU0qcbmE2YFjpTSlG7yGortzeyNTk7vfu3SsyUcx8nIUxeyAH wP49Jx35UmN+l+uwrmcO47YYECmWe0KgKFHE4Nloqq9DY1AA7pYWoN37Kloj QtFCZK5JThEkL5SnCBiltZVlSE9JEtyUEJ9AMVwVikgXlFRSG3XlCAkMEqgl 0hoMUQKnhjrkkdtTWaui+iXIzi0kWWycLcfI4h46+ba9bvLEmCKGUpRLf2UM i/MiJTSLwEroaz5SU5yLJF2izZhkc8aMr1xyLF3AwvPI/E53BR0CvawdFS9d 1ttm8muMWSWyYqvHr8qyw+U/iNd6itbZsBYU0MDKy9BAv9rWNtREx0JNyNHx 6Udq6ZY5asZIprHwpZULEvnUV3GZnFYkFZSExjPy/buKaEj36wr2N1glI5Dr Mw7YR1DMkLjRWCh8NgTSwg+dhDORlbDgT8J1Ndd/GiO3p9zFziZKb6joe0Wp ZH2UA5vpvctyNkGZp+bOqFP57mQj+cZsRiEzjJK74Azmcs7jmXJC0wgdd+6Y 8Cc7kdszFZlPfo/f53osR0bydcyG/wcPbCl6\ \>"], "Text", Editable->True, Deletable->True, CellFrame->True, Evaluatable->False, GeneratedCell->False, CellAutoOverwrite->False, ImageSize->{300, 103}, ImageMargins->0, ImageRegion->{{0, 1}, {0, 1}}, CellTags->"reiss"]], "Graphics", Editable->True, Deletable->True, CellFrame->True, Evaluatable->False, GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{{3.397243675794462*^9, 3.397243675794511*^9}}, TextAlignment->Center, ImageSize->{300, 103}, ImageMargins->0, ImageRegion->{{0, 1}, {0, 1}}, CellTags->"reiss", CellID->1269257538], Cell[TextData[{ "In the code for FibonacciReport above I used ", StyleBox["DocumentNotebook", "In"], " to create an in-notebook representation of the document. This can be \ bypassed and you can go directly to the independent notebook by using either \ ", StyleBox["CreateDocument", "In"], " instead of ", StyleBox["DocumentNotebook", "In"], " in that code, or by making use of ", StyleBox["CreateWindow", "In"], " in this fashion:" }], "Text", CellChangeTimes->{{3.3970719915115747`*^9, 3.3970720570349197`*^9}, { 3.397072091935719*^9, 3.397072126566307*^9}, {3.3970722066041937`*^9, 3.397072207142229*^9}}, CellTags->"reiss", CellID->1888415071], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CreateWindow", "[", RowBox[{"FibonacciReport", "[", RowBox[{"\"\\"", ",", "54"}], "]"}], "]"}]], "Input", Editable->True, TaggingRules:>{"GUIDTag[271893431295356405659745720635276656571]"}, CellChangeTimes->{{3.397072167634717*^9, 3.397072174311998*^9}}, CellTags->{ "DiaryDate[{2007, 8, 25, 23, 9, 26.135018}]", "EphemeralGUID[132981457390815806172353705508813252627]", "CellGUID[156856140359486789821956718486605652951]", "reiss"}, CellLabel->"In[12]:=", CellID->931279284], Cell[BoxData[ InterpretationBox[ RowBox[{"NotebookObject", "[", PanelBox[GridBox[{ { TooltipBox[ ButtonBox[ StyleBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "ManipulatePasteIcon"], ImageSizeCache->{13., {4., 9.}}], DynamicUpdating->True], BaseStyle->{}, ButtonFrame->None, ButtonFunction:>FrontEndExecute[{ FrontEnd`SetSelectedNotebook[ NotebookObject[ FrontEndObject[ LinkObject["ParentLink", 1, 1]], 67]]}], Evaluator->None, Method->"Queued"], DynamicBox[ FEPrivate`FrontEndResource[ "FEStrings", "NotebookObjectToTheFront"]]], StyleBox["\<\"Fibonaccci!\"\>", StripOnInput->False, FontColor->GrayLevel[0.5]]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], FrameMargins->{{4, 5}, {4, 4}}], "]"}], NotebookObject[ FrontEndObject[ LinkObject["ParentLink", 1, 1]], 67], Editable->False]], "Output", CellChangeTimes->{{3.397072252212563*^9, 3.397072270269767*^9}, 3.3970864021952133`*^9, 3.397087096437437*^9, 3.397127991329108*^9, 3.397128035224619*^9, 3.397135535894524*^9, 3.397218112666934*^9, 3.397241130681573*^9, 3.3972435643973494`*^9, 3.397243710840926*^9}, CellTags->{ "DiaryDate[{2007, 8, 25, 23, 9, 26.135018}]", "EphemeralGUID[132981457390815806172353705508813252627]", "CellGUID[156856140359486789821956718486605652951]", "reiss"}, CellLabel->"Out[12]=", CellID->1578181003] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ CounterBox["Section"], ". ", ButtonBox["Possibilities for confusion", BaseStyle->"SectionButton"] }], "Section", CellChangeTimes->{{3.394817955799521*^9, 3.3948179719893427`*^9}, 3.395938698890296*^9}, CellTags->"reiss", CellID->1424432778], Cell["\<\ There are simple approaches to translating from the document programming \ layer to the lower Box-oriented layer.\ \>", "Text", CellChangeTimes->{{3.395074097535644*^9, 3.395074097815674*^9}, { 3.395154671651341*^9, 3.395154671727463*^9}, {3.3971427140344973`*^9, 3.397142714304639*^9}, 3.397218785862179*^9}, CellTags->"reiss", CellID->780983099], Cell[TextData[{ "For those users that are most familiar with the low-level functions that \ were available for document programming prior to version 6, there is the \ possibility of confusion when combining these with the new interface layer. \ For new users though, this will usually not be an issue. But it is important \ to remember that, generally, ", StyleBox["Mathematica", FontSlant->"Italic"], " is using Box-oriented expressions at the lower-level. " }], "Text", CellChangeTimes->{{3.394817980556602*^9, 3.3948180892330647`*^9}, { 3.394822992641354*^9, 3.394822993402465*^9}, {3.394824135780335*^9, 3.394824136424699*^9}, {3.3949792431116858`*^9, 3.3949792447517443`*^9}, { 3.395065643976528*^9, 3.395065647750534*^9}, {3.395065801949703*^9, 3.395065828789215*^9}, {3.395066613639277*^9, 3.395066656409474*^9}, 3.395068816359536*^9, {3.3950688488198147`*^9, 3.3950688499955273`*^9}, { 3.3950688917572193`*^9, 3.395069056794435*^9}, 3.395074116735136*^9, { 3.395075876751902*^9, 3.395075926023362*^9}, {3.395078422283823*^9, 3.395078433722719*^9}, {3.3951566023811893`*^9, 3.395156604366747*^9}, 3.397218787337862*^9, {3.397242362754677*^9, 3.397242372851738*^9}, { 3.397242449923183*^9, 3.397242462817898*^9}}, CellTags->"reiss", CellID->294003090], Cell[TextData[{ StyleBox["NotebookWrite", "In"], " is still the means of adding material in to a notebook; ", StyleBox["NotebookRead", "In"], " is still the means by which material is read from notebooks; ", StyleBox["NotebookFind", "In"], " and ", StyleBox["NotebookLocate", "In"], " are still the means by which material is found and selected in notebooks; \ and ", StyleBox["SelectionMove", "In"], " is still the means by which on navigates around within a notebook." }], "Text", CellChangeTimes->{{3.394983627268639*^9, 3.394983741965364*^9}, { 3.394983778648827*^9, 3.394983847385377*^9}, {3.394984210221384*^9, 3.394984228541972*^9}}, CellTags->"reiss", CellID->880041589], Cell[TextData[{ "The place where one most often has to make a translation is when one wants \ to programmatically add new material to an already existing ", StyleBox["Notebook", "In"], " using ", StyleBox["NotebookWrite", "In"], ". In this case one will often have to use ", StyleBox["ToBoxes", "In"], " or ", StyleBox["MakeBoxes", "In"], ", and there can be some confusion here." }], "Text", CellChangeTimes->{{3.3950675412180033`*^9, 3.39506763988387*^9}, { 3.3950687437309513`*^9, 3.3950687456155863`*^9}, {3.395075956136426*^9, 3.39507599333471*^9}, 3.395078436660301*^9}, CellTags->"reiss", CellID->1643984328], Cell["For example, this doesn't work:", "Text", CellChangeTimes->{{3.3950676489022617`*^9, 3.39506766061209*^9}, 3.395067755935996*^9, {3.395077970476169*^9, 3.39507797127631*^9}}, CellTags->"reiss", CellID->919998394], Cell[BoxData[{ RowBox[{ RowBox[{"nb", "=", RowBox[{"NotebookCreate", "[", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"NotebookWrite", "[", RowBox[{"nb", ",", " ", RowBox[{"Row", "[", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], "]"}]}], "]"}]}], "InputOnly", CellChangeTimes->{{3.395067691553499*^9, 3.395067703783971*^9}, { 3.395067736819172*^9, 3.39506774880894*^9}}, CellTags->"reiss", CellLabel->"In[13]:=", CellID->1808235315], Cell["But this does:", "Text", CellChangeTimes->{{3.395067758127061*^9, 3.395067759695285*^9}, { 3.395077964789583*^9, 3.395077974843519*^9}}, CellTags->"reiss", CellID->1969850508], Cell[BoxData[{ RowBox[{ RowBox[{"nb", "=", RowBox[{"NotebookCreate", "[", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"NotebookWrite", "[", RowBox[{"nb", ",", " ", RowBox[{"ToBoxes", "[", RowBox[{"Row", "[", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], "]"}], "]"}]}], "]"}]}], "InputOnly", CellChangeTimes->{{3.395067691553499*^9, 3.395067703783971*^9}, { 3.395067736819172*^9, 3.3950677738816957`*^9}}, CellTags->"reiss", CellLabel->"In[15]:=", CellID->1669585804], Cell[TextData[{ "So, the general principle here is to convert to Boxes when making use of ", StyleBox["NotebookWrite", "In"], "." }], "Text", CellChangeTimes->{{3.395068435573111*^9, 3.395068454642254*^9}, 3.395068679200864*^9}, CellTags->"reiss", CellID->1660842115], Cell[TextData[{ "There is however a case that is not covered by this. The following does not \ work (the content in the resulting notebook is, internally, an ", StyleBox["InterpretationBox", "In"], ", not the simple ", StyleBox["TextCell", "In"], " that is desired) :" }], "Text", CellChangeTimes->{{3.395069685792101*^9, 3.3950697118627872`*^9}, { 3.395076020265852*^9, 3.395076027888022*^9}, {3.395156718781682*^9, 3.395156782051792*^9}, {3.395156817362496*^9, 3.395156831701589*^9}, { 3.397242542601552*^9, 3.397242542841599*^9}, 3.397242592101919*^9}, CellTags->"reiss", CellID->819431032], Cell[BoxData[{ RowBox[{ RowBox[{"nb", "=", RowBox[{"NotebookCreate", "[", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"NotebookWrite", "[", RowBox[{"nb", ",", RowBox[{"ToBoxes", "@", " ", RowBox[{"TextCell", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}]}], "]"}]}], "InputOnly", CellChangeTimes->{{3.395067691553499*^9, 3.395067703783971*^9}, { 3.395067736819172*^9, 3.3950677738816957`*^9}, {3.395069719435644*^9, 3.3950697263683167`*^9}, {3.395156674763118*^9, 3.3951566779477797`*^9}, { 3.395156754069504*^9, 3.39515675578948*^9}}, CellTags->"reiss", CellLabel->"In[17]:=", CellID->364726613], Cell[TextData[{ "Neither ", StyleBox["ToBoxes", "In"], " nor ", StyleBox["MakeBoxes ", "In"], "is appropriate for the translation here. What is needed is either an \ automatic translation mechanism added to the behavior of ", StyleBox["NotebookWrite", "In"], " (and a proper design for this should then automatically translate things \ like ", StyleBox["Grid", "In"], ", ", StyleBox["Row", "In"], ", and so on...), or a function, perhaps called ", StyleBox["ToCellExpression", "In"], ", that acts on ", StyleBox["TextCell", "In"], ", ", StyleBox["ExpressionCell", "In"], ", and ", StyleBox["CellGroup", "In"], " to translate them properly so that they can be used in the second argument \ of ", StyleBox["NotebookWrite", "In"], ". Here is an example of such a function (it is limited here to ", StyleBox["TextCell", "In"], " and ", StyleBox["ExpressionCell", "In"], "):" }], "Text", CellChangeTimes->{{3.395069741608487*^9, 3.395069967430829*^9}, { 3.395076034721024*^9, 3.395076052593948*^9}, {3.3950760892260313`*^9, 3.39507611567463*^9}, {3.39514404542035*^9, 3.395144068964799*^9}, { 3.397242550210628*^9, 3.397242552082573*^9}}, CellTags->"reiss", CellID->1041856153], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"ToCellExpression", "[", RowBox[{ RowBox[{"z_:", " ", "TextCell"}], " ", "|", " ", "ExpressionCell"}], " ", "]"}], " ", ":=", " ", RowBox[{"First", "[", RowBox[{"ToBoxes", "[", "z", "]"}], "]"}]}], ";"}]], "InputOnly", CellChangeTimes->{ 3.395070027280167*^9, {3.395076077432425*^9, 3.395076078110353*^9}}, CellTags->"reiss", CellLabel->"In[19]:=", CellID->2042189480], Cell["With this, the following does work:", "Text", CellChangeTimes->{{3.3950700344041023`*^9, 3.395070043137517*^9}}, CellTags->"reiss", CellID->1994944006], Cell[BoxData[{ RowBox[{ RowBox[{"nb", "=", RowBox[{"NotebookCreate", "[", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"NotebookWrite", "[", RowBox[{"nb", ",", " ", RowBox[{"ToCellExpression", "[", RowBox[{"TextCell", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}], "]"}]}], "]"}]}], "InputOnly", CellChangeTimes->{{3.395070027280167*^9, 3.395070055299664*^9}, { 3.395156787006844*^9, 3.3951567887450027`*^9}}, CellTags->"reiss", CellLabel->"In[20]:=", CellID->361728231], Cell[TextData[{ "In fact, there is a function that is deeply buried in an internal Context \ that is used by ", StyleBox["Mathematica", FontSlant->"Italic"], " 6 to do this sort of thing and which uses the undocumented option ", StyleBox["StripOnInput", "In"], ". (As with all undocumented \[OpenCurlyDoubleQuote]features\ \[CloseCurlyDoubleQuote] this symbol should not be depended upon for any \ future version of ", StyleBox["Mathematica", FontSlant->"Italic"], " until it is officially documented with a usage message.) Here is its \ definition (with the context path removed):" }], "Text", CellChangeTimes->{{3.39514239103648*^9, 3.39514242902427*^9}, { 3.395142461454763*^9, 3.395142583924803*^9}, {3.395144084189583*^9, 3.39514410300739*^9}, 3.3951516151973553`*^9, {3.3951568805611143`*^9, 3.395156881952756*^9}, {3.3970603756166143`*^9, 3.3970603941673326`*^9}, 3.39708403920993*^9, {3.397242609814158*^9, 3.397242630216597*^9}}, CellTags->"reiss", CellID->835188888], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"cellGeneratorToCell", "[", RowBox[{"a", ":", RowBox[{ "_Cell", "|", "_CellGroup", "|", "_ExpressionCell", "|", "_Text", "|", "_TextCell"}]}], "]"}], ":=", RowBox[{"ToBoxes", "[", RowBox[{"Append", "[", RowBox[{"a", ",", RowBox[{"StripOnInput", "\[Rule]", "True"}]}], "]"}], "]"}]}], ";"}]], "InputOnly", CellChangeTimes->{{3.395144013137024*^9, 3.395144017757515*^9}, { 3.3951441218490953`*^9, 3.3951441422418747`*^9}}, CellTags->"reiss", CellLabel->"In[22]:=", CellID->1508743492], Cell[CellGroupData[{ Cell["The document programming process", "Subsection", Editable->True, TaggingRules:>{"GUIDTag[72566927237134755996451302420912843290]"}, CellChangeTimes->{{3.394983659266671*^9, 3.394983662618428*^9}, { 3.394985340684154*^9, 3.3949853457235327`*^9}, {3.395154749345447*^9, 3.395154775377936*^9}, 3.397218789997157*^9}, CellTags->{ "DiaryDate[{2007, 8, 1, 19, 0, 8.377153}]", "EphemeralGUID[109346866622881853789270765968074496413]", "CellGUID[252375054833933336754919121150289864273]", "reiss"}, CellID->1154931214], Cell[TextData[{ "One thing that is important to keep in mind, and which we have seen in this \ review already, is that when functions like ", StyleBox["TextCell", "In"], ", ", StyleBox["ExpressionCell", "In"], ", and ", StyleBox["DocumentNotebook", "In"], " are executed, the result appears within the environment of an Output Cell. \ Because of this, what you see in the output may not be in quite the same \ format as you might expect. Thus, the process of designing and debugging, \ for example, a ", StyleBox["TextCell", "In"], " should involve using ", StyleBox["CellPrint", "In"], ". Similarly, if you are working with ", StyleBox["DocumentNotebook", "In"], ", you should use ", StyleBox["CreateWindow", "In"], " to check the final form." }], "Text", CellChangeTimes->{{3.3949853481355257`*^9, 3.394985475752055*^9}, 3.3949856959942093`*^9, {3.394985837894101*^9, 3.394985842363864*^9}, 3.395058517375543*^9, {3.395066038420416*^9, 3.395066126422988*^9}, { 3.395069132091*^9, 3.395069200694189*^9}, {3.3950692665771217`*^9, 3.395069266977104*^9}, {3.395069669035211*^9, 3.395069670766666*^9}, { 3.395076153101001*^9, 3.3950761911944513`*^9}, 3.395078440833604*^9, { 3.39515471271207*^9, 3.395154729633564*^9}, 3.395156917314211*^9, { 3.3972426872053556`*^9, 3.3972427058147383`*^9}}, CellTags->"reiss", CellID->1971712112], Cell[TextData[{ "There is a good argument for this behavior of the in-notebook \ representation of a ", StyleBox["TextCell", "In"], " or ", StyleBox["ExpressionCell", "In"], " within Output Cells: they are creating inline cells within an Output Cell \ and, therefore, will not show all of the attributes of the cell that they are \ representing. However, the fact that ", StyleBox["DocumentNotebook", "In"], " does not fully represent the form of the cells that it contains is \ probably not what is desired: the output should be drawn as if it were a \ mini-window inside the main window. I expect that the future development \ path for this will be to have this behavior. And for later versions of ", StyleBox["Mathematica", FontSlant->"Italic"], " I expect that fully formatted notebooks within notebooks will appear. " }], "Text", CellChangeTimes->{{3.3950692062539587`*^9, 3.395069352963269*^9}, { 3.395069399986692*^9, 3.39506944983432*^9}, {3.3950695007979317`*^9, 3.395069637893333*^9}, {3.395076205715201*^9, 3.395076226435902*^9}, { 3.395154787208454*^9, 3.395154788746801*^9}, {3.395156958442174*^9, 3.3951569691398973`*^9}, {3.397242744341486*^9, 3.397242745143169*^9}}, CellTags->"reiss", CellID->562894429] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ CounterBox["Section"], ". Some User interface elements" }], "Section", CellChangeTimes->{{3.394578724658581*^9, 3.394578742935974*^9}, { 3.395155957812799*^9, 3.395155957867403*^9}, {3.395865644221471*^9, 3.3958656527144527`*^9}, 3.395938689106024*^9, {3.397071740189328*^9, 3.397071740811439*^9}}, CellTags->"reiss", CellID->1918222644], Cell[TextData[{ "In a way this review cannot be written linearly, though the constraints of \ linear print media require it. There are two topics that I want to cover in \ brief\[LongDash]user interface elements and ", StyleBox["Dynamic", "In"], " functionality\[LongDash]which are intimately intertwined. I touch on each, \ but their real power is in concert with each other. And, in fact, my touch is \ very pointillistic and I expect the reader of this review to understand that \ these bits and pieces and others that I am not covering\[LongDash]in the \ unified system that is ", StyleBox["Mathematica", FontSlant->"Italic"], " 6\[LongDash]are examples of what one can make use of to create a \ document-oriented application driven by ", StyleBox["Mathematica", FontSlant->"Italic"], "." }], "Text", CellChangeTimes->{{3.39707253335178*^9, 3.3970726863360043`*^9}, { 3.3970748035309277`*^9, 3.397074955064797*^9}, 3.397083952615958*^9, { 3.397084082550263*^9, 3.397084088013983*^9}, {3.3970841261753807`*^9, 3.397084152446642*^9}, {3.397133475808332*^9, 3.397133497424684*^9}, 3.397218745035659*^9, 3.397219845428368*^9}, CellTags->"reiss", CellID->850109243], Cell[CellGroupData[{ Cell[TextData[{ CounterBox["Subsection"], ". Palettes" }], "Subsection", CellChangeTimes->{{3.39707175557207*^9, 3.3970717606690702`*^9}}, CellTags->"reiss", CellID->1890147749], Cell[TextData[{ "For the purpose of this review I am only going to exhibit some of the many \ user interface elements that are new in ", StyleBox["Mathematica", FontSlant->"Italic"], " 6 in the context of accessing multiple documents at once. " }], "Text", CellChangeTimes->{{3.395865655112608*^9, 3.395865724444993*^9}, { 3.3958657860492973`*^9, 3.395865786894545*^9}, {3.395962589044224*^9, 3.395962589969824*^9}, 3.397082565617301*^9}, CellTags->"reiss", CellID->1543468944], Cell[TextData[{ "This simplest way to do this is through palettes, and the creation of \ palettes in ", StyleBox["Mathematica", FontSlant->"Italic"], " 6 is very much easier than it was in prior versions. A very simple example \ is to create a palette that allows you to access the set of notebooks that \ are currently open. " }], "Text", CellChangeTimes->{{3.395865740341243*^9, 3.3958658266320267`*^9}, 3.395962593164021*^9, 3.3970705855529203`*^9}, CellTags->"reiss", CellID->1627569695], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"CurrentlyOpenNotebooks", "[", "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "allNotebooks", ",", "names", ",", "buttons", ",", "pagewidth", ",", "notebookData"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"pagewidth", "=", "100"}], ";", "\[IndentingNewLine]", RowBox[{"allNotebooks", "=", RowBox[{"Notebooks", "[", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"names", "=", RowBox[{ RowBox[{ RowBox[{"CurrentValue", "[", RowBox[{"#", ",", "\"\\""}], "]"}], "&"}], "/@", "allNotebooks"}]}], ";", "\[IndentingNewLine]", RowBox[{"notebookData", "=", RowBox[{"Sort", "[", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"names", ",", "allNotebooks"}], "}"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"buttons", "=", "\[IndentingNewLine]", RowBox[{"Column", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Button", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "10", ",", "Bold", ",", RowBox[{"Darker", "@", "Blue"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"SetSelectedNotebook", "[", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}], ",", RowBox[{"Alignment", "\[Rule]", "Left"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"pagewidth", ",", "All"}], "}"}]}]}], "]"}], "&"}], "/@", "notebookData"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"CreateWindow", "@", RowBox[{"PaletteNotebook", "[", RowBox[{"buttons", ",", "\[IndentingNewLine]", RowBox[{"CellMargins", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"WindowTitle", "\[Rule]", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{"PageWidth", "\[Rule]", "pagewidth"}], ",", "\[IndentingNewLine]", RowBox[{"WindowSize", "\[Rule]", RowBox[{"{", RowBox[{"All", ",", "400"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"WindowElements", "\[Rule]", "\"\\""}]}], "]"}]}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "InputOnly", CellChangeTimes->{{3.397070907494301*^9, 3.397070954571937*^9}, 3.3970711900966673`*^9, {3.397075231800232*^9, 3.3970752351263733`*^9}, { 3.3970843139620667`*^9, 3.397084353165715*^9}, 3.397084393904776*^9}, CellTags->"reiss", CellLabel->"In[23]:=", CellID->811587289], Cell[TextData[{ "Note the use here of the new functions ", StyleBox["Style", "In"], ", ", StyleBox["Button", "In"], ", ", StyleBox["PaletteNotebook", "In"], ", ", StyleBox["CreateWindow", "In"], ", and ", StyleBox["CurrentValue", "In"], ". Functions such as ", StyleBox["PaletteNotebook", "In"], " can take on any of the options that the lower-level function ", StyleBox["Notebook", "In"], " can, and in the function ", StyleBox["CurrentlyOpenNotebooks", "In"], " I illustrate some of these. This emphasizes the point that many of the new \ document creation functions in ", StyleBox["Mathematica", FontSlant->"Italic"], " 6 both define a new User Interface Programming Layer while also \ maintaining a bridge to ", "lower-level", " notebook programming options. The advantage of functions such as ", StyleBox["PaletteNotebook", "In"], " is that they take care of many of the options settings that needed to be \ set at a low-level in earlier versions of ", StyleBox["Mathematica", FontSlant->"Italic"], ". Also ", StyleBox["PaletteNotebook", "In"], " is properly integrated with functions such as ", StyleBox["TextCell", "In"], " and ", StyleBox["ExpressionCell", "In"], "." }], "Text", CellChangeTimes->{{3.397070963610426*^9, 3.397071031554678*^9}, { 3.397071204752653*^9, 3.397071207226955*^9}, {3.397071291007279*^9, 3.3970714584811563`*^9}, {3.3970716253558483`*^9, 3.397071685032946*^9}, { 3.397071717477866*^9, 3.397071718202765*^9}, {3.397072380951386*^9, 3.39707238159236*^9}, {3.3970841947985153`*^9, 3.397084258867402*^9}, { 3.3971335779736977`*^9, 3.397133578117433*^9}, 3.3972187464178534`*^9, { 3.3972210367275333`*^9, 3.397221042793738*^9}, {3.397221076941087*^9, 3.397221119891892*^9}, {3.3972423613632803`*^9, 3.397242378725423*^9}}, CellTags->"reiss", CellID->1678924126], Cell[TextData[{ "This palette is also an example of a mini-application that allows you to \ navigate amongst your open documents. A more sophisticated version of this \ would use ", StyleBox["Dynamic", "In"], " constructs to continuously update the palette as documents are opened and \ closed. Another alternative might have the buttons contain, rather than the \ name of the ", StyleBox["Notebook", "In"], ", the abbreviated contents of its first ", StyleBox["Cell", "In"], StyleBox[",", "PP"], " or a wide variety of other possibilities.." }], "Text", CellChangeTimes->{{3.397072385136271*^9, 3.397072463487825*^9}, { 3.397221135363555*^9, 3.397221221512912*^9}, {3.397221875612995*^9, 3.397221887702355*^9}, {3.397239411330595*^9, 3.397239418501568*^9}}, CellTags->"reiss", CellID->996809070] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ CounterBox["Subsection"], ". ", ButtonBox["Menus", BaseStyle->"SectionButton"] }], "Subsection", CellChangeTimes->{{3.397072764225133*^9, 3.3970727658721724`*^9}}, CellTags->"reiss", CellID->577343610], Cell[TextData[{ "An alternative approach to the example ", StyleBox["CurrentlyOpenNotebooks", "In"], ", is a menu (base on the mathematica 6 function ", StyleBox["ActionMenu", "In"], ") that you could embed in an application to access currently open \ notebooks. Of course this is the function of the Window menu item in ", StyleBox["Mathematica.", FontSlant->"Italic"], " But this is a prototype for accessing particular sets of items, whether \ they be open notebooks, PDF files on your hard disk, web pages, or other \ items of very general sorts. And the concept that ", StyleBox["Mathematica", FontSlant->"Italic"], " reaches out to interact with all sorts of documents finds a simple \ expression in such examples. (I comment on deeper expression in the next \ subsection.)" }], "Text", CellChangeTimes->{{3.397072768535268*^9, 3.3970729676019382`*^9}, { 3.397074046878728*^9, 3.397074185814747*^9}, 3.397133627043007*^9, { 3.397239436483101*^9, 3.397239480824679*^9}}, CellTags->"reiss", CellID->1082936124], Cell[TextData[{ "One example of this is the creation of a pull-down menu that accesses a \ list of web locations: a bookmarks menu. It makes use of a special form of \ ", StyleBox["NotebookLocate", "In"], " which will open a supplied URL in your system's default web browser." }], "Text", CellChangeTimes->{{3.397074157110045*^9, 3.397074265586131*^9}, 3.397074354447287*^9, {3.397074477212994*^9, 3.39707449608556*^9}, { 3.397076623651814*^9, 3.3970766624203873`*^9}, 3.397083954804408*^9, { 3.397239496836658*^9, 3.397239508004681*^9}}, CellTags->"reiss", CellID->1672389969], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"WebBookmarksMenu", "[", RowBox[{"favorites", ":", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"_String", ",", RowBox[{"_String", "?", RowBox[{"(", RowBox[{ RowBox[{"StringMatchQ", "[", RowBox[{ StyleBox["#", ShowStringCharacters->True], StyleBox[",", ShowStringCharacters->True], RowBox[{"\"\\"", "|", "\"\\""}]}], "]"}], "&"}], ")"}]}]}], "}"}], ".."}], "}"}]}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"ActionMenu", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "10", ",", RowBox[{"Darker", "@", "Red"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "10", ",", RowBox[{"Darker", "@", "Blue"}]}], "]"}], "\[RuleDelayed]", RowBox[{"NotebookLocate", "[", RowBox[{"{", RowBox[{ RowBox[{"URL", "[", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], ",", "None"}], "}"}], "]"}]}], ")"}], "&"}], "/@", "favorites"}]}], "]"}]}], ";"}]], "InputOnly", Editable->True, TaggingRules:>{"GUIDTag[62581705998093497311351646198794537002]"}, CellChangeTimes->{{3.397074285625607*^9, 3.397074298085297*^9}, { 3.397075404302424*^9, 3.397075407295477*^9}, {3.397089391570333*^9, 3.397089393024703*^9}}, CellTags->{ "DiaryDate[{2007, 8, 25, 23, 44, 44.178075}]", "EphemeralGUID[330657316232363890092195357434516815028]", "CellGUID[6416295400522099258338142283236678982]", "reiss"}, CellLabel->"In[24]:=", CellID->1592237047], Cell["And here is an example:", "Text", CellChangeTimes->{{3.397074303902319*^9, 3.397074328211136*^9}}, CellTags->"reiss", CellID->934323662], Cell[BoxData[ RowBox[{"CellPrint", "[", RowBox[{"TextCell", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"WebBookmarksMenu", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "\"\\"", ",", " ", "\"\\""}], "}"}], ",", " ", RowBox[{"{", RowBox[{"\"\\"", ",", " ", "\"\\""}], "}"}], ",", " ", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", " ", "\"\\""}], "}"}]}], "}"}], "]"}], ",", "\"\\""}], "]"}], "]"}]], "InputOnly", CellChangeTimes->{{3.397075362778368*^9, 3.397075372196517*^9}, { 3.397086316374145*^9, 3.3970863306025343`*^9}, {3.397086988150079*^9, 3.397086990966282*^9}}, CellTags->"reiss", CellLabel->"In[25]:=", CellID->777360370], Cell[BoxData[ PopupMenuBox[Dynamic[{"ActionMenu", Automatic}, Part[{Style["WorkLife", 10, RGBColor[0, 0, Rational[2, 3]]] :> NotebookLocate[{ URL[ Part[{"WorkLife", "http://scientificarts.com/worklife"}, 2]], None}], Style["Wolfram", 10, RGBColor[0, 0, Rational[2, 3]]] :> NotebookLocate[{ URL[ Part[{"Wolfram", "http://wolfram.com"}, 2]], None}], Style["Wombats", 10, RGBColor[0, 0, Rational[2, 3]]] :> NotebookLocate[{ URL[ Part[{"Wombats", "http://en.wikipedia.org/wiki/Wombat"}, 2]], None}], Style["Wikipedia", 10, RGBColor[0, 0, Rational[2, 3]]] :> NotebookLocate[{ URL[ Part[{"Wikipedia", "http://wikipedia.org"}, 2]], None}]}, #, 2]& , Evaluator -> Automatic], {1-> StyleBox["\<\"WorkLife\"\>", StripOnInput->False, FrontFaceColor->RGBColor[0, 0, Rational[2, 3]], BackFaceColor->RGBColor[0, 0, Rational[2, 3]], GraphicsColor->RGBColor[0, 0, Rational[2, 3]], FontSize->10, FontColor->RGBColor[0, 0, Rational[2, 3]]], 2-> StyleBox["\<\"Wolfram\"\>", StripOnInput->False, FrontFaceColor->RGBColor[0, 0, Rational[2, 3]], BackFaceColor->RGBColor[0, 0, Rational[2, 3]], GraphicsColor->RGBColor[0, 0, Rational[2, 3]], FontSize->10, FontColor->RGBColor[0, 0, Rational[2, 3]]], 3-> StyleBox["\<\"Wombats\"\>", StripOnInput->False, FrontFaceColor->RGBColor[0, 0, Rational[2, 3]], BackFaceColor->RGBColor[0, 0, Rational[2, 3]], GraphicsColor->RGBColor[0, 0, Rational[2, 3]], FontSize->10, FontColor->RGBColor[0, 0, Rational[2, 3]]], 4-> StyleBox["\<\"Wikipedia\"\>", StripOnInput->False, FrontFaceColor->RGBColor[0, 0, Rational[2, 3]], BackFaceColor->RGBColor[0, 0, Rational[2, 3]], GraphicsColor->RGBColor[0, 0, Rational[2, 3]], FontSize->10, FontColor->RGBColor[0, 0, Rational[2, 3]]]}, StyleBox["\<\"Bookmarks\"\>", StripOnInput->False, FrontFaceColor->RGBColor[ Rational[2, 3], 0, 0], BackFaceColor->RGBColor[ Rational[2, 3], 0, 0], GraphicsColor->RGBColor[ Rational[2, 3], 0, 0], FontSize->10, FontColor->RGBColor[ Rational[2, 3], 0, 0]], Appearance->"ActionMenu", Background->Automatic, ImageSize->Automatic, MenuAppearance->"Menu"]], "Text", GeneratedCell->True, CellAutoOverwrite->True, CellChangeTimes->{3.397243711732073*^9}, CellTags->"reiss", CellID->917593324], Cell["And here is what it looks like when clicked on:", "Text", CellChangeTimes->{{3.3970845695300283`*^9, 3.3970845817042*^9}}, CellTags->"reiss", CellID->1679832648], Cell[TextData[Cell[GraphicsData["CompressedBitmap", "\<\ eJztXHtUldeV/7gX36+kadM2TRM7085qS9pMszrTNRPIpNM1kxFW2j9mVTNZ nfjKQ02aZNA2MaapmElFo6CNaBOVqtEQeQryUEG4XB7yRlRA3sLlXrggD+n7 uWf/9vnOxweiIjb1/jGsdbnnO2ef/Tp777P39333PL583apnvr983eqVyxc+ Frn85VWrV65d+O8vRXKXM8gwjI38eWWhgTZx0/w3k/hvGv35z38Opj/96U/B 9Mc//nEm/eEPf1hEv//976UlfTIqcNMwwzCm4ysYHU4MOQDkBLgDE530u9/9 bjr99re/XUS/+c1vpCV95qjAyQwhKlgErWB3jkVrBAMeE+UjWBifA5gd9Otf /9pJv/rVr75Dv/zlL6UlfeYow/F0nmJNH0NaKDkU6WCLtGOUtNMizTgMjY9R gwaIgaqDfvGLXzDoyMgIXblyBR++Gh4ejqChoSFpOaRzhoAwsHx4pmAAJsZo Ynda3DJlQ7hwWKwG2Vh1WKwa8wE1XknjuRSaYI/ZAV80ODjooIGBAQddvnzZ Qf39/RHU19cnLbOPR43ZAJQJmAgEEzBvra25WOCHOVOKHGXcOY7xBWMYB9Os AsGnmdY6BX3mBmyBPzDKyunt7WWCPT095PP5yOv14hNB3d3dDrSMu6Qf4wwp H54n84EH+IAX+EFHywT64MO2EGIMDkscuyTG3SLpRIJo7WvNayHAgN/vtxhn fsnj8VBXVxd1dnbSpUuXqKOjw0Ht7e2LqK2tTVpMiDtlEEAAxiRM1lICKZDb JQNxvVITSDVeJuPTuNCLJxDjRdLrAnuAbdjFATfgDFwyz2CeWlpaqLm5mZqa mujixYvU2NjIumxoaHiM6uvrpcWyca+MAgrQmIXZwAJswArsdjlBHVzo1Rsv o3aeICWgY3TRPn3Vok0kHfQIi4HlaMmwBq2trcIj+GXu6cKFC3Tu3Dmqq6uj s2fPUm1tLdXU1BiLqLq6mmlxW/owBhjAYg7mAgdwASdwazm1tYKHiWQct4bG 9WS0hwTYwnj5oFPYEvQMPrAG4O38+fPCL/ivqqqiiooKKi8vpzNnzlBpaSmV lJSwjMXFxUyL29KHMcAAFnMwFziACziBGzRACzRBe7yc2gtt63gNGT8lMkIP 2kK1w9nlg3+AFvQLXWvZsCbgEfyCd5aE3G43uVwuys/Pp9OnTzsoNzf3MTp1 6pS0mCB3yiCAAIxJmAwkQAakWlgQA1EQBxN2QbVjaoOFEONs1bjXcka9jHYz hXvDBexLCHcBVfYsMTdwVFZWJlwWFhYK9ywHnThxgrKzsykzM5MyMjIoPT2d jh079hilpaUZ96ApXRgCCEAxBVOBAqiAEqhBAqRAEqTBgn1lwSJYHW+9LFKQ LOs1hbXbK+IZfB5+odcStgQ/gsphb+AIy6IFBOeQIjU1lZKTk+no0aOUkJBA H3zwAR05cmQhHT58eAa9//770mKxuVMGAQRgTMJkIAEyrQIQATEQBXEwAWb0 WoNJMAum7QZ9fbG1GdvXF9aCcIeQAJeBgrXIUD4sEAuSk5MjiwVuExMTRQoW jA4cOEDx8fG0b98+eu+99+jdd9+dSz/72c8eoD179ixAi8XmThkEEIAxCZOB BMiAFMhBBMRAFMS16GAKzIFJMAum7StumvcYsT87odhwCr3ScBhEQ0QLOBNs DE4G6nl5eZSVlQVrFQ6xcAcPHhQJIM3u3bvpnXfeoZ07d1JsbCzFxMTQ9u3b jW/Rtm3bnNK8RzoxCCAAYxImAwmQASmQgwiIgSiIgwkwA6bAHJgEs3rFIcS1 xFarbfdm2Ib2ZL3S2rgRRyorK8XWoHi4IRbjww8/pEOHDtH+/fuxhMI9JGHh aMuWLfSTn/yE3nrrLXrzzTdn0aZNmx6iqKiouWix2NwpgwACMCZhMpAAGZAC OYiAGIiCOJgAM2BKG7tece3jOqCxcEGSNE0oNlwBtoEwiEwMkcK+0rAr7CNw M9gcohG4waLs3buX4uLiaMeOHfT222/T5s2bRaKNGzfSj370I9qwYQOtX79+ Nr366qtfo1deeWUuWiw2d8oggACMSZgMJEAGpEAOIiAGoiAOJsAMmLKvOJgG 8xACwpj+fQOxxxu49mkoFYEUSkaEOX78uNgeFgJc7dq1S+w1OjpaOP/xj38s 0rCAtG7dOoqMjKSXX355Jr300kv/QC+++OJstFhs7pRBAAEYkzAZSIAMSIEc REAMREEcTIAZMAXmtI+PN/SJxP7smCgOV9ARHPsBbAZ7BDIfZAZwJygZwRX2 BreDDWJBtMhsvvT666+LBGvXroVs9MILL9CaNWto1apV9Nxzzxl30LPPPstZ 7DPPPIOWecX/70XXnWg5BfAemYKpQAFUQAnUIAFSWjFgAayAJbAGFsEqWAbr EAGiQCSIpuM9RL7aFrRSdLADpPZ67Bra/JEyIaOA02HXwZLAKuGcsFRwx64s S/mDH/xAlhiSQCoIv2LFClq+fPkMWrp06T/SU089NRstFps7ZRBAAMYkTAYS IANSIAcREANREAcTYAZMgTntBmBae78Wm4W7gdh6W8MmCUdCpo9dRJs/51qy 4WL3gfJhnXBSWCwWCNxi0bCAWGdIxELS9773PXryySdn0RNPPPEQLVmyZC5a LDZ3yiCAAIxJmAwkQAakQA4iIAaiIA4mwIx2AzAJZsE0mNfb3ERizx+ztekY r4MdCjg4FAoB5BDYVUzzXwltGnMtc8MQQACKKZiqQ4+OuEIc9wuuSVxHWh1y xvseYnxSUtJKLCMT56Z0jbd1HQB03Ls+cb27AVLHO2waKPWwfyKqIpOGeXG2 pYkj8UIXhgACUEzBVB19NHEmcR3ieo/BDNwdgKsCE0K5djDkNRzutdoR+dGl zR2gmIKpQKGJA/WNieuQp4lr70axhGzCNPMFIP5vsKcFJhva/AAEYO11mg0d bG6ODYQp1NTI1DUbiPPY6jjEzcMCLIJVzTOXAnEPgwDSbGAykNhj3tTZ4ALZ cnrkWZyHC/GF5m00b1kVGUYmFfuuGH9nZ40BZYJ2UCD6yFmbi+X5nNwXm0ad xWXMWjqV+DhF7+olH/c6ZQz/+zhMcJ+/3+rz+3A9IFfTTRwD3Nflkz7yMbyf e+fjaq5pCLdPzLnC4n3kLa9gMRPpv+KahU13XI5c7y9Xif6Ar5ke4+stBV6+ 7qW3Q5Po0eiL0v7p4mSBPVTtJ3dMFgU97KYunqNUl0ihIUnyDTWm1Cl81ekl 9GUj0YEBVsC3Yxu520dHIjNN0GT6bngqfx+nwi6gOiPT0W7KLlHTnLR4dbaA PxrdGBAKZaOdKyb9NarYc0pYcy6p4p4h2rtEKenJPe3q/rG/lR7m67fdvXx9 mbaHJdF39rRSbWqBCdcqcCU7j1PQl4vJx21vmVqkt1I7ydfcRN/ltiOinPzN 9dL/1efLqJ7trK+rm6rOsqLrz6r+FainainUXAR2M+o+g8VJk3bh1uPcPknV bKcHV6QIzKmuK6wJ5mDu7XVFJj5HVPqQqEmr0TByqd7fRS9LG2quEBWNV2tM RBKrKAu2xjBl1KVu3U+g1nQq82NswKSRSSfzypV1rTvDvNTwp4rS3D3U7Vb9 75QNmLiyJ1TrhcR8gfv+zkqKfT5NwwSCVtlL5ojn38me3Ur/yVw+HlVKz4Wk 0e70StHghrgi1lo6uXzK+//Z7v3hrNXwTNHquqROQz1EuJ+9H1q1e38yZTQj 8PXTznBEgROUn3dGtPKVZYW0a6OKMg9uvECXClT/m7leiRClEoHSbe6fKm2M 1Refo+goFz0VmiQweV0BE1CVWh+yAurO4i7KXJ9hGi1Hs/ZOehEGWtxztVpZ nG/HXaT69AIxopx2Ja5Sq2tMUDWMLNq9zy1LEBTKKm9vkPajG+uorrhKYF7P 9tBA10X6D4HJo9zyenrJVJlSa4moldVH3urztPtgPTW3eyh+dZos1bmBgUDQ qhUCEFVPiGYK2FVbU0+LlEFhbnHj5OdT6O+3NnEIuETrw7PocFW/FVmln6Nw 8oYMduda8jN8zdFCenxttcz1V9VQWMhJpleiNBqWQ8fO9ot7t3LkXGxuYU9u qlVhhj8X8yspnPuDQo7x3CQrBPjP1lJ4eB5VMY/++gZaGpKi+AzJoO2Jl4wF AeD/THy2qPQOS0WGUSDRcdjcNKatu6DEFDWfpi6OtpuXn6LEs6Nq/ebWpmAz hatNLaaVm+qgHUF6hbMftVpaKxdo9fJCaOXjAaAANujZ4ql3SBZXkFBJCQWd KtXxd1P6vgrKKfep6642rpG5LuPvVxZl0qHyHlsK1BBsJn6VB10UEVkJJxWk SP/csScsZ/NW19CiRblU7hv4eAA4FROPCAA22AgiAsAcAoSNAFmUAGEjQBYl QNjgpbjbVmN2dclDRpX26D5VY5rpWLDUphLBUKf6+h26KPX36enqyZNPru8K gCW3KtLZN65IOQQnbsxRpeAC3l1PUE5Dnz0yq2mxWSo/4rbXrOUljeTcC2lv WHiqoXDMo01JHTzHQ2+Fq90+KDTTTDHTJEfqLK+R7EDS1IJLSGkNXYqCfl5z v7Wn3G5NWqXoV29Yil40S84fHuUN0NdGSyUBKuZswNrlzTonk8UsUQmT1Eyq zrnib6NFSD031HGW4KNYs34qa2+RkvPFwx3UyQkWaHxzU6Pgcm3N4usUSqzi zZRrrsr8FmofuGLeCUqk7+xsvjMAnM5KPR+cVPVZqCtBv0oRM9Ydk+sC37U1 6R2nyVBbZakSqER6t6SNVkkKeZLizRT12xausTTB5/GdBZahvpHpNQJBlVZt 9NXRknNjyTVLzvzoLBFLyk8uHw8vSzF9V/n3tMg6VSbGAu4UNeC9sXJVfGv/ Rt3zerrHVk6qm1QDPg8l7yum9ZEnzdtHZqyIG0szLfKYjIctzqeU4u6PBYBb W1p8cFIVZltukfQ/vrGWqgqqRcvOxWysZhGPsRUbi8woh7F82hyZYUU8HSVR yG/aV0ZPmXWOi7eMY3FnKLeum4tx5dovfNAh0ffnorVk2pHewuGgj+Ll9mAW 5TV4qSy3kRp8ctvhtqvS8u3PTa6s5Mh55mipeRON/W9dOdX5lb8dfD6DVm6t pC0rMiSq/TC+gU7sUXj+5fkyar4yGiXfiK+iVSFqU3k7tVPuOGVsPWXoW6GP r2ANSCxolxt8almzJT54q87R0rAUq6/MdyUQXNuqJudMvppk6AVm6aij3vYy 7PuqD0X3unVnqJ6vPhkAIlr14pzJ14v+ARbRfFJgRqOtBV7j8wFg+/+f4Qcg GwGyKAHCRoAsSoCwcd3qb5r5JNIs6XzqieT9AbCIU63n7htTz219mLfRzQ22 aenWo4BOe02HYra5wcxYEumRZSck4wkKKaR2KwLb7941jq8RPxEASrNKty/f Uum2LZQz2/FFgk8VCWOKDr7udquHL0fO+qkiXj22eiu/x9qat7n7bDd9m8cX MZ8IAA+x0rmQWy7VbkZzA/XnzGevpbR/p0r5RFuT05wRCKqziop7brk0s7uq foLn8tldNZES6sxbUQvI19BK70W76H+WpcvQVjwJG1O59dNOqfZqrWovKKRI brIHgqtamgu55XLM0pzfQ+/KAzhov4ka2vttD/3S6LXocqrp6KC9sdVU0+4j 98ECrVVLdSi/omILBD/Gnogqlgd/EggDRHWWv951y+WX9ld/VY1ZRt0tZdi7 Zf3qyV4YnuwVKT/u6qboJemmOlPo6U116qUALrdWhRyj/42voKXyVC+Dfn6y ieKeVyXd9/fwXhEwkW4q5dY0mTNrjMZG95AUOtY8SH3IIRjqiwEg5hRLrmky Z9ZVicNA80X6b9N4tB98MQD8gInfb71P1i9ZHN4P+9JtZ+3qFwU/ejZu4/uK k3l781Esysc/krc3b9sbrLft3d3b+tbyTb6v/Teidif19eAlfvlNqnGv2dfj 4b6ey3J1/1/sve4pvEv/KSE+m3wVlWal1SIv7ReZlVZ8hfqZ3uCgnxKjzEpr mlRaJxr7pdusipgToJpJXSXlsjO7+wbJV6LQBq+uoh6G3Rme5BQUcwTkdGuL vCG61eUTVHjfC0WVRyjy9JoLuH08+sBsdMz4rKm2W38Xfwq/vPiUGNadVGmr tUZGhsfUWkDVlOaS61cSu2iwp92qtTwjAzq7Z1aA6x7ylVfKI7DyDl15ZFJJ zwiPDtCuCOzXJym32sMRtJPKqxEr2iRZ21bkFxi8tgjcPSOY46VXzYc/rpYB Guzz8zwvDY6M3Gf6xK38dGNUbzf5M55PCvGPCb/2aquhzzOm2oIMbrOKKukb EfS62nL1WLpTqpttqi6FFkekCop3RCWjqjPVosDn08g4ze2ya45XaZGsUi7F H67lTzUdTmunvlHN3cpvfeZP9XdfnxRzv4+tqG3Mq5d7MqrMYqtYiq3CnkGr 2EJ7cPCyVWy5Pcpb4Y19pospb02mxYtT5ZlYo9k/zh2Vc89n8i3y+qHy2H4L pAdTPC3qtcGQbIqNc5u3UQqoY3DwPtNZb+W3Y1erbpK/FNSq0zHupyWeMdWW mx0O1da2kl5qzytW1VbUWap21VjVFoKXfvj1yLJ82p/TaaounUp5/g/xSDCq /tqqmzdGdT2NTbx6qBhOUYarjTr6vPQGrkPzqeJcMz2LfHz9eWtvuJWfGs6f 0g9Li4qKlLPex0FOlVoudsS2tHyr1IK7qFKrWYJfWeKZMaXWuT7lgXjS9fTO Gi6hkuV2hvLWNHHsKw3neU4aJTUMTuytweytnfJu5pHqy1QZn6v2ghnyLKuc MQx2tNNrS9KE6leWFFJNzwirTXkqCzHlH6bOn9LPkJni3UJ8joij6ywPTitp qLPqLLU35Eud5ZEQhjnOUdX0jKhzYyA/8IituAGr1DKT1eKRdyuT6i4LOqwE 0DUMDnMMH/i8TQVT/UnyxCq40Q/QRQUw2zkSIVwJVfShq0t5Bpt5+r5KOlHR o6497VyDnaeWvkF1nAwLrb3K7cEV+oIliBUnV9P7GW0IXDrTwI6Ktyvfr+gV dM15ZdYrDI9GNX7edB6oYKo/Rp8/paMHmGKoKc5gXz9neir7szM01UMBrmZo Mgc/MMWVNoOY4kEM6mSNuTd1ssY4ylM878JOebLnlgjlUYXfxHEi16M8mVNh mNxjWNR7beRv4sSWIPupOwtu+tQdUDP3BONbo2dOSR8W4jNm0gS4mzwnx3k9 jVzrcCOTHznp6l/NOKdLqFF+5gjcJM8lMq46bEkdGzXnhsdGgYhZFbBylIvq MglXn5H/swTuZo59Gn/y1lhOxp+8BexPP/201KWcTTIPXBY/jLNTnNjq+frk yZMyylBc6TA899mO1DImcabWpM8tmy4/+8fdEL0xmIdhObFGTrQYGfoQNc3P PHQ40XKiNRutGbY+ma5HebvGz6f1sVZ640SFu2HDBuOOj+g4tAkPjZs+ZlVw 3gNuQzBLIm2wueOoO4Y+6mU2/QMDo7/e9EtXr8/8RafsUPNkdCYN+GRE7YwM 1W+eS2aeT+Ywkegu9cKtidik1W/rQ53xjW98A2dNGHL4Gn716vXKSr3xxht8 xaoxUE8boiRczcX/WzntbqLz+0yd4fwDVNawgKEeF6UjRH5gwNKOhIST61i1 xJP2IxsddMSA+o8YYVSU3SgbW2/VEUozMAVjd1FWTBZdRg7AmFJYAhdn30O9 Lsrg9hFjNbVzfuMONShxc4Foqykmgo6ExlAvktbi7QwTTg1dA9SdtdnEOZ2O rf4uWpQY7aLe4hhuR1Cjx8wXZigUITFS+zS9s1RAsw5UUXPcYhPFPP4fSu5T TUIS0iBv+vrXvy5KxjeUjzEkETAcdh1eAtilWgg4KK5m3dz5hqPnLcqQ8aAc uaC1Pehz0TFGfvLnp6g194DoKCFkC/kuJlAC5I1MoL7hS1S2jPtZ5ibPeTol MJHU3nuZWuKWCVyh65KsHPRdWtFItasN6S/limhoiDfrMINSWHdYr5aYMJ4f Q37kOCUxDBdGTd3D1BTN/bw+bVztVZr0LlwaIr+G8QyxMhmDcbfCEbaXPOcV nwmL4wSft8JFbS2c8HjEihhG0QFdHDjzhS98QZSJb5y2IfeCOGgggWWPdUrw U/o2DZr1ff1zKedYCjZ1C1zaklMZUXE5jsXzUtEjBh19YCt1u3fQUe4vcvsk HPkyN6jrk9nCc/qOM+oeQ1sqJfN12lY35+RuNbYkQmAzdxSa79d6qYTxpm1R 1607HmEaO+gyz798BnQeoRbfCHmOrpF5p3bsp5I1D3A7QnTeVxIrMM3eK4YK kfMZR4SMpz/A/BrLZb4+sPDS8d2UKf0GJa/NlD5478KFC0Vr7JrclOAHFcDM cAKQMj2lV3NDYUfl/zOht5lKkXfI14NyLgZ0KHc8VDSg9DWRlBMGumFUkXeR +gujlc4KvcKb55CSryjnhMCnRSt9DF04JP3puPYXKlzLlQ7rWoclRRke7qYS 4F6bLtftsRhfS17otzJWaLJ+1KsJJclUFPUaZQsvHAMsHRpUe2HA1GEwtcYq HWaGMNyaDNU9jbwpawX0aNhyKk0ppSH9JMzJFjpsyJZmUxpsSikNqRqu7sL/ O+z6ChV9YQ7mDvcWig+nLVtDWfBflqMDvHeeQIykxIgt1HbWTQVhGFtOHYPt 4puJzGtdRQXVrA3jtkGVZ/HSgFvmlFe20YW1DBMSTT45ydNDpRGGwOVERcu6 oJ245DUqlvnsq2wzg2ePU9nBPPJdaqTqNSHcv4Y8rMP+0h0KnuEKtuynTv8V atvB88L2Uc/FDBkrPN0m+u7Ys0Sui09zDlF1mtqa+qR6hUJHOC6rk0XVB/kF 7Ib1oWKfUp35Z/ytXWv/JFpD3aY9FZKW1gJTiWgwJSpX7S6lCSxhiHCREh5J 58951KmaHSVUtExpK5E3qbLsc9KvcRW5evi6hvJZO3kf1IjWqlaHUU70XnNe COXtzab6uDWCI211HHUjmT6fQTkhIRbeooQKVQ2W76W0sNVUdTBKVquZLQ9R MDEkli7zvK6E17j9GnX0D9FwdwXTCGdrTJRNtIyjsLL0YZULIYhq5Q1Zt1cn q7xZojzUmfKI41K+Mq3QRZQRqkwhc1eZSjYki5ku9Jw21XTwqGRmkuNwK9jM mJVEMdSjJpggM1RLJS/I9bA/Mg/GDVmdJhEZrCK/GexroHMHDrBeqvi/k84V VMuWbWVPQs1sqc5BX4GYQ1FBu7qRMCqWc5QrYZ+ZD2cjlg3HORbKrAVgoSrn VTkXRME9XuXtNxDFKVqH5FzqGpIRTwee2WjNsrLqGWhJUu2w+swDdrlvhpU+ mykfXACa/NJYUtAa7mxwMs06ZD7VybdO+8m2nFpIGj52gL+ZOW45pBmsO/Us BybNlUnT7ZPs32qq0+pSVzhe12mlR9DZGKZnW0zb70bp2wKQ1Ty3Vg7qdaBl 6sCsHtSVA2AsmtfbFRBIZl0TCe61oNC5ShNy/p7cm8O2gKd8+k6aPvKX2+wE WNxg6QOMecKvAw2njM2yTv1tb+8MADxzbogHK49HTlepZKaoBHdsYTv68Fs8 oze/HdCV8TG5c6ZPD8Ywrm1gE0xt/quh+8RfCp314PEqPSnPh2Wpn24iKkv4 HrNZmG2H3AlyWl24ctgqbgEJTAyolGFALO0E8iNOW/dhOP7p+yC2b3MsePyY E43pt2Xe9DFj+EDacRJKbHAg5AfL6gfLrgKh8S27v9qNdLcC+mtNmm7jd+PN fhlB/wcRnbHF\ \>"], "GraphicsOnly", Evaluatable->False, GeneratedCell->False, CellAutoOverwrite->False, ImageSize->{128, 119}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}]], "Graphics", CellFrame->True, Evaluatable->False, GeneratedCell->False, CellAutoOverwrite->False, TextAlignment->Center, ImageSize->{128, 119}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, CellTags->"reiss", CellID->2084516186], Cell[TextData[{ "This example can be generalized to access other favorite documents through \ their default applications. (The approach is essentially the same as shown in \ the code for ", StyleBox["WebBookmarksMenu", "In"], "; however, where a URL is supplied as an argument to ", StyleBox["URL", "In"], ", a string containing the file path to the document is substituted. The \ correct form for the filepath string depends on the operating system\ \[LongDash]for Windows it is the full file path itself and for OS X and \ Linux/Unix it is of the form \"file://\"<>filepath\[LongDash]and each space \ in the file path must be replaced by its escaped string, \"%20\". This is the \ approach that I take for the function ", StyleBox["OpenFileOrDirectory", "In"], " in \"A WorkLife FrameWork.\")" }], "Text", CellChangeTimes->{{3.3970745020133553`*^9, 3.397074529127007*^9}, { 3.3970768029585648`*^9, 3.3970769566023817`*^9}, {3.397077039813924*^9, 3.397077171933304*^9}, {3.397133828323209*^9, 3.397133857064541*^9}, { 3.3972395407071753`*^9, 3.3972395972541943`*^9}}, CellTags->"reiss", CellID->542371368], Cell[TextData[{ "The key point of this simple example is the use of new User Interface \ Elements to manage and create applications that access a variety of documents\ \[LongDash]some of which may be ", StyleBox["Mathematica", FontSlant->"Italic"], " notebooks, but many that may be of a variety of other types. Further \ processing can take place upon accessing the documents: for example one can \ use ", StyleBox["Import", "In"], " to bring the document into ", StyleBox["Mathematica", FontSlant->"Italic"], " and then create the final content by processing the imported material and \ visualizing the final result (possibly in an applicatoin other than ", StyleBox["Mathematica ", FontSlant->"Italic"], "by first saving the material to disk using ", StyleBox["Export", "In"], ")." }], "Text", CellChangeTimes->{{3.397074378303441*^9, 3.397074450531617*^9}, 3.3970790727035646`*^9, 3.397083960925799*^9, {3.397133893538453*^9, 3.3971338964904633`*^9}, {3.397239629320735*^9, 3.3972397565651293`*^9}, { 3.3972398146021833`*^9, 3.397239871930435*^9}, {3.397239913993164*^9, 3.397239971127264*^9}}, CellTags->"reiss", CellID->1417238969] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ CounterBox["Subsection"], ". ", ButtonBox["Importing, Exporting, and Curated Data", BaseStyle->"SectionButton"] }], "Subsection", CellChangeTimes->{{3.3970741062458143`*^9, 3.397074114842888*^9}, { 3.397074704243067*^9, 3.397074712239843*^9}}, CellTags->"reiss", CellID->2133528104], Cell[TextData[{ "Reaching out to various document types and opening them in their default \ applications is one simple possible aspect of a ", "document-oriented", " application in ", StyleBox["Mathematica", FontSlant->"Italic"], ". There is also a converse version of this which is to bring such items \ into ", StyleBox["Mathematica", FontSlant->"Italic"], " to process and then display the results of that processing. In addition, \ one can use ", StyleBox["Mathematica", FontSlant->"Italic"], " to create the content that one wants to export out of ", StyleBox["Mathematica", FontSlant->"Italic"], " to a document of a different application type." }], "Text", CellChangeTimes->{{3.397074458654695*^9, 3.3970744696839848`*^9}, { 3.397074538460943*^9, 3.397074642284186*^9}, {3.397074688216464*^9, 3.397074692430711*^9}, 3.39707472577044*^9, {3.397074996367757*^9, 3.397075032008793*^9}, {3.397075511315938*^9, 3.397075517127527*^9}, 3.397083967359186*^9, {3.397133917141691*^9, 3.3971339182791643`*^9}, 3.397218749199819*^9, 3.397219847163775*^9, 3.397239897768659*^9}, CellTags->"reiss", CellID->1794223106], Cell[TextData[{ "For many versions of ", StyleBox["Mathematica", FontSlant->"Italic"], " up to the present the functions ", StyleBox["Import", "In"], " and ", StyleBox["Export", "In"], " (as well as ", StyleBox["ImportString", "In"], " and ", StyleBox["ExportString", "In"], ") have been available for purposes such as this.. In ", StyleBox["Mathematica", FontSlant->"Italic"], " 6 the types of data (and hence documents) that are available to ", StyleBox["Import", "In"], " and ", StyleBox["Export", "In"], " have been considerably expanded. The lifeblood of the sciences is the \ ability to access and create a very wide variety of data files, and Wolfram \ Research fully appreciates this (and also the fact that the data files may \ reside at arbitrary locations on the Internet or other network). This is \ also essential for document-oriented applications, and increases the scope of \ what can be created with these." }], "Text", CellChangeTimes->{{3.39707465143222*^9, 3.397074672301942*^9}, { 3.397075440794201*^9, 3.397075492934259*^9}, {3.3970755233164663`*^9, 3.3970755691079206`*^9}, {3.397077194120129*^9, 3.397077363384678*^9}, { 3.397083972852497*^9, 3.3970839772298203`*^9}, {3.397133982835957*^9, 3.3971340399426126`*^9}, {3.397218750343849*^9, 3.397218752060608*^9}, 3.3972198491494007`*^9, {3.3972399899462223`*^9, 3.397239997078355*^9}, { 3.397240035339078*^9, 3.397240050648131*^9}}, CellTags->"reiss", CellID->1714984108], Cell[TextData[{ "While the file types that ", StyleBox["Import", "In"], " and ", StyleBox["Export", "In"], " can handle have been considerably expanded, Wolfram Research has created \ an additional direction for data access in ", StyleBox["Mathematica", FontSlant->"Italic"], " 6. These are the ", StyleBox["Mathematica", FontSlant->"Italic"], " 6 functions that access \"Curated Data.\" And generally these functions \ have the form ", StyleBox["foo", "In"], StyleBox["Data", "In"], " (though there are other functions in ", StyleBox["Mathematica", FontSlant->"Italic"], " that have this form). Here are the functions of this sort that are \ available at the time of the writing of this review:" }], "Text", CellChangeTimes->{{3.397077356358162*^9, 3.3970774602147837`*^9}, { 3.3970775190518703`*^9, 3.3970775458829403`*^9}, {3.397078799036314*^9, 3.3970788183341417`*^9}, {3.39707890024445*^9, 3.3970789048753757`*^9}, { 3.397078955256057*^9, 3.397078971877386*^9}, 3.397083990784747*^9, { 3.397134057932569*^9, 3.397134058585656*^9}, {3.3972400699772253`*^9, 3.397240070233142*^9}}, CellTags->"reiss", CellID->922313020], Cell[BoxData[ TagBox[GridBox[{ { StyleBox["\<\"Curated Data Functions\"\>", FontSize->9], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]"}, { StyleBox["\<\"AstronomicalData\"\>", FontSize->9], StyleBox["CountryData", FontSize->9], StyleBox["\<\"IsotopeData\"\>", FontSize->9], StyleBox["\<\"PolyhedronData\"\>", FontSize->9]}, { StyleBox["\<\"ChemicalData\"\>", FontSize->9], StyleBox["\<\"ElementData\"\>", FontSize->9], StyleBox["\<\"KnotData\"\>", FontSize->9], StyleBox[ RowBox[{"\<\"\"\>", "WordData", "\<\"\"\>"}], FontSize->9]}, { StyleBox["\<\"CityData\"\>", FontSize->9], StyleBox["\<\"ExampleData\"\>", FontSize->9], StyleBox["\<\"LatticeData\"\>", FontSize->9], StyleBox["\<\" \"\>", FontSize->9]}, { StyleBox[ RowBox[{"\<\"ColorData\"\>", "\[IndentingNewLine]"}], FontSize->9], StyleBox["\<\"FinancialData\"\>", FontSize->9], StyleBox[ RowBox[{"\<\"ParticleData\"\>", "\[IndentingNewLine]"}], FontSize->9], " "} }, ColumnsEqual->False, GridBoxAlignment->{"Columns" -> {{Center}}}, GridBoxFrame->{"Columns" -> {{True}}, "RowsIndexed" -> {1 -> True}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxItemStyle->{"Columns" -> {{ Directive[10, FontFamily -> "Helvetica"]}}, "Rows" -> { Directive[Bold, 10, FontFamily -> "Helvetica"]}}, RowsEqual->False], "Grid"]], "Text", Editable->True, Deletable->True, CellMargins->{{0, 0}, {6, 2}}, PageBreakWithin->False, PageBreakBelow->False, CellChangeTimes->{{3.397077856437286*^9, 3.3970778607728033`*^9}, 3.3970779850994453`*^9, {3.39707802545409*^9, 3.397078033712542*^9}, { 3.39707828610666*^9, 3.397078318466826*^9}, {3.397078438272655*^9, 3.397078473978718*^9}, 3.397078510698678*^9, {3.397078579526415*^9, 3.397078617781947*^9}, {3.397078648606228*^9, 3.397078777274187*^9}}, TextAlignment->Center, ShowStringCharacters->False, CellTags->"reiss", CellID->1491802727], Cell[TextData[{ StyleBox["Fig. ", FontWeight->"Bold"], StyleBox[ CounterBox["FigureCaption"], FontWeight->"Bold"], " Functions for accessing \[OpenCurlyDoubleQuote]curated data.\ \[CloseCurlyDoubleQuote]" }], "FigureCaption", Editable->True, Deletable->True, PageBreakAbove->False, CellChangeTimes->{{3.395067119135652*^9, 3.39506716703342*^9}, { 3.395072872849387*^9, 3.395072873261973*^9}, {3.397082844677373*^9, 3.3970828747635403`*^9}, 3.397083995900051*^9}, TextAlignment->Center, CellTags->"reiss", CellID->1381755151], Cell["Here is an example:", "Text", CellChangeTimes->{{3.397079044247266*^9, 3.397079049456251*^9}}, CellTags->"reiss", CellID->458020828], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AstronomicalData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]], "Input", Editable->True, TaggingRules:>{"GUIDTag[291896617765674622009939601136011271166]"}, CellChangeTimes->{{3.3970788534956493`*^9, 3.397078863863798*^9}}, CellTags->{ "DiaryDate[{2007, 8, 26, 1, 0, 52.227255}]", "EphemeralGUID[11730150399551018993333333854151244748]", "CellGUID[161083001381318303961832108460871589458]", "reiss"}, CellLabel->"In[26]:=", CellID->2038609385], Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJzsvQeYXOV59o8KxTaG2A5xHDuf4zSSOHHixHGMu6kq26af3qb33utO721n e+9Fu6vdVRcSCNFUAYkmOgKJYpoxVRJC/+fMCglj4y+xry+fry//c70czpyd Hc38zj33cz/vOTP7Dc4s5FZdcsklnvP/8dv/t5YVH41fXVb+pvuu/JT9v/aY Ky4+3m968P+Ry6+BXob0Kfx/+8IfiGXIF1F/9Cj1PSs/Nv5nLR/X3sWd//l7 fmLnik//0cX9//ln9//O8immcV5vv8KK1+OK33TPlfWtizL+NML//8IvwBDG MswV9dsrVi0zBG4r6zL87fhWnLeGFR95zkoePv+rq+p2suIC//+xB2KZwYqP wf6UZeVHJrzqwrhkeXzCdS/Y8jL55Udf8T/QmH9lWVmX3fKo3+Ij0KpVq676 o6u//NWv/e03v/VvP/jRdTfcdENj83oxuV6ML48GCbFeQsFYK6VuFuE/WtP0 /Rtv/pfv/eDaf/znL3/t65/5/FUXfeZXqt/yO+V/8AIvf/XlV13z1b/79vd+ tl6Myg1ae8AZTofS1dZce7Lcl64OpCq9qUpPptrLj7a+dPtAtnMo2zWc6xou dA4Vu4Y7hqbzXWOeZJvWm5SpHT9qkv7lP//HFVdfs2LlZSsucP9/wTZWfmog W8nv51/sirrlwnLJquWbqy7/7P+69lvX3SKUad2WaDnePl4eXqyNbeoYWege 2dQ/saV/fGl0esf4hm2TG7ZNz22d3Lg0s7RlemnbhqWdMxu3bFjYvHHTLhjT C1uXdu6G9cDkQs/kQsfEptLMlszgrL/QTRi8193Q/MVr/uzCs1x94e2z7EUf e6YXSsMf7nLBXVect4ALP6lvr151yWdWX3LxQFz9J//rBzdzmmBPuGdjemhn ZWxvz8ydk5sOb9j94OLeRxbvOLL5jqPb7jyy6577d9193213H957577b9957 +137YNxxz4E79x26+8B9995/9PDRh/cdPrL/0IOHDj20f/+RQ/c/cs/BI3cc uP/2fYe33HH7hp3bBhcXuzfOxbs6JUrFN7517aWXr/zYs/iYh3/i1fxBV8yV 5xW98mM9wrKSL7n0fAxbdek3/uk6iToc7NnZseX5/tteHrrtuYndT264/fH5 3Y9vufvp2/a/eOeRV+84+sJdD52468jxg48+f9+xE4cfO3n/YycPPvzMfY8+ +9BTJx555qVHn3350Wd+DuuHnn7pyRNvPvvSO0+/8NaxZ187dvznDz3x/JFj T99/7JkD9z16z6FDO+7cvrhrdm7b/MyWua6pAWvI8eM1P73yj64+/5RXLIP+ lBbmDw/2xzreVcupqr5cWs+19Q5/1RV/+R8NhK8jP/vwwO63Ju55bWrf67P7 Xpvac2Lm9icX7npq8e5nF/c+uXj3U9v3P3/7kZcPPv7mPUd/ftf9z++97+nb Dj554InXDh57ef/R4w8/8wowh/Ujz776yNOvHHr4xENP//zoky8cO/n64Sde uPP+Jw498sz+o4/dc+DgvoMP3Hvwvjvv3nvXXbv23LHp1l3zmzbPzm6cGpkd TVQzP1lzwxWf/czKC+nkVzj/wXeO9We9clnCK3knhFuXXva5a7+/HvUOFuZe 6rnj9NCdpyb2vj1777tLB9/ecvAXC3edHNn2yNCWByZvfbBn5o6O8Z29k7d3 je7om9wxMLOzZ2y+rWeorWugZ2xuYGppcGpxcHS2r3+4o6NrYGhweGSsp7e/ 1tFWKmezuVgyE01lY7BRLEarbYlKLdbVnhxuT433JIcHkwN9qeHu5GBXoqsS 6qy1ltuiFo/25pZb/vgr1yx73Ypfi39/iOnkYpJa8fHg+uf/9CMqMBTd8Exl x6tDd7w9suftsd1vTd7+xvRdb07f/dr03p9P3n68f+vDtQ0HCsM7Eu2z6bbx RGWwtdgRzmQj0WAwaPd7tH633udQ+Z3qoFvtsVJeExK2o8kA63cgdqPIqhe4 LVKnSWxQrtfJ11rVTW69yGmUmrQim0EctkrDFkHUjaa8RN6NZH1oLoDng1TG R2bi6kTBZQsaf/jj6674zOeWc/yqFR+vjH+Aql750Xr1cgP2mS9+9Scys613 f2bjs7WFZ3u2nOjbdmJw+/GRXc9M33Fy5rZnxnc/Bs48tO3R4W33D26+t3Nq e3VortI5nm8fKNT6SsW2QiKaDAFnpdursNsYq4UwGRGTpsVjEIaMopBOENA0 u7RrHdr1blOz29ToMja4DQ0+Y6PP0OzSw80Wh7HFbRX4LcKIvSXhFma8SMFH ZIN4PoB1BolKkEjF5dG0IZ62KnTMX/zN15ctbvVFM/mDXC4+u5V/8tf/THo6 An2HY2OH81OHy3P3d8wfbZ+7t2fjgdFNB8a33NW94fb2ie1to5s6Rxc7R6a6 hifa+yYqHX3lUq5cSBbS8XwimIs7Mq2muFcec7MhO2kzykwGmdUoDlmkSZss apVELNKAscWrbwpZBWEbwBSFrWKfVew0Cbxmsd8mgu2ADQ3YZAG7OOqW8ZL2 k6UIXWml21uZapguJlSZtDaT1efKNm+r4Tvf/5eVqy++jD8I37g467ic3FZe aKGv/c4tXOuQu+vWcNeeWN+t2dE7ilN3lsf35Ae2QjwuD0wXu0Zg5Gr9uWpX ub27WG0rl4vFQiaXTRQSvkLEkgmqU3425SbTTlnSLoraBCGLBPRp0zf5DIK4 RRK31neam2C0WltCdpHf0gL7W4G8Xcrf2SxymoQ+i8Rvk7jsYhgRJxqzo/CY mVayllD0JJXtCXk5oa7ktNWCuprXlIrmeN7Zgjd+/ktXX3x7rjz/Ai92Ov8t Oq/XilWXXAxwy89g5er6/y+98o9/KjWaKre6e+4Kd+9s7dgS61xK923O9i1k emZTtTHo7JKF9lS+nMwWkqlMOp3OgHTTYcBbSrpzUWshpC14mbwby7lkOZs4 ZxPxnO3CoFkYMAFYIYyYRRg3C6PmZiAcs7QkbMKgqdGnb8g4ZCmHFCTdapNE rEKPrtFvFPrMIrdN4rDLvFYsaMXjLiIWxIthpiuh7MmqunOa9py6o6huL6iq RW06Z0mVfEaP5q+/+VfLifTiC/+/MCX40ezl8saKOvlLLvmzf/qhzNNt7Njr 6DscHbonP7yU7ppKdU7muiegO06396bK7el8KZlobW11R0P2ZMSRCpkzAW0h qMq6cChSBS9SdCNFh6jiEBYdgoy1OW1tTtmFaYcoY5WkzKIkMASztbbErYKE RZC0ChOm5ri5Je4QphzinEOSsgiAPByIhEWUsInTdgREDqXQaRE5TGKXWRJy 4HEvmQsylbiiL68ZrWgHKzp+VDW9JW2taErnDImSw5+yrhPedNnnLr/I9sIJ hP821isuvI8utn3X/lQqL+80Ddzj7L09MbInO7iU7RvKtvdmqt2pcme60pGu lOOZRDTsSYbNiaAKXDfupBIutBIiqz5pyd7ED2cLQC7YhVlbS9oq4AFaW1L2 lpxdULBJchZRBpRsFSzLOG0VZq2ilKUlamqMWZqTNkHGIkibW+AtAKPolJXd aMWFlpwYmA+IPOyQgl2HHGjMiSc9ZCxAt6eV4yXVdJthrKwfazeM1vT9FX2t qCsUTcm8LV72SRWySy9f/ets/3tIfzQ5AHVi5fIT+It//bGqssvYfY+tc9FT mwm1jSUr7YliLppLxzJ8qI2nM9FYKBKwxgKGdEAFPhm1ymI2ccImyDtFZbug wylud8nKLglwztoFCWtL0tySNAkBY9LWnLA3Z2xCIAnwATWMtJnfAGMBtrAf 7p8yNeetoqpTVnOjsK44xB1upOqUFFyyrBuKpihmk7ZakYAT8ThkEAg9bjwc obpzismKbriqHa7qR2va4TYDoO4sGktgIAV7rOJrIYSXXnkp/1pXrPzvtOiL MwMrV66qm/Of/eNPmdicrn2LoTRiy3Y4U22eVL41FopGPcGYtzXuD0c8kaAj 4tVGHFTchac8OEQFIMPDtAHAFsDS5pCV7ZKCQ5KztvB2YWnKmgXADUbWKgR/ AOAxcxP8Cmg4ZxRkTIIs/yNQuCBrF8FRgI2KQwqQa05p2SqEUbMLa25ZyYNk nVIw+TpnGVRMn10asEg9NsTtQipxbqSoHW/Tj1cMU+366U7zaM3YXzZ1l+3F gjlVsEYqIQkruvyqyz9e9/8b9LzikgtJg59s/9q3vo/HJlXZnYpMnyGdt4Tj 7kgwHA8GQvZwyBCO2CJBXdAPLQYJ4SpoaQFrjdmFULnStsaUtQGQgicsyxjs Im1pyIPCbYKSRVCyiYtOackpBv7gGGAIcWNjgqcq5iVt4l1ieQBnOAqgZzg0 BYuwaBWU7aIC/LqVf6iiXVp2IlmXBIopFEeIf+AhfCC0ybw2JBVgOtLy8apu tt0w322a7TYD6okO20DF3F4ylkuWZMUeK7llnPiKq69Yngz5P034I86rP8J9 yZ/+w/ckgVFFbomLdhpbu22xNmsi6Yi4nH6r06vxuRV+F+ez4V6bxGcVQr/g NTVFLM3L9QvI5O3ikk0IkAtOUd4hBCYgZtiGPTUnUnUgwAc2OmHDLgFziFua o/oG8BOQcdrYkjI0JUxNCUNj0tgEfgK0gTOIP8/XUP6oFZywk39TwCHLOIVp jxgsPWBsisKRcmJRu9RvRaAslmLkUFG1oabb2GNc6Ldt6DLNAOqqeahiqRUs 5YIhW7RHCwExI730s5dd8n/AM1b+Sk5f+VH5W273Vn7j22ukwTEut00bH9Qm yupg1ugPWdwWs1Nvc6hdFsZrJRwGicsg8hmEAejgTLyKgiaB39AcsohAfqA9 UB2ABd1CVMjapFDsCi5xzYd2eUkY7T6i7EbavNKqXQw+kDI3gnUAVfjFOuTm mKExrFkb1zekjc0geF7SxkaQcdEuAX+uusBJhHxVtYoKDmnRLYGCGDSLoS7k PAj4dtqLBVzCtB+tJpT9Be10m26xy7zYY1notUx0GkZq5oGirqtkqhYsuSJ4 tQfRYZ/7wtUXw97HZp9+//MI5x3pvGNctqo+E/flf7mZyd+q7z2oqSxqohWF x6s0W9RahcHEmu1Kg4WzWzmnibBopW4D4jNJQ2YkYsVCNgy2nXqh0yT2GMQR kzRukSX4asi/9jiI1i7Kg1d4kIoPL/uJggeFm3zMs4nyfBFs5jmbm3mvNjS0 Ghpj9QGqhj0gbIBfsLTAewQgtzkk7V5xzS0B58lZ+SPY5uKNCGQcc0iS4FRu WcWHFQNIxitLemWVGNWfk893mpa6rUs9ptlOAySQoZqht2LsLJprZXumZE/V Ig1IU31+7DzVizlk5e/h2xemhlZeOIKXwb6r/vQbZGZB139UVdksjxQZu5vR KzkNpVbjOj2p0ZFKNWbQo2adzG5AXSY8YCVDdtpvp/x2xm0hYadFL7PqZHAI glY0YkPCVshdMtiI2pCEAwHVZVxSCAnQqgBniBYgVMALjgG+EdY1BnUNQWND ULcuqFkLtKPmJrAUSM4lh7TNJYWMAWvgXHW0tDlFsF10oODSNY8IyJc8KBxT +CdybmnZJ6n5ZB0BtN2PlYNEuRUbzCvAqDd28WO6wzDWaRxtMw9WLV1VW0fV Waj6w4XA33/nW+fZrDyvwDqf3+fk4/lTDyuW28+VvDWvWLn6Z/KwsecuZXqM 8SdZq5XWaykNQ2sppQYIE5wCBdTLnG1G1GEmXFbSY6e9DtZto11m0mHEbUbM rpc6jUjITgacOJgkbECzFrUTCQeWdqB5j6wEMc+NwJrPFXZ+QPkD1DFTc8jU GDE2RvQNfMC21EVu4+sp7xVOCYwyYKy/BSqw0y1N22GIqx5Rm7sFfAka9phJ kIKM7ZP1henuADYQQnpDRHsYqUWJgbxqvKbd0GUE99jYY97YDR5iGahZetvM Xe2ubEfIGrP/yTe+ekk96V1Sn27/yEA+eZXJf1bO9fkKOFYrL1lxITRee90t XHET0zpE2wMyvY7Q6UiNAjizGkaupRVqSq7C1aBqLQqoTUbcYiatFsJuoxx2 2mGlXGbCY6U8VhqEDRsBFxV0ETDCTgK0HXVgBSeedyAVr6zqkQEieNe3uZAO L1r18JmEr5UOIVS3rKM572gBQUL8LjmFnX5ph0/S6ZX0B9AOryzn4JM53K3i bAHriFtFYRNkSAGUyLQLIgffMLba+Ha+7MXAPdr9SH8Y7YvhbWGsLcZ2Z5SD BeVkTTffqZ/v4hPIWId5tNPaVzVX2z2JWhjXU5ddecX503MfCyG/A+eLJxrq j7OKP3Srr/7K34hcedRfQ0xeqcYgU6swrYpQMqSaYlWMQs0oNbRCRyi1mFZP mgyk2UhZTLTNStttjMPOOm20zwFsGT8/uICbDTqpiIMAvFEbmrAiSScKfRzU LBAkQG73SDs84h6vtMcj6a6PdrcIYPYG0Z4A0hWQLVvBUAgdj2IwJmL4VIIe DmPQWlbc4u4gMhCQ9vjEIN2wRdBqEUMPHjA3+8zNYB0Ru8jPz0S1wI8yEKSD WGcYrYXQ9laqO8F0JZmeHDdSUc10WaY6TOMd5rGaZbhm6+nw5iu+ZCn046af 1bPXil+ZYvq9lvNN3+rPfeGHIrnAlhDpbFKdXqrUyJRKmYKklPygFYCaBjFz KoRTSDVaHDhbTbjZRFhNpN1C+pxc0M22upiohw67mYiXhgEtcN0o8IwVzdtQ UHLBJYWRrweGXp9s0C8bCsqGQ8hoEBkJowN+CWxMRfHhkHQohPT7JYMhyVQM nWqVTkdlswlsPo3PZ8iZBD4TJ6eTzHQcGY0goPa0Q8C3KnYhcPYawHCEKRcS dYoSLknAKoB+vNWFpD2ycgDtbiUHkkxXguxMsF1pFUQ+6GJG2nSDFUN/u6W3 3d5ec2UKDmfK+nf/ei0/X71i9e91XuCjk8DAePn007XfvW691t4s14k1WpHB KtNqEbUCV9CUCqeBtgLjlBhUQKiGWi0Jw2SmwTEsRsJmJtw2KuDkom426aFS gNdNx11EqxPnJypdWNaFF5z8XETZw4cN6Ckg41Xd6FAIHw+iY0HhZEQGGDfE 0emwZD6GboyjY2HhWFQCGGFMRSULKXxzjt5cpLeUqC0FYluO2JKl51PUfBoF 8lMJsjckBR8ue6BVF8WgaDqkaTcKpXbZroGzTd8UsAtzfqwzwvSnmJ442Rvn etPq/hQ3VNT0FdXtOXUlp24rGdrK1nzJFi86VW7lZ6+5MIO6fOr8dyuFy+ev +RJ45TV//BMpsU6ua5HrJGo9KBlTcZiS5jkrKeAsl6NyJaLSYGYLA6HOYpUb TZTVRNt5H6ZDLnnESUddVNxJJV1kwk3EHVjCSWS9dM4N+Q0Hk+RLv09S9okA db4em0db8fEoMRFGNrTKFpPofEI2m0SXEvh8VDSXEG9MYoB3Oi5bSEq35/Ed JXJXgd5doHfmyO1FYleZ3llkt+aYpTy9kCdms8R0mpxI0n0hBNy4zQf/Ig7/ UAawQ6p0YvyZF4so6cELQaKtFe9P0P0xqjtFD2fUwwVdf1HdlpUXUspMUp3L 6sslazpv9RWsNzTftKzJj1a/23muj2a5V6/6x+//4GZCvY5Si5RqRKPBVCpS rSJVLM5hpBzllAQ4BqNCVDrcYuUNGWjDhsPKuBw01LuQi9fwsktALwZ+CG/b tBvPesllzlUfBV1Jj5/o9su6vdAkQmchGY2R83FsLo7MJfGlFDYbk0zHpCDm 2YhgNi7alMZhLCaQ23LUtoxsY0p0W5m6o8LC+vYKvafK7qnIbyuxt5aY7WV6 KU9uSGLTSWImzY0nqIEI1hNCoSHip1KhaDrFQYcE9JzxoUU/lg8gnTGQNN0R p7rSip6sqi+vqaW5ck6eS7GZpByaxGLJHMkZbSHdn3+dvwJn5e91IvH8JUZf +MpXfybG15KaJlolVSkhY1AaNamSYwqCUNQhK3jOnAbTm0jIFR47A9ECqh7E OY8NC1hx6FCiLiLpItJuMuvE+KlmD1nwUsB5OTBD3e/0Yf1+ZDRMjoVFXR6+ g+73SzelsIWkeGNctgXUm0Amg6KNcWxLhgANb0tj29PIrXlqX1Vxd4W+NSO9 p0LfVWZ2Vag72ug7KsxdVfredm5vG727Su8o0ZuyxGKO2lKUz6WJyQQykSD6 QhikmrIXBScJ2qQ+hxh6w0IQz4dwSB3tURbWnSk5jN6ctiur7CnIe4qqWlZV yatKBXUqp2vNmte13Hie1u+an8+3J6tW/vN1169BtetwpZDjEJWa0uloHeiZ xpUYA5lZQytVlAoinoGyWiCzUUEbBU23x4J7rXwDCJ1gqw3nZ31dRApQO9Cc Byu58aKXyHtxEDbvkx60zYMNBKCiYeDDEB4gV3Q6m+eiss1ZbGsW35pENifQ +RiyWOe8NYXuzmF3lsh7q9SBCnFfJ3ugnb6vxh1sY+5po+6qYHdXcRj7O+h9 nfQ9NfqOKnVriQJh7yhzWwv0YpoAeY/GsK6ApDOMl70yONxQCrN+ohqma1EK 9NzVSnckFd1JFUga9AzWAV3MRJt+tKYfqChreWUxp0tkdXo7ddXVn63PUfxO ml55/nLiq//4y9e3kGul6kaClSqUhNYMRY7Symkty+hYhV4OsVmjZ/RGGiKc 00L6LUTEAWmNCthQv1UKjR5ktpgda7WjYINxB5504uAYIGlozcAxsm4eO6yz TmlPEJ+NQclDJ6PIRFgM65kYsjmNg2hvzWG78sSOArEjh23LINvTMuB5uEvx YAd5pIO4rwN/oJu5r5M60s083MMc6cAOdpL72/F97cT+DvJgJ3VvjQSF7yzz HgLa3l5gQNvjcbTLL+oOY/VB9USZvjjT20r0xvHhBDUUp3uSbHuC13N/TgnB Y7CsHq1pJ2va8bK8r6yq5jXZnD4U1/zk+v9YvrL4dwrQyxf7rf6rb/3rGinb iCpFnBLVmGmDjdYDVjULhHVyJQwNqTXgegMGucJrowMOkm/ubITfinjhzWgW BQG1A+NPgzqxVisStcogJwNY4Jx3YymbLOPg5QRRNu+RjEakU1ESUM+2ikHY UOx2pdHbsvjdZeKeIn5XCb23SsB6b0H2QCdzXzt1f4042sM+2MU83MU+1Ek9 Apy7yYd7qCO99P1d9KEuWDNwCA53UOAhvKSLIGwGUG/O8Y49EJJAFOmLoEMR bDLFTKfpiRQ+lCZGU/RInOpNUHyQTrJDBeVQST7SphmvaaY6VJNlxUhN3VVS lfPaRFKhtWJfuuaPVvxOzgGmAb94+ZVfvO6WlvWEQsRoUI2RNNhJnQU4c3qN UqdQalhotFVqVK9DTHrEbgKjIKD1WObssaAuixRQg7Ch1wPaIOllzkB1eSYH 7ALMGWjzXu3E2j3IUFACYzaKQMCYDok2xqR7i9Q9RXJ/iTyQRx9ox492YPe1 oUc6qEf7uPs6yAdqVB0y/XAd8kPd9KEafrBG3N/LAeH7O+j7OmFQIOmDXfI7 a8yeKgOFcmcRMgm1kCVnUiSwhcoIaXwsjk8ksA1ZejxLjyRI4AypYyAtH8nL JyqqkZKiP8/CmGrXTbVBqFb2lxWdRXU+o/K3Kn94/Xf+61Lml+VrBL7yV/94 g0TeRGslKiOmteA6I6G3yE0WVqfmlBQrl3JyiUYpNmokNj3qNhMhOx1xsuDP fhPuNiBui9RlknmMMp8J8ZtlQbMEPKQ+kKSNr/UAOeXhZzMg13X7yEk/MtsK epZAugDOsD3XKgav2JPH9mbRQ0Ue8kOdyIOd+NFOEpAe6WFh/VAX8XA3/mgP /kQ/82Avc7CL3lvC9rVTYNpH2unDNd43DnRS+7sYMOo9RRRo7y5ROwrU1iK5 WCBnMzSv5BQ7keUms8x8gZuEQpnEN2TkgzHQMzdalE+U5ONVdS1FVtIs9Cwg aUA9VFWCexSz6khCzWjFV171uf+qRS/PMK+4dPV3frzmRty4TmEVqS0SjRnR GXjT0GrkKprjpApOpJKLdQqxSSu16hDgGbIRASvpg/7ajHsMUrdO5tRJXXqZ z4j5zSg/O2qRRSzSiE2WsEpTdr7RBjH3B/CpKDURwadjBF/mErKFuGQxJVtK ovXkJt2SRG7LYvva2ENtYBTYwRp+Rxm5o4Td24btq+GHAGYHBYfgWB/P+f5u 8p4qeridu7+TgHvuayPByYHtHR3yu9pZ0DNsQMbemie2lJiNWXI2S04mGGge B1vx0RQzl2fBT5ZyzKY8OxYnayFZf5oczOKDebYjzVYzXG9RMVZVAHbw6r6S vCMtj8XUjpDym//+D5f8yvWc//tJ6eVG+6o//cqPm9FbKNN6pa1FbZaotRCb WRWnUNIqBfSCErVCpFUIDGqRSS226BGHgecJMvYYUa+J37DrEZta4tQt70FA z60WaZSvjAhEVrDoogvr9aFLKRK6jz5nw1BYOt+KbYpj862yBWiiY8iGiBTI b0qTO9LkzixxWx7fWyRuzSBwCCB13FogduWYW3Pkrjy+J0/cXaag6h3oIPfX mP01Curg3VX0jhIF/cv2PAmHrN7O8G3jUoachkCeYWeT9FSaHosSUPgGE9xo gt5UYMDG91ZZCITbQcYJojuO9mfp4SwzlGX7S5r+km6yopto58dQRQMxL5lQ +SOcgGhaterSOr//wsTdilUrv/5P370JUa1nzevlZoFCI+MwmkMh2SlZiU4h NUHrp0XN4Bg6iVUrtWilQNWlR0HATp3Ya0DrnKV2jXhZ0m69KGASA+ewWRq2 oOAbYMgVt3QWIKf5XDEawaZC0kF+NoOfu+j1ijudLYNe8XRIPBORQocyGhLC gLYFMgl04uNhZCqGzoRkcAfYs5jEFyBmZ/kBzQvYzoaomJ/uSBGzKWwqxk+A zMVweKipVmQ4IoFmczCIQPkbjpGDKXw8w85k2aUidXcHc7iLA1c/3EHe3cHN Z8jOiKwjRQ2DM5cVYxXtSNU0UTNNQ+qoqvtKfMArJJhomNC46K9d+/WPrve+ iPrXJ/8/Pr936Weu+LefNa1BNI20tpFTCxgSpUUsJ+YYEUe3gJhNesIGgVmH 2DUAU2pTiyxqoC2zGaQ2vcCtlyybhlUrBNQwXDpx0CgOmSReowRMO24j2n3k RIKbjBNADwLGSIjvU/p8soqTv3iDP2loX9/vlwz7BD1uQcm+Pmdvhp01j6jb Lej1tEC6hgNRtTVUrU3Q14wGBNMhwXxcuJTmHb7Dw0/s9wUk/T4hvE0GQ5KR sIyfevKJO7yCTr+4zYtAP8ifI4tQw3FiUxa6G/a+XsVjA4rHB7hHB1UPdLN3 VYgtGawvLCtHiM4MB2FjtKoervKX1ky38XruLMprZXk1SRXi6kDKfSMq/ujj DKv4j4/9J/LH1ddc84O14rVSVTOhaGGYJplYhgkoRkhSLTTZomDEOhVmNpA2 PW7XoXUZI1YNalBJQeHA1qGVuLSIS8vrGQ6BVSW2q0Q+vRgkDZ0LRBFovbsD xESUGQuh42FsNMJA2IB2u2oX5+vz8FGzIAJD31CwidPmlqBmbUjX7NPARmPG 2tzmFhasDXlbc9HRXHUIAXWPo3EiLJ2IodBcw9FJGYVJc3PatL5kb+K7eLsw b27mZ7CtIv4iEJswbxeXPeKSW9QbxiB7HOpmHh9inx6SHx9inh0jHhtjHujj Dnaxu0rIZAppC2OFINGV4fqLYMhse1o10maY6XH1t1ugN6yk5JWssdyWNqUz n7nqCysvnGv5xNnD37R85a//9geN6FqZQogzLai0UdgkljQzlBD0rGAk9SHW qmQWLeo04ND6OfRgI7hBhRgBqUbq0CDLnB1qqV0lsciFRq7JrhGCmCHaxR1Y LUj1B3gNj0e5/hDb5qXChiYYEas4YhZ5tS0+ncCharDL14W0DRmXNKhr8KjX 2xW3WJkbvcp1rYbmRP1kVquxAY5C0rA+pVvHX+xhFwC6orU5YhB5NQ1e1Zqw bn3EsD6oWe+Vr/cpGiIGOIiihIW/5KAziOU8SNwgHI8iTw4rT4wzJ0bZ54bJ 4+PEE5PUg8PcoR769nZ8cx4ZbkUyTnHGB/04lw8SuQjXVdSNtNmG2uy1nKGc lFdy+p6Bcmx68199+/uXXCR8/rq4T+MM5vxX3/7OzwRUM6psQbAGQWOLoEEk biDxZhCznBYrWamcFmmUYBSow4g7TbhZIwUxwx6DUmJRIzYVAoQ9apFLLXSr xFaFQMc1mjRCl0HUapVlXXhviNiQ5iZiZG8QL7lkRT8JUnfoBB6DGGQPR8St BewNrcZ1AeUNfs2asHp9SL3Gzd1gIX5mom60MjcHtOuDunVe7qcB+U1e7gaf /EaPYq1NfrMDbqrWuFUNXs06gNyqWRuDDXWji1trY+Gh1sVMzXAgOhzNszHJ 1hzTZWnYHBednNKeGKVPjHMnJ+TPjXNPTSgfGlHu7+T2VORQRufSRDmExDxI JkCk/XgsQBcTit6yrbtoacsaSwkuG+eqXfmOnUdvUrjOnzv86Pz1Jz/S9bGt y664/Fvfu269gJRiyiaZdJmzQLxeijZhWBOJN8lZMUMJwKUhNjtNhNNEwYZW BTFPqOGERpXUqBDZFQK3stmlagRxujUik0qwXDShE8968b6Y4tYUvbfAdkdR v7054ZBGTSKLttFvEaccUpCiQ7HOplinp2+xcWvs3BqHYj2AcrE3O9k1DuYW F3V9xtBUNDb52Ovd1Do7tTaouiWsvgmOBWBPWfhpqJihAUwG3CasXxfSN/p1 La2mlqIZjF0IRXbUIznUTr4wrXpqmPv5rPzNOcUrk9QLk8zJCfaFcflz06oH R+V7avKxBApeNJ6g24N4xispRdBiKxXzka1+NBNXV7KWQsqYS8iTcao1pR/c tFNd23DJ6kt/1TF+Q6hentO48o+u/u5Pr2+S0AIJ1SAUNomahaImiaQRQRpk JLiHQMG26JUSEDCYht9EBswEVD1wCatCZFQKwY1NcoFZ0eJWw2jy6VqCBqFT IwHNQ2WMWpBSgJqMK/bmNfdU5RtjVI+fgpjn0jcb1QI4WHZFs45cp6fWm+k1 RmotoDayaw3selib6HUWdh1IN65dP+Fq2RVrGmlFsoZ1I37h1gSxEBZDfey2 N0z5hdszOLgBHIiYriFn4o9IzS6cCYp2Z7A9BfGdZdndORSQvrlJ886S/hez ytcm2ZfGSBgvjnLPjSuem1YcG5fv62BHYvzZsYqHvwKh5Me6klRHkssG6FYX FvLirUEuFVWmY6pEKxVoZctDHeltD37+T79W/1DDMtHfMO9x4WqEa/7sz3+0 rqUFZZpEskaRQCyVIDIJhQs5SqjkRHpoTJSQ1qDFQ1ttOCSHiBWDEbUQMAIW DFKcWSHUy1usKqFPJ4oaxEmr1AdZWiUNGJGcHe8P0buz5ANtiqM1OfDp8hL1 OzSZ1S1KulmJ3CKX3aKj17pUDX51E1iBlV3jUq6FQ2YH1Nw6MO0ej+TuNLE7 gw761+9My44PK57ppR5qw3fFRXcWqL0FdBt/8gUdCtJ57dpOy9qtSekRqHRd +IuT2jfm5K8vqF/ZoH97QfnLjezb86rXxvFXR/CXRoiTw9jJMeaZMeb4FPvU hPzBPjlEd6gjPVGqO4n3xOneLNWexAshMuqWBR0ytwsJBtl4SJWIyEOtXL4W bt/z/F9/52f8x1E/+Rmuj8W55RyycsXXr/2HNRJKQimbxGKhVILhJE0RShbR ymUmDuqa1KmRefRI0IS2WrG0i4q6iJgdS1jwtA3POImIiTdnsxxihjCol6Vs srRdCsBB5NCtVP3E1hx0xOyxKvV4Gw0vJOtDq0Gmq5WDaG3mmm3yFr28waxa C+TDppaEjU8dIf06eNe7FA1q4mY1+pMRT8tdOabX0bgQbXlpRPXuBP32JPuL GeULw8xdKcGtCdlSWAzy3ppE9qSEx4dUr0xx78zJQatP9JLvLChPbdW8tah8 f5Hmx7z83Vn5L8bZl0ep54cIKIVPj7LHJ7jjE5DxuHurDETosRQ5miNHMmxH nCiF8aQXDdklAbvUbZd6vCioOtGqiidUqZytZ/cTP5aoV5wP0B//nPnHF/6a rpWrV/3dt7/XjGuBc4tYgmAoQdIMS6iVqE6B2JWYT4t6dRLoRHxGImwh0255 0kUnHFjMyp+zLtixtEnm10HSEDtVgphRWnDicbvMp5c6VaKwWTIYwg+UmYfK 9GNtzENt5GKCag+y3WGiw4uGTUKbptmla3EbmhIWURKygUUYNK4N69eEdAKr sllOrGOlNyolP66a1s0GpBPeludGFADw1THkjXHqzUnq3TkG/HZHTPxAO/nk EAfEnugVv72gfWuj4u05+sSofH9F+uqc5v2thvc3a09vpj/YzHywSfXOBuaX 04oXhokTg8SJIfr4MHt8TH58THlsgJ9ova2NWSxx0DZCR1OLkBkwZ5CxVRZ2 Yn4H4nchoSAVaWWjMUWgVde+abdQ673kwiUHnyyD5znzuy+79J/+46ctpFGA yQUSKc+ZAtCYSiEDPUOQCOtkQb0E9Ow1ECErWCuVsRMpOx534GkHXnTgOUhu FiRsRoJGEX8uG56PWQLBz29AIbVCU3Z/Vf5YgXikTB9ol88lWAjPCxkKNopO mUMjhNQRMguhkFVs/FlvCMl5Y1PCKAHfMHBrWWyNRHQz+POdbcqdGcFrc8pT G+SvDZKvj3KvDjNvDNNP95PHurBTW83ndqjPbdN8sKR+d1r53gz37hz1/ibN L5f0727TnFpUnl5QntnMfbhdfm6r9r057pUJ/JVx+rUJxSvDzAvD1Asj7PMj 3OOD5NEe9kAntaPMDURJyIFtrXjcLfHbRDCCLizsIWAd8JOhMB2OygMRdXKo H7cGLuSKFb+xCNZ949LPXPlvP10joExNMkYkQ3ASI0mco6XQa4OeoRlpNeBJ Mxk2UR49FrQRSQdRtFNg1BEbhEyCv9DFhuasYCMSkHHWQbSaZR6QqF4SMmMF l2wpTd1XZY6VqaNVxVKaGY0RSznmzhK9v0QvJhgwh7BREnPIOn3EkEcy7BbM BKUwwGNThmaftlmDryFkN7rpmzZG0QNV2akthtPz8leGkTcmydfHyDdGiLcW uA/2mj7cpj27iTqzQL+7KH9vgXtvnn1nnnprknhvmj69Sf7hkurMPMNvbFOe 3aw+tVHx1jT15jT7+igDB+ulEfKlYfrkEP3sIP1IL/1gF7G1gBY9oqofbU+S IWeTQ9dsNzX5nLKAF3O7ZD4vHgzRoVZFa4SNdlY5b3j1ZZd+VPw+dQbvs5// 4vduahTgapGUxFAZRSIMiWhoqUmBAGqLBo+aqYKDSdlYr4E/M5V2MXAzYMXh rVRxU1UXVXYQFSuStcjyDqxokSatRNFFdHrJkhMrOaQ78vJHOtlHK9T+EjkY RvpC2BaoiTXm2V7mcI2cakVqbv48S68P3dCKzoYl22PoXVnktgw/j5E3NQQU 67KGm5ei4jtSkqe6sTOLmlNbFKe2MKeWmA+3Kj64VX3uLt2Znar3Z9nT88yH S+ozm9QfbFGfWgATZkHVp6a5M0vAVgl3PrtDA+tzW9WA+gxUw1HihV7spX7i 1THi1VHqxSHqxADzVB/xaA++u4RXvKLuJDWQV4SszdDwmnWNdXOW2R0Slwtz +0h/iI3F6FhbRpcqrbzs8guJ7iNhf9Kor/7il3+4ViAUM7iU4DCZnJbKMZGZ QcGZIRhrGFHMilecZMXJRKyUz4gV3cq8Ux4yEzEn1u/n+jxMu5tsrwsbdN7p w5IuMu+UjrYSo1EaWux9VdVD7czjVeZomdjIX1lBTCSww+3ciS7qeC99ew7v iyC9Dtm4R7Y5hs0HJRMB4YEK8VSZ2JfFJ4OiXhe6OyH++QADRvHWNAOyBE2e u1V1ejv34U7l2V2a05uJtzcQ70yS78yCdNkPtsjfniPfn6U+XFCeXZR/sMCB LZ/dwp7ZzgLnc1sUZ7fIz2xhwDpenyB+OSl/e1L+1gYaxutT3Mkh8uQA8XQf fWcb1xOS9iVlvQkGSozdKHIYJFaL0GYXWc2I1U46fUQgzETidKwc9vaOffbq L124pvTXvnri/FUIf/yVr/3oFkGzGMNEmByVsaSYxcQWDvVqpFD+oLnLmrFO NwWj5mNhdPgURQ8TtuA5JznoYyZ89LCX7vKTJQ9/EVe7H4MKGLXKILzNRKml NLItK99ToI5V8EcLBGSG7iDSH2EOVNnna+iJbmZ3VjIYEc/H0LkYOdlKDnnE FWdLn79lb5LdX5YvBiW3tUrgnq8NoKA60OeZBfLDzeS5Lcy5zfIPlsj3F/D3 FolT8+R7M8R7G8gzG+VnF5XgzKe2cB/u0ny4S3V2hwrAfrCZ+2CL8oPtajhG vHVsVZzaRJ5apE8tsFBJYf3+Ru7NDfIXx5iTI9SzfeTeIj2cpgczXK0VTXrw gBuzmpoNhhadQarWik0WxOlEwxEmmpRHc75o7+CVX/ziR5XwU5YVl3zpT7/6 w5ubW1oISiRTIkISbaFxoUMhawVcJikYb83J9PjkfT52MESPtbKjYWXZA9rG Kl521EdN+PERLznmxwe8xHQAnw7hOTtacuMFh3QszE3E2b4QNx0jHi7hh4ok MN+cIw91yo91sk/VyOe76CNtzLY0tpgiO31I3rJ+Itg8HBEVbevvSFIHS+Q9 KfGTVcnP24Uvd+LwHn99GD81S51bpM9tos8u0WcXqNMbqTMb2Q9gzFGn52jY +BA0DDc3c+e2q87t4NV7dok9swnErDp3q+bcTg2/H8Y2OfwICL8zS76/kQHO b21gX4H2cJgDPe8p0/1xojNMlgNoLoQH3RKTsVmlbeKULQq1UK0X25wYcG5N cPGcN9TR9bmrr1qG+Vs41/Xc0txEkCKxQtqowIUKUmLhJFGDDCBX7Hi3mxrw MaN+dixITYXpiTDX5WMyTrLNTQPkqQgxEyYXotRigrstxdyb5+YjVGf9008j EUXRjaR99FgIe7BCgxvMpsiZVtGDVeLJMvFUjX62h3oUclSR2ZVjxkPkbJi5 t6LcHJfOem4+1oE+148c70Se7xI/1yk62U2+3Iu+MUS+OUSdmmDOLcjPbQak AJYfZzeSHy5Q/MYC8+FG5uw8fWae+nATd26T/INFBga/vUP94c762KrgvXqL nH9HLDLvL1DvbqShdL49C05CPd9HQYA5MqCcy8sHolhbmIj7ZA6rEMSsVDeT XAOlEnA6kdUBemZjKVUy5/YVC5/5/JUfN+VPmEb9S7Qu+fLXvv7jW5oaG1FC KlVKm42ExEAiRloc0WNlK12ykz0uYsSLT/qp8RA7EmRAt+AJNS/VaUenAvSG OLkpxW1PM1szzN4sfiBPHi6o5yL0YIgs85fH4AkHMhMmDlcgP9Pw042tLYfL 7CPAuYM53kE8ViN3pdGlpGQqJtuWxO8rk3dm0AMF2fEe7IVe2cke9Plu5Ol2 wUs9yItdotf7idf6sNd70fdnoAhyH25izkE1XAKFU7DxwUZyGftp8OcNOKAG 7KBkHvIWxblt4BtKUDXsgfvwtDdxHy6yoHZQNeSTt2fYN8YJ8OeTI8QTo5rb q5q5LNMdI1o9qN0sNBoFSm0LJW+m1GK5UWKyySJhNppURlNWdzYNnH/j19R8 RLvO+c///Lrr165vElEoqUGlJkzkYHGPBo+biZKFzxI9bnzQg475eSWDFQz4 6U4PAesRPwU7F+PknqxiZ4LcnabuzVJ3JmW3Ztl+H8Er2SKO8xcuEvNJ+fac eH9e8kQOebQdf6pCPtnBPdElf7oNfaZGHqvS/DUwFeqRdvyZdvGLHZKTNckL 7dIXO5E6XslrfTiIGVT9xhD+3hT55jACZe7cVvYcmDAoc4nX81lezySwhQGc wUYAJr+9xABhGMCT95AtcthTdxUN7yfzBEga0giUReAMSQ8s+tlB/LF+9mCn cltF0Z8kkl4ZdII2m1RjENFqIaUWKkxSsx3hOcfkwajJkYp95uqrfzPi8wuf Oq756lf//cc3rGloxsW4DsPNhMQpR0N6ImWWlSx4CXzDhfV7cKA6EWTHI/Lh ENPnA23T0xFmplW+PcnenVPeXVTvzVB7EvjdaWI4hEBzB1UyYpL6jSLoWaYT 8gfK3OEi8mAGe6AofKooeqqLPdbDPt6BPtGOnmgnwKhPduAvd8le6JK+0C4+ 0SaAAZxf7Ja90oe+0oPA+uU+6S+GpWdm6+awmYYBtgAhjUddhwxr+BGMZc4A GeojL9q6UfDusazeJebMNsV58kssL/Wt6gucX5mQH++nHuunH+jjdpQV/XE8 F0SibtRhl+jNYkYjIME3DGK7mwgGWbAOT0RvjUeu+PwfXYwWv5Y3lvuUL335 T4HzLeuapQKZEidMNOaQo0E1GtdLcma0YMU7bEifGxv2kWM+dtk6hnjmJJS8 +Vbm1ix3W5K9LU7sjCO7YsjeFLkYo4daFXkX7TRKoQfxW8Rll2RfQflQEXsw hz9UxB8vyB4ro49W0cfakKeryIl28vkqdqyEPdtFnuyUvNCFAernO4Qvd0l/ Xuf8xgDxaj8OHvJEh+iNYRkwBK84u0gCN/BYvqhtYZZ9A1DzMMFANmAfzBP8 T7fJoQfk20Dw840QCykwZNAzVE++gG5SfLhNfXarCuogNOPLFv3SKFe/YoHb 3SYfS9GVGBXxSe02sc4CjiFmtUKFQWx1ky4vEQgw7rDGHPFccdVVn1Dvr+v5 qi9+6V+u+/HNa1vEElROM2aWdXKERymLaGUpQ52zA+/xEINuctwLeOnJEAMG AmKei9Kb48yuNHt7itvVKrs1Ir09jhzMMwfycjDkmFnm0PMfP8n6mIhF2h8U P1jAjhWkjxXQR0o84Sc66Edr5JM1DMT8dBvxUAl5ro852Sl7oUP2Qqf4hU7J iz3Slzolr3SJX+wU/qIff3OMeXGMfHOMOL0BsjFVd1caoh1v1Fs53kMWaXDs DxYpnvYcwd9nK5+xP9gOdsEXTXAJyCenZokPebUzp+sd4gfQvOzUnlriIH6D qn85reA591IPdTL7e5mlAlsJkQGPxOmQaMwtaiuisaBqs0zvQK1OzBdkPEG1 IWBb5vwbJpHOZ2de4Z+98jPf+s53frZWLJRgCoqzKFR2Be3TEFAHUyYkZ0Vq DrzPTQ67KUhxkxDSItxclNsYZ5eSLJjGzjjD6zlK7onJ7s2SD1ZYKHObI0i3 B615iZ4I3eFAKx40br3lQB6UjD5SQMCfn2hDoQIe75MfyYohWkPP8mRZ+Fwv +UIHfrJdCpAB9UvdYNHCl7vFrw8hb47CwF/uxl7qEoFF8+UPxLyJVylv1FDj NjOnZzGIfMucQdJwH7h5ZhN9eomCw8FbMeCdJYEz+AnvMIvyU0vQWirAqwH4 +wsKXs+j9AvDzGPd+IMd5CND3J5OfcmPBX0ylxtR6ptZo4QxyWCttWMWL+EL s96QhjYrL//clb9S9T6p5vp3aFy++m/+4W9/dGOTQIyzBGdSquwahVtLgUUn zFjOLAPOEDlAzyM+Zjwon44o5uKKTWnVloxie5rbkaB2J5jb48S9afJAluAv ImpjeNoF9mCevTNH7E7hC0lmOCSFvuNYHnuiBkmDerwqO95NvdjLHmsjHmkj IE292IdC7TtekT7fJj1Rk5zsELzcK/p5j+C1fvEbg9JTM+SpGfrNYeKNQeS9 KRxInoNaBpDBMbZComB4mGAUEK2X6iGEFzyfSc5s40DMy2F72Z/BOqBEnlvi gDM4BvQvIOb3F+XvznO/mKJeG+M5P95HP9THPtCvWCwqUj7M68EsThmja8a1 Lai6BVcL+FLopn0hpTOsbmGk/Nf1fbpvLH/vLCz/6+tf+eGPrm9plmESQs3K bRq1R6sIGyjgnLfwEbrTSfR6qUE/OxqSz0Q1G5Ma4Lw5rdyeU+zOqSBv3JEk DuTowwX6SImECHe0Jj9awu7LyR7KY0eL9FgM6fOSkAAfLBD3VaEBAd+gD2XA hJnjXewDbdiJdgzUy4+qZNmcXxuUvTtBvjUmOzWJvzuGnZ7GwHLPbqBPTfJR GfqUc1vBmSEG8zWRNw3YOUeeg8JXRw1rHu8OBXToy6bBQ16ARK0EJfOcNyk/ 3MJDhnF6k/KdORYg/2KKeX2Kn7471kc+PCjf36ccjOFeh9hiR1QWBFE0iZgG MdsskzezepHNQ/kCCltEe4N43fI3Ofz2yAGq/spXvvC97/5H03ohIkKVBLwP VG6NMmJgUxYqb6dLDhpawi4PDS3hUIAbjyg3xNWLac1SSrkjp92ZVe3OKPam mUMl+eEid7Sk2Jdl91XlkIT3Z9AH8viDeWRbSro1o9mQ5o6WmaNl6nARfaJG Pd1BPNshe7RD/HI/+0ovBZBf7UdO1oTAGSrga4OS96epD2aoD2eZsxvYMzP4 OZDrPJCk+bQMeEHGUOB4Z2b4IA1450mQ9PntOm2Q8QcLxOk5HCDXe0YgzPKh eoEEMZ9e5CA582JeUEAz+MYk/cYE++okcWKYfGyAeGRIcVuHsuiTGE3N0ADi apGIamzE1jbh6yRsI6sXOr2Uz8cYQpp/v/mHv+ET9x+/xdsz/981X/zcv/zL t26+eY1IIKQxqUFOudRcUM9GzWzGwZacijY31+Vh+73scICbCClmYor5hBI4 b8tpdqTVu1LKe0qaw1UNoAavOFRQ7MlCx8HyWS6HHs3JDhYlh/JMt1twqEw9 388d72Uez4mezgufbsP2FZterCDHOyBmSF/sEL/UK3l9AH2tR/pKr/iVXuF7 4yigPjNNL9e+c0s8QL4x2Qa1jz27jYM4AWJetmK+KwS8YCb1m+c21Tc20fXU R0PDDpyhVeQbmY0EFMH35mnouPnJjUX5O3Pyt2cVwPmVEfK5AfLRbuJIFzud JCLWFoNByCmFMqaxGVu7RnLjOmStVC5QGqVOL+P1sqqA+m+/+4//mwuhPzql 9fkrL//mP177s5/9RChoJhGxlsJscsKnoVpNTMLG5hxctc65zwOJDrpvZjLC bohyCwn5pqRya1q9M62+q6g5WNEeKCkB9f6ycm+Z3pej7kkR96bwQyny7rzs wQQ1EhEdLOHH2/HHi+LHc8JHK9JnKsz+rOSJNgRq33M18cma6KVu8Utd4MyC n/dIXu+VgGOAVwDquhR5jO/PILw+IVds5u0X3GPZe3mkG/mpj2XfAK84B6YB Yzvf931QnwM5PUcvdzFA+9QiDxmiHX86YCMv6V/OKl6dYF4cwIDzIz3UfR3y vgjqMzTrdEKCBcjr1ohuuElwQyPegCpEGgvi9LMOH0O7uC//5dc++RcZPsVD Lr/80mv/9hs//MF3G9avlQoFclRmZnC3Eg/qyZiFTtnYslte8wBqesDHDQfY 0TDNo44r5xPqpaQWPOG2vPrusmZfUbW/pL6toNxRUh4oaw5l6INp8mCOfiCD P14hnugmn+4iH68iT1awp4qSx0vIo0X0gXQTtNgvdqPPt4lf6pQ+XxM+Bx1K l+TVbtEb0JgMiM/OkpB7630HwQO82JLU89siD7ne1vEZY3nweW8zw0M+3zCy dSWz72/g50tByWAaZyBCL8lPbVS8PUO/NUu9s8BfafDiCHlikDg5zDwxpNjf qWjzy+zqRk7RjFLr1orW3Nhy/S2im4R0E7QqFgfqCjAmDy3Wo1d84coV5/uR FR990+NF0B/9XQZ+WbXq0m/8xdeu+/531q5fIxA0g3XoGJlNgXu1RMhIRq10 ziUvetiqh+3ycbxLB/mCOBZWjEdVUzHNQkq7LaPek1dCY7inpJjLKMcSqj1l 3cGyan+G3JcU35cnHiigD+bF95exAxnRw2UZOPNThZYncyJoQF7qQp+tSE9U +Tr4co/s+XYRNIOvdAlBz2+PIGdncRDq2Y2Qh/kKuAyW9xDehKnlGaTzY46A O/NNyiLFc96u4JuXOQoIA2dwewgtvKQBLx8w2Pfn5W9NM/zYQP9yjnltmoMK +PwgDObxEe2eKpu2CoxcA0Y2iLB1oORbhNc3IregXLNKJ3J6SBCzzsXcTK6/ 5LKVqz+m5t/+aYovf+WPv/3df73hlpuFYhFFogoaNylwuxr1GsmwmcnYlWm3 PO1VFDzytqCyI8D2BLjOAAujL6AcDSuhs15KKYD2toJ6JKbqiarm04rdRcXh ovJQnjpUkB3MyA7GpYfSssMp8aNl4pGi+OmS+OmC9Nmq+HhF/FxVAnEO3ONE p+jFLhGEZ7Dod8fw01NUvQLWhQrWOo+fmcPPnu/76GX1Lgc5OBC8pUwj/BFZ opanmPj7z+BgO/VYCMmZP7HFR7sl+btzzC+nyF9OsW9OQJxjfjHDvTrJAeSn +/EnBugDXfKJGB4zNGq4BiG+rkl247qmn64X/lRErOXUIujBwwHc7qXVLvm3 r//++T7k4jcc/TbOn7/6yr//t2/+5MZbWlqEKC6lKELF4iYV7tHjwDnpUKXc mpRLlXYrc15lyctBW11wMwU3XfCQbV6qL8iMRrjpqHImoRlP6tr9DLTe41Hi 3oLygar8gSKxP4nemxDdnxZDq/JYmdyXkR4t4U+VkWeLwmeK0mfLkhM12XKH 8mov+nKX7NVuyempujNvIJY5Q5Y4PYvWB/Zh3TTAQPiAt5k5uwnCM16/Awac 6/bCQEtyZgZ9bwp9f5qA8d4McapuGnzHvaR8Z5p8c5J4c5qGOAdJ47VJ+uUx +tk+/LE+8tgAfUcb3RuShk0tJo1Qhjc0SG68sfknjdKbZMx6laYl6MEjQcri pCgL92d//5e8IXz82wt+a01cvXr1N775l9+//sbGJqFYIpNgJEHhajnm0ZEh Ex2xKeMOdcKujLlUrQ5FzMGCmcCIO0j+w5h2vORiuryK3qByMMj1R5Vtfroz qKr5yaWs6p42zZGC6p4YcndMBGI+kmw+khXuiku2BJqB8/Ml0fEi9kwZOd4m eq4qer4qgNTxfFUEHff7E8TpKeLMNMk30XP48pQFbJyZQS7ENj5Fb2XPbMTP T0HPE/V5DxrED+PDegMIWQXsgocMprFRfpq/foN9a5J4a5riHWOGAcg/H2dO DNFPdCIPdZBHe8g97Vx3UBq0tOjVTSixXoDcvEZyQ4NsLcY2G3SCmI8MegmD gxQo0cu+8LnlP5Px2+B+bIFu8Stfu+Y7P/r+TY0tIjEiQggZicsVlE1HB8xU yMYB6qhN7rfJvRbWa6U8FtJlwmHNf5+JhYpYmKSTzXjpipOu+di8h0552LSP Hk5qFktaiCKHs/T+qPhARHR/THA00Xw4gx0q0k9X8GeL4meKsmcraN1AhMer LcfLzcdLwFn6zjgBegbrOC/pWRy4AXNQKR+kF/lTKssp7oN6tOb1DFFkiTdt wHuuXj0hXZwnPM+H5zNz3Pv187NvT1DvTDGgZx7yGPXCMPFML/FwWfJglXho gLm1jHf7JR5jM8PcjJO3cGwDQt4iJhoJuchoFEW8hNODy530D5uuBymf/wsj /+nvlrn6qs9+89v//KM1TS0SVIrIpARBcJxWI/eYmZCdDdvlQRtT/94S0mZE rQbEakD5T6mYKfBwtx73mrCATZaykXk3l/DKI16V10TEbFStVX5b2fBAnj6Q RA+FJfe1iu5PCh5Kix/NocfyyBMlyVNF0XMV9LmqDCLHiXbRs2UR331XRa/2 gaRJcA+Q9KkpFBpD2ODj9MyytvHlyFH3B/zDDTzn85nk/2vvO8PbqrJ2nU4K JCEMQxKGQAgkoSSkF9LsOC6qRzpdR0ddsmTZsmxZLuq9y7Lce5drnEYIIbQU BhJIJwE+2jB3YIChDGQo33z3x7372CGEGaYwTL2X/aznPEeOlcd6z9K73rX3 XmuP4Ty+qgLgBTZGGmKQrQDS+GpE+gXw5L6xHU0DCqDlPkxJ3+2i3mgiLyWI M9Xky12KZ+qkDRbUqGErVBy5jJ2nZCnlLODMlArWFSJ2C1VYRolLVYtX3Xet ieJfj/OUKZPuvOeu9em7soWYEEMJkkalMqlKVqijAZLWIqZw22wQmwrEei2a r0IKNJhBjVTqRJZ8qkzHlKuYCzGLgbAZiTIjUV4stxkVzjK1v1K+16sBAu+k D/+5Q3jKT5yLis4EoHNe/sUA8nJU+Hqc/4s4/MsE/g7AuQ4FIDMvk8i79dAn HTiAGuQp/90vAjTy+5QY5N3/PUAAlx4n6nGQ//cgUBoMsICW/88BBePDwxS4 MjjvZjz5y7FVWkDOQNcBZgY4X0lJP03JP+qVftAr+aCX/lUH+V/1xMUEcTZJ vNwqPVEnq69ESrRctYqfr0MKdTyNhiNWcaUqqLgIs5WT2hIRpBXNvPXmtOub vv5VY2zO/7a5KzZu2JbL5ggQFCNQiqRkYqVaVJJPVxRITAUiYEU6UqNCVQpU q8YKNUipltlcZ87HTPrxohWsLB8y6vj5Wri8SGwuIn1lVJ+HPhaUn/CIjrnR 533kuQB5xo+e9QtfCqKXQ8jLEeiVEB9ovF8khCAg/iKBvBnlvxHj/6pO8HE7 8Vk38XlK9OUAQFgCoL5K2rsZjx2PcQz9joxpthExA+yo4osB8ReDIqCWfz8i +58RGXj5+aAYCAxmcWpEcmVQCmQGE/v6AMg0wBnIubdayJeS6Lkq4kwCu1BH Ha+R15XzvSahWQ+VG5lmHWaDoEDPL9RB1mKsrJRSFEvWg3T7+9dpjrv9DTOm LF2xdP2O7ZkcHgfioyiKUSguFerVpFlHG3VkiZ7Iz8MUCqaQUKfBDXl4kQY3 qmGzFi3VoUUalCkCyoNK8gQFamYHqV4Dxx15HXbRYa/8Ga/0KS/1tA874Rac dMNnvMiFEPySHwEcct7PuRTi/VeE/3pE+FYcQC18q0oAEpb3mUlR7EoK/6Kf +l2v6KsUBXBm3BtIiBFmBg+oYoAkYOAxA/ws/Z/dii8HAbb05/3Ul/0088aU iPHh3VKQkgAb13KALgDI7/UyW+zebhW93ii6WI1drBZfqKMvNctP1Kv63HiL Aw+VCsJlaJODqrMwdaYuk8BhQvVGEZJP37powZ/kij/j31ebLqYtWDR/9ZY1 W3ZlAqj5CCQkeBCWQ9GQVooVKcgCDQHgBc6sVDFlFIA6dBq0UAMDkAHURrUA 3FTomN25ZTqMqWHJJypL5V6zaL9H9bidOOKEn3AIjzuRn7uRF9zIi37h2TED gAMauRzgvRLkvB4Djg0xeq+a924D/JtW7EoP+bsu0ZVOEqThgEaAb381SP/3 oBTY74dk4PrV0Ng9gzP1+1Hpl4OSz3rJK32iLwak4/Z5vxgIjM8HpJ8NyH7b J/ttjwQQ8rs94rfb8TcasTcbxa/WEpdqiIsxwBvUqQb509XS/X5id4BstAhb bFivHetyYi2VRMAExDOuLlZuxlgTp036mwq8r7r0TXNn3PfQknVb1m3dmZ7N ZnEELDaUK8C5MjGskcBqhUCtRGRyGPhznnoMZODSWrQkj3Hp8jy8XAvb8hFH AWIrJOzFlLlQVKynHcWyfX7l0YjkiBs74iCfcqCAQJ51Y8+7hKf9gvN+3ssR 7EUn96wj95yHc8HHeSXEBdHw7ST/3Trhh63Yh61CEBN/2ym60kN9kZIAHQK8 9KsBCWOD9JeDwHXFwHUBdTA6GfykX/q7FA3s85Tsd/3MLrvPUqKPevCPU9SH Kfq9burX7SRI9t9qJl5rwAHCr9SQF5PkhWrR6ThxMkIej1NPV0ke8TENE0Z8 TEeFXhvcZkGS5YizhF9UgqIG6o6Vy9OYuc7JfwnUPzkmTU674855K9fcs3bT 6m07t7M42Sx+Lg/lisWQkuYqpDyVDFHIGKjVwJm1WFE+05uuJJ+pa6vQYRYd 6izE/cWE28h0BfQWU3ajNGiW7/HKTsSlT/mxp31ioKVBNDzhFJ6w8Z5zsl/0 5p5xc0/ack5ZWeD6gnPXWU/Oq2EeQx1J6P16+N16HiCQjzuo33ZRn/XQV/rE gEMA2l+O+TZDv/3AmKVwECW/Ak8hxfyEQThFX0nRn/ZTn/SRH/eKPuoTAwn3 fg/9qzbRmw3YKzWCy0kE0PLFauR8HDsXJ09FkBMB/Mkg+nRUDEA+7B+D2kn0 2PCaUiHgkPJivroISxezp86a8bedJXRt2z9Ia+bMmXr3klvuX3H3us1rd+za voudzYE5JMmXUnyZGJLTQrkUlikQlRrO0wgL8pDxOpSysRJCix5zAXhLmK1f gWIsZCT8xWS4FO+y04eDkhMR+udR+nREdDaEP+9FnrGynrWxnnOzTrnYpx3c 5yw5z1kzTzkyX3BmAagvB7ivh/lvxriAqN9tQj5owQGHfNiGf9xBftJFfNot vtIr+bRHBOyzXupKP/VZn5h5BIwnMy8BbzCWoj/powDIwH7TI3q/Rwxwfqed eqsRf60WfTkJOBk7G4fPRpHTUfT5CHw0gAGcH/Mi+z0Is2PHiXZb8USJMGKC XcVCYxFM5uP3rF4+BtkP6fLKqO5pk9Nuu23W0uW3P7B62bota7dnbmPzsoVC FkHwRBQsFgtpKTCBQs7XjkU6Qx5TM2jSCk16BPBGZT7sMKBOI+kxipyFqN2A 2wyw04A0VpCPBaXPV8mPh4inXfznQ+gJD+e4JeeENfeUi3vKzj5pzT7j458J CE+5ck+7sk47sy94WADtN+LCX9aiQF0DwN+pF77XBL/XhL7fin/USX3QRgDk P+2iANqfdFOfdNMfd4EbknHjXmbR9tN+6ce94o96mEIJgDMgjfe6xQDnX7bS bzSIXqnBX0riL1UBQ89EYPAnHQ0gj3uRw178gEe4zyNIOeCa0nGQoQoDrMwn Mgj29OnTmJ6BE39oL10A9eybpi9dfseKVcvWbVy1Y8dGFmsbn7sDRXMJCqJo ISWBJeN1snKBTgkXqAE/M3rDVIiX65mACLya2f+vRyxM5RrGREkdbCsQNpah j3ipZ0LSowHihTh+Oix80ce7FMLOB4WnvZwznpwXgsKjHvhchH8hyHrRlX3a zWLy9AD/1SgM1MhrUejtGoC54K1qHrj5dRPBrA40YR+1ij7pIAGrAGw/7Ba9 144BbD/po4FyA1EPXD/qpoF92EMzNSldgDcYjQFwBpr55ToRkM0XEvCLceTZ EPaUHzniww67iYNu4aiT12kT1pYhQZPQCnLwfBTTEovXP3j1PL+JP6ij/Ph8 6aRJExYs/MnK1fcDnLdtW5+ZtSmXvY0vyERJNsCZliIyBS6Xo2ollqcmdGqy SMtIC6CfS3U4UNRmLW7SAiHNVAWWqnkmDWpS8U15XIeeW13EG7QiT7px8KFO xbDTUfilGHEhgpwL886GeU+6eIcqWQxthjmAt1/wss8F+Gc9PBArz/jZF8PC M0HOpTD/lSgfZDcgVX8zCb9Vg/yvBmYb869bcYDwBx0iYB/3SAAbf9BFAftN Nw3sgy7wEoBM/aoD4Cx5p136Vgv9ahN1uZ44Ww2frIaPVsGHw+gTfgyQxiE3 vt+FDtmhpgqmwaanRGAsEEh0RCbKnjZnZtpfnv78S458FWrmcc2YOfWee+96 cMPKtQ+v3Zi+JSMnK5ubC2EcihLQEkyuEMuUIqbppU6i1Ur0OrExX2TU4cCK tSRw72ItCI64WSco0UAGpaBAxipSc4rVbJMmq6o4d7iS96hbeNiHHPUBB2a4 AuD5Yox81MY/GcGBALgQ5p0LCc+H4XMh6HwQAv8KED4TFfzcK3jBz7sY5F0O 81+NQZejvPMRHnhGIGV+vQ57q1b4dj3yTpMIKIr3Osj3OxlpAQzcjN+DCMiA 3KZ4u03KbNJooC8lRefiglMx+JkgBhgDuPE+F7TXAQ/YhF2VUG05cwRDRRGk 1glhJXHn/fd8De/fiPN134BvDtWaN2/usjX3r9y8fn1GxlY2J4vP40FskhRI xJBMKZblSeVauTY/T1+g0ekZqAvzKJC5MGWbWhTER4DzeMV9oYKjk2YaFDlF 8iyjcqddl9VQwhso54/YoEMO/pNO4VNe9ISPdzKAPRsRMxlZFL8YRy5XgzhF XK5myPN8VHg2KDgfFlyMQS+F+ADYixHopajgfIQPnsXTHs6JIPxqDf5qEn69 Gn+9lnijHn2vmXq3VfReG/leGzVuv2wRA/tVM7Px6c1m8ctNNMhKTiewsdoB eLcbP+zH9rnhIZswZYN6K3jN5Uw36UoDL1/HJdX4GtbmiTdMHj886Otdiz+k vdo3OE+ePHHhnQvuW/PQmu3bH87lZPMQkLrw+AIUF4olpFQjleiUdL5Snq9W 6RQqDaVQMo1QtApEJ4XzlTATInWwQcMHnpyvYBer+UYVp0iVU6rOcmpzooW5 TWWCQRs6ZIMH7HCqLOeAjXfIjR4NCk8GBSfj6AtxBHDm+QQOJAGA+kJEeDGK AqjPhwDDQGdDyJkYdiaGnAri4L0nA8LXIzBwy+MB4csJEgiJ12rwN5vgXwJ4 2yXvdACvJhjB3CJ6rUUMEpPLzdSlBupCAj0aE1WVA+Wf1WGFDwZQEPsGrcI+ i7C9HIqVQg4Dt7CAJ9IKMkTc2QtuSbu+KcEPi4N/cFjwlGmTF91z96qHN6/d ns7swsvh8rk8COIRJEVJZWKFTKQSS5S0UiVVKCmpEh1rJSHQyCCtjFsgZxep eAaAthop1iGAukHaXqwHERMuy0fK9bDXJK4uoxOleMSE+ApYSRO3oYzfVs4e tXMOuQRHPPBTXsGJoADIWgDp2Th+JoqD68VqGIQtIA9ORwXHfOwn3PwhO+cJ L3Q6jB53cY55uK/VUgDkywkYKORLNegrSez1OgRQ8cV68aVa8qVG8qV64mIS PxeHfx7E+sqh+lJBZyW6zy58xAnttkLdZqipDIoWsZwFHKOOS6n42TR06/K7 v+WEVy/fG+k/k6pPn3nD4mX33r9hw5qt23ZkpLNycrlcPgITCEqiGCEWiyRS kZgmaBkpUYppJSlTEpo8UqvGmDm9PKRQKzQWwKYixFRMlJok5lJFpSnPYtKX leRVmtQOs8pfkecqlVgMhKNQ4NAz3QaazNyUFQbhEvDkQYbG0SeC+NNhFBhg byB3gRg7l8RORlHAPEkzL1mYGzdmjVjR58Kis0niZFzwItAPEehkGH4xxGjj S7XU434MPDvwmE4nSEBNz4WFx0IMV9QUC4F42++GRxwIIOQGMxIpgSr0uaV6 Dvga0goOSwot2bhyrBv2dQLjzx3W/L1hv3qgM0jG59x49/KlKzas3bB1087M 7dxdGRAnF3g1l88ToBhGSWFaIhRTKC0lJBKpUpWn0xQatIVFqmJznqE0v6jM UGYtLXeWWp3FDpfJ47W6vQ6nw+KoNDlshV5XscemcVXIPaUiRxFkN0KJSmFD BdNepruc318JDduRfW6QO8BPBJBjfsGzIeHxEPZMDD/iQ9tN7GhR9m47POgU 1Jhz99oEh6x8kFz0W6EnwsSzAfw5P/9MBH0hRnUU5+x1MXuwwdMB35FRO7/H DiXL2MlSYUuFsK0CiRQLLQWCskKoUMvKy+MrlAKJnMeVcFbt2jJlxtTJY4tT E76eBUr79kL29wX2j8d440Ewbpk3+74Hlq/ZtGnrtk2s9I0QexfEZ7G4Wblc DgenuRI1MEisRaUyQpmnKDDnlzsNdp/JFy0LJs3+mlJfrTlcZ4nWu6sa3VUN 7liNJxLzhHyBkNfndQRcJX5bYchW4KtQeCroENO5kUiUw82VcLtF2GdHhlzI Xjd0yCc4HGCk1+NB7MkI8HB8jwfutPCGHYJhB3/UJgBR7DEffsBLAgxH3RB4 HC+EkOdC+HNB5GSEfDFBH49BR8KCIwF81IE0lkMRE9NfxV2CVhogi55lK+R4 ivjmPI5CyoMpiCPK3SLImPnTeVeRuB6utL/zQRTfNCueOGnBwp+tWL9pY3pW Fk/AhzEhTkEYwkVxFi5jifN5qhK8wE0aHYTBRpd6ZLaQ0lWl8VSbAnXl/poy X8LkT1ZG613JVm+yJVDdHEjU+eMJXzzmDfmCPmvQVRZwlUbcxrirMG7XxG2K pE3a7JB1Oug+NznswvZ6sUd82KN+HNAIAOqpMAlwPholnwmLngQJZoQ4ESWO BXGQOB8NkUdC+GMeCPjtySiTfQA18mwcPx4hnwkInvYBeUP1OwmPgWstxoCq NymyAF8FjTxvYY6tgK1TZfOJXSDvy0CyfrZ80VVn+3o245s+G39XnK/9bwzU kyfedvvClZt3pAsVbHEBJDdxxHo2nceRGjjyUq7WChn9hKVBbG0UV1RRZp/S 7MyvdBU7gmWe6opAssJXZ4m0OKrbPLWtvoYWf01TKNkQqakPVCeC8XAkFvQE XeGwsypkCXtNUas+Zs2rtqma7LJet3jQTYx6qb1+en+AOugnAdkCWgBgPgUw jBJjJjoRFR+LiY5G8WNhADh6PIo+E8GeiSDHIggg9seC2JGg6LifOObD97mI qlJBiY6l1XDzlVnlOo7bwAVRrzyfla/mE2RupnDnBjjz7tX3p00bx4A5C+kf ewDTtVZWEwFXT5g2Me22+Qsf2pa9FTfsVHl3qvxZuI4tNrJVFSyth6N38Q1x zFxD2htFtnqxtVpljRc4q4rGvLoi2lxR1Wqr6fTU9QSbU5G2/lBLX7SlO9bc HatvidTUhaprAomYP+5x+cwOtzHoLk64Clvd+cxuHJ9iOCjfE5TtDdGPhCSP hSSPR5jWo0+EyCei9OEYvT9M7AuSjAWwA0Ce+eBH/MjjAfzJALOL8kCA7Bvj n/0eAsi2+nKBx8Au07IL1CDe8cwF7LI8lkUNqRRcDpWTie7ayEuff9/iCVMm T/iz+7j+vjinXWX+iVe7TEyccPP8Rcsz8bWELUMazkaL2JIirsbC1/nYeh9H 6+LpfEJjhKhISp1Ncmej2lWr9SSM3iTA2VLdbk12OpI9vsbBSPvuWMdwdeeB +p4Djd3DiZaOcENbsK4lkqiJRYOJUEVtwNQWKe2PmUejxv0R/d5o3mhUvS+i PhBVHYwAUxyMyB6NMXYgJOkKoJ1epN/H9Is+4GV4e48PATbqR4Y9gpRT2GNn qL6lkhcz5nj12XGDoDI/tzAvu1LHL9cC/ZmjlnG4JHs7snMtZ8v8++4cP7o5 7Z8DMjO+HVKvljFPmLNgyZId2Epu0U6ZY5fSmq205ijs2RoPp8DP1Xt5BT64 pEpkqZXZapSOZJ6nvsBbawo1VyTagT+767u8jT2h1qFYx+6qntGavgONAwdr +/YkuoaTHQMNzV1tTY19Nb6+qvKBhHm4uvxAtfnRquJHYvq9cS3AeW9YtS+i 3B9VjUZkw2HJaEQBXg6GpD0eMuUjRwKikQA5GCAGA9igDxl0YMMOfMCOphx4 Z6WwrpIXL2OOEIoVQg49q0LPNqvZOkkOSe3iEtkZeM7qnIdvXfozAPKEP/rU /1Scx7x6/AiRG29duGjV9lV8XYbYniVz56hs2Wo7W+fmG7zC4gBSEhOVVUkq Ywp7jcrZpvU0631NJeHm8nirK9ntre0NNw9VdYzGu/YkevbVpR5tGXy0Y/BA T//+gf49u/v797Q3DNf7huucw0nraG3F3qR5NF46Gi0aDuqGg3lDQdWQXz4Q lPUFZP0BGWCVVFCe8kv7A8BoxoIUsFRA1Oejet1Ut1vU4SZb7XhVBewvZ44i chTxSnQcjSKbFmcj4uxsImsnyVnHz5h75/y0scN5J0yY8FduMfpHjHE5ffVE 97SJM2fNWfjA+ge3w1twc7ravktTmau1sHRWXr4TGGxwkyafpDwut9ap7fU6 d3Ohv70k1FkW6bHGez01PYGGVKh1ONE92pja19G/PzV0cGTo0J7BA3uHhkZ7 2oZaq0ea48N1gcE621C9fTDp7KuqbIsWtwUMTS5NvYWut4qaHFSrUwQAbPFJ 2/3yroC8yyft8NPA2gN0m0/S4qMaXMw5KdUOUdxO+svG2u8Y4SIDpNBwSTkL otlsmr+N4K5hZc5bvGj88I5vpST/VJivHRWUdnW95uvC/CnTZ9y65J4HcrD1 VOFWefF2qWE7lZdOqrMk+Vx1sTC/jCyyS0v98oqI2lGT72stDHcb4j2liT5r YsBVM+iu7Q41peo6Bpu7hrt6GUce7B8ZGRgc6mkb6Goa7mzd3dIw1FTV35Ro rw3XVbkiIVvYbwEi0GcrCtryIxZlvFKSsFA1dkm9Q1LrlCQddMJJV7nouFMc tpEhK+mz4K5yjKmZMgvKS1FTkdBQBOXphZQqF5JkZ1Lsjfzsu9c/dNP8nzB5 wteZ3nf0HPhnjeue8cRrXSYmgzxp8qSbQGTcmvMAC1m1i7NqZ/bazMwNuezt MLKLEHOlSlilx3RGkcFMl1oUloDKWV3gaSz1tVqinY5ohyfRFWnoSzSnattS zV39nX2DqdTegf6RwaHRwYHd/b3D3V39XZ19zU3t1XX10QTQJFVAdfsjgWDI FfRXBFxGv00fdBZEnPqQS+dzaNx2ldumcdjUlZVys5ksNeElxaihGNEVCgG8 ijyBSANhylw2nb2Zv+O+9E3zltwxecbUb5D9tn77IRPN32d8dze28ZXEq3OD Y69nzZm3YNmyxevW3Lt+/fING1ZsXr8+/eFt2RmZvKxsQRYLh3g0AUtpQqXC 8zSUTifVaVWGQl2pxej0VUSqQP4Squ+PNw80dA529O1LDRwaGAF2sHvoYHNq P/hJR9fulrbButZUrLkz2tASq66tqqqKJKL+mN8b8vgC7mDI4w857SGLLWB1 APNZKt1lpRZDSUW+oVylKqbFOhRTCoQyPiCKnSLWas72Ox5cNnPu7LGZt29a lFz7hBOuu//3GWOJzOS5P5238K677l6+/P7V96/ZvHpj+pZ0VvYuKCcHZrNQ Pg8XCihYQAsQmZCQoaQEF0lJWkEp8mQFJUarL+xPtle1DNd3720bPNw7cqh/ +NG+4cPdQ4e6+g90pva39z7S3rW3qXOosa2nrrEtWdccqWvw1zYEko2hRGO4 tt5fVQsyeme82hqNmAMus89Z4rUWOSr15WZJsR7Xy/gyLIPkr4Nzl2dunXPX wmsKOe3bm/D/fcb106ffnkqdOG3atLk333j7otvuvX/Jg+tXrUtP38rm7YIR DkFAYjEqlaAyMa4QE0qakItxOSGVERopmifDFApCb8x3BMJBgHbHnub+x9qG Hm8fPNIx9ETH8JG2wUPtA4+0dR9s6hpt7t7d2jHa0NIfr+8K1XeE6nq89d3u ulZgIAly1vdW1HQWRWr1vnCBz6d1B2RWH1nuZBca0uWStTz2wlUrp8yZlTZl 0tVdiP8yWfE3jvGdwONFXNOmTp53y6w7ltx2z0PLVm7esiE7ewdfmIWKOaRc IFYgUjmqVCIqOamSiJVimZI5k0WjIpQygVItMlaWOWLNgcahqi6gqw/V9x9q GHi8cfBI48Bj9V0Harv21Xbtr+k8UN26N94yHG4eBBLR17DbXjtYWTdkadhT 0bDHVDtckOjRRjuUwUaxuw62VWcWOleRyjt2ZEyfP/9qvPsOJ/kPGlcnW5hF 4YlpN0yfMO/WGxct+dnSNStXbd+xhS3cKRBlY1QuSXJpmidTCKRSWCHFlVJC LRFraACySiWWK2iZTlvqCLri7b663mDzQKR1NNa+v6rj0WT7o1Udj0XbDgVa Hgk27w80jvgbhv2No87a3dbaUVNyxJgYKaga1sUGNdGUxNuOWupzSuMbNJZ7 swSzb1+cNuWbDuTXQJ6Y9vVG8f8kpP8wbgLXmTJl0uw5M2+9fcHiFSuWb9r4 UPrD63fteDg3NwOCd8FwJsTLEnABe3NIIV8Mw2Icp0lSihISMa3R68pdJb7q 8kizJdYFVLczOeRKjtpr9lqrRyoTA5aqgYrYQHG41xjqMgQ6dN4WhaMBq6jl lsR36bwbqeIVbHrh6ozpC++ZMHXG+Bdt/JS074T0P8il/0jcXz3fc9I44DOm 3njLjfPvnH/XffcsW/XAik1rVm1Zu3rrhvXpW9dv3wKuD2fv3MoBDMPKFkC5 CJSDCHfiBEuuwwwWidkvq4wrnEm1u1HpbFTYapX2OpWzReZooiqTiCkkMPpB cpQpN23G1StY2IKHts6cv2Ti1NlA46d9o/wnX/9X/ktSkb/b+Jb+HNtNcn2n hAlMLcwNM6bdePOsuQtvnn/nbYvuvWPx8sVLH1z+wOoVD6xb/dDmh1dv3Q5I Zk3G9g05Getzs9fm5K7LhbYI6Z1UXpaqKFdTxtaUA2OpK7IU5ekS43YyfyOf fiALXbwld8GKdXMXLZ5605wJEyePZ3ZTwN130cKE/yic/8R37Xo5OnHMiyZf W8T8elFsbAJ9yuRpN0yaedO02bfcdOttP1l4+0/vuvuOO5ffe9cDS+5cuWzJ mhXL1q6+b+0acF26bt3SDRuWbtq6dPO2ZVszlm/JWLJp2x3rNy98cOVti+8G b542a/bEqdMZsr12luLYAXRjz3nS2N11Tfz+oZPJ//Zj0qRJU6dOnT59+oxZ 02+cPWvOzbNvvmXuNZt76803zp0za87sG26aNWXm9EnTpoLH9Af1ev9/4/eD x4Q/bd/1iz+O7zMm/rH9COM/ZnyDMHNGSdqk6zOLH8eP4/+98SOT/Dj+E8YP OlH4Xz7+LzhG8NQ= "], {{0, 0}, {120, 120}}, {0, 255}, ColorFunction->RGBColor], ImageSize->{120, 120}, PlotRange->{{0, 120}, {0, 120}}]], "Output", CellChangeTimes->{ 3.397078886946061*^9, 3.3970864029307623`*^9, 3.397087097173154*^9, { 3.3971280152150097`*^9, 3.39712803594831*^9}, 3.397135557781211*^9, 3.397218134156818*^9, 3.397241157855647*^9, 3.397243565844038*^9, 3.397243712306479*^9}, CellTags->{ "DiaryDate[{2007, 8, 26, 1, 0, 52.227255}]", "EphemeralGUID[11730150399551018993333333854151244748]", "CellGUID[161083001381318303961832108460871589458]", "reiss"}, CellLabel->"Out[26]=", CellID->910927361] }, Open ]], Cell[TextData[{ " Each data item has a set of available ", StyleBox["\"Properties\"", "In"], "." }], "Text", CellChangeTimes->{{3.3970790015867357`*^9, 3.397079027367241*^9}, { 3.3970791137534018`*^9, 3.397079176870635*^9}, 3.3972400991923656`*^9}, CellTags->"reiss", CellID->321248998], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AstronomicalData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]], "Input", Editable->True, TaggingRules:>{"GUIDTag[245066895916304237240679990133776817884]"}, CellChangeTimes->{{3.397079187423233*^9, 3.397079191272504*^9}}, CellTags->{ "DiaryDate[{2007, 8, 26, 1, 6, 25.321527}]", "EphemeralGUID[299713643948290056224650901135273331549]", "CellGUID[303169024991464369817101731371127184577]", "reiss"}, CellLabel->"In[27]:=", CellID->672110619], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"AbsoluteMagnitude\"\>", ",", "\<\"AbsoluteMagnitudeH\"\>", ",", "\<\"Albedo\"\>", ",", "\<\"AlphanumericName\"\>", ",", "\<\"AlternateNames\"\>", ",", "\<\"AlternateStandardNames\"\>", ",", "\<\"Apoapsis\"\>", ",", "\<\"ApparentMagnitude\"\>", ",", "\<\"AscendingNodeLongitude\"\>", ",", "\<\"Classes\"\>", ",", "\<\"Declination\"\>", ",", "\<\"Density\"\>", ",", "\<\"Diameter\"\>", ",", "\<\"DiscoveryYear\"\>", ",", "\<\"Distance\"\>", ",", "\<\"DistanceLightYears\"\>", ",", "\<\"Eccentricity\"\>", ",", "\<\"EquatorialDiameter\"\>", ",", "\<\"EquatorialRadius\"\>", ",", "\<\"EscapeVelocity\"\>", ",", "\<\"Gravity\"\>", ",", "\<\"Image\"\>", ",", "\<\"Inclination\"\>", ",", "\<\"Mass\"\>", ",", "\<\"Name\"\>", ",", "\<\"ObjectType\"\>", ",", "\<\"Oblateness\"\>", ",", "\<\"Obliquity\"\>", ",", "\<\"OrbitCenter\"\>", ",", "\<\"OrbitPath\"\>", ",", "\<\"OrbitPeriod\"\>", ",", "\<\"OrbitPeriodYears\"\>", ",", "\<\"OrbitRules\"\>", ",", "\<\"Periapsis\"\>", ",", "\<\"PeriapsisArgument\"\>", ",", "\<\"PeriapsisLongitude\"\>", ",", "\<\"PolarDiameter\"\>", ",", "\<\"PolarRadius\"\>", ",", "\<\"Radius\"\>", ",", "\<\"RightAscension\"\>", ",", "\<\"RotationPeriod\"\>", ",", "\<\"Satellites\"\>", ",", "\<\"SemimajorAxis\"\>", ",", "\<\"StandardName\"\>"}], "}"}]], "Output", CellChangeTimes->{ 3.397079194142524*^9, 3.3970864030036983`*^9, 3.397087097207386*^9, { 3.397128016883814*^9, 3.397128036087474*^9}, 3.397135559437243*^9, 3.397218135878015*^9, 3.3972411595035152`*^9, 3.397243565927022*^9, 3.397243712468811*^9}, CellTags->{ "DiaryDate[{2007, 8, 26, 1, 6, 25.321527}]", "EphemeralGUID[299713643948290056224650901135273331549]", "CellGUID[303169024991464369817101731371127184577]", "reiss"}, CellLabel->"Out[27]=", CellID->545236864] }, Open ]], Cell[TextData[{ "In a sense, these various Curated Data are meta reports\[LongDash]in effect \ free-form documents\[LongDash]on particular subjects. So, again, this \ addition to ", StyleBox["Mathematica", FontSlant->"Italic"], " 6 expands the space of possible ", "document-oriented", " applications. " }], "Text", CellChangeTimes->{{3.3970790015867357`*^9, 3.397079027367241*^9}, { 3.3970791137534018`*^9, 3.397079176870635*^9}, {3.397079217084323*^9, 3.397079296788329*^9}, 3.397084004468101*^9, {3.397134094417861*^9, 3.3971340946834173`*^9}, 3.397219850364147*^9}, CellTags->"reiss", CellID->1371429410] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ CounterBox["Subsection"], ". ", ButtonBox["Different Views", BaseStyle->"SectionButton"] }], "Subsection", CellChangeTimes->{{3.397071816063364*^9, 3.397071818574951*^9}}, CellTags->"reiss", CellID->2135111019], Cell[TextData[{ "There are a number of new functions in ", StyleBox["Mathematica", FontSlant->"Italic"], " 6 that provide ways of viewing, one at a time, distinct sets of notebook \ content. These functions typically have the form ", StyleBox["foo", "In"], StyleBox["View", "In"], ":" }], "Text", CellChangeTimes->{{3.397071823792145*^9, 3.397071824007019*^9}, { 3.39707669110045*^9, 3.397076736821334*^9}, {3.3970793144997387`*^9, 3.3970793560148773`*^9}, {3.397134130734866*^9, 3.397134131462163*^9}}, CellTags->"reiss", CellID->359154963], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "*View"}]], "Input", Editable->True, TaggingRules:>{"GUIDTag[335363289745053525438427675804123335612]"}, CellChangeTimes->{{3.3970767525810432`*^9, 3.3970767542077427`*^9}}, CellTags->{ "DiaryDate[{2007, 8, 26, 0, 25, 50.912486}]", "EphemeralGUID[212003029476432787757632919958882674293]", "CellGUID[7817926734759705195653511022861023189]", "reiss"}, CellLabel->"In[28]:=", CellID->1604721382], Cell[BoxData[ DynamicModuleBox[{Typeset`open$$ = True}, PaneSelectorBox[{False-> RowBox[{ OpenerBox[Dynamic[Typeset`open$$], ImageSize->Small], StyleBox["System`", "InfoHeading"]}], True->GridBox[{ { RowBox[{ OpenerBox[Dynamic[Typeset`open$$], ImageSize->Small], StyleBox["System`", "InfoHeading"]}]}, {GridBox[{ { ButtonBox["FlipView", BaseStyle->"InformationLink", ButtonData:>{"Info3397229312-1880745", "System`FlipView"}, ButtonNote->"System`"], ButtonBox["MenuView", BaseStyle->"InformationLink", ButtonData:>{"Info3397229312-1880745", "System`MenuView"}, ButtonNote->"System`"], ButtonBox["OpenerView", BaseStyle->"InformationLink", ButtonData:>{"Info3397229312-1880745", "System`OpenerView"}, ButtonNote->"System`"], ButtonBox["PopupView", BaseStyle->"InformationLink", ButtonData:>{"Info3397229312-1880745", "System`PopupView"}, ButtonNote->"System`"], ButtonBox["SlideView", BaseStyle->"InformationLink", ButtonData:>{"Info3397229312-1880745", "System`SlideView"}, ButtonNote->"System`"], ButtonBox["TabView", BaseStyle->"InformationLink", ButtonData:>{"Info3397229312-1880745", "System`TabView"}, ButtonNote->"System`"]} }, DefaultBaseStyle->"InfoGrid", GridBoxItemSize->{"Columns" -> {{ Scaled[0.15833333333333333`]}}}]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}]}, Dynamic[Typeset`open$$], ImageSize->Automatic]]], "Print", "InfoCell", CellChangeTimes->{3.397243712784399*^9}, CellTags->{ "DiaryDate[{2007, 8, 26, 0, 25, 50.912486}]", "EphemeralGUID[212003029476432787757632919958882674293]", "CellGUID[7817926734759705195653511022861023189]", "reiss"}, CellID->483251499] }, Open ]], Cell[TextData[{ "Here are three example uses of these involving the function ", StyleBox["FibonacciReport", "In"], ". The first uses ", StyleBox["TabView", "In"], ", the second, ", StyleBox["SlideView", "In"], StyleBox[", and the third, ", "PP"], StyleBox["FlipView", "In"], StyleBox[".", "PP"] }], "Text", CellChangeTimes->{{3.397079406103004*^9, 3.397079462075554*^9}, { 3.397079784247422*^9, 3.397079801982386*^9}, {3.397080999292355*^9, 3.397081031811986*^9}}, CellTags->"reiss", CellID->153547574], Cell[CellGroupData[{ Cell["TabView", "Subsubsection", Editable->True, TaggingRules:>{"GUIDTag[221046219143874191766692080927783433824]"}, CellChangeTimes->{{3.397079489919025*^9, 3.397079493654949*^9}}, CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 24.752602}]", "EphemeralGUID[55567099395973554914937663252940504080]", "CellGUID[165413704917082668640612721344156047132]", "reiss"}, CellID->1546216171], Cell[TextData[{ "In this example I am creating a set of documents which are each directly \ accessible from the tab buttons at the top of the ", StyleBox["TabView", "In"], " display. These buttons are tabbed to indicate the argument specifying the \ \"report\" desired: the second argument supplied to ", StyleBox["FibonacciReport", "In"], ". " }], "Text", CellChangeTimes->{{3.397079872564993*^9, 3.397079994191094*^9}, { 3.397082026841165*^9, 3.3970820482055683`*^9}, 3.397084018674184*^9, { 3.3971341964539633`*^9, 3.397134197382772*^9}, {3.397240235979589*^9, 3.3972402364866867`*^9}}, CellTags->"reiss", CellID->307371997], Cell[TextData[{ "Note that this example shows an embedding of ", StyleBox["DocumentNotebook", "In"], "s within a ", StyleBox["DocumentNotebook", "In"], ". Each separately is accessible by clicking on its own ", Cell[GraphicsData["CompressedBitmap", "\<\ eJyFUUsOgjAQnVI+asLCG3ATdrjyEA0xgYXRIPsepUfpUThKndeCAQSdZNrJ +2Q6navqm9td9W2tikunnk1bv4rq0TEkBRHlnOeCUDsup0M6xDAMSDrgjIAQ RahPzlorAsBa6BhA0tGVZSmcMWZBMcgUh/DlmvL9kmD9LaIU9dRu4uameG4C ETmt9X9ftvbB5u/Q3I+8fmG6Z/oeJtmSjkPFn15j7A6TQCmXn4TY+uSwMoll eDvAbLafPGxw8yLxBuKNPdU=\ \>"], "Text", Evaluatable->False, ImageSize->{13, 17}, ImageMargins->0, ImageRegion->{{0, 1}, {0, 1}}], " icon. The outermost ", Cell[GraphicsData["CompressedBitmap", "\<\ eJyFUUsOgjAQnVI+asLCG3ATdrjyEA0xgYXRIPsepUfpUThKndeCAQSdZNrJ +2Q6navqm9td9W2tikunnk1bv4rq0TEkBRHlnOeCUDsup0M6xDAMSDrgjIAQ RahPzlorAsBa6BhA0tGVZSmcMWZBMcgUh/DlmvL9kmD9LaIU9dRu4uameG4C ETmt9X9ftvbB5u/Q3I+8fmG6Z/oeJtmSjkPFn15j7A6TQCmXn4TY+uSwMoll eDvAbLafPGxw8yLxBuKNPdU=\ \>"], "Text", Evaluatable->False, ImageSize->{13, 17}, ImageMargins->0, ImageRegion->{{0, 1}, {0, 1}}], " icon generates the multi-document \"report\" in a separate notebook with \ the full ", StyleBox["TabView", "In"], " available to make use of. And any of the inner ", Cell[GraphicsData["CompressedBitmap", "\<\ eJyFUUsOgjAQnVI+asLCG3ATdrjyEA0xgYXRIPsepUfpUThKndeCAQSdZNrJ +2Q6navqm9td9W2tikunnk1bv4rq0TEkBRHlnOeCUDsup0M6xDAMSDrgjIAQ RahPzlorAsBa6BhA0tGVZSmcMWZBMcgUh/DlmvL9kmD9LaIU9dRu4uameG4C ETmt9X9ftvbB5u/Q3I+8fmG6Z/oeJtmSjkPFn15j7A6TQCmXn4TY+uSwMoll eDvAbLafPGxw8yLxBuKNPdU=\ \>"], "Text", Evaluatable->False, ImageSize->{13, 17}, ImageMargins->0, ImageRegion->{{0, 1}, {0, 1}}], " icons generates an individual \"report\" for the specific value of the \ second argument to ", StyleBox["FibonacciReport", "In"], " that is currently being displayed in the ", StyleBox["TabView", "In"], "." }], "Text", CellChangeTimes->{{3.397080008237216*^9, 3.3970800438782673`*^9}, { 3.397080082208371*^9, 3.3970801963053017`*^9}, 3.397082071086117*^9, 3.397084020698908*^9, {3.397134215543002*^9, 3.397134274826285*^9}, { 3.397134538183321*^9, 3.397134542599416*^9}, 3.3971429641530647`*^9, { 3.397240272239677*^9, 3.39724027985618*^9}}, CellTags->"reiss", CellID->1302982544], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DocumentNotebook", "[", RowBox[{"TextCell", "[", "\[IndentingNewLine]", RowBox[{"TabView", "[", RowBox[{ RowBox[{ RowBox[{"#", "\[Rule]", RowBox[{"FibonacciReport", "[", RowBox[{"\"\\"", ",", "#"}], "]"}]}], "&"}], "/@", RowBox[{"Range", "[", RowBox[{"100", ",", "150", ",", "10"}], "]"}]}], "]"}], "]"}], "]"}]], "Input", Editable->True, TaggingRules:>{"GUIDTag[11906550777318492980006005322052424214]"}, CellChangeTimes->{ 3.3970795016860123`*^9, {3.3970796682311773`*^9, 3.397079731599069*^9}, { 3.397079768117091*^9, 3.397079774318913*^9}, {3.397079822164331*^9, 3.397079850033687*^9}, {3.397080681876638*^9, 3.397080683120986*^9}, { 3.397082724443709*^9, 3.397082726016549*^9}}, CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 40.416713}]", "EphemeralGUID[211085988918256832907407166511333928124]", "CellGUID[91155166608385557291381974773923243571]", "reiss"}, CellLabel->"In[29]:=", CellID->555573650], Cell[BoxData[ InterpretationBox[ PanelBox[GridBox[{ { TooltipBox[ ButtonBox[ StyleBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "ManipulatePasteIcon"], ImageSizeCache->{13., {4., 9.}}], DynamicUpdating->True], ButtonFrame->None, ButtonFunction:>FrontEndExecute[{ FrontEnd`NotebookPut[ Notebook[{ Cell[ BoxData[ FormBox[ TabViewBox[{{1, "100" -> InterpretationBox[ PanelBox[ GridBox[{{ TooltipBox[ ButtonBox[ StyleBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "ManipulatePasteIcon"]], DynamicUpdating -> True], ButtonFrame -> None, ButtonFunction :> FrontEndExecute[{ FrontEnd`NotebookPut[ Notebook[{ Cell[ "David's personal Fibonacci Report for 100", "Section"], Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "100", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["3.542248481792618`*^20", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}], ButtonEvaluator -> None, DefaultBaseStyle -> {}, Method -> "Queued"], "Open this notebook in a new window"]}, { ItemBox[ GridBox[{{ Cell[ "David's personal Fibonacci Report for 100", "Section"]}, { Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "100", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["3.542248481792618`*^20", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}}, ColumnAlignments -> Left], Background -> GrayLevel[1], Frame -> True, FrameStyle -> GrayLevel[0, 0.2]]}}, ColumnAlignments -> Left], DefaultBaseStyle -> {}, FrameMargins -> 5], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 100", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[100]]], " is ", Text[3.542248481792618*^20]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}, { 2, "110" -> InterpretationBox[ PanelBox[ GridBox[{{ TooltipBox[ ButtonBox[ StyleBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "ManipulatePasteIcon"]], DynamicUpdating -> True], ButtonFrame -> None, ButtonFunction :> FrontEndExecute[{ FrontEnd`NotebookPut[ Notebook[{ Cell[ "David's personal Fibonacci Report for 110", "Section"], Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "110", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["4.356677625885483`*^22", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}], ButtonEvaluator -> None, DefaultBaseStyle -> {}, Method -> "Queued"], "Open this notebook in a new window"]}, { ItemBox[ GridBox[{{ Cell[ "David's personal Fibonacci Report for 110", "Section"]}, { Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "110", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["4.356677625885483`*^22", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}}, ColumnAlignments -> Left], Background -> GrayLevel[1], Frame -> True, FrameStyle -> GrayLevel[0, 0.2]]}}, ColumnAlignments -> Left], DefaultBaseStyle -> {}, FrameMargins -> 5], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 110", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[110]]], " is ", Text[4.356677625885483*^22]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}, { 3, "120" -> InterpretationBox[ PanelBox[ GridBox[{{ TooltipBox[ ButtonBox[ StyleBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "ManipulatePasteIcon"]], DynamicUpdating -> True], ButtonFrame -> None, ButtonFunction :> FrontEndExecute[{ FrontEnd`NotebookPut[ Notebook[{ Cell[ "David's personal Fibonacci Report for 120", "Section"], Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "120", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["5.358359254990965`*^24", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}], ButtonEvaluator -> None, DefaultBaseStyle -> {}, Method -> "Queued"], "Open this notebook in a new window"]}, { ItemBox[ GridBox[{{ Cell[ "David's personal Fibonacci Report for 120", "Section"]}, { Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "120", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["5.358359254990965`*^24", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}}, ColumnAlignments -> Left], Background -> GrayLevel[1], Frame -> True, FrameStyle -> GrayLevel[0, 0.2]]}}, ColumnAlignments -> Left], DefaultBaseStyle -> {}, FrameMargins -> 5], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 120", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[120]]], " is ", Text[5.358359254990965*^24]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}, { 4, "130" -> InterpretationBox[ PanelBox[ GridBox[{{ TooltipBox[ ButtonBox[ StyleBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "ManipulatePasteIcon"]], DynamicUpdating -> True], ButtonFrame -> None, ButtonFunction :> FrontEndExecute[{ FrontEnd`NotebookPut[ Notebook[{ Cell[ "David's personal Fibonacci Report for 130", "Section"], Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "130", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["6.590346215876298`*^26", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}], ButtonEvaluator -> None, DefaultBaseStyle -> {}, Method -> "Queued"], "Open this notebook in a new window"]}, { ItemBox[ GridBox[{{ Cell[ "David's personal Fibonacci Report for 130", "Section"]}, { Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "130", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["6.590346215876298`*^26", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}}, ColumnAlignments -> Left], Background -> GrayLevel[1], Frame -> True, FrameStyle -> GrayLevel[0, 0.2]]}}, ColumnAlignments -> Left], DefaultBaseStyle -> {}, FrameMargins -> 5], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 130", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[130]]], " is ", Text[6.590346215876298*^26]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}, { 5, "140" -> InterpretationBox[ PanelBox[ GridBox[{{ TooltipBox[ ButtonBox[ StyleBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "ManipulatePasteIcon"]], DynamicUpdating -> True], ButtonFrame -> None, ButtonFunction :> FrontEndExecute[{ FrontEnd`NotebookPut[ Notebook[{ Cell[ "David's personal Fibonacci Report for 140", "Section"], Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "140", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["8.105590009602348`*^28", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}], ButtonEvaluator -> None, DefaultBaseStyle -> {}, Method -> "Queued"], "Open this notebook in a new window"]}, { ItemBox[ GridBox[{{ Cell[ "David's personal Fibonacci Report for 140", "Section"]}, { Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "140", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["8.105590009602348`*^28", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}}, ColumnAlignments -> Left], Background -> GrayLevel[1], Frame -> True, FrameStyle -> GrayLevel[0, 0.2]]}}, ColumnAlignments -> Left], DefaultBaseStyle -> {}, FrameMargins -> 5], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 140", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[140]]], " is ", Text[8.105590009602348*^28]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}, { 6, "150" -> InterpretationBox[ PanelBox[ GridBox[{{ TooltipBox[ ButtonBox[ StyleBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "ManipulatePasteIcon"]], DynamicUpdating -> True], ButtonFrame -> None, ButtonFunction :> FrontEndExecute[{ FrontEnd`NotebookPut[ Notebook[{ Cell[ "David's personal Fibonacci Report for 150", "Section"], Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "150", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["9.969216677189299`*^30", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}], ButtonEvaluator -> None, DefaultBaseStyle -> {}, Method -> "Queued"], "Open this notebook in a new window"]}, { ItemBox[ GridBox[{{ Cell[ "David's personal Fibonacci Report for 150", "Section"]}, { Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "150", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["9.969216677189299`*^30", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}}, ColumnAlignments -> Left], Background -> GrayLevel[1], Frame -> True, FrameStyle -> GrayLevel[0, 0.2]]}}, ColumnAlignments -> Left], DefaultBaseStyle -> {}, FrameMargins -> 5], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 150", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[150]]], " is ", Text[9.969216677189299*^30]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}}, 1], StandardForm]]]}]]}], DefaultBaseStyle->{}, Evaluator->None, Method->"Queued"], "Open this notebook in a new window"]}, { ItemBox[GridBox[{ {Cell[BoxData[ TabViewBox[{{1,"100"-> InterpretationBox[ PanelBox[GridBox[{ { TooltipBox[ ButtonBox[ StyleBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "ManipulatePasteIcon"], ImageSizeCache->{13., {4., 9.}}], DynamicUpdating->True], ButtonFrame->None, ButtonFunction:>FrontEndExecute[{ FrontEnd`NotebookPut[ Notebook[{ Cell[ "David's personal Fibonacci Report for 100", "Section"], Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "100", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["3.542248481792618`*^20", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}], DefaultBaseStyle->{}, Evaluator->None, Method->"Queued"], "Open this notebook in a new window"]}, { ItemBox[GridBox[{ {Cell[ "David's personal Fibonacci Report for 100", "Section"]}, {Cell[TextData[{ "The numerical value of ", Cell[BoxData[ RowBox[{"Fibonacci", "[", "100", "]"}]], "Text", "TR"], " is ", Cell[BoxData["3.542248481792618`*^20"], "Text", "TR"] }], "Text", CellFrame->1, CellDingbat->"\[MathematicaIcon]", CellFrameMargins->2]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Background->GrayLevel[1], Frame->True, FrameStyle->GrayLevel[0, 0.2]]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], DefaultBaseStyle->{}, FrameMargins->5], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 100", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[100]]], " is ", Text[3.542248481792618*^20]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}, {2,"110"-> InterpretationBox[ PanelBox[GridBox[{ { TooltipBox[ ButtonBox[ StyleBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "ManipulatePasteIcon"], ImageSizeCache->{13., {4., 9.}}], DynamicUpdating->True], ButtonFrame->None, ButtonFunction:>FrontEndExecute[{ FrontEnd`NotebookPut[ Notebook[{ Cell[ "David's personal Fibonacci Report for 110", "Section"], Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "110", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["4.356677625885483`*^22", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}], DefaultBaseStyle->{}, Evaluator->None, Method->"Queued"], "Open this notebook in a new window"]}, { ItemBox[GridBox[{ {Cell[ "David's personal Fibonacci Report for 110", "Section"]}, {Cell[TextData[{ "The numerical value of ", Cell[BoxData[ RowBox[{"Fibonacci", "[", "110", "]"}]], "Text", "TR"], " is ", Cell[BoxData["4.356677625885483`*^22"], "Text", "TR"] }], "Text", CellFrame->1, CellDingbat->"\[MathematicaIcon]", CellFrameMargins->2]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Background->GrayLevel[1], Frame->True, FrameStyle->GrayLevel[0, 0.2]]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], DefaultBaseStyle->{}, FrameMargins->5], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 110", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[110]]], " is ", Text[4.356677625885483*^22]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}, {3,"120"-> InterpretationBox[ PanelBox[GridBox[{ { TooltipBox[ ButtonBox[ StyleBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "ManipulatePasteIcon"], ImageSizeCache->{13., {4., 9.}}], DynamicUpdating->True], ButtonFrame->None, ButtonFunction:>FrontEndExecute[{ FrontEnd`NotebookPut[ Notebook[{ Cell[ "David's personal Fibonacci Report for 120", "Section"], Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "120", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["5.358359254990965`*^24", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}], DefaultBaseStyle->{}, Evaluator->None, Method->"Queued"], "Open this notebook in a new window"]}, { ItemBox[GridBox[{ {Cell[ "David's personal Fibonacci Report for 120", "Section"]}, {Cell[TextData[{ "The numerical value of ", Cell[BoxData[ RowBox[{"Fibonacci", "[", "120", "]"}]], "Text", "TR"], " is ", Cell[BoxData["5.358359254990965`*^24"], "Text", "TR"] }], "Text", CellFrame->1, CellDingbat->"\[MathematicaIcon]", CellFrameMargins->2]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Background->GrayLevel[1], Frame->True, FrameStyle->GrayLevel[0, 0.2]]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], DefaultBaseStyle->{}, FrameMargins->5], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 120", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[120]]], " is ", Text[5.358359254990965*^24]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}, {4,"130"-> InterpretationBox[ PanelBox[GridBox[{ { TooltipBox[ ButtonBox[ StyleBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "ManipulatePasteIcon"], ImageSizeCache->{13., {4., 9.}}], DynamicUpdating->True], ButtonFrame->None, ButtonFunction:>FrontEndExecute[{ FrontEnd`NotebookPut[ Notebook[{ Cell[ "David's personal Fibonacci Report for 130", "Section"], Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "130", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["6.590346215876298`*^26", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}], DefaultBaseStyle->{}, Evaluator->None, Method->"Queued"], "Open this notebook in a new window"]}, { ItemBox[GridBox[{ {Cell[ "David's personal Fibonacci Report for 130", "Section"]}, {Cell[TextData[{ "The numerical value of ", Cell[BoxData[ RowBox[{"Fibonacci", "[", "130", "]"}]], "Text", "TR"], " is ", Cell[BoxData["6.590346215876298`*^26"], "Text", "TR"] }], "Text", CellFrame->1, CellDingbat->"\[MathematicaIcon]", CellFrameMargins->2]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Background->GrayLevel[1], Frame->True, FrameStyle->GrayLevel[0, 0.2]]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], DefaultBaseStyle->{}, FrameMargins->5], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 130", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[130]]], " is ", Text[6.590346215876298*^26]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}, {5,"140"-> InterpretationBox[ PanelBox[GridBox[{ { TooltipBox[ ButtonBox[ StyleBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "ManipulatePasteIcon"], ImageSizeCache->{13., {4., 9.}}], DynamicUpdating->True], ButtonFrame->None, ButtonFunction:>FrontEndExecute[{ FrontEnd`NotebookPut[ Notebook[{ Cell[ "David's personal Fibonacci Report for 140", "Section"], Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "140", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["8.105590009602348`*^28", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}], DefaultBaseStyle->{}, Evaluator->None, Method->"Queued"], "Open this notebook in a new window"]}, { ItemBox[GridBox[{ {Cell[ "David's personal Fibonacci Report for 140", "Section"]}, {Cell[TextData[{ "The numerical value of ", Cell[BoxData[ RowBox[{"Fibonacci", "[", "140", "]"}]], "Text", "TR"], " is ", Cell[BoxData["8.105590009602348`*^28"], "Text", "TR"] }], "Text", CellFrame->1, CellDingbat->"\[MathematicaIcon]", CellFrameMargins->2]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Background->GrayLevel[1], Frame->True, FrameStyle->GrayLevel[0, 0.2]]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], DefaultBaseStyle->{}, FrameMargins->5], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 140", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[140]]], " is ", Text[8.105590009602348*^28]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}, {6,"150"-> InterpretationBox[ PanelBox[GridBox[{ { TooltipBox[ ButtonBox[ StyleBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "ManipulatePasteIcon"], ImageSizeCache->{13., {4., 9.}}], DynamicUpdating->True], ButtonFrame->None, ButtonFunction:>FrontEndExecute[{ FrontEnd`NotebookPut[ Notebook[{ Cell[ "David's personal Fibonacci Report for 150", "Section"], Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "150", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["9.969216677189299`*^30", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}], DefaultBaseStyle->{}, Evaluator->None, Method->"Queued"], "Open this notebook in a new window"]}, { ItemBox[GridBox[{ {Cell[ "David's personal Fibonacci Report for 150", "Section"]}, {Cell[TextData[{ "The numerical value of ", Cell[BoxData[ RowBox[{"Fibonacci", "[", "150", "]"}]], "Text", "TR"], " is ", Cell[BoxData["9.969216677189299`*^30"], "Text", "TR"] }], "Text", CellFrame->1, CellDingbat->"\[MathematicaIcon]", CellFrameMargins->2]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Background->GrayLevel[1], Frame->True, FrameStyle->GrayLevel[0, 0.2]]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], DefaultBaseStyle->{}, FrameMargins->5], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 150", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[150]]], " is ", Text[9.969216677189299*^30]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}}, 1]]]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Background->GrayLevel[1], Frame->True, FrameStyle->GrayLevel[0, 0.2]]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], DefaultBaseStyle->{}, FrameMargins->5], DocumentNotebook[ TextCell[ TabView[{100 -> DocumentNotebook[{ TextCell["David's personal Fibonacci Report for 100", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[100]]], " is ", Text[3.542248481792618*^20]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"], 110 -> DocumentNotebook[{ TextCell["David's personal Fibonacci Report for 110", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[110]]], " is ", Text[4.356677625885483*^22]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"], 120 -> DocumentNotebook[{ TextCell["David's personal Fibonacci Report for 120", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[120]]], " is ", Text[5.358359254990965*^24]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"], 130 -> DocumentNotebook[{ TextCell["David's personal Fibonacci Report for 130", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[130]]], " is ", Text[6.590346215876298*^26]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"], 140 -> DocumentNotebook[{ TextCell["David's personal Fibonacci Report for 140", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[140]]], " is ", Text[8.105590009602348*^28]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"], 150 -> DocumentNotebook[{ TextCell["David's personal Fibonacci Report for 150", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[150]]], " is ", Text[9.969216677189299*^30]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]}]]]]], "Output", CellChangeTimes->{{3.397079702069805*^9, 3.397079775400003*^9}, 3.397079853031619*^9, 3.397082728135928*^9, 3.3970862265229197`*^9, 3.3970864035662947`*^9, 3.397087097771624*^9, {3.397087583412929*^9, 3.397087590325181*^9}, {3.397128017697793*^9, 3.3971280365675573`*^9}, 3.397135559994542*^9, {3.397218027515789*^9, 3.397218062277473*^9}, 3.397218136461585*^9, 3.397241160136323*^9, 3.3972435663226967`*^9, { 3.397243703387422*^9, 3.397243713032406*^9}}, CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 40.416713}]", "EphemeralGUID[211085988918256832907407166511333928124]", "CellGUID[91155166608385557291381974773923243571]", "reiss"}, CellLabel->"Out[29]=", CellID->224790739] }, Open ]], Cell[TextData[{ "In a way, ", StyleBox["TabView", "In"], " is like Random Access Memory. You can go to any \"report\" directly by \ clicking on its associated tab." }], "Text", CellChangeTimes->{{3.397080205915098*^9, 3.397080236899412*^9}, 3.3970821332418423`*^9, {3.397086595672058*^9, 3.397086600917758*^9}}, CellTags->"reiss", CellID->1775788129] }, Open ]], Cell[CellGroupData[{ Cell["SlideView", "Subsubsection", Editable->True, TaggingRules:>{"GUIDTag[221046219143874191766692080927783433824]"}, CellChangeTimes->{{3.397079489919025*^9, 3.397079493654949*^9}, { 3.397080253311125*^9, 3.3970802575881367`*^9}, {3.39708032548755*^9, 3.397080325871201*^9}}, CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 24.752602}]", "EphemeralGUID[55567099395973554914937663252940504080]", "CellGUID[165413704917082668640612721344156047132]", "reiss"}, CellID->2090841744], Cell[TextData[{ "In contrast with the metaphor of Random Access Memory, ", StyleBox["SlideView", "In"], " is like a tape: you access the different \"reports\" sequentially, one at \ a time, by making use of the slide control. As in the case of ", StyleBox["TabView", "In"], ", each internal ", Cell[GraphicsData["CompressedBitmap", "\<\ eJyFUUsOgjAQnVI+asLCG3ATdrjyEA0xgYXRIPsepUfpUThKndeCAQSdZNrJ +2Q6navqm9td9W2tikunnk1bv4rq0TEkBRHlnOeCUDsup0M6xDAMSDrgjIAQ RahPzlorAsBa6BhA0tGVZSmcMWZBMcgUh/DlmvL9kmD9LaIU9dRu4uameG4C ETmt9X9ftvbB5u/Q3I+8fmG6Z/oeJtmSjkPFn15j7A6TQCmXn4TY+uSwMoll eDvAbLafPGxw8yLxBuKNPdU=\ \>"], "Text", Evaluatable->False, ImageSize->{13, 17}, ImageMargins->0, ImageRegion->{{0, 1}, {0, 1}}], " icon opens a new notebook containing its associated content; the outer ", Cell[GraphicsData["CompressedBitmap", "\<\ eJyFUUsOgjAQnVI+asLCG3ATdrjyEA0xgYXRIPsepUfpUThKndeCAQSdZNrJ +2Q6navqm9td9W2tikunnk1bv4rq0TEkBRHlnOeCUDsup0M6xDAMSDrgjIAQ RahPzlorAsBa6BhA0tGVZSmcMWZBMcgUh/DlmvL9kmD9LaIU9dRu4uameG4C ETmt9X9ftvbB5u/Q3I+8fmG6Z/oeJtmSjkPFn15j7A6TQCmXn4TY+uSwMoll eDvAbLafPGxw8yLxBuKNPdU=\ \>"], "Text", Evaluatable->False, ImageSize->{13, 17}, ImageMargins->0, ImageRegion->{{0, 1}, {0, 1}}], " icon opens a new notebook containing the full ", StyleBox["SlideView", "In"], " content." }], "Text", CellChangeTimes->{{3.397080332147944*^9, 3.397080367161729*^9}, { 3.397080431186079*^9, 3.397080498460829*^9}, 3.397080755808538*^9, { 3.397080850192013*^9, 3.397080851550425*^9}, {3.397081565749065*^9, 3.3970816173582563`*^9}, {3.397082141926272*^9, 3.397082149698765*^9}, { 3.397084023345868*^9, 3.3970840261634903`*^9}, {3.397134304654245*^9, 3.397134309044539*^9}, {3.3971344480036163`*^9, 3.397134451827547*^9}, 3.397134548471856*^9, {3.397240318148777*^9, 3.397240351890606*^9}, { 3.397240518124789*^9, 3.3972405341270027`*^9}}, CellTags->"reiss", CellID->1361386909], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DocumentNotebook", "[", RowBox[{"TextCell", "[", "\[IndentingNewLine]", RowBox[{"SlideView", "[", RowBox[{ RowBox[{ RowBox[{"FibonacciReport", "[", RowBox[{"\"\\"", ",", "#"}], "]"}], "&"}], "/@", RowBox[{"Range", "[", RowBox[{"100", ",", "150", ",", "10"}], "]"}]}], "]"}], "]"}], "]"}]], "Input", Editable->True, TaggingRules:>{"GUIDTag[11906550777318492980006005322052424214]"}, CellChangeTimes->{ 3.3970795016860123`*^9, {3.3970796682311773`*^9, 3.397079731599069*^9}, { 3.397079768117091*^9, 3.397079774318913*^9}, {3.397079822164331*^9, 3.397079850033687*^9}, {3.397080280638809*^9, 3.39708028706472*^9}, { 3.3970806637166853`*^9, 3.397080664983925*^9}, {3.397080714988155*^9, 3.3970807378756*^9}, {3.397082736832678*^9, 3.397082738240514*^9}, { 3.397086252144573*^9, 3.39708625334365*^9}}, CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 40.416713}]", "EphemeralGUID[211085988918256832907407166511333928124]", "CellGUID[91155166608385557291381974773923243571]", "reiss"}, CellLabel->"In[30]:=", CellID->1502275547], Cell[BoxData[ InterpretationBox[ PanelBox[GridBox[{ { TooltipBox[ ButtonBox[ StyleBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "ManipulatePasteIcon"], ImageSizeCache->{13., {4., 9.}}], DynamicUpdating->True], ButtonFrame->None, ButtonFunction:>FrontEndExecute[{ FrontEnd`NotebookPut[ Notebook[{ Cell[ BoxData[ FormBox[ TagBox[ DynamicModuleBox[{BoxForm`var$$ = 1}, InterpretationBox[ StyleBox[ PanelBox[ TagBox[ GridBox[{{ ItemBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ TagBox[ TooltipBox[ ButtonBox[ StyleBox[ "\"\[FirstPage]\"", FontSize -> 18, StripOnInput -> False], ButtonFunction :> If[BoxForm`var$$ =!= 1, BoxForm`var$$ = 1], Appearance -> "Palette", ButtonFrame -> "Palette", ImageSize -> Small, Enabled -> Automatic, Evaluator -> Automatic, Method -> "Preemptive"], "\"First Slide\""], Annotation[#, "First Slide", "Tooltip"]& ], TagBox[ TooltipBox[ ButtonBox[ StyleBox[ "\"\[LeftPointer]\"", FontSize -> 18, StripOnInput -> False], ButtonFunction :> If[BoxForm`var$$ > 1, PreDecrement[BoxForm`var$$]], Appearance -> "Palette", ButtonFrame -> "Palette", ImageSize -> Small, Enabled -> Automatic, Evaluator -> Automatic, Method -> "Preemptive"], "\"Previous Slide\""], Annotation[#, "Previous Slide", "Tooltip"]& ], TagBox[ TooltipBox[ ButtonBox[ StyleBox[ "\"\[RightPointer]\"", FontSize -> 18, StripOnInput -> False], ButtonFunction :> If[BoxForm`var$$ < 6, PreIncrement[BoxForm`var$$]], Appearance -> "Palette", ButtonFrame -> "Palette", ImageSize -> Small, Enabled -> Automatic, Evaluator -> Automatic, Method -> "Preemptive"], "\"Next Slide\""], Annotation[#, "Next Slide", "Tooltip"]& ], TagBox[ TooltipBox[ ButtonBox[ StyleBox[ "\"\[LastPage]\"", FontSize -> 18, StripOnInput -> False], ButtonFunction :> If[ BoxForm`var$$ =!= 6, BoxForm`var$$ = 6], Appearance -> "Palette", ButtonFrame -> "Palette", ImageSize -> Small, Enabled -> Automatic, Evaluator -> Automatic, Method -> "Preemptive"], "\"Last Slide\""], Annotation[#, "Last Slide", "Tooltip"]& ]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, ColumnsEqual -> False, RowsEqual -> False, ColumnSpacings -> 0], "Grid"]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, ColumnsEqual -> False, RowsEqual -> False, RowAlignments -> Center], "Grid"], Alignment -> Left, StripOnInput -> False]}, { ItemBox[ StyleBox[ Cell[ BoxData[ FormBox[ PaneSelectorBox[{1 -> InterpretationBox[ PanelBox[ GridBox[{{ TooltipBox[ ButtonBox[ StyleBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "ManipulatePasteIcon"]], DynamicUpdating -> True], ButtonFrame -> None, ButtonFunction :> FrontEndExecute[{ FrontEnd`NotebookPut[ Notebook[{ Cell[ "David's personal Fibonacci Report for 100", "Section"], Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "100", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["3.542248481792618`*^20", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}], ButtonEvaluator -> None, DefaultBaseStyle -> {}, Method -> "Queued"], "Open this notebook in a new window"]}, { ItemBox[ GridBox[{{ Cell[ "David's personal Fibonacci Report for 100", "Section"]}, { Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "100", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["3.542248481792618`*^20", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}}, ColumnAlignments -> Left], Background -> GrayLevel[1], Frame -> True, FrameStyle -> GrayLevel[0, 0.2]]}}, ColumnAlignments -> Left], DefaultBaseStyle -> {}, FrameMargins -> 5], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 100", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[100]]], " is ", Text[3.542248481792618*^20]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]], 2 -> InterpretationBox[ PanelBox[ GridBox[{{ TooltipBox[ ButtonBox[ StyleBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "ManipulatePasteIcon"]], DynamicUpdating -> True], ButtonFrame -> None, ButtonFunction :> FrontEndExecute[{ FrontEnd`NotebookPut[ Notebook[{ Cell[ "David's personal Fibonacci Report for 110", "Section"], Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "110", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["4.356677625885483`*^22", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}], ButtonEvaluator -> None, DefaultBaseStyle -> {}, Method -> "Queued"], "Open this notebook in a new window"]}, { ItemBox[ GridBox[{{ Cell[ "David's personal Fibonacci Report for 110", "Section"]}, { Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "110", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["4.356677625885483`*^22", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}}, ColumnAlignments -> Left], Background -> GrayLevel[1], Frame -> True, FrameStyle -> GrayLevel[0, 0.2]]}}, ColumnAlignments -> Left], DefaultBaseStyle -> {}, FrameMargins -> 5], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 110", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[110]]], " is ", Text[4.356677625885483*^22]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]], 3 -> InterpretationBox[ PanelBox[ GridBox[{{ TooltipBox[ ButtonBox[ StyleBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "ManipulatePasteIcon"]], DynamicUpdating -> True], ButtonFrame -> None, ButtonFunction :> FrontEndExecute[{ FrontEnd`NotebookPut[ Notebook[{ Cell[ "David's personal Fibonacci Report for 120", "Section"], Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "120", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["5.358359254990965`*^24", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}], ButtonEvaluator -> None, DefaultBaseStyle -> {}, Method -> "Queued"], "Open this notebook in a new window"]}, { ItemBox[ GridBox[{{ Cell[ "David's personal Fibonacci Report for 120", "Section"]}, { Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "120", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["5.358359254990965`*^24", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}}, ColumnAlignments -> Left], Background -> GrayLevel[1], Frame -> True, FrameStyle -> GrayLevel[0, 0.2]]}}, ColumnAlignments -> Left], DefaultBaseStyle -> {}, FrameMargins -> 5], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 120", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[120]]], " is ", Text[5.358359254990965*^24]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]], 4 -> InterpretationBox[ PanelBox[ GridBox[{{ TooltipBox[ ButtonBox[ StyleBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "ManipulatePasteIcon"]], DynamicUpdating -> True], ButtonFrame -> None, ButtonFunction :> FrontEndExecute[{ FrontEnd`NotebookPut[ Notebook[{ Cell[ "David's personal Fibonacci Report for 130", "Section"], Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "130", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["6.590346215876298`*^26", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}], ButtonEvaluator -> None, DefaultBaseStyle -> {}, Method -> "Queued"], "Open this notebook in a new window"]}, { ItemBox[ GridBox[{{ Cell[ "David's personal Fibonacci Report for 130", "Section"]}, { Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "130", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["6.590346215876298`*^26", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}}, ColumnAlignments -> Left], Background -> GrayLevel[1], Frame -> True, FrameStyle -> GrayLevel[0, 0.2]]}}, ColumnAlignments -> Left], DefaultBaseStyle -> {}, FrameMargins -> 5], DocumentNotebook[{ TextCell["David's personal Fibonacci Report for 130", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[130]]], " is ", Text[6.590346215876298*^26]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]], 5 -> InterpretationBox[ PanelBox[ GridBox[{{ TooltipBox[ ButtonBox[ StyleBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "ManipulatePasteIcon"]], DynamicUpdating -> True], ButtonFrame -> None, ButtonFunction :> FrontEndExecute[{ FrontEnd`NotebookPut[ Notebook[{ Cell[ "David's personal Fibonacci Report for 140", "Section"], Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "140", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["8.105590009602348`*^28", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}], ButtonEvaluator -> None, DefaultBaseStyle -> {}, Method -> "Queued"], "Open this notebook in a new window"]}, { ItemBox[ GridBox[{{ Cell[ "David's personal Fibonacci Report for 140", "Section"]}, { Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "140", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["8.105590009602348`*^28", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}}, ColumnAlignments -> Left], Background -> GrayLevel[1], Frame -> True, FrameStyle -> GrayLevel[0, 0.2]]}}, ColumnAlignments -> Left], DefaultBaseStyle -> {}, FrameMargins -> 5], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 140", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[140]]], " is ", Text[8.105590009602348*^28]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]], 6 -> InterpretationBox[ PanelBox[ GridBox[{{ TooltipBox[ ButtonBox[ StyleBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "ManipulatePasteIcon"]], DynamicUpdating -> True], ButtonFrame -> None, ButtonFunction :> FrontEndExecute[{ FrontEnd`NotebookPut[ Notebook[{ Cell[ "David's personal Fibonacci Report for 150", "Section"], Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "150", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["9.969216677189299`*^30", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}], ButtonEvaluator -> None, DefaultBaseStyle -> {}, Method -> "Queued"], "Open this notebook in a new window"]}, { ItemBox[ GridBox[{{ Cell[ "David's personal Fibonacci Report for 150", "Section"]}, { Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "150", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["9.969216677189299`*^30", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}}, ColumnAlignments -> Left], Background -> GrayLevel[1], Frame -> True, FrameStyle -> GrayLevel[0, 0.2]]}}, ColumnAlignments -> Left], DefaultBaseStyle -> {}, FrameMargins -> 5], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 150", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[150]]], " is ", Text[9.969216677189299*^30]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}, Dynamic[BoxForm`var$$], ImageSize -> All, Alignment -> Automatic], StandardForm]], Background -> GrayLevel[1]], Deployed -> False, StripOnInput -> False], Background -> GrayLevel[1], Frame -> True, FrameStyle -> GrayLevel[0.8235294117647058], StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, ColumnsEqual -> False, RowsEqual -> False], "Grid"], DefaultBaseStyle -> "SlideView", ImageMargins -> Automatic, FrameMargins -> 6, BaselinePosition -> Automatic], Deployed -> True, StripOnInput -> False], SlideView[{ DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 100", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[100]]], " is ", Text[3.542248481792618*^20]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 110", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[110]]], " is ", Text[4.356677625885483*^22]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 120", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[120]]], " is ", Text[5.358359254990965*^24]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 130", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[130]]], " is ", Text[6.590346215876298*^26]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 140", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[140]]], " is ", Text[8.105590009602348*^28]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 150", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[150]]], " is ", Text[9.969216677189299*^30]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]}]], DynamicModuleValues -> Automatic], Setting[#, {0}]& ], StandardForm]]]}]]}], DefaultBaseStyle->{}, Evaluator->None, Method->"Queued"], "Open this notebook in a new window"]}, { ItemBox[GridBox[{ {Cell[BoxData[ TagBox[ DynamicModuleBox[{BoxForm`var$$ = 1}, InterpretationBox[ StyleBox[ PanelBox[ TagBox[GridBox[{ { ItemBox[ TagBox[GridBox[{ { TagBox[GridBox[{ { TagBox[ TooltipBox[ ButtonBox[ StyleBox["\<\"\[FirstPage]\"\>", StripOnInput->False, FontSize->18], Appearance->"Palette", ButtonFrame->"Palette", ButtonFunction:>If[ BoxForm`var$$ =!= 1, BoxForm`var$$ = 1], Enabled->Automatic, Evaluator->Automatic, ImageSize->Small, Method->"Preemptive"], "\"First Slide\""], Annotation[#, "First Slide", "Tooltip"]& ], TagBox[ TooltipBox[ ButtonBox[ StyleBox["\<\"\[LeftPointer]\"\>", StripOnInput->False, FontSize->18], Appearance->"Palette", ButtonFrame->"Palette", ButtonFunction:>If[BoxForm`var$$ > 1, PreDecrement[BoxForm`var$$]], Enabled->Automatic, Evaluator->Automatic, ImageSize->Small, Method->"Preemptive"], "\"Previous Slide\""], Annotation[#, "Previous Slide", "Tooltip"]& ], TagBox[ TooltipBox[ ButtonBox[ StyleBox["\<\"\[RightPointer]\"\>", StripOnInput->False, FontSize->18], Appearance->"Palette", ButtonFrame->"Palette", ButtonFunction:>If[BoxForm`var$$ < 6, PreIncrement[BoxForm`var$$]], Enabled->Automatic, Evaluator->Automatic, ImageSize->Small, Method->"Preemptive"], "\"Next Slide\""], Annotation[#, "Next Slide", "Tooltip"]& ], TagBox[ TooltipBox[ ButtonBox[ StyleBox["\<\"\[LastPage]\"\>", StripOnInput->False, FontSize->18], Appearance->"Palette", ButtonFrame->"Palette", ButtonFunction:>If[ BoxForm`var$$ =!= 6, BoxForm`var$$ = 6], Enabled->Automatic, Evaluator->Automatic, ImageSize->Small, Method->"Preemptive"], "\"Last Slide\""], Annotation[#, "Last Slide", "Tooltip"]& ]} }, ColumnsEqual->False, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, RowsEqual->False], "Grid"]} }, ColumnsEqual->False, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, RowsEqual->False], "Grid"], Alignment->Left, StripOnInput->False]}, { ItemBox[ StyleBox[Cell[BoxData[ PaneSelectorBox[{1-> InterpretationBox[ PanelBox[GridBox[{ { TooltipBox[ ButtonBox[ StyleBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "ManipulatePasteIcon"], ImageSizeCache->{13., {4., 9.}}], DynamicUpdating->True], ButtonFrame->None, ButtonFunction:>FrontEndExecute[{ FrontEnd`NotebookPut[ Notebook[{ Cell[ "David's personal Fibonacci Report for 100", "Section"], Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "100", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["3.542248481792618`*^20", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}], DefaultBaseStyle->{}, Evaluator->None, Method->"Queued"], "Open this notebook in a new window"]}, { ItemBox[GridBox[{ {Cell[ "David's personal Fibonacci Report for 100", "Section"]}, {Cell[TextData[{ "The numerical value of ", Cell[BoxData[ RowBox[{"Fibonacci", "[", "100", "]"}]], "Text", "TR"], " is ", Cell[BoxData["3.542248481792618`*^20"], "Text", "TR"] }], "Text", CellFrame->1, CellDingbat->"\[MathematicaIcon]", CellFrameMargins->2]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Background->GrayLevel[1], Frame->True, FrameStyle->GrayLevel[0, 0.2]]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], DefaultBaseStyle->{}, FrameMargins->5], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 100", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[100]]], " is ", Text[3.542248481792618*^20]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]], 2-> InterpretationBox[ PanelBox[GridBox[{ { TooltipBox[ ButtonBox[ StyleBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "ManipulatePasteIcon"], ImageSizeCache->{13., {4., 9.}}], DynamicUpdating->True], ButtonFrame->None, ButtonFunction:>FrontEndExecute[{ FrontEnd`NotebookPut[ Notebook[{ Cell[ "David's personal Fibonacci Report for 110", "Section"], Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "110", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["4.356677625885483`*^22", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}], DefaultBaseStyle->{}, Evaluator->None, Method->"Queued"], "Open this notebook in a new window"]}, { ItemBox[GridBox[{ {Cell[ "David's personal Fibonacci Report for 110", "Section"]}, {Cell[TextData[{ "The numerical value of ", Cell[BoxData[ RowBox[{"Fibonacci", "[", "110", "]"}]], "Text", "TR"], " is ", Cell[BoxData["4.356677625885483`*^22"], "Text", "TR"] }], "Text", CellFrame->1, CellDingbat->"\[MathematicaIcon]", CellFrameMargins->2]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Background->GrayLevel[1], Frame->True, FrameStyle->GrayLevel[0, 0.2]]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], DefaultBaseStyle->{}, FrameMargins->5], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 110", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[110]]], " is ", Text[4.356677625885483*^22]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]], 3-> InterpretationBox[ PanelBox[GridBox[{ { TooltipBox[ ButtonBox[ StyleBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "ManipulatePasteIcon"], ImageSizeCache->{13., {4., 9.}}], DynamicUpdating->True], ButtonFrame->None, ButtonFunction:>FrontEndExecute[{ FrontEnd`NotebookPut[ Notebook[{ Cell[ "David's personal Fibonacci Report for 120", "Section"], Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "120", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["5.358359254990965`*^24", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}], DefaultBaseStyle->{}, Evaluator->None, Method->"Queued"], "Open this notebook in a new window"]}, { ItemBox[GridBox[{ {Cell[ "David's personal Fibonacci Report for 120", "Section"]}, {Cell[TextData[{ "The numerical value of ", Cell[BoxData[ RowBox[{"Fibonacci", "[", "120", "]"}]], "Text", "TR"], " is ", Cell[BoxData["5.358359254990965`*^24"], "Text", "TR"] }], "Text", CellFrame->1, CellDingbat->"\[MathematicaIcon]", CellFrameMargins->2]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Background->GrayLevel[1], Frame->True, FrameStyle->GrayLevel[0, 0.2]]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], DefaultBaseStyle->{}, FrameMargins->5], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 120", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[120]]], " is ", Text[5.358359254990965*^24]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]], 4-> InterpretationBox[ PanelBox[GridBox[{ { TooltipBox[ ButtonBox[ StyleBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "ManipulatePasteIcon"], ImageSizeCache->{13., {4., 9.}}], DynamicUpdating->True], ButtonFrame->None, ButtonFunction:>FrontEndExecute[{ FrontEnd`NotebookPut[ Notebook[{ Cell[ "David's personal Fibonacci Report for 130", "Section"], Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "130", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["6.590346215876298`*^26", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}], DefaultBaseStyle->{}, Evaluator->None, Method->"Queued"], "Open this notebook in a new window"]}, { ItemBox[GridBox[{ {Cell[ "David's personal Fibonacci Report for 130", "Section"]}, {Cell[TextData[{ "The numerical value of ", Cell[BoxData[ RowBox[{"Fibonacci", "[", "130", "]"}]], "Text", "TR"], " is ", Cell[BoxData["6.590346215876298`*^26"], "Text", "TR"] }], "Text", CellFrame->1, CellDingbat->"\[MathematicaIcon]", CellFrameMargins->2]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Background->GrayLevel[1], Frame->True, FrameStyle->GrayLevel[0, 0.2]]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], DefaultBaseStyle->{}, FrameMargins->5], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 130", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[130]]], " is ", Text[6.590346215876298*^26]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]], 5-> InterpretationBox[ PanelBox[GridBox[{ { TooltipBox[ ButtonBox[ StyleBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "ManipulatePasteIcon"], ImageSizeCache->{13., {4., 9.}}], DynamicUpdating->True], ButtonFrame->None, ButtonFunction:>FrontEndExecute[{ FrontEnd`NotebookPut[ Notebook[{ Cell[ "David's personal Fibonacci Report for 140", "Section"], Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "140", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["8.105590009602348`*^28", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}], DefaultBaseStyle->{}, Evaluator->None, Method->"Queued"], "Open this notebook in a new window"]}, { ItemBox[GridBox[{ {Cell[ "David's personal Fibonacci Report for 140", "Section"]}, {Cell[TextData[{ "The numerical value of ", Cell[BoxData[ RowBox[{"Fibonacci", "[", "140", "]"}]], "Text", "TR"], " is ", Cell[BoxData["8.105590009602348`*^28"], "Text", "TR"] }], "Text", CellFrame->1, CellDingbat->"\[MathematicaIcon]", CellFrameMargins->2]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Background->GrayLevel[1], Frame->True, FrameStyle->GrayLevel[0, 0.2]]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], DefaultBaseStyle->{}, FrameMargins->5], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 140", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[140]]], " is ", Text[8.105590009602348*^28]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]], 6-> InterpretationBox[ PanelBox[GridBox[{ { TooltipBox[ ButtonBox[ StyleBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "ManipulatePasteIcon"], ImageSizeCache->{13., {4., 9.}}], DynamicUpdating->True], ButtonFrame->None, ButtonFunction:>FrontEndExecute[{ FrontEnd`NotebookPut[ Notebook[{ Cell[ "David's personal Fibonacci Report for 150", "Section"], Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "150", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["9.969216677189299`*^30", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}], DefaultBaseStyle->{}, Evaluator->None, Method->"Queued"], "Open this notebook in a new window"]}, { ItemBox[GridBox[{ {Cell[ "David's personal Fibonacci Report for 150", "Section"]}, {Cell[TextData[{ "The numerical value of ", Cell[BoxData[ RowBox[{"Fibonacci", "[", "150", "]"}]], "Text", "TR"], " is ", Cell[BoxData["9.969216677189299`*^30"], "Text", "TR"] }], "Text", CellFrame->1, CellDingbat->"\[MathematicaIcon]", CellFrameMargins->2]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Background->GrayLevel[1], Frame->True, FrameStyle->GrayLevel[0, 0.2]]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], DefaultBaseStyle->{}, FrameMargins->5], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 150", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[150]]], " is ", Text[9.969216677189299*^30]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}, Dynamic[BoxForm`var$$], Alignment->Automatic, ImageSize->All]], Background->GrayLevel[1]], Deployed->False, StripOnInput->False], Background->GrayLevel[1], Frame->True, FrameStyle->GrayLevel[0.8235294117647058], StripOnInput->False]} }, ColumnsEqual->False, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, RowsEqual->False], "Grid"], BaselinePosition->Automatic, DefaultBaseStyle->"SlideView", FrameMargins->6, ImageMargins->Automatic], Deployed->True, StripOnInput->False], SlideView[{ DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 100", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[100]]], " is ", Text[3.542248481792618*^20]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 110", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[110]]], " is ", Text[4.356677625885483*^22]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 120", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[120]]], " is ", Text[5.358359254990965*^24]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 130", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[130]]], " is ", Text[6.590346215876298*^26]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 140", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[140]]], " is ", Text[8.105590009602348*^28]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 150", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[150]]], " is ", Text[9.969216677189299*^30]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]}]], DynamicModuleValues:>{}], Setting[#, {0}]& ]]]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Background->GrayLevel[1], Frame->True, FrameStyle->GrayLevel[0, 0.2]]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], DefaultBaseStyle->{}, FrameMargins->5], DocumentNotebook[ TextCell[ SlideView[{ DocumentNotebook[{ TextCell["David's personal Fibonacci Report for 100", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[100]]], " is ", Text[3.542248481792618*^20]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"], DocumentNotebook[{ TextCell["David's personal Fibonacci Report for 110", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[110]]], " is ", Text[4.356677625885483*^22]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"], DocumentNotebook[{ TextCell["David's personal Fibonacci Report for 120", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[120]]], " is ", Text[5.358359254990965*^24]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"], DocumentNotebook[{ TextCell["David's personal Fibonacci Report for 130", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[130]]], " is ", Text[6.590346215876298*^26]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"], DocumentNotebook[{ TextCell["David's personal Fibonacci Report for 140", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[140]]], " is ", Text[8.105590009602348*^28]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"], DocumentNotebook[{ TextCell["David's personal Fibonacci Report for 150", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[150]]], " is ", Text[9.969216677189299*^30]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]}]]]]], "Output", CellChangeTimes->{ 3.397080297161364*^9, 3.3970807398716908`*^9, 3.397082739202312*^9, 3.3970862562945747`*^9, 3.397086403689561*^9, 3.397087097876768*^9, { 3.397128017806108*^9, 3.39712803665969*^9}, 3.397135560088812*^9, 3.397218136557131*^9, 3.3972411602140093`*^9, 3.397243566405122*^9, 3.397243713112341*^9}, CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 40.416713}]", "EphemeralGUID[211085988918256832907407166511333928124]", "CellGUID[91155166608385557291381974773923243571]", "reiss"}, CellLabel->"Out[30]=", CellID->634215300] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["FlipView", "Subsubsection", Editable->True, TaggingRules:>{"GUIDTag[221046219143874191766692080927783433824]"}, CellChangeTimes->{{3.397079489919025*^9, 3.397079493654949*^9}, { 3.397080253311125*^9, 3.3970802575881367`*^9}, {3.39708032548755*^9, 3.397080325871201*^9}, {3.3970809436250763`*^9, 3.397080955862802*^9}}, CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 24.752602}]", "EphemeralGUID[55567099395973554914937663252940504080]", "CellGUID[165413704917082668640612721344156047132]", "reiss"}, CellID->1403016668], Cell[TextData[{ "In the case of ", StyleBox["FlipView", "In"], ", each of the \"reports\" is again accessible sequentially, though only in \ the forward direction (looping cyclically through the list). One moves from \ one \"report\" to the next by clicking on the \"report\" itself. Hence, the \ content of the \"report\" in ", StyleBox["FlipView", "In"], " is not interactively accessible\[LongDash]in effect it is a simple way to \ limit interactive access to the material in the reports." }], "Text", CellChangeTimes->{{3.397081057662854*^9, 3.397081069492146*^9}, { 3.397081532949285*^9, 3.397081534306037*^9}, {3.3970818057593107`*^9, 3.3970818181597843`*^9}, {3.39708208328139*^9, 3.3970820843507833`*^9}, { 3.397082165684882*^9, 3.397082291800807*^9}, 3.397084028471992*^9, { 3.3971344684578943`*^9, 3.39713448441219*^9}, {3.397240582187277*^9, 3.3972405935801163`*^9}}, CellTags->"reiss", CellID->1007474697], Cell[TextData[{ "Therefore, in contrast to the cases of ", StyleBox["TabView", "In"], " and ", StyleBox["SlideView", "In"], ", in this example only the outermost ", Cell[GraphicsData["CompressedBitmap", "\<\ eJyFUUsOgjAQnVI+asLCG3ATdrjyEA0xgYXRIPsepUfpUThKndeCAQSdZNrJ +2Q6navqm9td9W2tikunnk1bv4rq0TEkBRHlnOeCUDsup0M6xDAMSDrgjIAQ RahPzlorAsBa6BhA0tGVZSmcMWZBMcgUh/DlmvL9kmD9LaIU9dRu4uameG4C ETmt9X9ftvbB5u/Q3I+8fmG6Z/oeJtmSjkPFn15j7A6TQCmXn4TY+uSwMoll eDvAbLafPGxw8yLxBuKNPdU=\ \>"], "Text", Evaluatable->False, ImageSize->{13, 17}, ImageMargins->0, ImageRegion->{{0, 1}, {0, 1}}], " icon opens a new notebook containing its associated content (the ", StyleBox["FlipView", "In"], " material), and in that new notebook none of the ", Cell[GraphicsData["CompressedBitmap", "\<\ eJyFUUsOgjAQnVI+asLCG3ATdrjyEA0xgYXRIPsepUfpUThKndeCAQSdZNrJ +2Q6navqm9td9W2tikunnk1bv4rq0TEkBRHlnOeCUDsup0M6xDAMSDrgjIAQ RahPzlorAsBa6BhA0tGVZSmcMWZBMcgUh/DlmvL9kmD9LaIU9dRu4uameG4C ETmt9X9ftvbB5u/Q3I+8fmG6Z/oeJtmSjkPFn15j7A6TQCmXn4TY+uSwMoll eDvAbLafPGxw8yLxBuKNPdU=\ \>"], "Text", Evaluatable->False, ImageSize->{13, 17}, ImageMargins->0, ImageRegion->{{0, 1}, {0, 1}}], " icons are active (because they are contained in the ", StyleBox["FlipView", "In"], "). This is not a bug: it is as designed. So, if I was designing ", StyleBox["FibonacciReport", "In"], " for a ", StyleBox["FlipView", "In"], ", I would be better off by simply exhibiting the cells comprising each \ \"report\" in a ", StyleBox["Column", "In"], " rather than within a ", StyleBox["DocumentNotebook", "In"], "." }], "Text", CellChangeTimes->{{3.3970816496584682`*^9, 3.397081673089922*^9}, { 3.397081707165552*^9, 3.397081791054483*^9}, 3.397081953043446*^9, { 3.397082297543466*^9, 3.3970824711849194`*^9}, {3.3970868595105057`*^9, 3.3970868769338512`*^9}, {3.3971345202718782`*^9, 3.397134525646793*^9}, { 3.397134557419496*^9, 3.397134566904029*^9}, {3.397134597214892*^9, 3.397134618594487*^9}}, CellTags->"reiss", CellID->544573082], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DocumentNotebook", "[", RowBox[{"TextCell", "[", "\[IndentingNewLine]", RowBox[{"FlipView", "[", RowBox[{ RowBox[{ RowBox[{"FibonacciReport", "[", RowBox[{"\"\\"", ",", "#"}], "]"}], "&"}], "/@", RowBox[{"Range", "[", RowBox[{"100", ",", "150", ",", "10"}], "]"}]}], "]"}], "]"}], "]"}]], "Input", Editable->True, TaggingRules:>{"GUIDTag[11906550777318492980006005322052424214]"}, CellChangeTimes->{ 3.3970795016860123`*^9, {3.3970796682311773`*^9, 3.397079731599069*^9}, { 3.397079768117091*^9, 3.397079774318913*^9}, {3.397079822164331*^9, 3.397079850033687*^9}, {3.397080280638809*^9, 3.39708028706472*^9}, { 3.3970806637166853`*^9, 3.397080664983925*^9}, {3.397080714988155*^9, 3.3970807378756*^9}, {3.397080950085841*^9, 3.397080963826392*^9}, { 3.397086262923977*^9, 3.3970862636391993`*^9}}, CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 40.416713}]", "EphemeralGUID[211085988918256832907407166511333928124]", "CellGUID[91155166608385557291381974773923243571]", "reiss"}, CellLabel->"In[31]:=", CellID->1130695016], Cell[BoxData[ InterpretationBox[ PanelBox[GridBox[{ { TooltipBox[ ButtonBox[ StyleBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "ManipulatePasteIcon"], ImageSizeCache->{13., {4., 9.}}], DynamicUpdating->True], ButtonFrame->None, ButtonFunction:>FrontEndExecute[{ FrontEnd`NotebookPut[ Notebook[{ Cell[ BoxData[ FormBox[ TagBox[ DynamicModuleBox[{Typeset`var$$ = 1}, InterpretationBox[ TogglerBox[ Dynamic[Typeset`var$$], {1 -> TagBox[ InterpretationBox[ PanelBox[ GridBox[{{ TooltipBox[ ButtonBox[ StyleBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "ManipulatePasteIcon"]], DynamicUpdating -> True], ButtonFrame -> None, ButtonFunction :> FrontEndExecute[{ FrontEnd`NotebookPut[ Notebook[{ Cell[ "David's personal Fibonacci Report for 100", "Section"], Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "100", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["3.542248481792618`*^20", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}], ButtonEvaluator -> None, DefaultBaseStyle -> {}, Method -> "Queued"], "Open this notebook in a new window"]}, { ItemBox[ GridBox[{{ Cell[ "David's personal Fibonacci Report for 100", "Section"]}, { Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "100", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["3.542248481792618`*^20", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}}, ColumnAlignments -> Left], Background -> GrayLevel[1], Frame -> True, FrameStyle -> GrayLevel[0, 0.2]]}}, ColumnAlignments -> Left], DefaultBaseStyle -> {}, FrameMargins -> 5], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 100", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[100]]], " is ", Text[3.542248481792618*^20]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]], "ResetImageSizeLevel"], 2 -> TagBox[ InterpretationBox[ PanelBox[ GridBox[{{ TooltipBox[ ButtonBox[ StyleBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "ManipulatePasteIcon"]], DynamicUpdating -> True], ButtonFrame -> None, ButtonFunction :> FrontEndExecute[{ FrontEnd`NotebookPut[ Notebook[{ Cell["David's personal Fibonacci Report for 110", "Section"], Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "110", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["4.356677625885483`*^22", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}], ButtonEvaluator -> None, DefaultBaseStyle -> {}, Method -> "Queued"], "Open this notebook in a new window"]}, { ItemBox[ GridBox[{{ Cell[ "David's personal Fibonacci Report for 110", "Section"]}, { Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "110", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["4.356677625885483`*^22", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}}, ColumnAlignments -> Left], Background -> GrayLevel[1], Frame -> True, FrameStyle -> GrayLevel[0, 0.2]]}}, ColumnAlignments -> Left], DefaultBaseStyle -> {}, FrameMargins -> 5], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 110", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[110]]], " is ", Text[4.356677625885483*^22]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]], "ResetImageSizeLevel"], 3 -> TagBox[ InterpretationBox[ PanelBox[ GridBox[{{ TooltipBox[ ButtonBox[ StyleBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "ManipulatePasteIcon"]], DynamicUpdating -> True], ButtonFrame -> None, ButtonFunction :> FrontEndExecute[{ FrontEnd`NotebookPut[ Notebook[{ Cell[ "David's personal Fibonacci Report for 120", "Section"], Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "120", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["5.358359254990965`*^24", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}], ButtonEvaluator -> None, DefaultBaseStyle -> {}, Method -> "Queued"], "Open this notebook in a new window"]}, { ItemBox[ GridBox[{{ Cell[ "David's personal Fibonacci Report for 120", "Section"]}, { Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "120", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["5.358359254990965`*^24", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}}, ColumnAlignments -> Left], Background -> GrayLevel[1], Frame -> True, FrameStyle -> GrayLevel[0, 0.2]]}}, ColumnAlignments -> Left], DefaultBaseStyle -> {}, FrameMargins -> 5], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 120", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[120]]], " is ", Text[5.358359254990965*^24]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]], "ResetImageSizeLevel"], 4 -> TagBox[ InterpretationBox[ PanelBox[ GridBox[{{ TooltipBox[ ButtonBox[ StyleBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "ManipulatePasteIcon"]], DynamicUpdating -> True], ButtonFrame -> None, ButtonFunction :> FrontEndExecute[{ FrontEnd`NotebookPut[ Notebook[{ Cell[ "David's personal Fibonacci Report for 130", "Section"], Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "130", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["6.590346215876298`*^26", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}], ButtonEvaluator -> None, DefaultBaseStyle -> {}, Method -> "Queued"], "Open this notebook in a new window"]}, { ItemBox[ GridBox[{{ Cell[ "David's personal Fibonacci Report for 130", "Section"]}, { Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "130", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["6.590346215876298`*^26", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}}, ColumnAlignments -> Left], Background -> GrayLevel[1], Frame -> True, FrameStyle -> GrayLevel[0, 0.2]]}}, ColumnAlignments -> Left], DefaultBaseStyle -> {}, FrameMargins -> 5], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 130", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[130]]], " is ", Text[6.590346215876298*^26]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]], "ResetImageSizeLevel"], 5 -> TagBox[ InterpretationBox[ PanelBox[ GridBox[{{ TooltipBox[ ButtonBox[ StyleBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "ManipulatePasteIcon"]], DynamicUpdating -> True], ButtonFrame -> None, ButtonFunction :> FrontEndExecute[{ FrontEnd`NotebookPut[ Notebook[{ Cell[ "David's personal Fibonacci Report for 140", "Section"], Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "140", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["8.105590009602348`*^28", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}], ButtonEvaluator -> None, DefaultBaseStyle -> {}, Method -> "Queued"], "Open this notebook in a new window"]}, { ItemBox[ GridBox[{{ Cell[ "David's personal Fibonacci Report for 140", "Section"]}, { Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "140", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["8.105590009602348`*^28", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}}, ColumnAlignments -> Left], Background -> GrayLevel[1], Frame -> True, FrameStyle -> GrayLevel[0, 0.2]]}}, ColumnAlignments -> Left], DefaultBaseStyle -> {}, FrameMargins -> 5], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 140", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[140]]], " is ", Text[8.105590009602348*^28]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]], "ResetImageSizeLevel"], 6 -> TagBox[ InterpretationBox[ PanelBox[ GridBox[{{ TooltipBox[ ButtonBox[ StyleBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "ManipulatePasteIcon"]], DynamicUpdating -> True], ButtonFrame -> None, ButtonFunction :> FrontEndExecute[{ FrontEnd`NotebookPut[ Notebook[{ Cell[ "David's personal Fibonacci Report for 150", "Section"], Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "150", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["9.969216677189299`*^30", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}], ButtonEvaluator -> None, DefaultBaseStyle -> {}, Method -> "Queued"], "Open this notebook in a new window"]}, { ItemBox[ GridBox[{{ Cell[ "David's personal Fibonacci Report for 150", "Section"]}, { Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "150", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["9.969216677189299`*^30", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}}, ColumnAlignments -> Left], Background -> GrayLevel[1], Frame -> True, FrameStyle -> GrayLevel[0, 0.2]]}}, ColumnAlignments -> Left], DefaultBaseStyle -> {}, FrameMargins -> 5], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 150", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[150]]], " is ", Text[9.969216677189299*^30]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]], "ResetImageSizeLevel"]}, ImageSize -> Automatic], FlipView[{ DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 100", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[100]]], " is ", Text[3.542248481792618*^20]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 110", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[110]]], " is ", Text[4.356677625885483*^22]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 120", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[120]]], " is ", Text[5.358359254990965*^24]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 130", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[130]]], " is ", Text[6.590346215876298*^26]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 140", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[140]]], " is ", Text[8.105590009602348*^28]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 150", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[150]]], " is ", Text[9.969216677189299*^30]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]}, 1]], DynamicModuleValues -> Automatic], Setting[#, {0}]& ], StandardForm]]]}]]}], DefaultBaseStyle->{}, Evaluator->None, Method->"Queued"], "Open this notebook in a new window"]}, { ItemBox[GridBox[{ {Cell[BoxData[ TagBox[ DynamicModuleBox[{Typeset`var$$ = 1}, InterpretationBox[ TogglerBox[Dynamic[Typeset`var$$], {1-> TagBox[ InterpretationBox[ PanelBox[GridBox[{ { TooltipBox[ ButtonBox[ StyleBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "ManipulatePasteIcon"], ImageSizeCache->{13., {4., 9.}}], DynamicUpdating->True], ButtonFrame->None, ButtonFunction:>FrontEndExecute[{ FrontEnd`NotebookPut[ Notebook[{ Cell[ "David's personal Fibonacci Report for 100", "Section"], Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "100", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["3.542248481792618`*^20", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}], DefaultBaseStyle->{}, Evaluator->None, Method->"Queued"], "Open this notebook in a new window"]}, { ItemBox[GridBox[{ {Cell[ "David's personal Fibonacci Report for 100", "Section"]}, {Cell[TextData[{ "The numerical value of ", Cell[BoxData[ RowBox[{"Fibonacci", "[", "100", "]"}]], "Text", "TR"], " is ", Cell[BoxData["3.542248481792618`*^20"], "Text", "TR"] }], "Text", CellFrame->1, CellDingbat->"\[MathematicaIcon]", CellFrameMargins->2]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Background->GrayLevel[1], Frame->True, FrameStyle->GrayLevel[0, 0.2]]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], DefaultBaseStyle->{}, FrameMargins->5], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 100", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[100]]], " is ", Text[3.542248481792618*^20]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]], "ResetImageSizeLevel"], 2-> TagBox[ InterpretationBox[ PanelBox[GridBox[{ { TooltipBox[ ButtonBox[ StyleBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "ManipulatePasteIcon"], ImageSizeCache->{13., {4., 9.}}], DynamicUpdating->True], ButtonFrame->None, ButtonFunction:>FrontEndExecute[{ FrontEnd`NotebookPut[ Notebook[{ Cell[ "David's personal Fibonacci Report for 110", "Section"], Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "110", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["4.356677625885483`*^22", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}], DefaultBaseStyle->{}, Evaluator->None, Method->"Queued"], "Open this notebook in a new window"]}, { ItemBox[GridBox[{ {Cell[ "David's personal Fibonacci Report for 110", "Section"]}, {Cell[TextData[{ "The numerical value of ", Cell[BoxData[ RowBox[{"Fibonacci", "[", "110", "]"}]], "Text", "TR"], " is ", Cell[BoxData["4.356677625885483`*^22"], "Text", "TR"] }], "Text", CellFrame->1, CellDingbat->"\[MathematicaIcon]", CellFrameMargins->2]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Background->GrayLevel[1], Frame->True, FrameStyle->GrayLevel[0, 0.2]]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], DefaultBaseStyle->{}, FrameMargins->5], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 110", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[110]]], " is ", Text[4.356677625885483*^22]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]], "ResetImageSizeLevel"], 3-> TagBox[ InterpretationBox[ PanelBox[GridBox[{ { TooltipBox[ ButtonBox[ StyleBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "ManipulatePasteIcon"], ImageSizeCache->{13., {4., 9.}}], DynamicUpdating->True], ButtonFrame->None, ButtonFunction:>FrontEndExecute[{ FrontEnd`NotebookPut[ Notebook[{ Cell[ "David's personal Fibonacci Report for 120", "Section"], Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "120", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["5.358359254990965`*^24", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}], DefaultBaseStyle->{}, Evaluator->None, Method->"Queued"], "Open this notebook in a new window"]}, { ItemBox[GridBox[{ {Cell[ "David's personal Fibonacci Report for 120", "Section"]}, {Cell[TextData[{ "The numerical value of ", Cell[BoxData[ RowBox[{"Fibonacci", "[", "120", "]"}]], "Text", "TR"], " is ", Cell[BoxData["5.358359254990965`*^24"], "Text", "TR"] }], "Text", CellFrame->1, CellDingbat->"\[MathematicaIcon]", CellFrameMargins->2]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Background->GrayLevel[1], Frame->True, FrameStyle->GrayLevel[0, 0.2]]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], DefaultBaseStyle->{}, FrameMargins->5], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 120", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[120]]], " is ", Text[5.358359254990965*^24]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]], "ResetImageSizeLevel"], 4-> TagBox[ InterpretationBox[ PanelBox[GridBox[{ { TooltipBox[ ButtonBox[ StyleBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "ManipulatePasteIcon"], ImageSizeCache->{13., {4., 9.}}], DynamicUpdating->True], ButtonFrame->None, ButtonFunction:>FrontEndExecute[{ FrontEnd`NotebookPut[ Notebook[{ Cell[ "David's personal Fibonacci Report for 130", "Section"], Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "130", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["6.590346215876298`*^26", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}], DefaultBaseStyle->{}, Evaluator->None, Method->"Queued"], "Open this notebook in a new window"]}, { ItemBox[GridBox[{ {Cell[ "David's personal Fibonacci Report for 130", "Section"]}, {Cell[TextData[{ "The numerical value of ", Cell[BoxData[ RowBox[{"Fibonacci", "[", "130", "]"}]], "Text", "TR"], " is ", Cell[BoxData["6.590346215876298`*^26"], "Text", "TR"] }], "Text", CellFrame->1, CellDingbat->"\[MathematicaIcon]", CellFrameMargins->2]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Background->GrayLevel[1], Frame->True, FrameStyle->GrayLevel[0, 0.2]]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], DefaultBaseStyle->{}, FrameMargins->5], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 130", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[130]]], " is ", Text[6.590346215876298*^26]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]], "ResetImageSizeLevel"], 5-> TagBox[ InterpretationBox[ PanelBox[GridBox[{ { TooltipBox[ ButtonBox[ StyleBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "ManipulatePasteIcon"], ImageSizeCache->{13., {4., 9.}}], DynamicUpdating->True], ButtonFrame->None, ButtonFunction:>FrontEndExecute[{ FrontEnd`NotebookPut[ Notebook[{ Cell[ "David's personal Fibonacci Report for 140", "Section"], Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "140", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["8.105590009602348`*^28", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}], DefaultBaseStyle->{}, Evaluator->None, Method->"Queued"], "Open this notebook in a new window"]}, { ItemBox[GridBox[{ {Cell[ "David's personal Fibonacci Report for 140", "Section"]}, {Cell[TextData[{ "The numerical value of ", Cell[BoxData[ RowBox[{"Fibonacci", "[", "140", "]"}]], "Text", "TR"], " is ", Cell[BoxData["8.105590009602348`*^28"], "Text", "TR"] }], "Text", CellFrame->1, CellDingbat->"\[MathematicaIcon]", CellFrameMargins->2]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Background->GrayLevel[1], Frame->True, FrameStyle->GrayLevel[0, 0.2]]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], DefaultBaseStyle->{}, FrameMargins->5], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 140", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[140]]], " is ", Text[8.105590009602348*^28]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]], "ResetImageSizeLevel"], 6-> TagBox[ InterpretationBox[ PanelBox[GridBox[{ { TooltipBox[ ButtonBox[ StyleBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "ManipulatePasteIcon"], ImageSizeCache->{13., {4., 9.}}], DynamicUpdating->True], ButtonFrame->None, ButtonFunction:>FrontEndExecute[{ FrontEnd`NotebookPut[ Notebook[{ Cell[ "David's personal Fibonacci Report for 150", "Section"], Cell[ TextData[{"The numerical value of ", Cell[ BoxData[ FormBox[ RowBox[{"Fibonacci", "[", "150", "]"}], StandardForm]], "Text", "TR"], " is ", Cell[ BoxData[ FormBox["9.969216677189299`*^30", StandardForm]], "Text", "TR"]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}], DefaultBaseStyle->{}, Evaluator->None, Method->"Queued"], "Open this notebook in a new window"]}, { ItemBox[GridBox[{ {Cell[ "David's personal Fibonacci Report for 150", "Section"]}, {Cell[TextData[{ "The numerical value of ", Cell[BoxData[ RowBox[{"Fibonacci", "[", "150", "]"}]], "Text", "TR"], " is ", Cell[BoxData["9.969216677189299`*^30"], "Text", "TR"] }], "Text", CellFrame->1, CellDingbat->"\[MathematicaIcon]", CellFrameMargins->2]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Background->GrayLevel[1], Frame->True, FrameStyle->GrayLevel[0, 0.2]]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], DefaultBaseStyle->{}, FrameMargins->5], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 150", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[150]]], " is ", Text[9.969216677189299*^30]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]], "ResetImageSizeLevel"]}, ImageSize->Automatic], FlipView[{ DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 100", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[100]]], " is ", Text[3.542248481792618*^20]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 110", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[110]]], " is ", Text[4.356677625885483*^22]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 120", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[120]]], " is ", Text[5.358359254990965*^24]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 130", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[130]]], " is ", Text[6.590346215876298*^26]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 140", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[140]]], " is ", Text[8.105590009602348*^28]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"], DocumentNotebook[{ TextCell[ "David's personal Fibonacci Report for 150", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[150]]], " is ", Text[9.969216677189299*^30]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]}, 1]], DynamicModuleValues:>{}], Setting[#, {0}]& ]]]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Background->GrayLevel[1], Frame->True, FrameStyle->GrayLevel[0, 0.2]]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], DefaultBaseStyle->{}, FrameMargins->5], DocumentNotebook[ TextCell[ FlipView[{ DocumentNotebook[{ TextCell["David's personal Fibonacci Report for 100", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[100]]], " is ", Text[3.542248481792618*^20]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"], DocumentNotebook[{ TextCell["David's personal Fibonacci Report for 110", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[110]]], " is ", Text[4.356677625885483*^22]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"], DocumentNotebook[{ TextCell["David's personal Fibonacci Report for 120", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[120]]], " is ", Text[5.358359254990965*^24]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"], DocumentNotebook[{ TextCell["David's personal Fibonacci Report for 130", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[130]]], " is ", Text[6.590346215876298*^26]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"], DocumentNotebook[{ TextCell["David's personal Fibonacci Report for 140", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[140]]], " is ", Text[8.105590009602348*^28]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"], DocumentNotebook[{ TextCell["David's personal Fibonacci Report for 150", "Section"], TextCell[ Row[{"The numerical value of ", Text[ Defer[ Fibonacci[150]]], " is ", Text[9.969216677189299*^30]}], "Text", CellDingbat -> "\[MathematicaIcon]", CellFrame -> 1, CellFrameMargins -> 2]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]}]]]]], "Output", CellChangeTimes->{ 3.397080977912467*^9, 3.3970862670544643`*^9, 3.397086403806903*^9, 3.397087097992469*^9, {3.397128017928535*^9, 3.3971280367646112`*^9}, 3.3971355601849203`*^9, 3.3972181366575117`*^9, 3.397241160300551*^9, 3.3972435664865303`*^9, 3.397243713224791*^9}, CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 40.416713}]", "EphemeralGUID[211085988918256832907407166511333928124]", "CellGUID[91155166608385557291381974773923243571]", "reiss"}, CellLabel->"Out[31]=", CellID->1295207039] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ CounterBox["Section"], ". Dynamic A", ButtonBox["ctive Documents", BaseStyle->"SectionButton"] }], "Section", CellChangeTimes->{{3.394578724658581*^9, 3.394578742935974*^9}, { 3.395155957812799*^9, 3.395155957867403*^9}, 3.395938693374346*^9, { 3.397218770887787*^9, 3.3972187710903883`*^9}}, CellTags->"reiss", CellID->866734937], Cell[TextData[{ "The example above is very simple, and illustrates the point that there are \ now ", "higher-level", " functions that are much more accessible for developing code that generates \ and manipulates documents. The scope of what you can do, however is enormous. \ Part of the reason for this is \"everything is an expression\" design of ", StyleBox["Mathematica", FontSlant->"Italic"], ", part is due to its ", StyleBox["Dynamic", "In"], " functionality, and part due to the presence of a full suite of user \ interface elements. " }], "Text", CellChangeTimes->{{3.39506553943499*^9, 3.395065623941719*^9}, { 3.3950657004975023`*^9, 3.395065757409905*^9}, {3.395067266293189*^9, 3.3950675103805847`*^9}, {3.395074028571479*^9, 3.395074078450714*^9}, 3.395074147644471*^9, {3.3950757857847*^9, 3.395075835832448*^9}, 3.395078416838065*^9, {3.3951565652568197`*^9, 3.395156571778438*^9}, 3.397061406202924*^9, 3.397218781841419*^9, {3.397240801213091*^9, 3.3972408136831303`*^9}, 3.397242404623455*^9}, CellTags->"reiss", CellID->1759345235], Cell[TextData[{ "The example of ", StyleBox["FibonacciReport", "In"], " that we focused on so far creates a fixed report for each set of argument \ that are supplied to it. And in the examples of the preceding section the \ documents for multiple ", StyleBox["FibonacciReports", "In"], " were precomputed and then accessed using the user interface devices of ", StyleBox["TabView", "In"], ", ", StyleBox["SlideView", "In"], StyleBox[", and ", "PP"], StyleBox["FlipView", "In"], StyleBox[". A ", "PP"], "paradigmatic", StyleBox[" example of an active document is a simple calculator that allows \ you to change the input parameter value arbitrarily. The following function, \ ", "PP"], StyleBox["DynamicFibonacciReport", "In"], ",", StyleBox[" does gives an example of this making use of the functions ", "PP"], StyleBox["Dynamic", "In"], StyleBox[" and ", "PP"], StyleBox["InputField", "In"], StyleBox[", and the scoping function ", "PP"], StyleBox["DynamicModule", "In"], StyleBox[".", "PP"] }], "Text", CellChangeTimes->{{3.3970614246468353`*^9, 3.3970614647746887`*^9}, { 3.397082507377926*^9, 3.397082507418056*^9}, 3.397084031045312*^9, { 3.397088099618153*^9, 3.397088349498502*^9}, 3.39713550874516*^9, { 3.397135582299322*^9, 3.397135603857758*^9}, {3.3971429701281967`*^9, 3.397142972376623*^9}, {3.397240832302497*^9, 3.397240869109736*^9}, { 3.397240901961526*^9, 3.397240985194791*^9}, {3.397241031756261*^9, 3.3972410667821207`*^9}}, CellTags->"reiss", CellID->1018316058], Cell[BoxData[ RowBox[{ RowBox[{"DynamicFibonacciReport", "[", "name_String", "]"}], ":=", "\[IndentingNewLine]", RowBox[{"DynamicModule", "[", RowBox[{ RowBox[{"{", RowBox[{"n", "=", "1"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"DocumentNotebook", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Dynamic", "[", RowBox[{"TextCell", "[", RowBox[{ RowBox[{ "name", "<>", "\"\<'s personal Fibonacci Report for \>\"", "<>", RowBox[{"ToString", "[", "n", "]"}]}], ",", "\"\\""}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"TextCell", "[", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Gray", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}], ",", RowBox[{"InputField", "[", RowBox[{ RowBox[{"Dynamic", "[", "n", "]"}], ",", "Number", ",", RowBox[{"FieldSize", "\[Rule]", "10"}]}], "]"}]}], "}"}], "]"}], ",", "\"\\""}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Dynamic", "[", RowBox[{"FibonacciReportCellV6", "[", "n", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"WindowSize", "\[Rule]", RowBox[{"{", RowBox[{"450", ",", "170"}], "}"}]}], ",", RowBox[{"ShowCellBracket", "\[Rule]", "False"}], ",", RowBox[{"WindowTitle", "\[Rule]", "\"\\""}]}], "]"}]}], "]"}]}]], "InputOnly", Editable->True, TaggingRules:>{"GUIDTag[11906550777318492980006005322052424214]"}, CellChangeTimes->{ 3.3970795016860123`*^9, {3.3970796682311773`*^9, 3.397079731599069*^9}, { 3.397079768117091*^9, 3.397079774318913*^9}, {3.397079822164331*^9, 3.397079850033687*^9}, {3.397080280638809*^9, 3.39708028706472*^9}, { 3.3970806637166853`*^9, 3.397080664983925*^9}, {3.397080714988155*^9, 3.3970807378756*^9}, {3.397080950085841*^9, 3.397080963826392*^9}, { 3.397086262923977*^9, 3.3970862636391993`*^9}, {3.397089268255988*^9, 3.397089281777335*^9}, {3.3970894205748463`*^9, 3.397089439921215*^9}, { 3.397134708732965*^9, 3.3971347444428387`*^9}, {3.397134827008499*^9, 3.397134827372468*^9}, {3.397135798170855*^9, 3.397135801008986*^9}, { 3.397135846328739*^9, 3.397135883165947*^9}, {3.397135925675308*^9, 3.3971359279294577`*^9}, {3.3971359587246037`*^9, 3.397135959307149*^9}}, CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 40.416713}]", "EphemeralGUID[211085988918256832907407166511333928124]", "CellGUID[91155166608385557291381974773923243571]", "reiss"}, CellLabel->"In[32]:=", CellID->2050680902], Cell[TextData[{ "The result of executing DynamicFibonacciReport is a \"simple calculator\" \ where, based on the value placed in the ", StyleBox["InputField", "In"], ", material in the \"report\" is automatically updated." }], "Text", CellChangeTimes->{{3.397241014072784*^9, 3.3972410250682898`*^9}, { 3.397241095290153*^9, 3.397241103527643*^9}, {3.39724121952267*^9, 3.397241272378354*^9}}, CellTags->"reiss", CellID->433320336], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DynamicFibonacciReport", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.3970891022255917`*^9, 3.397089112836178*^9}, { 3.397089149978754*^9, 3.397089166990263*^9}}, CellTags->"reiss", CellLabel->"In[33]:=", CellID->185196515], Cell[BoxData[ DynamicModuleBox[{$CellContext`n$$ = 1}, InterpretationBox[ PanelBox[GridBox[{ { TooltipBox[ ButtonBox[ StyleBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "ManipulatePasteIcon"], ImageSizeCache->{13., {4., 9.}}], DynamicUpdating->True], ButtonFrame->None, ButtonFunction:>FrontEndExecute[{ FrontEnd`NotebookPut[ Notebook[{ Cell[ BoxData[ FormBox[ DynamicBox[ ToBoxes[ TextCell[ StringJoin["David", "'s personal Fibonacci Report for ", ToString[$CellContext`n$$]], "Section"], StandardForm]], StandardForm]]], Cell[ TextData[{ StyleBox["Enter a positive number: ", GrayLevel[0.5], FontFamily -> "Helvetica", StripOnInput -> False], Cell[ BoxData[ FormBox[ InputFieldBox[ Dynamic[$CellContext`n$$], Number, FieldSize -> 10], StandardForm]]]}], "Text"], Cell[ BoxData[ FormBox[ DynamicBox[ ToBoxes[ $CellContext`FibonacciReportCellV6[$CellContext`n$$], StandardForm]], StandardForm]]]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]]}], DefaultBaseStyle->{}, Evaluator->None, Method->"Queued"], "Open this notebook in a new window"]}, { ItemBox[GridBox[{ {Cell[BoxData[ DynamicBox[ToBoxes[ TextCell[ StringJoin["David", "'s personal Fibonacci Report for ", ToString[$CellContext`n$$]], "Section"], StandardForm], ImageSizeCache->{341., {4., 19.}}]]]}, {Cell[TextData[{ StyleBox["Enter a positive number: ", StripOnInput->False, FrontFaceColor->GrayLevel[0.5], BackFaceColor->GrayLevel[0.5], GraphicsColor->GrayLevel[0.5], FontFamily->"Helvetica", FontColor->GrayLevel[0.5]], Cell[BoxData[ InputFieldBox[Dynamic[$CellContext`n$$], Number, FieldSize->10]]] }], "Text"]}, {Cell[BoxData[ DynamicBox[ToBoxes[ $CellContext`FibonacciReportCellV6[$CellContext`n$$], StandardForm], ImageSizeCache->{172.5, {3., 9.}}]]]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], Background->GrayLevel[1], Frame->True, FrameStyle->GrayLevel[0, 0.2]]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}], DefaultBaseStyle->{}, FrameMargins->5], DocumentNotebook[{ Dynamic[ TextCell[ StringJoin["David", "'s personal Fibonacci Report for ", ToString[$CellContext`n$$]], "Section"]], TextCell[ Row[{ Style["Enter a positive number: ", GrayLevel[0.5], FontFamily -> "Helvetica"], InputField[ Dynamic[$CellContext`n$$], Number, FieldSize -> 10]}], "Text"], Dynamic[ $CellContext`FibonacciReportCellV6[$CellContext`n$$]]}, WindowSize -> {450, 170}, ShowCellBracket -> False, WindowTitle -> "Fibonaccci!"]], DynamicModuleValues:>{}]], "Output", CellChangeTimes->{3.397241160431821*^9, 3.397243566571179*^9, 3.3972437134650097`*^9}, CellTags->"reiss", CellLabel->"Out[33]=", CellID->1650458481] }, Open ]], Cell[TextData[{ "This an aspect of this example is an example of how ", StyleBox["Dynamic", "In"], " parameters in ", StyleBox["Mathematica", FontSlant->"Italic"], " 6 can be embedded throughout a notebook to create active documents that \ change their state depending on parameter values. (", "In the simple case here, the text in the document responds to the changes \ in the value in the input field.) ", "Not only can documents be created by designing the expressions that \ comprise them, but these documents can morph and evolve arbitrarily in \ response to user-initiated changes within them or by other events associated \ with the document (via the functions ", StyleBox["FrontEndEventActions", "In"], ", ", StyleBox["NotebookEventActions", "In"], ", and ", StyleBox["CellEventActions", "In"], ")." }], "Text", CellChangeTimes->{{3.39713561348003*^9, 3.397135651340908*^9}, { 3.397135723233934*^9, 3.397135792526555*^9}, {3.397135986840294*^9, 3.3971360625844307`*^9}, {3.397136588780622*^9, 3.397136727774769*^9}, 3.397142973829858*^9, {3.3972412996755*^9, 3.397241305892664*^9}, { 3.397241498719344*^9, 3.397241637764723*^9}, {3.397241685450313*^9, 3.397241690487311*^9}, {3.397241734354473*^9, 3.3972417502510443`*^9}}, CellTags->"reiss", CellID->2129474842], Cell[TextData[{ "One further point that is worth mentioning in this context is Wolfram's \ free ", StyleBox["Mathematica Player", FontSlant->"Italic"], " application (", ButtonBox["http://www.wolfram.com/products/player", BaseStyle->"Hyperlink", ButtonData->{ URL["http://www.wolfram.com/products/player"], None}], "/), intended for people who do not have ", StyleBox["Mathematica", FontSlant->"Italic"], ". This is Wolfram's replacement for what was formerly knows as ", StyleBox["MathReader", FontSlant->"Italic"], ". The difference is that ", StyleBox["Mathematica Player", FontSlant->"Italic"], " permits active notebooks to function\[LongDash]in effect allowing you to \ deploy applications for use with users that do not have ", StyleBox["Mathematica.", FontSlant->"Italic"], " Currently this is only possible with examples that you submit to the \ Wolfram Demonstrations site (", ButtonBox["http://demonstrations.wolfram.com", BaseStyle->"Hyperlink", ButtonData->{ URL["http://demonstrations.wolfram.com/"], None}], "). Wolfram has a process in place whereby they digitally \"sign\" such \ examples before placing them on the site. It is hoped that this process will \ be generalized in the near future to allow users with a valid ", StyleBox["Mathematica", FontSlant->"Italic"], " license to sign their own examples and distribute them themselves. Also \ Wolfram is planning to release ", StyleBox["Mathematica Player", FontSlant->"Italic"], " ", StyleBox["Pro", FontSlant->"Italic"], ", which will have an extended fuctionality (", ButtonBox["http://blog.wolfram.com/2007/05/mathematica_player_so_much_more.\ html)", BaseStyle->"Hyperlink", ButtonData->{ URL["http://blog.wolfram.com/2007/05/mathematica_player_so_much_more.\ html"], None}], "." }], "Text", CellChangeTimes->{{3.397061500562784*^9, 3.397061520442252*^9}, { 3.397136067159189*^9, 3.397136068096547*^9}, {3.397136768792441*^9, 3.397137159995693*^9}, 3.3971429913396883`*^9, {3.397241763027607*^9, 3.39724178250858*^9}, {3.397241816782526*^9, 3.397241838631321*^9}, { 3.397241960047078*^9, 3.397241993764607*^9}, {3.3972420644285717`*^9, 3.39724208124993*^9}, {3.397242130807748*^9, 3.397242160977158*^9}, 3.397242216108279*^9}, CellTags->"reiss", CellID->1932709915] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ CounterBox["Section"], ". Bugs, o", ButtonBox["f Course...", BaseStyle->"SectionButton"] }], "Section", CellChangeTimes->{{3.394878265685006*^9, 3.394878270321783*^9}, { 3.3950741823978367`*^9, 3.395074184009948*^9}, 3.395938705254918*^9, { 3.39706108010394*^9, 3.3970610853744698`*^9}, {3.3970879097481003`*^9, 3.397087914251471*^9}}, CellTags->"reiss", CellID->275941014], Cell[TextData[{ "Of course in this short review I have only touched down at a few points in \ the huge space of possible ", "document-oriented", " applications that are possible with ", StyleBox["Mathematica", FontSlant->"Italic"], " 6. My trial by fire with some of the new features of ", StyleBox["Mathematica", FontSlant->"Italic"], " 6 was with bringing the 50,000+ lines of (mostly FrontEnd) code for \"A \ WorkLife FrameWork\" into ", StyleBox["Mathematica", FontSlant->"Italic"], " 6 compatibility. It is a testament to the responsiveness of the developers \ at Wolfram Research that, as I worked though this task in the context of \ changing alpha and beta versions of ", StyleBox["Mathematica", FontSlant->"Italic"], " 6, they responded to bug reports quickly. I'd like to think that this \ helped with increasing the stability of ", StyleBox["Mathematica", FontSlant->"Italic"], " 6, but from my perspective it made ", StyleBox["my", FontSlant->"Italic"], " task much easier. And the process of transitioning 50,000+ lines of code \ was surprisingly less of a task than I had originally expected." }], "Text", CellChangeTimes->{{3.3970610877416286`*^9, 3.39706126373346*^9}, 3.397083789846034*^9, {3.397083836790661*^9, 3.397083843989749*^9}, { 3.397087920531847*^9, 3.3970880267525883`*^9}, {3.397088056758526*^9, 3.3970880573809547`*^9}, {3.3971360929752483`*^9, 3.397136204311121*^9}, { 3.3971428248547153`*^9, 3.397142885944273*^9}, 3.397143000748549*^9, 3.39721879612348*^9, 3.3972198519114647`*^9}, CellTags->"reiss", CellID->1323428425], Cell[TextData[{ "In the course of writing this review I came across a number of bugs, and it \ is my practise to refine each bug as much as possible and to report it \ promptly to Wolfram Research. In some cases what I though were bugs, were \ intentional design elements, and figuring them out helped with my \ understanding of the associated ", StyleBox["Mathematica", FontSlant->"Italic"], " functions. " }], "Text", CellChangeTimes->{{3.3971362115258904`*^9, 3.3971364283620253`*^9}, { 3.397136477004074*^9, 3.397136492992898*^9}, {3.3971398658384933`*^9, 3.397139866873074*^9}, {3.397139903212006*^9, 3.397139928034318*^9}, { 3.397140078616791*^9, 3.397140202495742*^9}, {3.397142748986371*^9, 3.3971428226459923`*^9}, 3.397143002600862*^9, {3.397242968879801*^9, 3.3972429957431583`*^9}}, CellTags->"reiss", CellID->1526980144], Cell[TextData[{ "When working with the new features of ", StyleBox["Mathematica", FontSlant->"Italic"], " 6 you will certainly encounter bugs This is normal for any very large \ software system\[LongDash]and even more so for one that has experienced the \ degree of change that has occurred in ", StyleBox["Mathematica", FontSlant->"Italic"], " 6. With the prospect of combining the new elements of ", StyleBox["Mathematica", FontSlant->"Italic"], " 6 in many novel ways you will certainly encounter situations that are not \ in the testing suite that Wolfram runs on ", StyleBox["Mathematica", FontSlant->"Italic"], " daily. I strongly encourage you to report all bugs that you come across to \ the ", StyleBox["Mathematica", FontSlant->"Italic"], " developers. The correct email address for this is ", ButtonBox["support@wolfram.com", BaseStyle->"Hyperlink", ButtonData->{ URL["mailto:support@wolfram.com"], None}], ". " }], "Text", CellChangeTimes->{{3.3971362115258904`*^9, 3.3971364283620253`*^9}, { 3.397136477004074*^9, 3.397136492992898*^9}, {3.3971398658384933`*^9, 3.397139866873074*^9}, {3.397139903212006*^9, 3.397139928034318*^9}, { 3.397140078616791*^9, 3.397140202495742*^9}, {3.397142748986371*^9, 3.3971428226459923`*^9}, 3.397143002600862*^9, {3.397242968879801*^9, 3.3972429957431583`*^9}, {3.3972430417023153`*^9, 3.397243042860376*^9}}, CellTags->"reiss", CellID->2145411775] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ CounterBox["Section"], ". ", ButtonBox["Tutorials and Guides", BaseStyle->"SectionButton"] }], "Section", CellChangeTimes->{{3.394878265685006*^9, 3.394878270321783*^9}, { 3.3950741823978367`*^9, 3.395074184009948*^9}, 3.395938705254918*^9}, CellTags->"reiss", CellID->1075680096], Cell[TextData[{ "The new Documentation Center in ", StyleBox["Mathematica", FontSlant->"Italic"], " replaces the former Help Browser (which is still present to display legacy \ package documentation). Within the Documentation Center there are a large \ number of tutorials and other materials. Here is a function for accessing \ them directly and following it is a table of tutorials and some other \ documentation items relevant to this review. " }], "Text", CellChangeTimes->{{3.394983155623274*^9, 3.394983230763978*^9}, { 3.3949835445053787`*^9, 3.394983555247901*^9}, 3.395058483580669*^9, { 3.3950594665591793`*^9, 3.395059483071611*^9}, {3.395070152606213*^9, 3.395070205350964*^9}, {3.395071473495757*^9, 3.3950714740366783`*^9}, { 3.395074199088396*^9, 3.395074202123683*^9}, 3.395078442763618*^9, { 3.397218797174343*^9, 3.397218812338279*^9}}, CellTags->"reiss", CellID->1337438765], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"OpenDocCenter", "[", "link_String", "]"}], ":=", RowBox[{"FrontEndExecute", "[", RowBox[{"FrontEndToken", "[", RowBox[{"\"\\"", ",", RowBox[{"{", "link", "}"}]}], "]"}], "]"}]}], ";"}]], "InputOnly", Editable->True, TaggingRules:>{"GUIDTag[110201206260032333721049149241584908322]"}, CellChangeTimes->{ 3.394834532862672*^9, {3.395059545442461*^9, 3.3950595461760406`*^9}, { 3.39507010965047*^9, 3.395070144279471*^9}, {3.39507149041713*^9, 3.395071496289877*^9}}, CellTags->{ "DiaryDate[{2007, 7, 31, 1, 35, 31.593476}]", "EphemeralGUID[331480877609638403014951055580693522813]", "CellGUID[110018468602377746104826394257493963529]", "reiss"}, CellLabel->"In[34]:=", CellID->1658275496], Cell[BoxData[ TagBox[GridBox[{ {"\<\"Tutorials\"\>", "\<\"Guides\"\>"}, { ButtonBox[ StyleBox["\<\"tutorial/NotebooksAsDocuments\"\>", "Helvetica", StripOnInput->False, FontSize->9], Appearance->"Frameless", ButtonFrame->"Frameless", ButtonFunction:>FrontEndExecute[ FrontEndToken["OpenHelpLink", {"tutorial/NotebooksAsDocuments"}]], Evaluator->Automatic, Method->"Preemptive"], ButtonBox[ StyleBox["\<\"guide/NewIn60NotebooksAndDocuments\"\>", "Helvetica", StripOnInput->False, FontSize->9], Appearance->"Frameless", ButtonFrame->"Frameless", ButtonFunction:>FrontEndExecute[ FrontEndToken[ "OpenHelpLink", {"guide/NewIn60NotebooksAndDocuments"}]], Evaluator->Automatic, Method->"Preemptive"]}, { ButtonBox[ StyleBox["\<\"tutorial/GridsRowsAndColumns\"\>", "Helvetica", StripOnInput->False, FontSize->9], Appearance->"Frameless", ButtonFrame->"Frameless", ButtonFunction:>FrontEndExecute[ FrontEndToken["OpenHelpLink", {"tutorial/GridsRowsAndColumns"}]], Evaluator->Automatic, Method->"Preemptive"], ButtonBox[ StyleBox["\<\"guide/DocumentGeneration\"\>", "Helvetica", StripOnInput->False, FontSize->9], Appearance->"Frameless", ButtonFrame->"Frameless", ButtonFunction:>FrontEndExecute[ FrontEndToken["OpenHelpLink", {"guide/DocumentGeneration"}]], Evaluator->Automatic, Method->"Preemptive"]}, { ButtonBox[ StyleBox["\<\"tutorial/TablesAndMatrices\"\>", "Helvetica", StripOnInput->False, FontSize->9], Appearance->"Frameless", ButtonFrame->"Frameless", ButtonFunction:>FrontEndExecute[ FrontEndToken["OpenHelpLink", {"tutorial/TablesAndMatrices"}]], Evaluator->Automatic, Method->"Preemptive"], ButtonBox[ StyleBox["\<\"guide/LayoutAndTables\"\>", "Helvetica", StripOnInput->False, FontSize->9], Appearance->"Frameless", ButtonFrame->"Frameless", ButtonFunction:>FrontEndExecute[ FrontEndToken["OpenHelpLink", {"guide/LayoutAndTables"}]], Evaluator->Automatic, Method->"Preemptive"]}, { ButtonBox[ StyleBox["\<\"tutorial/FormattedOutput\"\>", "Helvetica", StripOnInput->False, FontSize->9], Appearance->"Frameless", ButtonFrame->"Frameless", ButtonFunction:>FrontEndExecute[ FrontEndToken["OpenHelpLink", {"tutorial/FormattedOutput"}]], Evaluator->Automatic, Method->"Preemptive"], ButtonBox[ StyleBox["\<\"guide/DynamicInteractivityOverview\"\>", "Helvetica", StripOnInput->False, FontSize->9], Appearance->"Frameless", ButtonFrame->"Frameless", ButtonFunction:>FrontEndExecute[ FrontEndToken[ "OpenHelpLink", {"guide/DynamicInteractivityOverview"}]], Evaluator->Automatic, Method->"Preemptive"]}, { ButtonBox[ StyleBox["\<\"tutorial/ImportingAndExportingData\"\>", "Helvetica", StripOnInput->False, FontSize->9], Appearance->"Frameless", ButtonFrame->"Frameless", ButtonFunction:>FrontEndExecute[ FrontEndToken[ "OpenHelpLink", {"tutorial/ImportingAndExportingData"}]], Evaluator->Automatic, Method->"Preemptive"], ButtonBox[ StyleBox["\<\"guide/ListingOfAllFormats\"\>", "Helvetica", StripOnInput->False, FontSize->9], Appearance->"Frameless", ButtonFrame->"Frameless", ButtonFunction:>FrontEndExecute[ FrontEndToken["OpenHelpLink", {"guide/ListingOfAllFormats"}]], Evaluator->Automatic, Method->"Preemptive"]} }, ColumnsEqual->False, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxFrame->{"Columns" -> {{True}}, "RowsIndexed" -> {1 -> True}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxItemStyle->{"Columns" -> {{ Directive[10, FontFamily -> "Helvetica"]}}, "Rows" -> { Directive[Bold, 9, FontFamily -> "Helvetica"]}}, RowsEqual->False], "Grid"]], "Text", "TR", Editable->True, Deletable->True, CellMargins->{{0, 0}, {6, 2}}, TextAlignment->Center, ShowStringCharacters->False, CellTags->"reiss", CellID->1362586214], Cell[TextData[{ StyleBox["Fig. ", FontWeight->"Bold"], StyleBox[ CounterBox["FigureCaption"], FontWeight->"Bold"], " Some resources from the ", StyleBox["Mathematica", FontSlant->"Italic"], " Documentation Center relevant for this review. (In the notebook version of \ this review the entries are hyperlinks to the indicated sections.)" }], "FigureCaption", Editable->True, Deletable->True, PageBreakAbove->False, CellChangeTimes->{{3.395067119135652*^9, 3.39506716703342*^9}, { 3.395072872849387*^9, 3.395072873261973*^9}, {3.395143278367258*^9, 3.395143300755567*^9}, {3.395151285391654*^9, 3.395151312140226*^9}, { 3.397075641918497*^9, 3.397075643621662*^9}}, TextAlignment->Center, CellTags->"reiss", CellID->1535111013] }, Open ]], Cell[CellGroupData[{ Cell["About the Author", "Section", CellChangeTimes->{{3.397243484546341*^9, 3.3972434848703136`*^9}}, CellTags->"reiss", CellID->143510863], Cell[TextData[{ "David Reiss (", ButtonBox["http://scientificarts.com/staff.html", BaseStyle->"Hyperlink", ButtonData->{ URL["http://scientificarts.com/staff.html"], None}], ") has been using ", StyleBox["Mathematica", FontSlant->"Italic"], " since it was born and had watched it through its gestation and birth. He \ has used ", StyleBox["Mathematica", FontSlant->"Italic"], " for most of his technical and other creative work and, like many ", StyleBox["Mathematica", FontSlant->"Italic"], " users, first started using it as a computational scratch pad. He is an ", ButtonBox["accredited Mathematica consultant", BaseStyle->"Hyperlink", ButtonData->{ URL["http://www.wolfram.com/services/training/consulting.html"], None}], " and is splits his time between various consulting opportunities and the \ continued enhancement of \"A WorkLife FrameWork.\"" }], "Text", CellChangeTimes->{{3.394554036220399*^9, 3.3945540437971697`*^9}, 3.394554124477796*^9, {3.3945593661653433`*^9, 3.394559397153302*^9}, { 3.394979871269429*^9, 3.394979871902666*^9}, {3.39507526567978*^9, 3.395075269825912*^9}, {3.397060433161303*^9, 3.397060459260895*^9}, { 3.397087622034505*^9, 3.3970876267293587`*^9}, {3.397087680592248*^9, 3.397087879145352*^9}, {3.397136536312595*^9, 3.397136552632307*^9}}, CellTags->"reiss", CellID->362938860], Cell[TextData[{ "Over the years he came to realize the beauty and power of ", StyleBox["Mathematica", FontSlant->"Italic"], "'s language, its unified design, and the potential of its FrontEnd. This \ inspired him to start to create a set of tools that would be useful in his \ everyday work\[LongDash]whether in his technical computation, research, and \ writing tasks, or in his broader creative work. This set of tools eventually \ evolved into \"A WorkLife FrameWork\" (", ButtonBox["http://scientificarts.com/worklife", BaseStyle->"Hyperlink", ButtonData->{ URL["http://scientificarts.com/worklife"], None}], ") and now he is lost without it.\.00" }], "Text", CellChangeTimes->{{3.394554036220399*^9, 3.394554110992738*^9}, 3.394979883141367*^9, 3.3950585277691603`*^9, 3.395075278381055*^9, { 3.3970604795799723`*^9, 3.397060506647612*^9}, {3.397136571847468*^9, 3.397136572689324*^9}, {3.397243546680314*^9, 3.397243555905487*^9}}, CellTags->"reiss", CellID->969986524], Cell["David Reiss", "Author", CellChangeTimes->{{3.393871951836157*^9, 3.39387195456101*^9}}, CellTags->"reiss", CellID->1059862540], Cell["\<\ Scientific Arts, LLC PO Box 1235 Arlington, MA 02474\ \>", "Address", CellChangeTimes->{{3.393595461871251*^9, 3.393595502847677*^9}, { 3.393871914894229*^9, 3.393871921736133*^9}}, CellTags->"reiss", CellID->1880341562], Cell["dreiss@scientificarts.com", "Email", CellChangeTimes->{{3.3935954489941053`*^9, 3.3935954535734577`*^9}}, CellTags->"reiss", CellID->531283282], Cell[TextData[ButtonBox["http://scientificarts.com", BaseStyle->"Email", ButtonData->{ URL["http://scientificarts.com"], None}]], "Email", Editable->True, TaggingRules:>{"GUIDTag[303526597846479253485852462126028402567]"}, CellChangeTimes->{{3.397060596437945*^9, 3.3970606111626167`*^9}}, CellTags->{ "DiaryDate[{2007, 8, 25, 19, 56, 15.818710}]", "EphemeralGUID[275167024434021738406367650194137393472]", "CellGUID[228702652415846134232125833283322987682]", "reiss"}, CellID->1044817619] }, Open ]] }, Open ]] }, Editable->True, WindowToolbars->{}, WindowSize->{758, 728}, WindowMargins->{{20, Automatic}, {Automatic, 0}}, WindowTitle->Automatic, Visible->True, DockedCells->{ Cell[ BoxData[ FormBox[ TagBox[ ButtonBox[ PaneSelectorBox[{False -> InterpretationBox[ RowBox[{ StyleBox[ "\"S\"", FontSlant -> "Italic", FontColor -> RGBColor[0.7, 0, 0], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"c\"", FontSlant -> "Italic", FontColor -> RGBColor[0.8, 0.2, 0], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"i\"", FontSlant -> "Italic", FontColor -> RGBColor[0.8, 0.4, 0], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"e\"", FontSlant -> "Italic", FontColor -> RGBColor[0.9, 0.5, 0], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"n\"", FontSlant -> "Italic", FontColor -> RGBColor[1, 0.6, 0], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"t\"", FontSlant -> "Italic", FontColor -> RGBColor[0.6, 0.6, 0.], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"i\"", FontSlant -> "Italic", FontColor -> RGBColor[0.3, 0.5, 0.3], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"f\"", FontSlant -> "Italic", FontColor -> RGBColor[0.2, 0.4, 0.3], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"i\"", FontSlant -> "Italic", FontColor -> RGBColor[0, 0.3, 0.5], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"c\"", FontSlant -> "Italic", FontColor -> RGBColor[0, 0.2, 0.6], StripOnInput -> False], "\[InvisibleSpace]", StyleBox["\" \"", FontSlant -> "Italic", StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"A\"", FontSlant -> "Italic", FontColor -> RGBColor[0.5, 0, 0.7], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"r\"", FontSlant -> "Italic", FontColor -> RGBColor[0.4, 0, 0.6], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"t\"", FontSlant -> "Italic", FontColor -> RGBColor[0.5, 0.1, 0.6], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"s\"", FontSlant -> "Italic", FontColor -> RGBColor[0.6, 0.2, 0.6], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\" LLC\"", FontColor -> RGBColor[0, 0.35, 0], FontSize -> 9, FontFamily -> "Helvetica", StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\" (\[Copyright], 2008)\"", FontColor -> RGBColor[0, 0.35, 0], FontSize -> 9, FontFamily -> "Helvetica", StripOnInput -> False]}], Row[{ Style[ "S", FontSlant -> "Italic", FontColor -> RGBColor[0.7, 0, 0]], Style[ "c", FontSlant -> "Italic", FontColor -> RGBColor[0.8, 0.2, 0]], Style[ "i", FontSlant -> "Italic", FontColor -> RGBColor[0.8, 0.4, 0]], Style[ "e", FontSlant -> "Italic", FontColor -> RGBColor[0.9, 0.5, 0]], Style[ "n", FontSlant -> "Italic", FontColor -> RGBColor[1, 0.6, 0]], Style[ "t", FontSlant -> "Italic", FontColor -> RGBColor[0.6, 0.6, 0.]], Style[ "i", FontSlant -> "Italic", FontColor -> RGBColor[0.3, 0.5, 0.3]], Style[ "f", FontSlant -> "Italic", FontColor -> RGBColor[0.2, 0.4, 0.3]], Style[ "i", FontSlant -> "Italic", FontColor -> RGBColor[0, 0.3, 0.5]], Style[ "c", FontSlant -> "Italic", FontColor -> RGBColor[0, 0.2, 0.6]], Style[" ", FontSlant -> "Italic"], Style[ "A", FontSlant -> "Italic", FontColor -> RGBColor[0.5, 0, 0.7]], Style[ "r", FontSlant -> "Italic", FontColor -> RGBColor[0.4, 0, 0.6]], Style[ "t", FontSlant -> "Italic", FontColor -> RGBColor[0.5, 0.1, 0.6]], Style[ "s", FontSlant -> "Italic", FontColor -> RGBColor[0.6, 0.2, 0.6]], Style[ " LLC", FontColor -> RGBColor[0, 0.35, 0], FontSize -> 9, FontFamily -> "Helvetica"], Style[ " (\[Copyright], 2008)", FontColor -> RGBColor[0, 0.35, 0], FontSize -> 9, FontFamily -> "Helvetica"]}]], True -> StyleBox[ InterpretationBox[ RowBox[{ StyleBox[ "\"S\"", FontSlant -> "Italic", FontColor -> RGBColor[0.7, 0, 0], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"c\"", FontSlant -> "Italic", FontColor -> RGBColor[0.8, 0.2, 0], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"i\"", FontSlant -> "Italic", FontColor -> RGBColor[0.8, 0.4, 0], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"e\"", FontSlant -> "Italic", FontColor -> RGBColor[0.9, 0.5, 0], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"n\"", FontSlant -> "Italic", FontColor -> RGBColor[1, 0.6, 0], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"t\"", FontSlant -> "Italic", FontColor -> RGBColor[0.6, 0.6, 0.], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"i\"", FontSlant -> "Italic", FontColor -> RGBColor[0.3, 0.5, 0.3], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"f\"", FontSlant -> "Italic", FontColor -> RGBColor[0.2, 0.4, 0.3], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"i\"", FontSlant -> "Italic", FontColor -> RGBColor[0, 0.3, 0.5], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"c\"", FontSlant -> "Italic", FontColor -> RGBColor[0, 0.2, 0.6], StripOnInput -> False], "\[InvisibleSpace]", StyleBox["\" \"", FontSlant -> "Italic", StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"A\"", FontSlant -> "Italic", FontColor -> RGBColor[0.5, 0, 0.7], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"r\"", FontSlant -> "Italic", FontColor -> RGBColor[0.4, 0, 0.6], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"t\"", FontSlant -> "Italic", FontColor -> RGBColor[0.5, 0.1, 0.6], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"s\"", FontSlant -> "Italic", FontColor -> RGBColor[0.6, 0.2, 0.6], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\" LLC\"", FontColor -> RGBColor[0, 0.35, 0], FontSize -> 9, FontFamily -> "Helvetica", StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\" (\[Copyright], 2008)\"", FontColor -> RGBColor[0, 0.35, 0], FontSize -> 9, FontFamily -> "Helvetica", StripOnInput -> False]}], Row[{ Style[ "S", FontSlant -> "Italic", FontColor -> RGBColor[0.7, 0, 0]], Style[ "c", FontSlant -> "Italic", FontColor -> RGBColor[0.8, 0.2, 0]], Style[ "i", FontSlant -> "Italic", FontColor -> RGBColor[0.8, 0.4, 0]], Style[ "e", FontSlant -> "Italic", FontColor -> RGBColor[0.9, 0.5, 0]], Style[ "n", FontSlant -> "Italic", FontColor -> RGBColor[1, 0.6, 0]], Style[ "t", FontSlant -> "Italic", FontColor -> RGBColor[0.6, 0.6, 0.]], Style[ "i", FontSlant -> "Italic", FontColor -> RGBColor[0.3, 0.5, 0.3]], Style[ "f", FontSlant -> "Italic", FontColor -> RGBColor[0.2, 0.4, 0.3]], Style[ "i", FontSlant -> "Italic", FontColor -> RGBColor[0, 0.3, 0.5]], Style[ "c", FontSlant -> "Italic", FontColor -> RGBColor[0, 0.2, 0.6]], Style[" ", FontSlant -> "Italic"], Style[ "A", FontSlant -> "Italic", FontColor -> RGBColor[0.5, 0, 0.7]], Style[ "r", FontSlant -> "Italic", FontColor -> RGBColor[0.4, 0, 0.6]], Style[ "t", FontSlant -> "Italic", FontColor -> RGBColor[0.5, 0.1, 0.6]], Style[ "s", FontSlant -> "Italic", FontColor -> RGBColor[0.6, 0.2, 0.6]], Style[ " LLC", FontColor -> RGBColor[0, 0.35, 0], FontSize -> 9, FontFamily -> "Helvetica"], Style[ " (\[Copyright], 2008)", FontColor -> RGBColor[0, 0.35, 0], FontSize -> 9, FontFamily -> "Helvetica"]}]], "HyperlinkActive"]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0, BaselinePosition -> Baseline], BaseStyle -> "Hyperlink", ButtonData -> { URL["http://scientificarts.com/worklife"], None}, ButtonNote -> "http://scientificarts.com/worklife"], Annotation[#, "http://scientificarts.com/worklife", "Hyperlink"]& ], StandardForm]], "DockedCell", TextAlignment -> Center, ShowCellBracket -> False, CellDingbat -> None, CellFrameMargins -> 5, CellMargins -> {{0, 0}, {5, 1}}, FontFamily -> "Times New Roman", CellFrame -> {{0, 0}, {2, 2}}, FontSize -> 35, Background -> RGBColor[0.9333333333333333, 0.9333333333333333, 0.9333333333333333]]}, PrintingCopies->1, PrintingPageRange->{1, Automatic}, PageHeaders->{{ Cell[ TextData[{ CounterBox["Page"]}], "PageNumber"], Cell[ TextData[{"David Reiss, Scientific Arts, LLC"}], "Header"], None}, { None, Cell[ TextData["Every Document is an expression: The reach of Mathematica 6"], "Header"], Cell[ TextData[{ CounterBox["Page"]}], "PageNumber"]}}, ShowSelection->True, TaggingRules:>{ "GUIDTag[329499071218192320781890521138733585804]", "Notebook", "Duplicate", "CreatedOn[{2007, 9, 10, 15, 44, 59.219041}]", "OpenedDate[{2007, 9, 10, 15, 45, 2.001819}]", Diary`Diary`Organization :> None, "SaveBackupToolbarDockedCell", "ToolbarCellVersion" -> "3.0.0\[Beta]g", "LastOpened[{2008, 7, 25, 3, 5, 50.507439}]", "OpenedDate[{2008, 7, 25, 3, 5, 50.689465}]"}, CreateCellID->True, DefaultNewCellStyle->"Text", FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (May 21, 2008)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ CellGroupData[{ Cell[ "Stylesheet for MiER articles", "Title", CellDingbat -> None, ShowGroupOpener -> False], Cell["version 11.4", "Text", FontFamily -> "Helvetica"], Cell[ CellGroupData[{ Cell[ "Style environment names", "Section", CellDingbat -> None, ShowGroupOpener -> True], Cell[ StyleData[All, "Working"], ScreenStyleEnvironment -> "Working", PrintingStyleEnvironment -> "Printout", PageWidth -> WindowWidth, ShowGroupOpener -> True, CellBracketOptions -> {"Color" -> RGBColor[1, 0, 0]}, ScriptMinSize -> 7], Cell[ StyleData[All, "Printout"], ScreenStyleEnvironment -> "Printout", PageWidth -> PaperWidth, ShowGroupOpener -> False, PrivateEvaluationOptions -> {"OutputFormPageWidth" -> "PaperWidth"}, ShowCellTags -> False, ScriptMinSize -> 7, FontColor -> GrayLevel[0], Background -> None]}, Closed]], Cell[ CellGroupData[{ Cell[ "Notebook options", "Section", CellDingbat -> None, ShowGroupOpener -> True], Cell[ "The options defined for the style below will be used at the \ Notebook level. ", "Text", CellMargins -> {{16.8125, Inherited}, {Inherited, Inherited}}], Cell[ StyleData["Notebook"], AutoGeneratedPackage -> None, WindowToolbars -> "EditBar", PageHeaders -> {{ Cell[ TextData[{ CounterBox["Page"]}], "PageNumber"], Cell[ TextData[{"Author"}], "Header"], None}, {None, Cell[ TextData["Article title"], "Header"], Cell[ TextData[{ CounterBox["Page"]}], "PageNumber"]}}, PageFooters -> {{None, None, None}, {None, None, None}}, PageHeaderLines -> {False, False}, PrintingOptions -> { "FacingPages" -> True, "FirstPageFace" -> Right, "FirstPageFooter" -> True, "FirstPageHeader" -> False, "Magnification" -> 1, "PageFooterMargins" -> {30, 30}, "PageHeaderMargins" -> {60, 60}, "PageSize" -> {596, 794}, "PaperSize" -> {596, 794}, "PrintCellBrackets" -> False, "PrintRegistrationMarks" -> False, "PrintingMargins" -> {{90, 90}, {60, 90}}}, PrivateNotebookOptions -> {"ShortBoxForm" -> False}, CellFrame -> False, CellDingbat -> None, ShowCellBracket -> True, PageBreakWithin -> True, GroupPageBreakWithin -> True, ShowCellLabel -> True, CellLabelMargins -> {{23, 0}, {Inherited, Inherited}}, ShowSpecialCharacters -> True, Hyphenation -> True, ParagraphIndent -> 0, StyleMenuListing -> None]}, Closed]], Cell[ CellGroupData[{ Cell[ "Heading options", "Section", CellDingbat -> None, ShowGroupOpener -> True], Cell[ CellGroupData[{ Cell[ StyleData["ColumnTitle"], CellFrame -> False, ShowCellBracket -> False, ShowGroupOpener -> False, CellMargins -> {{0, 0}, {0, 0}}, CellGroupingRules -> {"TitleGrouping", 10}, PageBreakAbove -> True, PageBreakBelow -> False, CellFrameMargins -> {{20, 20}, {10, 0}}, TextAlignment -> Center, TextJustification -> 1, FontFamily -> "Arial", FontSize -> 18, FontSlant -> "Plain", FontColor -> RGBColor[1, 0.970001, 0.840009], Background -> RGBColor[0.501961, 0, 0.25098]], Cell[ StyleData["ColumnTitle", "Printout"], CellFrame -> False, CellElementSpacings -> { "CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, CellOpen -> False, FontColor -> GrayLevel[1], Background -> None]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Title"], CellFrame -> {{0, 0}, {1, 0}}, ShowCellBracket -> False, ShowGroupOpener -> False, CellMargins -> {{0, 0}, {14, 0}}, CellGroupingRules -> {"TitleGrouping", 10}, PageBreakBelow -> False, CellFrameMargins -> {{20, 20}, {8, 8}}, CellFrameColor -> GrayLevel[0], TextAlignment -> Center, TextJustification -> 0.5, LineSpacing -> {1, 0}, CounterIncrements -> "Title", CounterAssignments -> {{"Section", 0}, {"Subsection", 0}, { "Subsubsection", 0}, {"FigureCaption", 0}, {"Table", 0}, { "BulletedList", 0}, {"TableHead", 0}, {"Example", 0}, { "Equation", 0}, {"EqnA", 0}, {"Graphics", 0}}, FontFamily -> "Times New Roman", FontSize -> 36, FontSlant -> "Italic", FontColor -> RGBColor[1, 0.970001, 0.840009], Background -> RGBColor[0.501961, 0, 0.25098]], Cell[ StyleData["Title", "Printout"], CellFrame -> False, ShowCellBracket -> True, FontFamily -> "Helvetica", FontSize -> 20, FontSlant -> "Plain", FontColor -> GrayLevel[0], Background -> None]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subtitle"], CellMargins -> {{54, 24}, {10, -10}}, CellGroupingRules -> {"TitleGrouping", 10}, CellFrameMargins -> {{0, 0}, {8, 8}}, TextAlignment -> Center, TextJustification -> 0.5, LineSpacing -> {1, 0}, StyleMenuListing -> None, FontFamily -> "Times New Roman", FontSize -> 24, FontSlant -> "Italic"], Cell[ StyleData["Subtitle", "Printout"], ShowGroupOpener -> False, CellMargins -> {{10, 10}, {0, 10}}, PageBreakAbove -> False, PageBreakBelow -> False, FontFamily -> "Helvetica", FontSize -> 16, FontSlant -> "Plain", FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Section"], CellMargins -> {{54, 25}, {6, 17}}, CellGroupingRules -> {"SectionGrouping", 40}, LineSpacing -> {1, 1}, CounterIncrements -> "Section", CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}}, FontFamily -> "Helvetica", FontSize -> 18, FontWeight -> "Bold"], Cell[ StyleData["Section", "Printout"], CellMargins -> {{0, 0}, {6, 18}}, PageBreakBelow -> False, FontSize -> 12, FontWeight -> "Bold"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["SubsectionFirst"], CellMargins -> {{54, 25}, {5, 8}}, CellGroupingRules -> {"SectionGrouping", 50}, CounterIncrements -> "Subsection", CounterAssignments -> {{"Subsubsection", 0}}, FontFamily -> "Helvetica", FontSize -> 14, FontWeight -> "Bold"], Cell[ StyleData["SubsectionFirst", "Printout"], CellMargins -> {{0, 0}, {6, 2}}, PageBreakBelow -> False, FontSize -> 10, FontWeight -> "Bold"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsection"], CellMargins -> {{54, 25}, {5, 16}}, CellGroupingRules -> {"SectionGrouping", 50}, CounterIncrements -> "Subsection", CounterAssignments -> {{"Subsubsection", 0}}, FontFamily -> "Helvetica", FontSize -> 14, FontWeight -> "Bold"], Cell[ StyleData["Subsection", "Printout"], CellMargins -> {{0, 0}, {7, 13}}, PageBreakBelow -> False, FontSize -> 10, FontWeight -> "Bold"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubsection"], CellMargins -> {{54, 25}, {6, 20}}, CellGroupingRules -> {"SectionGrouping", 60}, CounterIncrements -> "Subsubsection", FontFamily -> "Helvetica", FontSize -> 12, FontWeight -> "Bold"], Cell[ StyleData["Subsubsection", "Printout"], CellMargins -> {{0, 0}, {7, 12}}, PageBreakBelow -> False, FontFamily -> "Times New Roman", FontSize -> 10, FontWeight -> "Bold"]}, Closed]], Cell[ "Style definition for the initialization cells section. These cells \ should be at the top of the notebook after the front matter.", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["Initialize"], CellMargins -> {{40, 25}, {10, 10}}, PrivateCellOptions -> {"DefaultCellGroupOpen" -> False}, CellGroupingRules -> {"SectionGrouping", 40}, CellFrameMargins -> {{14, 0}, {10, 10}}, LineSpacing -> {1, 1}, FontFamily -> "Helvetica", FontSize -> 14, FontWeight -> "Bold", Background -> GrayLevel[0.900008]], Cell[ StyleData["Initialize", "Printout"], CellMargins -> {{0, 0}, {0, 0}}, CellElementSpacings -> { "CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, CellOpen -> False, PageBreakBelow -> False, CellFrameMargins -> False, CellSize -> {Inherited, 0}, Background -> None]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell[ "Author and abstract options", "Section", CellDingbat -> None, ShowGroupOpener -> True], Cell[ "Style definition for author(s) name. ", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["AuthorHeader"], CellMargins -> {{54, 24}, {6, 6}}, CellGroupingRules -> "NormalGrouping", TextAlignment -> Center, TextJustification -> 0, ParagraphSpacing -> {0, 0}, FontFamily -> "Helvetica", FontSize -> 12, FontWeight -> "Bold"], Cell[ StyleData["AuthorHeader", "Printout"], CellMargins -> {{20, 20}, {0, 6}}, PageBreakBelow -> False, TextAlignment -> Center, TextJustification -> 0, FontFamily -> "Arial", FontSize -> 10, FontWeight -> "Plain"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Author"], CellMargins -> {{54, 24}, {6, 6}}, CellGroupingRules -> "NormalGrouping", TextJustification -> 0, ParagraphSpacing -> {0, 0}, FontFamily -> "Helvetica", FontSize -> 12, FontWeight -> "Bold"], Cell[ StyleData["Author", "Printout"], CellMargins -> {{0, 21}, {0, 6}}, PageBreakBelow -> False, TextAlignment -> Left, FontFamily -> "Arial", FontSize -> 10, FontWeight -> "Plain"]}, Closed]], Cell[ "Style definition for author's address. ", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["Address"], CellMargins -> {{54, 24}, {5, 0}}, TextJustification -> 1, LineSpacing -> {1, 0}, ParagraphSpacing -> {0, 4}, FontFamily -> "Times New Roman", FontSize -> 12, FontColor -> GrayLevel[0.2]], Cell[ StyleData["Address", "Printout"], CellMargins -> {{0, 0}, {5, 2}}, PageBreakBelow -> False, TextAlignment -> Left, FontSize -> 10, FontColor -> GrayLevel[0]]}, Closed]], Cell[ "Style definition for author's email address.", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["Email"], CellMargins -> {{54, 24}, {7, 0}}, LineSpacing -> {1, 0}, ParagraphSpacing -> {0, 4}, FontFamily -> "Courier", FontSize -> 10, FontColor -> GrayLevel[0.2]], Cell[ StyleData["Email", "Printout"], CellMargins -> {{0, 0}, {0, 0}}, TextAlignment -> Left, FontSize -> 8, FontColor -> GrayLevel[0]]}, Closed]], Cell[ "Style definition for the article abstract.", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["AbstractHeading"], ShowGroupOpener -> False, CellMargins -> {{54, 24}, {7, 7}}, CellGroupingRules -> {"SectionGrouping", 40}, CellFrameMargins -> 5, TextAlignment -> Center, TextJustification -> 0, FontFamily -> "Helvetica", FontSize -> 14, FontWeight -> "Bold"], Cell[ StyleData["AbstractHeading", "Printout"], CellMargins -> {{20, 20}, {0, 9}}, PageBreakBelow -> False, FontSize -> 9, FontWeight -> "Bold", FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Abstract"], CellMargins -> {{54, 24}, {10, 7}}, TextAlignment -> Left, TextJustification -> 1, LineSpacing -> {1, 2}, ParagraphSpacing -> {1, 2}, FontFamily -> "Times New Roman", FontSize -> 12, FontColor -> GrayLevel[0]], Cell[ StyleData["Abstract", "Printout"], CellMargins -> {{20, 20}, {12, 0}}, FontSize -> 10, FontColor -> GrayLevel[0]]}, Closed]], Cell[ "Style definition for \"last modified\" notice.", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["Modified"], CellGrouping -> Manual, CellMargins -> {{54, 24}, {7, 7}}, CellGroupingRules -> "NormalGrouping", StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 10, FontWeight -> "Plain"], Cell[ StyleData["Modified", "Printout"], CellMargins -> {{21, 21}, {0, 0}}, CellElementSpacings -> { "CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, CellOpen -> False, PageBreakBelow -> False, CellFrameMargins -> False, CellSize -> {Inherited, 0}]}, Closed]], Cell[ "Style definition for copyright notice.", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["Copyright"], Editable -> False, Selectable -> False, Deletable -> False, CellGrouping -> Manual, ShowCellBracket -> False, ShowGroupOpener -> False, CellMargins -> {{54, 24}, {10, 10}}, CellGroupingRules -> {"SectionGrouping", 40}, TextAlignment -> Center, LanguageCategory -> "NaturalLanguage", FontFamily -> "Helvetica", FontSize -> 10, FontWeight -> "Plain"], Cell[ StyleData["Copyright", "Printout"], CellMargins -> {{0, 0}, {0, 0}}, CellElementSpacings -> { "CellMinHeight" -> 0, "ClosedCellHeight" -> 0, "ClosedGroupTopMargin" -> 0}, CellOpen -> False, CellFrameMargins -> False, CellSize -> {0, 0}]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell[ "Body text options", "Section", CellDingbat -> None, ShowGroupOpener -> True], Cell[ "Style definition for body text. ", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["Text"], CellMargins -> {{54, 24}, {5, 5}}, InputAliases -> { "ocdq" -> "\[OpenCurlyDoubleQuote]", "ccdq" -> "\[CloseCurlyDoubleQuote]", "ocq" -> "\[OpenCurlyQuote]", "ccq" -> "\[CloseCurlyQuote]"}, InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", Inherited}, TextJustification -> 1, HyphenationOptions -> {"HyphenationCharacter" -> "\[Hyphen]"}, LineSpacing -> {1, 2}, ParagraphSpacing -> {0, 5}, ParagraphIndent -> 0, LanguageCategory -> "NaturalLanguage", ScriptLevel -> 1, FontFamily -> "Times New Roman", FontSize -> 12], Cell[ StyleData["Text", "Printout"], CellMargins -> {{0, 0}, {2, 2}}, AutoIndent -> True, FontSize -> 10]}, Closed]], Cell[ "Style definition for text cells that are hidden when printed. Use \ this style in a seperate cell when writing text that is not to appear in the \ printed version eg. when including hyperlinks to notebooks that are not \ accessible to print version readers.", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["TextHidden"], CellMargins -> {{54, 24}, {7, 7}}, TextJustification -> 1, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, LineSpacing -> {1, 2}, ParagraphSpacing -> {0, 5}, LanguageCategory -> "NaturalLanguage", ScriptSizeMultipliers -> 0.7, ScriptLevel -> 1, FontFamily -> "Times New Roman", FontSize -> 12, FontColor -> RGBColor[0.501961, 0, 0.25098]], Cell[ StyleData["TextHidden", "Printout"], ShowCellBracket -> False, CellMargins -> {{10, 10}, {0, 0}}, CellElementSpacings -> { "CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, CellOpen -> False, FontSize -> 10, FontColor -> GrayLevel[0], Background -> None]}, Closed]], Cell[ "Style definition for quotes. To be used when quoting a block of \ material from another source. ", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["Quote"], CellMargins -> {{80, 50}, {5, 5}}, InputAliases -> { "ocdq" -> "\[OpenCurlyDoubleQuote]", "ccdq" -> "\[CloseCurlyDoubleQuote]", "ocq" -> "\[OpenCurlyQuote]", "ccq" -> "\[CloseCurlyQuote]"}, InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", Inherited}, TextJustification -> 1, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, LineSpacing -> {1, 2}, ParagraphSpacing -> {0, 5}, ParagraphIndent -> 0, LanguageCategory -> "NaturalLanguage", ScriptLevel -> 1, FontFamily -> "Times", FontSize -> 12], Cell[ StyleData["Quote", "Printout"], CellMargins -> {{20, 20}, {2, 2}}, FontSize -> 10]}, Closed]], Cell[ "Style definition for a bulleted list. ", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["BulletedList"], CellFrame -> 1, CellDingbat -> "\[FilledSmallCircle]", CellMargins -> {{70, 40}, {5, 5}}, CellFrameMargins -> {{10, 10}, {0, 0}}, CellFrameColor -> GrayLevel[1], TextJustification -> 1, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, LineSpacing -> {1, 2}, ParagraphSpacing -> {0, 4}, ParagraphIndent -> 0, LanguageCategory -> "NaturalLanguage", ScriptSizeMultipliers -> 0.7, ScriptMinSize -> 5, ScriptLevel -> 1, CounterIncrements -> "BulletedList", FontFamily -> "Times New Roman", FontSize -> 12], Cell[ StyleData["BulletedList", "Printout"], CellMargins -> {{16, 16}, {3, 3}}, FontSize -> 10]}, Closed]], Cell[ TextData[{ "This style is for displaying the box structure of cells. Select a \ cell and use the menu item ", StyleBox[ "Format", FontFamily -> "Arial", FontSize -> 9, FontWeight -> "Bold"], StyleBox[" ", FontFamily -> "Arial", FontWeight -> "Bold"], StyleBox["\[RightTriangle]", FontWeight -> "Bold"], StyleBox[ "Show Expression", FontFamily -> "Arial", FontSize -> 9, FontWeight -> "Bold"], " to display the boxes. Cut and paste the boxes displayed into a \ \"Boxes\" cell."}], "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["Boxes"], CellMargins -> {{54, 24}, {10, 0}}, GeneratedCell -> False, LanguageCategory -> "Mathematica", FontFamily -> "Courier", FontSize -> 12], Cell[ StyleData["Boxes", "Printout"], CellMargins -> {{50, 10}, {20, 10}}, LineSpacing -> {1, 2}, FontSize -> 10]}, Closed]], Cell[ TextData[{"The ", StyleBox[ "Program", FontFamily -> "Courier", FontWeight -> "Bold"], " style is for non-executable ", StyleBox["input", FontFamily -> "Courier", FontWeight -> "Bold"], " styled code fragments."}], "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["Program"], CellFrame -> 1, CellMargins -> {{54, 24}, {5, 5}}, Evaluatable -> False, CellHorizontalScrolling -> True, ShowCellLabel -> False, CellLabelAutoDelete -> True, CellFrameColor -> RGBColor[1, 0.730007, 0.360006], DefaultFormatType -> DefaultInputFormatType, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Mathematica", ShowStringCharacters -> True, NumberMarks -> False, FontFamily -> "Courier", FontSize -> 12, FontWeight -> "Bold", Background -> GrayLevel[1]], Cell[ StyleData["Program", "Printout"], CellFrame -> 0.5, CellMargins -> {{40, 40}, {11, 11}}, CellFrameColor -> GrayLevel[0], LinebreakAdjustments -> {0.85, 2, 10, 1, 1}, FontSize -> 10, FontWeight -> "Bold", Background -> None]}, Closed]], Cell[ "This style is for equation numbering.", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["Eqn"], FontFamily -> "Helvetica", FontSize -> 12, FontWeight -> "Bold", FontColor -> RGBColor[0.501961, 0, 0.25098]], Cell[ StyleData["Eqn", "Printout"], FontFamily -> "Times", FontSize -> 10, FontWeight -> "Plain", FontColor -> GrayLevel[0]]}, Closed]], Cell[ "This style is for listing references. Please use a separate cell \ for each reference.", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["Reference"], CellMargins -> {{54, 24}, {5, 10}}, TextJustification -> 1, LineSpacing -> {1, 2}, ParagraphSpacing -> {0, 5}, ParagraphIndent -> -24, LanguageCategory -> "NaturalLanguage", ScriptSizeMultipliers -> 0.7, CounterIncrements -> "Reference", FontFamily -> "Times New Roman", FontSize -> 12], Cell[ StyleData["Reference", "Printout"], CellMargins -> {{0, 0}, {3, 3}}, AutoIndent -> True, ParagraphIndent -> -16, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["MathCaption"], CellMargins -> {{54, 24}, {17, 7}}, PageBreakBelow -> False, LineSpacing -> {1, 2}, ParagraphSpacing -> {0, 2}, FontSize -> 12, FontColor -> GrayLevel[0]], Cell[ StyleData["MathCaption", "Printout"], CellMargins -> {{0, 0}, {2, 0}}, TextJustification -> 1, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["BilateralCell"], CellMargins -> {{54, 24}, {17, 7}}, TextJustification -> 1, LineSpacing -> {1, 2}, ParagraphSpacing -> {1, -2}, LanguageCategory -> "NaturalLanguage", ScriptSizeMultipliers -> 0.7, ScriptMinSize -> 5, CounterIncrements -> "Text", FontFamily -> "Times New Roman", FontSize -> 12, UnderoverscriptBoxOptions -> {LimitsPositioning -> False}], Cell[ StyleData["BilateralCell", "Printout"], CellMargins -> {{0, 0}, {2, 0}}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Comment"], CellMargins -> {{54, 24}, {6, 6}}, TextJustification -> 1, LineSpacing -> {1, 2}, ParagraphSpacing -> {1, -2}, LanguageCategory -> "NaturalLanguage", FontFamily -> "Helvetica", FontSize -> 10], Cell[ StyleData["Comment", "Printout"], CellMargins -> {{0, 0}, {10, 10}}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Footnote"], CellFrame -> {{0, 0}, {0, 0.5}}, CellDingbat -> "*", CellMargins -> {{80, 50}, {5, 5}}, CellFrameMargins -> 1, TextJustification -> 1, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, LineSpacing -> {1, 2}, ParagraphSpacing -> {0, 5}, ParagraphIndent -> 0, LanguageCategory -> "NaturalLanguage", ScriptLevel -> 1, FontFamily -> "Times New Roman", FontSize -> 10], Cell[ StyleData["Footnote", "Printout"], CellMargins -> {{20, 20}, {0, 0}}, FontSize -> 9]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell[ "Special editing options", "Section", CellDingbat -> None, ShowGroupOpener -> True], Cell[ "This ? style is for highlighting parts of a draft document that you \ want to update at a later stage.", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["?"], CellMargins -> {{54, 20}, {7, 7}}, LineSpacing -> {1, 2}, ParagraphSpacing -> {1, 2}, ParagraphIndent -> 0, LanguageCategory -> None, FontFamily -> "Times New Roman", FontSize -> 12, Background -> RGBColor[0.785046, 1, 0]], Cell[ StyleData["?", "Printout"], CellMargins -> {{30, 10}, {0, 0}}, CellElementSpacings -> { "CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, CellOpen -> False, CellFrameColor -> GrayLevel[1], CellSize -> {Inherited, 0}, FontSize -> 10, Background -> GrayLevel[1]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell[ "Input/Output options", "Section", CellDingbat -> None, ShowGroupOpener -> True], Cell[ "Style definition for input cells. ", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["Input"], CellFrame -> {{1, 1}, {0, 1}}, ShowGroupOpener -> False, CellMargins -> {{54, 24}, {-1, 10}}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", CellHorizontalScrolling -> True, CellLabelAutoDelete -> False, CellFrameColor -> RGBColor[1, 0.730007, 0.360006], DefaultFormatType -> DefaultInputFormatType, LanguageCategory -> "Mathematica", ShowStringCharacters -> True, NumberMarks -> True, LinebreakAdjustments -> {0.9, 10, 10, 0, 1}, CounterIncrements -> "Input", FontFamily -> "Courier", FontSize -> 12, FontWeight -> "Bold", Background -> RGBColor[1, 0.970001, 0.840009]], Cell[ StyleData["Input", "Printout"], CellFrame -> False, CellMargins -> {{50, 10}, {3, 11}}, LineSpacing -> {1, 2}, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}, FontSize -> 10, FontColor -> GrayLevel[0], Background -> None]}, Closed]], Cell[ "Style definition for \"input only\" cells. The \"InputOnly\" style \ is for cells with input that does not generate an output cell.", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["InputOnly"], CellFrame -> 1, CellMargins -> {{54, 24}, {10, 10}}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", CellHorizontalScrolling -> True, CellLabelAutoDelete -> False, CellFrameColor -> RGBColor[1, 0.730007, 0.360006], DefaultFormatType -> DefaultInputFormatType, LanguageCategory -> "Mathematica", ShowStringCharacters -> True, NumberMarks -> True, LinebreakAdjustments -> {0.9, 10, 10, 0, 1}, CounterIncrements -> "Input", FontFamily -> "Courier", FontSize -> 12, FontWeight -> "Bold", Background -> RGBColor[1, 0.970001, 0.840009]], Cell[ StyleData["InputOnly", "Printout"], CellFrame -> False, ShowGroupOpener -> False, CellMargins -> {{50, 10}, {11, 11}}, PageBreakWithin -> True, LineSpacing -> {1, 2}, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}, FontSize -> 10, FontColor -> GrayLevel[0], Background -> None]}, Closed]], Cell[ "Style definition for hidden input. The \"InputHidden\" style is for \ input cells that do not appear in printed version.", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["InputHidden"], Deletable -> False, CellFrame -> {{1, 1}, {0, 1}}, CellMargins -> {{54, 24}, {0, 10}}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", CellHorizontalScrolling -> True, CellLabelAutoDelete -> False, CellFrameColor -> RGBColor[1, 0.730007, 0.360006], DefaultFormatType -> DefaultInputFormatType, LanguageCategory -> "Mathematica", ShowStringCharacters -> True, NumberMarks -> True, FontFamily -> "Courier", FontSize -> 12, FontWeight -> "Bold", FontColor -> RGBColor[0.501961, 0, 0.25098], Background -> RGBColor[1, 0.970001, 0.840009]], Cell[ StyleData["InputHidden", "Printout"], ShowCellBracket -> False, CellMargins -> {{Inherited, Inherited}, {0, 0}}, CellElementSpacings -> { "CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, CellOpen -> False, ShowCellLabel -> False, ShowContents -> False, FontSize -> 10, FontColor -> GrayLevel[0], Background -> None]}, Closed]], Cell[ "Style definition for output cells.", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["Output"], CellFrame -> {{1, 1}, {1, 0}}, CellMargins -> {{54, 24}, {10, 0}}, CellEditDuplicate -> True, CellGroupingRules -> "OutputGrouping", CellHorizontalScrolling -> True, GeneratedCell -> True, CellAutoOverwrite -> True, CellLabelAutoDelete -> False, CellFrameColor -> RGBColor[1, 0.730007, 0.360006], DefaultFormatType -> DefaultOutputFormatType, LanguageCategory -> None, ShowStringCharacters -> False, CounterIncrements -> "Output", StyleMenuListing -> None, FontFamily -> "Courier", FontSize -> 12, FontColor -> RGBColor[0.689998, 0.0899977, 0.119997], Background -> RGBColor[1, 0.970001, 0.840009]], Cell[ StyleData["Output", "Printout"], CellFrame -> False, CellMargins -> {{50, 10}, {11, 3}}, LineSpacing -> {1, 2}, FontSize -> 10, FontColor -> GrayLevel[0], Background -> None]}, Closed]], Cell[ "Style definition for messages.", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["Message"], CellMargins -> {{56, 4}, {3, 8}}, CellGroupingRules -> "OutputGrouping", GeneratedCell -> True, CellAutoOverwrite -> True, ShowCellLabel -> False, DefaultFormatType -> DefaultOutputFormatType, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> None, FormatType -> InputForm, StyleMenuListing -> None, FontColor -> RGBColor[0, 0.2, 1]], Cell[ StyleData["Message", "Printout"], CellMargins -> {{54, 10}, {4, 2}}, FontSize -> 10, FontColor -> GrayLevel[0]]}, Closed]], Cell[ "Style definition for out generated by the \"Print\" function.", "Text", CellMargins -> {{17.625, Inherited}, { Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["Print"], CellFrame -> 1, CellMargins -> {{54, 24}, {10, 0}}, CellGroupingRules -> "OutputGrouping", CellHorizontalScrolling -> True, GeneratedCell -> True, CellAutoOverwrite -> True, ShowCellLabel -> False, CellFrameColor -> RGBColor[1, 0.730007, 0.360006], DefaultFormatType -> DefaultOutputFormatType, LanguageCategory -> None, StyleMenuListing -> None, FontSize -> 10, FontColor -> RGBColor[0.689998, 0.0899977, 0.119997]], Cell[ StyleData["Print", "Printout"], CellFrame -> False, CellMargins -> {{54, 10}, {11, 3}}, TextAlignment -> Left, TextJustification -> 0.5, LineSpacing -> {1, 2}, FontSize -> 10, FontColor -> GrayLevel[0], Background -> None]}, Closed]], Cell[ "Style definition for graphical output.", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["Graphics"], CellFrame -> {{1, 1}, {1, 0}}, CellMargins -> {{54, 24}, {10, 0}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, ShowCellLabel -> False, CellFrameColor -> RGBColor[1, 0.730007, 0.360006], DefaultFormatType -> DefaultOutputFormatType, TextAlignment -> Center, Background -> RGBColor[1, 0.970001, 0.840009]], Cell[ StyleData["Graphics", "Printout"], CellFrame -> False, CellMargins -> {{54, 0}, {10, 9}}, Background -> None]}, Closed]], Cell[ TextData[{ StyleBox[ "GraphicsOnly", FontFamily -> "Courier", FontWeight -> "Bold"], " style is for cells with graphics that do not have an input cell \ immediately above it. Typically graphics that have been pasted in."}], "Text", PageWidth -> WindowWidth, CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["GraphicsOnly"], Editable -> True, Deletable -> False, CellFrame -> 1, CellMargins -> {{54, 24}, {10, 10}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GeneratedCell -> False, ShowCellLabel -> False, CellFrameColor -> RGBColor[1, 0.730007, 0.360006], DefaultFormatType -> DefaultOutputFormatType, TextAlignment -> Center, Background -> RGBColor[1, 0.970001, 0.840009]], Cell[ StyleData["GraphicsOnly", "Printout"], CellFrame -> False, CellMargins -> {{54, 0}, {10, 10}}, Background -> None]}, Closed]], Cell[ "Style definition for cell labels.", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["CellLabel"], TextAlignment -> Left, TextJustification -> 0, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 8, FontSlant -> "Plain", FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["CellLabel", "Printout"], FontSize -> 7, FontColor -> GrayLevel[0]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell[ "Equations and formula options", "Section", CellDingbat -> None, ShowGroupOpener -> True], Cell[ CellGroupData[{ Cell[ StyleData["DisplayFormula"], CellMargins -> {{40, 10}, {12, 12}}, DefaultFormatType -> TraditionalForm, TextAlignment -> Center, LineSpacing -> {1, 2}, LanguageCategory -> "Formula", ScriptSizeMultipliers -> 0.7, ScriptLevel -> 0, SingleLetterItalics -> True, SpanMaxSize -> Infinity, FormatTypeAutoConvert -> False, FontFamily -> "Times New Roman", FontSize -> 12, FontWeight -> "Plain", FontSlant -> "Plain", UnderoverscriptBoxOptions -> {LimitsPositioning -> False}], Cell[ StyleData["DisplayFormula", "Printout"], CellMargins -> {{30, 10}, {10, 10}}, TextAlignment -> Left, FontSize -> 10]}, Closed]], Cell[ "Style definition for numbered equations.", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["Equation"], CellMargins -> {{40, 10}, {12, 12}}, CellFrameMargins -> False, CellFrameLabels -> {{None, Cell[ TextData[{"(", CounterBox["Equation"], ") "}], "Eqn"]}, {None, None}}, DefaultFormatType -> TraditionalForm, TextAlignment -> Center, LanguageCategory -> "Formula", ScriptSizeMultipliers -> 0.7, ScriptLevel -> 0, SingleLetterItalics -> True, SpanMaxSize -> Infinity, CounterIncrements -> "Equation", FormatTypeAutoConvert -> False, FontFamily -> "Times New Roman", FontSize -> 12, FontWeight -> "Plain", FontSlant -> "Plain", UnderoverscriptBoxOptions -> {LimitsPositioning -> False}], Cell[ StyleData["Equation", "Printout"], CellMargins -> {{30, 10}, {10, 10}}, TextAlignment -> Left, LineSpacing -> {1, 2}, ScriptSizeMultipliers -> 0.7, FontSize -> 10]}, Closed]], Cell[ "Style definition for numbered equations in article appendices.", "Text", CellMargins -> {{17.625, Inherited}, { Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["EqnA"], CellMargins -> {{40, 10}, {5, 10}}, CellFrameLabels -> {{None, Cell[ TextData[{"(A.", CounterBox["EqnA"], ") "}], "Eqn"]}, {None, None}}, DefaultFormatType -> TraditionalForm, TextAlignment -> Center, LanguageCategory -> "Formula", ScriptSizeMultipliers -> 0.7, ScriptLevel -> 0, SingleLetterItalics -> True, SpanMaxSize -> Infinity, CounterIncrements -> "EqnA", FormatTypeAutoConvert -> False, FontFamily -> "Times New Roman", FontSize -> 12, FontWeight -> "Plain", UnderoverscriptBoxOptions -> {LimitsPositioning -> False}], Cell[ StyleData["EqnA", "Printout"], CellMargins -> {{30, 10}, {10, 10}}, ShowCellTags -> False, TextAlignment -> Left, LineSpacing -> {1, 2}, ScriptSizeMultipliers -> 0.7, FontSize -> 10]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell[ "Figures and tables options", "Section", CellDingbat -> None, ShowGroupOpener -> True], Cell["Style definition for Tables.", "Text"], Cell[ CellGroupData[{ Cell[ StyleData["Table"], CellMargins -> {{54, 24}, {10, 0}}, CellHorizontalScrolling -> True, DefaultFormatType -> TraditionalForm, CounterIncrements -> "Table", StyleMenuListing -> None, GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {Left, {Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> { "Columns" -> {False, {False}, False}, "ColumnsIndexed" -> {}, "Rows" -> { AbsoluteThickness[2], True, {False}, AbsoluteThickness[0.5]}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> {{ Scaled[0.25]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridDefaultElement :> StyleBox["data", "Text"]}], Cell[ StyleData["Table", "Printout"], CellMargins -> {{20, 10}, {10, 0}}, PageBreakWithin -> False, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["ColumnHead"], CounterIncrements -> "Table", StyleMenuListing -> None, FontFamily -> "Times New Roman", FontWeight -> "Bold"], Cell[ StyleData["ColumnHead", "Printout"], FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["TableHead"], CellMargins -> {{54, 24}, {0, 10}}, CellLabelPositioning -> Left, TextAlignment -> Left, LineSpacing -> {1, 2}, ParagraphSpacing -> {0, 5}, ScriptLevel -> 1, CounterIncrements -> "TableHead", FontFamily -> "Times New Roman", FontSize -> 12], Cell[ StyleData["TableHead", "Printout"], CellMargins -> {{20, 10}, {2, 8}}, PageBreakBelow -> False, TextJustification -> 1, FontFamily -> "Helvetica", FontSize -> 8]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["TableNote"], CellMargins -> {{54, 24}, {10, -8}}, LineSpacing -> {1, 1}, ParagraphSpacing -> {0.3, 0}, StyleMenuListing -> None, FontFamily -> "Times New Roman", FontSize -> 10], Cell[ StyleData["TableNote", "Printout"], CellMargins -> {{23, 10}, {5, -8}}, PageBreakAbove -> False, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["FigureCaption"], CellMargins -> {{54, 24}, {10, -5}}, TextAlignment -> Left, LineSpacing -> {1, 2}, ParagraphSpacing -> {0, 5}, LanguageCategory -> "NaturalLanguage", ScriptLevel -> 1, CounterIncrements -> "FigureCaption", FormatTypeAutoConvert -> False, FontFamily -> "Times New Roman", FontSize -> 12], Cell[ StyleData["FigureCaption", "Printout"], CellMargins -> {{40, 30}, {10, -5}}, PageBreakAbove -> False, FontFamily -> "Helvetica", FontSize -> 8]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["AuthorTable"], CellMargins -> {{54, 24}, {1, 1}}, GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> { "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> {{ Scaled[0.5]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.42]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, GridDefaultElement :> StyleBox["data", "Text"]}], Cell[ StyleData["AuthorTable", "Printout"], CellMargins -> {{0, 0}, {0, 10}}, PageBreakWithin -> False, FontSize -> 10]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell[ "Inline formatting options", "Section", CellDingbat -> None, ShowGroupOpener -> True], Cell[ "The following styles are for modifying individual words or letters \ in a cell exclusive of the cell style.", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ TextData[{ "The \"Remark\" style is to be used for highlighting remarks \ embedded in input cells, i.e. text appearing inside ", StyleBox[ "(* remark *)", FontFamily -> "Courier", FontWeight -> "Bold"]}], "Text", CellMargins -> {{17.625, Inherited}, { Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["Remark"], Evaluatable -> False, DefaultFormatType -> DefaultInputFormatType, LanguageCategory -> "NaturalLanguage", NumberMarks -> False, FontFamily -> "Courier", FontSize -> 12, FontWeight -> "Bold", FontSlant -> "Plain", FontTracking -> "Plain", FontColor -> RGBColor[0.864256, 0.353552, 0.353552]], Cell[ StyleData["Remark", "Printout"], LineSpacing -> {1, 2}, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}, FontSize -> 10, FontColor -> GrayLevel[0.250004], Background -> None]}, Closed]], Cell[ "Style for superscripts in Text cells.", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["Super"], FontSize -> 9, FontWeight -> "Bold", FontVariations -> {"CompatibilityType" -> "Superscript"}, FontColor -> GrayLevel[0]], Cell[ StyleData["Super", "Printout"], FontSize -> 8, FontWeight -> "Plain", FontColor -> GrayLevel[0]]}, Closed]], Cell[ "Style for subcripts in Text cells.", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["Sub"], FontSize -> 9, FontWeight -> "Bold", FontVariations -> {"CompatibilityType" -> "Subscript"}, FontColor -> GrayLevel[0]], Cell[ StyleData["Sub", "Printout"], FontSize -> 8, FontWeight -> "Plain", FontColor -> GrayLevel[0]]}, Closed]], Cell[ TextData[{"Style definition for ", StyleBox["input", FontFamily -> "Courier", FontWeight -> "Bold"], " styled font embedded in Text cells."}], "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["In"], DefaultFormatType -> StandardForm, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Mathematica", SingleLetterItalics -> False, StyleMenuListing -> None, FontFamily -> "Courier", FontSize -> 12, FontWeight -> "Bold", FontSlant -> "Plain", Background -> None], Cell[ StyleData["In", "Printout"], FontSize -> 10, Background -> None]}, Closed]], Cell[ TextData[{"Style definition for ", StyleBox["output", FontFamily -> "Courier"], " styled font embedded in Text cells."}], "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["Out"], HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Mathematica", SingleLetterItalics -> False, StyleMenuListing -> None, FontFamily -> "Courier", FontSize -> 12, FontWeight -> "Plain", FontSlant -> "Plain", Background -> None], Cell[ StyleData["Out", "Printout"], FontSize -> 10, Background -> None]}, Closed]], Cell[ "Style definition for chemical symbols.", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["ChemicalFormula"], LanguageCategory -> None, SingleLetterItalics -> False, ZeroWidthTimes -> False, StyleMenuListing -> None, FontFamily -> "Arial", FontSize -> 10, Background -> None], Cell[ StyleData["ChemicalFormula", "Printout"], FontSize -> 9, Background -> None]}, Closed]], Cell[ "Style definition for variables representing matrices (upper case) \ or vectors (lower case).", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["Matrix"], LanguageCategory -> None, SingleLetterItalics -> True, ZeroWidthTimes -> True, StyleMenuListing -> None, FontFamily -> "Times New Roman", FontSize -> 12, FontWeight -> "Bold", FontSlant -> "Italic", Background -> None], Cell[ StyleData["Matrix", "Printout"], FontSize -> 10, Background -> None]}, Closed]], Cell[ "Style definition for small capitals for some subscripts.", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["SC"], LanguageCategory -> None, SingleLetterItalics -> False, StyleMenuListing -> None, FontSize -> 8, FontWeight -> "Plain", FontSlant -> "Plain", Background -> None], Cell[ StyleData["SC", "Printout"], FontSize -> 6, Background -> None]}, Closed]], Cell[ "Style definition for small capitals in body text.", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["SMC"], LanguageCategory -> None, SingleLetterItalics -> False, StyleMenuListing -> None, FontSize -> 10, FontWeight -> "Plain", FontSlant -> "Plain", Background -> None], Cell[ StyleData["SMC", "Printout"], FontSize -> 8, Background -> None]}, Closed]], Cell[ "Style definition for referring to filenames and directories.", "Text", CellMargins -> {{17.625, Inherited}, { Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["File"], LanguageCategory -> None, SingleLetterItalics -> False, StyleMenuListing -> None, FontFamily -> "Arial", FontSize -> 10, FontWeight -> "Plain", FontSlant -> "Plain", Background -> None], Cell[ StyleData["File", "Printout"], FontSize -> 8, Background -> None]}, Closed]], Cell[ "Style definition for referring to menu commands.", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["Menu"], LanguageCategory -> None, SingleLetterItalics -> False, StyleMenuListing -> None, FontFamily -> "Arial", FontSize -> 10, FontWeight -> "Bold", FontSlant -> "Plain", Background -> None], Cell[ StyleData["Menu", "Printout"], FontSize -> 8, Background -> None]}, Closed]], Cell[ TextData[{"The ", StyleBox["Code", FontFamily -> "Courier New"], " style is for code fragments from non-", StyleBox["Mathematica", FontSlant -> "Italic"], " software."}], "Text", CellMargins -> {{17.625, Inherited}, { Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["Code"], HyphenationOptions -> {"HyphenationCharacter" -> "\[Hyphen]"}, LanguageCategory -> None, SingleLetterItalics -> False, StyleMenuListing -> None, FontFamily -> "Courier New", FontSize -> 11, FontWeight -> "Plain", FontSlant -> "Plain", Background -> None], Cell[ StyleData["Code", "Printout"], FontSize -> 10]}, Closed]], Cell[ "EBH is used for emphasis box headings", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["EBH"], LanguageCategory -> "NaturalLanguage", SingleLetterItalics -> False, StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 10, FontWeight -> "Plain", FontSlant -> "Oblique"], Cell[ StyleData["EBH", "Printout"], FontSize -> 8]}, Closed]], Cell[ "PP is used to change selection to FontWeight\[Rule]Plain, FontSlant\ \[Rule]Plain", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ StyleData["PP"], SingleLetterItalics -> False, StyleMenuListing -> None, FontWeight -> "Plain", FontSlant -> "Plain"], Cell[ "BP is used to change selection to FontWeight\[Rule]Bold, FontSlant\ \[Rule]Plain", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ StyleData["BP"], SingleLetterItalics -> False, StyleMenuListing -> None, FontWeight -> "Bold", FontSlant -> "Plain"], Cell[ "PI is used to change selection to FontWeight\[Rule]Plain, FontSlant\ \[Rule]Italic", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ StyleData["PI"], StyleMenuListing -> None, FontWeight -> "Plain", FontSlant -> "Italic"], Cell[ "BI is used to change selection to FontWeight\[Rule]Bold, FontSlant\ \[Rule]Italic", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ StyleData["BI"], StyleMenuListing -> None, FontWeight -> "Bold", FontSlant -> "Italic"], Cell[ "TPP is used to change selection to Times with \ FontWeight\[Rule]Plain, FontSlant\[Rule]Plain", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ StyleData["TPP"], SingleLetterItalics -> False, StyleMenuListing -> None, FontFamily -> "Times", FontWeight -> "Plain", FontSlant -> "Plain"], Cell[ "TPI is used to change selection to Times with \ FontWeight\[Rule]Plain, FontSlant\[Rule]Italic", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ StyleData["TPI"], StyleMenuListing -> None, FontFamily -> "Times", FontWeight -> "Plain", FontSlant -> "Italic"], Cell[ "TBP is used to change selection to Times with \ FontWeight\[Rule]Bold, FontSlant\[Rule]Plain", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ StyleData["TBP"], SingleLetterItalics -> False, StyleMenuListing -> None, FontFamily -> "Times", FontWeight -> "Bold", FontSlant -> "Plain"], Cell[ "TBI used to change selection to Times with FontWeight\[Rule]Bold, \ FontSlant\[Rule]Italic", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ StyleData["TBI"], StyleMenuListing -> None, FontFamily -> "Times", FontWeight -> "Bold", FontSlant -> "Italic"], Cell[ "HPP is used to change selection to Helvetica with \ FontWeight\[Rule]Plain, FontSlant\[Rule]Plain", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ StyleData["HPP"], SingleLetterItalics -> False, StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Plain", FontSlant -> "Plain"], Cell[ "HBP is used to change selection to Helvetica with \ FontWeight\[Rule]Bold, FontSlant\[Rule]Plain", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ StyleData["HBP"], SingleLetterItalics -> False, StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Bold", FontSlant -> "Plain"]}, Closed]], Cell[ CellGroupData[{ Cell[ "Emphasis Boxes", "Section", CellDingbat -> None, ShowGroupOpener -> True], Cell["Style definitions for emphasis boxes.", "Text"], Cell[ CellGroupData[{ Cell[ StyleData["Box"], CellFrame -> {{3, 0.5}, {0.5, 1}}, CellMargins -> {{54, 12}, {10, 10}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.501961, 0, 0.25098], LineSpacing -> {1, 4}, ParagraphSpacing -> {1, 0}, AutoSpacing -> False, SingleLetterItalics -> False, StyleMenuListing -> None, FontFamily -> "Times", Background -> RGBColor[1, 0.974975, 0.84686], FrameBoxOptions -> {BoxFrame -> 0.5, FrameMargins -> True}, GridBoxOptions -> {GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["Box", "Printout"], CellFrame -> 0.5, CellMargins -> {{0, 0}, {10, 10}}, PageBreakWithin -> False, CellFrameColor -> GrayLevel[0.2], FontSize -> 10, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["DoubleBox"], CellFrame -> {{3, 0.5}, {0.5, 1}}, CellMargins -> {{54, 12}, {10, 10}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.501961, 0, 0.25098], AutoSpacing -> False, SingleLetterItalics -> False, LineIndent -> 0, StyleMenuListing -> None, FontFamily -> "Times", FontWeight -> "Plain", Background -> RGBColor[1, 0.976471, 0.847059], FrameBoxOptions -> {BoxFrame -> 0.5, FrameMargins -> True}, GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {Right, {Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Top}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.3], { Scaled[0.7]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[1.4]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["DoubleBox", "Printout"], CellFrame -> 0.5, CellMargins -> {{0, 0}, {10, 10}}, PageBreakWithin -> False, CellFrameColor -> GrayLevel[0.2], FontSize -> 10, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["DefinitionBox"], CellFrame -> {{3, 0.5}, {0.5, 1}}, CellMargins -> {{54, 12}, {10, 10}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.501961, 0, 0.25098], LineSpacing -> {1, 2}, ParagraphSpacing -> {0, 5}, AutoSpacing -> False, SingleLetterItalics -> False, LineIndent -> 0, FontFamily -> "Times", FontWeight -> "Plain", Background -> RGBColor[1, 0.972549, 0.843137], FrameBoxOptions -> {BoxFrame -> 0.5, FrameMargins -> True}, GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Top}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.3], { Scaled[0.7]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["DefinitionBox", "Printout"], CellFrame -> 0.5, CellMargins -> {{0, 0}, {10, 10}}, PageBreakWithin -> False, CellFrameColor -> GrayLevel[0.2], FontSize -> 10, Background -> GrayLevel[1], GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["DefinitionBox3Col"], CellFrame -> {{3, 0.5}, {0.5, 1}}, CellMargins -> {{54, 12}, {10, 10}}, CellHorizontalScrolling -> True, CellFrameColor -> RGBColor[0.501961, 0, 0.25098], LineSpacing -> {1, 2}, ParagraphSpacing -> {0, 5}, AutoSpacing -> False, SingleLetterItalics -> False, LineIndent -> 0, FontFamily -> "Times", FontWeight -> "Plain", Background -> RGBColor[1, 0.972549, 0.843137], GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize -> {"Columns" -> { Scaled[0.25], Scaled[0.25], { Scaled[0.45]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.27999999999999997`], { Offset[1.4]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.6]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData["DefinitionBox3Col", "Printout"], CellFrame -> 0.5, CellMargins -> {{0, 0}, {10, 10}}, PageBreakWithin -> False, CellFrameColor -> GrayLevel[0.2], FontSize -> 10, Background -> GrayLevel[1]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Caption"], CellMargins -> {{56, 12}, {10, -8}}, PageBreakAbove -> False, FontFamily -> "Helvetica", FontSize -> 9], Cell[ StyleData["Caption", "Printout"], CellMargins -> {{2, 4}, {10, -8}}, FontSize -> 7]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell[ "Hyperlink options", "Section", CellDingbat -> None, ShowGroupOpener -> True], Cell[ "The cells below define styles useful for making hypertext \ ButtonBoxes. The \"Hyperlink\" style is for links within the same Notebook, \ or between Notebooks.", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["Hyperlink"], HyphenationOptions -> {"HyphenationCharacter" -> "-"}, LanguageCategory -> None, StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontSize -> 12, FontWeight -> "Bold", FontVariations -> {"Underline" -> True}, FontColor -> RGBColor[0.4, 0.4, 1], ButtonBoxOptions -> { Active -> True, ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookLocate[#2]}]& ), ButtonNote -> ButtonData}], Cell[ StyleData["Hyperlink", "Printout"], FontSize -> 10, FontWeight -> "Plain", FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ "The following styles are for linking automatically to the on-line \ help system.", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["MainBookLink"], LanguageCategory -> "Mathematica", StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontFamily -> "Courier", FontWeight -> "Bold", FontVariations -> {"Underline" -> False}, FontColor -> RGBColor[0.0027924, 0, 0.659998], ButtonBoxOptions -> { Active -> True, ButtonFrame -> "None", ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["MainBook", #]}]& )}], Cell[ StyleData["MainBookLink", "Printout"], FontSize -> 10, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["AddOnsLink"], LanguageCategory -> "Mathematica", StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontFamily -> "Courier", FontWeight -> "Bold", FontVariations -> {"Underline" -> False}, FontColor -> RGBColor[0.0027924, 0, 0.659998], ButtonBoxOptions -> { Active -> True, ButtonFrame -> "None", ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["AddOns", #]}]& )}], Cell[ StyleData["AddOnsLink", "Printout"], FontSize -> 10, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["RefGuideLink"], LanguageCategory -> "Mathematica", StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontFamily -> "Courier", FontWeight -> "Bold", FontVariations -> {"Underline" -> False}, FontColor -> RGBColor[0.0027924, 0, 0.659998], ButtonBoxOptions -> { Active -> True, ButtonFrame -> "None", ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["RefGuide", #]}]& )}], Cell[ StyleData["RefGuideLink", "Printout"], FontSize -> 10, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["GettingStartedLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontVariations -> {"Underline" -> False}, FontColor -> RGBColor[0.0027924, 0, 0.659998], ButtonBoxOptions -> { Active -> True, ButtonFrame -> "None", ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["GettingStarted", #]}]& )}], Cell[ StyleData["GettingStartedLink", "Printout"], FontSize -> 10, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["OtherInformationLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontVariations -> {"Underline" -> False}, FontColor -> RGBColor[0.0027924, 0, 0.659998], ButtonBoxOptions -> { Active -> True, ButtonFrame -> "None", ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["OtherInformation", #]}]& )}], Cell[ StyleData["OtherInformationLink", "Printout"], FontSize -> 10, FontColor -> GrayLevel[0]]}, Closed]], Cell[ "The following styles are for linking to package help information.", "Text", CellMargins -> {{17.625, Inherited}, { Inherited, Inherited}}], Cell[ CellGroupData[{ Cell[ StyleData["PackageLink"], LanguageCategory -> None, FontFamily -> "Courier", FontWeight -> "Bold", FontVariations -> {"Underline" -> False}, FontColor -> RGBColor[0.0027924, 0, 0.659998], ButtonBoxOptions -> {Active -> True, ButtonFrame -> "None"}], Cell[ StyleData["PackageLink", "Printout"], FontSize -> 10, FontColor -> GrayLevel[0]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell[ "Header and footer options", "Section", CellDingbat -> None, ShowGroupOpener -> True], Cell[ StyleData["Header"], LanguageCategory -> "NaturalLanguage", StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 10, FontWeight -> "Plain"], Cell[ StyleData["Footer"], LanguageCategory -> "NaturalLanguage", StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 7], Cell[ StyleData["PageNumber"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ "Palette options", "Section", CellDingbat -> None, ShowGroupOpener -> True], Cell[ "The cells below define styles that define standard ButtonFunctions, \ for use in palette buttons.", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ "This button style is for clicking to open and close cells.", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ StyleData["SectionButton"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> { Active -> True, ButtonFrame -> "None", ButtonFunction :> (SelectionMove[ SelectedNotebook[], All, ButtonCell]; FrontEndExecute[{ FrontEndToken["OpenCloseGroup"]}]; SelectionMove[ SelectedNotebook[], All, CellGroup]), Evaluator -> None}], Cell[ TextData[{ "This next style was described by Paul Hinton in the notebook \ Buttons19991022.nb available from the ", StyleBox["Mathematica", FontSlant -> "Italic"], " information center."}], "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ StyleData["StyleSelector"], GeneratedCell -> True, CellAutoOverwrite -> True, StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> { Active -> True, ButtonFunction :> (FrontEndExecute[{ FrontEndToken[ FrontEnd`InputNotebook[], "Style", #2]}]& ), Evaluator -> None}], Cell[ StyleData["Paste"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, After]}]& )}], Cell[ StyleData["Evaluate"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, All], SelectionEvaluate[ FrontEnd`InputNotebook[], All]}]& )}], Cell[ StyleData["EvaluateCell"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, All], FrontEnd`SelectionMove[ FrontEnd`InputNotebook[], All, Cell, 1], FrontEnd`SelectionEvaluateCreateCell[ FrontEnd`InputNotebook[], All]}]& )}], Cell[ StyleData["CopyEvaluate"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ FrontEnd`SelectionCreateCell[ FrontEnd`InputNotebook[], All], FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, All], FrontEnd`SelectionEvaluate[ FrontEnd`InputNotebook[], All]}]& )}], Cell[ StyleData["CopyEvaluateCell"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ FrontEnd`SelectionCreateCell[ FrontEnd`InputNotebook[], All], FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, All], FrontEnd`SelectionEvaluateCreateCell[ FrontEnd`InputNotebook[], All]}]& )}]}, Closed]], Cell[ CellGroupData[{ Cell[ "FormatType options", "Section", CellDingbat -> None, ShowGroupOpener -> True], Cell[ "The cells below define styles that are mixed in with the styles of \ most cells. If a cell's FormatType matches the name of one of the styles \ defined below, then that style is applied between the cell's style and its \ own options. This is particularly true of Input and Output.", "Text", CellMargins -> {{17.625, Inherited}, {Inherited, Inherited}}], Cell[ StyleData["CellExpression"], PageWidth -> Infinity, CellMargins -> {{6, Inherited}, {Inherited, Inherited}}, ShowCellLabel -> False, ShowSpecialCharacters -> False, AllowInlineCells -> False, StyleMenuListing -> None, FontFamily -> "Courier", FontSize -> 12, Background -> GrayLevel[1]], Cell[ StyleData["InputForm"], InputAutoReplacements -> {}, AllowInlineCells -> False, StyleMenuListing -> None, FontFamily -> "Courier"], Cell[ StyleData["OutputForm"], PageWidth -> Infinity, TextAlignment -> Left, LineSpacing -> {0.6, 1}, StyleMenuListing -> None, FontFamily -> "Courier"], Cell[ StyleData["StandardForm"], InputAutoReplacements -> { "->" -> "\[Rule]", ":>" -> "\[RuleDelayed]", "<=" -> "\[LessEqual]", ">=" -> "\[GreaterEqual]", "!=" -> "\[NotEqual]", "==" -> "\[Equal]", Inherited}, LineSpacing -> {1.25, 0}, StyleMenuListing -> None, FontFamily -> "Courier"], Cell[ StyleData["TraditionalForm"], InputAutoReplacements -> { "->" -> "\[Rule]", ":>" -> "\[RuleDelayed]", "<=" -> "\[LessEqual]", ">=" -> "\[GreaterEqual]", "!=" -> "\[NotEqual]", "==" -> "\[Equal]", Inherited}, LineSpacing -> {1.25, 0}, SingleLetterItalics -> True, TraditionalFunctionNotation -> True, DelimiterMatching -> None, StyleMenuListing -> None, FontFamily -> "Times New Roman"], Cell[ "The style defined below is mixed in to any cell that is in an \ inline cell within another.", "Text"], Cell[ CellGroupData[{ Cell[ StyleData["InlineCell"], TextAlignment -> Left, LanguageCategory -> "Formula", ZeroWidthTimes -> True, StyleMenuListing -> None, Background -> None], Cell[ StyleData["InlineCell", "Printout"], Background -> None]}, Closed]], Cell[ StyleData["InlineCellEditing"], ZeroWidthTimes -> True, StyleMenuListing -> None, Background -> RGBColor[1, 0.8, 0.4]]}, Closed]], Cell[ CellGroupData[{ Cell[ "Automatic style options", "Section", CellDingbat -> None, ShowGroupOpener -> True], Cell[ StyleData["UnmatchedBracket"], StyleMenuListing -> None, FontFamily -> "Courier", FontSize -> 16, FontWeight -> "ExtraBold", FontColor -> RGBColor[1, 0, 0], Background -> None]}, Closed]], Cell[ CellGroupData[{ Cell[ "Redundant styles", "Section", CellDingbat -> None, ShowGroupOpener -> True], Cell[ CellGroupData[{ Cell[ StyleData["Example"], ShowGroupOpener -> True, CellMargins -> {{54, 24}, {5, 10}}, CellGroupingRules -> {"SectionGrouping", 60}, CellLabelPositioning -> Left, TextAlignment -> Left, CounterIncrements -> "Example", FormatTypeAutoConvert -> True, FontFamily -> "Times New Roman", FontSize -> 12], Cell[ StyleData["Example", "Printout"], ShowGroupOpener -> False, CellMargins -> {{0, 10}, {6, 10}}, PageBreakBelow -> False, LineSpacing -> {1, 1}, FontFamily -> "Helvetica", FontSize -> 8]}, Closed]]}, Closed]]}, Open]]}, Visible -> False, FrontEndVersion -> "6.0 for Mac OS X x86 (32-bit) (May 21, 2008)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "reiss"->{ Cell[590, 23, 362, 10, 111, "Title", CellTags->"reiss", CellID->1758546655], Cell[3027, 92, 336, 11, 24, "AuthorHeader", CellTags->"reiss", CellID->76196924], Cell[3388, 107, 75, 2, 28, "AbstractHeading", CellTags->"reiss", CellID->741448056], Cell[3466, 111, 1432, 26, 63, "Abstract", CellTags->"reiss", CellID->1817357298], Cell[4901, 139, 443, 13, 24, "Text", CellTags->"reiss", CellID->1519302010], Cell[5359, 155, 217, 9, 33, "Copyright", CellTags->"reiss", CellID->525620329], Cell[10476, 319, 332, 10, 35, "Section", CellTags->"reiss", CellID->1074796312], Cell[10811, 331, 2316, 49, 120, "Text", CellTags->"reiss", CellID->1743598127], Cell[13130, 382, 1837, 43, 88, "Text", CellTags->"reiss", CellID->2109275851], Cell[14970, 427, 1291, 28, 56, "Text", CellTags->"reiss", CellID->1267425330], Cell[16264, 457, 850, 22, 56, "Text", CellTags->"reiss", CellID->1328319240], Cell[17117, 481, 633, 14, 40, "Text", CellTags->"reiss", CellID->498897057], Cell[17753, 497, 979, 25, 72, "Text", CellTags->"reiss", CellID->687098614], Cell[18769, 527, 485, 14, 67, "Section", CellTags->"reiss", CellID->1791914474], Cell[19257, 543, 1270, 28, 72, "Text", CellTags->"reiss", CellID->2130003839], Cell[20530, 573, 1245, 28, 56, "Text", CellTags->"reiss", CellID->640710818], Cell[21778, 603, 1257, 23, 56, "Text", CellTags->"reiss", CellID->559931871], Cell[23038, 628, 1205, 30, 72, "Text", CellTags->"reiss", CellID->501614743], Cell[24280, 663, 518, 16, 48, "Section", CellTags->"reiss", CellID->1825318854], Cell[24801, 681, 1128, 24, 56, "Text", CellTags->"reiss", CellID->1330081783], Cell[25932, 707, 1931, 69, 88, "Text", PageBreakWithin->False, PageBreakBelow->False, CellTags->"reiss"], Cell[27866, 778, 476, 17, 21, "FigureCaption", PageBreakAbove->False, CellTags->"reiss", CellID->1759549199], Cell[28345, 797, 3634, 101, 140, "Text", CellTags->{"CodeTag", "reiss"}, CellID->718470291], Cell[31982, 900, 454, 15, 21, "FigureCaption", PageBreakAbove->False, CellTags->"reiss", CellID->1893568403], Cell[32473, 920, 309, 10, 48, "Section", CellTags->"reiss", CellID->1801993781], Cell[32785, 932, 595, 16, 40, "Text", CellTags->"reiss", CellID->104377895], Cell[33405, 952, 958, 22, 38, "Input", PageBreakBelow->False, CellTags->{ "DiaryDate[{2007, 7, 31, 0, 36, 44.878506}]", "EphemeralGUID[209170993718452391156402599282204919735]", "CellGUID[7115556334885253127570320834443099987]", "reiss"}, CellID->1247760127], Cell[34366, 976, 1062, 23, 39, "Output", CellTags->{ "DiaryDate[{2007, 7, 31, 0, 36, 44.878506}]", "EphemeralGUID[209170993718452391156402599282204919735]", "CellGUID[7115556334885253127570320834443099987]", "reiss"}, CellID->737676234], Cell[35443, 1002, 312, 5, 24, "Text", CellTags->"reiss", CellID->943474716], Cell[35758, 1009, 224, 6, 50, "InputOnly", PageBreakBelow->False, CellTags->"reiss", CellID->2107786011], Cell[35985, 1017, 221, 7, 53, "DisplayFormula", CellTags->"reiss", CellID->701370707], Cell[36209, 1026, 671, 17, 40, "Text", CellTags->"reiss", CellID->2061238234], Cell[36883, 1045, 851, 20, 69, "InputOnly", PageBreakBelow->False, CellTags->{ "DiaryDate[{2007, 7, 31, 0, 38, 58.807917}]", "EphemeralGUID[306228893835280154638996120920000492953]", "CellGUID[68737925254373730641620103448272160818]", "reiss"}, CellID->24805434], Cell[37737, 1067, 388, 10, 53, "DisplayFormula", CellTags->{ "DiaryDate[{2007, 7, 31, 0, 38, 58.807917}]", "EphemeralGUID[306228893835280154638996120920000492953]", "CellGUID[68737925254373730641620103448272160818]", "reiss"}, CellID->399734166], Cell[38128, 1079, 835, 19, 56, "Text", CellTags->"reiss", CellID->1003867615], Cell[38966, 1100, 1701, 37, 96, "InputOnly", CellTags->"reiss", CellID->917615362], Cell[40670, 1139, 230, 4, 24, "Text", CellTags->"reiss", CellID->1445760231], Cell[40925, 1147, 226, 6, 38, "Input", CellTags->"reiss", CellID->114736612], Cell[41154, 1155, 1116, 23, 70, "Output", CellTags->"reiss", CellID->1003280146], Cell[42285, 1181, 205, 7, 24, "Text", CellTags->"reiss", CellID->406463414], Cell[42493, 1190, 267, 7, 50, "InputOnly", PageBreakBelow->False, CellTags->"reiss", CellID->285117991], Cell[42763, 1199, 322, 11, 32, "Text", CellTags->"reiss", CellID->87817578], Cell[43088, 1212, 531, 13, 24, "Text", CellTags->"reiss", CellID->1455621358], Cell[43622, 1227, 1794, 35, 96, "InputOnly", CellTags->"reiss", CellID->1924066276], Cell[45419, 1264, 296, 7, 24, "Text", CellTags->"reiss", CellID->1675386437], Cell[45718, 1273, 472, 11, 24, "Text", CellTags->"reiss", CellID->1883966795], Cell[46215, 1288, 230, 6, 38, "Input", PageBreakBelow->False, CellTags->"reiss", CellID->442035984], Cell[46448, 1296, 1357, 31, 51, "Output", CellTags->"reiss", CellID->628767957], Cell[47820, 1330, 702, 16, 56, "Text", CellTags->"reiss", CellID->337721080], Cell[48525, 1348, 322, 9, 50, "InputOnly", PageBreakBelow->False, CellTags->"reiss", CellID->999556125], Cell[48850, 1359, 395, 14, 32, "Text", CellTags->"reiss", CellID->2083510059], Cell[49248, 1375, 966, 20, 56, "Text", CellTags->"reiss", CellID->302191996], Cell[50217, 1397, 1697, 37, 96, "InputOnly", CellTags->"reiss", CellID->142051617], Cell[51917, 1436, 597, 13, 40, "Text", CellTags->"reiss", CellID->1662528822], Cell[52539, 1453, 334, 8, 38, "Input", PageBreakBelow->False, CellTags->"reiss", CellID->957191777], Cell[52876, 1463, 3444, 85, 116, "Output", CellTags->"reiss", CellID->685213631], Cell[56335, 1551, 938, 23, 30, "Text", CellTags->"reiss", CellID->1727461987], Cell[57276, 1576, 26838, 454, 129, "Graphics", Evaluatable->False, CellTags->"reiss", CellID->1269257538], Cell[84117, 2032, 665, 17, 56, "Text", CellTags->"reiss", CellID->1888415071], Cell[84807, 2053, 530, 12, 38, "Input", CellTags->{ "DiaryDate[{2007, 8, 25, 23, 9, 26.135018}]", "EphemeralGUID[132981457390815806172353705508813252627]", "CellGUID[156856140359486789821956718486605652951]", "reiss"}, CellID->931279284], Cell[85340, 2067, 1672, 46, 54, "Output", CellTags->{ "DiaryDate[{2007, 8, 25, 23, 9, 26.135018}]", "EphemeralGUID[132981457390815806172353705508813252627]", "CellGUID[156856140359486789821956718486605652951]", "reiss"}, CellID->1578181003], Cell[87061, 2119, 270, 10, 48, "Section", CellTags->"reiss", CellID->1424432778], Cell[87334, 2131, 367, 8, 24, "Text", CellTags->"reiss", CellID->780983099], Cell[87704, 2141, 1301, 22, 56, "Text", CellTags->"reiss", CellID->294003090], Cell[89008, 2165, 697, 17, 56, "Text", CellTags->"reiss", CellID->880041589], Cell[89708, 2184, 635, 16, 56, "Text", CellTags->"reiss", CellID->1643984328], Cell[90346, 2202, 225, 4, 24, "Text", CellTags->"reiss", CellID->919998394], Cell[90574, 2208, 468, 13, 66, "InputOnly", CellTags->"reiss", CellID->1808235315], Cell[91045, 2223, 186, 4, 24, "Text", CellTags->"reiss", CellID->1969850508], Cell[91234, 2229, 509, 14, 66, "InputOnly", CellTags->"reiss", CellID->1669585804], Cell[91746, 2245, 277, 8, 24, "Text", CellTags->"reiss", CellID->1660842115], Cell[92026, 2255, 611, 13, 40, "Text", CellTags->"reiss", CellID->819431032], Cell[92640, 2270, 658, 16, 66, "InputOnly", CellTags->"reiss", CellID->364726613], Cell[93301, 2288, 1209, 35, 88, "Text", CellTags->"reiss", CellID->1041856153], Cell[94513, 2325, 444, 13, 50, "InputOnly", CellTags->"reiss", CellID->2042189480], Cell[94960, 2340, 160, 3, 24, "Text", CellTags->"reiss", CellID->1994944006], Cell[95123, 2345, 525, 14, 66, "InputOnly", CellTags->"reiss", CellID->361728231], Cell[95651, 2361, 1006, 21, 72, "Text", CellTags->"reiss", CellID->835188888], Cell[96660, 2384, 582, 17, 66, "InputOnly", CellTags->"reiss", CellID->1508743492], Cell[97267, 2405, 538, 10, 35, "Subsection", CellTags->{ "DiaryDate[{2007, 8, 1, 19, 0, 8.377153}]", "EphemeralGUID[109346866622881853789270765968074496413]", "CellGUID[252375054833933336754919121150289864273]", "reiss"}, CellID->1154931214], Cell[97808, 2417, 1372, 30, 88, "Text", CellTags->"reiss", CellID->1971712112], Cell[99183, 2449, 1248, 24, 104, "Text", CellTags->"reiss", CellID->562894429], Cell[100480, 2479, 371, 10, 48, "Section", CellTags->"reiss", CellID->1918222644], Cell[100854, 2491, 1193, 24, 88, "Text", CellTags->"reiss", CellID->850109243], Cell[102072, 2519, 184, 7, 37, "Subsection", CellTags->"reiss", CellID->1890147749], Cell[102259, 2528, 493, 11, 40, "Text", CellTags->"reiss", CellID->1543468944], Cell[102755, 2541, 503, 12, 40, "Text", CellTags->"reiss", CellID->1627569695], Cell[103261, 2555, 3198, 74, 336, "InputOnly", CellTags->"reiss", CellID->811587289], Cell[106462, 2631, 1854, 47, 120, "Text", CellTags->"reiss", CellID->1678924126], Cell[108319, 2680, 814, 18, 72, "Text", CellTags->"reiss", CellID->996809070], Cell[109170, 2703, 227, 9, 37, "Subsection", CellTags->"reiss", CellID->577343610], Cell[109400, 2714, 1038, 22, 88, "Text", CellTags->"reiss", CellID->1082936124], Cell[110441, 2738, 594, 12, 40, "Text", CellTags->"reiss", CellID->1672389969], Cell[111038, 2752, 1933, 53, 111, "InputOnly", CellTags->{ "DiaryDate[{2007, 8, 25, 23, 44, 44.178075}]", "EphemeralGUID[330657316232363890092195357434516815028]", "CellGUID[6416295400522099258338142283236678982]", "reiss"}, CellID->1592237047], Cell[112974, 2807, 145, 3, 24, "Text", CellTags->"reiss", CellID->934323662], Cell[113122, 2812, 1022, 28, 111, "InputOnly", CellTags->"reiss", CellID->777360370], Cell[114147, 2842, 2558, 85, 36, "Text", CellTags->"reiss", CellID->917593324], Cell[116708, 2929, 170, 3, 24, "Text", CellTags->"reiss", CellID->1679832648], Cell[116881, 2934, 10391, 180, 145, "Graphics", Evaluatable->False, CellTags->"reiss", CellID->2084516186], Cell[127275, 3116, 1124, 21, 104, "Text", CellTags->"reiss", CellID->542371368], Cell[128402, 3139, 1172, 27, 88, "Text", CellTags->"reiss", CellID->1417238969], Cell[129611, 3171, 310, 10, 37, "Subsection", CellTags->"reiss", CellID->2133528104], Cell[129924, 3183, 1153, 27, 72, "Text", CellTags->"reiss", CellID->1794223106], Cell[131080, 3212, 1492, 34, 104, "Text", CellTags->"reiss", CellID->1714984108], Cell[132575, 3248, 1166, 29, 72, "Text", CellTags->"reiss", CellID->922313020], Cell[133744, 3279, 2152, 65, 99, "Text", PageBreakWithin->False, PageBreakBelow->False, CellTags->"reiss", CellID->1491802727], Cell[135899, 3346, 547, 17, 21, "FigureCaption", PageBreakAbove->False, CellTags->"reiss", CellID->1381755151], Cell[136449, 3365, 141, 3, 24, "Text", CellTags->"reiss", CellID->458020828], Cell[136615, 3372, 502, 11, 38, "Input", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 0, 52.227255}]", "EphemeralGUID[11730150399551018993333333854151244748]", "CellGUID[161083001381318303961832108460871589458]", "reiss"}, CellID->2038609385], Cell[137120, 3385, 35657, 590, 147, "Output", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 0, 52.227255}]", "EphemeralGUID[11730150399551018993333333854151244748]", "CellGUID[161083001381318303961832108460871589458]", "reiss"}, CellID->910927361], Cell[172792, 3978, 295, 8, 24, "Text", CellTags->"reiss", CellID->321248998], Cell[173112, 3990, 505, 11, 38, "Input", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 6, 25.321527}]", "EphemeralGUID[299713643948290056224650901135273331549]", "CellGUID[303169024991464369817101731371127184577]", "reiss"}, CellID->672110619], Cell[173620, 4003, 1904, 34, 145, "Output", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 6, 25.321527}]", "EphemeralGUID[299713643948290056224650901135273331549]", "CellGUID[303169024991464369817101731371127184577]", "reiss"}, CellID->545236864], Cell[175539, 4040, 630, 15, 40, "Text", CellTags->"reiss", CellID->1371429410], Cell[176206, 4060, 236, 9, 37, "Subsection", CellTags->"reiss", CellID->2135111019], Cell[176445, 4071, 558, 14, 40, "Text", CellTags->"reiss", CellID->359154963], Cell[177028, 4089, 437, 10, 38, "Input", CellTags->{ "DiaryDate[{2007, 8, 26, 0, 25, 50.912486}]", "EphemeralGUID[212003029476432787757632919958882674293]", "CellGUID[7817926734759705195653511022861023189]", "reiss"}, CellID->1604721382], Cell[177468, 4101, 1979, 51, 86, "Print", CellTags->{ "DiaryDate[{2007, 8, 26, 0, 25, 50.912486}]", "EphemeralGUID[212003029476432787757632919958882674293]", "CellGUID[7817926734759705195653511022861023189]", "reiss"}, CellID->483251499], Cell[179462, 4155, 521, 15, 40, "Text", CellTags->"reiss", CellID->153547574], Cell[180008, 4174, 394, 8, 38, "Subsubsection", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 24.752602}]", "EphemeralGUID[55567099395973554914937663252940504080]", "CellGUID[165413704917082668640612721344156047132]", "reiss"}, CellID->1546216171], Cell[180405, 4184, 646, 14, 56, "Text", CellTags->"reiss", CellID->307371997], Cell[181054, 4200, 2297, 57, 84, "Text", CellTags->"reiss", CellID->1302982544], Cell[183376, 4261, 1019, 24, 54, "Input", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 40.416713}]", "EphemeralGUID[211085988918256832907407166511333928124]", "CellGUID[91155166608385557291381974773923243571]", "reiss"}, CellID->555573650], Cell[184398, 4287, 43520, 955, 203, "Output", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 40.416713}]", "EphemeralGUID[211085988918256832907407166511333928124]", "CellGUID[91155166608385557291381974773923243571]", "reiss"}, CellID->224790739], Cell[227933, 5245, 361, 9, 24, "Text", CellTags->"reiss", CellID->1775788129], Cell[228331, 5259, 495, 10, 38, "Subsubsection", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 24.752602}]", "EphemeralGUID[55567099395973554914937663252940504080]", "CellGUID[165413704917082668640612721344156047132]", "reiss"}, CellID->2090841744], Cell[228829, 5271, 1936, 43, 68, "Text", CellTags->"reiss", CellID->1361386909], Cell[230790, 5318, 1131, 25, 54, "Input", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 40.416713}]", "EphemeralGUID[211085988918256832907407166511333928124]", "CellGUID[91155166608385557291381974773923243571]", "reiss"}, CellID->1502275547], Cell[231924, 5345, 61036, 1317, 202, "Output", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 40.416713}]", "EphemeralGUID[211085988918256832907407166511333928124]", "CellGUID[91155166608385557291381974773923243571]", "reiss"}, CellID->634215300], Cell[293009, 6668, 542, 10, 38, "Subsubsection", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 24.752602}]", "EphemeralGUID[55567099395973554914937663252940504080]", "CellGUID[165413704917082668640612721344156047132]", "reiss"}, CellID->1403016668], Cell[293554, 6680, 945, 18, 72, "Text", CellTags->"reiss", CellID->1007474697], Cell[294502, 6700, 2046, 51, 100, "Text", CellTags->"reiss", CellID->544573082], Cell[296573, 6755, 1133, 25, 54, "Input", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 40.416713}]", "EphemeralGUID[211085988918256832907407166511333928124]", "CellGUID[91155166608385557291381974773923243571]", "reiss"}, CellID->1130695016], Cell[297709, 6782, 52346, 1134, 160, "Output", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 40.416713}]", "EphemeralGUID[211085988918256832907407166511333928124]", "CellGUID[91155166608385557291381974773923243571]", "reiss"}, CellID->1295207039], Cell[350128, 7924, 362, 11, 48, "Section", CellTags->"reiss", CellID->866734937], Cell[350493, 7937, 1087, 22, 72, "Text", CellTags->"reiss", CellID->1759345235], Cell[351583, 7961, 1533, 37, 104, "Text", CellTags->"reiss", CellID->1018316058], Cell[353119, 8000, 2879, 61, 171, "InputOnly", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 40.416713}]", "EphemeralGUID[211085988918256832907407166511333928124]", "CellGUID[91155166608385557291381974773923243571]", "reiss"}, CellID->2050680902], Cell[356001, 8063, 442, 10, 40, "Text", CellTags->"reiss", CellID->433320336], Cell[356468, 8077, 268, 6, 38, "Input", CellTags->"reiss", CellID->185196515], Cell[356739, 8085, 3968, 108, 133, "Output", CellTags->"reiss", CellID->1650458481], Cell[360722, 8196, 1306, 28, 104, "Text", CellTags->"reiss", CellID->2129474842], Cell[362031, 8226, 2331, 58, 152, "Text", CellTags->"reiss", CellID->1932709915], Cell[364399, 8289, 409, 12, 48, "Section", CellTags->"reiss", CellID->275941014], Cell[364811, 8303, 1603, 36, 120, "Text", CellTags->"reiss", CellID->1323428425], Cell[366417, 8341, 859, 17, 56, "Text", CellTags->"reiss", CellID->1526980144], Cell[367279, 8360, 1450, 34, 88, "Text", CellTags->"reiss", CellID->2145411775], Cell[368766, 8399, 309, 10, 48, "Section", CellTags->"reiss", CellID->1075680096], Cell[369078, 8411, 919, 17, 56, "Text", CellTags->"reiss", CellID->1337438765], Cell[370000, 8430, 795, 19, 50, "InputOnly", CellTags->{ "DiaryDate[{2007, 7, 31, 1, 35, 31.593476}]", "EphemeralGUID[331480877609638403014951055580693522813]", "CellGUID[110018468602377746104826394257493963529]", "reiss"}, CellID->1658275496], Cell[370798, 8451, 4391, 127, 114, "Text", CellTags->"reiss", CellID->1362586214], Cell[375192, 8580, 753, 21, 37, "FigureCaption", PageBreakAbove->False, CellTags->"reiss", CellID->1535111013], Cell[375982, 8606, 143, 3, 46, "Section", CellTags->"reiss", CellID->143510863], Cell[376128, 8611, 1374, 31, 72, "Text", CellTags->"reiss", CellID->362938860], Cell[377505, 8644, 1005, 20, 72, "Text", CellTags->"reiss", CellID->969986524], Cell[378513, 8666, 135, 3, 24, "Author", CellTags->"reiss", CellID->1059862540], Cell[378651, 8671, 235, 8, 55, "Address", CellTags->"reiss", CellID->1880341562], Cell[378889, 8681, 152, 3, 19, "Email", CellTags->"reiss", CellID->531283282], Cell[379044, 8686, 509, 11, 19, "Email", CellTags->{ "DiaryDate[{2007, 8, 25, 19, 56, 15.818710}]", "EphemeralGUID[275167024434021738406367650194137393472]", "CellGUID[228702652415846134232125833283322987682]", "reiss"}, CellID->1044817619]}, "init"->{ Cell[5601, 168, 225, 8, 48, "Initialize", CellTags->"init", CellID->1500629392]}, "CodeTag"->{ Cell[28345, 797, 3634, 101, 140, "Text", CellTags->{"CodeTag", "reiss"}, CellID->718470291]}, "DiaryDate[{2007, 7, 31, 0, 36, 44.878506}]"->{ Cell[33405, 952, 958, 22, 38, "Input", PageBreakBelow->False, CellTags->{ "DiaryDate[{2007, 7, 31, 0, 36, 44.878506}]", "EphemeralGUID[209170993718452391156402599282204919735]", "CellGUID[7115556334885253127570320834443099987]", "reiss"}, CellID->1247760127], Cell[34366, 976, 1062, 23, 39, "Output", CellTags->{ "DiaryDate[{2007, 7, 31, 0, 36, 44.878506}]", "EphemeralGUID[209170993718452391156402599282204919735]", "CellGUID[7115556334885253127570320834443099987]", "reiss"}, CellID->737676234]}, "EphemeralGUID[209170993718452391156402599282204919735]"->{ Cell[33405, 952, 958, 22, 38, "Input", PageBreakBelow->False, CellTags->{ "DiaryDate[{2007, 7, 31, 0, 36, 44.878506}]", "EphemeralGUID[209170993718452391156402599282204919735]", "CellGUID[7115556334885253127570320834443099987]", "reiss"}, CellID->1247760127], Cell[34366, 976, 1062, 23, 39, "Output", CellTags->{ "DiaryDate[{2007, 7, 31, 0, 36, 44.878506}]", "EphemeralGUID[209170993718452391156402599282204919735]", "CellGUID[7115556334885253127570320834443099987]", "reiss"}, CellID->737676234]}, "CellGUID[7115556334885253127570320834443099987]"->{ Cell[33405, 952, 958, 22, 38, "Input", PageBreakBelow->False, CellTags->{ "DiaryDate[{2007, 7, 31, 0, 36, 44.878506}]", "EphemeralGUID[209170993718452391156402599282204919735]", "CellGUID[7115556334885253127570320834443099987]", "reiss"}, CellID->1247760127], Cell[34366, 976, 1062, 23, 39, "Output", CellTags->{ "DiaryDate[{2007, 7, 31, 0, 36, 44.878506}]", "EphemeralGUID[209170993718452391156402599282204919735]", "CellGUID[7115556334885253127570320834443099987]", "reiss"}, CellID->737676234]}, "DiaryDate[{2007, 7, 31, 0, 38, 58.807917}]"->{ Cell[36883, 1045, 851, 20, 69, "InputOnly", PageBreakBelow->False, CellTags->{ "DiaryDate[{2007, 7, 31, 0, 38, 58.807917}]", "EphemeralGUID[306228893835280154638996120920000492953]", "CellGUID[68737925254373730641620103448272160818]", "reiss"}, CellID->24805434], Cell[37737, 1067, 388, 10, 53, "DisplayFormula", CellTags->{ "DiaryDate[{2007, 7, 31, 0, 38, 58.807917}]", "EphemeralGUID[306228893835280154638996120920000492953]", "CellGUID[68737925254373730641620103448272160818]", "reiss"}, CellID->399734166]}, "EphemeralGUID[306228893835280154638996120920000492953]"->{ Cell[36883, 1045, 851, 20, 69, "InputOnly", PageBreakBelow->False, CellTags->{ "DiaryDate[{2007, 7, 31, 0, 38, 58.807917}]", "EphemeralGUID[306228893835280154638996120920000492953]", "CellGUID[68737925254373730641620103448272160818]", "reiss"}, CellID->24805434], Cell[37737, 1067, 388, 10, 53, "DisplayFormula", CellTags->{ "DiaryDate[{2007, 7, 31, 0, 38, 58.807917}]", "EphemeralGUID[306228893835280154638996120920000492953]", "CellGUID[68737925254373730641620103448272160818]", "reiss"}, CellID->399734166]}, "CellGUID[68737925254373730641620103448272160818]"->{ Cell[36883, 1045, 851, 20, 69, "InputOnly", PageBreakBelow->False, CellTags->{ "DiaryDate[{2007, 7, 31, 0, 38, 58.807917}]", "EphemeralGUID[306228893835280154638996120920000492953]", "CellGUID[68737925254373730641620103448272160818]", "reiss"}, CellID->24805434], Cell[37737, 1067, 388, 10, 53, "DisplayFormula", CellTags->{ "DiaryDate[{2007, 7, 31, 0, 38, 58.807917}]", "EphemeralGUID[306228893835280154638996120920000492953]", "CellGUID[68737925254373730641620103448272160818]", "reiss"}, CellID->399734166]}, "DiaryDate[{2007, 8, 25, 23, 9, 26.135018}]"->{ Cell[84807, 2053, 530, 12, 38, "Input", CellTags->{ "DiaryDate[{2007, 8, 25, 23, 9, 26.135018}]", "EphemeralGUID[132981457390815806172353705508813252627]", "CellGUID[156856140359486789821956718486605652951]", "reiss"}, CellID->931279284], Cell[85340, 2067, 1672, 46, 54, "Output", CellTags->{ "DiaryDate[{2007, 8, 25, 23, 9, 26.135018}]", "EphemeralGUID[132981457390815806172353705508813252627]", "CellGUID[156856140359486789821956718486605652951]", "reiss"}, CellID->1578181003]}, "EphemeralGUID[132981457390815806172353705508813252627]"->{ Cell[84807, 2053, 530, 12, 38, "Input", CellTags->{ "DiaryDate[{2007, 8, 25, 23, 9, 26.135018}]", "EphemeralGUID[132981457390815806172353705508813252627]", "CellGUID[156856140359486789821956718486605652951]", "reiss"}, CellID->931279284], Cell[85340, 2067, 1672, 46, 54, "Output", CellTags->{ "DiaryDate[{2007, 8, 25, 23, 9, 26.135018}]", "EphemeralGUID[132981457390815806172353705508813252627]", "CellGUID[156856140359486789821956718486605652951]", "reiss"}, CellID->1578181003]}, "CellGUID[156856140359486789821956718486605652951]"->{ Cell[84807, 2053, 530, 12, 38, "Input", CellTags->{ "DiaryDate[{2007, 8, 25, 23, 9, 26.135018}]", "EphemeralGUID[132981457390815806172353705508813252627]", "CellGUID[156856140359486789821956718486605652951]", "reiss"}, CellID->931279284], Cell[85340, 2067, 1672, 46, 54, "Output", CellTags->{ "DiaryDate[{2007, 8, 25, 23, 9, 26.135018}]", "EphemeralGUID[132981457390815806172353705508813252627]", "CellGUID[156856140359486789821956718486605652951]", "reiss"}, CellID->1578181003]}, "DiaryDate[{2007, 8, 1, 19, 0, 8.377153}]"->{ Cell[97267, 2405, 538, 10, 35, "Subsection", CellTags->{ "DiaryDate[{2007, 8, 1, 19, 0, 8.377153}]", "EphemeralGUID[109346866622881853789270765968074496413]", "CellGUID[252375054833933336754919121150289864273]", "reiss"}, CellID->1154931214]}, "EphemeralGUID[109346866622881853789270765968074496413]"->{ Cell[97267, 2405, 538, 10, 35, "Subsection", CellTags->{ "DiaryDate[{2007, 8, 1, 19, 0, 8.377153}]", "EphemeralGUID[109346866622881853789270765968074496413]", "CellGUID[252375054833933336754919121150289864273]", "reiss"}, CellID->1154931214]}, "CellGUID[252375054833933336754919121150289864273]"->{ Cell[97267, 2405, 538, 10, 35, "Subsection", CellTags->{ "DiaryDate[{2007, 8, 1, 19, 0, 8.377153}]", "EphemeralGUID[109346866622881853789270765968074496413]", "CellGUID[252375054833933336754919121150289864273]", "reiss"}, CellID->1154931214]}, "DiaryDate[{2007, 8, 25, 23, 44, 44.178075}]"->{ Cell[111038, 2752, 1933, 53, 111, "InputOnly", CellTags->{ "DiaryDate[{2007, 8, 25, 23, 44, 44.178075}]", "EphemeralGUID[330657316232363890092195357434516815028]", "CellGUID[6416295400522099258338142283236678982]", "reiss"}, CellID->1592237047]}, "EphemeralGUID[330657316232363890092195357434516815028]"->{ Cell[111038, 2752, 1933, 53, 111, "InputOnly", CellTags->{ "DiaryDate[{2007, 8, 25, 23, 44, 44.178075}]", "EphemeralGUID[330657316232363890092195357434516815028]", "CellGUID[6416295400522099258338142283236678982]", "reiss"}, CellID->1592237047]}, "CellGUID[6416295400522099258338142283236678982]"->{ Cell[111038, 2752, 1933, 53, 111, "InputOnly", CellTags->{ "DiaryDate[{2007, 8, 25, 23, 44, 44.178075}]", "EphemeralGUID[330657316232363890092195357434516815028]", "CellGUID[6416295400522099258338142283236678982]", "reiss"}, CellID->1592237047]}, "DiaryDate[{2007, 8, 26, 1, 0, 52.227255}]"->{ Cell[136615, 3372, 502, 11, 38, "Input", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 0, 52.227255}]", "EphemeralGUID[11730150399551018993333333854151244748]", "CellGUID[161083001381318303961832108460871589458]", "reiss"}, CellID->2038609385], Cell[137120, 3385, 35657, 590, 147, "Output", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 0, 52.227255}]", "EphemeralGUID[11730150399551018993333333854151244748]", "CellGUID[161083001381318303961832108460871589458]", "reiss"}, CellID->910927361]}, "EphemeralGUID[11730150399551018993333333854151244748]"->{ Cell[136615, 3372, 502, 11, 38, "Input", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 0, 52.227255}]", "EphemeralGUID[11730150399551018993333333854151244748]", "CellGUID[161083001381318303961832108460871589458]", "reiss"}, CellID->2038609385], Cell[137120, 3385, 35657, 590, 147, "Output", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 0, 52.227255}]", "EphemeralGUID[11730150399551018993333333854151244748]", "CellGUID[161083001381318303961832108460871589458]", "reiss"}, CellID->910927361]}, "CellGUID[161083001381318303961832108460871589458]"->{ Cell[136615, 3372, 502, 11, 38, "Input", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 0, 52.227255}]", "EphemeralGUID[11730150399551018993333333854151244748]", "CellGUID[161083001381318303961832108460871589458]", "reiss"}, CellID->2038609385], Cell[137120, 3385, 35657, 590, 147, "Output", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 0, 52.227255}]", "EphemeralGUID[11730150399551018993333333854151244748]", "CellGUID[161083001381318303961832108460871589458]", "reiss"}, CellID->910927361]}, "DiaryDate[{2007, 8, 26, 1, 6, 25.321527}]"->{ Cell[173112, 3990, 505, 11, 38, "Input", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 6, 25.321527}]", "EphemeralGUID[299713643948290056224650901135273331549]", "CellGUID[303169024991464369817101731371127184577]", "reiss"}, CellID->672110619], Cell[173620, 4003, 1904, 34, 145, "Output", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 6, 25.321527}]", "EphemeralGUID[299713643948290056224650901135273331549]", "CellGUID[303169024991464369817101731371127184577]", "reiss"}, CellID->545236864]}, "EphemeralGUID[299713643948290056224650901135273331549]"->{ Cell[173112, 3990, 505, 11, 38, "Input", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 6, 25.321527}]", "EphemeralGUID[299713643948290056224650901135273331549]", "CellGUID[303169024991464369817101731371127184577]", "reiss"}, CellID->672110619], Cell[173620, 4003, 1904, 34, 145, "Output", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 6, 25.321527}]", "EphemeralGUID[299713643948290056224650901135273331549]", "CellGUID[303169024991464369817101731371127184577]", "reiss"}, CellID->545236864]}, "CellGUID[303169024991464369817101731371127184577]"->{ Cell[173112, 3990, 505, 11, 38, "Input", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 6, 25.321527}]", "EphemeralGUID[299713643948290056224650901135273331549]", "CellGUID[303169024991464369817101731371127184577]", "reiss"}, CellID->672110619], Cell[173620, 4003, 1904, 34, 145, "Output", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 6, 25.321527}]", "EphemeralGUID[299713643948290056224650901135273331549]", "CellGUID[303169024991464369817101731371127184577]", "reiss"}, CellID->545236864]}, "DiaryDate[{2007, 8, 26, 0, 25, 50.912486}]"->{ Cell[177028, 4089, 437, 10, 38, "Input", CellTags->{ "DiaryDate[{2007, 8, 26, 0, 25, 50.912486}]", "EphemeralGUID[212003029476432787757632919958882674293]", "CellGUID[7817926734759705195653511022861023189]", "reiss"}, CellID->1604721382], Cell[177468, 4101, 1979, 51, 86, "Print", CellTags->{ "DiaryDate[{2007, 8, 26, 0, 25, 50.912486}]", "EphemeralGUID[212003029476432787757632919958882674293]", "CellGUID[7817926734759705195653511022861023189]", "reiss"}, CellID->483251499]}, "EphemeralGUID[212003029476432787757632919958882674293]"->{ Cell[177028, 4089, 437, 10, 38, "Input", CellTags->{ "DiaryDate[{2007, 8, 26, 0, 25, 50.912486}]", "EphemeralGUID[212003029476432787757632919958882674293]", "CellGUID[7817926734759705195653511022861023189]", "reiss"}, CellID->1604721382], Cell[177468, 4101, 1979, 51, 86, "Print", CellTags->{ "DiaryDate[{2007, 8, 26, 0, 25, 50.912486}]", "EphemeralGUID[212003029476432787757632919958882674293]", "CellGUID[7817926734759705195653511022861023189]", "reiss"}, CellID->483251499]}, "CellGUID[7817926734759705195653511022861023189]"->{ Cell[177028, 4089, 437, 10, 38, "Input", CellTags->{ "DiaryDate[{2007, 8, 26, 0, 25, 50.912486}]", "EphemeralGUID[212003029476432787757632919958882674293]", "CellGUID[7817926734759705195653511022861023189]", "reiss"}, CellID->1604721382], Cell[177468, 4101, 1979, 51, 86, "Print", CellTags->{ "DiaryDate[{2007, 8, 26, 0, 25, 50.912486}]", "EphemeralGUID[212003029476432787757632919958882674293]", "CellGUID[7817926734759705195653511022861023189]", "reiss"}, CellID->483251499]}, "DiaryDate[{2007, 8, 26, 1, 11, 24.752602}]"->{ Cell[180008, 4174, 394, 8, 38, "Subsubsection", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 24.752602}]", "EphemeralGUID[55567099395973554914937663252940504080]", "CellGUID[165413704917082668640612721344156047132]", "reiss"}, CellID->1546216171], Cell[228331, 5259, 495, 10, 38, "Subsubsection", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 24.752602}]", "EphemeralGUID[55567099395973554914937663252940504080]", "CellGUID[165413704917082668640612721344156047132]", "reiss"}, CellID->2090841744], Cell[293009, 6668, 542, 10, 38, "Subsubsection", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 24.752602}]", "EphemeralGUID[55567099395973554914937663252940504080]", "CellGUID[165413704917082668640612721344156047132]", "reiss"}, CellID->1403016668]}, "EphemeralGUID[55567099395973554914937663252940504080]"->{ Cell[180008, 4174, 394, 8, 38, "Subsubsection", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 24.752602}]", "EphemeralGUID[55567099395973554914937663252940504080]", "CellGUID[165413704917082668640612721344156047132]", "reiss"}, CellID->1546216171], Cell[228331, 5259, 495, 10, 38, "Subsubsection", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 24.752602}]", "EphemeralGUID[55567099395973554914937663252940504080]", "CellGUID[165413704917082668640612721344156047132]", "reiss"}, CellID->2090841744], Cell[293009, 6668, 542, 10, 38, "Subsubsection", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 24.752602}]", "EphemeralGUID[55567099395973554914937663252940504080]", "CellGUID[165413704917082668640612721344156047132]", "reiss"}, CellID->1403016668]}, "CellGUID[165413704917082668640612721344156047132]"->{ Cell[180008, 4174, 394, 8, 38, "Subsubsection", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 24.752602}]", "EphemeralGUID[55567099395973554914937663252940504080]", "CellGUID[165413704917082668640612721344156047132]", "reiss"}, CellID->1546216171], Cell[228331, 5259, 495, 10, 38, "Subsubsection", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 24.752602}]", "EphemeralGUID[55567099395973554914937663252940504080]", "CellGUID[165413704917082668640612721344156047132]", "reiss"}, CellID->2090841744], Cell[293009, 6668, 542, 10, 38, "Subsubsection", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 24.752602}]", "EphemeralGUID[55567099395973554914937663252940504080]", "CellGUID[165413704917082668640612721344156047132]", "reiss"}, CellID->1403016668]}, "DiaryDate[{2007, 8, 26, 1, 11, 40.416713}]"->{ Cell[183376, 4261, 1019, 24, 54, "Input", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 40.416713}]", "EphemeralGUID[211085988918256832907407166511333928124]", "CellGUID[91155166608385557291381974773923243571]", "reiss"}, CellID->555573650], Cell[184398, 4287, 43520, 955, 203, "Output", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 40.416713}]", "EphemeralGUID[211085988918256832907407166511333928124]", "CellGUID[91155166608385557291381974773923243571]", "reiss"}, CellID->224790739], Cell[230790, 5318, 1131, 25, 54, "Input", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 40.416713}]", "EphemeralGUID[211085988918256832907407166511333928124]", "CellGUID[91155166608385557291381974773923243571]", "reiss"}, CellID->1502275547], Cell[231924, 5345, 61036, 1317, 202, "Output", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 40.416713}]", "EphemeralGUID[211085988918256832907407166511333928124]", "CellGUID[91155166608385557291381974773923243571]", "reiss"}, CellID->634215300], Cell[296573, 6755, 1133, 25, 54, "Input", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 40.416713}]", "EphemeralGUID[211085988918256832907407166511333928124]", "CellGUID[91155166608385557291381974773923243571]", "reiss"}, CellID->1130695016], Cell[297709, 6782, 52346, 1134, 160, "Output", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 40.416713}]", "EphemeralGUID[211085988918256832907407166511333928124]", "CellGUID[91155166608385557291381974773923243571]", "reiss"}, CellID->1295207039], Cell[353119, 8000, 2879, 61, 171, "InputOnly", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 40.416713}]", "EphemeralGUID[211085988918256832907407166511333928124]", "CellGUID[91155166608385557291381974773923243571]", "reiss"}, CellID->2050680902]}, "EphemeralGUID[211085988918256832907407166511333928124]"->{ Cell[183376, 4261, 1019, 24, 54, "Input", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 40.416713}]", "EphemeralGUID[211085988918256832907407166511333928124]", "CellGUID[91155166608385557291381974773923243571]", "reiss"}, CellID->555573650], Cell[184398, 4287, 43520, 955, 203, "Output", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 40.416713}]", "EphemeralGUID[211085988918256832907407166511333928124]", "CellGUID[91155166608385557291381974773923243571]", "reiss"}, CellID->224790739], Cell[230790, 5318, 1131, 25, 54, "Input", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 40.416713}]", "EphemeralGUID[211085988918256832907407166511333928124]", "CellGUID[91155166608385557291381974773923243571]", "reiss"}, CellID->1502275547], Cell[231924, 5345, 61036, 1317, 202, "Output", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 40.416713}]", "EphemeralGUID[211085988918256832907407166511333928124]", "CellGUID[91155166608385557291381974773923243571]", "reiss"}, CellID->634215300], Cell[296573, 6755, 1133, 25, 54, "Input", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 40.416713}]", "EphemeralGUID[211085988918256832907407166511333928124]", "CellGUID[91155166608385557291381974773923243571]", "reiss"}, CellID->1130695016], Cell[297709, 6782, 52346, 1134, 160, "Output", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 40.416713}]", "EphemeralGUID[211085988918256832907407166511333928124]", "CellGUID[91155166608385557291381974773923243571]", "reiss"}, CellID->1295207039], Cell[353119, 8000, 2879, 61, 171, "InputOnly", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 40.416713}]", "EphemeralGUID[211085988918256832907407166511333928124]", "CellGUID[91155166608385557291381974773923243571]", "reiss"}, CellID->2050680902]}, "CellGUID[91155166608385557291381974773923243571]"->{ Cell[183376, 4261, 1019, 24, 54, "Input", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 40.416713}]", "EphemeralGUID[211085988918256832907407166511333928124]", "CellGUID[91155166608385557291381974773923243571]", "reiss"}, CellID->555573650], Cell[184398, 4287, 43520, 955, 203, "Output", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 40.416713}]", "EphemeralGUID[211085988918256832907407166511333928124]", "CellGUID[91155166608385557291381974773923243571]", "reiss"}, CellID->224790739], Cell[230790, 5318, 1131, 25, 54, "Input", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 40.416713}]", "EphemeralGUID[211085988918256832907407166511333928124]", "CellGUID[91155166608385557291381974773923243571]", "reiss"}, CellID->1502275547], Cell[231924, 5345, 61036, 1317, 202, "Output", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 40.416713}]", "EphemeralGUID[211085988918256832907407166511333928124]", "CellGUID[91155166608385557291381974773923243571]", "reiss"}, CellID->634215300], Cell[296573, 6755, 1133, 25, 54, "Input", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 40.416713}]", "EphemeralGUID[211085988918256832907407166511333928124]", "CellGUID[91155166608385557291381974773923243571]", "reiss"}, CellID->1130695016], Cell[297709, 6782, 52346, 1134, 160, "Output", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 40.416713}]", "EphemeralGUID[211085988918256832907407166511333928124]", "CellGUID[91155166608385557291381974773923243571]", "reiss"}, CellID->1295207039], Cell[353119, 8000, 2879, 61, 171, "InputOnly", CellTags->{ "DiaryDate[{2007, 8, 26, 1, 11, 40.416713}]", "EphemeralGUID[211085988918256832907407166511333928124]", "CellGUID[91155166608385557291381974773923243571]", "reiss"}, CellID->2050680902]}, "DiaryDate[{2007, 7, 31, 1, 35, 31.593476}]"->{ Cell[370000, 8430, 795, 19, 50, "InputOnly", CellTags->{ "DiaryDate[{2007, 7, 31, 1, 35, 31.593476}]", "EphemeralGUID[331480877609638403014951055580693522813]", "CellGUID[110018468602377746104826394257493963529]", "reiss"}, CellID->1658275496]}, "EphemeralGUID[331480877609638403014951055580693522813]"->{ Cell[370000, 8430, 795, 19, 50, "InputOnly", CellTags->{ "DiaryDate[{2007, 7, 31, 1, 35, 31.593476}]", "EphemeralGUID[331480877609638403014951055580693522813]", "CellGUID[110018468602377746104826394257493963529]", "reiss"}, CellID->1658275496]}, "CellGUID[110018468602377746104826394257493963529]"->{ Cell[370000, 8430, 795, 19, 50, "InputOnly", CellTags->{ "DiaryDate[{2007, 7, 31, 1, 35, 31.593476}]", "EphemeralGUID[331480877609638403014951055580693522813]", "CellGUID[110018468602377746104826394257493963529]", "reiss"}, CellID->1658275496]}, "DiaryDate[{2007, 8, 25, 19, 56, 15.818710}]"->{ Cell[379044, 8686, 509, 11, 19, "Email", CellTags->{ "DiaryDate[{2007, 8, 25, 19, 56, 15.818710}]", "EphemeralGUID[275167024434021738406367650194137393472]", "CellGUID[228702652415846134232125833283322987682]", "reiss"}, CellID->1044817619]}, "EphemeralGUID[275167024434021738406367650194137393472]"->{ Cell[379044, 8686, 509, 11, 19, "Email", CellTags->{ "DiaryDate[{2007, 8, 25, 19, 56, 15.818710}]", "EphemeralGUID[275167024434021738406367650194137393472]", "CellGUID[228702652415846134232125833283322987682]", "reiss"}, CellID->1044817619]}, "CellGUID[228702652415846134232125833283322987682]"->{ Cell[379044, 8686, 509, 11, 19, "Email", CellTags->{ "DiaryDate[{2007, 8, 25, 19, 56, 15.818710}]", "EphemeralGUID[275167024434021738406367650194137393472]", "CellGUID[228702652415846134232125833283322987682]", "reiss"}, CellID->1044817619]} } *) (*CellTagsIndex CellTagsIndex->{ {"reiss", 473763, 10646}, {"init", 492937, 11218}, {"CodeTag", 493041, 11222}, {"DiaryDate[{2007, 7, 31, 0, 36, 44.878506}]", 493192, 11226}, {"EphemeralGUID[209170993718452391156402599282204919735]", 493803, 11240}, {"CellGUID[7115556334885253127570320834443099987]", 494407, 11254}, {"DiaryDate[{2007, 7, 31, 0, 38, 58.807917}]", 495006, 11268}, {"EphemeralGUID[306228893835280154638996120920000492953]", 495630, 11282}, {"CellGUID[68737925254373730641620103448272160818]", 496248, 11296}, {"DiaryDate[{2007, 8, 25, 23, 9, 26.135018}]", 496860, 11310}, {"EphemeralGUID[132981457390815806172353705508813252627]", 497451, 11323}, {"CellGUID[156856140359486789821956718486605652951]", 498037, 11336}, {"DiaryDate[{2007, 8, 1, 19, 0, 8.377153}]", 498614, 11349}, {"EphemeralGUID[109346866622881853789270765968074496413]", 498943, 11356}, {"CellGUID[252375054833933336754919121150289864273]", 499267, 11363}, {"DiaryDate[{2007, 8, 25, 23, 44, 44.178075}]", 499585, 11370}, {"EphemeralGUID[330657316232363890092195357434516815028]", 499917, 11377}, {"CellGUID[6416295400522099258338142283236678982]", 500242, 11384}, {"DiaryDate[{2007, 8, 26, 1, 0, 52.227255}]", 500561, 11391}, {"EphemeralGUID[11730150399551018993333333854151244748]", 501152, 11404}, {"CellGUID[161083001381318303961832108460871589458]", 501739, 11417}, {"DiaryDate[{2007, 8, 26, 1, 6, 25.321527}]", 502318, 11430}, {"EphemeralGUID[299713643948290056224650901135273331549]", 502909, 11443}, {"CellGUID[303169024991464369817101731371127184577]", 503495, 11456}, {"DiaryDate[{2007, 8, 26, 0, 25, 50.912486}]", 504074, 11469}, {"EphemeralGUID[212003029476432787757632919958882674293]", 504662, 11482}, {"CellGUID[7817926734759705195653511022861023189]", 505243, 11495}, {"DiaryDate[{2007, 8, 26, 1, 11, 24.752602}]", 505819, 11508}, {"EphemeralGUID[55567099395973554914937663252940504080]", 506695, 11527}, {"CellGUID[165413704917082668640612721344156047132]", 507567, 11546}, {"DiaryDate[{2007, 8, 26, 1, 11, 40.416713}]", 508432, 11565}, {"EphemeralGUID[211085988918256832907407166511333928124]", 510365, 11608}, {"CellGUID[91155166608385557291381974773923243571]", 512292, 11651}, {"DiaryDate[{2007, 7, 31, 1, 35, 31.593476}]", 514213, 11694}, {"EphemeralGUID[331480877609638403014951055580693522813]", 514544, 11701}, {"CellGUID[110018468602377746104826394257493963529]", 514870, 11708}, {"DiaryDate[{2007, 8, 25, 19, 56, 15.818710}]", 515190, 11715}, {"EphemeralGUID[275167024434021738406367650194137393472]", 515518, 11722}, {"CellGUID[228702652415846134232125833283322987682]", 515841, 11729} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 362, 10, 111, "Title", CellTags->"reiss", CellID->1758546655], Cell[955, 35, 1856, 47, 136, "Text", CellID->2123826423], Cell[2814, 84, 210, 6, 24, "Text", CellID->1486673549], Cell[3027, 92, 336, 11, 24, "AuthorHeader", CellTags->"reiss", CellID->76196924], Cell[CellGroupData[{ Cell[3388, 107, 75, 2, 28, "AbstractHeading", CellTags->"reiss", CellID->741448056], Cell[3466, 111, 1432, 26, 63, "Abstract", CellTags->"reiss", CellID->1817357298], Cell[4901, 139, 443, 13, 24, "Text", CellTags->"reiss", CellID->1519302010] }, Open ]], Cell[5359, 155, 217, 9, 33, "Copyright", CellTags->"reiss", CellID->525620329], Cell[CellGroupData[{ Cell[5601, 168, 225, 8, 48, "Initialize", CellTags->"init", CellID->1500629392], Cell[5829, 178, 343, 12, 70, "InputOnly", InitializationCell->True, CellID->1030240976], Cell[6175, 192, 295, 9, 70, "InputOnly", InitializationCell->True, CellID->99437871], Cell[6473, 203, 651, 18, 70, "InputOnly", InitializationCell->True, CellID->510020531], Cell[7127, 223, 693, 16, 70, "InputOnly", InitializationCell->True, CellID->1307829340], Cell[7823, 241, 1231, 30, 70, "InputOnly", InitializationCell->True, CellID->1192590335], Cell[9057, 273, 638, 16, 70, "InputOnly", InitializationCell->True, CellID->1400882894], Cell[9698, 291, 592, 16, 70, "InputOnly", InitializationCell->True, CellID->1775577397], Cell[10293, 309, 146, 5, 70, "InputOnly", InitializationCell->True, CellID->696552667] }, Closed]], Cell[CellGroupData[{ Cell[10476, 319, 332, 10, 35, "Section", CellTags->"reiss", CellID->1074796312], Cell[10811, 331, 2316, 49, 120, "Text", CellTags->"reiss", CellID->1743598127], Cell[13130, 382, 1837, 43, 88, "Text", CellTags->"reiss", CellID->2109275851], Cell[14970, 427, 1291, 28, 56, "Text", CellTags->"reiss", CellID->1267425330], Cell[16264, 457, 850, 22, 56, "Text", CellTags->"reiss", CellID->1328319240], Cell[17117, 481, 633, 14, 40, "Text", CellTags->"reiss", CellID->498897057], Cell[17753, 497, 979, 25, 72, "Text", CellTags->"reiss", CellID->687098614] }, Open ]], Cell[CellGroupData[{ Cell[18769, 527, 485, 14, 67, "Section", CellTags->"reiss", CellID->1791914474], Cell[19257, 543, 1270, 28, 72, "Text", CellTags->"reiss", CellID->2130003839], Cell[20530, 573, 1245, 28, 56, "Text", CellTags->"reiss", CellID->640710818], Cell[21778, 603, 1257, 23, 56, "Text", CellTags->"reiss", CellID->559931871], Cell[23038, 628, 1205, 30, 72, "Text", CellTags->"reiss", CellID->501614743] }, Open ]], Cell[CellGroupData[{ Cell[24280, 663, 518, 16, 48, "Section", CellTags->"reiss", CellID->1825318854], Cell[24801, 681, 1128, 24, 56, "Text", CellTags->"reiss", CellID->1330081783], Cell[25932, 707, 1931, 69, 88, "Text", PageBreakWithin->False, PageBreakBelow->False, CellTags->"reiss"], Cell[27866, 778, 476, 17, 21, "FigureCaption", PageBreakAbove->False, CellTags->"reiss", CellID->1759549199], Cell[28345, 797, 3634, 101, 140, "Text", CellTags->{"CodeTag", "reiss"}, CellID->718470291], Cell[31982, 900, 454, 15, 21, "FigureCaption", PageBreakAbove->False, CellTags->"reiss", CellID->1893568403] }, Open ]], Cell[CellGroupData[{ Cell[32473, 920, 309, 10, 48, "Section", CellTags->"reiss", CellID->1801993781], Cell[32785, 932, 595, 16, 40, "Text", CellTags->"reiss", CellID->104377895], Cell[CellGroupData[{ Cell[33405, 952, 958, 22, 38, "Input", PageBreakBelow->False, CellTags->{ "DiaryDate[{2007, 7, 31, 0, 36, 44.878506}]", "EphemeralGUID[209170993718452391156402599282204919735]", "CellGUID[7115556334885253127570320834443099987]", "reiss"}, CellID->1247760127], Cell[34366, 976, 1062, 23, 39, "Output", CellTags->{ "DiaryDate[{2007, 7, 31, 0, 36, 44.878506}]", "EphemeralGUID[209170993718452391156402599282204919735]", "CellGUID[7115556334885253127570320834443099987]", "reiss"}, CellID->737676234] }, Open ]], Cell[35443, 1002, 312, 5, 24, "Text", CellTags->"reiss", CellID->943474716], Cell[35758, 1009, 224, 6, 50, "InputOnly", PageBreakBelow->False, CellTags->"reiss", CellID->2107786011], Cell[35985, 1017, 221, 7, 53, "DisplayFormula", CellTags->"reiss", CellID->701370707], Cell[36209, 1026, 671, 17, 40, "Text", CellTags->"reiss", CellID->2061238234], Cell[36883, 1045, 851, 20, 69, "InputOnly", PageBreakBelow->False, CellTags->{ "DiaryDate[{2007, 7, 31, 0, 38, 58.807917}]", "EphemeralGUID[306228893835280154638996120920000492953]", "CellGUID[68737925254373730641620103448272160818]", "reiss"}, CellID->24805434], Cell[37737, 1067, 388, 10, 53, "DisplayFormula", CellTags->{ "DiaryDate[{2007, 7, 31, 0, 38, 58.807917}]", "EphemeralGUID[306228893835280154638996120920000492953]", "CellGUID[68737925254373730641620103448272160818]", "reiss"}, CellID->399734166], Cell[38128, 1079, 835, 19, 56, "Text", CellTags->"reiss", CellID->1003867615], Cell[38966, 1100, 1701, 37, 96, "InputOnly", CellTags->"reiss", CellID->917615362], Cell[40670, 1139, 230, 4, 24, "Text", CellTags->"reiss", CellID->1445760231], Cell[CellGroupData[{ Cell[40925, 1147, 226, 6, 38, "Input", CellTags->"reiss", CellID->114736612], Cell[41154, 1155, 1116, 23, 70, "Output", CellTags->"reiss", CellID->10