(*********************************************************************** Mathematica-Compatible Notebook This notebook can be used on any computer system with Mathematica 4.0, MathReader 4.0, or any compatible application. The data for the notebook starts with the line containing stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. ***********************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 128314, 4259]*) (*NotebookOutlinePosition[ 152969, 4976]*) (* CellTagsIndexPosition[ 152783, 4966]*) (*WindowFrame->Normal*) Notebook[{ Cell[TextData[{ "Introduction to ", StyleBox["Mathematica", FontSlant->"Italic"] }], "Title"], Cell[TextData[{ "To start this slide show, click the ", StyleBox["start", FontFamily->"Courier", FontWeight->"Bold", FontColor->GrayLevel[0]], " button:" }], "Text", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ ButtonBox[ StyleBox["start", FontSize->36, FontWeight->"Bold"], ButtonFunction:>CompoundExpression[ Set[ SlideShow`$ShowFirstSlide, True], Set[ SlideShow`source, SelectedNotebook[ ]], SetOptions[ SlideShow`source, Visible -> False], NotebookFind[ SlideShow`source, "palette", All, CellTags], Set[ SlideShow`controls, Notebooks[ ]], FrontEndExecute[ FrontEndToken[ SlideShow`source, "GeneratePalette"]], Set[ SlideShow`controls, First[ Complement[ Notebooks[ ], SlideShow`controls]]], SetOptions[ SlideShow`controls, Editable -> True], SetOptions[ SlideShow`controls, WindowTitle -> "controls", WindowMargins -> {{ Automatic, 50}, {40, Automatic}}], Set[ SlideShow`reset, NotebookCreate[ WindowTitle -> "reset", Visible -> False]], NotebookFind[ SlideShow`source, "reset", All, CellTags], FrontEndExecute[ { FrontEndToken[ SlideShow`source, "Copy"], FrontEndToken[ SlideShow`reset, "Paste"], FrontEndToken[ SlideShow`reset, "SelectAll"], FrontEndToken[ SlideShow`reset, "EvaluateCells"]}]], ButtonEvaluator->Automatic, Active->True]], NotebookDefault], Cell[TextData[{ "Clicking ", StyleBox["start", FontFamily->"Courier", FontWeight->"Bold", FontColor->GrayLevel[0]], " will open a palette with nine buttons:" }], "Text", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ StyleBox[GridBox[{ { ButtonBox["next", ButtonFunction:>SlideShow`NextSlide[ False]], ButtonBox["back", ButtonFunction:>SlideShow`PreviousSlide], ButtonBox["first", ButtonFunction:>SlideShow`FirstSlide]}, { ButtonBox["skip", ButtonFunction:>SlideShow`SkipSlide], ButtonBox["notes", ButtonFunction:>SlideShow`NotesToggle], ButtonBox["demo", ButtonFunction:>SlideShow`NextSlide[ True]]}, { ButtonBox["stop", ButtonFunction:>FrontEndExecute[ FrontEndToken[ Automatic, "EvaluatorQuit"]], ButtonEvaluator->None], ButtonBox["reset", ButtonFunction:>CompoundExpression[ Set[ SlideShow`reset, First[ Select[ Notebooks[ ], SameQ[ ReplaceAll[ WindowTitle, Options[ #]], "reset"]&]]], FrontEndExecute[ { FrontEndToken[ SlideShow`reset, "SelectAll"], FrontEndToken[ SlideShow`reset, "EvaluateCells"]}]]], ButtonBox["close", ButtonFunction:>CompoundExpression[ NotebookClose[ SlideShow`notes], NotebookClose[ SlideShow`reset], NotebookClose[ SlideShow`source], NotebookClose[ SlideShow`nb], NotebookClose[ SlideShow`cache], NotebookClose[ ButtonNotebook[ ]]]]} }, RowSpacings->0, ColumnSpacings->0], ButtonBoxOptions->{ButtonEvaluator->Automatic, Active->True, ButtonMargins->12}]], NotebookDefault, CellTags->"palette"], Cell[TextData[{ "The ", StyleBox["next", FontFamily->"Courier", FontWeight->"Bold", FontColor->GrayLevel[0]], " button shows the next slide" }], "Text", FontColor->RGBColor[1, 0, 0]], Cell[TextData[{ "The ", StyleBox["back", FontFamily->"Courier", FontWeight->"Bold", FontColor->GrayLevel[0]], " button shows the previous slide" }], "Text", FontColor->RGBColor[1, 0, 0]], Cell[TextData[{ "The ", StyleBox["first", FontFamily->"Courier", FontWeight->"Bold", FontColor->GrayLevel[0]], " button jumps to the first slide" }], "Text", FontColor->RGBColor[1, 0, 0]], Cell[TextData[{ "The ", StyleBox["skip", FontFamily->"Courier", FontWeight->"Bold", FontColor->GrayLevel[0]], " button skips to the next section" }], "Text", FontColor->RGBColor[1, 0, 0]], Cell[TextData[{ "The ", StyleBox["notes", FontFamily->"Courier", FontWeight->"Bold", FontColor->GrayLevel[0]], " button shows (or hides) lecture notes" }], "Text", FontColor->RGBColor[1, 0, 0]], Cell[TextData[{ "The ", StyleBox["demo", FontFamily->"Courier", FontWeight->"Bold", FontColor->GrayLevel[0]], " button includes examples intended for manual demonstration" }], "Text", FontColor->RGBColor[1, 0, 0]], Cell[TextData[{ "The ", StyleBox["stop", FontFamily->"Courier", FontWeight->"Bold", FontColor->GrayLevel[0]], " button stops the kernel" }], "Text", FontColor->RGBColor[1, 0, 0]], Cell[TextData[{ "The ", StyleBox["reset", FontFamily->"Courier", FontWeight->"Bold", FontColor->GrayLevel[0]], " button attempts error recovery" }], "Text", FontColor->RGBColor[1, 0, 0]], Cell[TextData[{ "The ", StyleBox["close", FontFamily->"Courier", FontWeight->"Bold", FontColor->GrayLevel[0]], " button closes all of the notebooks used in this slide show" }], "Text", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ \(\(Begin["\"];\)\)], "Input", CellTags->"reset"], Cell[BoxData[ \(\(SlideShow`source = With[{nb = Select[Notebooks[], SameQ[WindowTitle /. Options[#], "\"] &]}, If[Length[nb] > 0, nb[\([1]\)], NotebookPut[ Notebook[{Cell["\", "\", FontSize \[Rule] 24, ShowCellBracket \[Rule] False]}, WindowSize \[Rule] {250, 70}, WindowMargins \[Rule] {{340, Automatic}, {Automatic, 200}}, WindowTitle \[Rule] "\", WindowElements \[Rule] {}, WindowFrameElements \[Rule] "\"]]]];\)\)], "Input",\ CellTags->"reset"], Cell[BoxData[ \(\(SlideShow`nb = With[{nb = Select[Notebooks[], SameQ[WindowTitle /. Options[#], "\"] &]}, If[Length[nb] > 0, nb[\([1]\)], NotebookCreate[ WindowTitle \[Rule] "\", Magnification \[Rule] 2, WindowSize \[Rule] {760, 560}, WindowMargins \[Rule] {{20, Automatic}, {Automatic, 20}}, DelimiterFlashTime \[Rule] 0, StyleDefinitions \[Rule] "\", ScreenStyleEnvironment \[Rule] "\"]]];\)\)], "Input", CellTags->"reset"], Cell[BoxData[ \(\(SlideShow`notes = With[{nb = Select[Notebooks[], SameQ[WindowTitle /. Options[#], "\"] &]}, If[Length[nb] > 0, nb[\([1]\)], NotebookCreate[Visible \[Rule] True, WindowTitle -> "\", WindowSize \[Rule] {520, 120}, WindowMargins \[Rule] {{20, Automatic}, {20, Automatic}}]]];\)\)], "Input", CellTags->"reset"], Cell[BoxData[ \(\(SlideShow`$EvaluationToggle = False;\)\)], "Input", CellTags->"reset"], Cell[BoxData[ \(SlideShow`ShortPause := Do[2 + 2, {10000}]\)], "Input", CellTags->"reset"], Cell[BoxData[ \(SlideShow`TypeInput[p_] := If[StringQ[p], Scan[\((NotebookWrite[nb, #]; ShortPause)\) &, Characters[p]], NotebookWrite[nb, p]]\)], "Input", CellTags->"reset"], Cell[BoxData[ \(SlideShow`HeadingCell[data_] := MemberQ[{"\", "\", "\"}, Part[NestWhile[First, data, \((Head[#] =!= Cell || Length[#] < 2)\) &], 2]]\)], "Input",\ CellTags->"reset"], Cell[BoxData[ \(\(\(SlideShow`ShowSlide[data_]\)\(:=\)\)\)], "Input"], Cell[BoxData[ \(SlideShow`NextSlide[p_] := If[$EvaluationToggle, $EvaluationToggle = False; FrontEndExecute[FrontEndToken[nb, "\"]], Module[{data}, SelectionMove[source, Next, CellGroup]; data = NotebookRead[source]; If[data === {}, SelectionMove[source, Previous, CellGroup], If[First[data] === "\", If[p, SelectionMove[source, Next, CellGroup]; data = NotebookRead[source], NotebookFind[source, "\", Next]; SelectionMove[source, Next, CellGroup]; data = NotebookRead[source]]]; If[First[data] === "\", SelectionMove[source, Next, CellGroup]; data = NotebookRead[source]]; If[SameQ[Last[data], CellTags \[Rule] "\"], FrontEndExecute[{FrontEndToken[notes, "\"], FrontEndToken[source, "\"], FrontEndToken[notes, "\"], FrontEndToken[notes, "\"]}]; SelectionMove[source, Next, CellGroup]; data = NotebookRead[source]]; If[Last[data] === "\", \ \[IndentingNewLine]$EvaluationToggle = True; SelectionMove[nb, After, Notebook]; TypeInput[data[\([1]\)]], \[IndentingNewLine]If[ SameQ[Last[data], CellTags \[Rule] "\"], \($Line--\); FrontEndExecute[FrontEndToken[source, "\"]], If[HeadingCell[data], FrontEndExecute[{FrontEndToken[source, "\"], FrontEndToken[nb, "\"], FrontEndToken[nb, "\"], FrontEndToken[nb, "\"]}], SelectionMove[nb, After, Notebook]; NotebookWrite[nb, data]]]]]]]\)], "Input", CellTags->"reset"], Cell[BoxData[ \(SlideShow`NotesToggle := SetOptions[notes, \ Visible \[Rule] Not[TrueQ[Visible /. Options[notes]]]]\)], "Input", CellTags->"reset"], Cell[BoxData[ \(\(SlideShow`PreviousSlide := Module[{data}, \[IndentingNewLine]$EvaluationToggle = False; While[SelectionMove[source, Previous, CellGroup]; data = NotebookRead[source]; Which[First[ data] === "\", \[IndentingNewLine]NotebookFind[ source, "\", Previous]; True, HeadingCell[data], SelectionMove[source, Previous, Cell]; SelectionMove[source, Before, Cell]; NextSlide[True]; False, Last[data] === \((CellTags \[Rule] "\")\), NextSlide[True]; False, True, True]]];\)\)], "Input", CellTags->"reset"], Cell[BoxData[ \(SlideShow`FirstSlide := \(($EvaluationToggle = False; NotebookFind[source, "\", All, CellTags]; SetSelectedNotebook[notes]; SetSelectedNotebook[nb]; \[IndentingNewLine]FrontEndExecute[ FrontEndToken[source, "\"]])\)\)], "Input", CellTags->"reset"], Cell[BoxData[ \(If[SlideShow`$ShowFirstSlide, SlideShow`$ShowFirstSlide = False; SlideShow`FirstSlide]\)], "Input", CellTags->"reset"], Cell[BoxData[ \(SlideShow`SkipSlide := \(($EvaluationToggle = False; While[SelectionMove[source, Next, CellGroup]; data = NotebookRead[source]; Which[data === {}, SelectionMove[source, Previous, CellGroup]; False, First[data] === "\", NotebookFind[source, "\", Next]; True, HeadingCell[data], SelectionMove[source, Previous, Cell]; SelectionMove[source, Before, Cell]; \[IndentingNewLine]NextSlide[ True]; False, True, True]])\)\)], "Input", CellTags->"reset"], Cell[BoxData[ \(SetSelectedNotebook[nb]; End[]; $Line = 0;\)], "Input", CellTags->"reset"], Cell[BoxData[ \($Line = 0; SlideShow`NextSlide[True];\)], "Input", CellTags->"first"], Cell[TextData[{ "Welcome to the Introduction to ", StyleBox["Mathematica", FontSlant->"Italic"], " training course.\nThe purpose of this course is to provide specific \ step-by-step information about doing basic calculations with ", StyleBox["Mathematica", FontSlant->"Italic"], ", to provide a more general tour of other features of the system, and to \ point out sources for more information.\n[Quit ", StyleBox["Mathematica", FontSlant->"Italic"], " to demonstrate basic features. Click the demo button to step through a \ typical demonstration. This demonstration is more effective if done live.]" }], "Text", ParagraphIndent->24, CellTags->"notes"], Cell[TextData[{ "Introduction to ", StyleBox["Mathematica", FontSlant->"Italic"] }], "Title"], Cell["start demo", "Text"], Cell[TextData[{ "I would like to start at the beginning, or not quite at the beginning, \ because the first step is to install ", StyleBox["Mathematica", FontSlant->"Italic"], " on your computer, and I am not going to talk about installation here \ except to mention that there are an infinite number of ways to configure a \ computer and as a result there are an infinite number of issues that might \ come up during installation, since installation is a very system-dependent \ task. Usually installation works without difficulty following the printed \ instructions that came with your copy of ", StyleBox["Mathematica", FontSlant->"Italic"], ", and if you have trouble you can either contact someone who is an expert \ about the configuration of your computer or contact Wolfram Research \ technical support." }], "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[TextData[{ "Introduction to ", StyleBox["Mathematica", FontSlant->"Italic"] }], "Section"], Cell["Getting started", "Contents", CellDingbat->"\[FilledCircle]"], Cell["Basic inputs", "Contents"], Cell["Tour of built-in functions", "Contents"], Cell["Notebooks and typesetting", "Contents"], Cell["Programming", "Contents"], Cell["Sources for more information", "Contents"] }, Open ]], Cell[TextData[{ "So assuming that ", StyleBox["Mathematica", FontSlant->"Italic"], " is already installed, the first step is to start the program. If you know \ how to start other applications on your computer, then starting ", StyleBox["Mathematica", FontSlant->"Italic"], " should work in basically the same way, but that way will be different on \ different types of computers. For more information, see the Getting Started \ booklet that came with your copy of ", StyleBox["Mathematica", FontSlant->"Italic"], ". An online version of the Getting Started booklet is included in the ", StyleBox["Getting Started/Demos", "SR"], " section of the Help Browser." }], "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[TextData[{ "Starting ", StyleBox["Mathematica", FontSlant->"Italic"] }], "Subsection"], Cell[TextData[{ "Windows: Open the ", StyleBox["Start", "SR"], " menu, point to ", StyleBox["Programs", "SR"], ", and choose ", StyleBox["Mathematica", "SR", FontVariations->{"CompatibilityType"->0}], " from the ", StyleBox["Mathematica", FontSlant->"Italic"], " program group." }], "Text"], Cell[TextData[{ "Macintosh: ", "Double-click the ", StyleBox["Mathematica", FontSlant->"Italic"], " icon inside the ", StyleBox["Mathematica", FontSlant->"Italic"], " folder." }], "Text"], Cell[TextData[{ "X/Unix/Linux: In a shell, type ", StyleBox["mathematica", "MR"], "." }], "Text"], Cell[TextData[{ "Your computer may be set up so that there are other ways to start ", StyleBox["Mathematica", FontSlant->"Italic"], ". " }], "Text"] }, Open ]], Cell[TextData[{ "After ", StyleBox["Mathematica", FontSlant->"Italic"], " starts up, after a default installation, you should find on your computer \ screen a menu bar, a large empty window, and another smaller window called a \ palette.\nThe menu bar includes items like a File menu and an Edit menu that \ work much like the corresponding menus that you see when you use other \ applications, and several menu items that are specific to ", StyleBox["Mathematica", FontSlant->"Italic"], "." }], "Text", ParagraphIndent->24, CellTags->"notes"], Cell[CellGroupData[{ Cell["Interface elements", "Subsection"], Cell["Menu bar", "Text"], Cell["Main input/output window", "Text"], Cell["One or more palette windows (optional)", "Text"] }, Open ]], Cell[TextData[{ "The large empty window is called a notebook window. The documents that \ you edit using ", StyleBox["Mathematica", FontSlant->"Italic"], " are called notebooks. This window shows the contents of a notebook. The \ window you normally see at startup is a new, empty notebook, so the window \ will be empty. This is the window into which you will enter your input and in \ which ", StyleBox["Mathematica", FontSlant->"Italic"], " will display your results." }], "Text", CellTags->"notes"], Cell[BoxData[ \(SetSelectedNotebook[SlideShow`notes]; SetSelectedNotebook[SlideShow`nb];\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(\(SlideShow`sample = NotebookCreate[Magnification \[Rule] 3];\)\)], "Input", CellTags->"evaluate"], Cell["\<\ The third item on your computer screen is called a palette. This \ palette is a collection of buttons that provide a convenient way of entering \ certain kinds of input. I will give some examples of that later in this \ session.\ \>", "Text", CellTags->"notes"], Cell[BoxData[ \(SetSelectedNotebook[SlideShow`notes]; SetSelectedNotebook[SlideShow`nb];\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(\(NotebookOpen["\"];\)\)], "Input", CellTags->"evaluate"], Cell["\<\ Returning now to the main input output window, to enter your input, \ just start typing.\ \>", "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell["Entering and evaluating input", "Subsection"], Cell["To enter input, just start typing", "Text"] }, Open ]], Cell[BoxData[ \(\(SetSelectedNotebook[SlideShow`sample];\)\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(Scan[\((NotebookWrite[SlideShow`sample, #]; SlideShow`ShortPause)\) &, Characters["\<2+2\>"]]\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(SetSelectedNotebook[SlideShow`notes]; SetSelectedNotebook[SlideShow`nb]; SlideShow`NextSlide[True];\)], "Input",\ CellTags->"evaluate"], Cell[TextData[{ "Now I want to tell ", StyleBox["Mathematica", FontSlant->"Italic"], " to do this calculation, or in ", StyleBox["Mathematica", FontSlant->"Italic"], " terminology, I want to tell ", StyleBox["Mathematica", FontSlant->"Italic"], " to evaluate this input. There are several ways to do that, the most \ common of which is to press the return key while holding down the shift key." }], "Text", CellTags->"notes"], Cell["\<\ To evaluate input, press the return key while holding down the \ shift key.\ \>", "Text"], Cell[BoxData[ \(\(SetSelectedNotebook[SlideShow`sample];\)\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(\(FrontEndExecute[ FrontEndToken[SlideShow`sample, "\"]];\)\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(SetSelectedNotebook[SlideShow`notes]; SetSelectedNotebook[SlideShow`nb]; SlideShow`NextSlide[True]\)], "Input", CellTags->"evaluate"], Cell["To enter another calculation, just continue typing.", "Text", ParagraphIndent->24, CellTags->"notes"], Cell["To enter another calculation, just continue typing", "Text"], Cell[BoxData[ \(\(SetSelectedNotebook[SlideShow`sample];\)\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(Scan[\((NotebookWrite[SlideShow`sample, #]; SlideShow`ShortPause)\) &, Characters["\<3+3\>"]]\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(FrontEndExecute[ FrontEndToken[SlideShow`sample, "\"]]\)], "Input", CellTags->"evaluate"], Cell[TextData[{ "If any of this doesn't work it is probably either because of something \ that you did, such as clicking outside of this window after entering your \ input, which would select another application, in which case the solution is \ to find out what you did, or because of some sort of installation problem, so \ that ", StyleBox["Mathematica", FontSlant->"Italic"], " is for example not able to launch the part of ", StyleBox["Mathematica", FontSlant->"Italic"], " that does the calculations, in which case the problem would be approached \ just like any other installation problem.\nThere are rarely any difficulties \ at this stage however. Installation usually works, and difficult problems \ after that are very rare." }], "Text", ParagraphIndent->24, CellTags->"notes"], Cell[BoxData[ \(SetSelectedNotebook[SlideShow`notes]; SetSelectedNotebook[SlideShow`nb];\)], "Input", CellTags->"evaluate"], Cell["\<\ Before moving on I would like to remark that saving, closing, and \ opening notebook files works essentially as it does in other applications. For example, you can save a notebook by selecting Save or Save As from the \ File menu.\ \>", "Text", ParagraphIndent->24, CellTags->"notes"], Cell[CellGroupData[{ Cell["Saving and opening notebooks", "Subsection"], Cell["Save notebooks using Save from the File menu", "Text"], Cell["Close notebooks using Close from the File menu", "Text"], Cell["Create new notebooks using New from the File menu", "Text"], Cell["Open notebooks using Open from the File menu", "Text"] }, Open ]], Cell[BoxData[ \(\(SetSelectedNotebook[SlideShow`sample];\)\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(\(NotebookSave[SlideShow`sample];\)\)], "Input", CellTags->"evaluate"], Cell["\<\ You can close a notebook by selecting Close from the File \ menu.\ \>", "Text", CellTags->"notes"], Cell[BoxData[ \(SetSelectedNotebook[SlideShow`notes]; SetSelectedNotebook[SlideShow`nb];\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(\(SetSelectedNotebook[SlideShow`sample];\)\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(NotebookClose[SlideShow`sample]\)], "Input", CellTags->"evaluate"], Cell["\<\ You can create a new notebook by selecting New from the File \ menu.\ \>", "Text", CellTags->"notes"], Cell[BoxData[ \(SetSelectedNotebook[SlideShow`notes]; SetSelectedNotebook[SlideShow`nb];\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(\(SlideShow`new = NotebookCreate[];\)\)], "Input", CellTags->"evaluate"], Cell["\<\ Or you can re-open the saved notebook to continue working in that \ notebook using Open from the File menu.\ \>", "Text", CellTags->"notes"], Cell[BoxData[ \(SetSelectedNotebook[SlideShow`notes]; SetSelectedNotebook[SlideShow`nb];\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(SlideShow`sample = Notebooks[]; FrontEndExecute[FrontEndToken["\"]]; SlideShow`sample = \(Complement[Notebooks[], SlideShow`sample]\)[\([1]\)];\)], "Input", CellTags->"evaluate"], Cell["\<\ And there are keyboard equivalents for all of these things [list keyboard commands for opening, closing and saving notebooks] [Ask for questions.] [Open the slide show notebook, without narration] [Advance to the first slide, giving the outline of the talk]\ \>", "Text", ParagraphIndent->24, CellTags->"notes"], Cell[BoxData[ \(NotebookClose[SlideShow`sample]; NotebookClose[SlideShow`new]; SetSelectedNotebook[SlideShow`notes]; SetSelectedNotebook[SlideShow`nb];\)], "Input", CellTags->"evaluate"], Cell["end demo", "Text"], Cell[TextData[{ "Here is an outline for the remainder of this session.\nGetting started we \ just discussed.\nUnder Basic inputs, which is the next topic, I want to go \ over a fairly detailed discussion of the basic principles of ", StyleBox["Mathematica", FontSlant->"Italic"], " syntax.\nAfter that the next topic, tour of built-in functions, is a \ rather less detailed survey of calculations you can do using ", StyleBox["Mathematica", FontSlant->"Italic"], " and without doing any programming.\nThen I want to describe some \ formatting and typesetting and other things you can do with this notebook \ interface that we've been looking at.\nNext I want to spend a least a few \ minutes talking about programming in ", StyleBox["Mathematica", FontSlant->"Italic"], ". Certainly a few minutes isn't enough to do justice to this subject, but \ programming is so important that it seems worthwhile to mention it at least \ briefly.\nAnd finally I want to point out additional sources of information \ and in particular point out some things that might be of special interest \ when getting started." }], "Text", ParagraphIndent->24, CellTags->"notes"], Cell[CellGroupData[{ Cell[TextData[{ "Introduction to ", StyleBox["Mathematica", FontSlant->"Italic"] }], "Section"], Cell["Getting started", "Contents", CellDingbat->"\[EmptyCircle]"], Cell["Basic inputs", "Contents", CellDingbat->"\[FilledCircle]"], Cell["Tour of built-in functions", "Contents"], Cell["Notebooks and typesetting", "Contents"], Cell["Programming", "Contents"], Cell["Sources for more information", "Contents"] }, Open ]], Cell["\<\ As described earlier, to enter your input you just start typing, \ and to evaluate that input press the return key while holding down the shift \ key.\ \>", "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell["First calculations", "Subsection"], Cell["To enter your input, just start typing", "Text"], Cell["\<\ To evaluate your input, press the return or enter key while holding \ down the shift key.\ \>", "Text"] }, Open ]], Cell[TextData[{ "For example.\n[click to evaluate]\nTo move beyond two plus two it is \ useful to learn a bit more about ", StyleBox["Mathematica", FontSlant->"Italic"], " syntax." }], "Text", CellTags->"notes"], Cell["2+2", "Input"], Cell["\<\ Arithmetic is entered using the same standard notations that you \ find in other computer programs and in traditional mathematics. A plus sign \ means addition, a minus sign means subtraction, and so forth.\ \>", "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell["Arithmetic", "Subsection"], Cell[BoxData[GridBox[{ { StyleBox[\(x + y + z\), FontFamily->"Courier", FontWeight->"Bold"], "add"}, { StyleBox[\(-x\), FontFamily->"Courier", FontWeight->"Bold"], "minus"}, { StyleBox[\(x - y\), FontFamily->"Courier", FontWeight->"Bold"], "subtract"}, { StyleBox[\(x/y\), FontFamily->"Courier", FontWeight->"Bold"], "divide"}, { RowBox[{ StyleBox["x", FontFamily->"Courier", FontWeight->"Bold"], StyleBox[" ", FontFamily->"Courier", FontWeight->"Bold"], StyleBox["y", FontFamily->"Courier", FontWeight->"Bold"], StyleBox[" ", FontFamily->"Courier", FontWeight->"Bold"], StyleBox["z", FontFamily->"Courier", FontWeight->"Bold"], StyleBox[" ", FontFamily->"Courier", FontWeight->"Bold"], StyleBox["or", FontFamily->"Times", FontWeight->"Plain"], StyleBox[" ", FontFamily->"Courier", FontWeight->"Bold"], StyleBox["x", FontFamily->"Courier", FontWeight->"Bold"], StyleBox["*", FontFamily->"Courier", FontWeight->"Bold"], StyleBox["y", FontFamily->"Courier", FontWeight->"Bold"], StyleBox["*", FontFamily->"Courier", FontWeight->"Bold"], StyleBox["z", FontFamily->"Courier", FontWeight->"Bold"]}], "multiply"}, { StyleBox[\(x^y\), FontFamily->"Courier", FontWeight->"Bold"], "power"}, { StyleBox[\(x \((y + z)\)\), FontFamily->"Courier", FontWeight->"Bold"], "grouping"} }, ColumnAlignments->{Right, Left}]], "Text", FontFamily->"Times"] }, Open ]], Cell["\<\ In computer programming languages the most common way to indicate \ multiplication is with an asterisk. For example, this input indicates two \ multiplied by three.\ \>", "Text", CellTags->"notes"], Cell["2*3", "Input"], Cell[TextData[{ "In traditional mathematical notation just putting two factors next to each \ other, usually with a space to separate the factors, also indicates \ multiplication, and you can do the same thing in ", StyleBox["Mathematica", FontSlant->"Italic"], "." }], "Text", CellTags->"notes"], Cell["2 3", "Input"], Cell["\<\ If there is no chance of misunderstanding, as in this input where \ one of the factors is enclosed in parentheses, then you don't even need a \ space. This input means two multipled by 3 plus 4.\ \>", "Text", CellTags->"notes"], Cell["2(3+4)", "Input"], Cell["\<\ In an example such as this one, the space is obviously important, \ since without a space between the 2 and the 3, this is the integer 23, rather \ than 2 multipled by 3.\ \>", "Text", CellTags->"notes"], Cell["23", "Input"], Cell["\<\ This isn't usually a problem when working with numbers, but when \ working with variables it useful to keep in mind that an input like this is x \ plus x multipled by 2\ \>", "Text", CellTags->"notes"], Cell["x+x 2", "Input"], Cell["\<\ But if there is no space between the x and the 2, this input \ introduces a new variable x2. \ \>", "Text", CellTags->"notes"], Cell["x+x2", "Input"], Cell["\<\ In cases such as this, some people choose to include an asterisk \ just to eliminate any ambiguity. In most cases, however, whether or not to \ include an asterisk to indicate multiplication is a matter of personal \ preference.\ \>", "Text", CellTags->"notes"], Cell["x+x*2", "Input"], Cell["\<\ This input with the carat character means 2 raised to the power 3. \ This is a common notation for powers in computer languages.\ \>", "Text", CellTags->"notes"], Cell["2^3", "Input"], Cell["\<\ Of course the traditional notation for powers looks more like this, \ where the power is indicated by a superscript. [click to evaluate] This input \ means the same thing as the previous input with the carat character. This \ notation is easy to enter too, and will be described later in this video in \ the segment on typesetting.\ \>", "Text", CellTags->"notes"], Cell[BoxData[ \(2\^3\)], "Input"], Cell["\<\ Before leaving the subject of arithmetic, if you watch closely as \ this input is entered, the opening parentheses are a different color until \ the closing parentheses are entered, and the opening parentheses flash when \ the closing parentheses are entered. You can turn this off if you find it \ distracting, but this feature can be very useful for quickly finding out how \ the parentheses in an expression match up.\ \>", "Text", CellTags->"notes"], Cell[BoxData[ \(SetOptions[SlideShow`nb, DelimiterFlashTime \[Rule] 0.5]; SlideShow`TypeInput["\<2(3+4(5+6))\>"]; SetOptions[SlideShow`nb, DelimiterFlashTime \[Rule] 0];\)], "Input", CellTags->"evaluate"], Cell["\<\ You can also use symbolic variables like x and y in your \ inputs.\ \>", "Text", CellTags->"notes"], Cell["Inputs with variables", "Subsection"], Cell["\<\ This input means x plus y cubed. [click to evaluate] This input \ just evaluates to itself, because nothing has been specified to be done with \ it.\ \>", "Text", CellTags->"notes"], Cell["(x+y)^3", "Input"], Cell[TextData[{ "Of course there are lots of operations that can be done on symbolic \ expressions. This example shows a function called Expand that expands out \ this expression into a sum of terms.\n[click to evaluate]\nThis one input \ illustrates all of the basic principles of ", StyleBox["Mathematica", FontSlant->"Italic"], " syntax. The function that is used in this example is called Expand, with \ a capital E, then the argument of the function enclosed in square brackets, \ and these special notations like the plus sign and the carat character for \ things like addition and exponents.\nNearly all ", StyleBox["Mathematica", FontSlant->"Italic"], " inputs follow this pattern, which the name of a function followed by the \ arguments of the function enclosed in square brackets. The only exceptions \ are when you are using special notations like the plus sign and the carat \ character." }], "Text", ParagraphIndent->24, CellTags->"notes"], Cell["Expand[(x+y)^3]", "Input"], Cell[TextData[{ "With these examples in mind, here is a look at all of the basic \ conventions of ", StyleBox["Mathematica", FontSlant->"Italic"], " input." }], "Text", CellTags->"notes"], Cell[TextData[{ "Conventions in ", StyleBox["Mathematica", FontSlant->"Italic"], " input" }], "Subsection"], Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " inputs are case sensitive, which means that capitalization is important." }], "Text", CellTags->"notes"], Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " inputs are case-sensitive" }], "BulletItem"], Cell[TextData[{ "For example, Expand with a capital E and expand with a lower-case e are \ different functions, and if you are using variables, capital X and lower-case \ x are different variables. The names of most built-in functions in ", StyleBox["Mathematica", FontSlant->"Italic"], " start with a capital letter." }], "Text", CellTags->"notes"], Cell[TextData[{ StyleBox["Expand", FontFamily->"Courier", FontWeight->"Bold"], " and ", StyleBox["expand", FontFamily->"Courier", FontWeight->"Bold"], " are different functions." }], "BulletText"], Cell["\<\ The next principle is that function arguments are enclosed in \ square brackets.\ \>", "Text", CellTags->"notes"], Cell["Function arguments are enclosed in square brackets", "BulletItem"], Cell["\<\ If a function has more than one argument, the arguments are \ separated by commas, which is the same as in other computer languages and in \ traditional mathematical notation. This use of square brackets, however, is a departure from traditional \ mathematical notation. This is done because traditional mathematical notation \ is ambiguous.\ \>", "Text", ParagraphIndent->24, CellTags->"notes"], Cell["Multiple arguments are separated by commas.", "BulletText"], Cell[TextData[{ "For example, y followed by 1+x in parentheses, in traditional mathematical \ notation, such as you might find in a mathematics book, sometimes means a \ function y evaluated at 1+x, and sometimes means y multiplied by 1+x.\nThis \ sort of ambiguity is not acceptable on computers. The computer needs to \ decide exactly what each input means. It is usually not a good idea to enter \ an input and hope that the computer will guess what was intended.\nThere are \ several ways to resolve this problem, and the way that is used in ", StyleBox["Mathematica", FontSlant->"Italic"], " is that, in ", StyleBox["Mathematica", FontSlant->"Italic"], ", y followed by 1+x in parentheses always means y multipled by 1+x, and, \ in ", StyleBox["Mathematica", FontSlant->"Italic"], ", y followed by 1+x enclosed in square brackets always means a function y \ evaluated at 1+x." }], "Text", ParagraphIndent->24, CellTags->"notes"], Cell["y(1+x)\ty[1+x]", "TableEntry", FontFamily->"Courier", FontWeight->"Bold"], Cell["\<\ The last principle is that special notations are available for many \ common inputs.\ \>", "Text", CellTags->"notes"], Cell["Special notations are available for many common inputs", "BulletItem"], Cell["For example, the plus sign in x+y indicates addition.", "Text", CellTags->"notes"], Cell[TextData[{ "The ", StyleBox["+", FontFamily->"Courier", FontWeight->"Bold"], " in ", Cell[BoxData[ StyleBox[\(x + y\), FontWeight->"Bold"]]], " indicates addition." }], "BulletText"], Cell["\<\ The carat characters in x carat y indicates an exponent, and so \ forth.\ \>", "Text", CellTags->"notes"], Cell[TextData[{ "The ", StyleBox["^", FontFamily->"Courier", FontWeight->"Bold"], " in ", Cell[BoxData[ StyleBox[\(x^y\), FontWeight->"Bold"]]], " indicates exponentiation." }], "BulletText"], Cell["\<\ Just to clarify what is meant by a special notation the input 2+2 \ with a plus sign\ \>", "Text", CellTags->"notes"], Cell["2+2", "Input"], Cell["\<\ can also be entered using a function called Plus with a capital P \ and with square brackets and a comma separating the arguments. So the plus \ sign is a special notation for the Plus function.\ \>", "Text", CellTags->"notes"], Cell["Plus[2,2]", "Input"], Cell["\<\ Similarly, products can be entered by putting factors next to each \ other\ \>", "Text", CellTags->"notes"], Cell["2(3+4)", "Input"], Cell[TextData[{ "or by using the Times function, so putting factors next to each other is a \ special notation for the Times function.\n", "You can in fact enter all of your ", StyleBox["Mathematica", FontSlant->"Italic"], " input using nothing but letters, numbers, commas, and square brackets. \ Some of these special notations, though, like the plus sign, are so \ convenient that almost no one would use the Plus function and an open bracket \ followed by 2 comma two and a closing bracket rather than entering 2+2, but \ there are lots of other special notations that you may encounter as you learn \ more about ", StyleBox["Mathematica", FontSlant->"Italic"], " where you can decide for yourself if you want to use these notations or \ if you would rather just spell out the name of the function.\nSome people \ like these compact notations and some people don't. It doesn't make any \ difference to ", StyleBox["Mathematica", FontSlant->"Italic"], ". These notations are only provided for convenience. Deciding whether to \ use a special notation or two write out the name of the function in any given \ situation is a matter of personal preference." }], "Text", ParagraphIndent->24, CellTags->"notes"], Cell["Times[2,Plus[3,4]]", "Input"], Cell["For many functions, however, there is no special notation.", "Text", CellTags->"notes"], Cell["Some typical inputs", "Subsection"], Cell["\<\ For example, here is the input for computing the cosine of \ 1.6.\ \>", "Text", CellTags->"notes"], Cell["Cos[1.6]", "Input"], Cell[TextData[{ "Here is a function called Factor applied to a simple polynomial. The \ polynomial is entered using familiar notations for arithemtic and the factor \ function is entered by giving the name of the function followed by square \ brackets that enclose the argument of the function.\nThis example is typical \ of most ", StyleBox["Mathematica", FontSlant->"Italic"], " inputs, where some of the input is entered using special notations, and \ part of the input is entered using square brackets and spelling out the names \ of each function." }], "Text", ParagraphIndent->24, CellTags->"notes"], Cell["Factor[2+3x+x^2]", "Input"], Cell[TextData[{ "Here is a function with two arguments. This is the Solve function. The \ first argument is the equation and the second argument is the variable.\n\ Again this input follows the same pattern, the name of the function, followed \ by square brackets that enclose the arguments of the function. The first \ argument here is an equation, here entered using a special notation involving \ a double equal sign, which I will describe in a moment, then a comma to \ separate the arguments, and then the variable.\nThe output here includes \ other special notations, these curly braces and the arrows, all of which can \ also be used in input.\nAlthough ", StyleBox["Mathematica", FontSlant->"Italic"], " understands lots of special notations, there are really only a few \ notations that are very common." }], "Text", ParagraphIndent->24, CellTags->"notes"], Cell["Solve[x^2+5==1,x]", "Input"], Cell["\<\ This list shows most of the special notations that are commonly \ used in Mathematica input and output. The notations for arithmetic have already been discussed. The notation for an equation is this notation with the double equal sign \ between the left and right sides of the equation. The notation for an assignment uses a single equal sign. I will explain in a \ moment what assignments are and how they work. The notatio nfor a list is this notation with curly braces, which was used in \ the result from Solve. The notation for picking out parts of lists, or parts of any expression, uses \ double square brackets. This notation is used frequently in matrix \ calculations such as for picking out elements of vectors or matrices. Also used in the result from Solve was the notatio nfor replacement rules, \ which uses this arrow, which is entered as a dash followed by a greater-than \ character. And finally, the notation for making substitution using a replacement rule is \ this input with a forward slash character followed by a period. The notations for arithmetic have already been discussed, so we can move on \ to a few comments about equations.\ \>", "Text", ParagraphIndent->24, CellTags->"notes"], Cell[CellGroupData[{ Cell["Some common notations", "Subsection"], Cell[TextData[{ "Arithmetic\t", StyleBox["+", FontFamily->"Courier", FontWeight->"Bold"], ", ", StyleBox["-", FontFamily->"Courier", FontWeight->"Bold"], ", ", StyleBox["/", FontFamily->"Courier", FontWeight->"Bold"], ", ", StyleBox["*", FontFamily->"Courier", FontWeight->"Bold"], ", ", StyleBox["^", FontFamily->"Courier", FontWeight->"Bold"], ", parentheses" }], "TableEntry"], Cell[TextData[{ "Equations\t", StyleBox["x^2 + 1 == 5", FontFamily->"Courier", FontWeight->"Bold"] }], "TableEntry"], Cell[TextData[{ "Assignments\t", StyleBox["x = 5", FontFamily->"Courier", FontWeight->"Bold"] }], "TableEntry"], Cell[TextData[{ "Lists\t", StyleBox["{1, 2, 3, 5, 7, 11}", FontFamily->"Courier", FontWeight->"Bold"] }], "TableEntry"], Cell[TextData[{ "Parts\t", StyleBox["{x, y, z}[[2]]", FontFamily->"Courier", FontWeight->"Bold"] }], "TableEntry"], Cell[TextData[{ "Replacement rules\t", StyleBox["x -> 2", FontFamily->"Courier", FontWeight->"Bold"] }], "TableEntry"], Cell[TextData[{ "Substitution\t", StyleBox["x^2 + 1 /. x -> 2", FontFamily->"Courier", FontWeight->"Bold"] }], "TableEntry"] }, Open ]], Cell["\<\ Equations can be entered by giving a double = sign between the \ right and left sides of the equation.\ \>", "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell["Equations", "Subsection"], Cell["\<\ Equations can be entered using a double = sign between the two \ sides of the equation.\ \>", "Text"] }, Open ]], Cell["\<\ For example, to enter an equation you enter the left side of the \ equation, then two equal signs, and then the right side of the equation. \ [click to evaluate] This equation just evaluates to itself. To get more \ interesting results you have to do something to the equation, such as solving \ it for a variable.\ \>", "Text", CellTags->"notes"], Cell["1+2x==5", "Input"], Cell["This solves the equation 1+2x==5 for the variable x.", "Text", CellTags->"notes"], Cell["Solve[1+2x==5,x]", "Input"], Cell["\<\ An input with one equal sign rather than two is an assignment. \ Assignments are used to assign values to variables.\ \>", "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell["Assignments", "Subsection"], Cell["Assignments are used to assign values to variables.", "Text"] }, Open ]], Cell["\<\ For example, this input assigns 5 as the value of a variable \ x.\ \>", "Text", CellTags->"notes"], Cell["x=5", "Input"], Cell["\<\ After this assignment, x will be replaced by 5 whenever x appears \ in input. For example, if you evaluate x, the result is 5\ \>", "Text", CellTags->"notes"], Cell["x", "Input"], Cell[TextData[{ "And if you evaluate an expression that contains x, the x's will be \ replaced by 5 and ", StyleBox["Mathematica", FontSlant->"Italic"], " will work out the result." }], "Text", CellTags->"notes"], Cell["2x+x y", "Input"], Cell[TextData[{ "One very useful feature related to assignments is that you can enter a \ question mark and the name of the variable and get a list of all of the \ things that are assigned to that variable. In this example this tells us that \ x has been assigned the value 5. This is a useful way to check up whether or \ not a value has been assigned to something or whether a value got assigned as \ you had intended. You don't need to be concerned for now that this Global`x \ notation is all about. Here it basically just means that this is a variable \ that was entered by you rather than a function that was built in to ", StyleBox["Mathematica", FontSlant->"Italic"], "." }], "Text", CellTags->"notes"], Cell["?x", "Input"], Cell["\<\ Be careful not to enter an assignment when you mean to enter an \ equation. [click to evaluate] For example, this calculation fails because x \ is replaced by 5 and the Solve function won't let you use a number like 5 as \ a variable.\ \>", "Text", CellTags->"notes"], Cell["Solve[x=5,x]", "Input"], Cell["\<\ To avoid problems like this associated with variables that have \ values it is often a good idea to clear assigned values after you no longer \ need them. You can do this using a function called Clear. Clear[x] clears \ assigned values for x.\ \>", "Text", CellTags->"notes"], Cell["Clear[x]", "Input"], Cell["After that, x will just evaluate to x.", "Text", CellTags->"notes"], Cell["x", "Input"], Cell["2x+x y", "Input"], Cell[TextData[{ "Another common and important notation is this notation for lists. Lists \ are used throughout ", StyleBox["Mathematica", FontSlant->"Italic"], " for a wide range of purposes. Lists are more common than any other type \ of expression in most ", StyleBox["Mathematica", FontSlant->"Italic"], " sessions. Lists are entered and displayed as a sequence of elements \ separated by commas and enclosed in curly braces." }], "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell["Lists", "Subsection"], Cell["\<\ Lists are entered and displayed as a sequence of elements enclosed \ in curly braces. \ \>", "Text"] }, Open ]], Cell["For example, here is a list of numbers.", "Text", CellTags->"notes"], Cell["{1,2,3,5,7,11}", "InputOnly"], Cell["\<\ We've already seen lists used in the output of Solve. The result \ from Solve is a list, and in fact the elements of that list are also lists. \ The replacement rules inside of these inner lists will be discussed in a \ moment.\ \>", "Text", CellTags->"notes"], Cell["Solve[x^2+1==5,x]", "Input"], Cell["\<\ Lists are also used in the input to Solve. Here is an example \ showing the use of Solve to solve two equations for two variables. Instead \ of a single equation, the first argument in Solve is a list with two \ equations, and instead of a single variable, the second argument in Solve is \ a list with two variables.\ \>", "Text", CellTags->"notes"], Cell["Solve[{y-2x\[Equal]0,2x\[Equal]8},{x,y}]", "Input"], Cell["\<\ Lists are used in the input to other functions too. Here is an \ input to Plot, where the name of the function is Plot, the first argument is \ the function to plot, and the second argument is a list that gives the \ variable of the plot and the range of that variable. This input plots a \ cubic polynomial for a variable x ranging from -3 to 3.\ \>", "Text", CellTags->"notes"], Cell["Plot[x^3-4x+6,{x,-3,3}]", "Input"], Cell["\<\ Another common notation is the notation for picking out parts of \ expressions. The function that is used for picking out parts of expressions \ is called the Part function.\ \>", "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell["Parts", "Subsection"], Cell[TextData[{ "You can pick out parts of expressions using the ", StyleBox["Part", FontFamily->"Courier", FontWeight->"Bold"], " function." }], "Text"] }, Open ]], Cell["\<\ For example, this input picks out the second element, or the second \ part, of the list {x,y,z}, which is just the symbol y.\ \>", "Text", CellTags->"notes"], Cell["Part[{x,y,z},2]", "Input"], Cell["\<\ Parts of expressions are used frequently when working with \ matrices. For example, here is an assignment that assigns a list of numbers \ as the value of a variable called data.\ \>", "Text", CellTags->"notes"], Cell["data={2.3,5.7,6.8,7.1,9.3}", "Input"], Cell["This picks out the third element in the data.", "Text", CellTags->"notes"], Cell["Part[data,3]", "Input"], Cell["\<\ This type of operation is so common that there is a special \ notation for it, which is the double square bracket notation mentioned \ earlier. [click to evaluate] There will be a few more examples of this later \ in this session in the segment on vectors and matrices.\ \>", "Text", CellTags->"notes"], Cell["data[[3]]", "Input"], Cell["\<\ Now that we've talked lists and brackets and parentheses it seems \ useful to make a short digression to compare these four kinds of bracketing. \ There isn't any new information here, so this is just a review of things that \ have already been covered. What I wanted to point out here in particular is that the uses of parentheses \ and brackets and curly braces listed here are the exclusive uses of these \ things. That is, parentheses are used for grouping in arithmetic and nothing \ else is used for grouping in arithmetic, and curly braces are used for lists \ and are not used for anything else. This is occasionally a source of trouble.\ \ \>", "Text", ParagraphIndent->24, CellTags->"notes"], Cell[CellGroupData[{ Cell["The four kinds of bracketing", "Subsection"], Cell[TextData[{ StyleBox["2(3+4)\t", FontFamily->"Courier", FontWeight->"Bold"], "grouping in arithmetic" }], "TableEntry", CellMargins->{{Inherited, Inherited}, {2, 2}}, TabSpacings->14], Cell[TextData[{ StyleBox["f[x]\t", FontFamily->"Courier", FontWeight->"Bold"], "function arguments" }], "TableEntry", CellMargins->{{Inherited, Inherited}, {2, 2}}, TabSpacings->14], Cell[TextData[{ StyleBox["{1,2,3}\t", FontFamily->"Courier", FontWeight->"Bold"], "lists" }], "TableEntry", CellMargins->{{Inherited, Inherited}, {2, 2}}, TabSpacings->14], Cell[TextData[{ StyleBox["data[[3]]\t", FontFamily->"Courier", FontWeight->"Bold"], "parts" }], "TableEntry", CellMargins->{{Inherited, Inherited}, {2, 2}}, TabSpacings->14] }, Open ]], Cell["\<\ For example, this is probably a nonsense input where it may be that \ whoever entered this (in this case it was me), thought that square brackets \ could be used for grouping. Instead, a literal reading of this input is a \ function named 2 evaluated at 3+4. Evaluating a function at 3+4 is not \ unusual, but using a number as the name of a function is probably an error.\ \ \>", "Text", CellTags->"notes"], Cell["2[3+4]", "Input"], Cell["\<\ This input seems to work a little bit better, but this may or may \ not be what was intended. This input is 2 multipled by a list. Multiplying a \ list by a number is a reasonable thing to do, and what happens is that the \ multiplication gets threaded over the list, and 2 is multiplied by each \ element in the list, so the result is a list.\ \>", "Text", CellTags->"notes"], Cell["2{3+4}", "Input"], Cell[TextData[{ "Neither of these inputs is equivalent to this input, however, where \ parentheses are used for arithmetic grouping, and the result is a number, \ rather than a list that contains a number.\nPeople who have done a lot of C \ programming (this includes me) are sometimes tempted to use curly braces for \ block structuring, which isn't the way that curly braces are used in ", StyleBox["Mathematica", FontSlant->"Italic"], " either. You don't enclose the body of a do-loop or a for-loop in curly \ braces, for example.\nBasically the ", StyleBox["Mathematica", FontSlant->"Italic"], " use of these things is the ultimate in simplicity. Parentheses are used \ for arithmetic grouping and are not used for anything else, single square \ brackets are used for enclosing function arguments and are not used for \ anything else, and so forth, and after that there aren't really any \ problems." }], "Text", ParagraphIndent->24, CellTags->"notes"], Cell["2(3+4)", "Input"], Cell["\<\ You can enter replacement rules by giving the left side of the rule \ followed by a dash followed by a greater than character followed by the \ right side of the rule.\ \>", "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell["Replacement rules", "Subsection"], Cell[TextData[{ "Replacement rules can be entered using ", StyleBox["-", FontFamily->"Courier", FontWeight->"Bold"], " followed by ", StyleBox[">", FontFamily->"Courier", FontWeight->"Bold"], "." }], "Text"] }, Open ]], Cell[TextData[{ "For example, here is a replacement rule.\nYou may have noticed or if you \ look closely that when this expression was entered ", StyleBox["Mathematica", FontSlant->"Italic"], " took the dash followed by a greater than character and automatically \ replaced it by something, which is this arrow that you see here. This was \ done because ", StyleBox["Mathematica", FontSlant->"Italic"], " happens to have a special character for this arrow, and it decided in \ this example to use that character to improve the appearance of the input. It \ has not effect on functionality, so it isn't important in that respect. It's \ just a small change in appearance." }], "Text", ParagraphIndent->24, CellTags->"notes"], Cell["x->5", "InputOnly"], Cell["\<\ We've already seen replacement rules used in the output to Solve to \ represent results.\ \>", "Text", CellTags->"notes"], Cell["Solve[x==5,x]", "Input"], Cell["\<\ Replacement rules can also be used to make replacements. One of the \ functions that is used to apply replacements is called ReplaceAll. This input \ says to replace all of the x's by 5 in the expression 2x+x y.\ \>", "Text", CellTags->"notes"], Cell["ReplaceAll[2x+x y,x->5]", "Input"], Cell["\<\ This type of operation is so common that there is a special \ notation for it. The special notation for ReplaceAll is this notation with \ the forward slash followed by a period or dot. So reading this input, expression, slash-dot, rule, means to apply the rule \ to the expression.\ \>", "Text", ParagraphIndent->24, CellTags->"notes"], Cell["2x+x y/.x->5", "Input"], Cell["\<\ As a demonstration of all of these notations, here is an example \ showing the use of results from the Solve function.\ \>", "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell["Using results returned as rules", "Subsection"], Cell[TextData[{ "Replacement rules are used in the output of ", StyleBox["Solve", FontFamily->"Courier", FontWeight->"Bold"], "." }], "Text"] }, Open ]], Cell["\<\ The result from Solve is a list of solutions, and each solution is \ a list of rules. This equation has two solutions, so the result from Solve is \ a list with two elements. Each element is a solution represented as a list of \ rules. Since there is only one variable in this examle, each of those inner \ lists has only one rule. The solution here has been assigned as the value of a variable called \ solution.\ \>", "Text", ParagraphIndent->24, CellTags->"notes"], Cell["solution=Solve[x^2+1\[Equal]5,x]", "Input"], Cell["\<\ This picks out the first solution, using the double-square-bracket \ notationfor the part function.\ \>", "Text", CellTags->"notes"], Cell["solution[[1]]", "Input"], Cell["This picks out the second solution.", "Text", CellTags->"notes"], Cell["solution[[2]]", "Input"], Cell["\<\ One way to check this solution is to subtract the two sides of the \ equation, substitute the solution, and see if the result is zero. Subtracting \ the two sides of the equation in this example gives x^2+1-5. This input \ substitutes the value of x from the first solution in to that expression. The \ result is zero, so the solution is correct.\ \>", "Text", CellTags->"notes"], Cell["x^2+1-5/.solution[[1]]", "Input"], Cell["\<\ Similarly, this substitutes the second solution into the difference \ between the two sides of the equation.\ \>", "Text", CellTags->"notes"], Cell["x^2+1-5/.solution[[2]]", "Input"], Cell["\<\ Having covered a collection of basic notations I would like to \ mention a topic which is arguably rather more basic which is the names that \ you can use for variables. Essentially the name of a variable can include any \ notation that doesn't already have some other meaning.\ \>", "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell["Names of variables", "Subsection"], Cell["Valid names for variables:", "Text"], Cell[BoxData[ \(x, \ y, \ f, \ solution\)], "InputOnly"] }, Open ]], Cell["\<\ You can also use special characters in the names of variables. \ Capitalization can be used to separate words in a long variable name.\ \>", \ "Text", CellTags->"notes"], Cell[BoxData[ \(\[Pi], \ \[CapitalOmega]\[Zeta]123, \ SpeedOfLight\)], "InputOnly"], Cell["\<\ Here are some examples of invalid variables names. The first three \ names are invalid because they contain characters that already have some \ other meaning, and the last input starts with a number, so this is a product \ rather than a single variable name.\ \>", "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell["These variables names are not valid", "Text"], Cell[BoxData[ \(second . solution, derivative - of - f, Speed_Of _Light, 123 \[CapitalOmega]\)], "InputOnly"] }, Open ]], Cell["\<\ We've gone through a long list of details so it seems useful to \ stop for a quick review of the basic principles of Mathematica input. Mathematica is case-sensitive, function arguments are enclosed in square \ brackets, and special notations are available for many common inputs. And \ here is a list of the special notations that have been mentioned so far. If you think you might be using these notations and would like to memorize \ them, you could try writing them down on a piece of paper and keeping that \ piece of paper near your computer. There are perhaps a dozen other notations \ that are also used frequently, and that you may also want to memorize if you \ find yourself using them, but the list of special notations that you are \ likely to use often enough to justify memorizing them is not very long.\ \>", \ "Text", ParagraphIndent->24, CellTags->"notes"], Cell[CellGroupData[{ Cell["Review", "Subsection"], Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " inputs are case-sensitive" }], "BulletItem", CellMargins->{{Inherited, Inherited}, {2, 2}}], Cell["Function arguments are enclosed in square brackets", "BulletItem", CellMargins->{{Inherited, Inherited}, {2, 2}}], Cell["Special notations are available for many inputs", "BulletItem", CellMargins->{{Inherited, Inherited}, {2, 2}}], Cell[TextData[{ StyleBox["+ - / * ^ ()\t", FontFamily->"Courier", FontWeight->"Bold"], "Arithmetic" }], "TableEntry", CellMargins->{{Inherited, Inherited}, {2, 12}}, TabSpacings->14], Cell[TextData[{ StyleBox["x == 5\t", FontFamily->"Courier", FontWeight->"Bold"], "Equations" }], "TableEntry", CellMargins->{{Inherited, Inherited}, {2, 2}}, TabSpacings->14], Cell[TextData[{ StyleBox["x = 5\t", FontFamily->"Courier", FontWeight->"Bold"], "Assignments" }], "TableEntry", CellMargins->{{Inherited, Inherited}, {2, 2}}, TabSpacings->14], Cell[TextData[{ StyleBox["{x, y, z}\t", FontFamily->"Courier", FontWeight->"Bold"], "Lists" }], "TableEntry", CellMargins->{{Inherited, Inherited}, {2, 2}}, TabSpacings->14], Cell[TextData[{ StyleBox["data[[2]]\t", FontFamily->"Courier", FontWeight->"Bold"], "Parts" }], "TableEntry", CellMargins->{{Inherited, Inherited}, {2, 2}}, TabSpacings->14], Cell[TextData[{ StyleBox["x -> 2\t", FontFamily->"Courier", FontWeight->"Bold"], "Replacement rules" }], "TableEntry", CellMargins->{{Inherited, Inherited}, {2, 2}}, TabSpacings->14], Cell[TextData[{ StyleBox["x /. x -> 2\t", FontFamily->"Courier", FontWeight->"Bold"], "Substitution" }], "TableEntry", CellMargins->{{Inherited, Inherited}, {2, 2}}, TabSpacings->14] }, Open ]], Cell["\<\ Now I'd like to move on to a brief Tour of built-in functions. This \ is a short survey of some of the things that you can do without doing any \ programming, just by finding the right function and typing in your \ input.\ \>", "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell["Introduction to Mathematica", "Section"], Cell["Getting started", "Contents", CellDingbat->"\[EmptyCircle]"], Cell["Basic inputs", "Contents", CellDingbat->"\[EmptyCircle]"], Cell["Tour of built-in functions", "Contents", CellDingbat->"\[FilledCircle]"], Cell["Notebooks and typesetting", "Contents"], Cell["Programming", "Contents"], Cell["Sources for more information", "Contents"] }, Open ]], Cell["\<\ I have organized this tour into numerical operations, symbolic \ operations, operations with vectors and matrices, which includes both \ symbolic and numerical operations, plotting and graphics, and operations \ involving external files and programs.\ \>", "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[TextData[{ "Built-in functions in ", StyleBox["Mathematica", FontSlant->"Italic"] }], "Subsection"], Cell["Numerical operations", "Text"], Cell["Symbolic operations", "Text"], Cell["Operations with vectors and matrices", "Text"], Cell["Plotting and graphics", "Text"], Cell["Operations involving external files and programs", "Text"] }, Open ]], Cell[TextData[{ "One the subject of numerical operations, one feature of ", StyleBox["Mathematica", FontSlant->"Italic"], " that is different than, say, a typical pocket calculator, is that numbers \ in ", StyleBox["Mathematica", FontSlant->"Italic"], " can be exact or inexact." }], "Text", CellTags->"notes"], Cell["Exact and inexact numbers", "Subsection"], Cell["\<\ An inexact number is a number like 3.14159 with a decimal point, \ that is specified by giving some finite number of digits of the number.\ \>", \ "Text", CellTags->"notes"], Cell[BoxData[ \(3.14159\)], "InputOnly"], Cell["An exact number is a number like an integer", "Text", CellTags->"notes"], Cell[BoxData[ \(5\)], "InputOnly"], Cell["\<\ or a fraction, that is specified by effectively giving all of the \ digits of the number.\ \>", "Text", CellTags->"notes"], Cell[BoxData[ \(22\/7\)], "InputOnly"], Cell["\<\ Symbolic constants like Pi are also exact numerical \ quantities.\ \>", "Text", CellTags->"notes"], Cell[BoxData[ \(Pi\)], "InputOnly"], Cell[TextData[{ "A general principle of ", StyleBox["Mathematica", FontSlant->"Italic"], " is that, except in functions that are obviously programmed to do \ otherwise, exact inputs give exact results, and inexact inputs give inexact \ results. For example, Sqrt[8] gives an exact result in terms of Sqrt[2]." }], "Text", CellTags->"notes"], Cell["Sqrt[8]", "Input"], Cell["\<\ Square root of the inexact number 8.0 gives an inexact \ result.\ \>", "Text", CellTags->"notes"], Cell["Sqrt[8.0]", "Input"], Cell["\<\ An exact input like Cos[1] just evaluates to Cos[1], because Cos[1] \ doesn't compute out to anything other than Cos[1].\ \>", "Text", CellTags->"notes"], Cell["Cos[1]", "Input"], Cell["\<\ There are several ways to get an inexact approximation for Cos[1], \ one of which is to start out with inexact inputs.\ \>", "Text", CellTags->"notes"], Cell["Cos[1.0]", "Input"], Cell["\<\ Another method is to use the N function, used here to compute an \ inexact approximation for Cos[1].\ \>", "Text", CellTags->"notes"], Cell["N[Cos[1]]", "Input"], Cell["\<\ Here is an example showing the use of the N function to compute the \ first 150 digits of Cos[1]. The optional second argument of the N function \ specifies the number of digits to compute. The default is to use the \ precision provided by the hardware of your computer, which is about 16 digits \ on most computers.\ \>", "Text", CellTags->"notes"], Cell["N[Cos[1],150]", "Input"], Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " includes an enormous collection of mathematical functions. It includes, \ for example, all of the basic trigonometric and inverse trigonometric \ functions." }], "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell["Mathematical functions", "Subsection"], Cell[TextData[Cell[BoxData[GridBox[{ {"Cos", "Sin", "Tan"}, {"Sec", "Csc", "Cot"}, {"ArcCos", "ArcSin", "ArcTan"}, {"ArcSec", "ArcCsc", "ArcCot"} }]], GridBoxOptions->{ColumnAlignments->{Left}}]], "Text", FontWeight->"Bold"] }, Open ]], Cell["\<\ Notice the naming conventions for these functions. Arccosine, for \ example, is spelled ArcCos with a capital A and a capital C.\ \>", "Text", CellTags->"notes"], Cell["ArcCos[0.5]", "Input"], Cell["\<\ And beyond trigonometric functions there are hyperbolic functions \ and functions that you might find on a scientific pocket calculator and \ hundreds of other functions that come up in statistics and mathematical \ physics and other applications.\ \>", "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell["Mathematical functions", "Subsection"], Cell[TextData[Cell[BoxData[GridBox[{ {"Cosh", "Sinh", "Log"}, {"Exp", "Erf", "EulerPhi"}, {"LegendreP", "Zeta", "FresnelC"}, {"JacobiSN", "EllipticE", "MathieuC"} }]], GridBoxOptions->{ColumnAlignments->{Left}}]], "Text", FontWeight->"Bold"] }, Open ]], Cell["\<\ Some of these functions may seem exotic if you've never seen them \ before, but many of them at least are really fairly common. For example, \ EllipticE is the solution to this simple integral.\ \>", "Text", CellTags->"notes"], Cell[BoxData[ \(result = \[Integral]\_0\%1\(\@\( 2 - Sin[x]\^2\)\) \[DifferentialD]x\)], "Input"], Cell["\<\ And of course if you would rather have a number for this result, \ you can use the N function to compute a numerical approximation for \ EllipticE.\ \>", "Text", CellTags->"notes"], Cell[BoxData[ \(N[result]\)], "Input"], Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " includes all of the basic functions from numerical computation, like \ functions for numerical root finding, numerical minimization, numerical \ integration, and numerical solution of differential equations." }], "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell["Numerical calculations", "Subsection"], Cell[TextData[Cell[BoxData[GridBox[{ {"FindRoot", "FindMinimum"}, {"NIntegrate", "NDSolve"}, {"NonlinearFit", "NProduct"}, {"NSum", "Interpolation"} }]], GridBoxOptions->{ColumnAlignments->{Left}}]], "Text", FontWeight->"Bold"] }, Open ]], Cell["\<\ Here is an example of a numerical integral. The name of the \ function is NIntegrate, the first argument is the integrand, then a comma, \ and the second argument is a list giving the variable of integration and the \ range of that variable.\ \>", "Text", CellTags->"notes"], Cell["NIntegrate[Cos[x]Exp[-x^2],{x,0,Infinity}]", "Input"], Cell["\<\ Here is an example compute a root of an equation. The name of the \ function is FindRoot, the first argument gives the equation to solve, and the \ second argument gives the variable and a starting value for that variable. \ The solution is returned as a list of rules, as in the result from \ Solve.\ \>", "Text", CellTags->"notes"], Cell["FindRoot[x^2==3,{x,1}]", "Input"], Cell["\<\ In addition to the documentation that you can find in the book for \ these functions you can get quick information you fingertips which will at \ least provide the syntax for these functions using ?symbol as I used a few \ minutes ago. Here is the information that you get when you enter \ ?FindRoot.\ \>", "Text", CellTags->"notes"], Cell["?FindRoot", "Input"], Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " includes a large collection of functions for symbolic operations -- \ symbolic integration, symbolic differentiation, limits, series, solving \ equations, and underlying operations on polynomials." }], "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell["Symbolic calculations", "Subsection"], Cell[TextData[Cell[BoxData[GridBox[{ {"Integrate", "Limit"}, {"D", "Series"}, {"Derivative", "Solve"}, {"DSolve", "Simplify"}, {"Expand", "Apart"}, {"Together", "Factor"}, {"Coefficient", "Collect"}, {"FourierTransform", "LaplaceTransform"}, {"GroebnerBasis", "PolynomialReduce"} }]], GridBoxOptions->{ColumnAlignments->{Left}}]], "Text", FontWeight->"Bold"] }, Open ]], Cell["\<\ Here is a symbolic derivative. The function here is D, the first \ argument is the function to be differentiated, and the second argument is the \ variable.\ \>", "Text", CellTags->"notes"], Cell["D[x Cos[x],x]", "Input"], Cell["\<\ Here is a symbolic integral using the Integrate function. The \ first argument is the integrand and the second argument is a list giving the \ variable of integration and the range of that variable.\ \>", "Text", CellTags->"notes"], Cell["Integrate[Exp[-x^2]/Sqrt[Pi],{x,1,Infinity}]", "Input"], Cell[TextData[{ "A very important topic both for numerical operations and symbolic \ operations is linear algebra. In ", StyleBox["Mathematica", FontSlant->"Italic"], ", vectors are represented using lists, and matrices are represented as a \ list of lists." }], "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell["Vectors and matrices", "Subsection"], Cell["A vector is a list of elements.", "Text"], Cell["A matrix is a list of lists.", "Text"] }, Open ]], Cell["\<\ For example, here is a vector in which all of the elements are \ numbers.\ \>", "Text", CellTags->"notes"], Cell["{1.7,2.3,4.5,7.9}", "Input"], Cell["\<\ Here is a 2 by 2 matrix, and again all of the elements are numbers. \ This input assigns this matrix as the value of m. I did this assignment so I \ could use this matrix in the next few examples.\ \>", "Text", CellTags->"notes"], Cell["m={{2.3,5.1},{4.8,3.1}}", "Input"], Cell["\<\ You can display this matrix in a more familiar notation using the \ MatrixForm function. You can also enter the matrix in this form. I will \ describe later how to do that.\ \>", "Text", CellTags->"notes"], Cell["MatrixForm[m]", "Input"], Cell["\<\ Here are some basic matrix operations. This uses the part function, \ entered using double square brackets, to pick ou the first row of the matrix.\ \ \>", "Text", CellTags->"notes"], Cell["m[[1]]", "Input"], Cell["\<\ This picks out the first element in the first row of the \ matrix.\ \>", "Text", CellTags->"notes"], Cell["m[[1,1]]", "Input"], Cell["\<\ You can use the word All to pick out all of the rows in a matrix. \ This input picks out the first element from all of the rows, so this is the \ first column of the matrix. In other matrix manipulation systems like Matlab \ there is often a notation like this.\ \>", "Text", CellTags->"notes"], Cell["m[[All,1]]", "Input"], Cell["\<\ This input computes the dot product of a matrix and a vector. The \ dot product is entered by putting a dot or a period between the \ factors.\ \>", "Text", CellTags->"notes"], Cell["m.{2,3}", "Input"], Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " includes a solid collection of functions for operations on matrices, such \ as computing eigenvalues and eigenvalues, various matrix decompositions, and \ so forth." }], "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell["Matrix functions", "Subsection"], Cell[TextData[Cell[BoxData[GridBox[{ {"Eigenvalues", "Eigenvectors"}, {"Eigensystem", "SchurDecomposition"}, {"LinearSolve", "QRDecomposition"}, {"Det", "CholeskyDecomposition"}, {"MatrixExp", "LUDecomposition"}, {"MatrixPower", "LUBackSubstitution"}, {"Tr", "SingularValues"}, {"Transpose", "JordanDecomposition"}, {"Inverse", "PseudoInverse"} }]], GridBoxOptions->{ColumnAlignments->{Left}}]], "Text", FontWeight->"Bold"] }, Open ]], Cell["\<\ Here is an input that uses the Eigenvalues function to compute the \ eigenvalues of a 2 by 2 matrix.\ \>", "Text", CellTags->"notes"], Cell["Eigenvalues[{{1.7,2.3},{4.8,3.1}}]", "Input"], Cell["\<\ All of these operations or at least most of them also work on \ symbolic matrices. This input computes the eigenvalues of a symbolic matrix.\ \ \>", "Text", CellTags->"notes"], Cell["Eigenvalues[{{x1,x2},{x3,x4}}]", "Input"], Cell[TextData[{ "Now I'd like to move on to some examples of plotting. Here is a list of \ some of the functions in ", StyleBox["Mathematica", FontSlant->"Italic"], " for plotting functions, as opposed to plotting data." }], "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell["Plotting", "Subsection"], Cell[TextData[Cell[BoxData[GridBox[{ {"Plot", "Plot3D"}, {"ContourPlot", "DensityPlot"}, {"ParametricPlot", "ParametricPlot3D"}, {"LogPlot", "LogLinearPlot"}, {"LogLogPlot", "PolarPlot"} }]], GridBoxOptions->{ColumnAlignments->{Left}}]], "Text", FontWeight->"Bold"] }, Open ]], Cell[TextData[{ "Here is a basic example showing the use of the Plot function. The name of \ the function is Plot, then a square bracket, then the function to plot, a \ comma, and the second argument is a list that gives the variable of the plot \ and the range of that variable.\nNotice that this is essentially the same \ syntax that was used in Integrate and in the numerical integration function \ NIntegrate. This illustrates a very nice feature of ", StyleBox["Mathematica", FontSlant->"Italic"], " which is that once you figure out how to use one part of the program you \ can usually use the same approach to use other parts of the program." }], "Text", ParagraphIndent->24, CellTags->"notes"], Cell["Plot[Sin[x],{x,0,2Pi}]", "Input"], Cell["\<\ Here is a plot of a surface using the Plot3D function. The first \ argument is the function to plot, the second argument is a list that \ specifies that one of the independent variables is x and gives the range of \ that variable, and the third argument is a list that specifies that the other \ variable is y and gives the range of that variable.\ \>", "Text", CellTags->"notes"], Cell["Plot3D[Sin[x y],{x,0,4},{y,0,4}]", "Input"], Cell[BoxData[ \(FrontEndExecute[ FrontEndToken[SlideShow`nb, "\"]]\)], "Input", CellTags->"evaluate"], Cell["\<\ As I just mentioned there are corresponding functions for plotting \ data. Here is a list showing some of those functions.\ \>", "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell["Plotting data", "Subsection"], Cell[TextData[Cell[BoxData[GridBox[{ {"ListPlot", "ListPlot3D"}, {"ListContourPlot", "ListDensityPlot"}, {"LogListPlot", "LogLogListPlot"}, {"LogLinearListPlot", "Histogram"}, {"BarChart", "MultipleListPlot"}, {"PieChart", "ErrorListPlot"} }]], GridBoxOptions->{ColumnAlignments->{Left}}]], "Text", FontWeight->"Bold"] }, Open ]], Cell[TextData[{ "Here is an example showing the use of the ListPlot function to plot a list \ of data points. The points are specified as coordinate pairs. A coordinate \ pair in ", StyleBox["Mathematica", FontSlant->"Italic"], " is just a list with two numbers." }], "Text", CellTags->"notes"], Cell["ListPlot[{{1,1},{2,2},{4,3},{5,4},{6,2},{7,5}}]", "Input"], Cell[TextData[{ "It might be nice to have bigger points in this plot. This can be done in \ ListPlot by adding an option. An option is just a rule. This example shows \ the effect of adding the option PlotStyle->PointSize[0.03]. There are many \ features of plots, and in fact many details of many ", StyleBox["Mathematica", FontSlant->"Italic"], " functions, that are controlled using options." }], "Text", CellTags->"notes"], Cell[BoxData[ \(NotebookFind[SlideShow`nb, "\<]\>"]; SelectionMove[SlideShow`nb, Before, Character]; Scan[\((NotebookWrite[SlideShow`nb, #]; ShortPause)\) &, Characters["\<,PlotStyle->PointSize[0.025]\>"]]; SlideShow`$EvaluationToggle = True;\)], "Input", CellTags->"evaluate"], Cell["\<\ Here is another option, called the PlotJoined option, that controls \ whether the data are shown as dots or by connecting the data points with \ straight lines.\ \>", "Text", CellTags->"notes"], Cell[BoxData[ \(NotebookFind[SlideShow`nb, "\"]; FrontEndExecute[FrontEndToken[SlideShow`nb, "\"]]; Scan[\((NotebookWrite[SlideShow`nb, #]; ShortPause)\) &, Characters["\True\>"]]; SlideShow`$EvaluationToggle = True;\)], "Input", CellTags->"evaluate"], Cell[TextData[{ "And for the last topic in this tour, you can read data in to ", StyleBox["Mathematica", FontSlant->"Italic"], " from a file or write data out to files or communicate with other \ programs. Here are some of the functions for reading and writing data in \ files." }], "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell["Reading and writing files", "Subsection"], Cell[TextData[Cell[BoxData[GridBox[{ {"Read", "Write"}, {"ReadList", "OpenWrite"}, {"OpenRead", "OpenAppend"}, {"Save", "Get"}, {"Import", "Export"} }]], GridBoxOptions->{ColumnAlignments->{Left}}]], "Text", FontWeight->"Bold"] }, Open ]], Cell["\<\ Here is an example of using the Export function to write a table of \ numbers to a file.\ \>", "Text", CellTags->"notes"], Cell["Export[\"file\",{{1,2},{3,4}},\"Table\"]", "Input"], Cell["\<\ This exclamation point exclamation point notation can be used to \ dump the contents of a file to the screen. You probably would't use this very \ often, especially for large files, but it is useful in demonstrations. This \ shows the file that was written out using Export.\ \>", "Text", CellTags->"notes"], Cell["!!file", "Input"], Cell["This reads the file back in using Import.", "Text", CellTags->"notes"], Cell["Import[\"file\",\"Table\"]", "Input"], Cell[TextData[{ "A separate way of setting up interaction with the rest of your computer, \ in addition to exchanging information through files, is to set up a \ communication channel so that two programs can send information back and \ forth dynamically. In ", StyleBox["Mathematica", FontSlant->"Italic"], " this is done using ", StyleBox["MathLink", FontSlant->"Italic"], ", which provides an interprocess communication protocol and interprocess \ communication services for exchanging structured information between \ programs.\nYou can use ", StyleBox["MathLink", FontSlant->"Italic"], " when you want to call ", StyleBox["Mathematica", FontSlant->"Italic"], " from another program or when you want to call a program that you've \ already got from ", StyleBox["Mathematica", FontSlant->"Italic"], ".\nOne demonstration of ", StyleBox["MathLink", FontSlant->"Italic"], " is everything that I've been doing so far. ", StyleBox["Mathematica", FontSlant->"Italic"], " is composed of several components, most notably the component that \ manages the editor and the display that you see on the computer screen, and \ the component that does all of the calculations, and those two components \ exchange information through ", StyleBox["MathLink", FontSlant->"Italic"], "." }], "Text", ParagraphIndent->24, CellTags->"notes"], Cell[CellGroupData[{ Cell[TextData[StyleBox["MathLink", FontSlant->"Italic"]], "Subsection"], Cell[TextData[{ StyleBox["MathLink", FontSlant->"Italic"], " is a general interprocess communication system" }], "Text"], Cell[TextData[{ "You can use ", StyleBox["MathLink", FontSlant->"Italic"], " to connect ", StyleBox["Mathematica", FontSlant->"Italic"], " with other programs" }], "Text"], Cell[TextData[{ "Communication within ", StyleBox["Mathematica", FontSlant->"Italic"], " uses ", StyleBox["MathLink", FontSlant->"Italic"] }], "Text"] }, Open ]], Cell[TextData[{ "After that short tour of doing calculations with ", StyleBox["Mathematica", FontSlant->"Italic"], " I would like to turn now to a few comments about the interface to ", StyleBox["Mathematica", FontSlant->"Italic"], ", with a few comments about notebooks and typesetting." }], "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell["Introduction to Mathematica", "Section"], Cell["Getting started", "Contents", CellDingbat->"\[EmptyCircle]"], Cell["Basic inputs", "Contents", CellDingbat->"\[EmptyCircle]"], Cell["Tour of built-in functions", "Contents", CellDingbat->"\[EmptyCircle]"], Cell["Notebooks and typesetting", "Contents", CellDingbat->"\[FilledCircle]"], Cell["Programming", "Contents"], Cell["Sources for more information", "Contents"] }, Open ]], Cell[TextData[{ "As mentioned earlier, the files that you edit using ", StyleBox["Mathematica", FontSlant->"Italic"], " are called notebooks." }], "Text", CellTags->"notes"], Cell["Notebooks", "Subsection"], Cell[TextData[{ "One important characteristic of notebooks is that they are portable \ between computers. Notebooks are stored as ordinary text files on your \ computer, so you can exchange them as plain text files using email, for \ example. Notebooks can contain information that is not portable, such as if \ they use fonts that are not available on other computers, but all of the ", StyleBox["Mathematica", FontSlant->"Italic"], "-specific content of notebooks is portable between computers." }], "Text", CellTags->"notes"], Cell["Notebook files are portable between computers", "BulletItem"], Cell["\<\ One concept that is essential to undertanding notebooks is the \ notion of a cell. Notebooks are organized as a list of cells. A few examples \ in a moment will serve to illustrate what a cell is.\ \>", "Text", CellTags->"notes"], Cell["A notebook is a list of cells", "BulletItem"], Cell[TextData[{ "Cells can have different styles. Some of the more common styles are input \ cells, which are the cells that contain your input, output cells, which are \ the cells in which ", StyleBox["Mathematica", FontSlant->"Italic"], " displays your results, graphics cells, which are used for graphical \ images, and text cells, which you can use to put comments and explanations \ and discussions in your notebooks." }], "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell["Cells have different styles", "BulletItem"], Cell["Input cells", "BulletText"], Cell["Output cells", "BulletText"], Cell["Graphics cells", "BulletText"], Cell["Text cells", "BulletText"] }, Open ]], Cell["\<\ One of the more useful features of cells, which I will demonstrate \ in a moment, is that cells can contain other cells, which means that you can \ use the cell structure of a notebook to organize all of the information in a \ notebook in a hierarchical format like in a book with sections and \ subsections and so forth.\ \>", "Text", CellTags->"notes"], Cell["Cells can contain other cells", "BulletItem"], Cell[TextData[{ "I'd like to work through a short demonstration of cells and cell styles. \ The points to be made here are about automatic cells styles like input cells, \ output cells, and graphics cells, where the cell style is chosen by ", StyleBox["Mathematica", FontSlant->"Italic"], ", how to set cell styles, such as when you want text cells or section \ cells, grouping of cells, and opening and closing cell groups.\n[Click the \ demo button to step through a typical demonstration. This demonstration is \ more effective if done live.]" }], "Text", ParagraphIndent->24, CellTags->"notes"], Cell[CellGroupData[{ Cell["Cells and cell styles", "Subsection"], Cell[TextData[{ "Cell styles chosen by ", StyleBox["Mathematica", FontSlant->"Italic"] }], "Text"], Cell["Setting cell styles", "Text"], Cell["Cell grouping", "Text"], Cell["Opening and closing cells", "Text"] }, Open ]], Cell["start demo", "Text"], Cell[TextData[{ "The first cells styles to notice are input cells and output cells. When \ you enter your input, ", StyleBox["Mathematica", FontSlant->"Italic"], " creates an input cell for your input. Notice the bracket near the right \ side of the screen. This bracket is called a cell bracket. The cell bracket \ encloses the contents of the cell. When you evaluate this input, ", StyleBox["Mathematica", FontSlant->"Italic"], " generates an output cell right below the input cell. The input cell and \ the output cell are grouped together as indicated by the outermost cell \ bracket. This outermost cell bracket shows an example of a cell that \ contains other cells." }], "Text", CellTags->"notes"], Cell[BoxData[ \(Null\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(\(SlideShow`new = NotebookCreate[Magnification \[Rule] 2, ImageSize \[Rule] {180, 180}];\)\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(\(Scan[\((NotebookWrite[SlideShow`new, #]; SlideShow`ShortPause)\) &, Characters["\<2+2\>"]];\)\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(\(FrontEndExecute[ FrontEndToken[SlideShow`new, "\"]];\)\)], "Input", CellTags->"evaluate"], Cell["\<\ Another common type of cell is a graphics cell. Here is an input \ that generates a plot. The input goes into an input cell, the image goes into \ a graphics cell, the output goes into an output cell, and all three cells are \ grouped together as indicated by this outermost cell bracket.\ \>", "Text", CellTags->"notes"], Cell[BoxData[ \(SetSelectedNotebook[SlideShow`notes]; SetSelectedNotebook[SlideShow`nb];\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(SetSelectedNotebook[SlideShow`new]; Scan[\((NotebookWrite[SlideShow`new, #]; SlideShow`ShortPause)\) &, Characters["\"]];\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(\(FrontEndExecute[ FrontEndToken[SlideShow`new, "\"]];\)\)], "Input", CellTags->"evaluate"], Cell[TextData[{ "So far all of the cell styles have been chosen automatically by ", StyleBox["Mathematica", FontSlant->"Italic"], ". To get other cells styles you need to change the cell style yourself. \ You can do that by selecting the cell bracket and choosing the desired style \ from the Style submenu of the Format menu.\nTo demonstrate that I will enter \ a new cell just above the cell with the Plot command. Notice that when I move \ the mouse through the notebook the mouse pointer changes shape from a \ vertical bar, indicating a place where I could edit something, to a \ horizontal bar, when the mouse is between cells, indicating a place where I \ could enter a new cell. To create a new cell in a particular place, I click \ the mouse when the mouse pointer is a horizontal bar. When I do this, I see a \ horizontal line, which is a cell insertion point, indicating where the new \ cell will appear." }], "Text", ParagraphIndent->24, CellTags->"notes"], Cell[BoxData[ \(SetSelectedNotebook[SlideShow`notes]; SetSelectedNotebook[SlideShow`nb];\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(\(SetSelectedNotebook[SlideShow`new];\)\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(SelectionMove[SlideShow`new, Previous, CellGroup]; SelectionMove[SlideShow`new, Before, CellGroup];\)], "Input", CellTags->"evaluate"], Cell["Now when I start typing I get an input cell.", "Text", CellTags->"notes"], Cell[BoxData[ \(SetSelectedNotebook[SlideShow`notes]; SetSelectedNotebook[SlideShow`nb];\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(SetSelectedNotebook[SlideShow`new]; Scan[\((NotebookWrite[SlideShow`new, #]; SlideShow`ShortPause)\) &, Characters["\"]];\)], "Input", CellTags->"evaluate"], Cell["\<\ To change the cell style to text style I select the cell by \ clicking the mouse pointer on the cell bracket for this cell, and select text \ style from the Style submenu of the Format menu. This changes the font and \ other characteristics of this cell so that it is visually distinguished from \ the other cells in this notebook.\ \>", "Text", CellTags->"notes"], Cell[BoxData[ \(SetSelectedNotebook[SlideShow`notes]; SetSelectedNotebook[SlideShow`nb];\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(\(SetSelectedNotebook[SlideShow`new];\)\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(\(SelectionMove[SlideShow`new, All, Cell];\)\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(\(FrontEndExecute[ FrontEndToken[SlideShow`new, "\", "\"]];\)\)], "Input",\ CellTags->"evaluate"], Cell["\<\ Continuing in this manner leads to a notebook that looks like this \ one, with inputs, graphics, and explanatory text.\ \>", "Text", CellTags->"notes"], Cell[BoxData[ \(SetSelectedNotebook[SlideShow`notes]; SetSelectedNotebook[SlideShow`nb];\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(SetSelectedNotebook[SlideShow`new]; SelectionMove[SlideShow`new, Before, Notebook]; NotebookWrite[SlideShow`new, Cell["\", "\"]]; SelectionMove[SlideShow`new, Next, CellGroup]; SelectionMove[SlideShow`new, After, CellGroup]; Do[SelectionMove[SlideShow`source, Next, Cell]; FrontEndExecute[{FrontEndToken[SlideShow`source, "\"], FrontEndToken[SlideShow`new, "\"]}], {6}]\)], "Input", CellTags->"evaluate"], Cell["Input using character names and aliases", "Text"], Cell[BoxData[ \(\[Pi]\ \(\[Integral]x \[DifferentialD]x\)\)], "Input"], Cell["Input using control sequences", "Text"], Cell[BoxData[ \(\@\(x\^2\/\(x + 1\)\)\)], "Input"], Cell["Input using a palette", "Text"], Cell[BoxData[ RowBox[{"(", GridBox[{ {"1", "2", "5"}, {"3", "4", "6"}, {"7", "8", "9"} }], ")"}]], "Input"], Cell[BoxData[ \(FrontEndExecute[ FrontEndToken[SlideShow`new, "\"]]\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(Do[FrontEndExecute[ FrontEndToken[SlideShow`new, "\"]], {8}]\)], "Input",\ CellTags->"evaluate"], Cell[BoxData[ \(Do[FrontEndExecute[ FrontEndToken[SlideShow`new, "\"]], {8}]\)], "Input",\ CellTags->"evaluate"], Cell[BoxData[ \(Do[FrontEndExecute[ FrontEndToken[SlideShow`new, "\"]], {8}]\)], "Input",\ CellTags->"evaluate"], Cell["\<\ This notebook can be organized into sections by adding section \ cells. These cells are added much like adding text cells, except that instead \ of setting the cell style to Text I will set the cell style to Section.\ \>", \ "Text", CellTags->"notes"], Cell[BoxData[ \(SetSelectedNotebook[SlideShow`notes]; SetSelectedNotebook[SlideShow`nb];\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(SetSelectedNotebook[SlideShow`new]; SelectionMove[SlideShow`new, Before, Notebook];\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(NotebookWrite[SlideShow`new, "\"]\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(\(SelectionMove[SlideShow`new, All, Cell];\)\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(\(FrontEndExecute[ FrontEndToken[ SlideShow`new, "\", "\"]];\)\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(SelectionMove[SlideShow`new, After, Notebook]; SelectionMove[SlideShow`new, Previous, Cell, 4]; SelectionMove[SlideShow`new, Before, Cell];\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(NotebookWrite[SlideShow`new, "\"]\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(\(SelectionMove[SlideShow`new, All, Cell];\)\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(\(FrontEndExecute[ FrontEndToken[ SlideShow`new, "\", "\"]];\)\)], "Input", CellTags->"evaluate"], Cell["\<\ If you now look at the outer cell brackets, you will see that all \ of the cells have been grouped into two cell groups, each starting with a \ section cell.\ \>", "Text", CellTags->"notes"], Cell[BoxData[ \(SetSelectedNotebook[SlideShow`notes]; SetSelectedNotebook[SlideShow`nb];\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(SetSelectedNotebook[SlideShow`new]; SelectionMove[SlideShow`new, Before, Notebook];\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(Do[FrontEndExecute[ FrontEndToken[SlideShow`new, "\"]], {10}]\)], "Input",\ CellTags->"evaluate"], Cell[BoxData[ \(Do[FrontEndExecute[ FrontEndToken[SlideShow`new, "\"]], {10}]\)], "Input",\ CellTags->"evaluate"], Cell[BoxData[ \(Do[FrontEndExecute[ FrontEndToken[SlideShow`new, "\"]], {10}]\)], "Input",\ CellTags->"evaluate"], Cell["\<\ One of the more useful features of cell groups, and one of the more \ useful features of notebooks in general, is that you can open and close these \ cell groups. You can close a cell group by double-clicking on the cell \ bracket, and you can open a closed cell group by double-clicking on the \ corresponding cell bracket. For example if you are only working on the second section, you could close up \ the first section, and to see an outline of the notebook, you could close up \ both sections. To reopen the a group, double-click on the corresponding cell bracket.\ \>", \ "Text", ParagraphIndent->24, CellTags->"notes"], Cell[BoxData[ \(SetSelectedNotebook[SlideShow`notes]; SetSelectedNotebook[SlideShow`nb];\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(SetSelectedNotebook[SlideShow`new]; SelectionMove[SlideShow`new, Before, Notebook];\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(SelectionMove[SlideShow`new, Next, CellGroup]; FrontEndExecute[ FrontEndToken[SlideShow`new, "\"]];\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(SelectionMove[SlideShow`new, Next, CellGroup]; FrontEndExecute[ FrontEndToken[SlideShow`new, "\"]];\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(\(FrontEndExecute[ FrontEndToken[SlideShow`new, "\"]];\)\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(NotebookClose[SlideShow`new]; SetSelectedNotebook[SlideShow`notes]; SetSelectedNotebook[SlideShow`nb];\)], "Input", CellTags->"evaluate"], Cell["end demo", "Text"], Cell["\<\ Although I mostly talked earlier about entering input using \ notation involving functions names and square brackets, it is also possible \ to enter your input and display your results in typeset formats that more \ closely approximate traditional mathematics or at least to make your inputs \ and outputs more readable.\ \>", "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell["Typesetting", "Subsection"], Cell[TextData[{ "The ", StyleBox["Mathematica", FontSlant->"Italic"], " notebook interface is a typeset editor" }], "Text"] }, Open ]], Cell[TextData[{ "A typeset editor means that you can edit output as well as input. The \ output is not dead on the screen as with a typeset formatter. You can copy \ and paste and modify and evaluate everything that you see, just as you might \ do with paper and pencil, except the formatting is typeset quality and behind \ your work is the full computational power of ", StyleBox["Mathematica", FontSlant->"Italic"], "." }], "Text", CellTags->"notes"], Cell["You can edit inputs and outputs", "Text"], Cell["\<\ As a demonstration I will work through three examples illustrating \ three basic ways of entering typeset input -- input using special characters, \ input using control sequences, which means input using the control key, and \ input using a palette.\ \>", "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell["Typesetting examples", "Subsection"], Cell["Input using special characters", "Text"], Cell["Input using control sequences", "Text"], Cell["Input using a palette", "Text"] }, Open ]], Cell["\<\ First, input using special characters. The example here is this \ integral using the integral sign, which is equivalent to this input using the \ Integrate function.\ \>", "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell["Typesetting examples", "Subsection"], Cell["Input using special characters", "Text"], Cell[BoxData[ \(\[Pi] \(\[Integral]x \[DifferentialD]x\)\)], "InputOnly"], Cell[BoxData[ \(Pi\ Integrate[x, \ x]\)], "InputOnly"] }, Open ]], Cell["start demo", "Text"], Cell["\<\ There several ways to enter any special character, but the way that \ I find most convenient for entering the Greek letter \[Pi] is to use the \ character alias p, which is used by typing the escape key, followed by a p, \ followed by the escape key.\ \>", "Text", CellTags->"notes"], Cell[BoxData[ \(\(NotebookWrite[SlideShow`nb, "\<\[AliasDelimiter]\>"];\)\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(\(NotebookWrite[SlideShow`nb, "\"];\)\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(\(NotebookWrite[SlideShow`nb, "\<\[AliasDelimiter]\>"];\)\)], "Input", CellTags->"evaluate"], Cell["\<\ The alias for the integral sign is int, so the integral sign can be \ entered by typing escape, int, escape.\ \>", "Text", CellTags->"notes"], Cell[BoxData[ \(\(NotebookWrite[SlideShow`nb, "\<\[AliasDelimiter]\>"];\)\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(\(NotebookWrite[SlideShow`nb, "\"];\)\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(\(NotebookWrite[SlideShow`nb, "\<\[AliasDelimiter]\>"];\)\)], "Input", CellTags->"evaluate"], Cell["\<\ The variable x is just entered x.\ \>", "Text", CellTags->"notes"], Cell[BoxData[ \(\(NotebookWrite[SlideShow`nb, "\"];\)\)], "Input", CellTags->"evaluate"], Cell["\<\ The alias for the differential d is dd, so the next character is \ escape dd escape.\ \>", "Text", CellTags->"notes"], Cell[BoxData[ \(\(NotebookWrite[SlideShow`nb, "\<\[AliasDelimiter]\>"];\)\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(\(NotebookWrite[SlideShow`nb, "\"];\)\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(\(NotebookWrite[SlideShow`nb, "\<\[AliasDelimiter]\>"];\)\)], "Input", CellTags->"evaluate"], Cell["\<\ And finally another x. [click to evaluate] This typeset input can \ then be evaluated just like the input using the Integrate function.\ \>", \ "Text", CellTags->"notes"], Cell[BoxData[ \(NotebookWrite[SlideShow`nb, "\"]; SlideShow`$EvaluationToggle = True;\)], "Input", CellTags->"evaluate"], Cell["end demo", "Text"], Cell["\<\ The next example is this expression which can be entered using \ control sequences, which means using the control key. This input with \ traditional square root notation is equivalent to this input with the Sqrt \ function.\ \>", "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell["Typesetting examples", "Subsection"], Cell["Input using control sequences", "Text"], Cell[BoxData[ \(\@\(x\^2\/\(x + 1\)\)\)], "InputOnly"], Cell[BoxData[ \(Sqrt[x^2/\((x + 1)\)]\)], "InputOnly"] }, Open ]], Cell["start demo", "Text"], Cell["\<\ To get started, the square root sign can be entered using \ control-2. This leaves an empty box under the square root sign, which is \ where my next input will be placed.\ \>", "Text", CellTags->"notes"], Cell[BoxData[ \(\(FrontEndExecute[ FrontEndToken[SlideShow`nb, "\"]];\)\)], "Input", CellTags->"evaluate"], Cell["\<\ Now I enter the x, and the command to get the superscript is \ control-6, which you can remember because the 6 key is the key with the carat \ character. So shift 6 gives a carat character which is used for entering \ powers, and control 6 gives a typeset power.\ \>", "Text", CellTags->"notes"], Cell[BoxData[ \(\(NotebookWrite[SlideShow`nb, "\"];\)\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(\(FrontEndExecute[ FrontEndToken[SlideShow`nb, "\"]];\)\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(\(NotebookWrite[SlideShow`nb, "\<2\>"];\)\)], "Input", CellTags->"evaluate"], Cell["\<\ To get out of the superscript and back to the baseline I type \ control-space.\ \>", "Text", CellTags->"notes"], Cell[BoxData[ \(SelectionMove[SlideShow`nb, After, Expression]\)], "Input", CellTags->"evaluate"], Cell["\<\ To get a fraction, I type control and a forward slash, which can be \ remembered because a forward slash is also used to enter division.\ \>", \ "Text", CellTags->"notes"], Cell[BoxData[ \(\(FrontEndExecute[ FrontEndToken[SlideShow`nb, "\"]];\)\)], "Input", CellTags->"evaluate"], Cell["Then type in the denominator.", "Text", CellTags->"notes"], Cell[BoxData[ \(\(NotebookWrite[SlideShow`nb, "\"];\)\)], "Input", CellTags->"evaluate"], Cell["end demo", "Text"], Cell["\<\ And finally as an illustration of input using a palette, I want to \ show how to use a palette to enter this matrix. The typeset matrix is \ equivalent to this input using lists.\ \>", "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell["Typesetting examples", "Subsection"], Cell["Input using control sequences", "Text"], Cell[BoxData[ RowBox[{"(", GridBox[{ {"1", "2", "3"}, {"4", "5", "6"}, {"7", "8", "9"} }], ")"}]], "InputOnly"], Cell[BoxData[ \({{1, 2, 3}, {4, 5, 6}, {7, 8, 9}}\)], "InputOnly"] }, Open ]], Cell["\<\ The basic input palette which comes up by default is used just by \ clicking on buttons in the palette. When you do that, the corresponding \ template appears in your notebook. For example, if you click on this button \ with the two by two matrix, you get a template for a two by two matrix in \ your notebook.\ \>", "Text", CellTags->"notes"], Cell[BoxData[ \(SelectionMove[SlideShow`source, Next, Cell]; FrontEndExecute[{FrontEndToken[SlideShow`source, "\"], FrontEndToken[SlideShow`nb, "\"]}]; SelectionMove[SlideShow`nb, Before, Cell]; NotebookFind[SlideShow`nb, "\<\[Placeholder]\>"];\)], "Input", CellTags->"evaluate"], Cell[BoxData[ RowBox[{"(", GridBox[{ {"\[Placeholder]", "\[Placeholder]"}, {"\[Placeholder]", "\[Placeholder]"} }], ")"}]], "Input"], Cell["\<\ You can enter matrix elements by typing in the element, and skip to \ the next element using the tab key, which is the same as in spreadsheets and \ other programs.\ \>", "Text", CellTags->"notes"], Cell[BoxData[ \(NotebookWrite[SlideShow`nb, 1]\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(FrontEndExecute[FrontEndToken[SlideShow`nb, "\"]]\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(NotebookWrite[SlideShow`nb, 2]\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(FrontEndExecute[FrontEndToken[SlideShow`nb, "\"]]\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(NotebookWrite[SlideShow`nb, 3]\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(FrontEndExecute[FrontEndToken[SlideShow`nb, "\"]]\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(NotebookWrite[SlideShow`nb, 4]\)], "Input", CellTags->"evaluate"], Cell["\<\ You can add a row to this matrix by pressing control return, and \ you can add a column to the matrix using control comma.\ \>", "Text", CellTags->"notes"], Cell[BoxData[ \(FrontEndExecute[FrontEndToken[SlideShow`nb, "\"]]\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(FrontEndExecute[ FrontEndToken[SlideShow`nb, "\"]]\)], "Input", CellTags->"evaluate"], Cell["Then fill in the rest of the matrix.", "Text", CellTags->"notes"], Cell[BoxData[ \(NotebookWrite[SlideShow`nb, 5]\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(FrontEndExecute[FrontEndToken[SlideShow`nb, "\"]]\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(NotebookWrite[SlideShow`nb, 6]\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(FrontEndExecute[FrontEndToken[SlideShow`nb, "\"]]\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(NotebookWrite[SlideShow`nb, 7]\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(FrontEndExecute[FrontEndToken[SlideShow`nb, "\"]]\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(NotebookWrite[SlideShow`nb, 8]\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(FrontEndExecute[FrontEndToken[SlideShow`nb, "\"]]\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(NotebookWrite[SlideShow`nb, 9]\)], "Input", CellTags->"evaluate"], Cell["end demo", "Text"], Cell[TextData[{ "One last topic I would like to mention is programming. This is actually a \ very large topic, and five minutes of talking about it certainly won't make \ you into an expert programmer, but programming is such an important part of \ ", StyleBox["Mathematica", FontSlant->"Italic"], " that it seems worthwhile to at least mention it, even in an introduction. \ Programming is what distinguishes ", StyleBox["Mathematica", FontSlant->"Italic"], " from a fancy calculator. Programming is what enables you to extend ", StyleBox["Mathematica", FontSlant->"Italic"], " to do anything that you want." }], "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell["Introduction to Mathematica", "Section"], Cell["Getting started", "Contents", CellDingbat->"\[EmptyCircle]"], Cell["Basic inputs", "Contents", CellDingbat->"\[EmptyCircle]"], Cell["Tour of built-in functions", "Contents", CellDingbat->"\[EmptyCircle]"], Cell["Notebooks and typesetting", "Contents", CellDingbat->"\[EmptyCircle]"], Cell["Programming", "Contents", CellDingbat->"\[FilledCircle]"], Cell["Sources for more information", "Contents"] }, Open ]], Cell[TextData[{ "If you've used other programming languages you will probably be interested \ to know that ", StyleBox["Mathematica", FontSlant->"Italic"], " is implemented as an interpreted programming language, which means that \ you enter your commands and those commands are processed by a running copy of \ ", StyleBox["Mathematica", FontSlant->"Italic"], ". This is as opposed to a compiled language, which is typically the way \ that languages such as C and Fortran are implemented, where you type your \ program into a file and a compiler converts that file into a standalone \ program that can run independent of the compiler or anything other than the \ operating system of your computer. There are advantages and disadvantages of \ both ways of doing things that I don't want to get in to right here, so the \ only point to be remembered here is that you need a running copy of ", StyleBox["Mathematica", FontSlant->"Italic"], " to process your ", StyleBox["Mathematica", FontSlant->"Italic"], " programs." }], "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell["Programming", "Subsection"], Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " is implemented as an ", StyleBox["interpreted", FontSlant->"Italic"], " language" }], "Text"], Cell[TextData[{ "Input is processed by a running copy of ", StyleBox["Mathematica", FontSlant->"Italic"] }], "Text", CellMargins->{{40, Inherited}, {Inherited, Inherited}}], Cell[TextData[{ "Fortran, C, ..., are typically implemented as ", StyleBox["compiled", FontSlant->"Italic"], " languages" }], "Text"], Cell["A compiler generates an executable program", "Text", CellMargins->{{40, Inherited}, {Inherited, Inherited}}] }, Open ]], Cell["\<\ There are many ways to organize programs all of which at some level \ amount to variants of the same thing, but there are nevertheless some \ recognizable differences, which I will describe here as procedural \ programing, programming with rules, and functional programming.\ \>", "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell["Programming styles", "Subsection"], Cell["Procedural programming", "Text"], Cell["Programming with rules", "Text"], Cell["Functional programming", "Text"] }, Open ]], Cell[TextData[{ "Procedural programming is the type of programming that most people learn \ first. Procedural programming means programming using commands like do-loops \ and if-statements and other functions collectively referred to as control \ structures that control which statements in a program will be executed and \ how many times and in what order. Control structures control the flow of \ execution through a program. Procedural programming in ", StyleBox["Mathematica", FontSlant->"Italic"], " is supported by the functions shown here, like the Do, While, and For \ functions for loops, the If and Switch functions for conditional transfer of \ control, and so forth." }], "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell["Procedural programming", "Subsection"], Cell[TextData[Cell[BoxData[GridBox[{ {"Do", "While", "For"}, {"If", "Switch", "Which"}, {"Return", "Break", "Continue"}, {"Goto", "Label", "CompoundExpression"} }]], GridBoxOptions->{ColumnAlignments->{Left}}]], "Text", FontWeight->"Bold"] }, Open ]], Cell["\<\ Here is a simple example of a procedural program. The semicolon in \ this program separates the two statements of the program. This program uses \ the If function. If the first argument of the If function evaluates to True, \ then the second argument is evaluated, and if that first argument evaluates \ to False then the third argument is evaluated. The If function is a control \ structure that controls which of two other statements will be executed.\ \>", \ "Text", CellTags->"notes"], Cell["\<\ x=22; If[EvenQ[x], Print[x, \" is even\"], Print[x, \" is not even\"]]\ \>", "Input"], Cell["\<\ In this program the EvenQ function is a simple function that \ returns True if the argument is even and false otherwise.\ \>", "Text", CellTags->"notes"], Cell["EvenQ[22]", "Input"], Cell["EvenQ[23]", "Input"], Cell["\<\ The Print function is a function that displays its argument in the \ notebook. The expression printed here is a string, which is entered as a \ sequence of characters enclosed in double quote marks.\ \>", "Text", CellTags->"notes"], Cell["Print[\"hello\"]", "Input"], Cell["\<\ Here is another procedural program, this time a loop that prints \ out the integers from 1 through 5. The function here is the Do function. This \ input evaluates the first argument of the Do function for k ranging from 1 to \ 5.\ \>", "Text", CellTags->"notes"], Cell["Do[Print[k],{k,1,5}]", "Input"], Cell[TextData[{ "Another programming style is programming with rules, which means \ programming by applying transformation rules to expressions. This includes \ assignments and definitions, since an assignment just sets up a \ transformation rule that is applied automatically by ", StyleBox["Mathematica", FontSlant->"Italic"], "." }], "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell["Programming with rules", "Subsection"], Cell["Programming with assignments, rules, and definitions", "Text"] }, Open ]], Cell["\<\ For example, evaluation of this assignment introduces a rule that \ replaces x by 5 whenever x occurs during evaluation.\ \>", "Text", CellTags->"notes"], Cell["x=5", "Input"], Cell["2x+x y", "Input"], Cell["\<\ You can achieve exactly the same effect by applying the \ transformation rule yourself, so an assignment is just a way of introducing a \ rule that is applied automatically.\ \>", "Text", CellTags->"notes"], Cell["Clear[x]", "Input"], Cell["2x+x y/.x->5", "Input"], Cell["You can also use assignments to define functions.", "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell["Defining functions", "Subsection"], Cell["You can also use assignments to define functions", "Text"] }, Open ]], Cell["\<\ Here is an assignment that defines a function f that takes an \ argument x and evaluates to x Cos[x]. The left side of this assignment is a \ pattern that specifies the class of expressions for which this definition \ should be used. The underscore character on the left side of this assignment \ is a pattern that matches any expression, so this definition will apply to \ any function f called with one argument, and that argument can be anything.\ \ \>", "Text", CellTags->"notes"], Cell["f[x_]=x Cos[x]", "Input"], Cell["\<\ After defining this function, the input f[3] will evaluate to 3 \ Cos[3].\ \>", "Text", CellTags->"notes"], Cell[BoxData[ \(f[3]\)], "Input"], Cell["\<\ By combining function definitions you can build up complicated \ programs. For example, here is a definition for a function g.\ \>", "Text", CellTags->"notes"], Cell["g[p_]=p/(1+p)", "Input"], Cell["\<\ When f[3] is used as the argument in g, both the definition of f \ and the definition of g are used.\ \>", "Text", CellTags->"notes"], Cell["g[f[3]]", "Input"], Cell["\<\ Just as when defining variables, it is a reasonable practice to \ clear function definitions after you are through using them.\ \>", "Text", CellTags->"notes"], Cell["Clear[f,g]", "Input"], Cell[TextData[{ "One topic that you will probably come across fairly early in your ", StyleBox["Mathematica", FontSlant->"Italic"], " programming career is the distinction between delayed an immediate \ assignments. An easy way to see the difference and what the issues are is by \ looking at a simple example." }], "Text", CellTags->"notes"], Cell["Delayed and immediate assignments", "Subsection"], Cell["\<\ Suppose I define a function using Expand on the right side of the \ definition. [click to evaluate] After this definition, the definition of f is \ what results from expanding the right side of the assignment.\ \>", "Text", CellTags->"notes"], Cell["f[p_]=Expand[(1+p)^3]", "Input"], Cell["\<\ If I use this rule with f[1+x], 1+x is inserted for p on the right \ side of that definition.\ \>", "Text", CellTags->"notes"], Cell["f[1+x]", "Input"], Cell[TextData[{ "Suppose however that I wanted the 1+x to be expanded out too. To get that \ effect, I don't want the Expand to be processed until after the rule is used \ and the value of the function argument is inserted into the right side of the \ definition. An easy way to get that effect in ", StyleBox["Mathematica", FontSlant->"Italic"], " is with what is called a delayed assignment, which here is entered using \ a colon-equal sign rather than an equal sign." }], "Text", CellTags->"notes"], Cell["f[p_]:=Expand[(1+p)^3]", "Input"], Cell["\<\ With this definition, f[1+x] expand out completely, because Expand \ on the right side of the definition isn't processed until after 1+x inserted \ for p. There is nothing subtle or complicated about the distinction between delayed \ and immediate assignments, and the distinction isn't really fundamental part \ of the system. The basic answer to any question about when to use delayed \ assignments and when to use immediate assignments is to use immediate \ assignments whenever you want function arguments to be inserted into the \ right side of the definition after the right side of the definition is \ evaluated, and use delayed assignments if you want function arguments to be \ inserted into the right side of the definition before the right side of the \ definition is evaluated. In other words, used immediate assignments when you want the first effect \ shown by these examples, and use delayed assignments when you want the second \ effect. In most practical cases the choice of obvious.\ \>", "Text", ParagraphIndent->24, CellTags->"notes"], Cell["f[1+x]", "Input"], Cell[TextData[{ "Functional programming means programming by applying functions to the \ results of other functions. Since all programming in ", StyleBox["Mathematica", FontSlant->"Italic"], " is done using functions, there is a sense in which all programming in ", StyleBox["Mathematica", FontSlant->"Italic"], " is functional programming, but there is still a way of organizing \ programs that can be idenfied as functional programming. Functional \ programming in ", StyleBox["Mathematica", FontSlant->"Italic"], " makes extensive use of functions like Map and Apply and the other \ functions in this list." }], "Text", CellTags->"notes"], Cell["Functional programming", "Subsection"], Cell[TextData[Cell[BoxData[GridBox[{ {"Map", "Apply", "Scan"}, {"MapAll", "MapAt", "Select"}, {"Cases", "Through", "Function"}, {"Thread", "Inner", "Outer"}, {"Throw", "Catch", "MapThread"} }]], GridBoxOptions->{ColumnAlignments->{Left}}]], "Text", FontWeight->"Bold"], Cell["\<\ Here is a functional program using the Select function to pick out \ the even numbers from a list. This input may be self-explanatory if you study \ it for a moment. The function here is select, the first argument is a list \ from which to select expressions, and the second argument is the test that \ specifies which expressions to select.\ \>", "Text", CellTags->"notes"], Cell["Select[{1,3,4,6,7,8,12},EvenQ]", "Input"], Cell[TextData[{ "Here is an example using the Apply function to add up the elements in a \ list. Applying the Plus function to this list turns the list into a sum, and \ ", StyleBox["Mathematica", FontSlant->"Italic"], " then evaluates that sum." }], "Text", CellTags->"notes"], Cell["Apply[Plus,{1,3,4,6,7,8,12}]", "Input"], Cell["\<\ This functional program is equivalent to the following procedural \ program.\ \>", "Text", CellTags->"notes"], Cell[BoxData[ \(SelectionMove[SlideShow`source, Next, Cell]; FrontEndExecute[{FrontEndToken[SlideShow`source, "\"], FrontEndToken[SlideShow`nb, "\"]}];\)], "Input", CellTags->"evaluate"], Cell["\<\ data={1,3,4,6,7,8,12}; result=0; Do[ result=result+data[[k]], {k, 1, Length[data]} ]; result\ \>", "Input"], Cell[TextData[{ "There is no general principle that says that any one way of organizing \ programs is better than any other way. Most good ", StyleBox["Mathematica", FontSlant->"Italic"], " progams use a mixture of programming styles, using whichever style is \ most natural or most efficient for a particular task. If you already know how \ to do procedural programming then you could start by learning how to do the \ same things in ", StyleBox["Mathematica", FontSlant->"Italic"], ", and then learn other programming functions in ", StyleBox["Mathematica", FontSlant->"Italic"], " as you go along or as the need arises." }], "Text", CellTags->"notes"], Cell[BoxData[ \(SelectionMove[SlideShow`nb, Previous, Cell]; FrontEndExecute[ FrontEndToken[SlideShow`nb, "\"]]\)], "Input", CellTags->"evaluate"], Cell["\<\ And finally, I would like to describe some sources for more \ information, especially sources for information related to topics that were \ mentioned in this session.\ \>", "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell["Introduction to Mathematica", "Section"], Cell["Getting started", "Contents", CellDingbat->"\[EmptyCircle]"], Cell["Basic inputs", "Contents", CellDingbat->"\[EmptyCircle]"], Cell["Tour of built-in functions", "Contents", CellDingbat->"\[EmptyCircle]"], Cell["Notebooks and typesetting", "Contents", CellDingbat->"\[EmptyCircle]"], Cell["Programming", "Contents", CellDingbat->"\[EmptyCircle]"], Cell["Sources for more information", "Contents", CellDingbat->"\[FilledCircle]"] }, Open ]], Cell[TextData[{ "The most complete and authoritative source of information about ", StyleBox["Mathematica", FontSlant->"Italic"], " is The ", StyleBox["Mathematica", FontSlant->"Italic"], " Book, which is available both as a large printed book or as part of the \ online help system.\nAnother source of information is of course the online \ help system, which you access using the Help Browser. There are a couple of \ items in the Help Browser that I would like to mention as of particular \ interest when just getting started." }], "Text", ParagraphIndent->24, CellTags->"notes"], Cell[CellGroupData[{ Cell["Sources for more information", "Subsection"], Cell[TextData[{ "The ", StyleBox["Mathematica", FontSlant->"Italic"], " Book" }], "BulletItem"], Cell["Help Browser", "BulletItem"] }, Open ]], Cell[TextData[{ "Some things I would like to point out in the Help Browser are a section \ called Your first calculations which descibes basic input, a section on using \ the Help Browser, a section with step-by-step examples of entering typeset \ expressions, and a section called Tour of ", StyleBox["Mathematica", FontSlant->"Italic"], ".\nYou bring up the Help Browser by selecting Help Browser from the Help \ menu.\nYour First Calculations is under Getting Started/Demos - [system] - \ Starting Out\nUsing the Help Browser is under Getting Started/Demos\n2D \ expression input is under Other Information\nTour of ", StyleBox["Mathematica", FontSlant->"Italic"], " is under ", StyleBox["Mathematica", FontSlant->"Italic"], " Book" }], "Text", ParagraphIndent->24, CellTags->"notes"], Cell[CellGroupData[{ Cell["The Help Browser", "Subsection"], Cell["Your First Calculations", "BulletItem"], Cell["Using the Help Browser", "BulletItem"], Cell["2D expression input", "BulletItem"], Cell["Tour of Mathematica", "BulletItem"] }, Open ]], Cell["start demo", "Text"], Cell[BoxData[ \(HelpBrowserLookup["\", "\"]\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(HelpBrowserLookup["\", "\"]\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(HelpBrowserLookup["\", "\<\>"]\)], "Input", CellTags->"evaluate"], Cell[BoxData[ \(HelpBrowserLookup["\", "\"]\)], "Input",\ CellTags->"evaluate"], Cell["end demo", "Text"], Cell[TextData[{ "In addition to The ", StyleBox["Mathematica", FontSlant->"Italic"], " Book and the Help Browser, there are several other sources of \ information.\nIn the Wolfram Research web site you can find tutorials, \ examples, announcements, and information about products related to ", StyleBox["Mathematica", FontSlant->"Italic"], ".\nThere are also a few hundred books about ", StyleBox["Mathematica", FontSlant->"Italic"], " from introductory books to books about particular aspects of ", StyleBox["Mathematica", FontSlant->"Italic"], " of books about the use of ", StyleBox["Mathematica", FontSlant->"Italic"], " in various areas of application. You can find a list of books about ", StyleBox["Mathematica", FontSlant->"Italic"], " in the Wolfram Research web site.\nAnd finally, additional training is \ available. There is a list of independent trainers in the Wolfram Research \ web site, and you can find out about training offered by Wolfram Research by \ contacting Wolfram Research or by sending mail to either of these electronic \ mail addresses." }], "Text", ParagraphIndent->24, CellTags->"notes"], Cell[CellGroupData[{ Cell["Sources for more information", "Subsection"], Cell[TextData[{ "The ", StyleBox["Mathematica", FontSlant->"Italic"], " Book" }], "BulletItem"], Cell["Help Browser", "BulletItem"], Cell["The Wolfram Research web site", "BulletItem"], Cell["http://www.wolfram.com", "BulletText", FontFamily->"Courier"], Cell[TextData[{ "Books about ", StyleBox["Mathematica", FontSlant->"Italic"] }], "BulletItem"], Cell["Additional training", "BulletItem"], Cell["training@wolfram.com", "BulletText", FontFamily->"Courier"], Cell["info@wolfram.com", "BulletText", FontFamily->"Courier"] }, Open ]] }, FrontEndVersion->"4.0 for Macintosh", ScreenRectangle->{{0, 1024}, {0, 748}}, AutoGeneratedPackage->None, ScreenStyleEnvironment->"WorkingSlides", CellGrouping->Manual, WindowSize->{638, 675}, WindowMargins->{{Automatic, 168}, {17, Automatic}}, WindowTitle->"Source for Introduction to Mathematica", ShowCellTags->True, Magnification->1, StyleDefinitions -> "Training.nb", MacintoshSystemPageSetup->"\<\ AVU/I@1804P000000b@^4?oQon82n@9608dh`08034BDX H000081Q05A850=M0bC3481Q051850=A\>" ] (*********************************************************************** 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->{ "palette"->{ Cell[3675, 109, 1912, 47, 127, NotebookDefault, CellTags->"palette"]}, "reset"->{ Cell[7523, 248, 82, 2, 44, "Input", CellTags->"reset"], Cell[7608, 252, 736, 16, 224, "Input", CellTags->"reset"], Cell[8347, 270, 692, 14, 224, "Input", CellTags->"reset"], Cell[9042, 286, 462, 10, 144, "Input", CellTags->"reset"], Cell[9507, 298, 94, 2, 44, "Input", CellTags->"reset"], Cell[9604, 302, 96, 2, 44, "Input", CellTags->"reset"], Cell[9703, 306, 205, 5, 84, "Input", CellTags->"reset"], Cell[9911, 313, 248, 6, 104, "Input", CellTags->"reset"], Cell[10238, 324, 2045, 37, 664, "Input", CellTags->"reset"], Cell[12286, 363, 169, 4, 64, "Input", CellTags->"reset"], Cell[12458, 369, 688, 12, 244, "Input", CellTags->"reset"], Cell[13149, 383, 330, 6, 124, "Input", CellTags->"reset"], Cell[13482, 391, 147, 3, 84, "Input", CellTags->"reset"], Cell[13632, 396, 587, 10, 204, "Input", CellTags->"reset"], Cell[14222, 408, 96, 2, 44, "Input", CellTags->"reset"]}, "first"->{ Cell[14321, 412, 91, 2, 44, "Input", CellTags->"first"]}, "notes"->{ Cell[14415, 416, 683, 16, 134, "Text", CellTags->"notes"], Cell[15234, 442, 864, 17, 170, "Text", CellTags->"notes"], Cell[16530, 483, 724, 17, 134, "Text", CellTags->"notes"], Cell[18189, 549, 565, 14, 116, "Text", CellTags->"notes"], Cell[18961, 576, 523, 13, 116, "Text", CellTags->"notes"], Cell[19756, 601, 274, 6, 80, "Text", CellTags->"notes"], Cell[20268, 618, 133, 4, 44, "Text", CellTags->"notes"], Cell[20972, 646, 453, 13, 80, "Text", CellTags->"notes"], Cell[21938, 680, 111, 2, 44, "Text", CellTags->"notes"], Cell[22519, 700, 809, 17, 170, "Text", CellTags->"notes"], Cell[23468, 724, 298, 7, 80, "Text", CellTags->"notes"], Cell[24312, 754, 110, 4, 44, "Text", CellTags->"notes"], Cell[24755, 773, 113, 4, 44, "Text", CellTags->"notes"], Cell[25105, 788, 152, 4, 62, "Text", CellTags->"notes"], Cell[25628, 806, 325, 8, 116, "Text", CellTags->"notes"], Cell[26188, 824, 1183, 23, 260, "Text", CellTags->"notes"], Cell[27836, 872, 195, 5, 62, "Text", CellTags->"notes"], Cell[28284, 891, 223, 7, 80, "Text", CellTags->"notes"], Cell[28533, 902, 252, 5, 80, "Text", CellTags->"notes"], Cell[31012, 984, 209, 5, 62, "Text", CellTags->"notes"], Cell[31247, 993, 308, 8, 80, "Text", CellTags->"notes"], Cell[31581, 1005, 240, 5, 80, "Text", CellTags->"notes"], Cell[31850, 1014, 215, 5, 62, "Text", CellTags->"notes"], Cell[32090, 1023, 213, 5, 62, "Text", CellTags->"notes"], Cell[32331, 1032, 138, 4, 44, "Text", CellTags->"notes"], Cell[32496, 1040, 273, 6, 80, "Text", CellTags->"notes"], Cell[32797, 1050, 173, 4, 62, "Text", CellTags->"notes"], Cell[32996, 1058, 376, 7, 98, "Text", CellTags->"notes"], Cell[33415, 1070, 465, 8, 116, "Text", CellTags->"notes"], Cell[34106, 1086, 111, 4, 44, "Text", CellTags->"notes"], Cell[34266, 1094, 193, 5, 62, "Text", CellTags->"notes"], Cell[34489, 1103, 975, 19, 224, "Text", CellTags->"notes"], Cell[35502, 1126, 199, 7, 62, "Text", CellTags->"notes"], Cell[35824, 1142, 178, 5, 44, "Text", CellTags->"notes"], Cell[36124, 1155, 361, 8, 80, "Text", CellTags->"notes"], Cell[36711, 1176, 125, 4, 44, "Text", CellTags->"notes"], Cell[36914, 1184, 409, 9, 98, "Text", CellTags->"notes"], Cell[37394, 1197, 963, 21, 206, "Text", CellTags->"notes"], Cell[38446, 1224, 129, 4, 44, "Text", CellTags->"notes"], Cell[38657, 1232, 90, 1, 44, "Text", CellTags->"notes"], Cell[38972, 1247, 117, 4, 44, "Text", CellTags->"notes"], Cell[39318, 1265, 129, 4, 44, "Text", CellTags->"notes"], Cell[39473, 1273, 239, 5, 80, "Text", CellTags->"notes"], Cell[39744, 1282, 119, 4, 44, "Text", CellTags->"notes"], Cell[39892, 1290, 1241, 25, 260, "Text", CellTags->"notes"], Cell[41174, 1319, 95, 1, 44, "Text", CellTags->"notes"], Cell[41316, 1324, 110, 4, 44, "Text", CellTags->"notes"], Cell[41457, 1332, 619, 13, 134, "Text", CellTags->"notes"], Cell[42115, 1349, 879, 16, 206, "Text", CellTags->"notes"], Cell[43034, 1369, 1227, 22, 350, "Text", CellTags->"notes"], Cell[45580, 1464, 147, 4, 62, "Text", CellTags->"notes"], Cell[45912, 1480, 359, 7, 98, "Text", CellTags->"notes"], Cell[46301, 1491, 89, 1, 44, "Text", CellTags->"notes"], Cell[46429, 1496, 162, 4, 62, "Text", CellTags->"notes"], Cell[46734, 1509, 110, 4, 44, "Text", CellTags->"notes"], Cell[46870, 1517, 170, 4, 62, "Text", CellTags->"notes"], Cell[47064, 1525, 224, 7, 62, "Text", CellTags->"notes"], Cell[47317, 1536, 722, 13, 152, "Text", CellTags->"notes"], Cell[48064, 1553, 279, 6, 80, "Text", CellTags->"notes"], Cell[48378, 1563, 287, 6, 80, "Text", CellTags->"notes"], Cell[48696, 1573, 75, 1, 44, "Text", CellTags->"notes"], Cell[48821, 1580, 481, 12, 98, "Text", CellTags->"notes"], Cell[49482, 1604, 76, 1, 44, "Text", CellTags->"notes"], Cell[49599, 1609, 272, 6, 80, "Text", CellTags->"notes"], Cell[49911, 1619, 363, 7, 98, "Text", CellTags->"notes"], Cell[50337, 1630, 392, 7, 98, "Text", CellTags->"notes"], Cell[50775, 1641, 218, 5, 62, "Text", CellTags->"notes"], Cell[51230, 1661, 169, 4, 62, "Text", CellTags->"notes"], Cell[51437, 1669, 223, 5, 62, "Text", CellTags->"notes"], Cell[51709, 1678, 82, 1, 44, "Text", CellTags->"notes"], Cell[51826, 1683, 314, 6, 80, "Text", CellTags->"notes"], Cell[52172, 1693, 715, 13, 170, "Text", CellTags->"notes"], Cell[53765, 1749, 419, 8, 98, "Text", CellTags->"notes"], Cell[54213, 1761, 388, 7, 98, "Text", CellTags->"notes"], Cell[54630, 1772, 978, 19, 206, "Text", CellTags->"notes"], Cell[55637, 1795, 213, 5, 62, "Text", CellTags->"notes"], Cell[56165, 1819, 746, 16, 152, "Text", CellTags->"notes"], Cell[56942, 1839, 133, 4, 44, "Text", CellTags->"notes"], Cell[57111, 1847, 256, 5, 80, "Text", CellTags->"notes"], Cell[57413, 1856, 350, 8, 98, "Text", CellTags->"notes"], Cell[57798, 1868, 163, 4, 62, "Text", CellTags->"notes"], Cell[58212, 1887, 481, 10, 116, "Text", CellTags->"notes"], Cell[58748, 1901, 144, 4, 44, "Text", CellTags->"notes"], Cell[58928, 1909, 72, 1, 44, "Text", CellTags->"notes"], Cell[59036, 1914, 391, 7, 98, "Text", CellTags->"notes"], Cell[59472, 1925, 153, 4, 62, "Text", CellTags->"notes"], Cell[59670, 1933, 322, 6, 80, "Text", CellTags->"notes"], Cell[60180, 1951, 181, 5, 62, "Text", CellTags->"notes"], Cell[60454, 1961, 303, 6, 80, "Text", CellTags->"notes"], Cell[60971, 1978, 889, 15, 206, "Text", CellTags->"notes"], Cell[63715, 2076, 266, 6, 80, "Text", CellTags->"notes"], Cell[64422, 2104, 295, 6, 80, "Text", CellTags->"notes"], Cell[65108, 2131, 330, 10, 62, "Text", CellTags->"notes"], Cell[65491, 2145, 185, 5, 62, "Text", CellTags->"notes"], Cell[65726, 2155, 80, 1, 44, "Text", CellTags->"notes"], Cell[65850, 2161, 134, 4, 44, "Text", CellTags->"notes"], Cell[66032, 2170, 110, 4, 44, "Text", CellTags->"notes"], Cell[66187, 2179, 352, 8, 80, "Text", CellTags->"notes"], Cell[66569, 2191, 109, 4, 44, "Text", CellTags->"notes"], Cell[66710, 2199, 165, 4, 62, "Text", CellTags->"notes"], Cell[66904, 2207, 163, 4, 62, "Text", CellTags->"notes"], Cell[67098, 2215, 145, 4, 62, "Text", CellTags->"notes"], Cell[67275, 2223, 362, 7, 98, "Text", CellTags->"notes"], Cell[67673, 2234, 262, 7, 62, "Text", CellTags->"notes"], Cell[68290, 2257, 174, 4, 62, "Text", CellTags->"notes"], Cell[68498, 2265, 292, 6, 80, "Text", CellTags->"notes"], Cell[69162, 2287, 238, 5, 80, "Text", CellTags->"notes"], Cell[69524, 2298, 192, 5, 62, "Text", CellTags->"notes"], Cell[69764, 2308, 313, 7, 80, "Text", CellTags->"notes"], Cell[70435, 2331, 286, 6, 80, "Text", CellTags->"notes"], Cell[70786, 2341, 345, 7, 98, "Text", CellTags->"notes"], Cell[71176, 2352, 346, 7, 98, "Text", CellTags->"notes"], Cell[71554, 2363, 302, 7, 80, "Text", CellTags->"notes"], Cell[72384, 2391, 202, 5, 62, "Text", CellTags->"notes"], Cell[72622, 2400, 244, 5, 80, "Text", CellTags->"notes"], Cell[72933, 2409, 301, 8, 80, "Text", CellTags->"notes"], Cell[73413, 2428, 118, 4, 44, "Text", CellTags->"notes"], Cell[73571, 2436, 241, 5, 80, "Text", CellTags->"notes"], Cell[73858, 2445, 217, 5, 62, "Text", CellTags->"notes"], Cell[74111, 2454, 194, 5, 62, "Text", CellTags->"notes"], Cell[74334, 2463, 111, 4, 44, "Text", CellTags->"notes"], Cell[74476, 2471, 306, 6, 80, "Text", CellTags->"notes"], Cell[74815, 2481, 187, 5, 62, "Text", CellTags->"notes"], Cell[75032, 2490, 270, 7, 62, "Text", CellTags->"notes"], Cell[75890, 2518, 145, 4, 62, "Text", CellTags->"notes"], Cell[76092, 2526, 188, 5, 62, "Text", CellTags->"notes"], Cell[76333, 2535, 263, 7, 62, "Text", CellTags->"notes"], Cell[76986, 2559, 715, 13, 19, "Text", CellOpen->False, CellTags->"notes"], Cell[77746, 2576, 392, 7, 98, "Text", CellTags->"notes"], Cell[78324, 2592, 167, 4, 62, "Text", CellTags->"notes"], Cell[78947, 2614, 306, 8, 80, "Text", CellTags->"notes"], Cell[79323, 2626, 438, 9, 98, "Text", CellTags->"notes"], Cell[80072, 2645, 205, 5, 62, "Text", CellTags->"notes"], Cell[80605, 2660, 322, 8, 80, "Text", CellTags->"notes"], Cell[81296, 2685, 133, 4, 44, "Text", CellTags->"notes"], Cell[81492, 2693, 319, 6, 80, "Text", CellTags->"notes"], Cell[81840, 2703, 78, 1, 44, "Text", CellTags->"notes"], Cell[81967, 2708, 1392, 37, 224, "Text", CellTags->"notes"], Cell[83964, 2778, 339, 9, 80, "Text", CellTags->"notes"], Cell[84777, 2810, 185, 6, 44, "Text", CellTags->"notes"], Cell[84999, 2820, 541, 10, 116, "Text", CellTags->"notes"], Cell[85613, 2834, 241, 5, 80, "Text", CellTags->"notes"], Cell[85911, 2843, 467, 10, 98, "Text", CellTags->"notes"], Cell[86614, 2868, 366, 7, 98, "Text", CellTags->"notes"], Cell[87037, 2879, 612, 12, 134, "Text", CellTags->"notes"], Cell[87984, 2912, 726, 15, 152, "Text", CellTags->"notes"], Cell[89251, 2949, 333, 6, 98, "Text", CellTags->"notes"], Cell[90085, 2973, 982, 17, 206, "Text", CellTags->"notes"], Cell[91470, 3006, 81, 1, 44, "Text", CellTags->"notes"], Cell[91925, 3020, 376, 7, 98, "Text", CellTags->"notes"], Cell[92790, 3048, 163, 4, 62, "Text", CellTags->"notes"], Cell[94618, 3112, 263, 6, 80, "Text", CellTags->"notes"], Cell[96121, 3164, 202, 5, 62, "Text", CellTags->"notes"], Cell[97055, 3199, 639, 13, 152, "Text", CellTags->"notes"], Cell[98691, 3248, 365, 7, 98, "Text", CellTags->"notes"], Cell[99265, 3269, 465, 10, 98, "Text", CellTags->"notes"], Cell[99783, 3283, 294, 6, 80, "Text", CellTags->"notes"], Cell[100296, 3302, 210, 5, 62, "Text", CellTags->"notes"], Cell[100807, 3324, 295, 6, 80, "Text", CellTags->"notes"], Cell[101440, 3344, 153, 4, 62, "Text", CellTags->"notes"], Cell[101933, 3362, 78, 3, 44, "Text", CellTags->"notes"], Cell[102115, 3371, 129, 4, 44, "Text", CellTags->"notes"], Cell[102583, 3389, 182, 5, 62, "Text", CellTags->"notes"], Cell[102933, 3403, 271, 6, 80, "Text", CellTags->"notes"], Cell[103485, 3426, 215, 5, 62, "Text", CellTags->"notes"], Cell[103836, 3438, 307, 6, 80, "Text", CellTags->"notes"], Cell[104485, 3459, 123, 4, 44, "Text", CellTags->"notes"], Cell[104717, 3469, 183, 5, 62, "Text", CellTags->"notes"], Cell[105037, 3481, 66, 1, 44, "Text", CellTags->"notes"], Cell[105236, 3490, 223, 5, 62, "Text", CellTags->"notes"], Cell[105820, 3514, 356, 7, 98, "Text", CellTags->"notes"], Cell[106675, 3537, 209, 5, 62, "Text", CellTags->"notes"], Cell[107592, 3572, 167, 4, 62, "Text", CellTags->"notes"], Cell[108008, 3587, 73, 1, 44, "Text", CellTags->"notes"], Cell[109021, 3628, 668, 16, 134, "Text", CellTags->"notes"], Cell[110196, 3668, 1084, 24, 206, "Text", CellTags->"notes"], Cell[111979, 3725, 319, 6, 98, "Text", CellTags->"notes"], Cell[112501, 3744, 723, 13, 152, "Text", CellTags->"notes"], Cell[113594, 3773, 500, 9, 116, "Text", CellTags->"notes"], Cell[114199, 3791, 165, 4, 62, "Text", CellTags->"notes"], Cell[114425, 3801, 243, 5, 80, "Text", CellTags->"notes"], Cell[114707, 3810, 274, 6, 80, "Text", CellTags->"notes"], Cell[115024, 3820, 375, 9, 80, "Text", CellTags->"notes"], Cell[115554, 3838, 165, 4, 62, "Text", CellTags->"notes"], Cell[115771, 3848, 218, 5, 62, "Text", CellTags->"notes"], Cell[116052, 3859, 86, 1, 44, "Text", CellTags->"notes"], Cell[116285, 3869, 496, 9, 116, "Text", CellTags->"notes"], Cell[116818, 3882, 118, 4, 44, "Text", CellTags->"notes"], Cell[116979, 3891, 171, 4, 62, "Text", CellTags->"notes"], Cell[117186, 3899, 145, 4, 62, "Text", CellTags->"notes"], Cell[117361, 3907, 171, 4, 62, "Text", CellTags->"notes"], Cell[117565, 3915, 354, 8, 80, "Text", CellTags->"notes"], Cell[117980, 3927, 254, 5, 80, "Text", CellTags->"notes"], Cell[118278, 3936, 138, 4, 44, "Text", CellTags->"notes"], Cell[118445, 3944, 513, 10, 116, "Text", CellTags->"notes"], Cell[119003, 3958, 1068, 18, 242, "Text", CellTags->"notes"], Cell[120100, 3980, 670, 16, 134, "Text", CellTags->"notes"], Cell[121143, 4010, 386, 7, 98, "Text", CellTags->"notes"], Cell[121582, 4021, 289, 8, 62, "Text", CellTags->"notes"], Cell[121922, 4033, 121, 4, 44, "Text", CellTags->"notes"], Cell[122398, 4055, 682, 16, 134, "Text", CellTags->"notes"], Cell[123265, 4079, 211, 5, 62, "Text", CellTags->"notes"], Cell[124016, 4109, 603, 14, 134, "Text", CellTags->"notes"], Cell[124854, 4139, 817, 19, 188, "Text", CellTags->"notes"], Cell[126492, 4196, 1175, 28, 242, "Text", CellTags->"notes"]}, "evaluate"->{ Cell[19487, 591, 134, 3, 64, "Input", CellTags->"evaluate"], Cell[19624, 596, 129, 3, 44, "Input", CellTags->"evaluate"], Cell[20033, 609, 134, 3, 64, "Input", CellTags->"evaluate"], Cell[20170, 614, 95, 2, 44, "Input", CellTags->"evaluate"], Cell[20544, 631, 99, 2, 44, "Input", CellTags->"evaluate"], Cell[20646, 635, 157, 3, 64, "Input", CellTags->"evaluate"], Cell[20806, 640, 163, 4, 84, "Input", CellTags->"evaluate"], Cell[21530, 666, 99, 2, 44, "Input", CellTags->"evaluate"], Cell[21632, 670, 140, 3, 64, "Input", CellTags->"evaluate"], Cell[21775, 675, 160, 3, 84, "Input", CellTags->"evaluate"], Cell[22121, 686, 99, 2, 44, "Input", CellTags->"evaluate"], Cell[22223, 690, 157, 3, 64, "Input", CellTags->"evaluate"], Cell[22383, 695, 133, 3, 64, "Input", CellTags->"evaluate"], Cell[23331, 719, 134, 3, 64, "Input", CellTags->"evaluate"], Cell[24115, 746, 99, 2, 44, "Input", CellTags->"evaluate"], Cell[24217, 750, 92, 2, 44, "Input", CellTags->"evaluate"], Cell[24425, 760, 134, 3, 64, "Input", CellTags->"evaluate"], Cell[24562, 765, 99, 2, 44, "Input", CellTags->"evaluate"], Cell[24664, 769, 88, 2, 44, "Input", CellTags->"evaluate"], Cell[24871, 779, 134, 3, 64, "Input", CellTags->"evaluate"], Cell[25008, 784, 94, 2, 44, "Input", CellTags->"evaluate"], Cell[25260, 794, 134, 3, 64, "Input", CellTags->"evaluate"], Cell[25397, 799, 228, 5, 104, "Input", CellTags->"evaluate"], Cell[25956, 816, 202, 4, 104, "Input", CellTags->"evaluate"], Cell[33883, 1080, 220, 4, 84, "Input", CellTags->"evaluate"], Cell[78193, 2587, 128, 3, 64, "Input", CellTags->"evaluate"], Cell[79764, 2637, 305, 6, 124, "Input", CellTags->"evaluate"], Cell[80280, 2652, 322, 6, 144, "Input", CellTags->"evaluate"], Cell[88713, 2929, 61, 2, 44, "Input", CellTags->"evaluate"], Cell[88777, 2933, 167, 4, 64, "Input", CellTags->"evaluate"], Cell[88947, 2939, 161, 3, 64, "Input", CellTags->"evaluate"], Cell[89111, 2944, 137, 3, 64, "Input", CellTags->"evaluate"], Cell[89587, 2957, 134, 3, 64, "Input", CellTags->"evaluate"], Cell[89724, 2962, 218, 4, 104, "Input", CellTags->"evaluate"], Cell[89945, 2968, 137, 3, 64, "Input", CellTags->"evaluate"], Cell[91070, 2992, 134, 3, 64, "Input", CellTags->"evaluate"], Cell[91207, 2997, 96, 2, 44, "Input", CellTags->"evaluate"], Cell[91306, 3001, 161, 3, 64, "Input", CellTags->"evaluate"], Cell[91554, 3009, 134, 3, 64, "Input", CellTags->"evaluate"], Cell[91691, 3014, 231, 4, 104, "Input", CellTags->"evaluate"], Cell[92304, 3029, 134, 3, 64, "Input", CellTags->"evaluate"], Cell[92441, 3034, 96, 2, 44, "Input", CellTags->"evaluate"], Cell[92540, 3038, 101, 2, 44, "Input", CellTags->"evaluate"], Cell[92644, 3042, 143, 4, 64, "Input", CellTags->"evaluate"], Cell[92956, 3054, 134, 3, 64, "Input", CellTags->"evaluate"], Cell[93093, 3059, 508, 9, 224, "Input", CellTags->"evaluate"], Cell[94038, 3089, 136, 3, 64, "Input", CellTags->"evaluate"], Cell[94177, 3094, 144, 4, 64, "Input", CellTags->"evaluate"], Cell[94324, 3100, 144, 4, 64, "Input", CellTags->"evaluate"], Cell[94471, 3106, 144, 4, 64, "Input", CellTags->"evaluate"], Cell[94884, 3120, 134, 3, 64, "Input", CellTags->"evaluate"], Cell[95021, 3125, 145, 3, 64, "Input", CellTags->"evaluate"], Cell[95169, 3130, 106, 2, 44, "Input", CellTags->"evaluate"], Cell[95278, 3134, 101, 2, 44, "Input", CellTags->"evaluate"], Cell[95382, 3138, 155, 4, 64, "Input", CellTags->"evaluate"], Cell[95540, 3144, 206, 4, 84, "Input", CellTags->"evaluate"], Cell[95749, 3150, 107, 2, 44, "Input", CellTags->"evaluate"], Cell[95859, 3154, 101, 2, 44, "Input", CellTags->"evaluate"], Cell[95963, 3158, 155, 4, 64, "Input", CellTags->"evaluate"], Cell[96326, 3171, 134, 3, 64, "Input", CellTags->"evaluate"], Cell[96463, 3176, 145, 3, 64, "Input", CellTags->"evaluate"], Cell[96611, 3181, 145, 4, 64, "Input", CellTags->"evaluate"], Cell[96759, 3187, 145, 4, 64, "Input", CellTags->"evaluate"], Cell[96907, 3193, 145, 4, 64, "Input", CellTags->"evaluate"], Cell[97697, 3214, 134, 3, 64, "Input", CellTags->"evaluate"], Cell[97834, 3219, 145, 3, 64, "Input", CellTags->"evaluate"], Cell[97982, 3224, 184, 4, 84, "Input", CellTags->"evaluate"], Cell[98169, 3230, 184, 4, 84, "Input", CellTags->"evaluate"], Cell[98356, 3236, 138, 3, 64, "Input", CellTags->"evaluate"], Cell[98497, 3241, 164, 3, 84, "Input", CellTags->"evaluate"], Cell[101105, 3332, 114, 2, 44, "Input", CellTags->"evaluate"], Cell[101222, 3336, 98, 2, 44, "Input", CellTags->"evaluate"], Cell[101323, 3340, 114, 2, 44, "Input", CellTags->"evaluate"], Cell[101596, 3350, 114, 2, 44, "Input", CellTags->"evaluate"], Cell[101713, 3354, 100, 2, 44, "Input", CellTags->"evaluate"], Cell[101816, 3358, 114, 2, 44, "Input", CellTags->"evaluate"], Cell[102014, 3367, 98, 2, 44, "Input", CellTags->"evaluate"], Cell[102247, 3377, 114, 2, 44, "Input", CellTags->"evaluate"], Cell[102364, 3381, 99, 2, 44, "Input", CellTags->"evaluate"], Cell[102466, 3385, 114, 2, 44, "Input", CellTags->"evaluate"], Cell[102768, 3396, 135, 3, 64, "Input", CellTags->"evaluate"], Cell[103703, 3433, 130, 3, 64, "Input", CellTags->"evaluate"], Cell[104146, 3446, 98, 2, 44, "Input", CellTags->"evaluate"], Cell[104247, 3450, 134, 3, 64, "Input", CellTags->"evaluate"], Cell[104384, 3455, 98, 2, 44, "Input", CellTags->"evaluate"], Cell[104611, 3465, 103, 2, 44, "Input", CellTags->"evaluate"], Cell[104903, 3476, 131, 3, 64, "Input", CellTags->"evaluate"], Cell[105106, 3484, 100, 2, 44, "Input", CellTags->"evaluate"], Cell[106179, 3523, 324, 6, 144, "Input", CellTags->"evaluate"], Cell[106887, 3544, 87, 2, 44, "Input", CellTags->"evaluate"], Cell[106977, 3548, 112, 2, 44, "Input", CellTags->"evaluate"], Cell[107092, 3552, 87, 2, 44, "Input", CellTags->"evaluate"], Cell[107182, 3556, 112, 2, 44, "Input", CellTags->"evaluate"], Cell[107297, 3560, 87, 2, 44, "Input", CellTags->"evaluate"], Cell[107387, 3564, 112, 2, 44, "Input", CellTags->"evaluate"], Cell[107502, 3568, 87, 2, 44, "Input", CellTags->"evaluate"], Cell[107762, 3578, 115, 2, 44, "Input", CellTags->"evaluate"], Cell[107880, 3582, 125, 3, 64, "Input", CellTags->"evaluate"], Cell[108084, 3590, 87, 2, 44, "Input", CellTags->"evaluate"], Cell[108174, 3594, 112, 2, 44, "Input", CellTags->"evaluate"], Cell[108289, 3598, 87, 2, 44, "Input", CellTags->"evaluate"], Cell[108379, 3602, 112, 2, 44, "Input", CellTags->"evaluate"], Cell[108494, 3606, 87, 2, 44, "Input", CellTags->"evaluate"], Cell[108584, 3610, 112, 2, 44, "Input", CellTags->"evaluate"], Cell[108699, 3614, 87, 2, 44, "Input", CellTags->"evaluate"], Cell[108789, 3618, 112, 2, 44, "Input", CellTags->"evaluate"], Cell[108904, 3622, 87, 2, 44, "Input", CellTags->"evaluate"], Cell[122046, 4039, 221, 4, 104, "Input", CellTags->"evaluate"], Cell[123083, 4073, 179, 4, 84, "Input", CellTags->"evaluate"], Cell[125961, 4175, 139, 3, 64, "Input", CellTags->"evaluate"], Cell[126103, 4180, 128, 3, 64, "Input", CellTags->"evaluate"], Cell[126234, 4185, 106, 2, 44, "Input", CellTags->"evaluate"], Cell[126343, 4189, 119, 3, 44, "Input", CellTags->"evaluate"]} } *) (*CellTagsIndex CellTagsIndex->{ {"palette", 129327, 4286}, {"reset", 129421, 4289}, {"first", 130458, 4320}, {"notes", 130539, 4323}, {"evaluate", 144619, 4735} } *) (*NotebookFileOutline Notebook[{ Cell[1717, 49, 101, 4, 96, "Title"], Cell[1821, 55, 215, 8, 30, "Text"], Cell[2039, 65, 1411, 32, 41, NotebookDefault], Cell[3453, 99, 219, 8, 30, "Text"], Cell[3675, 109, 1912, 47, 127, NotebookDefault, CellTags->"palette"], Cell[5590, 158, 202, 8, 30, "Text"], Cell[5795, 168, 206, 8, 30, "Text"], Cell[6004, 178, 207, 8, 30, "Text"], Cell[6214, 188, 207, 8, 30, "Text"], Cell[6424, 198, 213, 8, 30, "Text"], Cell[6640, 208, 233, 8, 30, "Text"], Cell[6876, 218, 198, 8, 30, "Text"], Cell[7077, 228, 206, 8, 30, "Text"], Cell[7286, 238, 234, 8, 30, "Text"], Cell[7523, 248, 82, 2, 44, "Input", CellTags->"reset"], Cell[7608, 252, 736, 16, 224, "Input", CellTags->"reset"], Cell[8347, 270, 692, 14, 224, "Input", CellTags->"reset"], Cell[9042, 286, 462, 10, 144, "Input", CellTags->"reset"], Cell[9507, 298, 94, 2, 44, "Input", CellTags->"reset"], Cell[9604, 302, 96, 2, 44, "Input", CellTags->"reset"], Cell[9703, 306, 205, 5, 84, "Input", CellTags->"reset"], Cell[9911, 313, 248, 6, 104, "Input", CellTags->"reset"], Cell[10162, 321, 73, 1, 30, "Input"], Cell[10238, 324, 2045, 37, 664, "Input", CellTags->"reset"], Cell[12286, 363, 169, 4, 64, "Input", CellTags->"reset"], Cell[12458, 369, 688, 12, 244, "Input", CellTags->"reset"], Cell[13149, 383, 330, 6, 124, "Input", CellTags->"reset"], Cell[13482, 391, 147, 3, 84, "Input", CellTags->"reset"], Cell[13632, 396, 587, 10, 204, "Input", CellTags->"reset"], Cell[14222, 408, 96, 2, 44, "Input", CellTags->"reset"], Cell[14321, 412, 91, 2, 44, "Input", CellTags->"first"], Cell[14415, 416, 683, 16, 134, "Text", CellTags->"notes"], Cell[15101, 434, 101, 4, 96, "Title"], Cell[15205, 440, 26, 0, 30, "Text"], Cell[15234, 442, 864, 17, 170, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[16123, 463, 103, 4, 54, "Section"], Cell[16229, 469, 69, 1, 26, "Contents"], Cell[16301, 472, 32, 0, 26, "Contents"], Cell[16336, 474, 46, 0, 26, "Contents"], Cell[16385, 476, 45, 0, 26, "Contents"], Cell[16433, 478, 31, 0, 26, "Contents"], Cell[16467, 480, 48, 0, 26, "Contents"] }, Open ]], Cell[16530, 483, 724, 17, 134, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[17279, 504, 99, 4, 58, "Subsection"], Cell[17381, 510, 316, 12, 48, "Text"], Cell[17700, 524, 207, 9, 30, "Text"], Cell[17910, 535, 103, 4, 30, "Text"], Cell[18016, 541, 158, 5, 30, "Text"] }, Open ]], Cell[18189, 549, 565, 14, 116, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[18779, 567, 40, 0, 58, "Subsection"], Cell[18822, 569, 24, 0, 30, "Text"], Cell[18849, 571, 40, 0, 30, "Text"], Cell[18892, 573, 54, 0, 30, "Text"] }, Open ]], Cell[18961, 576, 523, 13, 116, "Text", CellTags->"notes"], Cell[19487, 591, 134, 3, 64, "Input", CellTags->"evaluate"], Cell[19624, 596, 129, 3, 44, "Input", CellTags->"evaluate"], Cell[19756, 601, 274, 6, 80, "Text", CellTags->"notes"], Cell[20033, 609, 134, 3, 64, "Input", CellTags->"evaluate"], Cell[20170, 614, 95, 2, 44, "Input", CellTags->"evaluate"], Cell[20268, 618, 133, 4, 44, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[20426, 626, 51, 0, 58, "Subsection"], Cell[20480, 628, 49, 0, 30, "Text"] }, Open ]], Cell[20544, 631, 99, 2, 44, "Input", CellTags->"evaluate"], Cell[20646, 635, 157, 3, 64, "Input", CellTags->"evaluate"], Cell[20806, 640, 163, 4, 84, "Input", CellTags->"evaluate"], Cell[20972, 646, 453, 13, 80, "Text", CellTags->"notes"], Cell[21428, 661, 99, 3, 30, "Text"], Cell[21530, 666, 99, 2, 44, "Input", CellTags->"evaluate"], Cell[21632, 670, 140, 3, 64, "Input", CellTags->"evaluate"], Cell[21775, 675, 160, 3, 84, "Input", CellTags->"evaluate"], Cell[21938, 680, 111, 2, 44, "Text", CellTags->"notes"], Cell[22052, 684, 66, 0, 30, "Text"], Cell[22121, 686, 99, 2, 44, "Input", CellTags->"evaluate"], Cell[22223, 690, 157, 3, 64, "Input", CellTags->"evaluate"], Cell[22383, 695, 133, 3, 64, "Input", CellTags->"evaluate"], Cell[22519, 700, 809, 17, 170, "Text", CellTags->"notes"], Cell[23331, 719, 134, 3, 64, "Input", CellTags->"evaluate"], Cell[23468, 724, 298, 7, 80, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[23791, 735, 50, 0, 58, "Subsection"], Cell[23844, 737, 60, 0, 30, "Text"], Cell[23907, 739, 62, 0, 30, "Text"], Cell[23972, 741, 65, 0, 30, "Text"], Cell[24040, 743, 60, 0, 30, "Text"] }, Open ]], Cell[24115, 746, 99, 2, 44, "Input", CellTags->"evaluate"], Cell[24217, 750, 92, 2, 44, "Input", CellTags->"evaluate"], Cell[24312, 754, 110, 4, 44, "Text", CellTags->"notes"], Cell[24425, 760, 134, 3, 64, "Input", CellTags->"evaluate"], Cell[24562, 765, 99, 2, 44, "Input", CellTags->"evaluate"], Cell[24664, 769, 88, 2, 44, "Input", CellTags->"evaluate"], Cell[24755, 773, 113, 4, 44, "Text", CellTags->"notes"], Cell[24871, 779, 134, 3, 64, "Input", CellTags->"evaluate"], Cell[25008, 784, 94, 2, 44, "Input", CellTags->"evaluate"], Cell[25105, 788, 152, 4, 62, "Text", CellTags->"notes"], Cell[25260, 794, 134, 3, 64, "Input", CellTags->"evaluate"], Cell[25397, 799, 228, 5, 104, "Input", CellTags->"evaluate"], Cell[25628, 806, 325, 8, 116, "Text", CellTags->"notes"], Cell[25956, 816, 202, 4, 104, "Input", CellTags->"evaluate"], Cell[26161, 822, 24, 0, 30, "Text"], Cell[26188, 824, 1183, 23, 260, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[27396, 851, 103, 4, 54, "Section"], Cell[27502, 857, 68, 1, 26, "Contents"], Cell[27573, 860, 66, 1, 26, "Contents"], Cell[27642, 863, 46, 0, 26, "Contents"], Cell[27691, 865, 45, 0, 26, "Contents"], Cell[27739, 867, 31, 0, 26, "Contents"], Cell[27773, 869, 48, 0, 26, "Contents"] }, Open ]], Cell[27836, 872, 195, 5, 62, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[28056, 881, 40, 0, 58, "Subsection"], Cell[28099, 883, 54, 0, 30, "Text"], Cell[28156, 885, 113, 3, 30, "Text"] }, Open ]], Cell[28284, 891, 223, 7, 80, "Text", CellTags->"notes"], Cell[28510, 900, 20, 0, 30, "Input"], Cell[28533, 902, 252, 5, 80, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[28810, 911, 32, 0, 58, "Subsection"], Cell[28845, 913, 2152, 68, 161, "Text"] }, Open ]], Cell[31012, 984, 209, 5, 62, "Text", CellTags->"notes"], Cell[31224, 991, 20, 0, 30, "Input"], Cell[31247, 993, 308, 8, 80, "Text", CellTags->"notes"], Cell[31558, 1003, 20, 0, 30, "Input"], Cell[31581, 1005, 240, 5, 80, "Text", CellTags->"notes"], Cell[31824, 1012, 23, 0, 30, "Input"], Cell[31850, 1014, 215, 5, 62, "Text", CellTags->"notes"], Cell[32068, 1021, 19, 0, 30, "Input"], Cell[32090, 1023, 213, 5, 62, "Text", CellTags->"notes"], Cell[32306, 1030, 22, 0, 30, "Input"], Cell[32331, 1032, 138, 4, 44, "Text", CellTags->"notes"], Cell[32472, 1038, 21, 0, 30, "Input"], Cell[32496, 1040, 273, 6, 80, "Text", CellTags->"notes"], Cell[32772, 1048, 22, 0, 30, "Input"], Cell[32797, 1050, 173, 4, 62, "Text", CellTags->"notes"], Cell[32973, 1056, 20, 0, 30, "Input"], Cell[32996, 1058, 376, 7, 98, "Text", CellTags->"notes"], Cell[33375, 1067, 37, 1, 32, "Input"], Cell[33415, 1070, 465, 8, 116, "Text", CellTags->"notes"], Cell[33883, 1080, 220, 4, 84, "Input", CellTags->"evaluate"], Cell[34106, 1086, 111, 4, 44, "Text", CellTags->"notes"], Cell[34220, 1092, 43, 0, 58, "Subsection"], Cell[34266, 1094, 193, 5, 62, "Text", CellTags->"notes"], Cell[34462, 1101, 24, 0, 30, "Input"], Cell[34489, 1103, 975, 19, 224, "Text", CellTags->"notes"], Cell[35467, 1124, 32, 0, 30, "Input"], Cell[35502, 1126, 199, 7, 62, "Text", CellTags->"notes"], Cell[35704, 1135, 117, 5, 58, "Subsection"], Cell[35824, 1142, 178, 5, 44, "Text", CellTags->"notes"], Cell[36005, 1149, 116, 4, 30, "BulletItem"], Cell[36124, 1155, 361, 8, 80, "Text", CellTags->"notes"], Cell[36488, 1165, 220, 9, 22, "BulletText"], Cell[36711, 1176, 125, 4, 44, "Text", CellTags->"notes"], Cell[36839, 1182, 72, 0, 30, "BulletItem"], Cell[36914, 1184, 409, 9, 98, "Text", CellTags->"notes"], Cell[37326, 1195, 65, 0, 22, "BulletText"], Cell[37394, 1197, 963, 21, 206, "Text", CellTags->"notes"], Cell[38360, 1220, 83, 2, 24, "TableEntry"], Cell[38446, 1224, 129, 4, 44, "Text", CellTags->"notes"], Cell[38578, 1230, 76, 0, 30, "BulletItem"], Cell[38657, 1232, 90, 1, 44, "Text", CellTags->"notes"], Cell[38750, 1235, 219, 10, 22, "BulletText"], Cell[38972, 1247, 117, 4, 44, "Text", CellTags->"notes"], Cell[39092, 1253, 223, 10, 22, "BulletText"], Cell[39318, 1265, 129, 4, 44, "Text", CellTags->"notes"], Cell[39450, 1271, 20, 0, 30, "Input"], Cell[39473, 1273, 239, 5, 80, "Text", CellTags->"notes"], Cell[39715, 1280, 26, 0, 30, "Input"], Cell[39744, 1282, 119, 4, 44, "Text", CellTags->"notes"], Cell[39866, 1288, 23, 0, 30, "Input"], Cell[39892, 1290, 1241, 25, 260, "Text", CellTags->"notes"], Cell[41136, 1317, 35, 0, 30, "Input"], Cell[41174, 1319, 95, 1, 44, "Text", CellTags->"notes"], Cell[41272, 1322, 41, 0, 58, "Subsection"], Cell[41316, 1324, 110, 4, 44, "Text", CellTags->"notes"], Cell[41429, 1330, 25, 0, 30, "Input"], Cell[41457, 1332, 619, 13, 134, "Text", CellTags->"notes"], Cell[42079, 1347, 33, 0, 30, "Input"], Cell[42115, 1349, 879, 16, 206, "Text", CellTags->"notes"], Cell[42997, 1367, 34, 0, 30, "Input"], Cell[43034, 1369, 1227, 22, 350, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[44286, 1395, 43, 0, 58, "Subsection"], Cell[44332, 1397, 441, 22, 24, "TableEntry"], Cell[44776, 1421, 128, 5, 24, "TableEntry"], Cell[44907, 1428, 123, 5, 24, "TableEntry"], Cell[45033, 1435, 131, 5, 24, "TableEntry"], Cell[45167, 1442, 126, 5, 24, "TableEntry"], Cell[45296, 1449, 130, 5, 24, "TableEntry"], Cell[45429, 1456, 136, 5, 24, "TableEntry"] }, Open ]], Cell[45580, 1464, 147, 4, 62, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[45752, 1472, 31, 0, 58, "Subsection"], Cell[45786, 1474, 111, 3, 30, "Text"] }, Open ]], Cell[45912, 1480, 359, 7, 98, "Text", CellTags->"notes"], Cell[46274, 1489, 24, 0, 30, "Input"], Cell[46301, 1491, 89, 1, 44, "Text", CellTags->"notes"], Cell[46393, 1494, 33, 0, 30, "Input"], Cell[46429, 1496, 162, 4, 62, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[46616, 1504, 33, 0, 58, "Subsection"], Cell[46652, 1506, 67, 0, 30, "Text"] }, Open ]], Cell[46734, 1509, 110, 4, 44, "Text", CellTags->"notes"], Cell[46847, 1515, 20, 0, 30, "Input"], Cell[46870, 1517, 170, 4, 62, "Text", CellTags->"notes"], Cell[47043, 1523, 18, 0, 30, "Input"], Cell[47064, 1525, 224, 7, 62, "Text", CellTags->"notes"], Cell[47291, 1534, 23, 0, 30, "Input"], Cell[47317, 1536, 722, 13, 152, "Text", CellTags->"notes"], Cell[48042, 1551, 19, 0, 30, "Input"], Cell[48064, 1553, 279, 6, 80, "Text", CellTags->"notes"], Cell[48346, 1561, 29, 0, 30, "Input"], Cell[48378, 1563, 287, 6, 80, "Text", CellTags->"notes"], Cell[48668, 1571, 25, 0, 30, "Input"], Cell[48696, 1573, 75, 1, 44, "Text", CellTags->"notes"], Cell[48774, 1576, 18, 0, 30, "Input"], Cell[48795, 1578, 23, 0, 30, "Input"], Cell[48821, 1580, 481, 12, 98, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[49327, 1596, 27, 0, 58, "Subsection"], Cell[49357, 1598, 110, 3, 30, "Text"] }, Open ]], Cell[49482, 1604, 76, 1, 44, "Text", CellTags->"notes"], Cell[49561, 1607, 35, 0, 30, "InputOnly"], Cell[49599, 1609, 272, 6, 80, "Text", CellTags->"notes"], Cell[49874, 1617, 34, 0, 30, "Input"], Cell[49911, 1619, 363, 7, 98, "Text", CellTags->"notes"], Cell[50277, 1628, 57, 0, 30, "Input"], Cell[50337, 1630, 392, 7, 98, "Text", CellTags->"notes"], Cell[50732, 1639, 40, 0, 30, "Input"], Cell[50775, 1641, 218, 5, 62, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[51018, 1650, 27, 0, 58, "Subsection"], Cell[51048, 1652, 167, 6, 30, "Text"] }, Open ]], Cell[51230, 1661, 169, 4, 62, "Text", CellTags->"notes"], Cell[51402, 1667, 32, 0, 30, "Input"], Cell[51437, 1669, 223, 5, 62, "Text", CellTags->"notes"], Cell[51663, 1676, 43, 0, 30, "Input"], Cell[51709, 1678, 82, 1, 44, "Text", CellTags->"notes"], Cell[51794, 1681, 29, 0, 30, "Input"], Cell[51826, 1683, 314, 6, 80, "Text", CellTags->"notes"], Cell[52143, 1691, 26, 0, 30, "Input"], Cell[52172, 1693, 715, 13, 170, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[52912, 1710, 50, 0, 58, "Subsection"], Cell[52965, 1712, 203, 7, 20, "TableEntry"], Cell[53171, 1721, 197, 7, 20, "TableEntry"], Cell[53371, 1730, 187, 7, 20, "TableEntry"], Cell[53561, 1739, 189, 7, 20, "TableEntry"] }, Open ]], Cell[53765, 1749, 419, 8, 98, "Text", CellTags->"notes"], Cell[54187, 1759, 23, 0, 30, "Input"], Cell[54213, 1761, 388, 7, 98, "Text", CellTags->"notes"], Cell[54604, 1770, 23, 0, 30, "Input"], Cell[54630, 1772, 978, 19, 206, "Text", CellTags->"notes"], Cell[55611, 1793, 23, 0, 30, "Input"], Cell[55637, 1795, 213, 5, 62, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[55875, 1804, 39, 0, 58, "Subsection"], Cell[55917, 1806, 233, 10, 30, "Text"] }, Open ]], Cell[56165, 1819, 746, 16, 152, "Text", CellTags->"notes"], Cell[56914, 1837, 25, 0, 30, "InputOnly"], Cell[56942, 1839, 133, 4, 44, "Text", CellTags->"notes"], Cell[57078, 1845, 30, 0, 30, "Input"], Cell[57111, 1847, 256, 5, 80, "Text", CellTags->"notes"], Cell[57370, 1854, 40, 0, 30, "Input"], Cell[57413, 1856, 350, 8, 98, "Text", CellTags->"notes"], Cell[57766, 1866, 29, 0, 30, "Input"], Cell[57798, 1868, 163, 4, 62, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[57986, 1876, 53, 0, 58, "Subsection"], Cell[58042, 1878, 155, 6, 30, "Text"] }, Open ]], Cell[58212, 1887, 481, 10, 116, "Text", CellTags->"notes"], Cell[58696, 1899, 49, 0, 30, "Input"], Cell[58748, 1901, 144, 4, 44, "Text", CellTags->"notes"], Cell[58895, 1907, 30, 0, 30, "Input"], Cell[58928, 1909, 72, 1, 44, "Text", CellTags->"notes"], Cell[59003, 1912, 30, 0, 30, "Input"], Cell[59036, 1914, 391, 7, 98, "Text", CellTags->"notes"], Cell[59430, 1923, 39, 0, 30, "Input"], Cell[59472, 1925, 153, 4, 62, "Text", CellTags->"notes"], Cell[59628, 1931, 39, 0, 30, "Input"], Cell[59670, 1933, 322, 6, 80, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[60017, 1943, 40, 0, 58, "Subsection"], Cell[60060, 1945, 42, 0, 30, "Text"], Cell[60105, 1947, 60, 1, 30, "InputOnly"] }, Open ]], Cell[60180, 1951, 181, 5, 62, "Text", CellTags->"notes"], Cell[60364, 1958, 87, 1, 30, "InputOnly"], Cell[60454, 1961, 303, 6, 80, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[60782, 1971, 51, 0, 30, "Text"], Cell[60836, 1973, 120, 2, 50, "InputOnly"] }, Open ]], Cell[60971, 1978, 889, 15, 206, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[61885, 1997, 28, 0, 58, "Subsection"], Cell[61916, 1999, 165, 5, 22, "BulletItem"], Cell[62084, 2006, 121, 1, 22, "BulletItem"], Cell[62208, 2009, 118, 1, 22, "BulletItem"], Cell[62329, 2012, 198, 7, 30, "TableEntry"], Cell[62530, 2021, 190, 7, 20, "TableEntry"], Cell[62723, 2030, 191, 7, 20, "TableEntry"], Cell[62917, 2039, 189, 7, 20, "TableEntry"], Cell[63109, 2048, 189, 7, 20, "TableEntry"], Cell[63301, 2057, 198, 7, 20, "TableEntry"], Cell[63502, 2066, 198, 7, 20, "TableEntry"] }, Open ]], Cell[63715, 2076, 266, 6, 80, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[64006, 2086, 46, 0, 54, "Section"], Cell[64055, 2088, 68, 1, 26, "Contents"], Cell[64126, 2091, 65, 1, 26, "Contents"], Cell[64194, 2094, 80, 1, 26, "Contents"], Cell[64277, 2097, 45, 0, 26, "Contents"], Cell[64325, 2099, 31, 0, 26, "Contents"], Cell[64359, 2101, 48, 0, 26, "Contents"] }, Open ]], Cell[64422, 2104, 295, 6, 80, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[64742, 2114, 112, 4, 58, "Subsection"], Cell[64857, 2120, 36, 0, 30, "Text"], Cell[64896, 2122, 35, 0, 30, "Text"], Cell[64934, 2124, 52, 0, 30, "Text"], Cell[64989, 2126, 37, 0, 30, "Text"], Cell[65029, 2128, 64, 0, 30, "Text"] }, Open ]], Cell[65108, 2131, 330, 10, 62, "Text", CellTags->"notes"], Cell[65441, 2143, 47, 0, 58, "Subsection"], Cell[65491, 2145, 185, 5, 62, "Text", CellTags->"notes"], Cell[65679, 2152, 44, 1, 30, "InputOnly"], Cell[65726, 2155, 80, 1, 44, "Text", CellTags->"notes"], Cell[65809, 2158, 38, 1, 30, "InputOnly"], Cell[65850, 2161, 134, 4, 44, "Text", CellTags->"notes"], Cell[65987, 2167, 42, 1, 54, "InputOnly"], Cell[66032, 2170, 110, 4, 44, "Text", CellTags->"notes"], Cell[66145, 2176, 39, 1, 30, "InputOnly"], Cell[66187, 2179, 352, 8, 80, "Text", CellTags->"notes"], Cell[66542, 2189, 24, 0, 30, "Input"], Cell[66569, 2191, 109, 4, 44, "Text", CellTags->"notes"], Cell[66681, 2197, 26, 0, 30, "Input"], Cell[66710, 2199, 165, 4, 62, "Text", CellTags->"notes"], Cell[66878, 2205, 23, 0, 30, "Input"], Cell[66904, 2207, 163, 4, 62, "Text", CellTags->"notes"], Cell[67070, 2213, 25, 0, 30, "Input"], Cell[67098, 2215, 145, 4, 62, "Text", CellTags->"notes"], Cell[67246, 2221, 26, 0, 30, "Input"], Cell[67275, 2223, 362, 7, 98, "Text", CellTags->"notes"], Cell[67640, 2232, 30, 0, 30, "Input"], Cell[67673, 2234, 262, 7, 62, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[67960, 2245, 44, 0, 58, "Subsection"], Cell[68007, 2247, 268, 7, 86, "Text"] }, Open ]], Cell[68290, 2257, 174, 4, 62, "Text", CellTags->"notes"], Cell[68467, 2263, 28, 0, 30, "Input"], Cell[68498, 2265, 292, 6, 80, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[68815, 2275, 44, 0, 58, "Subsection"], Cell[68862, 2277, 285, 7, 86, "Text"] }, Open ]], Cell[69162, 2287, 238, 5, 80, "Text", CellTags->"notes"], Cell[69403, 2294, 118, 2, 54, "Input"], Cell[69524, 2298, 192, 5, 62, "Text", CellTags->"notes"], Cell[69719, 2305, 42, 1, 30, "Input"], Cell[69764, 2308, 313, 7, 80, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[70102, 2319, 44, 0, 58, "Subsection"], Cell[70149, 2321, 271, 7, 86, "Text"] }, Open ]], Cell[70435, 2331, 286, 6, 80, "Text", CellTags->"notes"], Cell[70724, 2339, 59, 0, 30, "Input"], Cell[70786, 2341, 345, 7, 98, "Text", CellTags->"notes"], Cell[71134, 2350, 39, 0, 30, "Input"], Cell[71176, 2352, 346, 7, 98, "Text", CellTags->"notes"], Cell[71525, 2361, 26, 0, 30, "Input"], Cell[71554, 2363, 302, 7, 80, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[71881, 2374, 43, 0, 58, "Subsection"], Cell[71927, 2376, 442, 12, 186, "Text"] }, Open ]], Cell[72384, 2391, 202, 5, 62, "Text", CellTags->"notes"], Cell[72589, 2398, 30, 0, 30, "Input"], Cell[72622, 2400, 244, 5, 80, "Text", CellTags->"notes"], Cell[72869, 2407, 61, 0, 30, "Input"], Cell[72933, 2409, 301, 8, 80, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[73259, 2421, 42, 0, 58, "Subsection"], Cell[73304, 2423, 47, 0, 30, "Text"], Cell[73354, 2425, 44, 0, 30, "Text"] }, Open ]], Cell[73413, 2428, 118, 4, 44, "Text", CellTags->"notes"], Cell[73534, 2434, 34, 0, 30, "Input"], Cell[73571, 2436, 241, 5, 80, "Text", CellTags->"notes"], Cell[73815, 2443, 40, 0, 30, "Input"], Cell[73858, 2445, 217, 5, 62, "Text", CellTags->"notes"], Cell[74078, 2452, 30, 0, 30, "Input"], Cell[74111, 2454, 194, 5, 62, "Text", CellTags->"notes"], Cell[74308, 2461, 23, 0, 30, "Input"], Cell[74334, 2463, 111, 4, 44, "Text", CellTags->"notes"], Cell[74448, 2469, 25, 0, 30, "Input"], Cell[74476, 2471, 306, 6, 80, "Text", CellTags->"notes"], Cell[74785, 2479, 27, 0, 30, "Input"], Cell[74815, 2481, 187, 5, 62, "Text", CellTags->"notes"], Cell[75005, 2488, 24, 0, 30, "Input"], Cell[75032, 2490, 270, 7, 62, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[75327, 2501, 38, 0, 58, "Subsection"], Cell[75368, 2503, 507, 12, 186, "Text"] }, Open ]], Cell[75890, 2518, 145, 4, 62, "Text", CellTags->"notes"], Cell[76038, 2524, 51, 0, 30, "Input"], Cell[76092, 2526, 188, 5, 62, "Text", CellTags->"notes"], Cell[76283, 2533, 47, 0, 30, "Input"], Cell[76333, 2535, 263, 7, 62, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[76621, 2546, 30, 0, 58, "Subsection"], Cell[76654, 2548, 317, 8, 106, "Text"] }, Open ]], Cell[76986, 2559, 715, 13, 19, "Text", CellOpen->False, CellTags->"notes"], Cell[77704, 2574, 39, 0, 30, "Input"], Cell[77746, 2576, 392, 7, 98, "Text", CellTags->"notes"], Cell[78141, 2585, 49, 0, 30, "Input"], Cell[78193, 2587, 128, 3, 64, "Input", CellTags->"evaluate"], Cell[78324, 2592, 167, 4, 62, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[78516, 2600, 35, 0, 58, "Subsection"], Cell[78554, 2602, 378, 9, 126, "Text"] }, Open ]], Cell[78947, 2614, 306, 8, 80, "Text", CellTags->"notes"], Cell[79256, 2624, 64, 0, 30, "Input"], Cell[79323, 2626, 438, 9, 98, "Text", CellTags->"notes"], Cell[79764, 2637, 305, 6, 124, "Input", CellTags->"evaluate"], Cell[80072, 2645, 205, 5, 62, "Text", CellTags->"notes"], Cell[80280, 2652, 322, 6, 144, "Input", CellTags->"evaluate"], Cell[80605, 2660, 322, 8, 80, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[80952, 2672, 47, 0, 58, "Subsection"], Cell[81002, 2674, 279, 8, 106, "Text"] }, Open ]], Cell[81296, 2685, 133, 4, 44, "Text", CellTags->"notes"], Cell[81432, 2691, 57, 0, 30, "Input"], Cell[81492, 2693, 319, 6, 80, "Text", CellTags->"notes"], Cell[81814, 2701, 23, 0, 30, "Input"], Cell[81840, 2703, 78, 1, 44, "Text", CellTags->"notes"], Cell[81921, 2706, 43, 0, 30, "Input"], Cell[81967, 2708, 1392, 37, 224, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[83384, 2749, 73, 1, 58, "Subsection"], Cell[83460, 2752, 128, 4, 30, "Text"], Cell[83591, 2758, 189, 8, 30, "Text"], Cell[83783, 2768, 166, 7, 30, "Text"] }, Open ]], Cell[83964, 2778, 339, 9, 80, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[84328, 2791, 46, 0, 54, "Section"], Cell[84377, 2793, 68, 1, 26, "Contents"], Cell[84448, 2796, 65, 1, 26, "Contents"], Cell[84516, 2799, 79, 1, 26, "Contents"], Cell[84598, 2802, 79, 1, 26, "Contents"], Cell[84680, 2805, 31, 0, 26, "Contents"], Cell[84714, 2807, 48, 0, 26, "Contents"] }, Open ]], Cell[84777, 2810, 185, 6, 44, "Text", CellTags->"notes"], Cell[84965, 2818, 31, 0, 58, "Subsection"], Cell[84999, 2820, 541, 10, 116, "Text", CellTags->"notes"], Cell[85543, 2832, 67, 0, 30, "BulletItem"], Cell[85613, 2834, 241, 5, 80, "Text", CellTags->"notes"], Cell[85857, 2841, 51, 0, 30, "BulletItem"], Cell[85911, 2843, 467, 10, 98, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[86403, 2857, 49, 0, 30, "BulletItem"], Cell[86455, 2859, 33, 0, 22, "BulletText"], Cell[86491, 2861, 34, 0, 22, "BulletText"], Cell[86528, 2863, 36, 0, 22, "BulletText"], Cell[86567, 2865, 32, 0, 22, "BulletText"] }, Open ]], Cell[86614, 2868, 366, 7, 98, "Text", CellTags->"notes"], Cell[86983, 2877, 51, 0, 30, "BulletItem"], Cell[87037, 2879, 612, 12, 134, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[87674, 2895, 43, 0, 58, "Subsection"], Cell[87720, 2897, 106, 4, 30, "Text"], Cell[87829, 2903, 35, 0, 30, "Text"], Cell[87867, 2905, 29, 0, 30, "Text"], Cell[87899, 2907, 41, 0, 30, "Text"] }, Open ]], Cell[87955, 2910, 26, 0, 30, "Text"], Cell[87984, 2912, 726, 15, 152, "Text", CellTags->"notes"], Cell[88713, 2929, 61, 2, 44, "Input", CellTags->"evaluate"], Cell[88777, 2933, 167, 4, 64, "Input", CellTags->"evaluate"], Cell[88947, 2939, 161, 3, 64, "Input", CellTags->"evaluate"], Cell[89111, 2944, 137, 3, 64, "Input", CellTags->"evaluate"], Cell[89251, 2949, 333, 6, 98, "Text", CellTags->"notes"], Cell[89587, 2957, 134, 3, 64, "Input", CellTags->"evaluate"], Cell[89724, 2962, 218, 4, 104, "Input", CellTags->"evaluate"], Cell[89945, 2968, 137, 3, 64, "Input", CellTags->"evaluate"], Cell[90085, 2973, 982, 17, 206, "Text", CellTags->"notes"], Cell[91070, 2992, 134, 3, 64, "Input", CellTags->"evaluate"], Cell[91207, 2997, 96, 2, 44, "Input", CellTags->"evaluate"], Cell[91306, 3001, 161, 3, 64, "Input", CellTags->"evaluate"], Cell[91470, 3006, 81, 1, 44, "Text", CellTags->"notes"], Cell[91554, 3009, 134, 3, 64, "Input", CellTags->"evaluate"], Cell[91691, 3014, 231, 4, 104, "Input", CellTags->"evaluate"], Cell[91925, 3020, 376, 7, 98, "Text", CellTags->"notes"], Cell[92304, 3029, 134, 3, 64, "Input", CellTags->"evaluate"], Cell[92441, 3034, 96, 2, 44, "Input", CellTags->"evaluate"], Cell[92540, 3038, 101, 2, 44, "Input", CellTags->"evaluate"], Cell[92644, 3042, 143, 4, 64, "Input", CellTags->"evaluate"], Cell[92790, 3048, 163, 4, 62, "Text", CellTags->"notes"], Cell[92956, 3054, 134, 3, 64, "Input", CellTags->"evaluate"], Cell[93093, 3059, 508, 9, 224, "Input", CellTags->"evaluate"], Cell[93604, 3070, 55, 0, 30, "Text"], Cell[93662, 3072, 74, 1, 50, "Input"], Cell[93739, 3075, 45, 0, 30, "Text"], Cell[93787, 3077, 54, 1, 78, "Input"], Cell[93844, 3080, 37, 0, 30, "Text"], Cell[93884, 3082, 151, 5, 68, "Input"], Cell[94038, 3089, 136, 3, 64, "Input", CellTags->"evaluate"], Cell[94177, 3094, 144, 4, 64, "Input", CellTags->"evaluate"], Cell[94324, 3100, 144, 4, 64, "Input", CellTags->"evaluate"], Cell[94471, 3106, 144, 4, 64, "Input", CellTags->"evaluate"], Cell[94618, 3112, 263, 6, 80, "Text", CellTags->"notes"], Cell[94884, 3120, 134, 3, 64, "Input", CellTags->"evaluate"], Cell[95021, 3125, 145, 3, 64, "Input", CellTags->"evaluate"], Cell[95169, 3130, 106, 2, 44, "Input", CellTags->"evaluate"], Cell[95278, 3134, 101, 2, 44, "Input", CellTags->"evaluate"], Cell[95382, 3138, 155, 4, 64, "Input", CellTags->"evaluate"], Cell[95540, 3144, 206, 4, 84, "Input", CellTags->"evaluate"], Cell[95749, 3150, 107, 2, 44, "Input", CellTags->"evaluate"], Cell[95859, 3154, 101, 2, 44, "Input", CellTags->"evaluate"], Cell[95963, 3158, 155, 4, 64, "Input", CellTags->"evaluate"], Cell[96121, 3164, 202, 5, 62, "Text", CellTags->"notes"], Cell[96326, 3171, 134, 3, 64, "Input", CellTags->"evaluate"], Cell[96463, 3176, 145, 3, 64, "Input", CellTags->"evaluate"], Cell[96611, 3181, 145, 4, 64, "Input", CellTags->"evaluate"], Cell[96759, 3187, 145, 4, 64, "Input", CellTags->"evaluate"], Cell[96907, 3193, 145, 4, 64, "Input", CellTags->"evaluate"], Cell[97055, 3199, 639, 13, 152, "Text", CellTags->"notes"], Cell[97697, 3214, 134, 3, 64, "Input", CellTags->"evaluate"], Cell[97834, 3219, 145, 3, 64, "Input", CellTags->"evaluate"], Cell[97982, 3224, 184, 4, 84, "Input", CellTags->"evaluate"], Cell[98169, 3230, 184, 4, 84, "Input", CellTags->"evaluate"], Cell[98356, 3236, 138, 3, 64, "Input", CellTags->"evaluate"], Cell[98497, 3241, 164, 3, 84, "Input", CellTags->"evaluate"], Cell[98664, 3246, 24, 0, 30, "Text"], Cell[98691, 3248, 365, 7, 98, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[99081, 3259, 33, 0, 58, "Subsection"], Cell[99117, 3261, 133, 5, 30, "Text"] }, Open ]], Cell[99265, 3269, 465, 10, 98, "Text", CellTags->"notes"], Cell[99733, 3281, 47, 0, 30, "Text"], Cell[99783, 3283, 294, 6, 80, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[100102, 3293, 42, 0, 58, "Subsection"], Cell[100147, 3295, 46, 0, 30, "Text"], Cell[100196, 3297, 45, 0, 30, "Text"], Cell[100244, 3299, 37, 0, 30, "Text"] }, Open ]], Cell[100296, 3302, 210, 5, 62, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[100531, 3311, 42, 0, 58, "Subsection"], Cell[100576, 3313, 46, 0, 30, "Text"], Cell[100625, 3315, 77, 1, 50, "InputOnly"], Cell[100705, 3318, 58, 1, 30, "InputOnly"] }, Open ]], Cell[100778, 3322, 26, 0, 30, "Text"], Cell[100807, 3324, 295, 6, 80, "Text", CellTags->"notes"], Cell[101105, 3332, 114, 2, 44, "Input", CellTags->"evaluate"], Cell[101222, 3336, 98, 2, 44, "Input", CellTags->"evaluate"], Cell[101323, 3340, 114, 2, 44, "Input", CellTags->"evaluate"], Cell[101440, 3344, 153, 4, 62, "Text", CellTags->"notes"], Cell[101596, 3350, 114, 2, 44, "Input", CellTags->"evaluate"], Cell[101713, 3354, 100, 2, 44, "Input", CellTags->"evaluate"], Cell[101816, 3358, 114, 2, 44, "Input", CellTags->"evaluate"], Cell[101933, 3362, 78, 3, 44, "Text", CellTags->"notes"], Cell[102014, 3367, 98, 2, 44, "Input", CellTags->"evaluate"], Cell[102115, 3371, 129, 4, 44, "Text", CellTags->"notes"], Cell[102247, 3377, 114, 2, 44, "Input", CellTags->"evaluate"], Cell[102364, 3381, 99, 2, 44, "Input", CellTags->"evaluate"], Cell[102466, 3385, 114, 2, 44, "Input", CellTags->"evaluate"], Cell[102583, 3389, 182, 5, 62, "Text", CellTags->"notes"], Cell[102768, 3396, 135, 3, 64, "Input", CellTags->"evaluate"], Cell[102906, 3401, 24, 0, 30, "Text"], Cell[102933, 3403, 271, 6, 80, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[103229, 3413, 42, 0, 58, "Subsection"], Cell[103274, 3415, 45, 0, 30, "Text"], Cell[103322, 3417, 58, 1, 78, "InputOnly"], Cell[103383, 3420, 58, 1, 30, "InputOnly"] }, Open ]], Cell[103456, 3424, 26, 0, 30, "Text"], Cell[103485, 3426, 215, 5, 62, "Text", CellTags->"notes"], Cell[103703, 3433, 130, 3, 64, "Input", CellTags->"evaluate"], Cell[103836, 3438, 307, 6, 80, "Text", CellTags->"notes"], Cell[104146, 3446, 98, 2, 44, "Input", CellTags->"evaluate"], Cell[104247, 3450, 134, 3, 64, "Input", CellTags->"evaluate"], Cell[104384, 3455, 98, 2, 44, "Input", CellTags->"evaluate"], Cell[104485, 3459, 123, 4, 44, "Text", CellTags->"notes"], Cell[104611, 3465, 103, 2, 44, "Input", CellTags->"evaluate"], Cell[104717, 3469, 183, 5, 62, "Text", CellTags->"notes"], Cell[104903, 3476, 131, 3, 64, "Input", CellTags->"evaluate"], Cell[105037, 3481, 66, 1, 44, "Text", CellTags->"notes"], Cell[105106, 3484, 100, 2, 44, "Input", CellTags->"evaluate"], Cell[105209, 3488, 24, 0, 30, "Text"], Cell[105236, 3490, 223, 5, 62, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[105484, 3499, 42, 0, 58, "Subsection"], Cell[105529, 3501, 45, 0, 30, "Text"], Cell[105577, 3503, 155, 5, 68, "InputOnly"], Cell[105735, 3510, 70, 1, 30, "InputOnly"] }, Open ]], Cell[105820, 3514, 356, 7, 98, "Text", CellTags->"notes"], Cell[106179, 3523, 324, 6, 144, "Input", CellTags->"evaluate"], Cell[106506, 3531, 166, 4, 48, "Input"], Cell[106675, 3537, 209, 5, 62, "Text", CellTags->"notes"], Cell[106887, 3544, 87, 2, 44, "Input", CellTags->"evaluate"], Cell[106977, 3548, 112, 2, 44, "Input", CellTags->"evaluate"], Cell[107092, 3552, 87, 2, 44, "Input", CellTags->"evaluate"], Cell[107182, 3556, 112, 2, 44, "Input", CellTags->"evaluate"], Cell[107297, 3560, 87, 2, 44, "Input", CellTags->"evaluate"], Cell[107387, 3564, 112, 2, 44, "Input", CellTags->"evaluate"], Cell[107502, 3568, 87, 2, 44, "Input", CellTags->"evaluate"], Cell[107592, 3572, 167, 4, 62, "Text", CellTags->"notes"], Cell[107762, 3578, 115, 2, 44, "Input", CellTags->"evaluate"], Cell[107880, 3582, 125, 3, 64, "Input", CellTags->"evaluate"], Cell[108008, 3587, 73, 1, 44, "Text", CellTags->"notes"], Cell[108084, 3590, 87, 2, 44, "Input", CellTags->"evaluate"], Cell[108174, 3594, 112, 2, 44, "Input", CellTags->"evaluate"], Cell[108289, 3598, 87, 2, 44, "Input", CellTags->"evaluate"], Cell[108379, 3602, 112, 2, 44, "Input", CellTags->"evaluate"], Cell[108494, 3606, 87, 2, 44, "Input", CellTags->"evaluate"], Cell[108584, 3610, 112, 2, 44, "Input", CellTags->"evaluate"], Cell[108699, 3614, 87, 2, 44, "Input", CellTags->"evaluate"], Cell[108789, 3618, 112, 2, 44, "Input", CellTags->"evaluate"], Cell[108904, 3622, 87, 2, 44, "Input", CellTags->"evaluate"], Cell[108994, 3626, 24, 0, 30, "Text"], Cell[109021, 3628, 668, 16, 134, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[109714, 3648, 46, 0, 54, "Section"], Cell[109763, 3650, 68, 1, 26, "Contents"], Cell[109834, 3653, 65, 1, 26, "Contents"], Cell[109902, 3656, 79, 1, 26, "Contents"], Cell[109984, 3659, 78, 1, 26, "Contents"], Cell[110065, 3662, 65, 1, 26, "Contents"], Cell[110133, 3665, 48, 0, 26, "Contents"] }, Open ]], Cell[110196, 3668, 1084, 24, 206, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[111305, 3696, 33, 0, 58, "Subsection"], Cell[111341, 3698, 173, 7, 30, "Text"], Cell[111517, 3707, 182, 5, 30, "Text"], Cell[111702, 3714, 143, 5, 30, "Text"], Cell[111848, 3721, 116, 1, 30, "Text"] }, Open ]], Cell[111979, 3725, 319, 6, 98, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[112323, 3735, 40, 0, 58, "Subsection"], Cell[112366, 3737, 38, 0, 30, "Text"], Cell[112407, 3739, 38, 0, 30, "Text"], Cell[112448, 3741, 38, 0, 30, "Text"] }, Open ]], Cell[112501, 3744, 723, 13, 152, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[113249, 3761, 44, 0, 58, "Subsection"], Cell[113296, 3763, 283, 7, 86, "Text"] }, Open ]], Cell[113594, 3773, 500, 9, 116, "Text", CellTags->"notes"], Cell[114097, 3784, 99, 5, 84, "Input"], Cell[114199, 3791, 165, 4, 62, "Text", CellTags->"notes"], Cell[114367, 3797, 26, 0, 30, "Input"], Cell[114396, 3799, 26, 0, 30, "Input"], Cell[114425, 3801, 243, 5, 80, "Text", CellTags->"notes"], Cell[114671, 3808, 33, 0, 30, "Input"], Cell[114707, 3810, 274, 6, 80, "Text", CellTags->"notes"], Cell[114984, 3818, 37, 0, 30, "Input"], Cell[115024, 3820, 375, 9, 80, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[115424, 3833, 44, 0, 58, "Subsection"], Cell[115471, 3835, 68, 0, 30, "Text"] }, Open ]], Cell[115554, 3838, 165, 4, 62, "Text", CellTags->"notes"], Cell[115722, 3844, 20, 0, 30, "Input"], Cell[115745, 3846, 23, 0, 30, "Input"], Cell[115771, 3848, 218, 5, 62, "Text", CellTags->"notes"], Cell[115992, 3855, 25, 0, 30, "Input"], Cell[116020, 3857, 29, 0, 30, "Input"], Cell[116052, 3859, 86, 1, 44, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[116163, 3864, 40, 0, 58, "Subsection"], Cell[116206, 3866, 64, 0, 30, "Text"] }, Open ]], Cell[116285, 3869, 496, 9, 116, "Text", CellTags->"notes"], Cell[116784, 3880, 31, 0, 30, "Input"], Cell[116818, 3882, 118, 4, 44, "Text", CellTags->"notes"], Cell[116939, 3888, 37, 1, 30, "Input"], Cell[116979, 3891, 171, 4, 62, "Text", CellTags->"notes"], Cell[117153, 3897, 30, 0, 30, "Input"], Cell[117186, 3899, 145, 4, 62, "Text", CellTags->"notes"], Cell[117334, 3905, 24, 0, 30, "Input"], Cell[117361, 3907, 171, 4, 62, "Text", CellTags->"notes"], Cell[117535, 3913, 27, 0, 30, "Input"], Cell[117565, 3915, 354, 8, 80, "Text", CellTags->"notes"], Cell[117922, 3925, 55, 0, 58, "Subsection"], Cell[117980, 3927, 254, 5, 80, "Text", CellTags->"notes"], Cell[118237, 3934, 38, 0, 30, "Input"], Cell[118278, 3936, 138, 4, 44, "Text", CellTags->"notes"], Cell[118419, 3942, 23, 0, 30, "Input"], Cell[118445, 3944, 513, 10, 116, "Text", CellTags->"notes"], Cell[118961, 3956, 39, 0, 30, "Input"], Cell[119003, 3958, 1068, 18, 242, "Text", CellTags->"notes"], Cell[120074, 3978, 23, 0, 30, "Input"], Cell[120100, 3980, 670, 16, 134, "Text", CellTags->"notes"], Cell[120773, 3998, 44, 0, 58, "Subsection"], Cell[120820, 4000, 320, 8, 106, "Text"], Cell[121143, 4010, 386, 7, 98, "Text", CellTags->"notes"], Cell[121532, 4019, 47, 0, 30, "Input"], Cell[121582, 4021, 289, 8, 62, "Text", CellTags->"notes"], Cell[121874, 4031, 45, 0, 30, "Input"], Cell[121922, 4033, 121, 4, 44, "Text", CellTags->"notes"], Cell[122046, 4039, 221, 4, 104, "Input", CellTags->"evaluate"], Cell[122270, 4045, 125, 8, 138, "Input"], Cell[122398, 4055, 682, 16, 134, "Text", CellTags->"notes"], Cell[123083, 4073, 179, 4, 84, "Input", CellTags->"evaluate"], Cell[123265, 4079, 211, 5, 62, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[123501, 4088, 46, 0, 54, "Section"], Cell[123550, 4090, 68, 1, 26, "Contents"], Cell[123621, 4093, 65, 1, 26, "Contents"], Cell[123689, 4096, 79, 1, 26, "Contents"], Cell[123771, 4099, 78, 1, 26, "Contents"], Cell[123852, 4102, 64, 1, 26, "Contents"], Cell[123919, 4105, 82, 1, 26, "Contents"] }, Open ]], Cell[124016, 4109, 603, 14, 134, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[124644, 4127, 50, 0, 58, "Subsection"], Cell[124697, 4129, 105, 5, 30, "BulletItem"], Cell[124805, 4136, 34, 0, 30, "BulletItem"] }, Open ]], Cell[124854, 4139, 817, 19, 188, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[125696, 4162, 38, 0, 58, "Subsection"], Cell[125737, 4164, 45, 0, 30, "BulletItem"], Cell[125785, 4166, 44, 0, 30, "BulletItem"], Cell[125832, 4168, 41, 0, 30, "BulletItem"], Cell[125876, 4170, 41, 0, 30, "BulletItem"] }, Open ]], Cell[125932, 4173, 26, 0, 30, "Text"], Cell[125961, 4175, 139, 3, 64, "Input", CellTags->"evaluate"], Cell[126103, 4180, 128, 3, 64, "Input", CellTags->"evaluate"], Cell[126234, 4185, 106, 2, 44, "Input", CellTags->"evaluate"], Cell[126343, 4189, 119, 3, 44, "Input", CellTags->"evaluate"], Cell[126465, 4194, 24, 0, 30, "Text"], Cell[126492, 4196, 1175, 28, 242, "Text", CellTags->"notes"], Cell[CellGroupData[{ Cell[127692, 4228, 50, 0, 58, "Subsection"], Cell[127745, 4230, 105, 5, 30, "BulletItem"], Cell[127853, 4237, 34, 0, 30, "BulletItem"], Cell[127890, 4239, 51, 0, 30, "BulletItem"], Cell[127944, 4241, 69, 1, 22, "BulletText"], Cell[128016, 4244, 102, 4, 30, "BulletItem"], Cell[128121, 4250, 41, 0, 30, "BulletItem"], Cell[128165, 4252, 67, 1, 22, "BulletText"], Cell[128235, 4255, 63, 1, 22, "BulletText"] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)