(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 77115, 2745] NotebookOptionsPosition[ 69194, 2512] NotebookOutlinePosition[ 69587, 2529] CellTagsIndexPosition[ 69544, 2526] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[TextData[StyleBox["2301520 Fundamentals of AMCS\nBasic Calculation", FontWeight->"Bold", FontColor->RGBColor[0, 0, 1]]], "Title", CellChangeTimes->{{3.487580745984375*^9, 3.48758075390625*^9}, { 3.520246835828125*^9, 3.520246840984375*^9}, {3.55113397990625*^9, 3.55113398640625*^9}, {3.5831171191512785`*^9, 3.5831171276200285`*^9}, { 3.6199263139165397`*^9, 3.619926324365137*^9}, {3.682812577473008*^9, 3.6828125883600206`*^9}, {3.7408632112319407`*^9, 3.7408632237421675`*^9}}, TextAlignment->Center], Cell["(* adapted from Mathematica Fundamental by Harley Ooi *)", "DisplayText"], Cell[TextData[{ "(*Excerpted from the Tutorial by Wolfram Research*) You normally interact \ with ", StyleBox["Mathematica", FontSlant->"Italic"], " through documents called notebooks. This tutorial is an example of a \ notebook. Notebooks can have many forms. But typically they consist of cells \ that can contain text, calculations, or graphics." }], "Text", FontSize->18], Cell[TextData[{ "Cells are indicated by brackets on the right. This cell is a text cell.", " ", "Input for ", StyleBox["Mathematica", FontSlant->"Italic"], " to evaluate goes in input cells. " }], "Text", FontSize->18], Cell[TextData[{ "To create a new input cell, just click outside an existing cell and start \ typing. When you have finished, press ", StyleBox["\[ShiftKey]\[KeyBar]\[EnterKey].", "KeyStroke"], " ", StyleBox["Mathematica", FontSlant->"Italic"], " evaluates your input and puts the result in an output cell immediately \ underneath." }], "Text", FontSize->18], Cell[TextData[{ "Here are sample calculations. Your cursor can be anywhere in the input cell \ when you press ", StyleBox["\[ShiftKey]\[KeyBar]\[EnterKey]", "KeyStroke"], ". The ", StyleBox["In[", "SR", FontSize->10], StyleBox["n", "SR", FontSize->10, FontSlant->"Italic"], StyleBox["]:=", "SR", FontSize->10], " and ", StyleBox["Out[", "SR", FontSize->10], StyleBox["n", "SR", FontSize->10, FontSlant->"Italic"], StyleBox["]=", "SR", FontSize->10], " labels are added automatically." }], "Text", FontSize->18], Cell[CellGroupData[{ Cell["Section 1. Numerical Calculation", "Section"], Cell[CellGroupData[{ Cell["1.1 Arithmetic", "Subsection", FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ RowBox[{"1.2", " ", "+", " ", "2.3"}]], "Input"], Cell[BoxData[ RowBox[{"2", "+", RowBox[{ RowBox[{"3", "^", "4"}], "*", "5"}]}]], "Input"], Cell[BoxData[ RowBox[{"1", " ", "2", " ", "3", " ", "4", " ", "5"}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["1.2 Exact and Approximate Results", FontColor->RGBColor[0, 0, 1]]], "Subsection"], Cell[BoxData[ RowBox[{"2549", "^", "2006"}]], "Input"], Cell[BoxData[ RowBox[{"N", "[", RowBox[{"2549", "^", "2006"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"1", "/", "2"}], "+", RowBox[{"1", "/", "3"}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"1", "/", "2"}], "+", RowBox[{"1", "/", "3"}]}], " ", "//", "N"}]], "Input"], Cell[BoxData[ RowBox[{"1", "/", "2"}]], "Input"], Cell[BoxData[ RowBox[{"1.", "/", "2"}]], "Input"], Cell[BoxData[ RowBox[{"1", "+", RowBox[{"2.", "/", "3"}]}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["1.3 Some Mathematical Functions", FontColor->RGBColor[0, 0, 1]]], "Subsection"], Cell[TextData[StyleBox["Sqrt[x]\t\t\t\t\tsquare root\nExp[x]\t\t\t\t\t\ exponentia\nLog[x]\t\t\t\t\tnatural logarithm\nLog[b,x]\t\t\t\tlogarithm to \ base b\nSin[x], Cos[x], Tan[x]\t\t\ttrigonometric functions (with arguments \ in radians)\nArcSin[x], ArcCos[x], ArcTan[x]\tinverse trigonometric functions\ \nn!\t\t\t\t\tfactorial\nAbs[x]\t\t\t\t\tabsolute value\nRound[x]\t\t\t\t\ closest integer to x\nMod[n, m]\t\t\t\tn modulo m (remainder on divisiion of \ n by m)\nRandom[]\t\t\t\tpseudorandom number between 0 and 1\nMax[x , y, \ ...], Min[x, y, ...]\t\tmaximum, minimum of x, y, ...", "DisplayText", CellFrame->True]], "DisplayText", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ RowBox[{"Sqrt", "[", "2", "]"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"Sqrt", "[", "2", "]"}], "//", "N"}]], "Input"], Cell[BoxData[ RowBox[{"100", "!"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"100", "!"}], "//", "N"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"Log", "[", "2", "]"}], "//", "N"}]], "Input"], Cell[BoxData[ RowBox[{"Log", "[", RowBox[{"2", ",", "64"}], "]"}]], "Input"], Cell[TextData[{ StyleBox["Pi\t\t\[Pi]\nE\t\t\[ExponentialE]\nDegree\t\t", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ FractionBox["\[Pi]", "180"], TraditionalForm]], FontColor->RGBColor[1, 0, 0]], StyleBox["\nI\t\ti = ", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ SqrtBox[ RowBox[{"-", "1"}]], TraditionalForm]], FontColor->RGBColor[1, 0, 0]], StyleBox["\t\t\nInfinity\t\t\[Infinity]", FontColor->RGBColor[1, 0, 0]] }], "DisplayText"], Cell[BoxData[ RowBox[{"Sin", "[", RowBox[{"Pi", "/", "6"}], "]"}]], "Input", CellChangeTimes->{{3.487580987421875*^9, 3.48758098834375*^9}}], Cell[BoxData[ RowBox[{"Tan", "[", RowBox[{"15", " ", "Degree"}], "]"}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["1.4 Arbitrary\[Hyphen]Precision Calculations", FontColor->RGBColor[0, 0, 1]]], "Subsection"], Cell[BoxData["Pi"], "Input"], Cell[BoxData[ RowBox[{"N", "[", "Pi", "]"}]], "Input"], Cell[BoxData[ RowBox[{"N", "[", RowBox[{"Pi", ",", "1000"}], "]"}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["1.5 Complex Numbers", FontColor->RGBColor[0, 0, 1]]], "Subsection"], Cell[BoxData[ RowBox[{"Sqrt", "[", RowBox[{"-", "1"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"I", "^", "2549"}], "//", "N"}]], "Input"], Cell[TextData[StyleBox["x + I y\t\tthe complex number x + iy\nRe[z]\t\treal \ part\nIm[z]\t\timaginary part\nConjugate[z]\tcomplex conjugate of z\nAbs[z]\t\ \tabsolute value of z\nArg[z]\t\targument of z", FontColor->RGBColor[1, 0, 0]]], "DisplayText"], Cell[BoxData[ RowBox[{"E", "^", RowBox[{"(", RowBox[{"2", "-", RowBox[{"3", "I"}]}], ")"}]}]], "Input"], Cell[BoxData[ RowBox[{"Arg", "[", RowBox[{"E", "^", RowBox[{"(", RowBox[{"2", "-", RowBox[{"3", "I"}]}], ")"}]}], "]"}]], "Input"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Section 2. Building Up Calculations", "Section"], Cell[CellGroupData[{ Cell[TextData[StyleBox["2.1 Using Previous Results", FontColor->RGBColor[0, 0, 1]]], "Subsection"], Cell[TextData[{ StyleBox["%\t\t\tthe last result generated\n%%\t\t\tthe next-to-last result\n\ %%...% (k times)\tthe ", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ SuperscriptBox["k", "th"], TraditionalForm]], FontColor->RGBColor[1, 0, 0]], StyleBox[" previous result\n%n\t\t\tthe result on output line Out[n] (to be \ used with care)", FontColor->RGBColor[1, 0, 0]] }], "DisplayText"], Cell[BoxData[ RowBox[{"2", "^", "3"}]], "Input"], Cell[BoxData[ RowBox[{"%", "+", "7"}]], "Input"], Cell[BoxData[ RowBox[{"%%", "*", "3"}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["2.2 Making Lists of Objects", FontColor->RGBColor[0, 0, 1]]], "Subsection"], Cell[BoxData[ RowBox[{"{", RowBox[{"2", ",", "1", ",", "2", ",", "3"}], "}"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"%", "^", "2"}], "+", "1"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], "-", RowBox[{"{", RowBox[{"1", ",", "4", ",", "9"}], "}"}]}]], "Input"], Cell[BoxData[ RowBox[{"v", "=", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}]}]], "Input"], Cell[BoxData[ RowBox[{"v", "+", FractionBox["1", "v"]}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["2.3 Manipulating Elements of Lists", FontColor->RGBColor[0, 0, 1]]], "Subsection"], Cell[TextData[{ "{a,b,c}\t\t\t\t\ta list\nPart[list, i] or list[[i]]\t\t\tthe ", Cell[BoxData[ FormBox[ RowBox[{ SuperscriptBox["i", "th"], " "}], TraditionalForm]]], "element of list (the first element is list[[1]])\nPart[list, {i,j,...}] or \ list[[{i,j,...}]]\t\ta list of the ", Cell[BoxData[ FormBox[ RowBox[{ FormBox[ RowBox[{ SuperscriptBox["i", "th"], ","}], TraditionalForm], SuperscriptBox["j", "th"]}], TraditionalForm]]], ", ... elements of list\nPart[v,i] = value or v[[i]] = value\t\treset the ", Cell[BoxData[ FormBox[ SuperscriptBox["i", "th"], TraditionalForm]]], "element of a list" }], "DisplayText", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "2", ",", "4", ",", "6"}], "}"}], "[", RowBox[{"[", "2", "]"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "2", ",", "4", ",", "6"}], "}"}], "[", RowBox[{"[", RowBox[{"{", RowBox[{"2", ",", "1", ",", "5"}], "}"}], "]"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"v", "=", RowBox[{"{", RowBox[{"2", ",", "1", ",", "2", ",", "4", ",", "6"}], "}"}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"v", "[", RowBox[{"[", "3", "]"}], "]"}], "=", "15"}]], "Input"], Cell[BoxData["v"], "Input"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Section 3. Algebraic Calculations", "Section"], Cell[CellGroupData[{ Cell["3.1 Transforming Algebraic Expressions", "Subsection", FontColor->RGBColor[0, 0, 1]], Cell[TextData[{ StyleBox["Expand[", "DisplayText", CellFrame->True, FontFamily->"Courier New", FontWeight->"Plain"], StyleBox["expr", "DisplayText", CellFrame->True, FontFamily->"Courier New", FontWeight->"Plain", FontSlant->"Italic"], StyleBox["]", "DisplayText", CellFrame->True, FontFamily->"Courier New", FontWeight->"Plain"], StyleBox["\t\t\tmultiply out products and powers, writing the result as a \ sum of terms\n", "DisplayText", CellFrame->True], StyleBox["Factor[", "DisplayText", CellFrame->True, FontFamily->"Courier New", FontWeight->"Plain"], StyleBox["expr", "DisplayText", CellFrame->True, FontFamily->"Courier New", FontWeight->"Plain", FontSlant->"Italic"], StyleBox["]", "DisplayText", CellFrame->True, FontFamily->"Courier New", FontWeight->"Plain"], StyleBox["\t\t\twrite ", "DisplayText", CellFrame->True], StyleBox["expr", "DisplayText", CellFrame->True, FontSlant->"Italic"], StyleBox[" as a product of minimal factors\n", "DisplayText", CellFrame->True], StyleBox["Together[", "DisplayText", CellFrame->True, FontFamily->"Courier New", FontWeight->"Plain"], StyleBox["expr", "DisplayText", CellFrame->True, FontFamily->"Courier New", FontWeight->"Plain", FontSlant->"Italic"], StyleBox["]", "DisplayText", CellFrame->True, FontFamily->"Courier New", FontWeight->"Plain"], StyleBox["\t ", "DisplayText", CellFrame->True], "puts terms in a sum over a common denominator, and cancels factors in the \ result. " }], "DisplayText", CellChangeTimes->{{3.6828120274397125`*^9, 3.6828120320111246`*^9}, { 3.682812070008546*^9, 3.68281210428699*^9}}, FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ RowBox[{"Expand", "[", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "x", "+", "y"}], ")"}], "3"], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Factor", "[", "%", "]"}]], "Input"], Cell[BoxData[ RowBox[{"Expand", "[", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], RowBox[{"5", "/", "2"}]], "]"}]], "Input"], Cell[BoxData[{ RowBox[{"Factor", "[", "%", "]"}], "\[IndentingNewLine]", RowBox[{ FractionBox["1", "2"], "+", RowBox[{"3", " ", SuperscriptBox["x", "2"]}], "+", FractionBox["x", RowBox[{"x", "-", "1"}]]}]}], "Input", CellChangeTimes->{ 3.6828121077725935`*^9, {3.682812206911076*^9, 3.682812259893076*^9}}], Cell[BoxData[ RowBox[{"Expand", "[", "%", "]"}]], "Input"], Cell[BoxData[ RowBox[{"Together", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.6828122812949853`*^9, 3.682812287866372*^9}}], Cell[BoxData[ RowBox[{"Expand", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.68281232725905*^9, 3.6828123621412907`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["3.2 Values for Symbols", FontColor->RGBColor[0, 0, 1]]], "Subsection"], Cell[TextData[{ StyleBox["expr", "DisplayText", CellFrame->True, FontFamily->"Courier New", FontWeight->"Plain", FontSlant->"Italic"], StyleBox[" /. ", "DisplayText", CellFrame->True, FontFamily->"Courier New", FontWeight->"Plain"], StyleBox["x", "DisplayText", CellFrame->True, FontFamily->"Courier New", FontWeight->"Plain", FontSlant->"Italic"], StyleBox["->", "DisplayText", CellFrame->True, FontFamily->"Courier New", FontWeight->"Plain"], StyleBox["value", "DisplayText", CellFrame->True, FontFamily->"Courier New", FontWeight->"Plain", FontSlant->"Italic"], StyleBox["\t\t\treplace ", "DisplayText", CellFrame->True], StyleBox["x", "DisplayText", CellFrame->True, FontSlant->"Italic"], StyleBox[" by ", "DisplayText", CellFrame->True], StyleBox["value", "DisplayText", CellFrame->True, FontSlant->"Italic"], StyleBox[" in the expression ", "DisplayText", CellFrame->True], StyleBox["expr", "DisplayText", CellFrame->True, FontSlant->"Italic"], StyleBox["\n", "DisplayText", CellFrame->True], StyleBox["expr", "DisplayText", CellFrame->True, FontFamily->"Courier New", FontWeight->"Plain", FontSlant->"Italic"], StyleBox[" /. {", "DisplayText", CellFrame->True, FontFamily->"Courier New", FontWeight->"Plain"], StyleBox["x", "DisplayText", CellFrame->True, FontFamily->"Courier New", FontWeight->"Plain", FontSlant->"Italic"], StyleBox["->", "DisplayText", CellFrame->True, FontFamily->"Courier New", FontWeight->"Plain"], StyleBox["xval", "DisplayText", CellFrame->True, FontFamily->"Courier New", FontWeight->"Plain", FontSlant->"Italic"], StyleBox[", ", "DisplayText", CellFrame->True, FontFamily->"Courier New", FontWeight->"Plain"], StyleBox["y->", "DisplayText", CellFrame->True, FontFamily->"Courier New", FontWeight->"Plain", FontSlant->"Italic"], StyleBox["y", "DisplayText", CellFrame->True, FontFamily->"Courier New", FontWeight->"Plain"], StyleBox["val", "DisplayText", CellFrame->True, FontFamily->"Courier New", FontWeight->"Plain", FontSlant->"Italic"], StyleBox["}", "DisplayText", CellFrame->True, FontFamily->"Courier New", FontWeight->"Plain"], StyleBox["\tperform several replacements", "DisplayText", CellFrame->True] }], "DisplayText", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ RowBox[{ RowBox[{ SqrtBox[ RowBox[{"x", "+", RowBox[{"2", SqrtBox[ RowBox[{"x", "-", "1"}]]}]}]], "+", SqrtBox[ RowBox[{"x", "-", RowBox[{"2", SqrtBox[ RowBox[{"x", "-", "1"}]]}]}]]}], "/.", RowBox[{"x", "\[Rule]", "1.5"}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["x", "10"], "+", SuperscriptBox["y", "10"]}], "/.", RowBox[{"x", "\[Rule]", RowBox[{"1", "-", "y"}]}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["x", "3"], "+", SuperscriptBox["y", "3"]}], "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{"1", "+", "a"}]}], ",", RowBox[{"y", "\[Rule]", RowBox[{"1", "-", "a"}]}]}], "}"}]}], " ", "//", "Expand"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["x", "3"], "+", RowBox[{"a", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"b", " ", "x"}], "+", "c"}], "/.", RowBox[{"x", "\[Rule]", RowBox[{"x", "-", FractionBox["a", "3"]}]}]}], " ", "//", " ", "Expand"}]], "Input"], Cell[BoxData["x"], "Input", CellChangeTimes->{3.487589247578125*^9}], Cell[BoxData[ RowBox[{"x", "=", RowBox[{"1", "+", "y"}]}]], "Input"], Cell[BoxData[ SuperscriptBox["x", "2"]], "Input"], Cell["Reset variable x", "DisplayText", CellChangeTimes->{{3.487589189671875*^9, 3.487589196578125*^9}}], Cell[BoxData[ RowBox[{"x", "=."}]], "Input"], Cell[BoxData["x"], "Input", CellChangeTimes->{3.487589218796875*^9}] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["3.3 Simplifying Algebraic Expressions", FontColor->RGBColor[0, 0, 1]]], "Subsection"], Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x", "+", RowBox[{"3", SuperscriptBox["x", "2"]}]}], ")"}], "+", RowBox[{"(", RowBox[{ RowBox[{"3", "x"}], "-", "2"}], ")"}]}]], "Input"], Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{ SuperscriptBox["x", "3"], "+", RowBox[{"3", SuperscriptBox["x", "2"]}], "+", RowBox[{"3", "x"}], "+", "1"}], "]"}]], "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Section 4. Symbolic Computation", "Section"], Cell[CellGroupData[{ Cell[TextData[StyleBox["4.1 Solving Equations", FontColor->RGBColor[0, 0, 1]]], "Subsection"], Cell[TextData[{ StyleBox["Solve[", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox["lhs == rhs", "TI", FontColor->RGBColor[1, 0, 0]], StyleBox[",", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[1, 0, 0]], StyleBox["var", "TI", FontColor->RGBColor[1, 0, 0]], StyleBox["]", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox["\t\t\t\t\tattempt to solve an equation for the variables ", FontColor->RGBColor[1, 0, 0]], StyleBox["var\n", "TI", FontColor->RGBColor[1, 0, 0]], StyleBox["Solve[{", FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["\<\"eqn\"\>", "TI"], "1"], TraditionalForm]], "InlineFormula", FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox[", ", FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["\<\"eqn\"\>", "TI"], "2"], TraditionalForm]], "InlineFormula", FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox[", \[Ellipsis] ", FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox["}", TraditionalForm]], "InlineFormula", FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox[",{", FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["\<\"var\"\>", "TI"], "1"], TraditionalForm]], "InlineFormula", FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox[", ", FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["\<\"var\"\>", "TI"], "2"], TraditionalForm]], "InlineFormula", FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox[", \[Ellipsis] ", FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox["}", TraditionalForm]], "InlineFormula", FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox["]", FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox["\tattempt to solve set of equations for the variables ", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["\<\"var\"\>", "TI"], "1"], TraditionalForm]], "InlineFormula", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox[", ", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["\<\"var\"\>", "TI"], "2"], TraditionalForm]], "InlineFormula", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox[", \[Ellipsis]", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox["\n", FontColor->RGBColor[1, 0, 0]], StyleBox["NSolve", FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox["[", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox["lhs == rhs", "TI", FontColor->RGBColor[1, 0, 0]], StyleBox[",", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[1, 0, 0]], StyleBox["var", "TI", FontColor->RGBColor[1, 0, 0]], StyleBox["]", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox["\t", FontColor->RGBColor[1, 0, 0]], StyleBox[" \t\t\t\t", FontFamily->"Courier New", FontColor->RGBColor[1, 0, 0]], StyleBox["\tgives a list of numerical approximations to the roots of a \ polynomial equation", FontColor->RGBColor[1, 0, 0]] }], "DisplayText"], Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"b", " ", "x"}], "+", "c"}], "\[Equal]", "0"}], ",", "x"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "/.", RowBox[{"%", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], " ", ")"}], "+", RowBox[{"(", RowBox[{"x", "/.", RowBox[{"%", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"x", "/.", RowBox[{"%", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], " ", ")"}], RowBox[{"(", RowBox[{"x", "/.", RowBox[{"%", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], ")"}]}]}], "}"}], "//", "Simplify"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"a", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"c", " ", "x"}], "+", "d"}], "\[Equal]", "0"}], ",", "x"}], "]"}], "//", "Simplify"}]], "Input"], Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "+", "y"}], "\[Equal]", "10"}], ",", RowBox[{ RowBox[{"x", "-", "y"}], "\[Equal]", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"NSolve", "[", RowBox[{ RowBox[{ SuperscriptBox["2", "x"], "\[Equal]", SuperscriptBox["x", "2"]}], ",", "x"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["2", "x"], "-", SuperscriptBox["x", "2"]}], "/.", "%"}]], "Input"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["4.2 Calculus", FontColor->RGBColor[0, 0, 1]]], "Subsection"], Cell[TextData[{ StyleBox["Limit[f, x->", FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ SubscriptBox["x", "0"], TraditionalForm]], FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox["]", FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox["\t\t\tthe limit ", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ RowBox[{ UnderscriptBox[ RowBox[{"lim", " "}], RowBox[{"x", "\[Rule]", SubscriptBox["x", "0"]}]], "f"}], TraditionalForm]], FontColor->RGBColor[1, 0, 0]], StyleBox["\n", FontColor->RGBColor[1, 0, 0]], StyleBox["D[", FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox["f", FontFamily->"Courier New", FontWeight->"Plain", FontSlant->"Italic", FontColor->RGBColor[1, 0, 0]], StyleBox[", ", FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox["x", FontFamily->"Courier New", FontWeight->"Plain", FontSlant->"Italic", FontColor->RGBColor[1, 0, 0]], StyleBox["]", FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox["\t\t\t\tthe (partial) derivative ", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{"\[PartialD]", " ", "f"}], RowBox[{"\[PartialD]", " ", "x"}]], TraditionalForm]], FontColor->RGBColor[1, 0, 0]], StyleBox["\n", FontColor->RGBColor[1, 0, 0]], StyleBox["Integrate[f, x]", FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox["\t\t\tthe indefinite integral ", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ RowBox[{"\[Integral]", RowBox[{"f", RowBox[{"\[DifferentialD]", "x"}]}]}], TraditionalForm]], FontColor->RGBColor[1, 0, 0]], StyleBox["\n", FontColor->RGBColor[1, 0, 0]], StyleBox["Integrate[f,{x, a, b}]", FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox["\t\tthe definite integral ", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "a", "b"], RowBox[{"f", RowBox[{"\[DifferentialD]", "x"}]}]}], TraditionalForm]], FontColor->RGBColor[1, 0, 0]], StyleBox["\n", FontColor->RGBColor[1, 0, 0]], StyleBox["NIntegrate[f,{x, a, b}]", FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox["\t\tgive a numerical approximation to the definite integral ", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "a", "b"], RowBox[{"f", RowBox[{"\[DifferentialD]", "x"}]}]}], TraditionalForm]], FontColor->RGBColor[1, 0, 0]], StyleBox["\n", FontColor->RGBColor[1, 0, 0]], StyleBox["Series[f, {x,", FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ SubscriptBox["x", "0"], TraditionalForm]], FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox[",order}]", FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox["\t\ta power series expansion of ", FontColor->RGBColor[1, 0, 0]], StyleBox["f", FontSlant->"Italic", FontColor->RGBColor[1, 0, 0]], StyleBox[" about the point x = ", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ SubscriptBox["x", "0"], TraditionalForm]], FontColor->RGBColor[1, 0, 0]] }], "DisplayText"], Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["x", "2"], "-", "1"}], RowBox[{"x", "-", "1"}]], ",", RowBox[{"x", "\[Rule]", "1"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ SuperscriptBox["x", "x"], ",", RowBox[{"x", "\[Rule]", "0"}], ",", RowBox[{"Direction", "\[Rule]", RowBox[{"-", "1"}]}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"D", "[", RowBox[{ RowBox[{"ArcSin", "[", "x", "]"}], ",", "x"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"f", "[", "x", "]"}], RowBox[{"g", "[", "x", "]"}]}], ",", "x"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"D", "[", RowBox[{ RowBox[{ SuperscriptBox["x", "2"], "+", RowBox[{"Sin", "[", RowBox[{"x", " ", "y"}], "]"}]}], ",", "x"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"\[Integral]", RowBox[{ FractionBox[ RowBox[{"1", "+", "x"}], RowBox[{"1", "-", "x"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input"], Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", SuperscriptBox["x", "2"]}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input"], Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"x", " ", "y"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", "x"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"NIntegrate", "[", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", SuperscriptBox["x", "2"]}]], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Series", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "a", ",", "5"}], "}"}]}], "]"}]], "Input"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["4.3 Sums and Products", FontColor->RGBColor[0, 0, 1]]], "Subsection"], Cell[TextData[{ StyleBox["Limit[f, x->", FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ SubscriptBox["x", "0"], TraditionalForm]], FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox["]", FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox["\t\t\tthe limit ", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ RowBox[{ UnderscriptBox[ RowBox[{"lim", " "}], RowBox[{"x", "\[Rule]", SubscriptBox["x", "0"]}]], "f"}], TraditionalForm]], FontColor->RGBColor[1, 0, 0]], StyleBox["\n", FontColor->RGBColor[1, 0, 0]], StyleBox["D[", FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox["f", FontFamily->"Courier New", FontWeight->"Plain", FontSlant->"Italic", FontColor->RGBColor[1, 0, 0]], StyleBox[", ", FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox["x", FontFamily->"Courier New", FontWeight->"Plain", FontSlant->"Italic", FontColor->RGBColor[1, 0, 0]], StyleBox["]", FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox["\t\t\t\tthe (partial) derivative ", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{"\[PartialD]", " ", "f"}], RowBox[{"\[PartialD]", " ", "x"}]], TraditionalForm]], FontColor->RGBColor[1, 0, 0]], StyleBox["\n", FontColor->RGBColor[1, 0, 0]], StyleBox["Integrate[f, x]", FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox["\t\t\tthe indefinite integral ", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ RowBox[{"\[Integral]", RowBox[{"f", RowBox[{"\[DifferentialD]", "x"}]}]}], TraditionalForm]], FontColor->RGBColor[1, 0, 0]], StyleBox["\n", FontColor->RGBColor[1, 0, 0]], StyleBox["Integrate[f,{x, a, b}]", FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox["\t\tthe definite integral ", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "a", "b"], RowBox[{"f", RowBox[{"\[DifferentialD]", "x"}]}]}], TraditionalForm]], FontColor->RGBColor[1, 0, 0]], StyleBox["\n", FontColor->RGBColor[1, 0, 0]], StyleBox["NIntegrate[f,{x, a, b}]", FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox["\t\tgive a numerical approximation to the definite integral ", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox["\[Integral]", "a", "b"], RowBox[{"f", RowBox[{"\[DifferentialD]", "x"}]}]}], TraditionalForm]], FontColor->RGBColor[1, 0, 0]], StyleBox["\n", FontColor->RGBColor[1, 0, 0]], StyleBox["Sum[f, {i,", FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["i", "min"], ",", SubscriptBox["i", "max"]}], TraditionalForm]], FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox["}]", FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox["\t\tthe sum ", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", SubscriptBox["i", "min"]}], SubscriptBox["i", "max"]], "f"}], TraditionalForm]], FontColor->RGBColor[1, 0, 0]], "\n", StyleBox["Product[f, {i,", FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["i", "min"], ",", SubscriptBox["i", "max"]}], TraditionalForm]], FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox["}]", FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox["\t\tthe product ", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"i", "=", SubscriptBox["i", "min"]}], SubscriptBox["i", "max"]], "f"}], TraditionalForm]], FontColor->RGBColor[1, 0, 0]], StyleBox["\n", FontColor->RGBColor[1, 0, 0]], StyleBox["Series[f, {x,", FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ SubscriptBox["x", "0"], TraditionalForm]], FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox[",order}]", FontFamily->"Courier New", FontWeight->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox["\t\ta power series expansion of ", FontColor->RGBColor[1, 0, 0]], StyleBox["f", FontSlant->"Italic", FontColor->RGBColor[1, 0, 0]], StyleBox[" about the point x = ", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ SubscriptBox["x", "0"], TraditionalForm]], FontColor->RGBColor[1, 0, 0]] }], "DisplayText"], Cell[BoxData[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "100"], FractionBox["1", "n"]}]], "Input"], Cell[BoxData[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "m"], SuperscriptBox["n", "4"]}]], "Input"], Cell[BoxData[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "\[Infinity]"], FractionBox["1", SuperscriptBox["n", "2"]]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "m"], FractionBox["1", "n"]}], "-", RowBox[{"Log", "[", "m", "]"}]}], "/.", RowBox[{"m", "\[Rule]", "10000"}]}], "//", "N"}]], "Input"], Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "m"], FractionBox["1", "n"]}], "-", RowBox[{"Log", "[", "m", "]"}]}], ",", RowBox[{"m", "\[Rule]", "\[Infinity]"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"n", "=", "1"}], "\[Infinity]"], FractionBox[ RowBox[{"4", SuperscriptBox["n", "2"]}], RowBox[{ RowBox[{"4", SuperscriptBox["n", "2"]}], "-", "1"}]]}]], "Input"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"G", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"x", "^", "3"}], "/", RowBox[{"(", RowBox[{"x", "+", "2"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"G", "[", "x", "]"}]}], "Input", CellChangeTimes->{{3.5831193906356535`*^9, 3.5831194174950285`*^9}, { 3.5831194861356535`*^9, 3.5831194891981535`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Series", "[", RowBox[{ RowBox[{"G", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"Maclaurin", " ", "Series"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.5831194995106535`*^9, 3.5831195029794035`*^9}, { 3.5831195901200285`*^9, 3.5831196034325285`*^9}, 3.5831206076044035`*^9}], Cell[BoxData[ RowBox[{"Normal", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.5831196272606535`*^9, 3.5831196318544035`*^9}}], Cell[BoxData[ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"G", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "n"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5831195237762785`*^9, 3.5831195304012785`*^9}, 3.5831196426356535`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Series", "[", RowBox[{ RowBox[{"G", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1", ",", "10"}], "}"}]}], "]"}], " ", RowBox[{"(*", " ", RowBox[{"Taylor", " ", "Series", " ", "about", " ", "1"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.5831196818856535`*^9, 3.5831197033544035`*^9}}], Cell[BoxData[ RowBox[{"Normal", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.5831197076356535`*^9, 3.5831197101981535`*^9}}], Cell[BoxData[ RowBox[{"SeriesCoefficient", "[", RowBox[{ RowBox[{"G", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1", ",", "n"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5831197214950285`*^9, 3.5831197217294035`*^9}}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Section 5 : Graphics", "Section"], Cell[CellGroupData[{ Cell[TextData[StyleBox["5.1 Two-Dimensional Plots", FontColor->RGBColor[0, 0, 1]]], "Subsection"], Cell[TextData[{ StyleBox["Plot[", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox["f ", "TI", FontColor->RGBColor[1, 0, 0]], StyleBox[",", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[1, 0, 0]], StyleBox["{", "TI", FontSlant->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox["x, xmin, xmax", "TI", FontColor->RGBColor[1, 0, 0]], StyleBox["}", "TI", FontSlant->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox["]", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox["\t\t\tgenerate a plot of ", FontColor->RGBColor[1, 0, 0]], StyleBox["f", FontFamily->"Courier New", FontWeight->"Plain", FontSlant->"Italic", FontColor->RGBColor[1, 0, 0]], StyleBox[" as a function of ", FontColor->RGBColor[1, 0, 0]], StyleBox["x", FontFamily->"Courier New", FontWeight->"Plain", FontSlant->"Italic", FontColor->RGBColor[1, 0, 0]], StyleBox[" from ", FontColor->RGBColor[1, 0, 0]], StyleBox["xmin", FontFamily->"Courier New", FontWeight->"Plain", FontSlant->"Italic", FontColor->RGBColor[1, 0, 0]], StyleBox[" to ", FontColor->RGBColor[1, 0, 0]], StyleBox["xmax", FontFamily->"Courier New", FontWeight->"Plain", FontSlant->"Italic", FontColor->RGBColor[1, 0, 0]], StyleBox["\n", "TI", FontColor->RGBColor[1, 0, 0]], StyleBox["Plot[{", "MR", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ StyleBox[ SubscriptBox["f", "1"], FontWeight->"Plain"], TraditionalForm]], FontColor->RGBColor[1, 0, 0]], StyleBox[", ", "TI", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ StyleBox[ SubscriptBox["f", "2"], FontWeight->"Plain"], TraditionalForm]], FontColor->RGBColor[1, 0, 0]], StyleBox[", ...", "TI", FontColor->RGBColor[1, 0, 0]], StyleBox["}", "TI", FontSlant->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox[",", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[1, 0, 0]], StyleBox["{", "TI", FontSlant->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox["x, xmin, xmax", "TI", FontColor->RGBColor[1, 0, 0]], StyleBox["}", "TI", FontSlant->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox["]", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox["\t\tplot several functions", FontColor->RGBColor[1, 0, 0]] }], "DisplayText"], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Tan", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "2"}], "\[Pi]"}], ",", RowBox[{"2", "\[Pi]"}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ SuperscriptBox["2", "x"], ",", SuperscriptBox["x", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "5"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ FractionBox[ RowBox[{"Sin", "[", "x", "]"}], "x"], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "15"}], ",", "15"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Options", "[", "Plot", "]"}]], "Input"], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ FractionBox[ RowBox[{"Sin", "[", "x", "]"}], "x"], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "15"}], ",", "15"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\<\!\(\*FractionBox[ StyleBox[ RowBox[{\"sin\", \" \", \"x\"}], FontSlant->\"Italic\"], StyleBox[\"x\", FontSlant->\"Italic\"]]\)\>\""}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0", ",", "1"}], "]"}]}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ SuperscriptBox["2", "x"], ",", SuperscriptBox["x", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "5"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{"Red", ",", "Thick", ",", " ", "Dashed"}], "]"}], ",", " ", "Blue"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.48758645746875*^9, 3.48758647365625*^9}, { 3.487586646625*^9, 3.48758668596875*^9}, {3.487586721875*^9, 3.4875867451875*^9}, {3.487586796890625*^9, 3.48758679796875*^9}, { 3.487586846296875*^9, 3.4875869385625*^9}}], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"2", "+", RowBox[{"Sin", "[", "x", "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "2"}], "\[Pi]"}], ",", RowBox[{"2", "\[Pi]"}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"2", "+", RowBox[{"Sin", "[", "x", "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "2"}], "\[Pi]"}], ",", RowBox[{"2", "\[Pi]"}]}], "}"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "\[Pi]"}], ",", RowBox[{"-", "\[Pi]"}], ",", "0", ",", "\[Pi]", ",", RowBox[{"2", "\[Pi]"}]}], "}"}], ",", "Automatic"}], "}"}]}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "3"}], "}"}]}]}], "]"}]], "Input"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["5.2 Two-Dimensional Parametric Plots", FontColor->RGBColor[0, 0, 1]]], "Subsection"], Cell[TextData[{ StyleBox["ParametricPlot[{", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox["x", "MR", FontSlant->"Italic", FontColor->RGBColor[1, 0, 0]], StyleBox["(", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox["t", "MR", FontSlant->"Italic", FontColor->RGBColor[1, 0, 0]], StyleBox["),", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox["y", "MR", FontSlant->"Italic", FontColor->RGBColor[1, 0, 0]], StyleBox["(", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox["t", "MR", FontSlant->"Italic", FontColor->RGBColor[1, 0, 0]], StyleBox[")}", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", "TI", FontColor->RGBColor[1, 0, 0]], StyleBox[",", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[1, 0, 0]], StyleBox["{", "TI", FontSlant->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox["t, tmin, tmax", "TI", FontColor->RGBColor[1, 0, 0]], StyleBox["}", "TI", FontSlant->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox["]", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox["\tproduces a parametric plot with ", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ StyleBox["x", "TI"], TraditionalForm]], "InlineFormula", FontColor->RGBColor[1, 0, 0]], StyleBox[" and ", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ StyleBox["y", "TI"], TraditionalForm]], "InlineFormula", FontColor->RGBColor[1, 0, 0]], StyleBox[" coordinates ", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ StyleBox[ RowBox[{"x", "(", "t", ")"}], "TI"], TraditionalForm]], "InlineFormula", FontColor->RGBColor[1, 0, 0]], StyleBox[" and ", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ StyleBox[ RowBox[{"y", "(", "t", ")"}], "TI"], TraditionalForm]], "InlineFormula", FontColor->RGBColor[1, 0, 0]], StyleBox[" generated as a function of ", FontColor->RGBColor[1, 0, 0]], StyleBox["t", "TI", FontColor->RGBColor[1, 0, 0]] }], "DisplayText"], Cell[BoxData[ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Sin", "[", RowBox[{"2", "t"}], "]"}], ",", RowBox[{"Cos", "[", RowBox[{"3", "t"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "t", "]"}], ",", RowBox[{"Sin", "[", "t", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Options", "[", "ParametricPlot", "]"}]], "Input"], Cell[BoxData[ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "t", "]"}], ",", RowBox[{"Sin", "[", "t", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{"Sin", "[", "t", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{"Sin", "[", "t", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}]], "Input"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["5.3 Three-Dimensional Plots", FontColor->RGBColor[0, 0, 1]]], "Subsection"], Cell[TextData[{ StyleBox["Plot3D[", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox["f", "TI", FontColor->RGBColor[1, 0, 0]], StyleBox["(", "TI", FontSlant->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox["x,y", "TI", FontColor->RGBColor[1, 0, 0]], StyleBox[")", "TI", FontSlant->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", "TI", FontColor->RGBColor[1, 0, 0]], StyleBox[",", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[1, 0, 0]], StyleBox["{", "TI", FontSlant->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox["x, xmin, xmax", "TI", FontColor->RGBColor[1, 0, 0]], StyleBox["}, {", "TI", FontSlant->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox["y, ymin, ymax", "TI", FontColor->RGBColor[1, 0, 0]], StyleBox["}", "TI", FontSlant->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox["]", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox["\t\t\tgenerate a three-dimensional plot of ", FontColor->RGBColor[1, 0, 0]], StyleBox["f", FontFamily->"Courier New", FontWeight->"Plain", FontSlant->"Italic", FontColor->RGBColor[1, 0, 0]], StyleBox[" as a function of ", FontColor->RGBColor[1, 0, 0]], StyleBox["x", FontFamily->"Courier New", FontWeight->"Plain", FontSlant->"Italic", FontColor->RGBColor[1, 0, 0]], StyleBox[" and ", FontColor->RGBColor[1, 0, 0]], StyleBox["y", FontFamily->"Courier New", FontWeight->"Plain", FontSlant->"Italic", FontColor->RGBColor[1, 0, 0]] }], "DisplayText"], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"Sin", "[", RowBox[{"x", " ", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "\[Pi]"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]], "Input"], Cell[TextData[{ StyleBox["Viewpoint\t\tPosition", FontSize->16, FontColor->RGBColor[0, 0, 1]], StyleBox["\n", FontColor->RGBColor[1, 0, 0]], StyleBox["{1.3,-2.4,2}", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox["\t\tDefault setting\n", FontColor->RGBColor[1, 0, 0]], StyleBox["{0,-2,0}", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox["\t\t\tDirectly in front\n", FontColor->RGBColor[1, 0, 0]], StyleBox["{0,0,2}", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox["\t\t\tDirectly above\n", FontColor->RGBColor[1, 0, 0]], StyleBox["{-2,-2,0}", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox["\t\t\tLeft-hand corner\n", FontColor->RGBColor[1, 0, 0]], StyleBox["{2,-2,0}", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox["\t\t\tRight-hand corner\n", FontColor->RGBColor[1, 0, 0]], StyleBox["{0,-2,2}", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox["\t\t\tIn front and from above\n", FontColor->RGBColor[1, 0, 0]], StyleBox["Menu [Input] [3D ViewPoint Selector]", FontColor->RGBColor[0, 0, 1]] }], "DisplayText"], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"Sin", "[", RowBox[{"x", " ", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "\[Pi]"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"ViewPoint", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "2"}], "}"}]}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Options", "[", "Plot3D", "]"}]], "Input"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["5.4 Three-Dimensional Parametric Plots", FontColor->RGBColor[0, 0, 1]]], "Subsection"], Cell[TextData[{ StyleBox["ParametricPlot3D[", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox["{", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox["x", "MR", FontSlant->"Italic", FontColor->RGBColor[1, 0, 0]], StyleBox["(", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox["t", "MR", FontSlant->"Italic", FontColor->RGBColor[1, 0, 0]], StyleBox["),", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox["y", "MR", FontSlant->"Italic", FontColor->RGBColor[1, 0, 0]], StyleBox["(", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox["t", "MR", FontSlant->"Italic", FontColor->RGBColor[1, 0, 0]], StyleBox["),", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox["z", "MR", FontSlant->"Italic", FontColor->RGBColor[1, 0, 0]], StyleBox["(", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox["t", "MR", FontSlant->"Italic", FontColor->RGBColor[1, 0, 0]], StyleBox[")}", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox[",", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[1, 0, 0]], StyleBox["{", "TI", FontSlant->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox["t, tmin, tmax", "TI", FontColor->RGBColor[1, 0, 0]], StyleBox["}", "TI", FontSlant->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox["]\t", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox["\t\t\tgenerate a 3D space curve parametrized by ", FontColor->RGBColor[1, 0, 0]], StyleBox["t\n", "TI", FontColor->RGBColor[1, 0, 0]], StyleBox["ParametricPlot3D[", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox["{", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox["x", "MR", FontSlant->"Italic", FontColor->RGBColor[1, 0, 0]], StyleBox["(", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox["u,v", "MR", FontSlant->"Italic", FontColor->RGBColor[1, 0, 0]], StyleBox["),", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox["y", "MR", FontSlant->"Italic", FontColor->RGBColor[1, 0, 0]], StyleBox["(", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox["u,v", "MR", FontSlant->"Italic", FontColor->RGBColor[1, 0, 0]], StyleBox["),", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox["z", "MR", FontSlant->"Italic", FontColor->RGBColor[1, 0, 0]], StyleBox["(", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox["u,v", "MR", FontSlant->"Italic", FontColor->RGBColor[1, 0, 0]], StyleBox[")}", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox[",", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox["{", "TI", FontSlant->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox["u, umin, umax", "TI", FontColor->RGBColor[1, 0, 0]], StyleBox["},{", "TI", FontSlant->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox["v, vmin, vmax", "TI", FontColor->RGBColor[1, 0, 0]], StyleBox["}", "TI", FontSlant->"Plain", FontColor->RGBColor[1, 0, 0]], StyleBox["]\t", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox["generate a 3D surface parametrized by ", FontColor->RGBColor[1, 0, 0]], StyleBox["u ", "TI", FontColor->RGBColor[1, 0, 0]], StyleBox["and ", FontColor->RGBColor[1, 0, 0]], StyleBox["v", "TI", FontColor->RGBColor[1, 0, 0]] }], "DisplayText"], Cell[BoxData[ RowBox[{"Options", "[", "ParametricPlot3D", "]"}]], "Input"], Cell[BoxData[ RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "t", "]"}], ",", RowBox[{"Sin", "[", "t", "]"}], ",", RowBox[{"0.2", "t"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"15", "\[Pi]"}]}], "}"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"Axes", "\[Rule]", "False"}], ",", RowBox[{"PlotPoints", "\[Rule]", "250"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Sin", "[", "u", "]"}], RowBox[{"Cos", "[", "v", "]"}]}], ",", RowBox[{ RowBox[{"Sin", "[", "u", "]"}], RowBox[{"Sin", "[", "v", "]"}]}], ",", RowBox[{"Cos", "[", "u", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", "\[Pi]"}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", "0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"4", "+", RowBox[{"Cos", "[", "v", "]"}]}], ")"}], RowBox[{"Cos", "[", "u", "]"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"4", "+", RowBox[{"Cos", "[", "v", "]"}]}], ")"}], RowBox[{"Sin", "[", "u", "]"}]}], ",", RowBox[{"Sin", "[", "v", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", "0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}]}], "]"}]], "Input"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["5.6 List Plots", FontColor->RGBColor[0, 0, 1]]], "Subsection"], Cell[TextData[{ StyleBox["ListPlot[{", "MR", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["\"\\"", "TI"], "1"], TraditionalForm]], "InlineFormula", FontColor->RGBColor[1, 0, 0]], StyleBox[",", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["\"\\"", "TI"], "2"], TraditionalForm]], "InlineFormula", FontColor->RGBColor[1, 0, 0]], StyleBox[",", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox[" \[Ellipsis]", FontColor->RGBColor[1, 0, 0]], StyleBox["}]}", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox[" \t\t\tplots a list of values with the ", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ StyleBox["x", "TI"], TraditionalForm]], "InlineFormula", FontColor->RGBColor[1, 0, 0]], StyleBox[" coordinates for each point are taken to be ", FontColor->RGBColor[1, 0, 0]], StyleBox["1", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox[", ", FontColor->RGBColor[1, 0, 0]], StyleBox["2", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox[", \[Ellipsis] \n", FontColor->RGBColor[1, 0, 0]], StyleBox["ListPlot[{{", "MR", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["\"\\"", "TI"], "1"], TraditionalForm]], "InlineFormula", FontColor->RGBColor[1, 0, 0]], StyleBox[",", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["\"\\"", "TI"], "1"], TraditionalForm]], "InlineFormula", FontColor->RGBColor[1, 0, 0]], StyleBox["},", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[1, 0, 0]], StyleBox["{", "MR", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["\"\\"", "TI"], "2"], TraditionalForm]], "InlineFormula", FontColor->RGBColor[1, 0, 0]], StyleBox[",", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["\"\\"", "TI"], "2"], TraditionalForm]], "InlineFormula", FontColor->RGBColor[1, 0, 0]], StyleBox["},", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox[" \[Ellipsis]", FontColor->RGBColor[1, 0, 0]], StyleBox["}]", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox[" \t\tplots a list of values with specified ", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ StyleBox["x", "TI"], TraditionalForm]], "InlineFormula", FontColor->RGBColor[1, 0, 0]], StyleBox[" and ", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ FormBox[ StyleBox["y", "TI"], TraditionalForm]], "InlineFormula", FontColor->RGBColor[1, 0, 0]], StyleBox[" coordinates\n", FontColor->RGBColor[1, 0, 0]], StyleBox["ListPlot3D[", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox["array", "TI", FontColor->RGBColor[1, 0, 0]], StyleBox["]", "MR", FontColor->RGBColor[1, 0, 0]], StyleBox[" \t\t\t\tgenerates a three\[Hyphen]dimensional plot of a surface \ representing an array of height values", FontColor->RGBColor[1, 0, 0]] }], "DisplayText"], Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{"{", RowBox[{"0", ",", "1", ",", "4", ",", "9", ",", "16", ",", "25"}], "}"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Options", "[", "ListPlot", "]"}]], "Input"], Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "4", ",", "9", ",", "16", ",", "25"}], "}"}], ",", RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "25"}], "}"}]}], "}"}], ",", RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"data3d", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sin", "[", RowBox[{"x", " ", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "\[Pi]", ",", FractionBox["\[Pi]", "15"]}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", RowBox[{"2", "\[Pi]"}], ",", FractionBox["\[Pi]", "15"]}], "}"}]}], "]"}]}], ";"}]], "Input"], Cell[BoxData[ RowBox[{"ListPlot3D", "[", "data3d", "]"}]], "Input"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["5.7 Two-Dimensional Contour Plots (Implicit Plots)", FontColor->RGBColor[0, 0, 1]]], "Subsection", CellChangeTimes->{{3.487587117890625*^9, 3.487587132921875*^9}}], Cell[TextData[Cell[BoxData[GridBox[{ {"", Cell[TextData[{ Cell[BoxData[ RowBox[{ ButtonBox["ContourPlot", BaseStyle->"Link", ButtonData->"paclet:ref/ContourPlot"], "[", RowBox[{ StyleBox["f", "TI"], ",", RowBox[{"{", RowBox[{ StyleBox["x", "TI"], ",", SubscriptBox[ StyleBox["x", "TI"], StyleBox["min", "TI"]], ",", SubscriptBox[ StyleBox["x", "TI"], StyleBox["max", "TI"]]}], "}"}], ",", RowBox[{"{", RowBox[{ StyleBox["y", "TI"], ",", SubscriptBox[ StyleBox["y", "TI"], StyleBox["min", "TI"]], ",", SubscriptBox[ StyleBox["y", "TI"], StyleBox["max", "TI"]]}], "}"}]}], "]"}]], "InlineFormula"], " generates a contour plot of ", Cell[BoxData[ StyleBox["f", "TI"]], "InlineFormula"], " as a function of ", Cell[BoxData[ StyleBox["x", "TI"]], "InlineFormula"], " and ", Cell[BoxData[ StyleBox["y", "TI"]], "InlineFormula"], ". " }]]}, {"", Cell[TextData[{ Cell[BoxData[ RowBox[{ RowBox[{ ButtonBox["ContourPlot", BaseStyle->"Link", ButtonData->"paclet:ref/ContourPlot"], "[", RowBox[{ RowBox[{ StyleBox["f", "TI"], "==", StyleBox["g", "TI"]}], ",", RowBox[{"{", RowBox[{ StyleBox["x", "TI"], ",", SubscriptBox[ StyleBox["x", "TI"], StyleBox["min", "TI"]], ",", SubscriptBox[ StyleBox["x", "TI"], StyleBox["max", "TI"]]}], "}"}], ",", RowBox[{"{", RowBox[{ StyleBox["y", "TI"], ",", SubscriptBox[ StyleBox["y", "TI"], StyleBox["min", "TI"]], ",", SubscriptBox[ StyleBox["y", "TI"], StyleBox["max", "TI"]]}], "}"}]}], "]"}], " "}]], "InlineFormula"], "plots contour lines for which ", Cell[BoxData[ RowBox[{ StyleBox["f", "TI"], "=", StyleBox["g", "TI"]}]], "InlineFormula"], ". " }]]}, {"", Cell[TextData[{ Cell[BoxData[ RowBox[{ RowBox[{ ButtonBox["ContourPlot", BaseStyle->"Link", ButtonData->"paclet:ref/ContourPlot"], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox[ StyleBox["f", "TI"], StyleBox["1", "TR"]], "==", SubscriptBox[ StyleBox["g", "TI"], StyleBox["1", "TR"]]}], ",", RowBox[{ SubscriptBox[ StyleBox["f", "TI"], StyleBox["2", "TR"]], "==", SubscriptBox[ StyleBox["g", "TI"], StyleBox["2", "TR"]]}], ",", StyleBox["\[Ellipsis]", "TR"]}], "}"}], ",", RowBox[{"{", RowBox[{ StyleBox["x", "TI"], ",", SubscriptBox[ StyleBox["x", "TI"], StyleBox["min", "TI"]], ",", SubscriptBox[ StyleBox["x", "TI"], StyleBox["max", "TI"]]}], "}"}], ",", RowBox[{"{", RowBox[{ StyleBox["y", "TI"], ",", SubscriptBox[ StyleBox["y", "TI"], StyleBox["min", "TI"]], ",", SubscriptBox[ StyleBox["y", "TI"], StyleBox["max", "TI"]]}], "}"}]}], "]"}], " "}]], "InlineFormula"], "plots several contour lines. " }]]} }]], GridBoxOptions->{ GridBoxBackground->{ "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {None, Dynamic[ If[CurrentValue[{TaggingRules, "ModificationHighlight"}] === True, RGBColor[0.92, 1, 0.59], None]], { Dynamic[ If[CurrentValue[{TaggingRules, "ModificationHighlight"}] === True, RGBColor[0.92, 1, 0.59], None]]}}, "RowsIndexed" -> {}}}]], "DisplayText", CellChangeTimes->{ 3.487587077109375*^9, 3.48758710953125*^9, {3.487587149984375*^9, 3.48758717709375*^9}}], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{ SuperscriptBox["x", "2"], "-", SuperscriptBox["y", "2"]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"y", ",", " ", RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", " ", RowBox[{"AxesLabel", "\[Rule]", "Automatic"}], ",", " ", RowBox[{"ViewPoint", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.5831181462606535`*^9, 3.5831181508231535`*^9}, { 3.5831181987762785`*^9, 3.5831182002137785`*^9}, {3.5831187087137785`*^9, 3.5831187096825285`*^9}, {3.5831187544481535`*^9, 3.5831187554169035`*^9}, { 3.5831188226200285`*^9, 3.5831188500887785`*^9}, {3.5831189126669035`*^9, 3.5831189323700285`*^9}}], Cell[BoxData[ RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{ SuperscriptBox["x", "2"], "-", SuperscriptBox["y", "2"]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"y", ",", " ", RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", " ", RowBox[{"AxesLabel", "\[Rule]", "Automatic"}]}], "]"}]], "Input", CellChangeTimes->{{3.5831180037919035`*^9, 3.5831180041825285`*^9}, { 3.5831182128231535`*^9, 3.5831182135887785`*^9}}], Cell[BoxData[ RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["x", "2"], "-", SuperscriptBox["y", "2"]}], "\[Equal]", "1"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"y", ",", " ", RowBox[{"-", "4"}], ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.487587211390625*^9, 3.487587233515625*^9}, { 3.5831183311981535`*^9, 3.5831183607137785`*^9}}], Cell[BoxData[ RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["x", "2"], "-", SuperscriptBox["y", "2"]}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"y", ",", " ", RowBox[{"-", "4"}], ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5831180364169035`*^9, 3.5831180579012785`*^9}, { 3.5831183470887785`*^9, 3.5831183956356535`*^9}}], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", " ", RowBox[{"AxesLabel", "\[Rule]", "Automatic"}], ",", " ", RowBox[{"ViewPoint", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "6"}], ",", "1"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.5831184211669035`*^9, 3.5831184399481535`*^9}, { 3.5831189651825285`*^9, 3.5831190043075285`*^9}}], Cell[BoxData[ RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", " ", RowBox[{"AxesLabel", "\[Rule]", "Automatic"}]}], "]"}]], "Input", CellChangeTimes->{{3.5831180732762785`*^9, 3.5831180734794035`*^9}, { 3.5831184460262785`*^9, 3.5831184471044035`*^9}}], Cell[BoxData[ RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}], "\[Equal]", "1"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}], "\[Equal]", "0.5"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5831190762294035`*^9, 3.5831190777450285`*^9}}] }, Closed]] }, Closed]] }, ScreenStyleEnvironment->"Working", WindowSize->{893, 862}, WindowMargins->{{40, Automatic}, {Automatic, 6}}, Magnification->1, FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)", StyleDefinitions->"Demo.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[545, 20, 523, 8, 96, "Title"], Cell[1071, 30, 79, 0, 52, "DisplayText"], Cell[1153, 32, 381, 9, 75, "Text"], Cell[1537, 43, 226, 8, 55, "Text"], Cell[1766, 53, 365, 10, 55, "Text"], Cell[2134, 65, 538, 22, 55, "Text"], Cell[CellGroupData[{ Cell[2697, 91, 51, 0, 74, "Section"], Cell[CellGroupData[{ Cell[2773, 95, 67, 1, 37, "Subsection"], Cell[2843, 98, 63, 1, 32, "Input"], Cell[2909, 101, 96, 3, 32, "Input"], Cell[3008, 106, 79, 1, 32, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[3124, 112, 106, 1, 37, "Subsection"], Cell[3233, 115, 55, 1, 32, "Input"], Cell[3291, 118, 83, 2, 32, "Input"], Cell[3377, 122, 95, 3, 32, "Input"], Cell[3475, 127, 126, 4, 32, "Input"], Cell[3604, 133, 49, 1, 32, "Input"], Cell[3656, 136, 50, 1, 32, "Input"], Cell[3709, 139, 73, 2, 32, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[3819, 146, 104, 1, 37, "Subsection"], Cell[3926, 149, 672, 9, 250, "DisplayText"], Cell[4601, 160, 57, 1, 32, "Input"], Cell[4661, 163, 81, 2, 32, "Input"], Cell[4745, 167, 46, 1, 32, "Input"], Cell[4794, 170, 70, 2, 32, "Input"], Cell[4867, 174, 80, 2, 32, "Input"], Cell[4950, 178, 80, 2, 32, "Input"], Cell[5033, 182, 484, 16, 137, "DisplayText"], Cell[5520, 200, 145, 3, 32, "Input"], Cell[5668, 205, 85, 2, 32, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[5790, 212, 117, 1, 37, "Subsection"], Cell[5910, 215, 28, 0, 32, "Input"], Cell[5941, 217, 55, 1, 32, "Input"], Cell[5999, 220, 81, 2, 32, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[6117, 227, 92, 1, 37, "Subsection"], Cell[6212, 230, 75, 2, 32, "Input"], Cell[6290, 234, 76, 2, 32, "Input"], Cell[6369, 238, 253, 3, 142, "DisplayText"], Cell[6625, 243, 116, 4, 32, "Input"], Cell[6744, 249, 149, 5, 32, "Input"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[6942, 260, 54, 0, 43, "Section"], Cell[CellGroupData[{ Cell[7021, 264, 99, 1, 37, "Subsection"], Cell[7123, 267, 409, 11, 109, "DisplayText"], Cell[7535, 280, 49, 1, 32, "Input"], Cell[7587, 283, 49, 1, 32, "Input"], Cell[7639, 286, 50, 1, 32, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[7726, 292, 100, 1, 37, "Subsection"], Cell[7829, 295, 92, 2, 32, "Input"], Cell[7924, 299, 72, 2, 32, "Input"], Cell[7999, 303, 163, 5, 32, "Input"], Cell[8165, 310, 106, 3, 32, "Input"], Cell[8274, 315, 70, 2, 48, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[8381, 322, 107, 1, 37, "Subsection"], Cell[8491, 325, 701, 22, 115, "DisplayText"], Cell[9195, 349, 154, 4, 32, "Input"], Cell[9352, 355, 213, 6, 32, "Input"], Cell[9568, 363, 126, 3, 32, "Input"], Cell[9697, 368, 102, 3, 32, "Input"], Cell[9802, 373, 27, 0, 32, "Input"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[9878, 379, 52, 0, 43, "Section"], Cell[CellGroupData[{ Cell[9955, 383, 91, 1, 37, "Subsection"], Cell[10049, 386, 1701, 57, 91, "DisplayText"], Cell[11753, 445, 142, 4, 34, "Input"], Cell[11898, 451, 59, 1, 32, "Input"], Cell[11960, 454, 156, 5, 34, "Input"], Cell[12119, 461, 328, 9, 68, "Input"], Cell[12450, 472, 59, 1, 32, "Input"], Cell[12512, 475, 129, 2, 32, "Input"], Cell[12644, 479, 126, 2, 32, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[12807, 486, 95, 1, 37, "Subsection"], Cell[12905, 489, 2345, 89, 72, "DisplayText"], Cell[15253, 580, 310, 13, 40, "Input"], Cell[15566, 595, 178, 6, 32, "Input"], Cell[15747, 603, 327, 11, 32, "Input"], Cell[16077, 616, 315, 10, 46, "Input"], Cell[16395, 628, 69, 1, 32, "Input"], Cell[16467, 631, 72, 2, 32, "Input"], Cell[16542, 635, 50, 1, 32, "Input"], Cell[16595, 638, 105, 1, 52, "DisplayText"], Cell[16703, 641, 45, 1, 32, "Input"], Cell[16751, 644, 69, 1, 32, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[16857, 650, 110, 1, 31, "Subsection"], Cell[16970, 653, 220, 8, 34, "Input"], Cell[17193, 663, 193, 6, 34, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[17435, 675, 50, 0, 43, "Section"], Cell[CellGroupData[{ Cell[17510, 679, 94, 1, 37, "Subsection"], Cell[17607, 682, 3740, 129, 92, "DisplayText"], Cell[21350, 813, 230, 8, 34, "Input"], Cell[21583, 823, 691, 21, 32, "Input"], Cell[22277, 846, 268, 9, 34, "Input"], Cell[22548, 857, 300, 10, 32, "Input"], Cell[22851, 869, 165, 5, 34, "Input"], Cell[23019, 876, 123, 4, 32, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[23179, 885, 85, 1, 31, "Subsection"], Cell[23267, 888, 3601, 128, 187, "DisplayText"], Cell[26871, 1018, 210, 7, 51, "Input"], Cell[27084, 1027, 204, 6, 34, "Input"], Cell[27291, 1035, 111, 3, 32, "Input"], Cell[27405, 1040, 156, 5, 32, "Input"], Cell[27564, 1047, 185, 6, 34, "Input"], Cell[27752, 1055, 178, 6, 48, "Input"], Cell[27933, 1063, 234, 7, 45, "Input"], Cell[28170, 1072, 237, 7, 32, "Input"], Cell[28410, 1081, 231, 7, 42, "Input"], Cell[28644, 1090, 170, 5, 32, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[28851, 1100, 94, 1, 31, "Subsection"], Cell[28948, 1103, 5071, 183, 239, "DisplayText"], Cell[34022, 1288, 129, 4, 56, "Input"], Cell[34154, 1294, 130, 4, 54, "Input"], Cell[34287, 1300, 162, 5, 54, "Input"], Cell[34452, 1307, 276, 9, 54, "Input"], Cell[34731, 1318, 289, 9, 54, "Input"], Cell[35023, 1329, 257, 9, 56, "Input"], Cell[35283, 1340, 378, 10, 53, "Input"], Cell[35664, 1352, 418, 10, 32, "Input"], Cell[36085, 1364, 129, 2, 32, "Input"], Cell[36217, 1368, 279, 7, 32, "Input"], Cell[36499, 1377, 365, 10, 32, "Input"], Cell[36867, 1389, 129, 2, 32, "Input"], Cell[36999, 1393, 251, 6, 32, "Input"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[37299, 1405, 39, 0, 43, "Section"], Cell[CellGroupData[{ Cell[37363, 1409, 98, 1, 37, "Subsection"], Cell[37464, 1412, 2300, 86, 74, "DisplayText"], Cell[39767, 1500, 242, 8, 32, "Input"], Cell[40012, 1510, 263, 9, 34, "Input"], Cell[40278, 1521, 216, 7, 48, "Input"], Cell[40497, 1530, 63, 1, 32, "Input"], Cell[40563, 1533, 676, 20, 75, "Input"], Cell[41242, 1555, 716, 19, 34, "Input"], Cell[41961, 1576, 267, 9, 32, "Input"], Cell[42231, 1587, 767, 24, 53, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[43035, 1616, 109, 1, 31, "Subsection"], Cell[43147, 1619, 1966, 69, 65, "DisplayText"], Cell[45116, 1690, 333, 11, 32, "Input"], Cell[45452, 1703, 289, 9, 32, "Input"], Cell[45744, 1714, 73, 1, 32, "Input"], Cell[45820, 1717, 347, 10, 32, "Input"], Cell[46170, 1729, 311, 10, 32, "Input"], Cell[46484, 1741, 361, 11, 32, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[46882, 1757, 100, 1, 31, "Subsection"], Cell[46985, 1760, 1504, 55, 53, "DisplayText"], Cell[48492, 1817, 431, 13, 32, "Input"], Cell[48926, 1832, 1049, 32, 182, "DisplayText"], Cell[49978, 1866, 537, 15, 32, "Input"], Cell[50518, 1883, 65, 1, 32, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[50620, 1889, 111, 1, 31, "Subsection"], Cell[50734, 1892, 3109, 112, 72, "DisplayText"], Cell[53846, 2006, 75, 1, 32, "Input"], Cell[53924, 2009, 471, 13, 32, "Input"], Cell[54398, 2024, 519, 16, 32, "Input"], Cell[54920, 2042, 654, 21, 32, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[55611, 2068, 87, 1, 31, "Subsection"], Cell[55701, 2071, 3152, 104, 103, "DisplayText"], Cell[58856, 2177, 153, 4, 32, "Input"], Cell[59012, 2183, 67, 1, 32, "Input"], Cell[59082, 2186, 217, 6, 32, "Input"], Cell[59302, 2194, 531, 17, 32, "Input"], Cell[59836, 2213, 439, 13, 46, "Input"], Cell[60278, 2228, 68, 1, 32, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[60383, 2234, 189, 2, 31, "Subsection"], Cell[60575, 2238, 4206, 134, 97, "DisplayText"], Cell[64784, 2374, 867, 21, 34, "Input"], Cell[65654, 2397, 527, 14, 34, "Input"], Cell[66184, 2413, 496, 14, 34, "Input"], Cell[66683, 2429, 500, 14, 34, "Input"], Cell[67186, 2445, 648, 18, 34, "Input"], Cell[67837, 2465, 517, 14, 34, "Input"], Cell[68357, 2481, 367, 12, 34, "Input"], Cell[68727, 2495, 439, 13, 34, "Input"] }, Closed]] }, Closed]] } ] *) (* End of internal cache information *)