(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 4.2' Mathematica-Compatible Notebook This notebook can be used with any Mathematica-compatible application, such as Mathematica, MathReader or Publicon. The data for the notebook starts with the line containing stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. *******************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 64998, 2236]*) (*NotebookOutlinePosition[ 280876, 9685]*) (* CellTagsIndexPosition[ 280763, 9678]*) (*WindowFrame->Normal*) Notebook[{ Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Last Slide"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], \(\(\ \)\(of\)\(\ \)\), CounterBox["SlideShowNavigationBar", "LastSlide"]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{"web", StyleBox[ AdjustmentBox["Mathematica", BoxMargins->{{-0.175, 0}, {0, 0}}], FontSlant->"Italic"]}], TextForm]]], " 2.0" }], "Section"], Cell[CellGroupData[{ Cell["\<\ Los Angeles 30 January 2003\ \>", "SectionFirst"], Cell[CellGroupData[{ Cell["\<\ Tom Wickham-Jones Director of Kernel Technology Wolfram Research \ \>", "Subsubsection"], Cell[TextData[{ "This talk will give some preview of the upcoming version: ", Cell[BoxData[ FormBox[ RowBox[{"web", StyleBox[ AdjustmentBox["Mathematica", BoxMargins->{{-0.175, 0}, {0, 0}}], FontSlant->"Italic"]}], TextForm]]], " 2.0\n\nAll examples taken from standard web", StyleBox["Mathematica", FontSlant->"Italic"], " 2.0 distribution\n\n", StyleBox["Please note that this notebook is optimized for display by \ Mathematica 4.2. Also that it may refer to hyperlinks that are not included \ in the file archive.", FontSlant->"Italic"], "\n\n\n\n\n\n\n\n" }], "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Initialization", "Subsubsection"], Cell[BoxData[{ \(\(Off[General::spell];\)\), "\[IndentingNewLine]", \(\(Off[General::spell1];\)\)}], "Input", CellLabel->"In[37]:="], Cell[BoxData[ \(\(SetDirectory[ DirectoryName[ ToFileName["\" /. NotebookInformation[\ SelectedNotebook[]]]]];\)\)], "Input"] }, Open ]] }, Open ]] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], \(\(\ \)\(of\)\(\ \)\), CounterBox["SlideShowNavigationBar", "LastSlide"]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell[TextData[{ "History of web", StyleBox["Mathematica", FontSlant->"Italic"] }], "Section"], Cell["\<\ Jan 2001: testing started.\ \>", "Text"], Cell[TextData[{ "\nSept. 2001: release of web", StyleBox["Mathematica", FontSlant->"Italic"], " 1.0." }], "Text"], Cell[TextData[{ "\nJan. 2003: beta release of web", StyleBox["Mathematica", FontSlant->"Italic"], " 2.0." }], "Text"], Cell[TextData[{ "\nXXX 2003: release of web", StyleBox["Mathematica", FontSlant->"Italic"], " 2.0." }], "Text"] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], \(\(\ \)\(of\)\(\ \)\), CounterBox["SlideShowNavigationBar", "LastSlide"]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell[TextData[{ Cell[BoxData[ FormBox[ RowBox[{"web", StyleBox[ AdjustmentBox["Mathematica", BoxMargins->{{-0.175, 0}, {0, 0}}], FontSlant->"Italic"]}], TextForm]]], StyleBox[" ", FontSlant->"Italic"], "2.0 Features" }], "Section"], Cell["\<\ \[GrayCircle] Simplified installation\ \>", "Text"], Cell["\<\ \[GrayCircle] Extended documentation and examples\ \>", "Text"], Cell["\<\ \[GrayCircle] A new templating mechanism based on JSP custom tags\ \>", "Text"], Cell[TextData[{ "\[GrayCircle] Support for ", StyleBox["Mathematica", FontSlant->"Italic"], " Version 4.2" }], "Text"], Cell["\[GrayCircle] MathML, SVG, and XML support", "Text"], Cell["\<\ \[GrayCircle] Support for catching message and print information\ \>", "Text"], Cell["\<\ \[GrayCircle] Added HTTP file uploading functions\ \>", "Text"], Cell["\<\ \[GrayCircle] Added support for HTTP session variables\ \>", "Text"], Cell["\<\ \[GrayCircle] Added HTML formatting functions\ \>", "Text"], Cell[TextData[ButtonBox["webMathematica 2.0", ButtonData:>{ URL[ "http://localhost:8080/webMathematica"], None}, ButtonStyle->"Hyperlink"]], "Text"] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], \(\(\ \)\(of\)\(\ \)\), CounterBox["SlideShowNavigationBar", "LastSlide"]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell["Simplified Installation", "Section"], Cell[TextData[{ "\nweb", StyleBox["Mathematica", FontSlant->"Italic"], " 1.0 required a number of manual configuration steps in order to run." }], "Text"], Cell[TextData[{ "\nSignificantly reduced in web", StyleBox["Mathematica", FontSlant->"Italic"], " 2.0, much more able to run out of the box." }], "Text"], Cell[TextData[{ "\n\n", StyleBox["webMathematica is not consumer software, it involves servers \ etc... \n\nHowever, always useful to make installation easier.", FontSlant->"Italic"] }], "Text"] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], \(\(\ \)\(of\)\(\ \)\), CounterBox["SlideShowNavigationBar", "LastSlide"]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell["Extended Documentation and Examples", "Section"], Cell["\<\ Documentation available in HTML on-line from front-page. Also as NB and PDF formats.\ \>", "Text"], Cell["\<\ All important features documented.\ \>", "Text"], Cell["\<\ Extended template system, easier to use.\ \>", "Text"], Cell[TextData[{ "\n", StyleBox["Helps to promote ease of use and energize to benefits.", FontSlant->"Italic"] }], "Text"] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], \(\(\ \)\(of\)\(\ \)\), CounterBox["SlideShowNavigationBar", "LastSlide"]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell["JSP Custom Tags", "Section"], Cell["Alternative HTML templating mechanism.", "Text"], Cell["\<\ Easier to understand, uses standard technology which is very widely used.\ \>", "Text"], Cell["Files have .jsp file extension.", "Text"], Cell["\<\ \t
Enter a polynomial (eg x+y): Enter a positive integer (eg 4):
MSPBlock[{$$expr,$$num}, Expand[$$expr^$$num]]
\t
\ \>", "Program"], Cell["\<\ Very similar to Mathlet idea, everything that works in MSPs works in JSPs. Easy to convert.\ \>", "Text"] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], \(\(\ \)\(of\)\(\ \)\), CounterBox["SlideShowNavigationBar", "LastSlide"]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell[TextData[{ "Use of ", StyleBox["Mathematica", FontSlant->"Italic"], " 4.2" }], "Section"], Cell[TextData[{ "\nweb", StyleBox["Mathematica", FontSlant->"Italic"], " 1.0 ships with ", StyleBox["Mathematica", FontSlant->"Italic"], " 4.1" }], "Text"], Cell[TextData[{ "\nweb", StyleBox["Mathematica", FontSlant->"Italic"], " 2.0 will ship with ", StyleBox["Mathematica", FontSlant->"Italic"], " 4.2" }], "Text"], Cell[TextData[{ "\n", StyleBox["Mathematica", FontSlant->"Italic"], " 4.2 many features relevant for web", StyleBox["Mathematica", FontSlant->"Italic"], ", most important XML support." }], "Text"] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], \(\(\ \)\(of\)\(\ \)\), CounterBox["SlideShowNavigationBar", "LastSlide"]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " XML Support" }], "Section"], Cell["\<\ XML becoming very popular, widely supported in browsers, other applications, \ and tools such as XSLT, and DTDs. \ \>", "Text"], Cell[TextData[{ "Strong support in ", StyleBox["Mathematica:", FontSlant->"Italic"], " XML and ", StyleBox["Mathematica", FontSlant->"Italic"], " share the basic principle of structured data." }], "Text"], Cell["Here is a basic XML file.", "Text"], Cell[BoxData[ \(\(!! coffee.xml\ \)\)], "Input"], Cell[TextData[{ "Import into ", StyleBox["Mathematica", FontSlant->"Italic"] }], "Text"], Cell[BoxData[ \(\(\(xml\)\(=\)\(Import["\"]\)\(\ \)\)\)], "Input"], Cell[TextData[{ "Symbolic representation in ", StyleBox["Mathematica", FontSlant->"Italic"], ", can be worked on with regular ", StyleBox["Mathematica", FontSlant->"Italic"], " techniques." }], "Text"] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], \(\(\ \)\(of\)\(\ \)\), CounterBox["SlideShowNavigationBar", "LastSlide"]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell["Value of XML", "Section"], Cell[CellGroupData[{ Cell["Datafiles", "SubsubsectionIcon"], Cell["No need to invent a special data format, use XML.", "Text"], Cell[TextData[{ "Parsers, formatters, transformation, validators etc... all readily \ available in many places including ", StyleBox["Mathematica", FontSlant->"Italic"], "." }], "Text"] }, Closed]], Cell[CellGroupData[{ Cell["Standard XML Formats", "SubsubsectionIcon"], Cell["\<\ XML is useful for math with MathML, graphics with SVG, and web publishing \ with XHTML.\ \>", "Text"], Cell[TextData[{ "All immediately work well with ", StyleBox["Mathematica", FontSlant->"Italic"], "." }], "Text"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " Support" }], "SubsubsectionIcon"], Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " commands, input, output many controls.\n", StyleBox["Mathematica", FontSlant->"Italic"], " XML dialects: MathML, SVG, also notebooks with NBML, expressions with \ ExpressionML, text with XHTML etc... " }], "Text"], Cell[TextData[{ "Many uses for web", StyleBox["Mathematica", FontSlant->"Italic"], "." }], "Text"], Cell["More information in the XML docs.", "Text"] }, Closed]] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], \(\(\ \)\(of\)\(\ \)\), CounterBox["SlideShowNavigationBar", "LastSlide"]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell[TextData[{ "XML for web", StyleBox["Mathematica", FontSlant->"Italic"] }], "Section"], Cell[CellGroupData[{ Cell["\<\ Standard XML Formats\ \>", "Subsubsection"], Cell["\<\ Especially useful: XHTML and MathML, but also SVG.\ \>", "Text"], Cell[TextData[{ "\n", StyleBox["Benefit for sites where presentation is important.", FontSlant->"Italic"] }], "Text"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ XML Data\ \>", "Subsubsection"], Cell[TextData[{ "\nImport and export XML data with a web", StyleBox["Mathematica", FontSlant->"Italic"], " site. " }], "Text"], Cell["\<\ Useful as an interchange format.\ \>", "Text"], Cell[TextData[{ "\n", StyleBox["Benefit for sites that want to exchange data.", FontSlant->"Italic"] }], "Text"] }, Open ]] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], \(\(\ \)\(of\)\(\ \)\), CounterBox["SlideShowNavigationBar", "LastSlide"]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell["MathML", "Section"], Cell["\<\ Designed to allow mathematical, scientific, and other technical information \ to be served, received, and processed on the World Wide Web. \ \>", "Text"], Cell["\<\ Official recommendation of the World Wide Web Consortium (W3C), working group \ on mathematics.\ \>", "Text"], Cell["\<\ Wolfram Research founding member of the mathematics working group and host of \ the first two official MathML conferences in 2000 and 2002. \ \>", "Text"], Cell[TextData[{ StyleBox["\nMathematica", FontSlant->"Italic"], " contains many features for working with MathML and there is a strong \ relationship between the ", StyleBox["Mathematica", FontSlant->"Italic"], " typesetting system and MathML." }], "Text"], Cell[TextData[{ "\nWolfram Research sponsored web site, ", ButtonBox["http://www.mathmlcentral.com", ButtonData:>{ URL[ "http://www.mathmlcentral.com"], None}, ButtonStyle->"Hyperlink"], " (uses web ", StyleBox["Mathematica", FontSlant->"Italic"], ")." }], "Text"] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], \(\(\ \)\(of\)\(\ \)\), CounterBox["SlideShowNavigationBar", "LastSlide"]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell[TextData[{ "MathML and web", StyleBox["Mathematica", FontSlant->"Italic"] }], "Section"], Cell[TextData[{ "\nUsers of web", StyleBox["Mathematica", FontSlant->"Italic"], " can benefit from MathML in a number of ways. " }], "Text"], Cell[TextData[{ "\n1) Generate MathML dynamically on their web", StyleBox["Mathematica", FontSlant->"Italic"], " site." }], "Text"], Cell[TextData[{ "\n2) Enter MathML into their web browser and send this to web", StyleBox["Mathematica", FontSlant->"Italic"], " for computation." }], "Text"], Cell["\<\ Problem with supporting MathML, all sorts of different technologies \ \[DoubleLongRightArrow] different markup.\ \>", "Text"], Cell["\<\ Solution: XSLT stylesheet that decides which solution is being used.\ \>", "Text"], Cell["\<\ Now browser support for MathML good enough (makes use of general XML \ tools).\ \>", "Text"], Cell[TextData[{ "\nMore discussion in ", ButtonBox["http://www.wolfram.com/products/webmathematica/updates/MathML.\ nb", ButtonData:>{ URL[ "http://www.wolfram.com/products/webmathematica/updates/MathML.nb"], None}, ButtonStyle->"Hyperlink"], "." }], "Text"] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], \(\(\ \)\(of\)\(\ \)\), CounterBox["SlideShowNavigationBar", "LastSlide"]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell[TextData[{ "Generating MathML from web", StyleBox["Mathematica", FontSlant->"Italic"] }], "Section"], Cell["\<\ Page needs to be delivered as an XML page,and to reference the XSLT \ stylesheet. \ \>", "Text"], Cell["\<\ MathML Example \tMSPPageOptions[ \"ContentType\" -> \"text/xml\"]; \tMSPFormat[ Sin[x^2], MathMLForm] \ \>", "Program"], Cell[TextData[{ "See example in action, ", ButtonBox["http://localhost:8080/webMathematica/Examples/MathML/\ IntegrateForm.jsp", ButtonData:>{ URL[ "http://localhost:8080/webMathematica/Examples/MathML/IntegrateForm.\ jsp"], None}, ButtonStyle->"Hyperlink"], "." }], "Text"], Cell["\<\ Works for IE and Mozilla! MathML flows naturally with the XHTML.\ \>", "Text"] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], \(\(\ \)\(of\)\(\ \)\), CounterBox["SlideShowNavigationBar", "LastSlide"]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell["Supported Browsers", "Section"], Cell["Supported in the following browser (plug-ins).", "Text"], Cell["\<\ Windows: \t\[Bullet] Internet Explorer 6.0 with either the MathPlayer or techexplorer \ plug-in \t\[Bullet] Internet Explorer 5.5 with either the MathPlayer or techexplorer \ plug-in \t\[Bullet] Internet Explorer 5.0 with the techexplorer plug-in \t\[Bullet] Netscape 7.0 \t\[Bullet] Netscape 6.1 with the techexplorer plug-in \t\[Bullet] Amaya (Presentation MathML only) \t\[Bullet] Mozilla 1.0 Macintosh: \t\[Bullet] Internet Explorer 5.0 with the techexplorer plug-in \t\[Bullet] Mozilla 0.9.9 Linux/Unix: \t\[Bullet] Netscape 7.0 \t\[Bullet] Netscape 6.1 with the techexplorer plug-in \t\[Bullet] Mozilla 1.0 \t\[Bullet] Amaya (Presentation MathML only) \ \>", "Text"] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], \(\(\ \)\(of\)\(\ \)\), CounterBox["SlideShowNavigationBar", "LastSlide"]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell[TextData[{ "Sending MathML to web", StyleBox["Mathematica", FontSlant->"Italic"] }], "Section", PageBreakAbove->False], Cell["\<\ Not so many different technology solutions, one that works is WebEQ, needs a \ Java enable applet.\ \>", "Text"], Cell[TextData[{ "\nSee example in action, ", ButtonBox["http://localhost:8080/webMathematica/Examples/MathML/\ IntegrateWebEQ.jsp", ButtonData:>{ URL[ "http://localhost:8080/webMathematica/Examples/MathML/IntegrateWebEQ.\ jsp"], None}, ButtonStyle->"Hyperlink"], "." }], "Text"], Cell["\<\ MathML really starting to come of age, supported in main-stream browsers \ etc...\ \>", "Text"], Cell[TextData[{ "\n", StyleBox["MathML useful for education, and for applications where \ presentation is particularly important.", FontSlant->"Italic"] }], "Text"] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], \(\(\ \)\(of\)\(\ \)\), CounterBox["SlideShowNavigationBar", "LastSlide"]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell["SVG", "Section"], Cell["\<\ SVG is a language for describing two-dimensional graphics in XML.\ \>", "Text", CellTags->"MathMLExamples"], Cell["\<\ Developed by a W3C working group, many Adobe applications support SVG, in \ addition Java and C++ support from Apache.\ \>", "Text", CellTags->"MathMLExamples"], Cell[TextData[{ StyleBox["\nMathematica", FontSlant->"Italic"], " 4.2 can generate SVG by conversion from graphics functions:" }], "Text"], Cell[BoxData[ \(Plot[Sin[x], {x, 0, 2}]\)], "Input"], Cell[BoxData[ \(ExportString[%, "\"]\)], "Input"], Cell[TextData[{ "\nCan use the XML tools in ", StyleBox["Mathematica", FontSlant->"Italic"], " 4.2 for processing and modifying the SVG that is generated." }], "Text"] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], \(\(\ \)\(of\)\(\ \)\), CounterBox["SlideShowNavigationBar", "LastSlide"]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell["SVG Rendering", "Section"], Cell["\<\ Variety of technologies, Apache provide a browser, and Adobe support SVG in a \ range of their products. \ \>", "Text"], Cell["\<\ Adobe also supply a browser plug-in.\ \>", "Text"], Cell[TextData[ButtonBox["http://localhost:8080/webMathematica/Examples/SVG/\ Plot.jsp", ButtonData:>{ URL[ "http://localhost:8080/webMathematica/Examples/SVG/Plot.jsp"], None}, ButtonStyle->"Hyperlink"]], "Text"], Cell["\<\ Higher quality picture, can be resized, prints well, integrates with Adobe \ products.\ \>", "Text"], Cell["\<\ File size is often much smaller than an image.\ \>", "Text"], Cell["\<\ Many extra dynamic features.\ \>", "Text"] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], \(\(\ \)\(of\)\(\ \)\), CounterBox["SlideShowNavigationBar", "LastSlide"]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell["Dynamic SVG", "Section"], Cell["\<\ Integration with JavaScript. Integration with Java APIs. Also many animation \ features built-in. \ \>", "Text"], Cell[TextData[ButtonBox["\n\ http://localhost:8080/webMathematica/Examples/SVG/NDSolvePlot.jsp", ButtonData:>{ URL[ "http://localhost:8080/webMathematica/Examples/SVG/NDSolvePlot.jsp"], None}, ButtonStyle->"Hyperlink"]], "Text"], Cell["\<\ Steps involve, solving ODE, plotting solution, generating symbolic XML, \ modifying XML to add animation, generating SVG, returning to browser.\ \>", "Text"], Cell[TextData[{ "\n", StyleBox["SVG provides an interesting alternative for graphics. Especially \ where animation or quality is important.", FontSlant->"Italic"] }], "Text"] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], \(\(\ \)\(of\)\(\ \)\), CounterBox["SlideShowNavigationBar", "LastSlide"]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell["Generating XML", "Section"], Cell["\<\ Convenient way to send structured data from a web site. Quite simple to write \ for this...\ \>", "Text"], Cell["\<\ \tMSPSetOptions[ \"ContentType\" -> \"text/xml\"]; ... \tMakeXMLPhoneList[ d_]:= \t\tXMLElement[ \"PhoneList\",{},Map[ MakeUsers,d]]; \tIf[ MSPValueQ[ $$query], \t\tphoneData = Select[ phoneData, \t\t\t\t\t( StringPosition[#[[1]],$$query]=!={})&]]; \tExportString[ MakeXMLPhoneList[ phoneData], \"XML\"]\t \ \>", "Program"], Cell[TextData[{ "Load URL into browser... ", ButtonBox["http://localhost:8080/webMathematica/Examples/XML/Phone.jsp", ButtonData:>{ URL[ "http://localhost:8080/webMathematica/Examples/XML/Phone.jsp"], None}, ButtonStyle->"Hyperlink"], "." }], "Text"] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], \(\(\ \)\(of\)\(\ \)\), CounterBox["SlideShowNavigationBar", "LastSlide"]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell[TextData[{ "Accessing XML from web", StyleBox["Mathematica", FontSlant->"Italic"], "." }], "Section"], Cell["\<\ Can read into any XML aware application, not just a browser.\ \>", "Text"], Cell[TextData[{ "\nFor example, a ", StyleBox["Mathematica", FontSlant->"Italic"], " function to call to the server." }], "Text"], Cell[BoxData[ \(Contact[query_String] := Cases[XML`Parser`XMLGet["\" <> query], XMLElement["\", x_List, {}] \[RuleDelayed] x, Infinity]\)], "Input"], Cell[BoxData[ \(Contact[\ "\"]\)], "Input"], Cell[TextData[{ "\nThis is a web", StyleBox["Mathematica", FontSlant->"Italic"], " web site connecting to ", StyleBox["Mathematica", FontSlant->"Italic"], "." }], "Text"], Cell[TextData[{ "\n", StyleBox["XML provides a convenient way to transmit structured data, it can \ be validated (etc...) with standard tools.", FontSlant->"Italic"] }], "Text"], Cell[TextData[{ "\n", StyleBox["Leads into notion of web services (can run with web Mathematica \ but out of scope of this talk).", FontSlant->"Italic"] }], "Text"] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], \(\(\ \)\(of\)\(\ \)\), CounterBox["SlideShowNavigationBar", "LastSlide"]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell["HTML Formatting", "Section"], Cell["\<\ Convenient functions for formatting into HTML, supports tables and select.\ \>", "Text"], Cell[TextData[{ "\nCan use in regular ", StyleBox["Mathematica", FontSlant->"Italic"], ", especially useful in web", StyleBox["Mathematica", FontSlant->"Italic"], "." }], "Text"], Cell[BoxData[ \(Needs["\"]\)], "Input"], Cell[BoxData[ \(HTMLTableForm[\ {{a, b}, {c, d}}]\)], "Input"], Cell["Can set attributes, headings etc...", "Text"], Cell[BoxData[ \(HTMLSelect[\ {a, b, c, d}, name]\)], "Input"], Cell[TextData[{ "\n", ButtonBox["http://localhost:8080/webMathematica/Examples/HTML/RegressTable.\ jsp", ButtonData:>{ URL[ "http://localhost:8080/webMathematica/Examples/HTML/RegressTable.jsp"], None}, ButtonStyle->"Hyperlink"] }], "Text"], Cell[TextData[{ "\n", StyleBox["Very convenient to have Mathematica functions for formatting in \ HTML.", FontSlant->"Italic"] }], "Text"] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], \(\(\ \)\(of\)\(\ \)\), CounterBox["SlideShowNavigationBar", "LastSlide"]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell["Uploading Data", "Section"], Cell[TextData[{ "\nImportant new feature of ", Cell[BoxData[ FormBox[ RowBox[{"web", StyleBox[ AdjustmentBox["Mathematica", BoxMargins->{{-0.175, 0}, {0, 0}}], FontSlant->"Italic"]}], TextForm]]], " 2.0." }], "Text"], Cell["\<\ Supported in HTML with multipart/form-data FORM\ \>", "Text"], Cell["\<\
\t

Enter a file to upload:

\t \t \t
\ \>", "Program"] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], \(\(\ \)\(of\)\(\ \)\), CounterBox["SlideShowNavigationBar", "LastSlide"]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell["Uploading Data...", "Section"], Cell[TextData[{ "\nRead into ", StyleBox["Mathematica", FontSlant->"Italic"], " with ", StyleBox["MSPGetUploadFile[]", "MR"], ", file is saved on server in temporary location." }], "Text"], Cell["\<\ \tfile = \"FileName\" /. MSPGetUploadFile[]; \tRead[ file, Record, RecordSeparators-> {}] \ \>", "Program"], Cell["\<\ Also transmits original filename and contenttype. Also support for multiple \ files.\ \>", "Text"], Cell[TextData[{ "\n", StyleBox["Many applications of file upload, basic HTTP feature.", FontSlant->"Italic"] }], "Text"] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], \(\(\ \)\(of\)\(\ \)\), CounterBox["SlideShowNavigationBar", "LastSlide"]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell["Session Support", "Section"], Cell["\<\ Save results in the server from one request to the next\ \>", "Text"], Cell["\<\ \tMSPSessionVariable[ storedInputs, {}]; ...

Current inputs.

\tIf[ StringQ[ $$expr] && StringLength[ $$expr] > 0, \t\t\tstoredInputs = Append[ storedInputs, $$expr]]; \tstoredInputs \ \>", "Program"], Cell["\<\ The variable storedInputs is made a session variable, and is set an initial \ value.\ \>", "Text"], Cell["\<\ Uses HTTP sessions (same as a shopping cart). The value lives in the server \ not the Kernel.\ \>", "Text"], Cell[TextData[{ "\nExample of use, ", ButtonBox["http://localhost:8080/webMathematica/Examples/Data/Session.html", ButtonData:>{ URL[ "http://localhost:8080/webMathematica/Examples/Data/Session.html"], None}, ButtonStyle->"Hyperlink"], "." }], "Text"], Cell["\<\ Store data on server continue to compute with it.\ \>", "Text"], Cell[TextData[{ "\n", StyleBox["Many applications of session support, basic web site feature.", FontSlant->"Italic"] }], "Text"] }, Open ]], Cell[TextData[Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox["\[FirstPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageFirst"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"First Slide"], ButtonBox[ StyleBox["\[LeftPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPagePrevious"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Previous Slide"], ButtonBox[ StyleBox["\[RightPointer]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageNext"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Next Slide"], ButtonBox[ StyleBox["\[LastPage]", "SR"], ButtonFunction:>FrontEndExecute[ { FrontEndToken[ FrontEnd`SelectedNotebook[ ], "ScrollPageLast"]}], ButtonStyle->"SlideHyperlink", ButtonNote->"Last Slide"], " ", ButtonBox[ StyleBox[ RowBox[{ CounterBox["SlideShowNavigationBar"], \(\(\ \)\(of\)\(\ \)\), CounterBox["SlideShowNavigationBar", "LastSlide"]}], "SR"], ButtonFrame->"None"]} }]]]], "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell[TextData[{ "web", StyleBox["Mathematica", FontSlant->"Italic"], " 2.0 Summary" }], "Section", CellTags->"LastSlide"], Cell[TextData[{ "\nFirst update to web", StyleBox["Mathematica", FontSlant->"Italic"], ", many new features." }], "Text"], Cell["\<\ Just shipping in beta.\ \>", "Text"], Cell[TextData[{ "\nIncludes ", StyleBox["Mathematica", FontSlant->"Italic"], " 4.2." }], "Text"], Cell[TextData[{ "\nBeta available to all users of web", StyleBox["Mathematica", FontSlant->"Italic"], " (with upgrade program)." }], "Text"], Cell[TextData[{ "\nTo get beta, get web", StyleBox["Mathematica", FontSlant->"Italic"], "." }], "Text"] }, Open ]] }, FrontEndVersion->"4.2 for Microsoft Windows", ScreenRectangle->{{0, 1280}, {0, 934}}, ScreenStyleEnvironment->"SlideShow", WindowSize->{901, 668}, WindowMargins->{{34, Automatic}, {Automatic, -1}}, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, Magnification->1.5, StyleDefinitions -> Notebook[{ Cell[CellGroupData[{ Cell["Style Definitions for On-line Help", "Subtitle"], Cell["\<\ These styles are carefully tuned for all aspects of the online help. It's \ recommended that they remain unchanged.\ \>", "Text"], Cell[CellGroupData[{ Cell["Style Environment Names", "Section"], Cell[StyleData[All, "Working"], PageWidth->WindowWidth, ShowCellBracket->False, ShowAutoStyles->False, ScriptMinSize->9], Cell[StyleData[All, "Brackets"], PageWidth->WindowWidth, ShowCellBracket->True, ShowAutoStyles->False, ScriptMinSize->9], Cell[StyleData[All, "SlideShow"], PageWidth->WindowWidth, ScrollingOptions->{"PagewiseDisplay"->True}, ScriptMinSize->9], Cell[StyleData[All, "Printout"], PageWidth->PaperWidth, ShowCellBracket->False, ShowAutoStyles->False, ScriptMinSize->5, PrivateFontOptions->{"FontType"->"Outline"}], Cell[StyleData[All, "EnhancedPrintout"], PageWidth->PaperWidth, ShowCellBracket->False, ScriptMinSize->5, FontFamily->"Palatino", PrivateFontOptions->{"FontType"->"Outline"}], Cell[StyleData[All, "EnhancedPrintoutNonGray"], PageWidth->PaperWidth, ShowCellBracket->False, ScriptMinSize->5, FontFamily->"Palatino", PrivateFontOptions->{"FontType"->"Outline"}] }, Open ]], Cell[CellGroupData[{ Cell["Notebook Options", "Section"], Cell["\<\ The options defined for the style below will be used at the Notebook level. \ \ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["Notebook"], PageHeaders->{{Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"], None, Cell[ TextData[ {"Printed from the ", StyleBox[ "Mathematica", FontSlant -> "Italic"], " Help Browser"}], "PageHeader"]}, {Cell[ TextData[ {"Printed from the ", StyleBox[ "Mathematica", FontSlant -> "Italic"], " Help Browser"}], "PageHeader"], None, Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"]}}, PageFooters->{{None, Cell[ TextData[ { "\[Copyright]1988-2002 Wolfram Research, Inc. All rights \ reserved."}], "PageFooter"], None}, {None, Cell[ TextData[ { "\[Copyright]1988-2002 Wolfram Research, Inc. All rights \ reserved."}], "PageFooter"], None}}, PageHeaderLines->{True, True}, PageFooterLines->{True, True}, PrintingOptions->{"FacingPages"->True}, CellLabelAutoDelete->True, CellFrameLabelMargins->6, StyleMenuListing->None], Cell[StyleData["Notebook", "Printout"], PageHeaders->{{Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"], None, Cell[ TextData[ {"Printed from the ", StyleBox[ "Mathematica", FontSlant -> "Italic"], " Help Browser"}], "PageHeader"]}, {Cell[ TextData[ {"Printed from the ", StyleBox[ "Mathematica", FontSlant -> "Italic"], " Help Browser"}], "PageHeader"], None, Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"]}}, PageFooters->{{None, Cell[ TextData[ { "\[Copyright]1988-2002 Wolfram Research, Inc. All rights \ reserved."}], "PageFooter"], None}, {None, Cell[ TextData[ { "\[Copyright]1988-2002 Wolfram Research, Inc. All rights \ reserved."}], "PageFooter"], None}}, PageHeaderLines->{True, True}, PageFooterLines->{True, True}, PrintingOptions->{"FacingPages"->True}], Cell[StyleData["Notebook", "EnhancedPrintout"], PageFooters->{{None, None, None}, {None, None, None}}, PageHeaderLines->{True, True}, PrintingOptions->{"PrintingMargins"->{{62, 62}, {62, 72}}, "PageSize"->{602, 672}, "PrintRegistrationMarks"->True, "FirstPageHeader"->False, "FacingPages"->True}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Headings", "Section"], Cell[CellGroupData[{ Cell[StyleData["Title"], CellFrame->{{0, 0}, {0, 0.25}}, CellMargins->{{18, 30}, {4, 20}}, CellGroupingRules->{"TitleGrouping", 0}, PageBreakBelow->False, CellFrameMargins->9, 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", "Mma"->"Mathematica", "MMA"->"Mathematica", Inherited}, LineSpacing->{0.95, 11}, CounterIncrements->"Title", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}}, FontSize->36], Cell[StyleData["Title", "Presentation"], CellFrame->False, ShowCellBracket->False, CellMargins->{{0, 0}, {0, 0}}, CellGroupingRules->{"SectionGrouping", 10}, PageBreakBelow->False, CellFrameMargins->{{73, 120}, {10, 25}}, CellFrameColor->RGBColor[0.356863, 0.529412, 0.94902], CellFrameLabelMargins->6, LineSpacing->{1, 2}, FontFamily->"Arial", FontSize->30, FontWeight->"Bold", FontColor->GrayLevel[1], Background->RGBColor[0.12903, 0.548394, 0.774197]], Cell[StyleData["Title", "Printout"], CellMargins->{{18, 30}, {4, 0}}, CellFrameMargins->4, FontSize->30] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["Subtitle"], CellMargins->{{18, 30}, {0, 10}}, CellGroupingRules->{"TitleGrouping", 10}, PageBreakBelow->False, 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", "Mma"->"Mathematica", "MMA"->"Mathematica", Inherited}, LineSpacing->{1, 0}, CounterIncrements->"Subtitle", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}}, FontSize->24, FontSlant->"Italic"], Cell[StyleData["Subtitle", "SlideShow"], ShowCellBracket->False, CellMargins->{{18, 30}, {0, 10}}, CellGroupingRules->{"TitleGrouping", 10}, PageBreakBelow->False, 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", "Mma"->"Mathematica", "MMA"->"Mathematica", Inherited}, LineSpacing->{1, 0}, CounterIncrements->"Subtitle", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}}, FontSize->24, FontSlant->"Italic"], Cell[StyleData["Subtitle", "Presentation"], CellFrame->False, ShowCellBracket->False, CellMargins->{{0, 0}, {0, 0}}, PageBreakBelow->False, CellFrameMargins->{{73, 0}, {15, 0}}, CellFrameColor->RGBColor[0.356863, 0.529412, 0.94902], LineSpacing->{1, 0}, FontSize->24, FontColor->GrayLevel[1], Background->RGBColor[0.12903, 0.548394, 0.774197]], Cell[StyleData["Subtitle", "Printout"], CellMargins->{{2, 10}, {12, 8}}, FontSize->18] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["Chapter"], CellFrame->{{0, 0}, {0.5, 0}}, CellMargins->{{12, Inherited}, {10, 40}}, CellGroupingRules->{"TitleGrouping", 0}, PageBreakBelow->False, DefaultNewInlineCellStyle->"None", InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.35999999999999999, \ -0.10000000000000001}, {0, 0}}, BoxBaselineShift -> -0.20000000000000001], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica", "webMathematica"->FormBox[ RowBox[ {"web", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm]}, LanguageCategory->"NaturalLanguage", CounterIncrements->"Title", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, { "Subtitle", 0}, {"Subsubtitle", 0}}, FontFamily->"Helvetica", FontSize->18, FontWeight->"Plain"], Cell[StyleData["Chapter", "Printout"], CellMargins->{{2, 10}, {6, 30}}, FontSize->14], Cell[StyleData["Chapter", "EnhancedPrintout"], CellMargins->{{2, 10}, {6, 30}}, FontFamily->"Futura", FontSize->14], Cell[StyleData["Chapter", "EnhancedPrintoutNonGray"], CellMargins->{{2, 10}, {6, 30}}, FontFamily->"Futura", FontSize->14] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["Section"], CellMargins->{{10, 4}, {12, 18}}, CellGroupingRules->{"SectionGrouping", 30}, ConversionRules:>{"HTML" -> { "

", "

\n"}}, InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.35999999999999999, \ -0.10000000000000001}, {0, 0}}, BoxBaselineShift -> -0.20000000000000001], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica", "webMathematica"->FormBox[ RowBox[ {"web", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm]}, CounterIncrements->"Section", FontFamily->"Helvetica", FontSize->20, FontWeight->"Bold"], Cell[StyleData["Section", "SlideShow"], CellFrame->{{0, 0}, {0, 0.5}}, ShowCellBracket->False, CellMargins->{{0, 0}, {5, 0}}, PageBreakBelow->False, CellFrameMargins->{{36, 36}, {Inherited, 15}}, FontFamily->"Helvetica", FontSize->18, FontWeight->"Bold", FontColor->GrayLevel[1], Background->RGBColor[0.408011, 0.440726, 0.8]], Cell[StyleData["Section", "Printout"], CellMargins->{{2, 0}, {0, 18}}, PageBreakBelow->False, FontSize->18], Cell[StyleData["Section", "EnhancedPrintout"], CellFrame->{{0, 0}, {0.5, 0}}, CellMargins->{{2, Inherited}, {5, 30}}, CellGroupingRules->{"SectionGrouping", 30}, PageBreakBelow->False, CellFrameMargins->8, CounterIncrements->"Section", CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}}, FontFamily->"Futura", FontSize->16], Cell[StyleData["Section", "EnhancedPrintoutNonGray"], CellFrame->{{0, 0}, {0.5, 0}}, CellMargins->{{2, Inherited}, {5, 30}}, CellGroupingRules->{"SectionGrouping", 30}, PageBreakBelow->False, CellFrameMargins->8, CounterIncrements->"Section", CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}}, FontFamily->"Futura", FontSize->16] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SectionFirst"], CellMargins->{{18, 30}, {4, 30}}, CellGroupingRules->{"SectionGrouping", 40}, PageBreakBelow->False, CellFrameMargins->3, 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", "Mma"->"Mathematica", "MMA"->"Mathematica", Inherited}, CounterIncrements->"Section", CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}}, FontSize->18, FontWeight->"Bold"], Cell[StyleData["SectionFirst", "SlideShow"], ShowCellBracket->False, CellMargins->{{18, 30}, {4, 30}}, CellGroupingRules->{"SectionGrouping", 40}, PageBreakBelow->False, CellFrameMargins->3, 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", "Mma"->"Mathematica", "MMA"->"Mathematica", Inherited}, CounterIncrements->"Section", CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}}, FontSize->18, FontWeight->"Bold"], Cell[StyleData["SectionFirst", "Printout"], FontSize->14] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["Subsection"], CellDingbat->"\[FilledSquare]", CellMargins->{{24, 4}, {0, 18}}, CellElementSpacings->{"ClosedGroupTopMargin"->18}, CellGroupingRules->{"SectionGrouping", 40}, ConversionRules:>{"HTML" -> { "
  • ", "

  • \n"}}, CellFrameLabelMargins->6, InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.35999999999999999, \ -0.10000000000000001}, {0, 0}}, BoxBaselineShift -> -0.20000000000000001], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica", "webMathematica"->FormBox[ RowBox[ {"web", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm]}, FontFamily->"Helvetica", FontSize->16, FontWeight->"Bold"], Cell[StyleData["Subsection", "SlideShow"], CellDingbat->None, ShowCellBracket->False, CellMargins->{{70, 0}, {4, 12}}, FontSize->14], Cell[StyleData["Subsection", "Printout"], CellMargins->{{9, 0}, {5, 24}}, FontSize->12], Cell[StyleData["Subsection", "EnhancedPrintout"], CellMargins->{{9, 0}, {5, 20}}, FontFamily->"Futura", FontSize->12], Cell[StyleData["Subsection", "EnhancedPrintoutNonGray"], CellMargins->{{9, 0}, {5, 20}}, FontFamily->"Futura", FontSize->12] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["Subsubsection"], CellMargins->{{10, 4}, {0, 18}}, CellElementSpacings->{"ClosedGroupTopMargin"->18}, CellGroupingRules->{"SectionGrouping", 50}, ConversionRules:>{"HTML" -> {"

    ", "

    \n"}}, InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.35999999999999999, \ -0.10000000000000001}, {0, 0}}, BoxBaselineShift -> -0.20000000000000001], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica", "webMathematica"->FormBox[ RowBox[ {"web", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm]}, FontFamily->"Helvetica", FontSize->12, FontWeight->"Bold"], Cell[StyleData["Subsubsection", "SlideShow"], ShowCellBracket->False, CellMargins->{{10, 4}, {0, 18}}, CellElementSpacings->{"ClosedGroupTopMargin"->18}, CellGroupingRules->{"SectionGrouping", 50}, ConversionRules:>{"HTML" -> {"

    ", "

    \n"}}, InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.35999999999999999, \ -0.10000000000000001}, {0, 0}}, BoxBaselineShift -> -0.20000000000000001], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica", "webMathematica"->FormBox[ RowBox[ {"web", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm]}, FontFamily->"Helvetica", FontSize->12, FontWeight->"Bold"], Cell[StyleData["Subsubsection", "Printout"], CellMargins->{{2, 0}, {3, 8}}, FontSize->10], Cell[StyleData["Subsubsection", "EnhancedPrintout"], CellMargins->{{2, 0}, {3, 8}}, FontFamily->"Futura", FontSize->10], Cell[StyleData["Subsubsection", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {3, 8}}, FontFamily->"Futura", FontSize->10] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["SubsubsectionColor"], CellMargins->{{10, 4}, {0, 18}}, CellElementSpacings->{"ClosedGroupTopMargin"->18}, CellGroupingRules->{"SectionGrouping", 50}, ConversionRules:>{"HTML" -> { "

    ", "

    \n"}}, InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.35999999999999999, \ -0.10000000000000001}, {0, 0}}, BoxBaselineShift -> -0.20000000000000001], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica", "webMathematica"->FormBox[ RowBox[ {"web", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm]}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->12, FontWeight->"Bold", FontColor->RGBColor[0.297993, 0, 0.454994]], Cell[StyleData["SubsubsectionColor", "Printout"], CellMargins->{{2, 0}, {0, 18}}, PageBreakBelow->False, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SubsectionIcon"], ShowGroupOpenCloseIcon->True, CellMargins->{{24, 4}, {0, 18}}, CellElementSpacings->{"ClosedGroupTopMargin"->8}, CellGroupingRules->{"SectionGrouping", 40}, ConversionRules:>{"HTML" -> { "
  • ", "

    \n"}}, InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.35999999999999999, \ -0.10000000000000001}, {0, 0}}, BoxBaselineShift -> -0.20000000000000001], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica", "webMathematica"->FormBox[ RowBox[ {"web", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm]}, CounterIncrements->"Section", FontFamily->"Helvetica", FontSize->16, FontWeight->"Bold"], Cell[StyleData["SubsectionIcon", "SlideShow"], ShowCellBracket->False, ShowGroupOpenCloseIcon->True, CellMargins->{{24, 4}, {0, 18}}, CellElementSpacings->{"ClosedGroupTopMargin"->8}, CellGroupingRules->{"SectionGrouping", 40}, ConversionRules:>{"HTML" -> { "
  • ", "

    \n"}}, InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.35999999999999999, \ -0.10000000000000001}, {0, 0}}, BoxBaselineShift -> -0.20000000000000001], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica", "webMathematica"->FormBox[ RowBox[ {"web", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm]}, CounterIncrements->"Section", FontFamily->"Helvetica", FontSize->16, FontWeight->"Bold"], Cell[StyleData["SubsectionIcon", "Printout"], CellDingbat->"\[FilledSquare]", ShowGroupOpenCloseIcon->False, CellMargins->{{16, 0}, {0, 18}}, PageBreakBelow->False, FontSize->14] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["SubsubsectionIcon"], ShowGroupOpenCloseIcon->True, CellMargins->{{24, 4}, {0, 8}}, CellElementSpacings->{"ClosedGroupTopMargin"->4}, CellGroupingRules->{"SectionGrouping", 50}, ConversionRules:>{"HTML" -> { "
  • ", "

    \n"}}, InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.35999999999999999, \ -0.10000000000000001}, {0, 0}}, BoxBaselineShift -> -0.20000000000000001], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica", "webMathematica"->FormBox[ RowBox[ {"web", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm]}, CounterIncrements->"Subsection", CounterAssignments->{{"Subsubsection", 0}}, FontFamily->"Helvetica", FontSize->12, FontWeight->"Bold"], Cell[StyleData["SubsubsectionIcon", "SlideShow"], ShowCellBracket->False, ShowGroupOpenCloseIcon->True, CellMargins->{{24, 4}, {0, 8}}, CellElementSpacings->{"ClosedGroupTopMargin"->4}, CellGroupingRules->{"SectionGrouping", 50}, ConversionRules:>{"HTML" -> { "
  • ", "

    \n"}}, InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.35999999999999999, \ -0.10000000000000001}, {0, 0}}, BoxBaselineShift -> -0.20000000000000001], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica", "webMathematica"->FormBox[ RowBox[ {"web", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm]}, CounterIncrements->"Subsection", CounterAssignments->{{"Subsubsection", 0}}, FontFamily->"Helvetica", FontSize->12, FontWeight->"Bold"], Cell[StyleData["SubsubsectionIcon", "Printout"], ShowGroupOpenCloseIcon->False, CellMargins->{{2, 0}, {0, 18}}, PageBreakBelow->False, FontSize->10] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Text", "Section"], Cell[CellGroupData[{ Cell[StyleData["Text"], CellMargins->{{10, 4}, {0, 8}}, ConversionRules:>{"HTML" -> {"

    ", "

    "}}, InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.35999999999999999, \ -0.10000000000000001}, {0, 0}}, BoxBaselineShift -> -0.20000000000000001], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica", "webMathematica"->FormBox[ RowBox[ {"web", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm]}, Hyphenation->True, ParagraphSpacing->{0, 8}, FontSize->12], Cell[StyleData["Text", "SlideShow"], ShowCellBracket->False, CellMargins->{{36, 24}, {4, 4}}, Hyphenation->False, FontSize->14], Cell[StyleData["Text", "Printout"], CellMargins->{{2, 2}, {6, 6}}, TextJustification->1, FontSize->10], Cell[StyleData["Text", "EnhancedPrintout"], CellMargins->{{2, 2}, {6, 6}}, TextJustification->1, FontFamily->"Palatino", FontSize->10], Cell[StyleData["Text", "EnhancedPrintoutNonGray"], CellMargins->{{2, 2}, {6, 6}}, TextJustification->1, FontFamily->"Palatino", FontSize->10] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["CompactText"], CellMargins->{{10, 4}, {0, 8}}, ConversionRules:>{"HTML" -> {"", "\n"}}, Hyphenation->True, ParagraphSpacing->{0, 0}, StyleMenuListing->None, FontSize->10], Cell[StyleData["CompactText", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->8], Cell[StyleData["CompactText", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->8], Cell[StyleData["CompactText", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}, FontSize->8] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Compact12Text"], CellMargins->{{10, 4}, {0, 8}}, ConversionRules:>{"HTML" -> {"

    ", "

    "}}, Hyphenation->True, ParagraphSpacing->{0, 0}, StyleMenuListing->None], Cell[StyleData["Compact12Text", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10], Cell[StyleData["Compact12Text", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10], Cell[StyleData["Compact12Text", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TextSans"], CellMargins->{{10, 4}, {0, 8}}, ConversionRules:>{"HTML" -> { "", "\n"}}, CellHorizontalScrolling->True, Hyphenation->True, ParagraphSpacing->{0, 8}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->10], Cell[StyleData["TextSans", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->8], Cell[StyleData["TextSans", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->8], Cell[StyleData["TextSans", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}, FontSize->8] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ItemizedText"], CellMargins->{{19, 4}, {4, 4}}, ConversionRules:>{"HTML" -> {"
    ", "
    "}}, Hyphenation->True, LineSpacing->{1, 3}, ParagraphIndent->-22, CounterIncrements->"ItemizedText", StyleMenuListing->None], Cell[StyleData["ItemizedText", "Printout"], FontSize->10], Cell[StyleData["ItemizedText", "EnhancedPrintout"], CellMargins->{{16, 4}, {2, 4}}, FontFamily->"Palatino", FontSize->10], Cell[StyleData["ItemizedText", "EnhancedPrintoutNonGray"], ParagraphIndent->-18, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ItemizedTextNote"], CellMargins->{{41, 4}, {4, 0}}, ConversionRules:>{"HTML" -> {"
    ", "
    "}}, Hyphenation->True, LineSpacing->{1, 2}, CounterIncrements->"Text", StyleMenuListing->None], Cell[StyleData["ItemizedTextNote", "Printout"], CellMargins->{{34, 4}, {4, 1}}, FontSize->10], Cell[StyleData["ItemizedTextNote", "EnhancedPrintout"], CellMargins->{{39, 4}, {4, 1}}, FontFamily->"Palatino", FontSize->10], Cell[StyleData["ItemizedTextNote", "EnhancedPrintoutNonGray"], CellMargins->{{39, 4}, {4, 1}}, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["IndentedText"], CellMargins->{{20, 4}, {0, 6}}, ConversionRules:>{"HTML" -> {"
    ", "
    "}}, LineSpacing->{1, 3}, CounterIncrements->"Text", StyleMenuListing->None], Cell[StyleData["IndentedText", "SlideShow"], CellMargins->{{80, 24}, {5, 5}}, Hyphenation->False, FontSize->13], Cell[StyleData["IndentedText", "Printout"], FontSize->11], Cell[StyleData["IndentedText", "EnhancedPrintout"], FontFamily->"Palatino", FontSize->10], Cell[StyleData["IndentedText", "EnhancedPrintoutNonGray"], FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["MathCaption"], CellDingbat->"\[FilledSmallSquare]", CellMargins->{{19, 62}, {0, 14}}, ConversionRules:>{"HTML" -> { "
  • ", "

  • "}}, PageBreakBelow->False, CellFrameLabelMargins->4, Hyphenation->True, LineSpacing->{1, 1}, ParagraphSpacing->{0, 8}, FontColor->RGBColor[0, 0, 0.4]], Cell[StyleData["MathCaption", "SlideShow"], ShowCellBracket->False, CellMargins->{{36, 36}, {6, 6}}], Cell[StyleData["MathCaption", "Printout"], CellMargins->{{9, 0}, {0, 14}}, FontSize->9, FontColor->GrayLevel[0]], Cell[StyleData["MathCaption", "EnhancedPrintout"], CellMargins->{{9, 0}, {0, 14}}, FontSize->9, FontColor->GrayLevel[0]], Cell[StyleData["MathCaption", "EnhancedPrintoutNonGray"], CellMargins->{{9, 0}, {0, 14}}, FontSize->9, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SmallText"], CellMargins->{{10, 4}, {0, 8}}, ConversionRules:>{"HTML" -> {"

    ", "

    "}}, Hyphenation->True, LineSpacing->{1, 3}, ParagraphSpacing->{0.7, 0}, CounterIncrements->"SmallText", FontSize->9], Cell[StyleData["SmallText", "Printout"], CellMargins->{{2, 2}, {5, 5}}, TextJustification->1, FontSize->7], Cell[StyleData["SmallText", "EnhancedPrintout"], CellMargins->{{2, 2}, {5, 5}}, TextJustification->1, FontFamily->"Palatino", FontSize->7], Cell[StyleData["SmallText", "EnhancedPrintoutNonGray"], CellMargins->{{2, 2}, {5, 5}}, TextJustification->1, FontFamily->"Palatino", FontSize->7] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Input/Output", "Section"], Cell["\<\ The cells in this section define styles used for input and output to the \ kernel. Be careful when modifying, renaming, or removing these styles, \ because the front end associates special meanings with these style names. \ \ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["Input"], ShowCellBracket->True, CellMargins->{{46, 4}, {3, 8}}, Evaluatable->True, CellGroupingRules->"InputGrouping", PageBreakWithin->False, GroupPageBreakWithin->False, CellLabelAutoDelete->True, CellLabelMargins->{{14, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultInputFormatType, ShowSpecialCharacters->Automatic, "TwoByteSyntaxCharacterAutoReplacement"->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, LanguageCategory->"Mathematica", FormatType->StandardForm, ShowStringCharacters->True, NumberMarks->True, FontWeight->"Bold"], Cell[StyleData["Input", "SlideShow"], ShowCellBracket->False, CellMargins->{{100, 50}, {0, 6}}, PageBreakWithin->False, GroupPageBreakWithin->False, CellFrameMargins->{{8, 8}, {4, 8}}, Background->RGBColor[1, 1, 0.8]], Cell[StyleData["Input", "Printout"], ShowCellBracket->False, CellMargins->{{39, 0}, {4, 6}}, FontSize->9], Cell[StyleData["Input", "EnhancedPrintout"], ShowCellBracket->False, CellMargins->{{39, 0}, {4, 6}}, FontSize->9], Cell[StyleData["Input", "EnhancedPrintoutNonGray"], ShowCellBracket->False, CellMargins->{{39, 0}, {4, 6}}, FontSize->9] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["Output"], ShowCellBracket->True, CellMargins->{{47, 4}, {4, 2}}, CellEditDuplicate->True, CellGroupingRules->"OutputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, CellLabelAutoDelete->True, CellLabelMargins->{{14, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement"->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, AutoItalicWords->{}, LanguageCategory->None, FormatType->StandardForm], Cell[StyleData["Output", "SlideShow"], ShowCellBracket->False, CellMargins->{{100, 50}, {6, 0}}, PageBreakWithin->False, GroupPageBreakWithin->False, CellFrameMargins->{{8, 8}, {8, 4}}, Background->RGBColor[1, 1, 0.8]], Cell[StyleData["Output", "Printout"], ShowCellBracket->False, CellMargins->{{39, 0}, {6, 4}}, FontSize->9], Cell[StyleData["Output", "EnhancedPrintout"], ShowCellBracket->False, CellMargins->{{39, 0}, {6, 4}}, FontSize->9], Cell[StyleData["Output", "EnhancedPrintoutNonGray"], ShowCellBracket->False, CellMargins->{{39, 0}, {6, 4}}, FontSize->9] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["InputOnly"], ShowCellBracket->True, CellMargins->{{46, 4}, {8, 8}}, Evaluatable->True, CellGroupingRules->"InputGrouping", PageBreakWithin->False, GroupPageBreakWithin->False, CellLabelAutoDelete->False, CellLabelMargins->{{14, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultInputFormatType, ShowSpecialCharacters->Automatic, "TwoByteSyntaxCharacterAutoReplacement"->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, LanguageCategory->"Mathematica", FormatType->StandardForm, ShowStringCharacters->True, NumberMarks->True, StyleMenuListing->None, FontWeight->"Bold"], Cell[StyleData["InputOnly", "SlideShow"], ShowCellBracket->True, CellMargins->{{100, 50}, {6, 6}}, PageBreakWithin->False, GroupPageBreakWithin->False, Background->RGBColor[1, 1, 0.8]], Cell[StyleData["InputOnly", "Printout"], ShowCellBracket->False, CellMargins->{{39, 0}, {6, 6}}, FontSize->9], Cell[StyleData["InputOnly", "EnhancedPrintout"], ShowCellBracket->False, CellMargins->{{39, 0}, {6, 6}}, FontSize->9], Cell[StyleData["InputOnly", "EnhancedPrintoutNonGray"], ShowCellBracket->False, CellMargins->{{39, 0}, {6, 6}}, FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Message"], ShowCellBracket->True, CellMargins->{{47, 4}, {4, 2}}, CellGroupingRules->"OutputGrouping", PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, CellLabelMargins->{{14, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement"->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, LanguageCategory->None, FormatType->InputForm, StyleMenuListing->None, FontColor->RGBColor[0, 0, 1]], Cell[StyleData["Message", "SlideShow"], CellMargins->{{100, 50}, {6, 6}}, FontSize->10, FontColor->RGBColor[0.699992, 0.4, 0]], Cell[StyleData["Message", "Printout"], ShowCellBracket->False, CellMargins->{{39, Inherited}, {Inherited, Inherited}}, FontSize->9, FontColor->GrayLevel[0]], Cell[StyleData["Message", "EnhancedPrintout"], ShowCellBracket->False, CellMargins->{{39, Inherited}, {Inherited, Inherited}}, FontFamily->"Courier", FontSize->9, FontColor->GrayLevel[0]], Cell[StyleData["Message", "EnhancedPrintoutNonGray"], ShowCellBracket->False, CellMargins->{{39, Inherited}, {Inherited, Inherited}}, FontFamily->"Courier", FontSize->9, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Print"], ShowCellBracket->True, CellMargins->{{47, 4}, {4, 2}}, CellGroupingRules->"OutputGrouping", PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, CellLabelMargins->{{14, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, "TwoByteSyntaxCharacterAutoReplacement"->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, AutoItalicWords->{}, LanguageCategory->None, FormatType->InputForm, StyleMenuListing->None], Cell[StyleData["Print", "SlideShow"], CellMargins->{{100, 50}, {6, 6}}], Cell[StyleData["Print", "Printout"], ShowCellBracket->False, CellMargins->{{57, Inherited}, {Inherited, Inherited}}, FontSize->9], Cell[StyleData["Print", "EnhancedPrintout"], ShowCellBracket->False, CellMargins->{{57, Inherited}, {Inherited, Inherited}}, FontFamily->"Courier", FontSize->9], Cell[StyleData["Print", "EnhancedPrintoutNonGray"], ShowCellBracket->False, CellMargins->{{57, Inherited}, {Inherited, Inherited}}, FontFamily->"Courier", FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Graphics"], ShowCellBracket->True, CellMargins->{{47, 4}, {4, 2}}, CellGroupingRules->"GraphicsGrouping", PageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, DefaultFormatType->DefaultFormatTypeForOutput, LanguageCategory->None, FormatType->InputForm, StyleMenuListing->None, FontWeight->"Plain"], Cell[StyleData["Graphics", "SlideShow"], ShowCellBracket->True, CellMargins->{{100, 50}, {6, 0}}, PageBreakWithin->False, GroupPageBreakWithin->False, CellFrameMargins->{{8, 8}, {4, 4}}, Background->RGBColor[1, 1, 0.8]], Cell[StyleData["Graphics", "Printout"], ShowCellBracket->False, CellMargins->{{39, Inherited}, {Inherited, Inherited}}, ImageSize->{250, 250}, FontSize->9], Cell[StyleData["Graphics", "EnhancedPrintout"], ShowCellBracket->False, CellMargins->{{32, Inherited}, {Inherited, Inherited}}, ImageSize->{250, 250}, FontFamily->"Courier", FontSize->9], Cell[StyleData["Graphics", "EnhancedPrintoutNonGray"], ShowCellBracket->False, CellMargins->{{32, Inherited}, {Inherited, Inherited}}, ImageSize->{250, 250}, FontFamily->"Courier", FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["CellLabel"], LanguageCategory->None, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->9, FontWeight->"Plain", FontColor->RGBColor[0, 0, 1]], Cell[StyleData["CellLabel", "SlideShow"], FontColor->RGBColor[0.699992, 0.4, 0]], Cell[StyleData["CellLabel", "Printout"], FontFamily->"Courier", FontSize->8, FontSlant->"Italic", FontColor->GrayLevel[0]], Cell[StyleData["CellLabel", "EnhancedPrintout"], FontFamily->"Courier", FontSize->8, FontSlant->"Italic", FontColor->GrayLevel[0]], Cell[StyleData["CellLabel", "EnhancedPrintoutNonGray"], FontFamily->"Courier", FontSize->8, FontSlant->"Italic", FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Name"], StyleMenuListing->None, FontFamily->"Helvetica", FontSize->9, FontWeight->"Plain", FontSlant->"Italic", FontColor->RGBColor[0, 0, 1]], Cell[StyleData["Name", "Printout"], FontSize->7, FontColor->GrayLevel[0]], Cell[StyleData["Name", "EnhancedPrintout"], FontSize->7, FontColor->GrayLevel[0]], Cell[StyleData["Name", "EnhancedPrintoutNonGray"], FontSize->7, FontColor->GrayLevel[0]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Hyperlinks", "Section"], Cell["\<\ The cells below define styles useful for making hypertext ButtonBoxes. The \ \"Hyperlink\" style is for links within the same Notebook, or between \ Notebooks. The others point to the various sections of the help browser. \ These styles will modify individual words or letters in a cell exclusive of \ the cell tag.\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["Hyperlink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookLocate[ #2]}]&), Active->True, ButtonNote->ButtonData}], Cell[StyleData["Hyperlink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["Hyperlink", "EnhancedPrintout"], FontFamily->"Palatino", FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["Hyperlink", "EnhancedPrintoutNonGray"], FontFamily->"Palatino", FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["MainBookLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "MainBook", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["MainBookLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["MainBookLink", "EnhancedPrintout"], FontFamily->"Palatino", FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["MainBookLink", "EnhancedPrintoutNonGray"], FontFamily->"Palatino", FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["MainBookLinkMR"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontFamily->"Courier", FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "MainBook", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["MainBookLinkMR", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["MainBookLinkMR", "EnhancedPrintout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["MainBookLinkMR", "EnhancedPrintoutNonGray"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["AddOnsLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontFamily->"Courier", FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "AddOns", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["AddOnsLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["AddOnsLink", "EnhancedPrintout"], FontFamily->"WRICourier", FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["AddOnsLink", "EnhancedPrintoutNonGray"], FontFamily->"WRICourier", FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["AddOnsLinkText"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontFamily->"Times", FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "AddOns", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["AddOnsLinkText", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["AddOnsLinkText", "EnhancedPrintout"], FontFamily->"Palatino", FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["AddOnsLinkText", "EnhancedPrintoutNonGray"], FontFamily->"Palatino", FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["RefGuideLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontFamily->"Courier", FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "RefGuide", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["RefGuideLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["RefGuideLink", "EnhancedPrintout"], FontFamily->"WRICourier", FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["RefGuideLink", "EnhancedPrintoutNonGray"], FontFamily->"WRICourier", FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["GettingStartedLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "GettingStarted", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["GettingStartedLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["GettingStartedLink", "EnhancedPrintout"], FontFamily->"Palatino", FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["GettingStartedLink", "EnhancedPrintoutNonGray"], FontFamily->"Palatino", FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["OtherInformationLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "OtherInformation", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["OtherInformationLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["OtherInformationLink", "EnhancedPrintout"], FontFamily->"Palatino", FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["OtherInformationLink", "EnhancedPrintoutNonGray"], FontFamily->"Palatino", FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["OtherInformationLinkMR"], StyleMenuListing->None, FontFamily->"Courier", FontColor->RGBColor[0, 0, 1], FontVariations->{"Underline"->True}, ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "OtherInformation", #]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["OtherInformationLinkMR", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["OtherInformationLinkMR", "EnhancedPrintout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}], Cell[StyleData["OtherInformationLinkMR", "EnhancedPrintoutNonGray"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Palette Styles", "Section"], Cell["\<\ The cells below define styles that define standard ButtonFunctions, for use \ in palette buttons.\ \>", "Text"], 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["Inline Formatting", "Section"], Cell["\<\ These styles are for modifying individual words or letters in a cell \ exclusive of the cell tag.\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["JT"], StyleMenuListing->None, FontFamily->"JFontText"], Cell[StyleData["JT", "Printout"]], Cell[StyleData["JT", "EnhancedPrintout"]], Cell[StyleData["JT", "EnhancedPrintoutNonGray"]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["JS"], StyleMenuListing->None, FontFamily->"JFontSans"], Cell[StyleData["JS", "Printout"]], Cell[StyleData["JS", "EnhancedPrintout"]], Cell[StyleData["JS", "EnhancedPrintoutNonGray"]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["JSB"], StyleMenuListing->None, FontFamily->"JFontSansBold"], Cell[StyleData["JSB", "Printout"]], Cell[StyleData["JSB", "EnhancedPrintout"]], Cell[StyleData["JSB", "EnhancedPrintoutNonGray"]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["RM"], StyleMenuListing->None, FontWeight->"Plain", FontSlant->"Plain"], Cell[StyleData["RM", "Printout"]], Cell[StyleData["RM", "EnhancedPrintout"]], Cell[StyleData["RM", "EnhancedPrintoutNonGray"]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["BF"], ConversionRules:>{"HTML" -> {"", ""}}, StyleMenuListing->None, FontWeight->"Bold"], Cell[StyleData["BF", "Printout"]], Cell[StyleData["BF", "EnhancedPrintout"]], Cell[StyleData["BF", "EnhancedPrintoutNonGray"]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["IT"], ConversionRules:>{"HTML" -> {"", ""}}, StyleMenuListing->None, FontSlant->"Italic"], Cell[StyleData["IT", "Printout"]], Cell[StyleData["IT", "EnhancedPrintout"]], Cell[StyleData["IT", "EnhancedPrintoutNonGray"]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TR"], StyleMenuListing->None, FontFamily->"Times", FontWeight->"Plain", FontSlant->"Plain"], Cell[StyleData["TR", "Printout"]], Cell[StyleData["TR", "EnhancedPrintout"]], Cell[StyleData["TR", "EnhancedPrintoutNonGray"]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TI"], ConversionRules:>{"HTML" -> {"", ""}}, StyleMenuListing->None, FontFamily->"Times", FontSlant->"Italic"], Cell[StyleData["TI", "Printout"]], Cell[StyleData["TI", "EnhancedPrintout"]], Cell[StyleData["TI", "EnhancedPrintoutNonGray"]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TB"], ConversionRules:>{"HTML" -> {"", ""}}, StyleMenuListing->None, FontFamily->"Times", FontWeight->"Bold", FontSlant->"Plain"], Cell[StyleData["TB", "Printout"]], Cell[StyleData["TB", "EnhancedPrintout"], FontFamily->"Palatino"], Cell[StyleData["TB", "EnhancedPrintoutNonGray"], FontFamily->"Palatino"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TBI"], ConversionRules:>{"HTML" -> {"", ""}}, StyleMenuListing->None, FontFamily->"Times", FontWeight->"Bold", FontSlant->"Italic"], Cell[StyleData["TBI", "Printout"]], Cell[StyleData["TBI", "EnhancedPrintout"], FontFamily->"Palatino"], Cell[StyleData["TBI", "EnhancedPrintoutNonGray"], FontFamily->"Palatino"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["MR"], ConversionRules:>{"HTML" -> {"", ""}}, Hyphenation->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, StyleMenuListing->None, FontFamily->"Courier", FontWeight->"Plain", FontSlant->"Plain"], Cell[StyleData["MR", "Printout"]], Cell[StyleData["MR", "EnhancedPrintout"], FontFamily->"WriCourier"], Cell[StyleData["MR", "EnhancedPrintoutNonGray"], FontFamily->"WriCourier"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["MO"], ConversionRules:>{"HTML" -> {"", ""}}, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, StyleMenuListing->None, FontFamily->"Courier", FontWeight->"Plain", FontSlant->"Italic"], Cell[StyleData["MO", "Printout"]], Cell[StyleData["MO", "EnhancedPrintout"], FontFamily->"WriCourier"], Cell[StyleData["MO", "EnhancedPrintoutNonGray"], FontFamily->"WriCourier"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["MB"], ConversionRules:>{"HTML" -> {"", ""}}, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, StyleMenuListing->None, FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Plain"], Cell[StyleData["MB", "Printout"]], Cell[StyleData["MB", "EnhancedPrintout"], FontFamily->"WriCourier"], Cell[StyleData["MB", "EnhancedPrintoutNonGray"], FontFamily->"WriCourier"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["MBO"], ConversionRules:>{"HTML" -> {"", ""}}, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, StyleMenuListing->None, FontFamily->"Courier", FontWeight->"Bold", FontSlant->"Italic"], Cell[StyleData["MBO", "Printout"]], Cell[StyleData["MBO", "EnhancedPrintout"], FontFamily->"WriCourier"], Cell[StyleData["MBO", "EnhancedPrintoutNonGray"], FontFamily->"WriCourier"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SR"], ConversionRules:>{"HTML" -> {"", ""}}, StyleMenuListing->None, FontFamily->"Helvetica", FontWeight->"Plain", FontSlant->"Plain"], Cell[StyleData["SR", "Printout"]], Cell[StyleData["SR", "EnhancedPrintout"], FontFamily->"Futura"], Cell[StyleData["SR", "EnhancedPrintoutNonGray"], FontFamily->"Futura"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SO"], ConversionRules:>{"HTML" -> {"", ""}}, StyleMenuListing->None, FontFamily->"Helvetica", FontWeight->"Plain", FontSlant->"Italic"], Cell[StyleData["SO", "Printout"], ConversionRules:>{"HTML" -> {"", ""}}, StyleMenuListing->None, FontFamily->"Helvetica", FontWeight->"Plain", FontSlant->"Italic"], Cell[StyleData["SO", "EnhancedPrintout"], FontFamily->"Futura"], Cell[StyleData["SO", "EnhancedPrintoutNonGray"], FontFamily->"Futura"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SB"], ConversionRules:>{"HTML" -> {"", ""}}, StyleMenuListing->None, FontFamily->"Helvetica", FontWeight->"Bold", FontSlant->"Plain"], Cell[StyleData["SB", "Printout"], ConversionRules:>{"HTML" -> {"", ""}}, StyleMenuListing->None, FontFamily->"Helvetica", FontWeight->"Bold", FontSlant->"Plain"], Cell[StyleData["SB", "EnhancedPrintout"], FontFamily->"Futura"], Cell[StyleData["SB", "EnhancedPrintoutNonGray"], FontFamily->"Futura"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SBO"], ConversionRules:>{"HTML" -> {"", ""}}, StyleMenuListing->None, FontFamily->"Helvetica", FontWeight->"Bold", FontSlant->"Italic"], Cell[StyleData["SBO", "Printout"], ConversionRules:>{"HTML" -> {"", ""}}, StyleMenuListing->None, FontFamily->"Helvetica", FontWeight->"Bold", FontSlant->"Italic"], Cell[StyleData["SBO", "EnhancedPrintout"], FontFamily->"Futura"], Cell[StyleData["SBO", "EnhancedPrintoutNonGray"], FontFamily->"Futura"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["M4"], ShowCellBracket->True, StyleMenuListing->None, FontFamily->"Math4", CharacterEncoding->"Math4"], Cell[StyleData["M4", "Printout"], ShowCellBracket->True, StyleMenuListing->None, FontFamily->"Math4", CharacterEncoding->"Math4"], Cell[StyleData["M4", "EnhancedPrintout"], ShowCellBracket->True, StyleMenuListing->None, FontFamily->"Math4", CharacterEncoding->"Math4"], Cell[StyleData["M4", "EnhancedPrintoutNonGray"], ShowCellBracket->True, StyleMenuListing->None, FontFamily->"Math4", CharacterEncoding->"Math4"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SO10"], ConversionRules:>{"HTML" -> {"", ""}}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->10, FontWeight->"Plain", FontSlant->"Italic"], Cell[StyleData["SO10", "Printout"], StyleMenuListing->None, FontFamily->"Helvetica", FontSize->8, FontWeight->"Plain", FontSlant->"Italic"], Cell[StyleData["SO10", "EnhancedPrintout"], StyleMenuListing->None, FontFamily->"Futura", FontSize->8, FontWeight->"Plain", FontSlant->"Italic"], Cell[StyleData["SO10", "EnhancedPrintoutNonGray"], StyleMenuListing->None, FontFamily->"Futura", FontSize->8, FontWeight->"Plain", FontSlant->"Italic"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["C1"], StyleMenuListing->None, FontColor->RGBColor[0.4, 0, 1]], Cell[StyleData["C1", "Printout"], FontColor->GrayLevel[0]], Cell[StyleData["C1", "EnhancedPrintout"], FontColor->GrayLevel[0]], Cell[StyleData["C1", "EnhancedPrintoutNonGray"], FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["C1MR"], StyleMenuListing->None, FontFamily->"Courier", FontColor->RGBColor[0.4, 0, 1]], Cell[StyleData["C1MR", "Printout"], FontColor->GrayLevel[0]], Cell[StyleData["C1MR", "EnhancedPrintout"], FontColor->GrayLevel[0]], Cell[StyleData["C1MR", "EnhancedPrintoutNonGray"], FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["CapSmallCaps"], StyleMenuListing->None, FontFamily->"Helvetica", FontWeight->"Plain", FontSlant->"Plain"], Cell[StyleData["CapSmallCaps", "Printout"]], Cell[StyleData["CapSmallCaps", "EnhancedPrintout"], FontFamily->"Futura"], Cell[StyleData["CapSmallCaps", "EnhancedPrintoutNonGray"], FontFamily->"Futura"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["KeyboardChars"], StyleMenuListing->None, FontSize->12], Cell[StyleData["KeyboardChars", "Printout"], FontSize->10], Cell[StyleData["KeyboardChars", "EnhancedPrintout"], FontSize->10], Cell[StyleData["KeyboardChars", "EnhancedPrintoutNonGray"], FontSize->10] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Emphasis Boxes and Pictures", "Section"], Cell[CellGroupData[{ Cell[StyleData["Box"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, StyleMenuListing->None, Background->RGBColor[1, 0.6, 0.6], FrameBoxOptions->{BoxFrame->0.5, BoxMargins->True}, GridBoxOptions->{ColumnSpacings->1}], Cell[StyleData["Box", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["Box", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["Box", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DoubleBox"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, StyleMenuListing->None, Background->RGBColor[1, 0.6, 0.6], FrameBoxOptions->{BoxFrame->0.5, BoxMargins->True}, GridBoxOptions->{ColumnSpacings->2, RowAlignments->Top}], Cell[StyleData["DoubleBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["DoubleBox", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["DoubleBox", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["1ColumnBox"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, LineIndent->0, StyleMenuListing->None, Background->RGBColor[1, 0.6, 0.6], FrameBoxOptions->{BoxFrame->0.5, BoxMargins->True}, GridBoxOptions->{ColumnSpacings->1}], Cell[StyleData["1ColumnBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["1ColumnBox", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["1ColumnBox", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["2ColumnBox"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, LineIndent->0, StyleMenuListing->None, Background->RGBColor[1, 0.6, 0.6], FrameBoxOptions->{BoxFrame->0.5, BoxMargins->True}, GridBoxOptions->{ColumnWidths->{0.31, 0.67}}], Cell[StyleData["2ColumnBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->9, Background->GrayLevel[0.900008]], Cell[StyleData["2ColumnBox", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->9, Background->GrayLevel[0.900008]], Cell[StyleData["2ColumnBox", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}, FontSize->9, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["2ColumnEvenBox"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, LineIndent->0, StyleMenuListing->None, Background->RGBColor[1, 0.6, 0.6], FrameBoxOptions->{BoxFrame->0.5, BoxMargins->True}, GridBoxOptions->{ColumnWidths->0.46}], Cell[StyleData["2ColumnEvenBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["2ColumnEvenBox", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["2ColumnEvenBox", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["2ColumnSmallBox"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, LineIndent->0, StyleMenuListing->None, Background->RGBColor[1, 0.6, 0.6], FrameBoxOptions->{BoxFrame->0.5, BoxMargins->True}, GridBoxOptions->{ColumnSpacings->1.5, ColumnWidths->0.35, ColumnAlignments->{Right, Left}}], Cell[StyleData["2ColumnSmallBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["2ColumnSmallBox", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["2ColumnSmallBox", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["3ColumnBox"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, LineIndent->0, StyleMenuListing->None, Background->RGBColor[1, 0.6, 0.6], FrameBoxOptions->{BoxFrame->0.5, BoxMargins->True}, GridBoxOptions->{ColumnWidths->0.32}], Cell[StyleData["3ColumnBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["3ColumnBox", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["3ColumnBox", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["3ColumnSmallBox"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, LineIndent->0, StyleMenuListing->None, Background->RGBColor[1, 0.6, 0.6], FrameBoxOptions->{BoxFrame->0.5, BoxMargins->True}, GridBoxOptions->{ColumnSpacings->1.5, ColumnWidths->0.24, ColumnAlignments->{Right, Center, Left}}], Cell[StyleData["3ColumnSmallBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["3ColumnSmallBox", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["3ColumnSmallBox", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["4ColumnBox"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, LineIndent->0, StyleMenuListing->None, Background->RGBColor[1, 0.6, 0.6], FrameBoxOptions->{BoxFrame->0.5, BoxMargins->True}, GridBoxOptions->{ColumnWidths->{0.13, 0.35, 0.13, 0.35}}], Cell[StyleData["4ColumnBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["4ColumnBox", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["4ColumnBox", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["5ColumnBox"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, LineIndent->0, StyleMenuListing->None, Background->RGBColor[1, 0.6, 0.6], FrameBoxOptions->{BoxFrame->0.5, BoxMargins->True}, GridBoxOptions->{ColumnWidths->0.202}], Cell[StyleData["5ColumnBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->9, Background->GrayLevel[0.900008]], Cell[StyleData["5ColumnBox", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->9, Background->GrayLevel[0.900008]], Cell[StyleData["5ColumnBox", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}, FontSize->9, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["6ColumnBox"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, LineIndent->0, StyleMenuListing->None, Background->RGBColor[1, 0.6, 0.6], FrameBoxOptions->{BoxFrame->0.5, BoxMargins->True}, GridBoxOptions->{ColumnWidths->{0.12, 0.22, 0.12, 0.12, 0.22, 0.12}}], Cell[StyleData["6ColumnBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["6ColumnBox", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["6ColumnBox", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["FramedBox"], CellFrame->0.5, CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnAlignments->{Left}}], Cell[StyleData["FramedBox", "Printout"], CellMargins->{{2, 4}, {0, 8}}, FontSize->10, Background->GrayLevel[1]], Cell[StyleData["FramedBox", "EnhancedPrintout"], CellMargins->{{2, 4}, {0, 8}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[1]], Cell[StyleData["FramedBox", "EnhancedPrintoutNonGray"], CellMargins->{{2, 4}, {0, 8}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DefinitionBox"], CellFrame->0.5, CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.4, 0.6}, ColumnAlignments->{Left}}], Cell[StyleData["DefinitionBox", "Printout"], CellMargins->{{2, 4}, {0, 8}}, FontSize->10, Background->GrayLevel[1]], Cell[StyleData["DefinitionBox", "EnhancedPrintout"], CellMargins->{{2, 4}, {0, 8}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[1]], Cell[StyleData["DefinitionBox", "EnhancedPrintoutNonGray"], CellMargins->{{2, 4}, {0, 8}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DefinitionBox3Col"], CellFrame->0.5, CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.35, 0.2, 0.45}, ColumnAlignments->{Left}}], Cell[StyleData["DefinitionBox3Col", "Printout"], CellMargins->{{2, 4}, {0, 8}}, FontSize->10, Background->GrayLevel[1]], Cell[StyleData["DefinitionBox3Col", "EnhancedPrintout"], CellMargins->{{2, 4}, {0, 8}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[1]], Cell[StyleData["DefinitionBox3Col", "EnhancedPrintoutNonGray"], CellMargins->{{2, 4}, {0, 8}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DefinitionBox4Col"], CellFrame->0.5, CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.15, 0.35, 0.15, 0.35}, ColumnAlignments->{Left}}], Cell[StyleData["DefinitionBox4Col", "Printout"], CellMargins->{{2, 4}, {0, 8}}, FontSize->10, Background->GrayLevel[1]], Cell[StyleData["DefinitionBox4Col", "EnhancedPrintout"], CellMargins->{{2, 4}, {0, 8}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[1]], Cell[StyleData["DefinitionBox4Col", "EnhancedPrintoutNonGray"], CellMargins->{{2, 4}, {0, 8}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DefinitionBox5Col"], CellFrame->0.5, CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->0.2, ColumnAlignments->{Left}}], Cell[StyleData["DefinitionBox5Col", "Printout"], CellMargins->{{2, 4}, {0, 8}}, FontSize->10, Background->GrayLevel[1]], Cell[StyleData["DefinitionBox5Col", "EnhancedPrintout"], CellMargins->{{2, 4}, {0, 8}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[1]], Cell[StyleData["DefinitionBox5Col", "EnhancedPrintoutNonGray"], CellMargins->{{2, 4}, {0, 8}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DefinitionBox6Col"], CellFrame->0.5, CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.13, 0.24, 0.13, 0.13, 0.24, 0.13}, ColumnAlignments->{Left}}], Cell[StyleData["DefinitionBox6Col", "Printout"], CellMargins->{{2, 4}, {0, 8}}, FontSize->10, Background->GrayLevel[1]], Cell[StyleData["DefinitionBox6Col", "EnhancedPrintout"], CellMargins->{{2, 4}, {0, 8}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[1]], Cell[StyleData["DefinitionBox6Col", "EnhancedPrintoutNonGray"], CellMargins->{{2, 4}, {0, 8}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TopBox"], CellFrame->{{0.5, 0.5}, {0, 0.5}}, CellMargins->{{11, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakBelow->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.31, 0.62}, ColumnAlignments->{Left}}], Cell[StyleData["TopBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, Background->GrayLevel[1]], Cell[StyleData["TopBox", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, FontFamily->"Palatino", Background->GrayLevel[1]], Cell[StyleData["TopBox", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}, FontFamily->"Palatino", Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["MiddleBox"], CellFrame->{{0.5, 0.5}, {0, 0}}, CellMargins->{{11, 4}, {0, -7}}, CellHorizontalScrolling->True, PageBreakAbove->False, PageBreakBelow->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.31, 0.62}, ColumnAlignments->{Left}}], Cell[StyleData["MiddleBox", "Printout"], CellMargins->{{2, 0}, {0, 2}}, Background->GrayLevel[1]], Cell[StyleData["MiddleBox", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 4}}, FontFamily->"Palatino", Background->GrayLevel[1]], Cell[StyleData["MiddleBox", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 4}}, FontFamily->"Palatino", Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["BottomBox"], CellFrame->{{0.5, 0.5}, {0.5, 0}}, CellMargins->{{11, 4}, {0, -7}}, CellHorizontalScrolling->True, PageBreakAbove->False, PageBreakBelow->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.31, 0.62}, ColumnAlignments->{Left}}], Cell[StyleData["BottomBox", "Printout"], CellMargins->{{2, 0}, {0, -5}}, FontSize->10, Background->GrayLevel[1], GridBoxOptions->{RowMinHeight->2.2}], Cell[StyleData["BottomBox", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, -5}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[1], GridBoxOptions->{RowMinHeight->2.2}], Cell[StyleData["BottomBox", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, -5}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[1], GridBoxOptions->{RowMinHeight->2.2}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TopSpanBox"], CellFrame->{{0.5, 0.5}, {0, 0.5}}, CellMargins->{{11, 4}, {-2, 8}}, CellHorizontalScrolling->True, PageBreakBelow->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.9, 0.03}, ColumnAlignments->{Left}}], Cell[StyleData["TopSpanBox", "Printout"], CellMargins->{{2, 0}, {-2, 8}}, FontSize->10, Background->GrayLevel[1]], Cell[StyleData["TopSpanBox", "EnhancedPrintout"], CellMargins->{{2, 0}, {-4, 8}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[1]], Cell[StyleData["TopSpanBox", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {-4, 8}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["MiddleSpanBox"], CellFrame->{{0.5, 0.5}, {0, 0}}, CellMargins->{{11, 4}, {0, 0}}, CellHorizontalScrolling->True, PageBreakAbove->False, PageBreakBelow->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.9, 0.03}, ColumnAlignments->{Left}}], Cell[StyleData["MiddleSpanBox", "Printout"], CellMargins->{{2, 0}, {-5, 0}}, FontSize->10, Background->GrayLevel[1], GridBoxOptions->{RowMinHeight->1.8}], Cell[StyleData["MiddleSpanBox", "EnhancedPrintout"], CellMargins->{{2, 0}, {-7, 0}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[1], GridBoxOptions->{RowMinHeight->1.8}], Cell[StyleData["MiddleSpanBox", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {-7, 0}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[1], GridBoxOptions->{RowMinHeight->1.8}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Picture"], CellMargins->{{10, Inherited}, {4, 4}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, StyleMenuListing->None], Cell[StyleData["Picture", "Printout"], CellMargins->{{2, Inherited}, {4, 4}}, Magnification->0.65], Cell[StyleData["Picture", "EnhancedPrintout"], CellMargins->{{2, Inherited}, {4, 2}}, Magnification->0.65], Cell[StyleData["Picture", "EnhancedPrintoutNonGray"], CellMargins->{{2, Inherited}, {4, 2}}, Magnification->0.65] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["OpenCloseItemizedPicture"], CellMargins->{{41, 4}, {4, 4}}, PrivateCellOptions->{"DefaultCellGroupOpen"->False}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, StyleMenuListing->None], Cell[StyleData["OpenCloseItemizedPicture", "Printout"], CellMargins->{{76, 2}, {0, 0}}, CellElementSpacings->{"CellMinHeight"->1, "ClosedCellHeight"->0}, CellOpen->False], Cell[StyleData["OpenCloseItemizedPicture", "EnhancedPrintout"], CellMargins->{{76, 2}, {0, 0}}, CellElementSpacings->{"CellMinHeight"->1, "ClosedCellHeight"->0}, CellOpen->False], Cell[StyleData["OpenCloseItemizedPicture", "EnhancedPrintoutNonGray"], CellMargins->{{76, 2}, {0, 0}}, CellElementSpacings->{"CellMinHeight"->1, "ClosedCellHeight"->0}, CellOpen->False] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ItemizedPicture"], CellMargins->{{41, 4}, {4, 4}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, StyleMenuListing->None], Cell[StyleData["ItemizedPicture", "Printout"], CellMargins->{{77, 2}, {4, -4}}, Magnification->0.5], Cell[StyleData["ItemizedPicture", "EnhancedPrintout"], CellMargins->{{78, 2}, {12, -6}}, Magnification->0.5], Cell[StyleData["ItemizedPicture", "EnhancedPrintoutNonGray"], CellMargins->{{75, 2}, {4, -6}}, Magnification->0.5] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["PictureGroup"], CellMargins->{{41, 4}, {0, 4}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, StyleMenuListing->None], Cell[StyleData["PictureGroup", "Printout"], CellMargins->{{76, 2}, {0, 0}}, CellElementSpacings->{"CellMinHeight"->1, "ClosedCellHeight"->0}, CellOpen->False], Cell[StyleData["PictureGroup", "EnhancedPrintout"], CellMargins->{{76, 2}, {0, 0}}, CellElementSpacings->{"CellMinHeight"->1, "ClosedCellHeight"->0}, CellOpen->False], Cell[StyleData["PictureGroup", "EnhancedPrintoutNonGray"], CellMargins->{{76, 2}, {0, 0}}, CellElementSpacings->{"CellMinHeight"->1, "ClosedCellHeight"->0}, CellOpen->False] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Sound"], ShowCellBracket->True, CellMargins->{{10, Inherited}, {0, 8}}, StyleMenuListing->None], Cell[StyleData["Sound", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10], Cell[StyleData["Sound", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10], Cell[StyleData["Sound", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Caption"], CellMargins->{{10, 4}, {0, 3}}, PageBreakAbove->False, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->9], Cell[StyleData["Caption", "Printout"], CellMargins->{{2, 4}, {2, 0}}, FontSize->7], Cell[StyleData["Caption", "EnhancedPrintout"], CellMargins->{{5, 4}, {2, -2}}, FontFamily->"Futura", FontSize->7], Cell[StyleData["Caption", "EnhancedPrintoutNonGray"], CellMargins->{{5, 4}, {2, -2}}, FontFamily->"Futura", FontSize->7] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Tables", "Section"], Cell[CellGroupData[{ Cell[StyleData["2ColumnTable"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, LineIndent->0, StyleMenuListing->None, GridBoxOptions->{ColumnWidths->{0.34, 0.64}, ColumnAlignments->{Left}}], Cell[StyleData["2ColumnTable", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->9], Cell[StyleData["2ColumnTable", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->9], Cell[StyleData["2ColumnTable", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}, FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["2ColumnEvenTable"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, LineIndent->0, StyleMenuListing->None, GridBoxOptions->{ColumnWidths->0.49, ColumnAlignments->{Left}}], Cell[StyleData["2ColumnEvenTable", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->9], Cell[StyleData["2ColumnEvenTable", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->9], Cell[StyleData["2ColumnEvenTable", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}, FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["3ColumnTable"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, LineIndent->0, StyleMenuListing->None, GridBoxOptions->{ColumnWidths->{0.28, 0.28, 0.43}, ColumnAlignments->{Left}}], Cell[StyleData["3ColumnTable", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->9], Cell[StyleData["3ColumnTable", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->9], Cell[StyleData["3ColumnTable", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}, FontSize->9] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Formulas and Programming", "Section"], Cell[CellGroupData[{ Cell[StyleData["InlineFormula"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, "TwoByteSyntaxCharacterAutoReplacement"->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, LanguageCategory->"Formula", ScriptLevel->1, SingleLetterItalics->True, SpanMaxSize->Infinity, StyleMenuListing->None, GridBoxOptions->{ColumnWidths->Automatic}], Cell[StyleData["InlineFormula", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10], Cell[StyleData["InlineFormula", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10], Cell[StyleData["InlineFormula", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["InlineOutput"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, "TwoByteSyntaxCharacterAutoReplacement"->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, LanguageCategory->None, StyleMenuListing->None, FontFamily->"Courier"], Cell[StyleData["InlineOutput", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->9.5], Cell[StyleData["InlineOutput", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->9.5], Cell[StyleData["InlineOutput", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}, FontSize->9.5] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DisplayFormula"], CellMargins->{{42, Inherited}, {Inherited, 10}}, CellHorizontalScrolling->True, "TwoByteSyntaxCharacterAutoReplacement"->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, LanguageCategory->"Formula", ScriptLevel->0, SingleLetterItalics->True, SpanMaxSize->Infinity, StyleMenuListing->None, UnderoverscriptBoxOptions->{LimitsPositioning->True}, GridBoxOptions->{ColumnWidths->Automatic}], Cell[StyleData["DisplayFormula", "Printout"]], Cell[StyleData["DisplayFormula", "EnhancedPrintout"], FontFamily->"Palatino"], Cell[StyleData["DisplayFormula", "EnhancedPrintoutNonGray"], FontFamily->"Palatino"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DisplayMath"], CellMargins->{{42, 10}, {7, 7}}, Evaluatable->False, CellGroupingRules->"InputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, DefaultFormatType->DefaultInputFormatType, "TwoByteSyntaxCharacterAutoReplacement"->True, HyphenationOptions->{"HyphenationCharacter"->"\[Continuation]"}, AutoItalicWords->{}, LanguageCategory->"Formula", FormatType->InputForm, ShowStringCharacters->True, NumberMarks->True, CounterIncrements->"Input"], Cell[StyleData["DisplayMath", "Printout"], CellMargins->{{39, 0}, {6, 6}}, FontSize->9], Cell[StyleData["DisplayMath", "EnhancedPrintout"], CellMargins->{{39, 0}, {4, 6}}, FontFamily->"WRICourier", FontSize->9], Cell[StyleData["DisplayMath", "EnhancedPrintoutNonGray"], CellMargins->{{39, 0}, {4, 6}}, FontFamily->"WRICourier", FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["NumberedEquation"], CellMargins->{{45, 10}, {7, 7}}, CellFrameLabels->{{None, Cell[ TextData[ {"(", CounterBox[ "NumberedEquation"], ")"}]]}, {None, None}}, DefaultFormatType->DefaultInputFormatType, "TwoByteSyntaxCharacterAutoReplacement"->True, LanguageCategory->"Formula", CounterIncrements->"NumberedEquation", FormatTypeAutoConvert->False], Cell[StyleData["NumberedEquation", "Printout"], CellMargins->{{39, 55}, {0, 10}}, FontSize->10], Cell[StyleData["NumberedEquation", "EnhancedPrintout"], CellMargins->{{39, 55}, {0, 10}}, FontFamily->"Palatino", FontSize->10], Cell[StyleData["NumberedEquation", "EnhancedPrintoutNonGray"], CellMargins->{{39, 55}, {0, 10}}, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["EquationNumber"], LineSpacing->{1.83, 0}, LanguageCategory->"Formula"], Cell[StyleData["EquationNumber", "Printout"], LineSpacing->{1.7, 0}], Cell[StyleData["EquationNumber", "EnhancedPrintout"], LineSpacing->{1.7, 0}, FontFamily->"Palatino"], Cell[StyleData["EquationNumber", "EnhancedPrintoutNonGray"], LineSpacing->{1.7, 0}, FontFamily->"Palatino"] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["Program"], CellMargins->{{16, Inherited}, {Inherited, 10}}, CellHorizontalScrolling->True, ShowSpecialCharacters->Automatic, LanguageCategory->"Formula", FontFamily->"Courier"], Cell[StyleData["Program", "SlideShow"], CellFrame->1, ShowCellBracket->False, CellMargins->{{16, Inherited}, {Inherited, 10}}, CellHorizontalScrolling->True, ShowSpecialCharacters->Automatic, LanguageCategory->"Formula", FontFamily->"Courier"], Cell[StyleData["Program", "Printout"], CellMargins->{{42, 30}, {Inherited, 4}}, FontSize->9.5], Cell[StyleData["Program", "EnhancedPrintout"], CellMargins->{{42, 30}, {Inherited, 4}}, FontFamily->"WRICourier", FontSize->9.5], Cell[StyleData["Program", "EnhancedPrintoutNonGray"], CellMargins->{{42, 30}, {Inherited, 4}}, FontFamily->"WRICourier", FontSize->9.5] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Unique Help Browser Styles", "Section"], Cell[CellGroupData[{ Cell["\<\ Standard Styles \ \>", "Subsection"], Cell[CellGroupData[{ Cell[StyleData["InspectorLevel1"], ShowGroupOpenCloseIcon->True, CellMargins->{{12, 10}, {2, 7}}, CellGroupingRules->{"SectionGrouping", 60}, HyphenationOptions->{"HyphenationCharacter"->"-"}, ParagraphIndent->-38, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->16, FontWeight->"Bold"], Cell[StyleData["InspectorLevel1", "Brackets"], HyphenationOptions->{"HyphenationCharacter"->"-"}], Cell[StyleData["InspectorLevel1", "SlideShow"], HyphenationOptions->{"HyphenationCharacter"->"-"}], Cell[StyleData["InspectorLevel1", "Printout"], HyphenationOptions->{"HyphenationCharacter"->"-"}, FontSize->14] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["InspectorLevel2"], ShowGroupOpenCloseIcon->True, CellMargins->{{10, 4}, {0, 14}}, HyphenationOptions->{"HyphenationCharacter"->"-"}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->14, FontWeight->"Bold"], Cell[StyleData["InspectorLevel2", "Brackets"], ShowGroupOpenCloseIcon->True, CellMargins->{{48, 10}, {2, 12}}, CellGroupingRules->{"SectionGrouping", 70}, HyphenationOptions->{"HyphenationCharacter"->"-"}, ParagraphIndent->-27, FontFamily->"Helvetica", FontSize->14, FontWeight->"Bold"], Cell[StyleData["InspectorLevel2", "SlideShow"], ShowGroupOpenCloseIcon->True, CellMargins->{{48, 10}, {2, 12}}, CellGroupingRules->{"SectionGrouping", 70}, HyphenationOptions->{"HyphenationCharacter"->"-"}, ParagraphIndent->-27, FontFamily->"Helvetica", FontSize->14, FontWeight->"Bold"], Cell[StyleData["InspectorLevel2", "Printout"], HyphenationOptions->{"HyphenationCharacter"->"-"}, FontSize->12] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ObjectName"], CellMargins->{{10, 4}, {1, 10}}, CellGroupingRules->{"SectionGrouping", 50}, HyphenationOptions->{"HyphenationCharacter"->"-"}, StyleMenuListing->None, FontFamily->"Courier", FontSize->16, FontWeight->"Bold"], Cell[StyleData["ObjectName", "Brackets"], CellMargins->{{72, 4}, {1, 14}}, HyphenationOptions->{"HyphenationCharacter"->"-"}, StyleMenuListing->None, FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], Cell[StyleData["ObjectName", "SlideShow"], CellMargins->{{72, 4}, {1, 14}}, CellGroupingRules->{"SectionGrouping", 90}, HyphenationOptions->{"HyphenationCharacter"->"-"}, StyleMenuListing->None, FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], Cell[StyleData["ObjectName", "Printout"], CellMargins->{{2, 0}, {1, 10}}, HyphenationOptions->{"HyphenationCharacter"->"-"}, FontSize->12] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SubObjectNameClosed"], ShowGroupOpenCloseIcon->True, CellMargins->{{10, 4}, {1, 10}}, PrivateCellOptions->{"DefaultCellGroupOpen"->False}, CellGroupingRules->{"SectionGrouping", 90}, HyphenationOptions->{"HyphenationCharacter"->"-"}, StyleMenuListing->None, FontFamily->"Courier", FontSize->14, FontWeight->"Bold"], Cell[StyleData["SubObjectNameClosed", "Brackets"], CellMargins->{{72, 4}, {1, 14}}, HyphenationOptions->{"HyphenationCharacter"->"-"}, StyleMenuListing->None, FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], Cell[StyleData["SubObjectNameClosed", "SlideShow"], CellMargins->{{72, 4}, {1, 14}}, HyphenationOptions->{"HyphenationCharacter"->"-"}, StyleMenuListing->None, FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], Cell[StyleData["SubObjectNameClosed", "Printout"], CellMargins->{{2, 0}, {1, 10}}, HyphenationOptions->{"HyphenationCharacter"->"-"}, FontSize->12] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SubObjectName"], ShowGroupOpenCloseIcon->True, CellMargins->{{24, 4}, {1, 10}}, HyphenationOptions->{"HyphenationCharacter"->"-"}, StyleMenuListing->None, FontFamily->"Courier", FontSize->16, FontWeight->"Bold"], Cell[StyleData["SubObjectName", "Brackets"], ShowGroupOpenCloseIcon->True, CellMargins->{{90, 4}, {1, 14}}, HyphenationOptions->{"HyphenationCharacter"->"-"}, FontFamily->"Courier", FontSize->12], Cell[StyleData["SubObjectName", "SlideShow"], ShowGroupOpenCloseIcon->True, CellMargins->{{90, 4}, {1, 14}}, HyphenationOptions->{"HyphenationCharacter"->"-"}, FontFamily->"Courier", FontSize->12], Cell[StyleData["SubObjectName", "Printout"], CellMargins->{{2, 0}, {1, 10}}, HyphenationOptions->{"HyphenationCharacter"->"-"}, FontFamily->"Courier", FontSize->12] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["GroupObjectName"], ShowGroupOpenCloseIcon->True, CellMargins->{{10, 4}, {0, 14}}, HyphenationOptions->{"HyphenationCharacter"->"-"}, StyleMenuListing->None, FontFamily->"Courier", FontSize->16, FontWeight->"Bold"], Cell[StyleData["GroupObjectName", "Brackets"], ShowGroupOpenCloseIcon->True, CellMargins->{{72, 10}, {2, 12}}, CellGroupingRules->{"SectionGrouping", 70}, HyphenationOptions->{"HyphenationCharacter"->"-"}, ParagraphIndent->-27, CounterIncrements->"Outline2", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], Cell[StyleData["GroupObjectName", "SlideShow"], ShowGroupOpenCloseIcon->True, CellMargins->{{72, 10}, {2, 12}}, CellGroupingRules->{"SectionGrouping", 70}, HyphenationOptions->{"HyphenationCharacter"->"-"}, ParagraphIndent->-27, CounterIncrements->"Outline2", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], Cell[StyleData["GroupObjectName", "Printout"], HyphenationOptions->{"HyphenationCharacter"->"-"}, FontSize->14] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["GroupObjectNameClosed"], ShowGroupOpenCloseIcon->True, CellMargins->{{10, 4}, {0, 14}}, PrivateCellOptions->{"DefaultCellGroupOpen"->False}, CellGroupingRules->{"SectionGrouping", 80}, HyphenationOptions->{"HyphenationCharacter"->"-"}, StyleMenuListing->None, FontFamily->"Courier", FontSize->16, FontWeight->"Bold"], Cell[StyleData["GroupObjectNameClosed", "Brackets"], ShowGroupOpenCloseIcon->True, CellMargins->{{72, 10}, {2, 12}}, CellGroupingRules->{"SectionGrouping", 70}, HyphenationOptions->{"HyphenationCharacter"->"-"}, ParagraphIndent->-27, CounterIncrements->"Outline2", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], Cell[StyleData["GroupObjectNameClosed", "SlideShow"], ShowGroupOpenCloseIcon->True, CellMargins->{{72, 10}, {2, 12}}, CellGroupingRules->{"SectionGrouping", 70}, HyphenationOptions->{"HyphenationCharacter"->"-"}, ParagraphIndent->-27, CounterIncrements->"Outline2", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], Cell[StyleData["GroupObjectNameClosed", "Printout"], HyphenationOptions->{"HyphenationCharacter"->"-"}, FontSize->14] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ObjectNameWarningMessages"], CellMargins->{{10, 4}, {1, 10}}, CellGroupingRules->{"SectionGrouping", 65}, HyphenationOptions->{"HyphenationCharacter"->"-"}, StyleMenuListing->None, FontFamily->"Courier", FontSize->16, FontWeight->"Bold"], Cell[StyleData["ObjectNameWarningMessages", "Brackets"], CellMargins->{{10, 4}, {1, 10}}, CellGroupingRules->{"SectionGrouping", 65}, HyphenationOptions->{"HyphenationCharacter"->"-"}, FontFamily->"Courier", FontSize->16, FontWeight->"Bold"], Cell[StyleData["ObjectNameWarningMessages", "SlideShow"], CellMargins->{{10, 4}, {1, 10}}, CellGroupingRules->{"SectionGrouping", 65}, HyphenationOptions->{"HyphenationCharacter"->"-"}, FontFamily->"Courier", FontSize->16, FontWeight->"Bold"], Cell[StyleData["ObjectNameWarningMessages", "Printout"], CellMargins->{{2, 0}, {1, 10}}, HyphenationOptions->{"HyphenationCharacter"->"-"}, FontSize->12] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Command"], CellMargins->{{10, 4}, {0, 14}}, HyphenationOptions->{"HyphenationCharacter"->"-"}, CounterIncrements->"Section", StyleMenuListing->None, FontFamily->"Helvetica", FontSize->16, FontWeight->"Bold"], Cell[StyleData["Command", "Printout"], CellMargins->{{2, 0}, {0, 14}}, PageBreakBelow->False, HyphenationOptions->{"HyphenationCharacter"->"-"}, FontSize->14] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["CharacterName"], CellFrame->{{0, 0}, {0.5, 0.5}}, CellMargins->{{10, 4}, {0, 4}}, CellFrameMargins->4, HyphenationOptions->{"HyphenationCharacter"->"-"}, StyleMenuListing->None], Cell[StyleData["CharacterName", "Brackets"], CellMargins->{{72, 4}, {1, 14}}, CellGroupingRules->{"SectionGrouping", 90}, HyphenationOptions->{"HyphenationCharacter"->"-"}, StyleMenuListing->None, FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], Cell[StyleData["CharacterName", "SlideShow"], CellMargins->{{72, 4}, {1, 14}}, CellGroupingRules->{"SectionGrouping", 90}, HyphenationOptions->{"HyphenationCharacter"->"-"}, StyleMenuListing->None, FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], Cell[StyleData["CharacterName", "Printout"], CellMargins->{{2, 0}, {0, 4}}, HyphenationOptions->{"HyphenationCharacter"->"-"}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Usage"], CellFrame->{{0, 0}, {0.5, 0.5}}, CellMargins->{{10, 4}, {0, 4}}, CellFrameMargins->5, Hyphenation->True, HyphenationOptions->{"HyphenationCharacter"->"-"}, ParagraphSpacing->{0, 6}, ParagraphIndent->-10, StyleMenuListing->None], Cell[StyleData["Usage", "Brackets"], CellFrame->{{0, 0}, {0.5, 0.5}}, CellMargins->{{72, 4}, {0, 4}}, CellFrameMargins->5, HyphenationOptions->{"HyphenationCharacter"->"-"}, ParagraphSpacing->{0, 6}, ParagraphIndent->-10, StyleMenuListing->None], Cell[StyleData["Usage", "SlideShow"], CellFrame->{{0, 0}, {0.5, 0.5}}, CellMargins->{{72, 4}, {0, 4}}, CellFrameMargins->5, HyphenationOptions->{"HyphenationCharacter"->"-"}, ParagraphSpacing->{0, 6}, ParagraphIndent->-10, StyleMenuListing->None], Cell[StyleData["Usage", "Printout"], CellMargins->{{2, 0}, {0, 4}}, HyphenationOptions->{"HyphenationCharacter"->"-"}, StyleMenuListing->None, FontSize->10, FontWeight->"Plain"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ErrorMessage"], CellFrame->{{0, 0}, {0.5, 0.5}}, ShowCellBracket->True, CellMargins->{{10, 4}, {0, 4}}, CellGroupingRules->"OutputGrouping", PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, CellLabelMargins->{{14, Inherited}, {Inherited, Inherited}}, CellFrameMargins->5, DefaultFormatType->DefaultOutputFormatType, HyphenationOptions->{"HyphenationCharacter"->"-"}, FormatType->InputForm, StyleMenuListing->None, FontColor->RGBColor[0, 0, 1]], Cell[StyleData["ErrorMessage", "Brackets"], CellMargins->{{72, 4}, {0, 8}}, CellHorizontalScrolling->True, HyphenationOptions->{"HyphenationCharacter"->"-"}, StyleMenuListing->None], Cell[StyleData["ErrorMessage", "SlideShow"], CellMargins->{{72, 4}, {0, 8}}, CellHorizontalScrolling->True, HyphenationOptions->{"HyphenationCharacter"->"-"}, StyleMenuListing->None], Cell[StyleData["ErrorMessage", "Printout"], HyphenationOptions->{"HyphenationCharacter"->"-"}, FontSize->9, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Notes"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, Hyphenation->True, HyphenationOptions->{"HyphenationCharacter"->"-"}, ParagraphSpacing->{0, 6}, ParagraphIndent->-10, StyleMenuListing->None, FontFamily->"Times"], Cell[StyleData["Notes", "Brackets"], CellMargins->{{72, 4}, {0, 8}}, CellHorizontalScrolling->True, HyphenationOptions->{"HyphenationCharacter"->"-"}, ParagraphSpacing->{0, 6}, ParagraphIndent->-10, StyleMenuListing->None, FontFamily->"Times"], Cell[StyleData["Notes", "SlideShow"], CellMargins->{{72, 4}, {0, 8}}, CellHorizontalScrolling->True, HyphenationOptions->{"HyphenationCharacter"->"-"}, ParagraphSpacing->{0, 6}, ParagraphIndent->-10, StyleMenuListing->None, FontFamily->"Times"], Cell[StyleData["Notes", "Printout"], CellMargins->{{2, 0}, {0, 8}}, HyphenationOptions->{"HyphenationCharacter"->"-"}, FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["NotesList"], CellMargins->{{20, 4}, {2, 8}}, CellHorizontalScrolling->True, Hyphenation->True, HyphenationOptions->{"HyphenationCharacter"->"-"}, ScriptLevel->1, SingleLetterItalics->True, StyleMenuListing->None, FontFamily->"Times"], Cell[StyleData["NotesList", "Brackets"], CellMargins->{{82, 4}, {2, 8}}, CellHorizontalScrolling->True, HyphenationOptions->{"HyphenationCharacter"->"-"}, ScriptLevel->1, SingleLetterItalics->True, StyleMenuListing->None, FontFamily->"Times"], Cell[StyleData["NotesList", "SlideShow"], CellMargins->{{82, 4}, {2, 8}}, CellHorizontalScrolling->True, HyphenationOptions->{"HyphenationCharacter"->"-"}, ScriptLevel->1, SingleLetterItalics->True, StyleMenuListing->None, FontFamily->"Times"], Cell[StyleData["NotesList", "Printout"], CellMargins->{{12, 0}, {2, 8}}, HyphenationOptions->{"HyphenationCharacter"->"-"}, FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ExampleSection"], CellFrame->{{0, 0}, {0, 0.5}}, ShowGroupOpenCloseIcon->True, CellMargins->{{11, 4}, {0, 10}}, CellGroupingRules->{"SectionGrouping", 70}, CellFrameMargins->12, HyphenationOptions->{"HyphenationCharacter"->"-"}, StyleMenuListing->None, FontSize->13, FontWeight->"Bold", FontSlant->"Italic", FontColor->RGBColor[0, 0, 0.4]], Cell[StyleData["ExampleSection", "Printout"], CellMargins->{{3, 0}, {0, 10}}, PageBreakBelow->False, HyphenationOptions->{"HyphenationCharacter"->"-"}, FontSize->9, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ExampleText"], CellMargins->{{20, 40}, {0, 18}}, Hyphenation->True, HyphenationOptions->{"HyphenationCharacter"->"-"}, ParagraphSpacing->{0, 6}, StyleMenuListing->None, FontColor->RGBColor[0, 0, 0.4]], Cell[StyleData["ExampleText", "Printout"], CellMargins->{{2, 80}, {0, 8}}, PageBreakBelow->False, HyphenationOptions->{"HyphenationCharacter"->"-"}, FontSize->8, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ExampleSubsection"], ShowCellBracket->True, CellMargins->{{20, 4}, {0, 16}}, CellGroupingRules->{"SectionGrouping", 80}, HyphenationOptions->{"HyphenationCharacter"->"-"}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->10, FontWeight->"Bold"], Cell[StyleData["ExampleSubsection", "Printout"], CellMargins->{{12, 0}, {0, 16}}, PageBreakBelow->False, HyphenationOptions->{"HyphenationCharacter"->"-"}, FontSize->7] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["LineHead"], CellFrame->{{0, 0}, {0.5, 0}}, CellMargins->{{10, 4}, {8, 18}}, HyphenationOptions->{"HyphenationCharacter"->"-"}, CounterIncrements->"Subsection", CounterAssignments->{{"Subsubsection", 0}}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->12, FontWeight->"Bold"], Cell[StyleData["LineHead", "Printout"], CellMargins->{{2, 0}, {8, 18}}, PageBreakBelow->False, HyphenationOptions->{"HyphenationCharacter"->"-"}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["FlushInput"], CellMargins->{{10, 4}, {1, 4}}, Evaluatable->True, CellGroupingRules->"InputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, CellLabelAutoDelete->False, CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultInputFormatType, ShowSpecialCharacters->Automatic, HyphenationOptions->{"HyphenationCharacter"->"-"}, FormatType->StandardForm, ShowStringCharacters->True, NumberMarks->True, StyleMenuListing->None, FontWeight->"Bold"], Cell[StyleData["FlushInput", "Printout"], CellMargins->{{2, 0}, {1, 4}}, HyphenationOptions->{"HyphenationCharacter"->"-"}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["FlushOutput"], CellMargins->{{10, Inherited}, {Inherited, Inherited}}, CellEditDuplicate->True, CellGroupingRules->"OutputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, CellLabelAutoDelete->False, CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, HyphenationOptions->{"HyphenationCharacter"->"-"}, FormatType->StandardForm, StyleMenuListing->None], Cell[StyleData["FlushOutput", "Printout"], CellMargins->{{2, Inherited}, {Inherited, Inherited}}, HyphenationOptions->{"HyphenationCharacter"->"-"}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DialogItem"], CellDingbat->"\[EmptyDiamond]", CellMargins->{{20, 4}, {0, 12}}, CellGroupingRules->{"SectionGrouping", 70}, HyphenationOptions->{"HyphenationCharacter"->"-"}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->10, FontWeight->"Bold"], Cell[StyleData["DialogItem", "Printout"], CellMargins->{{12, 0}, {0, 12}}, PageBreakBelow->False, HyphenationOptions->{"HyphenationCharacter"->"-"}, FontSize->8] }, Closed]], Cell[StyleData["GroupDivider"], CellMargins->{{10, Inherited}, {Inherited, Inherited}}, CellEditDuplicate->True, CellGroupingRules->{"TitleGrouping", 0}, HyphenationOptions->{"HyphenationCharacter"->"-"}, StyleMenuListing->None], Cell[CellGroupData[{ Cell[StyleData["Highlight"], CellMargins->{{10, 4}, {0, 18}}, HyphenationOptions->{"HyphenationCharacter"->"-"}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->12, Background->GrayLevel[0.900008]], Cell[StyleData["Highlight", "Printout"], CellMargins->{{2, 0}, {0, 18}}, HyphenationOptions->{"HyphenationCharacter"->"-"}, LineSpacing->{1, 3}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["UserNotes"], CellFrame->{{2, 0}, {0, 0.25}}, CellMargins->{{10, 4}, {0, 8}}, Hyphenation->True, HyphenationOptions->{"HyphenationCharacter"->"-"}, ParagraphIndent->-7, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->10], Cell[StyleData["UserNotes", "Printout"], CellMargins->{{2, 0}, {0, 4}}, HyphenationOptions->{"HyphenationCharacter"->"-"}, LineSpacing->{1, 3}, FontSize->8] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["MoreInfo"], CellFrame->{{2, 0}, {0, 0.25}}, CellMargins->{{10, 4}, {0, 8}}, Hyphenation->True, HyphenationOptions->{"HyphenationCharacter"->"-"}, ParagraphIndent->-7, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->10, FontColor->GrayLevel[1], Background->RGBColor[0.4, 0.6, 0.550011]], Cell[StyleData["MoreInfo", "Printout"], CellMargins->{{2, 0}, {0, 4}}, HyphenationOptions->{"HyphenationCharacter"->"-"}, LineSpacing->{1, 3}, FontSize->8] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["UserTips"], CellFrame->{{2, 0}, {0, 0.25}}, CellMargins->{{10, 4}, {0, 8}}, Hyphenation->True, HyphenationOptions->{"HyphenationCharacter"->"-"}, ParagraphIndent->-7, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->10, FontColor->GrayLevel[1], Background->RGBColor[0.300008, 0.600015, 0.700008]], Cell[StyleData["UserTips", "Printout"], CellMargins->{{2, 0}, {0, 4}}, HyphenationOptions->{"HyphenationCharacter"->"-"}, LineSpacing->{1, 3}, FontSize->8, Background->GrayLevel[0.700008]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Theorem"], CellFrame->{{4, 0}, {0, 0}}, CellMargins->{{12, 62}, {0, 14}}, CellFrameMargins->4, CellFrameColor->RGBColor[0, 0, 0.8], HyphenationOptions->{"HyphenationCharacter"->"-"}, LineSpacing->{1, 1}, ParagraphSpacing->{0, 8}], Cell[StyleData["Theorem", "Printout"], CellMargins->{{2, 0}, {0, 14}}, CellFrameMargins->3, CellFrameColor->GrayLevel[0.8], HyphenationOptions->{"HyphenationCharacter"->"-"}, FontSize->9, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Commentary"], CellFrame->{{2, 0}, {0, 0}}, CellMargins->{{36, 10}, {7, 7}}, PageBreakBelow->False, CellFrameMargins->8, CellFrameColor->RGBColor[0, 0.2, 1], LineSpacing->{1, 3}, FontSlant->"Italic"], Cell[StyleData["Commentary", "Printout"], CellMargins->{{36, 0}, {6, 6}}, CellFrameColor->GrayLevel[0.8], FontSize->10], Cell[StyleData["Commentary", "EnhancedPrintout"], CellMargins->{{36, 0}, {6, 6}}, CellFrameColor->GrayLevel[0.8], FontFamily->"Palatino", FontSize->10], Cell[StyleData["Commentary", "EnhancedPrintoutNonGray"], CellMargins->{{36, 0}, {6, 6}}, CellFrameColor->GrayLevel[0.8], FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Level1Icon"], ShowGroupOpenCloseIcon->True, CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, HyphenationOptions->{"HyphenationCharacter"->"-"}, ParagraphSpacing->{0, 8}, StyleMenuListing->None], Cell[StyleData["Level1Icon", "Printout"], CellMargins->{{2, 0}, {0, 8}}, HyphenationOptions->{"HyphenationCharacter"->"-"}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Level2Icon"], ShowGroupOpenCloseIcon->True, CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, HyphenationOptions->{"HyphenationCharacter"->"-"}, ParagraphSpacing->{0, 8}, StyleMenuListing->None], Cell[StyleData["Level2Icon", "Printout"], CellMargins->{{2, 0}, {0, 8}}, HyphenationOptions->{"HyphenationCharacter"->"-"}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["CopyrightHead"], CellMargins->{{10, 4}, {0, 8}}, PageBreakAbove->False, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->12, FontWeight->"Bold"], Cell[StyleData["CopyrightHead", "Printout"], CellMargins->{{2, 2}, {6, 6}}, TextJustification->1, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Copyright"], CellMargins->{{10, 4}, {0, 8}}, PageBreakAbove->False, StyleMenuListing->None], Cell[StyleData["Copyright", "Printout"], CellMargins->{{2, 2}, {6, 6}}, TextJustification->1, FontSize->10] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Manual.nb Merge", "Subsection"], Cell[CellGroupData[{ Cell["Function List", "Subsubsection"], Cell[CellGroupData[{ Cell[StyleData["FunctionName"], CellDingbat->"\[FilledSquare]", CellMargins->{{24, 10}, {10, 12}}, CellGroupingRules->{"SectionGrouping", 40}, PageBreakBelow->False, StyleMenuListing->None, FontFamily->"Courier", FontSize->14, FontWeight->"Bold", CellTags->"FunctionName"], Cell[StyleData["FunctionName", "Printout"], CellMargins->{{9, 0}, {10, 10}}, FontSize->12], Cell[StyleData["FunctionName", "EnhancedPrintout"], CellMargins->{{9, 0}, {10, 10}}, FontFamily->"Courier", FontSize->12], Cell[StyleData["FunctionName", "EnhancedPrintoutNonGray"], CellMargins->{{9, 0}, {10, 10}}, FontFamily->"Courier", FontSize->12] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SubsectionIcon"], ShowGroupOpenCloseIcon->True, CellMargins->{{24, 10}, {0, 30}}, CellGroupingRules->{"SectionGrouping", 50}, PageBreakBelow->False, StyleMenuListing->None, FontSize->14, FontWeight->"Bold", CellTags->"FunctionSection"], Cell[StyleData["SubsectionIcon", "Printout"], CellMargins->{{20, 0}, {0, 20}}, FontSize->13], Cell[StyleData["SubsectionIcon", "EnhancedPrintout"], CellMargins->{{20, 0}, {0, 20}}, FontFamily->"Palatino", FontSize->10], Cell[StyleData["SubsectionIcon", "EnhancedPrintoutNonGray"], CellMargins->{{20, 0}, {0, 20}}, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["FunctionSubsection"], CellDingbat->"\[FilledSquare]", CellMargins->{{36, 10}, {0, 6}}, CellGroupingRules->{"SectionGrouping", 60}, PageBreakBelow->False, StyleMenuListing->None, FontWeight->"Bold", CellTags->"FunctionSubsection"], Cell[StyleData["FunctionSubsection", "Printout"], CellMargins->{{30, 0}, {0, 6}}], Cell[StyleData["FunctionSubsection", "EnhancedPrintout"], CellMargins->{{30, 0}, {0, 6}}, FontFamily->"Palatino", FontSize->11], Cell[StyleData["FunctionSubsection", "EnhancedPrintoutNonGray"], CellMargins->{{30, 0}, {0, 6}}, FontFamily->"Palatino", FontSize->11] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SubsubsectionIcon"], ShowGroupOpenCloseIcon->True, CellMargins->{{36, 10}, {0, 6}}, CellGroupingRules->{"SectionGrouping", 60}, PageBreakBelow->False, StyleMenuListing->None, FontWeight->"Bold", CellTags->"SubsubsectionIcon"], Cell[StyleData["SubsubsectionIcon", "Printout"], CellMargins->{{30, 0}, {0, 6}}, FontSize->11], Cell[StyleData["SubsubsectionIcon", "EnhancedPrintout"], CellMargins->{{30, 0}, {0, 6}}, FontFamily->"Palatino", FontSize->9], Cell[StyleData["SubsubsectionIcon", "EnhancedPrintoutNonGray"], CellMargins->{{30, 0}, {0, 6}}, FontFamily->"Palatino", FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["FunctionDescription"], CellMargins->{{36, 10}, {4, 0}}, LineSpacing->{1, 3}, ParagraphSpacing->{0.7, 0}, CounterIncrements->"Text", StyleMenuListing->None, FontWeight->"Plain"], Cell[StyleData["FunctionDescription", "Printout"], CellMargins->{{30, 0}, {4, 0}}, FontSize->11], Cell[StyleData["FunctionDescription", "EnhancedPrintout"], CellMargins->{{30, 0}, {4, 0}}, TextJustification->0, FontFamily->"Palatino", FontSize->10], Cell[StyleData["FunctionDescription", "EnhancedPrintoutNonGray"], CellMargins->{{30, 0}, {4, 0}}, TextJustification->0, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["FunctionDescriptionRuled"], CellFrame->{{0, 0}, {0.25, 0.25}}, CellMargins->{{36, 10}, {4, 0}}, LineSpacing->{1, 3}, ParagraphSpacing->{0.7, 0}, CounterIncrements->"Text", StyleMenuListing->None], Cell[StyleData["FunctionDescriptionRuled", "Printout"], CellMargins->{{30, 0}, {4, 0}}, FontSize->11], Cell[StyleData["FunctionDescriptionRuled", "EnhancedPrintout"], CellMargins->{{30, 0}, {4, 0}}, TextJustification->0, FontFamily->"Palatino", FontSize->10], Cell[StyleData["FunctionDescriptionRuled", "EnhancedPrintoutNonGray"], CellMargins->{{30, 0}, {4, 0}}, TextJustification->0, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["FunctionDescriptionRuleTop"], CellFrame->{{0, 0}, {0, 0.25}}, CellMargins->{{36, 10}, {4, 0}}, LineSpacing->{1, 3}, ParagraphSpacing->{0.7, 0}, CounterIncrements->"Text", StyleMenuListing->None], Cell[StyleData["FunctionDescriptionRuleTop", "Printout"], CellMargins->{{30, 0}, {4, 0}}, FontSize->11], Cell[StyleData["FunctionDescriptionRuleTop", "EnhancedPrintout"], CellMargins->{{30, 0}, {4, 0}}, TextJustification->0, FontFamily->"Palatino", FontSize->10], Cell[StyleData["FunctionDescriptionRuleTop", "EnhancedPrintoutNonGray"], CellMargins->{{30, 0}, {4, 0}}, TextJustification->0, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["FunctionDescriptionRuleBottom"], CellFrame->{{0, 0}, {0.25, 0}}, CellMargins->{{36, 10}, {4, 0}}, LineSpacing->{1, 3}, ParagraphSpacing->{0.7, 0}, CounterIncrements->"Text", StyleMenuListing->None], Cell[StyleData["FunctionDescriptionRuleBottom", "Printout"], CellMargins->{{30, 0}, {4, 0}}, FontSize->11], Cell[StyleData["FunctionDescriptionRuleBottom", "EnhancedPrintout"], CellMargins->{{30, 0}, {4, 0}}, TextJustification->0, FontFamily->"Palatino", FontSize->10], Cell[StyleData["FunctionDescriptionRuleBottom", "EnhancedPrintoutNonGray"], CellMargins->{{30, 0}, {4, 0}}, TextJustification->0, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["FunctionExample"], CellMargins->{{36, 10}, {4, 0}}, StyleMenuListing->None, FontSize->10], Cell[StyleData["FunctionExample", "Printout"], CellMargins->{{30, 0}, {4, 0}}, FontSize->9], Cell[StyleData["FunctionExample", "EnhancedPrintout"], CellMargins->{{30, 0}, {4, 0}}, FontFamily->"Palatino", FontSize->9], Cell[StyleData["FunctionExample", "EnhancedPrintoutNonGray"], CellMargins->{{30, 0}, {4, 0}}, FontFamily->"Palatino", FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["FunctionTextNote"], CellMargins->{{36, 4}, {0, 4}}, LineSpacing->{1, 3}, ParagraphSpacing->{0, 4}, LineIndent->0, StyleMenuListing->None], Cell[StyleData["FunctionTextNote", "Printout"], CellMargins->{{36, 4}, {0, 4}}, FontSize->9], Cell[StyleData["FunctionTextNote", "EnhancedPrintout"], CellMargins->{{36, 4}, {0, 4}}, FontFamily->"Palatino", FontSize->8], Cell[StyleData["FunctionTextNote", "EnhancedPrintoutNonGray"], CellMargins->{{36, 4}, {0, 4}}, FontFamily->"Palatino", FontSize->8] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["3ColumnFunctionTable"], CellMargins->{{36, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->2, ColumnWidths->{0.28, 0.28, 0.43}, ColumnAlignments->{Left}}], Cell[StyleData["3ColumnFunctionTable", "Printout"], CellMargins->{{30, 0}, {0, 8}}, FontSize->10], Cell[StyleData["3ColumnFunctionTable", "EnhancedPrintout"], CellMargins->{{30, 0}, {0, 8}}, FontSize->10], Cell[StyleData["3ColumnFunctionTable", "EnhancedPrintoutNonGray"], CellMargins->{{30, 0}, {0, 8}}, FontSize->10] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Browser Emulation", "Subsubsection"], Cell[CellGroupData[{ Cell[StyleData["TextNormal"], CellMargins->{{12, 10}, {7, 7}}, LineSpacing->{1, 3}, CounterIncrements->"Text", StyleMenuListing->None, FontFamily->"Times", FontSize->12], Cell[StyleData["TextNormal", "Printout"], CellMargins->{{2, 2}, {6, 6}}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["BrowserEmulation"], CellMargins->{{12, 1}, {7, 24}}, CellGroupingRules->{"SectionGrouping", 70}, LineSpacing->{1, 3}, StyleMenuListing->None, FontFamily->"Helvetica", GridBoxOptions->{ColumnWidths->0.25, ColumnAlignments->{Left}, GridFrame->True, GridFrameMargins->0.5, ColumnLines->True}], Cell[StyleData["BrowserEmulation", "Printout"], CellMargins->{{2, 2}, {6, 6}}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["CategoryDefs"], CellMargins->{{300, 10}, {7, 7}}, LineSpacing->{1, 3}, StyleMenuListing->None, FontFamily->"Helvetica", Background->RGBColor[1, 0.8, 0.6], GridBoxOptions->{ColumnAlignments->{Left}, GridFrame->False, RowLines->True, ColumnLines->True}], Cell[StyleData["CategoryDefs", "Printout"], CellMargins->{{2, 2}, {6, 6}}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Category1"], ShowCellBracket->False, ShowGroupOpenCloseIcon->True, CellMargins->{{12, 10}, {7, 7}}, CellGroupingRules->{"SectionGrouping", 50}, StyleMenuListing->None, FontSize->16, FontWeight->"Bold"], Cell[StyleData["Category1", "Printout"], CellMargins->{{2, 2}, {6, 6}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Category2"], ShowCellBracket->False, ShowGroupOpenCloseIcon->True, CellMargins->{{85, 10}, {7, 7}}, CellGroupingRules->{"SectionGrouping", 60}, StyleMenuListing->None, FontSize->14, FontWeight->"Bold", FontColor->RGBColor[0, 0, 0.500008]], Cell[StyleData["Category2", "Printout"], CellMargins->{{2, 2}, {6, 6}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Category3"], ShowCellBracket->False, ShowGroupOpenCloseIcon->True, CellMargins->{{157, 10}, {7, 7}}, CellGroupingRules->{"SectionGrouping", 70}, StyleMenuListing->None, FontSize->12, FontWeight->"Bold", FontColor->RGBColor[0.2, 0, 0.4]], Cell[StyleData["Category3", "Printout"], CellMargins->{{2, 2}, {6, 6}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Category4"], ShowCellBracket->False, ShowGroupOpenCloseIcon->True, CellMargins->{{230, 10}, {7, 7}}, CellGroupingRules->{"SectionGrouping", 80}, StyleMenuListing->None, FontWeight->"Bold", FontColor->RGBColor[0, 0.300008, 0.4]], Cell[StyleData["Category4", "Printout"], CellMargins->{{2, 2}, {6, 6}}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Misc", "Subsubsection"], Cell[CellGroupData[{ Cell[StyleData["4ColumnTable"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->2, ColumnWidths->0.25, ColumnAlignments->{Left, Center}}], Cell[StyleData["4ColumnTable", "Printout"], CellMargins->{{2, 0}, {0, 8}}], Cell[StyleData["4ColumnTable", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}], Cell[StyleData["4ColumnTable", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["5ColumnTable"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->2, ColumnWidths->0.2, ColumnAlignments->{Left, Center}}], Cell[StyleData["5ColumnTable", "Printout"], CellMargins->{{2, 0}, {0, 8}}], Cell[StyleData["5ColumnTable", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}], Cell[StyleData["5ColumnTable", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["6ColumnTable"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->2, ColumnWidths->0.16, ColumnAlignments->{Left, Center}}], Cell[StyleData["6ColumnTable", "Printout"], CellMargins->{{2, 0}, {0, 8}}], Cell[StyleData["6ColumnTable", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}], Cell[StyleData["6ColumnTable", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["7ColumnTable"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->2, ColumnWidths->0.14, ColumnAlignments->{Left, Center}}], Cell[StyleData["7ColumnTable", "Printout"], CellMargins->{{2, 0}, {0, 8}}], Cell[StyleData["7ColumnTable", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}], Cell[StyleData["7ColumnTable", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["8ColumnTable"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->2, ColumnWidths->0.12, ColumnAlignments->{Left, Center}}], Cell[StyleData["8ColumnTable", "Printout"], CellMargins->{{2, 0}, {0, 8}}], Cell[StyleData["8ColumnTable", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}], Cell[StyleData["8ColumnTable", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ABItemizedText"], CellMargins->{{20, 4}, {0, 5}}, Hyphenation->True, LineSpacing->{1, 3}, ParagraphIndent->-21, CounterIncrements->"ItemizedText", StyleMenuListing->None], Cell[StyleData["ABItemizedText", "Printout"], ParagraphIndent->-21, FontSize->11], Cell[StyleData["ABItemizedText", "EnhancedPrintout"], ParagraphIndent->-21, FontFamily->"Palatino", FontSize->10], Cell[StyleData["ABItemizedText", "EnhancedPrintoutNonGray"], ParagraphIndent->-21, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ChapNumber"], CellMargins->{{12, Inherited}, {20, 40}}, CellGroupingRules->{"TitleGrouping", 0}, PageBreakBelow->False, DefaultNewInlineCellStyle->"None", InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.35999999999999999, \ -0.10000000000000001}, {0, 0}}, BoxBaselineShift -> -0.20000000000000001], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica", "webMathematica"->FormBox[ RowBox[ {"web", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm]}, LanguageCategory->"NaturalLanguage", CounterIncrements->"Title", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, { "Subtitle", 0}, {"Subsubtitle", 0}}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->42, FontWeight->"Plain"], Cell[StyleData["ChapNumber", "Printout"], CellMargins->{{2, 10}, {15, 30}}, FontSize->36], Cell[StyleData["ChapNumber", "EnhancedPrintout"], CellMargins->{{2, 10}, {15, 30}}, FontFamily->"Futura", FontSize->36], Cell[StyleData["ChapNumber", "EnhancedPrintoutNonGray"], CellMargins->{{2, 10}, {15, 30}}, FontFamily->"Futura", FontSize->36] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ChapTitle"], CellMargins->{{12, Inherited}, {80, 10}}, CellGroupingRules->{"TitleGrouping", 0}, PageBreakBelow->False, DefaultNewInlineCellStyle->"None", InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.35999999999999999, \ -0.10000000000000001}, {0, 0}}, BoxBaselineShift -> -0.20000000000000001], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica", "webMathematica"->FormBox[ RowBox[ {"web", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm]}, LanguageCategory->"NaturalLanguage", CounterIncrements->"Title", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, { "Subtitle", 0}, {"Subsubtitle", 0}}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->36, FontWeight->"Bold"], Cell[StyleData["ChapTitle", "Printout"], CellMargins->{{2, 10}, {80, 6}}, FontSize->30], Cell[StyleData["ChapTitle", "EnhancedPrintout"], CellMargins->{{2, 10}, {80, 6}}, FontFamily->"Futura", FontSize->30], Cell[StyleData["ChapTitle", "EnhancedPrintoutNonGray"], CellMargins->{{2, 10}, {80, 6}}, FontFamily->"Futura", FontSize->30] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ItemDingbat"], CellSize->{22, 14}, TextAlignment->Right, StyleMenuListing->None, FontWeight->"Bold"], Cell[StyleData["ItemDingbat", "Printout"], CellSize->{22, 13.125}], Cell[StyleData["ItemDingbat", "EnhancedPrintout"], CellSize->{22, 11}], Cell[StyleData["ItemDingbat", "EnhancedPrintoutNonGray"], CellSize->{22, 11}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Item1"], CellMargins->{{19, 4}, {4, 4}}, ParagraphIndent->-22, CounterIncrements->"Item1", StyleMenuListing->None], Cell[StyleData["Item1", "Printout"], CellMargins->{{12, 0}, {2, 4}}, FontSize->10], Cell[StyleData["Item1", "EnhancedPrintout"], CellMargins->{{16, 0}, {2, 4}}, FontSize->10], Cell[StyleData["Item1", "EnhancedPrintoutNonGray"], CellMargins->{{16, 0}, {2, 4}}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Item1Continued"], CellMargins->{{41, 4}, {4, 1}}, CounterIncrements->"Item1Continued", StyleMenuListing->None], Cell[StyleData["Item1Continued", "Printout"], CellMargins->{{34, 0}, {4, 1}}, FontSize->10], Cell[StyleData["Item1Continued", "EnhancedPrintout"], CellMargins->{{39, 0}, {4, 1}}, FontSize->10], Cell[StyleData["Item1Continued", "EnhancedPrintoutNonGray"], CellMargins->{{39, 0}, {4, 1}}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Item2"], CellMargins->{{32, 4}, {4, 4}}, ParagraphIndent->-22, CounterIncrements->"Item2", StyleMenuListing->None], Cell[StyleData["Item2", "Printout"], CellMargins->{{26, 0}, {4, 4}}, ParagraphIndent->-22, FontSize->10], Cell[StyleData["Item2", "EnhancedPrintout"], CellMargins->{{29, 0}, {2, 4}}, ParagraphIndent->-22, FontSize->10], Cell[StyleData["Item2", "EnhancedPrintoutNonGray"], CellMargins->{{29, 0}, {2, 4}}, ParagraphIndent->-22, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Item2Continued"], CellMargins->{{54, 4}, {4, 1}}, CounterIncrements->"Item2Continued", StyleMenuListing->None], Cell[StyleData["Item2Continued", "Printout"], CellMargins->{{27, 0}, {4, 1}}], Cell[StyleData["Item2Continued", "EnhancedPrintout"], CellMargins->{{52, 0}, {4, 1}}, FontSize->10], Cell[StyleData["Item2Continued", "EnhancedPrintoutNonGray"], CellMargins->{{52, 0}, {4, 1}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Item3"], CellMargins->{{45, 4}, {4, 4}}, ParagraphIndent->-23, CounterIncrements->"Item3", StyleMenuListing->None], Cell[StyleData["Item3", "Printout"], CellMargins->{{27, 0}, {2, 4}}], Cell[StyleData["Item3", "EnhancedPrintout"], CellMargins->{{42, 0}, {2, 4}}, FontSize->10], Cell[StyleData["Item3", "EnhancedPrintoutNonGray"], CellMargins->{{42, 0}, {2, 4}}, StyleMenuListing->None] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Item3Continued"], CellMargins->{{67, 4}, {4, 1}}, CounterIncrements->"Item3Continued", StyleMenuListing->None], Cell[StyleData["Item3Continued", "Printout"], CellMargins->{{27, 0}, {4, 1}}], Cell[StyleData["Item3Continued", "EnhancedPrintout"], CellMargins->{{65, 0}, {4, 1}}, FontSize->10], Cell[StyleData["Item3Continued", "EnhancedPrintoutNonGray"], CellMargins->{{65, 0}, {4, 1}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ItemizedBulletText"], CellMargins->{{19, 4}, {0, 5}}, Hyphenation->True, LineSpacing->{1, 3}, ParagraphIndent->-22, CounterIncrements->"ItemizedBulletText", StyleMenuListing->None], Cell[StyleData["ItemizedBulletText", "Printout"], ParagraphIndent->-20, FontSize->11], Cell[StyleData["ItemizedBulletText", "EnhancedPrintout"], ParagraphIndent->-19, FontFamily->"Palatino", FontSize->10], Cell[StyleData["ItemizedBulletText", "EnhancedPrintoutNonGray"], ParagraphIndent->-19, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["NoteBox"], CellFrame->0.5, CellMargins->{{10, 4}, {8, 8}}, CellHorizontalScrolling->True, LineIndent->0, StyleMenuListing->None, Background->RGBColor[1, 0.6, 0.6], FrameBoxOptions->{BoxMargins->{{1, 1}, {1.5, 1.5}}}, GridBoxOptions->{ColumnSpacings->1}], Cell[StyleData["NoteBox", "Printout"], CellMargins->{{2, 4}, {6, 2}}, FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["NoteBox", "EnhancedPrintout"], CellMargins->{{2, 4}, {6, 2}}, FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["NoteBox", "EnhancedPrintoutNonGray"], CellMargins->{{2, 4}, {6, 2}}, FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ItemizedNoteBox"], CellFrame->0.5, CellMargins->{{41, 4}, {8, 2}}, CellHorizontalScrolling->True, LineIndent->0, StyleMenuListing->None, Background->RGBColor[1, 0.6, 0.6], FrameBoxOptions->{BoxMargins->{{1, 1}, {1.5, 1.5}}}, GridBoxOptions->{ColumnSpacings->1}], Cell[StyleData["ItemizedNoteBox", "Printout"], CellMargins->{{39, 4}, {6, 2}}, FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["ItemizedNoteBox", "EnhancedPrintout"], CellMargins->{{39, 4}, {6, 2}}, FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["ItemizedNoteBox", "EnhancedPrintoutNonGray"], CellMargins->{{39, 4}, {6, 2}}, FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ItemizedTopBox"], CellFrame->{{0.5, 0.5}, {0, 0.5}}, CellMargins->{{37, 4}, {0, 8}}, CellHorizontalScrolling->True, CellFrameMargins->{{8, 8}, {0, 8}}, LineIndent->0, StyleMenuListing->None, Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.31, 0.62}, ColumnAlignments->{Left}}], Cell[StyleData["ItemizedTopBox", "Printout"], FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["ItemizedTopBox", "EnhancedPrintout"], CellMargins->{{39, 4}, {0, 6}}, FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["ItemizedTopBox", "EnhancedPrintoutNonGray"], CellMargins->{{39, 4}, {0, 6}}, FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ItemizedBottomBox"], CellFrame->{{0.5, 0.5}, {0.5, 0}}, CellMargins->{{37, 4}, {4, 0}}, CellHorizontalScrolling->True, CellFrameMargins->{{8, 8}, {8, 0}}, LineIndent->0, StyleMenuListing->None, Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.31, 0.62}, ColumnAlignments->{Left}}], Cell[StyleData["ItemizedBottomBox", "Printout"], FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["ItemizedBottomBox", "EnhancedPrintout"], CellMargins->{{39, 4}, {6, 0}}, FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["ItemizedBottomBox", "EnhancedPrintoutNonGray"], CellMargins->{{39, 4}, {6, 0}}, FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["MiddleSpacedBox"], CellFrame->{{0.5, 0.5}, {0, 0}}, CellMargins->{{11, 4}, {0, -7}}, CellHorizontalScrolling->True, PageBreakAbove->False, PageBreakBelow->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.31, 0.62}, ColumnAlignments->{Left}}], Cell[StyleData["MiddleSpacedBox", "Printout"], CellMargins->{{2, 0}, {0, 0}}, Background->GrayLevel[1], GridBoxOptions->{RowMinHeight->1.8}], Cell[StyleData["MiddleSpacedBox", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 0}}, FontFamily->"Palatino", Background->GrayLevel[1], GridBoxOptions->{RowMinHeight->1.8}], Cell[StyleData["MiddleSpacedBox", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 0}}, FontFamily->"Palatino", Background->GrayLevel[1], GridBoxOptions->{RowMinHeight->1.8}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ItemizedNote"], CellMargins->{{41, 4}, {0, 12}}, Hyphenation->True, LineSpacing->{1, 2}, CounterIncrements->"Text", StyleMenuListing->None], Cell[StyleData["ItemizedNote", "Printout"], CellMargins->{{38, 4}, {0, 9}}, FontSize->11], Cell[StyleData["ItemizedNote", "EnhancedPrintout"], CellMargins->{{38, 4}, {0, 0}}, TextJustification->1, FontFamily->"Palatino", FontSize->10], Cell[StyleData["ItemizedNote", "EnhancedPrintoutNonGray"], CellMargins->{{38, 4}, {0, 0}}, TextJustification->1, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ItemizedNoteBelow"], CellMargins->{{41, 4}, {0, 8}}, Hyphenation->True, LineSpacing->{1, 2}, CounterIncrements->"Text", StyleMenuListing->None], Cell[StyleData["ItemizedNoteBelow", "Printout"], CellMargins->{{38, 4}, {0, 12}}, FontSize->11], Cell[StyleData["ItemizedNoteBelow", "EnhancedPrintout"], CellMargins->{{38, 4}, {0, 8}}, TextJustification->1, FontFamily->"Palatino", FontSize->10], Cell[StyleData["ItemizedNoteBelow", "EnhancedPrintoutNonGray"], CellMargins->{{38, 4}, {0, 8}}, TextJustification->1, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ItemizedTextBelowPic"], CellMargins->{{19, 4}, {0, 8}}, Hyphenation->True, LineSpacing->{1, 3}, ParagraphIndent->-22, CounterIncrements->"ItemizedText", StyleMenuListing->None], Cell[StyleData["ItemizedTextBelowPic", "Printout"], CellMargins->{{20, 4}, {2, 12}}, ParagraphIndent->-18, FontSize->11], Cell[StyleData["ItemizedTextBelowPic", "EnhancedPrintout"], CellMargins->{{20, 4}, {2, 12}}, ParagraphIndent->-17, FontFamily->"Palatino", FontSize->10], Cell[StyleData["ItemizedTextBelowPic", "EnhancedPrintoutNonGray"], CellMargins->{{20, 4}, {2, 12}}, ParagraphIndent->-17, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ItemizedTextNote2"], CellMargins->{{41, 4}, {0, 4}}, Hyphenation->True, LineSpacing->{1, 2}, CounterIncrements->"Text", StyleMenuListing->None], Cell[StyleData["ItemizedTextNote2", "Printout"], CellMargins->{{38, 4}, {0, 2}}, FontSize->11], Cell[StyleData["ItemizedTextNote2", "EnhancedPrintout"], CellMargins->{{38, 4}, {0, 2}}, FontFamily->"Palatino", FontSize->10], Cell[StyleData["ItemizedTextNote2", "EnhancedPrintoutNonGray"], CellMargins->{{38, 4}, {0, 2}}, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["NumberedItem1"], CellMargins->{{48, 4}, {4, 4}}, CellGroupingRules->{"SectionGrouping", 15}, ParagraphIndent->-23, CounterIncrements->"NumberedItem1", StyleMenuListing->None], Cell[StyleData["NumberedItem1", "Printout"], CellMargins->{{12, 0}, {0, 8}}], Cell[StyleData["NumberedItem1", "EnhancedPrintout"], CellMargins->{{12, 0}, {0, 8}}], Cell[StyleData["NumberedItem1", "EnhancedPrintoutNonGray"], CellMargins->{{12, 0}, {0, 8}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["NumberedItem2"], CellMargins->{{71, 4}, {3, 3}}, CellGroupingRules->{"SectionGrouping", 15}, ParagraphIndent->-21, CounterIncrements->"NumberedItem2", StyleMenuListing->None], Cell[StyleData["NumberedItem2", "Printout"], CellMargins->{{27, 0}, {0, 4}}], Cell[StyleData["NumberedItem2", "EnhancedPrintout"], CellMargins->{{27, 0}, {0, 4}}], Cell[StyleData["NumberedItem2", "EnhancedPrintoutNonGray"], CellMargins->{{27, 0}, {0, 4}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["NumberedItem3"], CellMargins->{{94, 4}, {2, 2}}, CellGroupingRules->{"SectionGrouping", 15}, ParagraphIndent->-23, CounterIncrements->"NumberedItem3", StyleMenuListing->None], Cell[StyleData["NumberedItem3", "Printout"], CellMargins->{{27, 0}, {0, 4}}], Cell[StyleData["NumberedItem3", "EnhancedPrintout"], CellMargins->{{27, 0}, {0, 4}}], Cell[StyleData["NumberedItem3", "EnhancedPrintoutNonGray"], CellMargins->{{27, 0}, {0, 4}}, StyleMenuListing->None] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["PageHeaderBold"], CellMargins->{{0, 0}, {2, 0}}, StyleMenuListing->None, FontSize->8, FontWeight->"Bold", FontSlant->"Italic"], Cell[StyleData["Header", "Printout"]], Cell[StyleData["Header", "EnhancedPrintout"], FontFamily->"Futura"], Cell[StyleData["Header", "EnhancedPrintoutNonGray"], FontFamily->"Futura"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["S9"], ConversionRules:>{"HTML" -> {"", ""}}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->9, FontWeight->"Plain"], Cell[StyleData["S9", "Printout"], FontSize->9, FontWeight->"Plain"], Cell[StyleData["S9", "EnhancedPrintout"], FontFamily->"Futura", FontSize->9, FontWeight->"Plain"], Cell[StyleData["S9", "EnhancedPrintoutNonGray"], FontFamily->"Futura", FontSize->9, FontWeight->"Plain"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["S10"], ConversionRules:>{"HTML" -> {"", ""}}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->10, FontWeight->"Plain"], Cell[StyleData["S10", "Printout"], FontSize->10, FontWeight->"Plain"], Cell[StyleData["S10", "EnhancedPrintout"], FontFamily->"Futura", FontSize->10, FontWeight->"Plain"], Cell[StyleData["S10", "EnhancedPrintoutNonGray"], FontFamily->"Futura", FontSize->10, FontWeight->"Plain"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SB9"], ConversionRules:>{"HTML" -> {"", ""}}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->9, FontWeight->"Bold", PrivateFontOptions->{"OperatorSubstitution"->False}], Cell[StyleData["SB9", "Printout"], FontSize->7], Cell[StyleData["SB9", "EnhancedPrintout"], FontFamily->"Futura", FontSize->7], Cell[StyleData["SB9", "EnhancedPrintoutNonGray"], FontFamily->"Futura", FontSize->7] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SB10"], ConversionRules:>{"HTML" -> {"", ""}}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->10, FontWeight->"Bold"], Cell[StyleData["SB10", "Printout"], FontSize->7], Cell[StyleData["SB10", "EnhancedPrintout"], FontFamily->"Futura", FontSize->7], Cell[StyleData["SB10", "EnhancedPrintoutNonGray"], FontFamily->"Futura", FontSize->7] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SingleRowTable"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->2, ColumnAlignments->{Left}}], Cell[StyleData["SingleRowTable", "Printout"], CellMargins->{{2, 0}, {0, 8}}], Cell[StyleData["SingleRowTable", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}], Cell[StyleData["SingleRowTable", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsubsubsection"], CellMargins->{{10, 4}, {0, 18}}, CellElementSpacings->{"ClosedGroupTopMargin"->18}, StyleMenuListing->None, FontSize->12, FontWeight->"Bold"], Cell[StyleData["Subsubsubsection", "Printout"], CellMargins->{{2, 0}, {3, 8}}, FontSize->10], Cell[StyleData["Subsubsubsection", "EnhancedPrintout"], CellMargins->{{2, 0}, {3, 8}}, FontFamily->"Palatino", FontSize->10], Cell[StyleData["Subsubsubsection", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {3, 8}}, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsubtitle"], CellMargins->{{12, Inherited}, {20, 15}}, CellGroupingRules->{"TitleGrouping", 20}, PageBreakBelow->False, DefaultNewInlineCellStyle->"None", InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.35999999999999999, \ -0.10000000000000001}, {0, 0}}, BoxBaselineShift -> -0.20000000000000001], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica", "webMathematica"->FormBox[ RowBox[ {"web", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm]}, LanguageCategory->"NaturalLanguage", CounterIncrements->"Subsubtitle", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->14, FontSlant->"Italic"], Cell[StyleData["Subsubtitle", "Printout"], CellMargins->{{2, 10}, {8, 10}}, FontSize->12], Cell[StyleData["Subsubtitle", "EnhancedPrintout"], CellMargins->{{2, 10}, {8, 10}}, FontFamily->"Futura", FontSize->12], Cell[StyleData["Subsubtitle", "EnhancedPrintoutNonGray"], CellMargins->{{2, 10}, {8, 10}}, FontFamily->"Futura", FontSize->12] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subtitle"], CellMargins->{{12, Inherited}, {20, 15}}, CellGroupingRules->{"TitleGrouping", 10}, PageBreakBelow->False, DefaultNewInlineCellStyle->"None", InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.35999999999999999, \ -0.10000000000000001}, {0, 0}}, BoxBaselineShift -> -0.20000000000000001], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica", "webMathematica"->FormBox[ RowBox[ {"web", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm]}, LanguageCategory->"NaturalLanguage", CounterIncrements->"Subtitle", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, { "Subsubtitle", 0}}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->24], Cell[StyleData["Subtitle", "Printout"], CellMargins->{{2, 10}, {10, 15}}, FontSize->24], Cell[StyleData["Subtitle", "EnhancedPrintout"], CellMargins->{{2, 10}, {10, 15}}, FontFamily->"Futura", FontSize->24], Cell[StyleData["Subtitle", "EnhancedPrintoutNonGray"], CellMargins->{{2, 10}, {10, 15}}, FontFamily->"Futura", FontSize->24] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TextBelow"], CellMargins->{{10, 4}, {0, 14}}, ConversionRules:>{"HTML" -> {"

    ", "

    "}}, InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.35999999999999999, \ -0.10000000000000001}, {0, 0}}, BoxBaselineShift -> -0.20000000000000001], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica", "webMathematica"->FormBox[ RowBox[ {"web", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm]}, Hyphenation->True, ParagraphSpacing->{0, 8}, StyleMenuListing->None, FontSize->12], Cell[StyleData["TextBelow", "Printout"], CellMargins->{{2, 2}, {6, 12}}, TextJustification->1, FontSize->10], Cell[StyleData["TextBelow", "EnhancedPrintout"], CellMargins->{{2, 2}, {6, 12}}, TextJustification->1, FontFamily->"Palatino", FontSize->10], Cell[StyleData["TextBelow", "EnhancedPrintoutNonGray"], CellMargins->{{2, 2}, {6, 12}}, TextJustification->1, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Title"], CellMargins->{{12, Inherited}, {20, 40}}, CellGroupingRules->{"TitleGrouping", 0}, PageBreakBelow->False, DefaultNewInlineCellStyle->"None", InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.35999999999999999, \ -0.10000000000000001}, {0, 0}}, BoxBaselineShift -> -0.20000000000000001], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica", "webMathematica"->FormBox[ RowBox[ {"web", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm]}, LanguageCategory->"NaturalLanguage", CounterIncrements->"Title", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}, { "Subtitle", 0}, {"Subsubtitle", 0}}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->36, FontWeight->"Bold"], Cell[StyleData["Title", "Printout"], CellMargins->{{2, 10}, {15, 30}}, FontSize->30], Cell[StyleData["Title", "EnhancedPrintout"], CellMargins->{{2, 10}, {15, 30}}, FontFamily->"Futura", FontSize->30.5], Cell[StyleData["Title", "EnhancedPrintoutNonGray"], CellMargins->{{2, 10}, {15, 30}}, FontFamily->"Futura", FontSize->30.5] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Undersubsection"], CellMargins->{{10, 4}, {0, 18}}, CellElementSpacings->{"ClosedGroupTopMargin"->18}, ConversionRules:>{"HTML" -> {"

    ", "

    \n"}}, InputAutoReplacements->{"TeX"->StyleBox[ RowBox[ {"T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX"->StyleBox[ RowBox[ {"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.35999999999999999, \ -0.10000000000000001}, {0, 0}}, BoxBaselineShift -> -0.20000000000000001], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.074999999999999997, \ -0.085000000000000006}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma"->"Mathematica", "Mma"->"Mathematica", "MMA"->"Mathematica", "webMathematica"->FormBox[ RowBox[ {"web", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm]}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->12, FontWeight->"Bold"], Cell[StyleData["Undersubsection", "Printout"], CellMargins->{{2, 0}, {7, 10}}, FontSize->10], Cell[StyleData["Undersubsection", "EnhancedPrintout"], CellMargins->{{2, 0}, {7, 8}}, FontFamily->"Futura", FontSize->10], Cell[StyleData["Undersubsection", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {7, 8}}, FontFamily->"Futura", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SectionFirst"], CellMargins->{{10, 4}, {12, 18}}, CellGroupingRules->{"SectionGrouping", 30}, CounterIncrements->"Section", FontFamily->"Helvetica", FontSize->20, FontWeight->"Bold"], Cell[StyleData["SectionFirst", "Printout"], CellMargins->{{2, 0}, {0, 6}}, PageBreakBelow->False, FontSize->18], Cell[StyleData["SectionFirst", "EnhancedPrintout"], CellFrame->{{0, 0}, {0.5, 0}}, CellMargins->{{2, Inherited}, {5, 6}}, CellGroupingRules->{"SectionGrouping", 30}, PageBreakBelow->False, CellFrameMargins->8, CounterIncrements->"Section", CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}}, FontFamily->"Futura", FontSize->16], Cell[StyleData["SectionFirst", "EnhancedPrintoutNonGray"], CellFrame->{{0, 0}, {0.5, 0}}, CellMargins->{{2, Inherited}, {5, 6}}, CellGroupingRules->{"SectionGrouping", 30}, PageBreakBelow->False, CellFrameMargins->8, CounterIncrements->"Section", CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}}, FontFamily->"Futura", FontSize->16] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SubsectionFirst"], CellDingbat->"\[FilledSquare]", CellMargins->{{24, 4}, {0, 18}}, CellElementSpacings->{"ClosedGroupTopMargin"->18}, CellGroupingRules->{"SectionGrouping", 40}, FontFamily->"Helvetica", FontSize->16, FontWeight->"Bold"], Cell[StyleData["SubsectionFirst", "SlideShow"], CellDingbat->None, CellMargins->{{70, 0}, {4, 6}}, FontSize->12], Cell[StyleData["SubsectionFirst", "Printout"], CellMargins->{{9, 0}, {5, 6}}, CellBracketOptions->{"Color"->RGBColor[1, 0, 0]}, FontSize->12], Cell[StyleData["SubsectionFirst", "EnhancedPrintout"], CellMargins->{{9, 0}, {5, 6}}, CellBracketOptions->{"Color"->RGBColor[1, 0, 0]}, FontFamily->"Futura", FontSize->12], Cell[StyleData["SubsectionFirst", "EnhancedPrintoutNonGray"], CellMargins->{{9, 0}, {5, 6}}, CellBracketOptions->{"Color"->RGBColor[1, 0, 0]}, FontFamily->"Futura", FontSize->12] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SubsubsectionFirst"], CellMargins->{{10, 4}, {0, 18}}, CellElementSpacings->{"ClosedGroupTopMargin"->18}, CellGroupingRules->{"SectionGrouping", 50}, FontFamily->"Helvetica", FontSize->12, FontWeight->"Bold"], Cell[StyleData["SubsubsectionFirst", "Printout"], CellMargins->{{2, 0}, {3, 3}}, CellBracketOptions->{"Color"->RGBColor[1, 0, 0]}, FontSize->10], Cell[StyleData["SubsubsectionFirst", "EnhancedPrintout"], CellMargins->{{2, 0}, {3, 3}}, CellBracketOptions->{"Color"->RGBColor[1, 0, 0]}, FontFamily->"Futura", FontSize->10], Cell[StyleData["SubsubsectionFirst", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {3, 3}}, CellBracketOptions->{"Color"->RGBColor[1, 0, 0]}, FontFamily->"Futura", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SubsubsubsectionFirst"], CellMargins->{{10, 4}, {0, 12}}, CellElementSpacings->{"ClosedGroupTopMargin"->18}, StyleMenuListing->None, FontSize->12, FontWeight->"Bold"], Cell[StyleData["SubsubsubsectionFirst", "Printout"], CellMargins->{{2, 0}, {3, 3}}, FontSize->10], Cell[StyleData["SubsubsubsectionFirst", "EnhancedPrintout"], CellMargins->{{2, 0}, {3, 3}}, FontFamily->"Palatino", FontSize->10], Cell[StyleData["SubsubsubsectionFirst", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {3, 3}}, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell["Spacer Cell", "Text"], Cell[CellGroupData[{ Cell[StyleData["Spacer"], CellMargins->{{10, 10}, {0, 0}}, CellElementSpacings->{"CellMinHeight"->2, "ClosedCellHeight"->1}, CellOpen->False, StyleMenuListing->None], Cell[StyleData["Spacer", "Printout"], CellOpen->True, FontSize->3] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DiscretionaryHyphen"], StyleMenuListing->None, FontSize->0.0625, FontColor->GrayLevel[1]], Cell[StyleData["DiscretionaryHyphen", "Printout"], FontSize->10, FontColor->GrayLevel[0]], Cell[StyleData["DiscretionaryHyphen", "EnhancedPrintout"], FontSize->10, FontColor->GrayLevel[0]], Cell[StyleData["DiscretionaryHyphen", "EnhancedPrintoutNonGray"], FontSize->10, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["PictureSmaller1"], CellMargins->{{10, Inherited}, {4, 4}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, StyleMenuListing->None], Cell[StyleData["PictureSmaller1", "Printout"], CellMargins->{{2, Inherited}, {4, 4}}, Magnification->0.63], Cell[StyleData["PictureSmaller1", "EnhancedPrintout"], CellMargins->{{2, Inherited}, {4, 2}}, Magnification->0.63], Cell[StyleData["PictureSmaller1", "EnhancedPrintoutNonGray"], CellMargins->{{2, Inherited}, {4, 2}}, Magnification->0.63] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["PictureSmaller2"], CellMargins->{{10, Inherited}, {4, 4}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, StyleMenuListing->None], Cell[StyleData["PictureSmaller2", "Printout"], CellMargins->{{2, Inherited}, {4, 4}}, Magnification->0.61], Cell[StyleData["PictureSmaller2", "EnhancedPrintout"], CellMargins->{{2, Inherited}, {4, 2}}, Magnification->0.61], Cell[StyleData["PictureSmaller2", "EnhancedPrintoutNonGray"], CellMargins->{{2, Inherited}, {4, 2}}, Magnification->0.61] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["PictureSmaller3"], CellMargins->{{10, Inherited}, {4, 4}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, StyleMenuListing->None], Cell[StyleData["PictureSmaller3", "Printout"], CellMargins->{{2, Inherited}, {4, 4}}, Magnification->0.59], Cell[StyleData["PictureSmaller3", "EnhancedPrintout"], CellMargins->{{2, Inherited}, {4, 2}}, Magnification->0.59], Cell[StyleData["PictureSmaller3", "EnhancedPrintoutNonGray"], CellMargins->{{2, Inherited}, {4, 2}}, Magnification->0.59] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["PictureSmaller4"], CellMargins->{{10, Inherited}, {4, 4}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, StyleMenuListing->None], Cell[StyleData["PictureSmaller4", "Printout"], CellMargins->{{2, Inherited}, {4, 4}}, Magnification->0.57], Cell[StyleData["PictureSmaller4", "EnhancedPrintout"], CellMargins->{{2, Inherited}, {4, 2}}, Magnification->0.57], Cell[StyleData["PictureSmaller4", "EnhancedPrintoutNonGray"], CellMargins->{{2, Inherited}, {4, 2}}, Magnification->0.57] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["PictureSmaller5"], CellMargins->{{10, Inherited}, {4, 4}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, StyleMenuListing->None], Cell[StyleData["PictureSmaller5", "Printout"], CellMargins->{{2, Inherited}, {4, 4}}, Magnification->0.55], Cell[StyleData["PictureSmaller5", "EnhancedPrintout"], CellMargins->{{2, Inherited}, {4, 2}}, Magnification->0.55], Cell[StyleData["PictureSmaller5", "EnhancedPrintoutNonGray"], CellMargins->{{2, Inherited}, {4, 2}}, Magnification->0.55] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["PictureSmaller6"], CellMargins->{{10, Inherited}, {4, 4}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, StyleMenuListing->None], Cell[StyleData["PictureSmaller6", "Printout"], CellMargins->{{2, Inherited}, {4, 4}}, Magnification->0.53], Cell[StyleData["PictureSmaller6", "EnhancedPrintout"], CellMargins->{{2, Inherited}, {4, 2}}, Magnification->0.53], Cell[StyleData["PictureSmaller6", "EnhancedPrintoutNonGray"], CellMargins->{{2, Inherited}, {4, 2}}, Magnification->0.53] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ItemPicture"], CellMargins->{{41, Inherited}, {4, 2}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, StyleMenuListing->None], Cell[StyleData["ItemPicture", "Printout"], CellMargins->{{55, Inherited}, {8, -4}}, Magnification->0.65], Cell[StyleData["ItemPicture", "EnhancedPrintout"], CellMargins->{{60, Inherited}, {10, -3}}, Magnification->0.65], Cell[StyleData["ItemPicture", "EnhancedPrintoutNonGray"], CellMargins->{{60, Inherited}, {10, -3}}, Magnification->0.65] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ItemPictureSmaller1"], CellMargins->{{41, Inherited}, {4, 2}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, StyleMenuListing->None], Cell[StyleData["ItemPictureSmaller1", "Printout"], CellMargins->{{56, Inherited}, {9, -3}}, Magnification->0.63], Cell[StyleData["ItemPictureSmaller1", "EnhancedPrintout"], CellMargins->{{63, Inherited}, {10, -3}}, Magnification->0.63], Cell[StyleData["ItemPictureSmaller1", "EnhancedPrintoutNonGray"], CellMargins->{{63, Inherited}, {10, -3}}, Magnification->0.63] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ItemPictureSmaller2"], CellMargins->{{41, Inherited}, {4, 2}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, StyleMenuListing->None], Cell[StyleData["ItemPictureSmaller2", "Printout"], CellMargins->{{58, Inherited}, {8, -4}}, Magnification->0.61], Cell[StyleData["ItemPictureSmaller2", "EnhancedPrintout"], CellMargins->{{65, Inherited}, {11, -3}}, Magnification->0.61], Cell[StyleData["ItemPictureSmaller2", "EnhancedPrintoutNonGray"], CellMargins->{{65, Inherited}, {11, -3}}, Magnification->0.61] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ItemPictureSmaller3"], CellMargins->{{41, Inherited}, {4, 2}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, StyleMenuListing->None], Cell[StyleData["ItemPictureSmaller3", "Printout"], CellMargins->{{61, Inherited}, {10, -2}}, Magnification->0.59], Cell[StyleData["ItemPictureSmaller3", "EnhancedPrintout"], CellMargins->{{67, Inherited}, {11, -3}}, Magnification->0.59], Cell[StyleData["ItemPictureSmaller3", "EnhancedPrintoutNonGray"], CellMargins->{{67, Inherited}, {11, -3}}, Magnification->0.59] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ItemPictureSmaller4"], CellMargins->{{41, Inherited}, {4, 2}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, StyleMenuListing->None], Cell[StyleData["ItemPictureSmaller4", "Printout"], CellMargins->{{63, Inherited}, {10, -2}}, Magnification->0.57], Cell[StyleData["ItemPictureSmaller4", "EnhancedPrintout"], CellMargins->{{69, Inherited}, {12, -4}}, Magnification->0.57], Cell[StyleData["ItemPictureSmaller4", "EnhancedPrintoutNonGray"], CellMargins->{{69, Inherited}, {12, -4}}, Magnification->0.57] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ItemPictureSmaller5"], CellMargins->{{41, Inherited}, {4, 2}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, StyleMenuListing->None], Cell[StyleData["ItemPictureSmaller5", "Printout"], CellMargins->{{65, Inherited}, {11, -2}}, Magnification->0.55], Cell[StyleData["ItemPictureSmaller5", "EnhancedPrintout"], CellMargins->{{71, Inherited}, {13, -2}}, Magnification->0.55], Cell[StyleData["ItemPictureSmaller5", "EnhancedPrintoutNonGray"], CellMargins->{{71, Inherited}, {13, -2}}, Magnification->0.55] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ItemPictureSmaller6"], CellMargins->{{41, Inherited}, {4, 2}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, StyleMenuListing->None], Cell[StyleData["ItemPictureSmaller6", "Printout"], CellMargins->{{67, Inherited}, {12, -2}}, Magnification->0.53], Cell[StyleData["ItemPictureSmaller6", "EnhancedPrintout"], CellMargins->{{74, Inherited}, {13, -3}}, Magnification->0.53], Cell[StyleData["ItemPictureSmaller6", "EnhancedPrintoutNonGray"], CellMargins->{{74, Inherited}, {13, -3}}, Magnification->0.53] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["PictureBigger1"], CellMargins->{{10, Inherited}, {4, 4}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, StyleMenuListing->None], Cell[StyleData["PictureBigger1", "Printout"], CellMargins->{{2, Inherited}, {4, 4}}, Magnification->0.68], Cell[StyleData["PictureBigger1", "EnhancedPrintout"], CellMargins->{{2, Inherited}, {4, 2}}, Magnification->0.68], Cell[StyleData["PictureBigger1", "EnhancedPrintoutNonGray"], CellMargins->{{2, Inherited}, {4, 2}}, Magnification->0.68] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["PictureBigger2"], CellMargins->{{10, Inherited}, {4, 4}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, StyleMenuListing->None], Cell[StyleData["PictureBigger2", "Printout"], CellMargins->{{2, Inherited}, {4, 4}}, Magnification->0.71], Cell[StyleData["PictureBigger2", "EnhancedPrintout"], CellMargins->{{2, Inherited}, {4, 2}}, Magnification->0.71], Cell[StyleData["PictureBigger2", "EnhancedPrintoutNonGray"], CellMargins->{{2, Inherited}, {4, 2}}, Magnification->0.71] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["PictureBigger3"], CellMargins->{{10, Inherited}, {4, 4}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, StyleMenuListing->None], Cell[StyleData["PictureBigger3", "Printout"], CellMargins->{{2, Inherited}, {4, 4}}, Magnification->0.74], Cell[StyleData["PictureBigger3", "EnhancedPrintout"], CellMargins->{{2, Inherited}, {4, 2}}, Magnification->0.74], Cell[StyleData["PictureBigger3", "EnhancedPrintoutNonGray"], CellMargins->{{2, Inherited}, {4, 2}}, Magnification->0.74] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["PictureBigger4"], CellMargins->{{10, Inherited}, {4, 4}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, StyleMenuListing->None], Cell[StyleData["PictureBigger4", "Printout"], CellMargins->{{2, Inherited}, {4, 4}}, Magnification->0.77], Cell[StyleData["PictureBigger4", "EnhancedPrintout"], CellMargins->{{2, Inherited}, {4, 2}}, Magnification->0.77], Cell[StyleData["PictureBigger4", "EnhancedPrintoutNonGray"], CellMargins->{{2, Inherited}, {4, 2}}, Magnification->0.77] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["PictureBigger5"], CellMargins->{{10, Inherited}, {4, 4}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, StyleMenuListing->None], Cell[StyleData["PictureBigger5", "Printout"], CellMargins->{{2, Inherited}, {4, 4}}, Magnification->0.8], Cell[StyleData["PictureBigger5", "EnhancedPrintout"], CellMargins->{{2, Inherited}, {4, 2}}, Magnification->0.8], Cell[StyleData["PictureBigger5", "EnhancedPrintoutNonGray"], CellMargins->{{2, Inherited}, {4, 2}}, Magnification->0.8] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["PictureBigger6"], CellMargins->{{10, Inherited}, {4, 4}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, StyleMenuListing->None], Cell[StyleData["PictureBigger6", "Printout"], CellMargins->{{2, Inherited}, {4, 4}}, Magnification->0.83], Cell[StyleData["PictureBigger6", "EnhancedPrintout"], CellMargins->{{2, Inherited}, {4, 2}}, Magnification->0.83], Cell[StyleData["PictureBigger6", "EnhancedPrintoutNonGray"], CellMargins->{{2, Inherited}, {4, 2}}, Magnification->0.83] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ItemPictureBigger1"], CellMargins->{{41, Inherited}, {4, 2}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, StyleMenuListing->None], Cell[StyleData["ItemPictureBigger1", "Printout"], CellMargins->{{50, Inherited}, {9, -3}}, Magnification->0.68], Cell[StyleData["ItemPictureBigger1", "EnhancedPrintout"], CellMargins->{{57, Inherited}, {10, -3}}, Magnification->0.68], Cell[StyleData["ItemPictureBigger1", "EnhancedPrintoutNonGray"], CellMargins->{{57, Inherited}, {10, -3}}, Magnification->0.68] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ItemPictureBigger2"], CellMargins->{{41, Inherited}, {4, 2}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, StyleMenuListing->None], Cell[StyleData["ItemPictureBigger2", "Printout"], CellMargins->{{48, Inherited}, {8, -4}}, Magnification->0.71], Cell[StyleData["ItemPictureBigger2", "EnhancedPrintout"], CellMargins->{{54, Inherited}, {10, -3}}, Magnification->0.71], Cell[StyleData["ItemPictureBigger2", "EnhancedPrintoutNonGray"], CellMargins->{{54, Inherited}, {10, -3}}, Magnification->0.71] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ItemPictureBigger3"], CellMargins->{{41, Inherited}, {4, 2}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, StyleMenuListing->None], Cell[StyleData["ItemPictureBigger3", "Printout"], CellMargins->{{46, Inherited}, {10, -2}}, Magnification->0.74], Cell[StyleData["ItemPictureBigger3", "EnhancedPrintout"], CellMargins->{{52, Inherited}, {10, -3}}, Magnification->0.74], Cell[StyleData["ItemPictureBigger3", "EnhancedPrintoutNonGray"], CellMargins->{{52, Inherited}, {10, -3}}, Magnification->0.74] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ItemPictureBigger4"], CellMargins->{{41, Inherited}, {4, 2}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, StyleMenuListing->None], Cell[StyleData["ItemPictureBigger4", "Printout"], CellMargins->{{45, Inherited}, {10, -2}}, Magnification->0.77], Cell[StyleData["ItemPictureBigger4", "EnhancedPrintout"], CellMargins->{{50, Inherited}, {10, -3}}, Magnification->0.77], Cell[StyleData["ItemPictureBigger4", "EnhancedPrintoutNonGray"], CellMargins->{{50, Inherited}, {10, -3}}, Magnification->0.77] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ItemPictureBigger5"], CellMargins->{{41, Inherited}, {4, 2}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, StyleMenuListing->None], Cell[StyleData["ItemPictureBigger5", "Printout"], CellMargins->{{43, Inherited}, {11, -2}}, Magnification->0.8], Cell[StyleData["ItemPictureBigger5", "EnhancedPrintout"], CellMargins->{{49, Inherited}, {10, -3}}, Magnification->0.8], Cell[StyleData["ItemPictureBigger5", "EnhancedPrintoutNonGray"], CellMargins->{{49, Inherited}, {10, -3}}, Magnification->0.8] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ItemPictureBigger6"], CellMargins->{{41, Inherited}, {4, 2}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, StyleMenuListing->None], Cell[StyleData["ItemPictureBigger6", "Printout"], CellMargins->{{43, Inherited}, {12, -2}}, Magnification->0.83], Cell[StyleData["ItemPictureBigger6", "EnhancedPrintout"], CellMargins->{{46, Inherited}, {8, -2}}, Magnification->0.83], Cell[StyleData["ItemPictureBigger6", "EnhancedPrintoutNonGray"], CellMargins->{{46, Inherited}, {8, -2}}, Magnification->0.83] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ScreenGraphic"], CellMargins->{{12, Inherited}, {0, 8}}, CellHorizontalScrolling->True, StyleMenuListing->None], Cell[StyleData["ScreenGraphic", "Printout"], CellMargins->{{2, Inherited}, {0, 8}}], Cell[StyleData["ScreenGraphic", "EnhancedPrintout"], CellMargins->{{2, Inherited}, {0, 8}}, CellElementSpacings->{"CellMinHeight"->2, "ClosedCellHeight"->2}, CellOpen->False], Cell[StyleData["ScreenGraphic", "EnhancedPrintoutNonGray"], CellMargins->{{2, Inherited}, {0, 8}}, CellElementSpacings->{"CellMinHeight"->2, "ClosedCellHeight"->2}, CellOpen->False] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["PrintGraphic"], CellMargins->{{12, Inherited}, {0, 8}}, CellElementSpacings->{"CellMinHeight"->2, "ClosedCellHeight"->2}, CellOpen->False, CellHorizontalScrolling->True, StyleMenuListing->None], Cell[StyleData["PrintGraphic", "Printout"], CellMargins->{{2, Inherited}, {0, 8}}, CellElementSpacings->{"CellMinHeight"->2, "ClosedCellHeight"->2}, CellOpen->False], Cell[StyleData["PrintGraphic", "EnhancedPrintout"], CellMargins->{{2, Inherited}, {0, 8}}, CellElementSpacings->{"CellMinHeight"->12}, CellOpen->True], Cell[StyleData["PrintGraphic", "EnhancedPrintoutNonGray"], CellMargins->{{2, Inherited}, {0, 8}}, CellElementSpacings->{"CellMinHeight"->12}, CellOpen->True] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SmallTextSans"], CellMargins->{{10, 4}, {8, 8}}, ConversionRules:>{"HTML" -> { "", "\n"}}, TextJustification->1, Hyphenation->True, LineSpacing->{1, 2}, FontFamily->"Helvetica", FontSize->9], Cell[StyleData["SmallTextSans", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->7], Cell[StyleData["SmallTextSans", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, LineSpacing->{1, 1}, ParagraphSpacing->{0, -2}, FontFamily->"Futura", FontSize->7] }, Closed]] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["AuthorTools", "Section"], Cell[CellGroupData[{ Cell[StyleData["BilateralCell"], CellMargins->{{10, 4}, {0, 8}}, StyleMenuListing->None, FontSize->12, GridBoxOptions->{ColumnWidths->{0.33, 0.6}, RowAlignments->Top, ColumnAlignments->{Left}}], Cell[StyleData["BilateralCell", "SlideShow"], CellMargins->{{36, 24}, {4, 4}}, Background->GrayLevel[0.900008]], Cell[StyleData["BilateralCell", "Printout"], CellMargins->{{2, 2}, {6, 6}}, TextJustification->1, FontSize->10], Cell[StyleData["BilateralCell", "EnhancedPrintout"], CellMargins->{{2, 2}, {6, 6}}, TextJustification->1, FontFamily->"Palatino", FontSize->10], Cell[StyleData["BilateralCell", "EnhancedPrintoutNonGray"], CellMargins->{{2, 2}, {6, 6}}, TextJustification->1, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["RuledPageBreak"], CellFrame->{{0, 0}, {0.25, 0}}, CellMargins->{{10, 4}, {12, 0}}, CellFrameMargins->{{0, 0}, {1, 0}}, FontSize->8], Cell[StyleData["RuledPageBreak", "SlideShow"], CellMargins->{{36, 24}, {4, 4}}], Cell[StyleData["RuledPageBreak", "Printout"], CellMargins->{{2, 2}, {6, 6}}, PageBreakBelow->True, FontSize->1], Cell[StyleData["RuledPageBreak", "EnhancedPrintout"], CellMargins->{{2, 2}, {6, 6}}, PageBreakBelow->True], Cell[StyleData["RuledPageBreak", "EnhancedPrintoutNonGray"], CellMargins->{{2, 2}, {6, 6}}, PageBreakBelow->True] }, Closed]], Cell[StyleData["PaletteTitle"], CellFrame->{{0, 0}, {1, 0}}, CellMargins->{{4, 20}, {Inherited, 0}}, StyleMenuListing->None, ButtonStyleMenuListing->None, FontFamily->"Helvetica", FontSize->14, FontWeight->"Bold", FontColor->GrayLevel[1], Background->RGBColor[0, 0.32549, 0.537255], ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`HelpBrowserLookup[ "AddOns", #2]}]&), ButtonEvaluator->None, ButtonStyle->"PaletteButton", ButtonMargins->3}], Cell[StyleData["PaletteButton"], StyleMenuListing->None, ButtonStyleMenuListing->None, FontFamily->"Helvetica", FontSize->12, FontWeight->"Bold", FontColor->GrayLevel[1], ButtonBoxOptions->{ButtonEvaluator->"Local", Active->True, ButtonMargins->6, Background->RGBColor[0.329412, 0.584314, 0.694118]}], Cell[StyleData["PaletteButton2"], StyleMenuListing->None, ButtonStyleMenuListing->None, FontFamily->"Helvetica", FontSize->12, FontWeight->"Bold", FontColor->GrayLevel[1], ButtonBoxOptions->{ButtonEvaluator->"Local", Active->True, ButtonMargins->4, Background->RGBColor[0.537255, 0.72549, 0.843137]}] }, Closed]], Cell[CellGroupData[{ Cell["Outline Styles", "Section"], Cell[CellGroupData[{ Cell[StyleData["Outline1"], CellMargins->{{12, 10}, {7, 7}}, CellGroupingRules->{"SectionGrouping", 50}, ParagraphIndent->-38, CounterIncrements->"Outline1", FontSize->18, FontWeight->"Bold", CounterBoxOptions->{CounterFunction:>CapitalRomanNumeral}], Cell[StyleData["Outline1", "Printout"], CounterBoxOptions->{CounterFunction:>CapitalRomanNumeral}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Outline2"], CellMargins->{{48, 10}, {6, 6}}, CellGroupingRules->{"SectionGrouping", 60}, ParagraphIndent->-27, CounterIncrements->"Outline2", FontSize->15, FontWeight->"Bold", CounterBoxOptions->{CounterFunction:>(Part[ CharacterRange[ "A", "Z"], #]&)}], Cell[StyleData["Outline2", "Printout"], CounterBoxOptions->{CounterFunction:>(Part[ CharacterRange[ "A", "Z"], #]&)}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Outline3"], CellMargins->{{84, 10}, {5, 5}}, CellGroupingRules->{"SectionGrouping", 70}, ParagraphIndent->-21, CounterIncrements->"Outline3", FontSize->12, CounterBoxOptions->{CounterFunction:>Identity}], Cell[StyleData["Outline3", "Printout"], CounterBoxOptions->{CounterFunction:>Identity}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Outline4"], CellMargins->{{120, 10}, {4, 4}}, CellGroupingRules->{"SectionGrouping", 80}, ParagraphIndent->-18, CounterIncrements->"Outline4", FontSize->10, CounterBoxOptions->{CounterFunction:>(Part[ CharacterRange[ "a", "z"], #]&)}], Cell[StyleData["Outline4", "Printout"]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Slide Show Styles", "Section"], Cell[CellGroupData[{ Cell[StyleData["SlideShowNavigationBar"], Editable->False, CellFrame->True, CellMargins->{{0, 0}, {3, 3}}, CellElementSpacings->{"CellMinHeight"->0.8125}, CellGroupingRules->{"SectionGrouping", 30}, CellFrameMargins->False, CellFrameColor->GrayLevel[1], CellFrameLabelMargins->False, TextAlignment->Center, CounterIncrements->"SlideShowNavigationBar", StyleMenuListing->None, FontSize->10, Background->GrayLevel[0.8], Magnification->1, GridBoxOptions->{GridBaseline->Center, RowSpacings->0, ColumnSpacings->0, ColumnWidths->{3.5, 3.5, 3.5, 3.5, 13, 5, 4}, RowAlignments->Baseline, ColumnAlignments->{ Center, Center, Center, Center, Center, Center, Right, Center}}], Cell[StyleData["SlideShowNavigationBar", "SlideShow"], Deletable->False, ShowCellBracket->False, CellMargins->{{-1, -1}, {-1, -1}}, PageBreakAbove->True, CellFrameMargins->{{1, 1}, {0, 0}}], Cell[StyleData["SlideShowNavigationBar", "Printout"], CellMargins->{{18, 4}, {4, 4}}, LineSpacing->{1, 3}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SlideShowSection"], CellFrame->{{0, 0}, {0, 0.5}}, CellMargins->{{0, 0}, {10, 0}}, CellGroupingRules->{"SectionGrouping", 40}, PageBreakBelow->False, CellFrameMargins->{{12, 4}, {6, 12}}, 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", "Mma"->"Mathematica", "MMA"->"Mathematica", "webMathematica"->FormBox[ RowBox[ {"web", AdjustmentBox[ StyleBox[ "Mathematica", FontSlant -> "Italic"], BoxMargins -> {{-0.175, 0}, {0, 0}}]}], TextForm], Inherited}, CounterIncrements->"Section", CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->18, FontWeight->"Plain", FontColor->GrayLevel[1], Background->RGBColor[0.408011, 0.440726, 0.8]], Cell[StyleData["SlideShowSection", "SlideShow"], ShowCellBracket->False, PageBreakAbove->True], Cell[StyleData["SlideShowSection", "Printout"], CellMargins->{{18, 30}, {0, 30}}, CellFrameMargins->5, FontSize->14] }, Open ]], Cell[CellGroupData[{ Cell[StyleData["SlideHyperlink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontSize->26, FontColor->GrayLevel[0.400015], ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookLocate[ #2]}]&), Active->True, ButtonMinHeight->0.85, ButtonMargins->0.5, ButtonNote->None}], Cell[StyleData["SlideHyperlink", "SlideShow"]], Cell[StyleData["SlideHyperlink", "Printout"], FontSize->10, FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SlideTOCLink"], CellMargins->{{24, Inherited}, {Inherited, Inherited}}, StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontFamily->"Helvetica", ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookLocate[ #2]}]&), Active->True, ButtonMargins->1.5, ButtonNote->ButtonData}], Cell[StyleData["SlideTOCLink", "SlideShow"]], Cell[StyleData["SlideTOCLink", "Printout"], FontColor->GrayLevel[0], FontVariations->{"Underline"->False}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SlideTOC"], CellDingbat->"\[Bullet]", CellMargins->{{18, Inherited}, {Inherited, Inherited}}, StyleMenuListing->None, FontFamily->"Helvetica"], Cell[StyleData["SlideTOC", "SlideShow"], FontSize->14], Cell[StyleData["SlideTOC", "Printout"], FontSize->10, FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["1ColumnBox"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, LineIndent->0, StyleMenuListing->None, Background->RGBColor[1, 0.6, 0.6], FrameBoxOptions->{BoxFrame->0.5, BoxMargins->True}, GridBoxOptions->{ColumnSpacings->1}], Cell[StyleData["1ColumnBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["1ColumnBox", "SlideShow"], CellMargins->{{36, 36}, {3, 6}}, Background->RGBColor[0.700008, 0.849989, 0.949996]], Cell[StyleData["1ColumnBox", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->10, Background->GrayLevel[0.900008]], Cell[StyleData["1ColumnBox", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {3, 8}}, FontSize->10, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["2ColumnBox"], CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, LineIndent->0, StyleMenuListing->None, Background->RGBColor[1, 0.6, 0.6], FrameBoxOptions->{BoxFrame->0.5, BoxMargins->True}, GridBoxOptions->{ColumnWidths->{0.31, 0.67}}], Cell[StyleData["2ColumnBox", "Printout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->9, Background->GrayLevel[0.900008]], Cell[StyleData["2ColumnBox", "SlideShow"], CellMargins->{{36, 36}, {6, 6}}, Background->RGBColor[0.700008, 0.849989, 0.949996]], Cell[StyleData["2ColumnBox", "EnhancedPrintout"], CellMargins->{{2, 0}, {0, 8}}, FontSize->9, Background->GrayLevel[0.900008]], Cell[StyleData["2ColumnBox", "EnhancedPrintoutNonGray"], CellMargins->{{2, 0}, {0, 8}}, FontSize->9, Background->GrayLevel[1]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["DefinitionBox"], CellFrame->0.5, CellMargins->{{10, 4}, {0, 8}}, CellHorizontalScrolling->True, PageBreakWithin->False, AutoIndent->False, AutoSpacing->False, LineIndent->0, StyleMenuListing->None, FontWeight->"Plain", Background->RGBColor[1, 0.6, 0.6], GridBoxOptions->{RowSpacings->1.5, ColumnSpacings->1, ColumnWidths->{0.4, 0.6}, ColumnAlignments->{Left}}], Cell[StyleData["DefinitionBox", "Printout"], CellMargins->{{2, 4}, {0, 8}}, FontSize->10, Background->GrayLevel[1]], Cell[StyleData["DefinitionBox", "SlideShow"], CellMargins->{{36, 36}, {6, 6}}, Background->RGBColor[0.700008, 0.849989, 0.949996]], Cell[StyleData["DefinitionBox", "EnhancedPrintout"], CellMargins->{{2, 4}, {0, 8}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[1]], Cell[StyleData["DefinitionBox", "EnhancedPrintoutNonGray"], CellMargins->{{2, 4}, {0, 8}}, FontFamily->"Palatino", FontSize->10, Background->GrayLevel[1]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Contents and Index", "Section"], Cell[CellGroupData[{ Cell[StyleData["ContentsTitle"], CellMargins->{{21, 4}, {12, 24}}, FontFamily->"Helvetica", FontSize->24, FontWeight->"Bold"], Cell[StyleData["ContentsTitle", "Printout"], CellMargins->{{12, 0}, {102, 89}}, PageBreakBelow->False, FontSize->30.5], Cell[StyleData["ContentsTitle", "EnhancedPrintout"], CellMargins->{{24, 0}, {102, 89}}, PageBreakBelow->False, FontFamily->"Futura", FontSize->30.5] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ContentsSection"], ShowGroupOpenCloseIcon->True, CellMargins->{{35, 4}, {3, 18}}, CellGroupingRules->{"SectionGrouping", 70}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->12, FontWeight->"Bold"], Cell[StyleData["ContentsSection", "Printout"], CellMargins->{{20, 0}, {3, 18}}, PageBreakBelow->False, FontSize->11], Cell[StyleData["ContentsSection", "EnhancedPrintout"], CellMargins->{{20, 0}, {3, 18}}, PageBreakBelow->False, FontFamily->"Futura", FontSize->11], Cell[StyleData["ContentsSection", "EnhancedPrintoutNonGray"], CellMargins->{{20, 0}, {3, 18}}, PageBreakBelow->False, FontFamily->"Futura", FontSize->11] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["IndexSection"], CellDingbat->"\[FilledSquare]", CellMargins->{{20, 4}, {5, 20}}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->12, FontWeight->"Bold"], Cell[StyleData["IndexSection", "Printout"], CellMargins->{{12, 0}, {5, 20}}, PageBreakBelow->False, FontSize->12] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Contents"], ShowGroupOpenCloseIcon->False, CellMargins->{{50, 4}, {0, 5}}, CellGroupingRules->{"SectionGrouping", 90}, StyleMenuListing->None], Cell[StyleData["Contents", "Printout"], CellMargins->{{40, 4}, {0, 5}}, FontSize->11], Cell[StyleData["Contents", "EnhancedPrintout"], CellMargins->{{40, 5}, {0, 5}}, FontFamily->"Palatino", FontSize->11], Cell[StyleData["Contents", "EnhancedPrintoutNonGray"], CellMargins->{{40, 5}, {0, 5}}, FontFamily->"Palatino", FontSize->11] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Index"], CellMargins->{{21, 4}, {0, 0}}, ParagraphIndent->-48, StyleMenuListing->None], Cell[StyleData["Index", "Printout"], CellMargins->{{13, 0}, {0, 0}}, FontSize->9], Cell[StyleData["Index", "EnhancedPrintout"], CellMargins->{{13, 0}, {0, 0}}, FontFamily->"Palatino", FontSize->9], Cell[StyleData["Index", "EnhancedPrintoutNonGray"], CellMargins->{{13, 0}, {0, 0}}, FontFamily->"Palatino", FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["IndexSubentry"], CellMargins->{{36, 4}, {0, 0}}, ParagraphIndent->-48], Cell[StyleData["IndexSubentry", "Printout"], CellMargins->{{24, 0}, {0, 0}}, FontSize->9], Cell[StyleData["IndexSubentry", "EnhancedPrintout"], CellMargins->{{24, 0}, {0, 0}}, FontFamily->"Palatino", FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Index2Column"], CellMargins->{{21, 4}, {0, 8}}, ParagraphIndent->-20, TabSpacings->1, StyleMenuListing->None, FontSize->10, GridBoxOptions->{ColumnWidths->0.5, ColumnAlignments->{Left}}], Cell[StyleData["Index2Column", "Printout"], CellMargins->{{2, 2}, {6, 6}}, FontSize->8], Cell[StyleData["Index2Column", "EnhancedPrintout"], CellMargins->{{2, 2}, {6, 6}}, FontFamily->"Palatino", FontSize->8], Cell[StyleData["Index2Column", "EnhancedPrintoutNonGray"], CellMargins->{{2, 2}, {6, 6}}, FontFamily->"Palatino", FontSize->8] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Leader"], TabFilling->".", StyleMenuListing->None, FontFamily->"Times", FontSize->12, FontWeight->"Plain"], Cell[StyleData["Leader", "Printout"], FontSize->10], Cell[StyleData["Leader", "EnhancedPrintout"], FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["LeaderNoDots"], TabFilling->" ", StyleMenuListing->None, FontFamily->"Times", FontSize->12, FontWeight->"Plain"], Cell[StyleData["LeaderNoDots", "Printout"], FontSize->10], Cell[StyleData["LeaderNoDots", "EnhancedPrintout"], FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["PageLink"], StyleMenuListing->None, ButtonStyleMenuListing->Automatic, FontColor->RGBColor[0, 0, 1], ButtonBoxOptions->{ButtonFunction:>(FrontEndExecute[ { FrontEnd`NotebookLocate[ #2]}]&), Active->True, ButtonFrame->"None"}], Cell[StyleData["PageLink", "Printout"], FontColor->GrayLevel[0]], Cell[StyleData["PageLink", "EnhancedPrintout"], FontColor->GrayLevel[0]] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TOCPage"], CellSize->{22, Inherited}, TextAlignment->Right, StyleMenuListing->None, FontSize->12, FontWeight->"Plain"], Cell[StyleData["TOCPage", "Printout"], FontSize->10], Cell[StyleData["TOCPage", "EnhancedPrintout"], FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TOCTitle"], CellMargins->{{20, 0}, {1, 8}}, CellGroupingRules->{"SectionGrouping", 70}, TabSpacings->46, CounterIncrements->"TOCTitle", CounterAssignments->{{"TOCSection", 0}}, FontFamily->"Helvetica", FontSize->12, FontWeight->"Bold"], Cell[StyleData["TOCTitle", "Printout"], CellMargins->{{12, 0}, {1, 8}}, PageBreakBelow->False, TabSpacings->47.4, FontSize->11], Cell[StyleData["TOCTitle", "EnhancedPrintout"], CellMargins->{{2, 0}, {2, 10}}, PageBreakBelow->False, TabSpacings->49.3, FontFamily->"Futura", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TOCSection"], CellMargins->{{48, 0}, {1, 1}}, CellGroupingRules->{"SectionGrouping", 75}, TabSpacings->42.9, CounterIncrements->"TOCSection", CounterAssignments->{{"TOCSubsection", 0}}, FontFamily->"Helvetica", FontSize->12], Cell[StyleData["TOCSection", "Printout"], CellMargins->{{30, 0}, {1, 1}}, PageBreakBelow->False, FontSize->12], Cell[StyleData["TOCSection", "EnhancedPrintout"], CellMargins->{{26, 0}, {1, 3}}, PageBreakBelow->False, TabSpacings->46.45, FontFamily->"Futura", FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TOCSubsection"], CellMargins->{{76, 0}, {1, 1}}, CellGroupingRules->{"SectionGrouping", 80}, TabSpacings->39.8, CounterIncrements->"TOCSubsection", CounterAssignments->{{"TOCSubsubsection", 0}}, FontSize->12], Cell[StyleData["TOCSubsection", "Printout"], CellMargins->{{70, 0}, {1, 1}}, PageBreakBelow->False, FontSize->10], Cell[StyleData["TOCSubsection", "EnhancedPrintout"], CellMargins->{{38, 0}, {1, 1}}, PageBreakBelow->False, TabSpacings->45.15, FontFamily->"Palatino", FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TOCSubsubsection"], CellMargins->{{104, 0}, {1, 1}}, CellGroupingRules->{"SectionGrouping", 85}, TabSpacings->36.7, CounterIncrements->"TOCSubsubsection", FontSize->12], Cell[StyleData["TOCSubsubsection", "Printout"], CellMargins->{{96, 0}, {1, 1}}, PageBreakBelow->False, FontSize->9], Cell[StyleData["TOCSubsubsection", "EnhancedPrintout"], CellMargins->{{96, 0}, {1, 1}}, PageBreakBelow->False, FontFamily->"Palatino", FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TOCTitleDingbat"], CellSize->{34, Inherited}, TextAlignment->Right], Cell[StyleData["TOCTitleDingbat", "EnhancedPrintout"], FontFamily->"Futura", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TOCSectionDingbat"], CellSize->{38, Inherited}, TextAlignment->Right], Cell[StyleData["TOCSectionDingbat", "EnhancedPrintout"], FontFamily->"Futura", FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TOCSubsectionDingbat"], CellSize->{54, Inherited}, TextAlignment->Right], Cell[StyleData["TOCSubsectionDingbat", "EnhancedPrintout"], FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TOCTitleCondensed"], CellMargins->{{20, 0}, {1, 8}}, CellGroupingRules->{"SectionGrouping", 70}, TabSpacings->50.4, CounterIncrements->"TOCTitleCondensed", CounterAssignments->{{"TOCSectionCondensed", 0}, { "TOCSubsectionCondensed", 0}}, FontFamily->"Helvetica", FontSize->12, FontWeight->"Bold"], Cell[StyleData["TOCTitleCondensed", "Printout"], CellMargins->{{12, 0}, {1, 8}}, PageBreakBelow->False, FontSize->11], Cell[StyleData["TOCTitleCondensed", "EnhancedPrintout"], CellMargins->{{12, 0}, {1, 8}}, PageBreakBelow->False, FontFamily->"Futura", FontSize->11] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TOCSectionCondensed"], CellMargins->{{48, 0}, {1, 1}}, CellGroupingRules->{"SectionGrouping", 75}, TabSpacings->47.4, CounterIncrements->"TOCSectionCondensed", CounterAssignments->{{"TOCSubsection", 0}}, FontFamily->"Helvetica", FontSize->10, FontWeight->"Bold", FontColor->GrayLevel[0.2]], Cell[StyleData["TOCSectionCondensed", "Printout"], CellMargins->{{36, 0}, {1, 1}}, PageBreakBelow->False, FontSize->11], Cell[StyleData["TOCSectionCondensed", "EnhancedPrintout"], CellMargins->{{36, 0}, {1, 1}}, PageBreakBelow->False, FontFamily->"Palatino", FontSize->11] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TOCSubsectionCondensed"], PageWidth->470, CellMargins->{{76, 0}, {1, 1}}, CellGroupingRules->{"SectionGrouping", 80}, TextJustification->1, Hyphenation->True, FontSize->12], Cell[StyleData["TOCSubsectionCondensed", "Printout"], CellMargins->{{72, 0}, {1, 1}}, PageBreakBelow->False, FontSize->10], Cell[StyleData["TOCSubsectionCondensed", "EnhancedPrintout"], CellMargins->{{72, 0}, {1, 1}}, PageBreakBelow->False, FontFamily->"Palatino", FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["TOCSubsubsectionCondensed"], CellMargins->{{104, 0}, {1, 1}}, CellGroupingRules->{"SectionGrouping", 85}, TabSpacings->39.3, CounterIncrements->"TOCSubsubsectionCondensed", FontSize->12], Cell[StyleData["TOCSubsubsectionCondensed", "Printout"], CellMargins->{{96, 0}, {1, 1}}, PageBreakBelow->False, FontSize->9], Cell[StyleData["TOCSubsubsectionCondensed", "EnhancedPrintout"], CellMargins->{{96, 0}, {1, 1}}, PageBreakBelow->False, FontFamily->"Palatino", FontSize->9] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Horizontal Lines", "Section"], Cell[CellGroupData[{ Cell[StyleData["Line1"], CellFrame->{{0, 0}, {0, 0.5}}, CellMargins->{{10, 4}, {-16, 9}}, StyleMenuListing->None, FontSize->2], Cell[StyleData["Line1", "Printout"], CellMargins->{{2, 0}, {-16, 9}}] }, Closed]], Cell["\<\ The item above is horizontal 0.5 pt line\ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["ProgramTop"], CellFrame->{{0.5, 0.5}, {0, 0.5}}, CellMargins->{{10, 4}, {-18, 18}}, LineSpacing->{1, -4}, StyleMenuListing->None, FontSize->4], Cell[StyleData["ProgramTop", "Printout"], CellMargins->{{2, 0}, {-18, 18}}] }, Closed]], Cell["\<\ The item above is a ProgramTop line \ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["ProgramBottom"], CellFrame->{{0.5, 0.5}, {0.5, 0}}, CellMargins->{{10, 4}, {-10, -2}}, LineSpacing->{1, -4}, StyleMenuListing->None, FontSize->4], Cell[StyleData["ProgramBottom", "Printout"], CellMargins->{{2, 0}, {-10, -2}}] }, Closed]], Cell["\<\ The item above is a ProgramBottom line \ \>", "Text"], Cell[CellGroupData[{ Cell[StyleData["SessionLabel"], CellFrame->{{0.5, 0}, {0, 0.5}}, CellMargins->{{10, 4}, {-4, 18}}, LineSpacing->{1, -3}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->9], Cell[StyleData["SessionLabel", "Printout"], CellMargins->{{2, 0}, {-4, 18}}, FontSize->7] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Page Headers and Footers", "Section"], Cell[CellGroupData[{ Cell[StyleData["PageHeader"], CellMargins->{{0, 0}, {2, 0}}, StyleMenuListing->None, FontSize->8, FontSlant->"Italic"], Cell[StyleData["PageHeader", "Printout"]], Cell[StyleData["PageHeader", "EnhancedPrintout"], FontFamily->"Futura"], Cell[StyleData["PageHeader", "EnhancedPrintoutNonGray"], FontFamily->"Futura"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["PageNumber"], CellMargins->{{0, 0}, {2, 0}}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->8, FontWeight->"Bold"], Cell[StyleData["PageNumber", "Printout"]], Cell[StyleData["PageNumber", "EnhancedPrintout"], FontFamily->"Futura"], Cell[StyleData["PageNumber", "EnhancedPrintoutNonGray"], FontFamily->"Futura"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["PageFooter"], StyleMenuListing->None, FontFamily->"Helvetica", FontSize->6], Cell[StyleData["PageFooter", "Printout"]], Cell[StyleData["PageFooter", "EnhancedPrintout"], FontFamily->"Futura"], Cell[StyleData["PageFooter", "EnhancedPrintoutNonGray"], FontFamily->"Futura"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Automatic Styles", "Section"], Cell["\<\ The cells below define styles that are used to affect the display of certain \ types of objects in typeset expressions. For example, \"UnmatchedBracket\" \ style defines how unmatched bracket, curly bracket, and parenthesis \ characters are displayed (typically by coloring them to make them stand out).\ \ \>", "Text"], Cell[StyleData["UnmatchedBracket"], StyleMenuListing->None] }, Closed]] }, Open ]] }] ] (******************************************************************* Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. *******************************************************************) (*CellTagsOutline CellTagsIndex->{ "MathMLExamples"->{ Cell[41840, 1432, 119, 3, 37, "Text", CellTags->"MathMLExamples"], Cell[41962, 1437, 173, 5, 95, "Text", CellTags->"MathMLExamples"]}, "LastSlide"->{ Cell[64287, 2194, 133, 6, 77, "Section", CellTags->"LastSlide"]} } *) (*CellTagsIndex CellTagsIndex->{ {"MathMLExamples", 280490, 9666}, {"LastSlide", 280662, 9671} } *) (*NotebookFileOutline Notebook[{ Cell[1754, 51, 1632, 42, 20, "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell[3411, 97, 254, 9, 76, "Section"], Cell[CellGroupData[{ Cell[3690, 110, 59, 3, 117, "SectionFirst"], Cell[CellGroupData[{ Cell[3774, 117, 100, 7, 165, "Subsubsection"], Cell[3877, 126, 656, 18, 458, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[4570, 149, 39, 0, 50, "Subsubsection"], Cell[4612, 151, 143, 3, 77, "Input"], Cell[4758, 156, 173, 4, 77, "Input"] }, Open ]] }, Open ]] }, Open ]], Cell[4970, 165, 1594, 41, 20, "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell[6589, 210, 101, 4, 77, "Section"], Cell[6693, 216, 51, 3, 70, "Text"], Cell[6747, 221, 123, 5, 70, "Text"], Cell[6873, 228, 127, 5, 70, "Text"], Cell[7003, 235, 121, 5, 70, "Text"] }, Open ]], Cell[7139, 243, 1594, 41, 20, "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell[8758, 288, 304, 11, 77, "Section"], Cell[9065, 301, 62, 3, 70, "Text"], Cell[9130, 306, 73, 2, 37, "Text"], Cell[9206, 310, 89, 2, 37, "Text"], Cell[9298, 314, 128, 5, 37, "Text"], Cell[9429, 321, 58, 0, 37, "Text"], Cell[9490, 323, 88, 2, 37, "Text"], Cell[9581, 327, 73, 2, 37, "Text"], Cell[9657, 331, 78, 2, 37, "Text"], Cell[9738, 335, 69, 2, 37, "Text"], Cell[9810, 339, 156, 3, 37, "Text"] }, Open ]], Cell[9981, 345, 1594, 41, 20, "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell[11600, 390, 42, 0, 76, "Section"], Cell[11645, 392, 164, 5, 70, "Text"], Cell[11812, 399, 163, 5, 70, "Text"], Cell[11978, 406, 202, 5, 169, "Text"] }, Open ]], Cell[12195, 414, 1594, 41, 20, "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell[13814, 459, 54, 0, 76, "Section"], Cell[13871, 461, 110, 4, 103, "Text"], Cell[13984, 467, 59, 3, 70, "Text"], Cell[14046, 472, 65, 3, 70, "Text"], Cell[14114, 477, 129, 4, 70, "Text"] }, Open ]], Cell[14258, 484, 1594, 41, 20, "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell[15877, 529, 34, 0, 76, "Section"], Cell[15914, 531, 54, 0, 37, "Text"], Cell[15971, 533, 97, 2, 37, "Text"], Cell[16071, 537, 47, 0, 37, "Text"], Cell[16121, 539, 558, 19, 444, "Program"], Cell[16682, 560, 116, 3, 70, "Text"] }, Open ]], Cell[16813, 566, 1594, 41, 20, "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell[18432, 611, 104, 5, 77, "Section"], Cell[18539, 618, 173, 8, 70, "Text"], Cell[18715, 628, 177, 8, 70, "Text"], Cell[18895, 638, 215, 8, 70, "Text"] }, Open ]], Cell[19125, 649, 1594, 41, 20, "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell[20744, 694, 99, 4, 77, "Section"], Cell[20846, 700, 137, 3, 62, "Text"], Cell[20986, 705, 223, 8, 62, "Text"], Cell[21212, 715, 41, 0, 37, "Text"], Cell[21256, 717, 52, 1, 51, "Input"], Cell[21311, 720, 96, 4, 37, "Text"], Cell[21410, 726, 83, 1, 51, "Input"], Cell[21496, 729, 219, 8, 62, "Text"] }, Open ]], Cell[21730, 740, 1594, 41, 20, "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell[23349, 785, 31, 0, 76, "Section"], Cell[CellGroupData[{ Cell[23405, 789, 38, 0, 35, "SubsubsectionIcon"], Cell[23446, 791, 65, 0, 37, "Text"], Cell[23514, 793, 195, 6, 62, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[23746, 804, 49, 0, 27, "SubsubsectionIcon"], Cell[23798, 806, 111, 3, 34, "Text"], Cell[23912, 811, 122, 5, 34, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[24071, 821, 105, 4, 27, "SubsubsectionIcon"], Cell[24179, 827, 293, 8, 86, "Text"], Cell[24475, 837, 108, 5, 34, "Text"], Cell[24586, 844, 49, 0, 34, "Text"] }, Closed]] }, Open ]], Cell[24662, 848, 1594, 41, 20, "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell[26281, 893, 98, 4, 77, "Section"], Cell[CellGroupData[{ Cell[26404, 901, 54, 3, 73, "Subsubsection"], Cell[26461, 906, 75, 3, 70, "Text"], Cell[26539, 911, 125, 4, 70, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[26701, 920, 43, 4, 96, "Subsubsection"], Cell[26747, 926, 136, 5, 70, "Text"], Cell[26886, 933, 57, 3, 70, "Text"], Cell[26946, 938, 120, 4, 70, "Text"] }, Open ]] }, Open ]], Cell[27093, 946, 1594, 41, 20, "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell[28712, 991, 25, 0, 76, "Section"], Cell[28740, 993, 164, 4, 95, "Text"], Cell[28907, 999, 120, 4, 95, "Text"], Cell[29030, 1005, 165, 4, 95, "Text"], Cell[29198, 1011, 272, 8, 95, "Text"], Cell[29473, 1021, 292, 10, 95, "Text"] }, Open ]], Cell[29780, 1034, 1594, 41, 20, "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell[31399, 1079, 101, 4, 77, "Section"], Cell[31503, 1085, 150, 5, 70, "Text"], Cell[31656, 1092, 141, 5, 70, "Text"], Cell[31800, 1099, 168, 5, 70, "Text"], Cell[31971, 1106, 136, 4, 70, "Text"], Cell[32110, 1112, 93, 3, 70, "Text"], Cell[32206, 1117, 103, 4, 70, "Text"], Cell[32312, 1123, 292, 10, 70, "Text"] }, Open ]], Cell[32619, 1136, 1594, 41, 20, "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell[34238, 1181, 113, 4, 77, "Section"], Cell[34354, 1187, 107, 4, 70, "Text"], Cell[34464, 1193, 405, 18, 422, "Program"], Cell[34872, 1213, 301, 10, 62, "Text"], Cell[35176, 1225, 89, 2, 37, "Text"] }, Open ]], Cell[35280, 1230, 1594, 41, 20, "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell[36899, 1275, 37, 0, 76, "Section"], Cell[36939, 1277, 62, 0, 37, "Text"], Cell[37004, 1279, 692, 19, 532, "Text"] }, Open ]], Cell[37711, 1301, 1594, 41, 20, "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell[39330, 1346, 133, 5, 77, "Section", PageBreakAbove->False], Cell[39466, 1353, 123, 4, 95, "Text"], Cell[39592, 1359, 305, 10, 95, "Text"], Cell[39900, 1371, 106, 4, 70, "Text"], Cell[40009, 1377, 172, 5, 95, "Text"] }, Open ]], Cell[40196, 1385, 1594, 41, 20, "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell[41815, 1430, 22, 0, 76, "Section"], Cell[41840, 1432, 119, 3, 37, "Text", CellTags->"MathMLExamples"], Cell[41962, 1437, 173, 5, 95, "Text", CellTags->"MathMLExamples"], Cell[42138, 1444, 146, 4, 70, "Text"], Cell[42287, 1450, 56, 1, 51, "Input"], Cell[42346, 1453, 59, 1, 51, "Input"], Cell[42408, 1456, 177, 5, 95, "Text"] }, Open ]], Cell[42600, 1464, 1594, 41, 20, "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell[44219, 1509, 32, 0, 76, "Section"], Cell[44254, 1511, 130, 4, 95, "Text"], Cell[44387, 1517, 61, 3, 70, "Text"], Cell[44451, 1522, 223, 5, 37, "Text"], Cell[44677, 1529, 111, 4, 70, "Text"], Cell[44791, 1535, 71, 3, 70, "Text"], Cell[44865, 1540, 53, 3, 70, "Text"] }, Open ]], Cell[44933, 1546, 1594, 41, 20, "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell[46552, 1591, 30, 0, 76, "Section"], Cell[46585, 1593, 123, 4, 70, "Text"], Cell[46711, 1599, 241, 5, 70, "Text"], Cell[46955, 1606, 168, 4, 95, "Text"], Cell[47126, 1612, 182, 5, 95, "Text"] }, Open ]], Cell[47323, 1620, 1594, 41, 20, "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell[48942, 1665, 33, 0, 76, "Section"], Cell[48978, 1667, 116, 4, 70, "Text"], Cell[49097, 1673, 392, 13, 312, "Program"], Cell[49492, 1688, 278, 8, 37, "Text"] }, Open ]], Cell[49785, 1699, 1594, 41, 20, "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell[51404, 1744, 116, 5, 77, "Section"], Cell[51523, 1751, 85, 3, 70, "Text"], Cell[51611, 1756, 139, 5, 70, "Text"], Cell[51753, 1763, 256, 5, 129, "Input"], Cell[52012, 1770, 53, 1, 51, "Input"], Cell[52068, 1773, 188, 8, 70, "Text"], Cell[52259, 1783, 185, 5, 95, "Text"], Cell[52447, 1790, 172, 5, 95, "Text"] }, Open ]], Cell[52634, 1798, 1594, 41, 20, "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell[54253, 1843, 34, 0, 76, "Section"], Cell[54290, 1845, 99, 3, 70, "Text"], Cell[54392, 1850, 196, 8, 70, "Text"], Cell[54591, 1860, 55, 1, 51, "Input"], Cell[54649, 1863, 66, 1, 51, "Input"], Cell[54718, 1866, 51, 0, 37, "Text"], Cell[54772, 1868, 65, 1, 51, "Input"], Cell[54840, 1871, 272, 9, 70, "Text"], Cell[55115, 1882, 146, 5, 70, "Text"] }, Open ]], Cell[55276, 1890, 1594, 41, 20, "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell[56895, 1935, 33, 0, 76, "Section"], Cell[56931, 1937, 285, 10, 70, "Text"], Cell[57219, 1949, 72, 3, 70, "Text"], Cell[57294, 1954, 282, 12, 268, "Program"] }, Open ]], Cell[57591, 1969, 1594, 41, 20, "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell[59210, 2014, 36, 0, 76, "Section"], Cell[59249, 2016, 202, 7, 96, "Text"], Cell[59454, 2025, 149, 6, 158, "Program"], Cell[59606, 2033, 109, 4, 70, "Text"], Cell[59718, 2039, 128, 4, 70, "Text"] }, Open ]], Cell[59861, 2046, 1594, 41, 20, "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell[61480, 2091, 34, 0, 76, "Section"], Cell[61517, 2093, 80, 3, 70, "Text"], Cell[61600, 2098, 282, 15, 356, "Program"], Cell[61885, 2115, 108, 3, 37, "Text"], Cell[61996, 2120, 117, 3, 37, "Text"], Cell[62116, 2125, 283, 9, 70, "Text"], Cell[62402, 2136, 74, 3, 70, "Text"], Cell[62479, 2141, 136, 4, 70, "Text"] }, Open ]], Cell[62630, 2148, 1632, 42, 20, "SlideShowNavigationBar"], Cell[CellGroupData[{ Cell[64287, 2194, 133, 6, 77, "Section", CellTags->"LastSlide"], Cell[64423, 2202, 131, 5, 70, "Text"], Cell[64557, 2209, 47, 3, 70, "Text"], Cell[64607, 2214, 106, 5, 70, "Text"], Cell[64716, 2221, 150, 5, 70, "Text"], Cell[64869, 2228, 113, 5, 70, "Text"] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)