(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 10.4' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 46668, 1344] NotebookOptionsPosition[ 42481, 1206] NotebookOutlinePosition[ 42840, 1222] CellTagsIndexPosition[ 42797, 1219] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[StyleBox["Mathematica", FontSlant->"Italic"]], "Section", CellChangeTimes->{{3.649501317557513*^9, 3.649501347940688*^9}}, FontSize->36], Cell["\<\ \[OpenCurlyDoubleQuote]For more than 25 years, Mathematica has defined the \ state of the art in technical computing and provided the principal \ computation environment for millions of innovators, educators, students, and \ others around the world.\[CloseCurlyDoubleQuote]\ \>", "Subsection", CellChangeTimes->{{3.649501363366235*^9, 3.6495013910697613`*^9}, { 3.6495015878544416`*^9, 3.649501589132977*^9}}, TextJustification->1., FontSize->24], Cell[TextData[ButtonBox["Wolfram Demonstration Projects \ http://demonstrations.wolfram.com/", BaseStyle->"Hyperlink", ButtonData->{ URL["http://demonstrations.wolfram.com/"], None}, ButtonNote->"http://demonstrations.wolfram.com/"]], "Subsection", CellChangeTimes->{{3.6495015914980288`*^9, 3.649501601826705*^9}, { 3.649501641100998*^9, 3.649501641101982*^9}, {3.6495016844835777`*^9, 3.6495017583091793`*^9}}, FontSize->24], Cell[TextData[{ "Comprehensive Documentation ", ButtonBox["http://reference.wolfram.com/language/", BaseStyle->"Hyperlink", ButtonData->{ URL["http://reference.wolfram.com/language/"], None}, ButtonNote->"http://reference.wolfram.com/language/"] }], "Subsection", CellChangeTimes->{{3.649501847006468*^9, 3.6495018836663103`*^9}}, FontSize->24] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " Notebooks (*.nb)" }], "Section", CellChangeTimes->{{3.6187393313722763`*^9, 3.6187393641619873`*^9}, { 3.618739544731097*^9, 3.618739552810526*^9}}, FontSize->36], Cell[CellGroupData[{ Cell[TextData[{ "When ", StyleBox["Mathematica", FontSlant->"Italic"], " is first started, it displays an empty notebook with a blinking cursor. \ You can start typing right away. " }], "Subsection", CellChangeTimes->{{3.618739533563794*^9, 3.618739563897985*^9}, { 3.618739630807623*^9, 3.618739678157382*^9}, {3.618739738958415*^9, 3.618739769857593*^9}, 3.618739858094284*^9}, FontSize->24], Cell[BoxData[ RowBox[{"1", "+", "3", "+", RowBox[{"2", "*", "5"}]}]], "Input", CellChangeTimes->{{3.618739865676112*^9, 3.618739868326643*^9}, { 3.618739899457602*^9, 3.618739899853652*^9}, {3.618739996916471*^9, 3.618740051623599*^9}, {3.618740236920919*^9, 3.61874024805548*^9}, { 3.618741070065179*^9, 3.61874108598391*^9}}, FontSize->24, Background->RGBColor[0.87, 0.94, 1]] }, Open ]], Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic", FontColor->GrayLevel[0]], StyleBox[" by default will interpret your text as input. Type", FontColor->GrayLevel[0]], " Shift+Return (it\[CloseCurlyQuote]s the same as Shift+Enter) ", StyleBox["to make Mathematica process your input. If your keyboard has a \ numeric keypad, you can use its Enter key instead of Shift+Return.", FontColor->GrayLevel[0]] }], "Subsection", CellDingbat->"\[GrayCircle]", CellChangeTimes->{{3.6187398433564568`*^9, 3.6187398527108107`*^9}, { 3.61874011576541*^9, 3.61874012292397*^9}, {3.618878932535654*^9, 3.61887895577472*^9}, {3.682982513892309*^9, 3.682982516857662*^9}}, TextJustification->1., FontSize->24], Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic", FontColor->GrayLevel[0]], StyleBox[" will label your input with", FontColor->GrayLevel[0]], " In[n]:=1+3+2*5. ", StyleBox["It labels the corresponding output", FontColor->GrayLevel[0]], " Out[n]=14. ", StyleBox["Labels are added automatically and they reflect the order in which \ the input is evaluated by the Kernel. By default, input/output pairs are \ grouped using rectangular cell brackets displayed in the right margin.", FontColor->GrayLevel[0]] }], "Subsection", CellDingbat->"\[GrayCircle]", CellChangeTimes->{{3.618740202225255*^9, 3.618740227383449*^9}, { 3.618740343085431*^9, 3.6187403810171413`*^9}, {3.618740413058382*^9, 3.6187404140873632`*^9}, 3.6187412101682987`*^9, {3.618741829986679*^9, 3.6187418609103317`*^9}, {3.6188789135795937`*^9, 3.618878928847932*^9}, 3.682982550132917*^9, {3.682983018244062*^9, 3.682983021322957*^9}, { 3.6942308468271103`*^9, 3.694230851738063*^9}}, TextJustification->1., FontSize->24], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["All results are stored and you can use them in any following \ calculations as long as you do not quit ", FontColor->GrayLevel[0]], StyleBox["Mathematica", FontSlant->"Italic", FontColor->GrayLevel[0]], StyleBox[" (more precisely the kernel). The percent sign % can be used to \ refer to the output of the last evaluation that ", FontColor->GrayLevel[0]], StyleBox["Mathematica", FontSlant->"Italic", FontColor->GrayLevel[0]], StyleBox[" performed. ", FontColor->GrayLevel[0]] }], "Subsection", CellDingbat->"\[GrayCircle]", CellChangeTimes->{{3.618740202225255*^9, 3.618740227383449*^9}, { 3.618740343085431*^9, 3.6187403810171413`*^9}, {3.618740413058382*^9, 3.6187404140873632`*^9}, 3.6187412101682987`*^9, {3.618741829986679*^9, 3.6187418609103317`*^9}, {3.6188789135795937`*^9, 3.618878928847932*^9}, 3.682982550132917*^9, {3.682983018244062*^9, 3.682983021322957*^9}, { 3.6942308468271103`*^9, 3.6942308790614443`*^9}, {3.694230920216687*^9, 3.694230928095543*^9}, {3.694232258120469*^9, 3.69423226607775*^9}}, TextJustification->1., FontSize->24], Cell[BoxData[ RowBox[{"%", " ", "5"}]], "Input", CellChangeTimes->{{3.694232298025219*^9, 3.694232310766261*^9}}, FontSize->24, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ RowBox[{ RowBox[{"In", "[", "1", "]"}], "+", "6"}]], "Input", CellChangeTimes->{{3.694232281756473*^9, 3.694232285325995*^9}, { 3.69423234063975*^9, 3.6942323412303753`*^9}, {3.694232378816033*^9, 3.694232385982606*^9}}, FontSize->24, Background->RGBColor[0.87, 0.94, 1]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Input Expressions", "Section", CellChangeTimes->{{3.6829830633994017`*^9, 3.6829830643184958`*^9}, { 3.682983312032523*^9, 3.682983337596407*^9}}, FontSize->36], Cell[CellGroupData[{ Cell[TextData[StyleBox["You can also use variables or put several commands, \ separated by semicolons, on one line. A semicolon also has the effect of \ suppressing the corresponding output. ", FontColor->GrayLevel[0]]], "Subsubsection", CellChangeTimes->{{3.649639059505075*^9, 3.6496390683698053`*^9}, { 3.649639192147406*^9, 3.649639196578643*^9}, {3.649639365906769*^9, 3.6496393711365147`*^9}, 3.694231015824638*^9}, TextJustification->1., FontSize->24], Cell[BoxData[ RowBox[{ RowBox[{"x", "=", "5"}], ";", " ", RowBox[{"y", "=", "27"}], ";", " ", RowBox[{"y", " ", "+", SuperscriptBox["x", "3"]}]}]], "Input", CellChangeTimes->{{3.649639026792486*^9, 3.649639036806952*^9}, { 3.649639401685504*^9, 3.649639433368297*^9}}, FontSize->24, Background->RGBColor[0.87, 0.94, 1]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["We can also write each command on a separate line \ (enter/return) within the same cell. ", FontColor->GrayLevel[0]]], "Subsubsection", CellChangeTimes->{{3.649639301225059*^9, 3.6496393073837013`*^9}, { 3.64963975788011*^9, 3.6496398833319073`*^9}}, FontSize->24], Cell[BoxData[{ RowBox[{"x", "=", "5"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", "27"}], ";"}], "\[IndentingNewLine]", RowBox[{"y", " ", "+", SuperscriptBox["x", "3"]}]}], "Input", CellChangeTimes->{{3.649639319360642*^9, 3.6496393271217413`*^9}, 3.649639891695469*^9}, FontSize->24, Background->RGBColor[0.87, 0.94, 1]] }, Open ]], Cell[TextData[{ StyleBox["Writing several commands not separated by semicolons on the same \ line can lead to different results.", FontColor->GrayLevel[0]], " ", StyleBox["By default, a space between two expressions is interpreted as \ multiplication! Try writing something like", FontColor->GrayLevel[0]], " x=5 27+x^3! ", StyleBox["What do you get?", FontColor->GrayLevel[0]] }], "Subsubsection", CellChangeTimes->{{3.649639478186389*^9, 3.649639611745427*^9}, { 3.649639643332754*^9, 3.649639673702097*^9}, {3.649639708748794*^9, 3.6496397158760233`*^9}}, FontSize->24], Cell[CellGroupData[{ Cell[TextData[{ "Moreover, Mathematica is case sensitive", StyleBox["!", "Title"] }], "Subsubsection", CellChangeTimes->{{3.694232480174864*^9, 3.694232484021768*^9}}, FontSize->24], Cell[BoxData[ RowBox[{"X", "+", "x"}]], "Input", FontSize->24, Background->RGBColor[0.87, 0.94, 1]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Using Palettes", "Section", CellChangeTimes->{{3.618750342744369*^9, 3.618750350445649*^9}, { 3.6187509379212027`*^9, 3.618750938630034*^9}}, FontSize->36], Cell[CellGroupData[{ Cell[TextData[StyleBox["Here is one way to enter a particular expression.", FontColor->GrayLevel[0]]], "Subsubsection", CellChangeTimes->{3.61875072091193*^9}, FontSize->24], Cell[BoxData[ RowBox[{ RowBox[{"2", "^", "10"}], "+", RowBox[{"1", "/", "2"}], "+", RowBox[{"Sqrt", "[", "2", "]"}]}]], "Input", CellChangeTimes->{{3.618750728650585*^9, 3.618750787989233*^9}}, FontSize->24, Background->RGBColor[0.87, 0.94, 1]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["We can use the Palettes to typeset various basic commands and \ text. ", FontColor->GrayLevel[0]], "\n", StyleBox["Select", FontColor->GrayLevel[0]], " Palettes\[RightArrow]Basic Math Assistant, or \ Palettes\[RightArrow]Classroom Assistant. ", StyleBox["We can then write expressions like square roots", FontColor->GrayLevel[0]], " ", Cell[BoxData[ FormBox[ RadicalBox["\[SelectionPlaceholder]", "\[Placeholder]"], TraditionalForm]]], " , ", StyleBox["integrals", FontColor->GrayLevel[0]], " ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "\[Placeholder]", "\[Placeholder]"], RowBox[{"\[Placeholder]", RowBox[{"\[DifferentialD]", "\[Placeholder]"}]}]}], TraditionalForm]]], " ", StyleBox["and many others, by simply using the predefined templates from the \ Palettes. The same mathematical expression from above can be written more \ elegantly as follows:", FontColor->GrayLevel[0]] }], "Subsubsection", CellChangeTimes->{{3.618750482376504*^9, 3.618750513198944*^9}, { 3.618750857333055*^9, 3.618750918002763*^9}, {3.61875096022371*^9, 3.618751048268523*^9}, {3.618879806844036*^9, 3.618879906095848*^9}, { 3.694231037644557*^9, 3.694231055422761*^9}, {3.694231087116345*^9, 3.6942310888832483`*^9}}, TextJustification->1., FontSize->24], Cell[BoxData[ RowBox[{ SuperscriptBox["2", "10"], "+", FractionBox["1", "2"], "+", SqrtBox["2"]}]], "Input", CellChangeTimes->{{3.618750379231801*^9, 3.618750454706806*^9}, { 3.6187505242089367`*^9, 3.6187505311138783`*^9}, {3.618750561608885*^9, 3.618750578581786*^9}, 3.618750775543827*^9}, Background->RGBColor[0.87, 0.94, 1]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Symbolic versus Numeric Computations", "Section", CellChangeTimes->{{3.649641040790502*^9, 3.649641078357699*^9}}, FontSize->36], Cell[BoxData[ RowBox[{"Sin", "[", "2", "]"}]], "Input", CellChangeTimes->{{3.6500778947409286`*^9, 3.650077894907901*^9}}, FontSize->18, Background->RGBColor[0.87, 0.94, 1]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["If you type in Sin[2]", FontColor->GrayLevel[0]], StyleBox[", Mathematica", FontSlant->"Italic", FontColor->GrayLevel[0]], StyleBox[" just returns your input unevaluated. The reason is that we have \ specified an exact argument and ", FontColor->GrayLevel[0]], StyleBox["Mathematica", FontSlant->"Italic", FontColor->GrayLevel[0]], StyleBox[" tries to find an exact solution in this case. Since there is no \ simpler exact expression for our input, ", FontColor->GrayLevel[0]], StyleBox["Mathematica", FontSlant->"Italic", FontColor->GrayLevel[0]], StyleBox[" leaves it as it is. You can tell ", FontColor->GrayLevel[0]], StyleBox["Mathematica", FontSlant->"Italic", FontColor->GrayLevel[0]], StyleBox[" that the input is not an exact number by adding a decimal point. \ Alternatively you can also use the", FontColor->GrayLevel[0]], " ", StyleBox["N[..]", "Input", FontSize->36], " ", StyleBox["command to get a numeric answer. In addition, this allows to give \ the number of digits you want as an optional argument.", FontColor->GrayLevel[0]] }], "Subsubsection", CellChangeTimes->{{3.621580242935505*^9, 3.621580247358102*^9}, { 3.621583400351611*^9, 3.62158343523912*^9}, {3.6500778484192667`*^9, 3.6500778559057417`*^9}, {3.682984436388856*^9, 3.6829844488441153`*^9}, 3.6942326070977707`*^9}, TextJustification->1., FontSize->24], Cell[BoxData[ RowBox[{"Sin", "[", "2.", "]"}]], "Input", CellChangeTimes->{{3.6500778915528717`*^9, 3.650077891715744*^9}}, FontSize->18, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ RowBox[{"N", "[", RowBox[{ RowBox[{"Sin", "[", "2", "]"}], ",", "100"}], "]"}]], "Input", CellChangeTimes->{{3.650074587714764*^9, 3.650074595347712*^9}}, FontSize->18, Background->RGBColor[0.87, 0.94, 1]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Notebooks as Documents", "Section", CellChangeTimes->{{3.618742045280501*^9, 3.618742050908697*^9}}, FontSize->36], Cell[TextData[{ StyleBox["Mathematica notebooks are structured interactive documents that \ are organized into a sequence of cells. Each cell may contain text, graphics, \ sounds or ", FontColor->GrayLevel[0]], StyleBox["Mathematica", FontSlant->"Italic", FontColor->GrayLevel[0]], StyleBox[" expressions in any combination. The extent of each cell is \ indicated by a bracket on the right. ", FontColor->GrayLevel[0]] }], "Subsubsection", CellChangeTimes->{{3.618742098548983*^9, 3.618742161372017*^9}, { 3.6187422219708347`*^9, 3.61874222289437*^9}, {3.6187429110380373`*^9, 3.618742911859486*^9}, {3.618743138666277*^9, 3.618743164243826*^9}, 3.618743219841177*^9, {3.618743676509096*^9, 3.618743687108534*^9}, { 3.618743800376156*^9, 3.618743801151932*^9}}, TextJustification->1., FontSize->24], Cell[TextData[{ StyleBox["Particularly in larger notebooks, it is common to have chapters, \ sections and so on, each represented by groups of cells. Having a structured \ document makes it easier later one to convert your notebook into a slide \ presentation. The various kinds of cells available are listed in", FontColor->GrayLevel[0]], " Format->Style. ", StyleBox["The grouping of cells in a notebook is indicated by nested \ brackets on the right.", FontColor->GrayLevel[0]], " Font, Color, Spacing ", StyleBox["and other properties of the appearance of cells can also be \ changed from", FontColor->GrayLevel[0]], " Format. " }], "Subsubsection", CellChangeTimes->{ 3.6187432158044243`*^9, {3.6187434618703823`*^9, 3.6187435019315434`*^9}, { 3.618743717690997*^9, 3.6187437954318943`*^9}, {3.6187464891721067`*^9, 3.618746513019006*^9}, {3.618878983429843*^9, 3.618879015404583*^9}, { 3.6942312448288403`*^9, 3.694231247956436*^9}}, TextJustification->1., FontSize->24], Cell[CellGroupData[{ Cell[TextData[StyleBox["Example of a Section", FontWeight->"Bold", FontColor->GrayLevel[0]]], "Subsection", CellChangeTimes->{{3.6187423607295847`*^9, 3.6187423691773653`*^9}, { 3.6187424059840612`*^9, 3.618742407335586*^9}, {3.6187430421185904`*^9, 3.618743060125326*^9}, {3.618743835865273*^9, 3.618743843061823*^9}}], Cell["\<\ Subsection 1 (click Alt-Return to create below another cell of the same type)\ \ \>", "Subsubsection", CellChangeTimes->{{3.618742510115769*^9, 3.6187425196992283`*^9}, { 3.618747824589962*^9, 3.618747894128749*^9}}], Cell[CellGroupData[{ Cell["Subsection II", "Subsubsection", CellChangeTimes->{{3.618747916463628*^9, 3.618747924063381*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ "This", " ", "subsection", " ", "has", " ", "a", " ", "lot", " ", "of", " ", "text", " ", "and", " ", "some", " ", "numbered", " ", RowBox[{"lists", ".", " ", "The"}], " ", "text", " ", "is", " ", "blue", " ", "because", " ", "this", " ", "cell", " ", "has", " ", "not", " ", "been", " ", "properly", " ", "formated", " ", "to", " ", "text"}], ",", " ", RowBox[{ "so", " ", "Mathematica", " ", "sees", " ", "it", " ", "as", " ", "some", " ", "sort", " ", "of", " ", "long", " ", RowBox[{"command", ".", " ", "As"}], " ", "we", " ", "continue", " ", "to", " ", "type", " ", "in"}], ",", " ", RowBox[{ RowBox[{ "Mathematica", " ", "will", " ", "suggest", " ", "that", " ", "we", " ", "convert", " ", "the", " ", "cell", " ", "to", " ", "text", " ", "or", " ", "to", " ", "free"}], "-", RowBox[{"form", " ", "linguistic", " ", RowBox[{"input", "."}]}]}]}]], "Input", CellChangeTimes->{{3.6187428248462152`*^9, 3.618742854038851*^9}, 3.6187435455253277`*^9, {3.618879028375862*^9, 3.618879148184031*^9}, { 3.618879182249654*^9, 3.6188791842145987`*^9}}], Cell[CellGroupData[{ Cell["Numbered list", "ItemNumbered", CellChangeTimes->{{3.618742673623459*^9, 3.618742685009119*^9}}], Cell[CellGroupData[{ Cell["And a sublist", "SubitemNumbered", CellChangeTimes->{{3.61874271918122*^9, 3.618742722530242*^9}, { 3.618743322394803*^9, 3.61874332240233*^9}}], Cell[".....", "SubitemNumbered", CellChangeTimes->{{3.61874271918122*^9, 3.618742722530242*^9}, { 3.618743322394803*^9, 3.618743328562625*^9}}] }, Open ]], Cell[TextData[{ "The first list ", StyleBox["continues", FontSlant->"Italic"], " here" }], "ItemNumbered", CellChangeTimes->{{3.618742673623459*^9, 3.618742691012189*^9}, { 3.6187433034133577`*^9, 3.618743312579105*^9}}] }, Open ]] }, Open ]], Cell["Subsection III", "Subsubsection", CellChangeTimes->{{3.618742536418867*^9, 3.618742544146089*^9}, { 3.618747898040533*^9, 3.61874793102322*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Notebook Style", "Section", CellChangeTimes->{{3.618746664876773*^9, 3.6187466731222477`*^9}}, FontSize->36], Cell[TextData[{ StyleBox["To change the style of a cell", FontWeight->"Bold"], ", ", StyleBox["click the cell bracket. The bracket is higlighted. Select a style \ from", FontColor->GrayLevel[0]], " Format\[RightArrow]Style. ", StyleBox["The cell will immediately reflect the change.", FontColor->GrayLevel[0]] }], "Subsubsection", CellChangeTimes->{{3.618746684017847*^9, 3.618746715416627*^9}, { 3.6187469280102863`*^9, 3.618746973134178*^9}, {3.694231383598197*^9, 3.694231391516611*^9}}, TextJustification->1., FontSize->24], Cell[TextData[{ StyleBox["To change the overall look of a notebook", FontWeight->"Bold"], ", ", StyleBox["choose", FontColor->GrayLevel[0]], " Format\[RightArrow]Stylesheet. ", StyleBox["Select a stylesheet from the menu. All cells in the notebook will \ change appearance, based on the definitions in the new stylesheet.", FontColor->GrayLevel[0]] }], "Subsubsection", CellChangeTimes->{{3.618746730841958*^9, 3.6187467425273657`*^9}, { 3.618746776399579*^9, 3.618746787469859*^9}, {3.6942314007183037`*^9, 3.6942314053169518`*^9}}, TextJustification->1., FontSize->24] }, Open ]], Cell[CellGroupData[{ Cell["Free-Form Input", "Section", CellChangeTimes->{{3.618741534307109*^9, 3.6187415396824636`*^9}, { 3.618879477826282*^9, 3.618879478569005*^9}}], Cell["\<\ Free-Form Input allows users to enter plain English and get immediate \ results, as well as the Mathematica correct input for further exploration\ \[LongDash]without the need for syntax.\ \>", "Subsubsection", CellChangeTimes->{{3.618747543048407*^9, 3.618747561198271*^9}, { 3.618747649050785*^9, 3.618747653450598*^9}, {3.61887948843285*^9, 3.618879490568699*^9}}, FontSize->24, FontColor->GrayLevel[0]], Cell["\<\ In the beginning, you can learn Mathematica syntax by entering a query in \ plain English and then viewing the free-form queries translated in precise \ Mathematica commands.\ \>", "Subsubsection", CellChangeTimes->{{3.618747681866749*^9, 3.618747693889078*^9}, { 3.6188795040722523`*^9, 3.6188795247832413`*^9}}, FontSize->24, FontColor->GrayLevel[0]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Click on the", FontColor->GrayLevel[0]], " Cell Insertion Assistant (+ Sign at the left) ", StyleBox["and choose", FontColor->GrayLevel[0]], " Free-Form Input. ", StyleBox["Alternatively, click", FontColor->GrayLevel[0]], " Insert->Inline Free Form Input. ", StyleBox["An orange square with an equal sign will appear in the cell. The \ cursor will be blinking to the right of the orange square. ", FontColor->GrayLevel[0]] }], "Subsubsection", CellChangeTimes->{{3.6187480010284*^9, 3.618748049162429*^9}, { 3.6187481331689663`*^9, 3.6187482052842073`*^9}, {3.618748328902816*^9, 3.618748331519353*^9}, {3.618879556966127*^9, 3.61887956124576*^9}, { 3.618879623581336*^9, 3.6188796585938168`*^9}, 3.6942325700960627`*^9}, TextJustification->1., FontSize->24], Cell["\<\ Use Plain English after the equal sign to describe the command that you would \ like to do, say \"integral of cos x\"\ \>", "WolframAlphaShort", CellChangeTimes->{{3.6187484213736687`*^9, 3.61874845420991*^9}, { 3.6188796656254787`*^9, 3.618879683416584*^9}, {3.61887973608873*^9, 3.618879752749818*^9}}, FontSize->16, Background->RGBColor[0.87, 0.94, 1]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["After clicking", FontColor->GrayLevel[0]], " Shift+Enter, ", StyleBox["we will see the command that Mathematica translated our free-form \ input into. You need to have an active Internet Connection to use Free-Form \ Input. Use the", FontColor->GrayLevel[0]], " + Sign ", StyleBox["to the right of the Free-Form Input to show all results.", FontColor->GrayLevel[0]] }], "Subsubsection", CellChangeTimes->{{3.6187488243570023`*^9, 3.618748837740911*^9}, { 3.6187488880244207`*^9, 3.618748891776361*^9}, {3.618748981503233*^9, 3.618749000459668*^9}, {3.618749038372551*^9, 3.618749066265464*^9}}, FontSize->24], Cell[CellGroupData[{ Cell[BoxData[ NamespaceBox["WolframAlphaQueryParseResults", DynamicModuleBox[{Typeset`q$$ = "integral of cos x", Typeset`newq$$ = "integral of cos x", Typeset`chosen$$ = "Integrate[Cos[x], x]", Typeset`open$$ = False}, PaneSelectorBox[{False-> DynamicModuleBox[{WolframAlphaClient`Private`show$$ = False, WolframAlphaClient`Private`assumptionsQ$$ = False}, TagBox[ FrameBox[ TagBox[GridBox[{ { InputFieldBox[Dynamic[Typeset`newq$$], String, Appearance->None, BaseStyle->{"CalculateInput"}, ContinuousAction->True, Enabled->True, FieldSize->{{1, 40}, {1, DirectedInfinity[1]}}, TrapSelection->False], ItemBox[ ButtonBox[ PaneSelectorBox[{True-> TagBox[ TooltipBox[ DynamicBox[FEPrivate`FrontEndResource[ "WABitmaps", "OrangeSquarePlus"], ImageSizeCache->{10., {3., 8.}}], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"]], "Tooltip"]& ], False-> TagBox[ TooltipBox[ DynamicBox[FEPrivate`FrontEndResource[ "WABitmaps", "GraySquarePlus"], ImageSizeCache->{10., {3., 8.}}], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"]], "Tooltip"]& ]}, Dynamic[WolframAlphaClient`Private`show$$], ImageSize->All], Appearance->None, ButtonFunction:>(Quiet[ WolframAlpha[]]; If[ Or[ CurrentValue["OptionKey"], CurrentValue["AltKey"]], SelectionMove[ ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; NotebookWrite[ ButtonNotebook[], Cell[ Typeset`newq$$, "WolframAlphaShort", FormatType -> "TextForm"], All], Typeset`open$$ = True; WolframAlphaClient`Private`extrudeFromFastParse[ "integral of cos x", Defer[ Integrate[ Cos[Global`x], Global`x]], "Fast parse"]; Typeset`open$$ = False]), Evaluator->Automatic, Method->"Queued"], Alignment->{Right, Top}, StripOnInput->False]}, { PaneBox[ TagBox[ TooltipBox[ ButtonBox[ PaneSelectorBox[{False-> StyleBox[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"Cos", "[", "x", "]"}], ",", " ", "x"}], "]"}], StripOnInput->False, NumberMarks->False], True-> StyleBox[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"Cos", "[", "x", "]"}], ",", " ", "x"}], "]"}], StripOnInput->False, ShowSyntaxStyles->False, NumberMarks->False, FontColor->RGBColor[1, 0.5, 0]]}, Dynamic[ CurrentValue["MouseOver"]], BaseStyle->{ShowStringCharacters -> True}, FrameMargins->0, ImageSize->Automatic], Alignment->Left, Appearance->None, BaseStyle->{}, ButtonFunction:>(SelectionMove[ ButtonNotebook[], All, ButtonCell]; NotebookWrite[ ButtonNotebook[], Cell[ BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"Cos", "[", "x", "]"}], ",", " ", "x"}], "]"}]], "Input"], All]; SelectionMove[ ButtonNotebook[], After, CellContents]), Evaluator->Automatic, ImageSize->Automatic, Method->"Preemptive"], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "RemoveResults"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource["WAStrings", "RemoveResults"]], "Tooltip"]& ], AppearanceElements->{}, BaseStyle->{ShowStringCharacters -> True, ScriptLevel -> 0}, ImageSize->{Automatic, {1, 100}}, Scrollbars->{False, Automatic}], "\[SpanFromLeft]"} }, AutoDelete->False, BaselinePosition->{1, 1}, FrameStyle->GrayLevel[0.85], GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxDividers->{ "Columns" -> {{False}}, "Rows" -> {False, {True}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], Alignment->Top, Background->Dynamic[ FEPrivate`If[ FEPrivate`And[ FEPrivate`SameQ[ FEPrivate`Head[Typeset`newq$$], String], FEPrivate`UnsameQ[Typeset`q$$, Typeset`newq$$]], RGBColor[1., 0.975, 0.95], GrayLevel[1]]], BaselinePosition->Baseline, FrameStyle->GrayLevel[0.85], ImageSize->Automatic, RoundingRadius->5, StripOnInput->False], EventHandlerTag[{ "MouseEntered" :> FEPrivate`Set[WolframAlphaClient`Private`show$$, True], "MouseExited" :> FEPrivate`Set[WolframAlphaClient`Private`show$$, False], PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues:>{}], True-> TagBox[GridBox[{ { DynamicModuleBox[{WolframAlphaClient`Private`show$$ = False, WolframAlphaClient`Private`assumptionsQ$$ = False}, TagBox[ FrameBox[ TagBox[GridBox[{ { InputFieldBox[Dynamic[Typeset`newq$$], String, Appearance->None, BaseStyle->{"CalculateInput"}, ContinuousAction->True, Enabled->True, FieldSize->{{1, 40}, {1, DirectedInfinity[1]}}, TrapSelection->False], ItemBox[ ButtonBox[ PaneSelectorBox[{True-> TagBox[ TooltipBox[ DynamicBox[FEPrivate`FrontEndResource[ "WABitmaps", "OrangeSquarePlus"]], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource[ "WAStrings", "ShowAllResults"]], "Tooltip"]& ], False-> TagBox[ TooltipBox[ DynamicBox[FEPrivate`FrontEndResource[ "WABitmaps", "GraySquarePlus"]], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource[ "WAStrings", "ShowAllResults"]], "Tooltip"]& ]}, Dynamic[ WolframAlphaClient`Private`show$$], ImageSize->All], Appearance->None, ButtonFunction:>(Quiet[ WolframAlpha[]]; If[ Or[ CurrentValue["OptionKey"], CurrentValue["AltKey"]], SelectionMove[ ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; NotebookWrite[ ButtonNotebook[], Cell[ Typeset`newq$$, "WolframAlphaShort", FormatType -> "TextForm"], All], Typeset`open$$ = True; WolframAlphaClient`Private`extrudeFromFastParse[ "integral of cos x", Defer[ Integrate[ Cos[Global`x], Global`x]], "Fast parse"]; Typeset`open$$ = False]), Evaluator->Automatic, Method->"Queued"], Alignment->{Right, Top}, StripOnInput->False]}, { PaneBox[ TagBox[ TooltipBox[ ButtonBox[ PaneSelectorBox[{False-> StyleBox[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"Cos", "[", "x", "]"}], ",", " ", "x"}], "]"}], StripOnInput->False, NumberMarks->False], True-> StyleBox[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"Cos", "[", "x", "]"}], ",", " ", "x"}], "]"}], StripOnInput->False, ShowSyntaxStyles->False, NumberMarks->False, FontColor->RGBColor[1, 0.5, 0]]}, Dynamic[ CurrentValue["MouseOver"]], BaseStyle->{ShowStringCharacters -> True}, FrameMargins->0, ImageSize->Automatic], Alignment->Left, Appearance->None, BaseStyle->{}, ButtonFunction:>(SelectionMove[ ButtonNotebook[], All, ButtonCell]; NotebookWrite[ ButtonNotebook[], Cell[ BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"Cos", "[", "x", "]"}], ",", " ", "x"}], "]"}]], "Input"], All]; SelectionMove[ ButtonNotebook[], After, CellContents]), Evaluator->Automatic, ImageSize->Automatic, Method->"Preemptive"], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "RemoveResults"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource["WAStrings", "RemoveResults"]], "Tooltip"]& ], AppearanceElements->{}, BaseStyle->{ShowStringCharacters -> True, ScriptLevel -> 0}, ImageSize->{Automatic, {1, 100}}, Scrollbars->{False, Automatic}], "\[SpanFromLeft]"} }, AutoDelete->False, BaselinePosition->{1, 1}, FrameStyle->GrayLevel[0.85], GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxDividers->{ "Columns" -> {{False}}, "Rows" -> {False, {True}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], Alignment->Top, Background->Dynamic[ FEPrivate`If[ FEPrivate`And[ FEPrivate`SameQ[ FEPrivate`Head[Typeset`newq$$], String], FEPrivate`UnsameQ[Typeset`q$$, Typeset`newq$$]], RGBColor[1., 0.975, 0.95], GrayLevel[1]]], BaselinePosition->Baseline, FrameStyle->GrayLevel[0.85], ImageSize->Automatic, RoundingRadius->5, StripOnInput->False], EventHandlerTag[{ "MouseEntered" :> FEPrivate`Set[WolframAlphaClient`Private`show$$, True], "MouseExited" :> FEPrivate`Set[WolframAlphaClient`Private`show$$, False], PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues:>{}]}, { InterpretationBox[ StyleBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEExpressions", "NecklaceAnimator"][20]], AnimatorBoxOptions->{ImageSize->20}], Animator[Appearance -> "Necklace", ImageSize -> 20], BaseStyle->{"Deploy"}]} }, BaselinePosition->{1, 1}, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]}, Dynamic[ TrueQ[Typeset`open$$]], BaseStyle->{Deployed -> True}, ImageSize->Automatic], DynamicModuleValues:>{}], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]], "WolframAlphaShortInput", FontSize->14, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ RowBox[{"Sin", "[", "x", "]"}]], "Output", CellChangeTimes->{3.618748658295409*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[TextData[{ StyleBox["Getting Started with ", FontSize->48], StyleBox["Mathematica", FontSize->48, FontSlant->"Italic"], StyleBox["\n\tFunctions\n\tConditional Statements(If, Switch)\n\tLoops (For, \ While, Do)\n\tControl structures (Break, Return)\n\tObjects (Graphs, \ Matrices, ...)", FontSize->30, FontSlant->"Italic", FontColor->GrayLevel[0]] }], "Section", CellChangeTimes->{{3.618738912487796*^9, 3.6187389299386044`*^9}, 3.6502262693656816`*^9, {3.682984948282338*^9, 3.682985054356*^9}, { 3.682985550083158*^9, 3.682985550785174*^9}, {3.683097076456381*^9, 3.6830970953354816`*^9}}], Cell[CellGroupData[{ Cell["Functions", "Section", FontSize->36], Cell[TextData[{ StyleBox["Mathematica", FontSize->18, FontSlant->"Italic"], StyleBox[" has a large amount of functions already built in. The arguments \ of a function are put in between square brackets and separated by commas. \ Some basic functions are given below. Note that all built in functions and \ variables start with capital letters. To avoid potential conflicts it is a \ good idea to start your own functions and variables with lower case letters.", FontSize->18] }], "Text", CellChangeTimes->{{3.6215799409954243`*^9, 3.6215799498208237`*^9}}, FontSize->24], Cell["\<\ Sqrt[x] square root (Sqrt[x]) Exp[x] exponential (e^x) Log[x] natural logarithm (Subscript[log, e] x) Log[b, x] logarithm to base b (Subscript[log, b] x) Sin[x], Cos[x], Tan[x] trigonometric functions ArcSin[x], ArcTan[x] inverse trigonometric functions \ Abs[x] absolute value Round[x] closest integer to x \ \>", "Text", CellChangeTimes->{{3.6215797813073263`*^9, 3.6215798164369173`*^9}, { 3.621579867752907*^9, 3.621579920114786*^9}, {3.621580034963277*^9, 3.621580197674762*^9}, {3.682985639772854*^9, 3.682985771510921*^9}, { 3.682998864867455*^9, 3.6829988992268867`*^9}}, FontSize->24], Cell[BoxData[ RowBox[{"Round", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"Abs", "[", RowBox[{"-", "5"}], "]"}], "]"}], "+", RowBox[{"ArcSin", "[", RowBox[{"1", "/", "2"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.650078332584429*^9, 3.650078358957191*^9}, { 3.650079947288245*^9, 3.650079974511591*^9}, {3.682985789240891*^9, 3.682985810968217*^9}, {3.682985848090437*^9, 3.68298585556103*^9}}, FontSize->24, Background->RGBColor[0.87, 0.94, 1]] }, Open ]], Cell[CellGroupData[{ Cell["User defined functions", "Section", CellChangeTimes->{{3.650079899810685*^9, 3.6500799167444687`*^9}}, FontSize->36], Cell[CellGroupData[{ Cell["We can define our own functions as follows:", "Subsubsection", CellChangeTimes->{{3.621584593473613*^9, 3.62158460482414*^9}, { 3.650080001560597*^9, 3.6500800035757236`*^9}}, FontSize->24], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ SuperscriptBox["x", "2"], "+", RowBox[{"Sin", "[", "x", "]"}]}]}]], "Input", FontSize->24, Background->RGBColor[0.87, 0.94, 1]], Cell[TextData[{ "In this expression the underscore represents a pattern. A single underscore \ will match a single expression (argument) and ", StyleBox["x", "Input", FontSize->36], StyleBox[" ", "Input"], "is the name of the pattern (it can be used to refer to the matched \ expression on the right hand side). The colon tells ", StyleBox["Mathematica", FontSlant->"Italic"], " not to evaluate the right hand side. It will only be evaluated when you \ invoke the function. This is why you get no output. Now you can use your \ function:" }], "Text", TextJustification->1., FontSize->24], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "angle", "]"}], "+", "Pi"}]], "Input", CellChangeTimes->{{3.6215805170645037`*^9, 3.621580583696731*^9}}, FontSize->24, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ RowBox[{"f", "[", RowBox[{"2", "Pi"}], "]"}]], "Input", CellChangeTimes->{{3.650079412778453*^9, 3.6500794165538883`*^9}}, FontSize->24, Background->RGBColor[0.87, 0.94, 1]], Cell["\<\ Try to assign some value to x, then compute f[2Pi]. What do you notice? Does \ f use the global or the local values of x when computing f[2Pi]?\ \>", "Text", CellChangeTimes->{{3.649646638131113*^9, 3.649646697210732*^9}, { 3.6496468180871058`*^9, 3.649646871198804*^9}, {3.6501079434264193`*^9, 3.650107979546966*^9}}, FontSize->24], Cell[BoxData[{ RowBox[{ RowBox[{"x", "=", "5"}], ";"}], "\[IndentingNewLine]", RowBox[{"f", "[", RowBox[{"2", "Pi"}], "]"}]}], "Input", CellChangeTimes->{{3.649646701167595*^9, 3.649646773958033*^9}, { 3.6501079859246073`*^9, 3.650108012036789*^9}}, FontSize->24, Background->RGBColor[0.87, 0.94, 1]], Cell[TextData[{ StyleBox["Warning:", FontWeight->"Bold", FontColor->RGBColor[1, 0, 0]], " Do not omit the colon when defining functions! " }], "Text", CellDingbat->"\[DiamondSuit]", CellChangeTimes->{{3.649646168330991*^9, 3.649646208063715*^9}, 3.649646339601943*^9}, FontSize->24], Cell[BoxData[{ RowBox[{ RowBox[{"x", "=", "5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "[", "x_", "]"}], "=", RowBox[{ SuperscriptBox["x", "2"], "+", RowBox[{"Sin", "[", "x", "]"}]}]}], "\[IndentingNewLine]", RowBox[{"g", "[", RowBox[{"2", "Pi"}], "]"}]}], "Input", CellChangeTimes->{{3.621580681159017*^9, 3.621580708797544*^9}, { 3.683097189555196*^9, 3.683097215944351*^9}}, FontSize->24, Background->RGBColor[0.87, 0.94, 1]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Can you explain this result? You can look at the definition of a function by \ using a question mark:\ \>", "Subsubsection", FontSize->24], Cell[BoxData[ RowBox[{"?", "f"}]], "Input", FontSize->24, Background->RGBColor[0.87, 0.94, 1]], Cell[BoxData[ RowBox[{"?", "g"}]], "Input", FontSize->24, Background->RGBColor[0.87, 0.94, 1]] }, Open ]] }, Open ]] }, WindowSize->{1110, 699}, WindowMargins->{{Automatic, 78}, {Automatic, 0}}, FrontEndVersion->"11.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (September \ 21, 2016)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 153, 3, 73, "Section"], Cell[736, 27, 461, 9, 109, "Subsection"], Cell[1200, 38, 440, 9, 41, "Subsection"], Cell[1643, 49, 358, 9, 41, "Subsection"] }, Open ]], Cell[CellGroupData[{ Cell[2038, 63, 234, 7, 74, "Section"], Cell[CellGroupData[{ Cell[2297, 74, 407, 10, 79, "Subsection"], Cell[2707, 86, 392, 8, 62, "Input"] }, Open ]], Cell[3114, 97, 722, 16, 109, "Subsection"], Cell[3839, 115, 1038, 23, 101, "Subsection"], Cell[CellGroupData[{ Cell[4902, 142, 1124, 25, 101, "Subsection"], Cell[6029, 169, 168, 4, 62, "Input"], Cell[6200, 175, 296, 7, 62, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[6545, 188, 170, 3, 74, "Section"], Cell[CellGroupData[{ Cell[6740, 195, 469, 8, 71, "Subsubsection"], Cell[7212, 205, 338, 9, 62, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[7587, 219, 293, 5, 41, "Subsubsection"], Cell[7883, 226, 346, 9, 139, "Input"] }, Open ]], Cell[8244, 238, 590, 15, 101, "Subsubsection"], Cell[CellGroupData[{ Cell[8859, 257, 185, 5, 58, "Subsubsection"], Cell[9047, 264, 102, 3, 62, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[9198, 273, 165, 3, 74, "Section"], Cell[CellGroupData[{ Cell[9388, 280, 176, 3, 41, "Subsubsection"], Cell[9567, 285, 256, 7, 62, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[9860, 297, 1348, 37, 172, "Subsubsection"], Cell[11211, 336, 347, 8, 65, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[11607, 350, 136, 2, 74, "Section"], Cell[11746, 354, 177, 4, 55, "Input"], Cell[CellGroupData[{ Cell[11948, 362, 1419, 39, 208, "Subsubsection"], Cell[13370, 403, 178, 4, 55, "Input"], Cell[13551, 409, 229, 6, 55, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[13829, 421, 122, 2, 74, "Section"], Cell[13954, 425, 826, 18, 101, "Subsubsection"], Cell[14783, 445, 1005, 22, 155, "Subsubsection"], Cell[CellGroupData[{ Cell[15813, 471, 327, 5, 36, "Subsection"], Cell[16143, 478, 229, 5, 35, "Subsubsection"], Cell[CellGroupData[{ Cell[16397, 487, 104, 1, 29, "Subsubsection"], Cell[16504, 490, 1158, 23, 75, "Input"], Cell[CellGroupData[{ Cell[17687, 517, 103, 1, 30, "ItemNumbered"], Cell[CellGroupData[{ Cell[17815, 522, 153, 2, 24, "SubitemNumbered"], Cell[17971, 526, 146, 2, 24, "SubitemNumbered"] }, Open ]], Cell[18132, 531, 228, 7, 30, "ItemNumbered"] }, Open ]] }, Open ]], Cell[18387, 542, 153, 2, 35, "Subsubsection"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[18589, 550, 116, 2, 74, "Section"], Cell[18708, 554, 546, 15, 71, "Subsubsection"], Cell[19257, 571, 589, 15, 95, "Subsubsection"] }, Open ]], Cell[CellGroupData[{ Cell[19883, 591, 151, 2, 64, "Section"], Cell[20037, 595, 423, 9, 71, "Subsubsection"], Cell[20463, 606, 367, 8, 65, "Subsubsection"], Cell[CellGroupData[{ Cell[20855, 618, 812, 19, 95, "Subsubsection"], Cell[21670, 639, 373, 8, 48, "WolframAlphaShort"] }, Open ]], Cell[CellGroupData[{ Cell[22080, 652, 652, 15, 101, "Subsubsection"], Cell[CellGroupData[{ Cell[22757, 671, 13529, 336, 87, "WolframAlphaShortInput"], Cell[36289, 1009, 99, 2, 32, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[36427, 1016, 622, 16, 273, "Section"], Cell[CellGroupData[{ Cell[37074, 1036, 43, 1, 60, "Section"], Cell[37120, 1039, 583, 13, 107, "Text"], Cell[37706, 1054, 827, 16, 290, "Text"], Cell[38536, 1072, 487, 12, 62, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[39060, 1089, 124, 2, 74, "Section"], Cell[CellGroupData[{ Cell[39209, 1095, 199, 3, 41, "Subsubsection"], Cell[39411, 1100, 211, 7, 62, "Input"], Cell[39625, 1109, 599, 15, 184, "Text"], Cell[40227, 1126, 203, 5, 62, "Input"], Cell[40433, 1133, 194, 5, 62, "Input"], Cell[40630, 1140, 350, 7, 73, "Text"], Cell[40983, 1149, 313, 8, 101, "Input"], Cell[41299, 1159, 296, 9, 42, "Text"], Cell[41598, 1170, 469, 13, 139, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[42104, 1188, 149, 4, 41, "Subsubsection"], Cell[42256, 1194, 97, 3, 62, "Input"], Cell[42356, 1199, 97, 3, 62, "Input"] }, Open ]] }, Open ]] } ] *)