(* 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[ 21635, 795] NotebookOptionsPosition[ 20549, 754] NotebookOutlinePosition[ 21133, 777] CellTagsIndexPosition[ 21090, 774] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ " ", StyleBox["Riemann Sums and\n Accumulation Functions", FontFamily->"Bookman Old Style Bold"] }], "Title", Editable->False, ImageRegion->{{0, 1}, {0, 1}}, FontColor->GrayLevel[0.666667], Background->RGBColor[0, 0, 1]], Cell["\<\ Kendall Richards Department of Mathematics Southwestern University 2007\ \>", "Text", Editable->False, CellFrame->True, CellChangeTimes->{{3.405093183786727*^9, 3.4050931844671097`*^9}}, ImageRegion->{{0, 1}, {0, 1}}, FontFamily->"Bookman", FontColor->RGBColor[0, 0, 1], Background->GrayLevel[0.899992]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " ", StyleBox["The Main Problems", FontFamily->"Bookman Old Style Bold", FontSize->24, FontColor->RGBColor[0, 0, 1]] }], "Section", Editable->False, ImageRegion->{{0, 1}, {0, 1}}, Background->GrayLevel[0.666667]], Cell[TextData[{ StyleBox["I", FontSize->16, FontSlant->"Italic", Background->None], StyleBox[".", FontSize->16, FontSlant->"Italic", FontColor->RGBColor[0.209995, 0.419989, 0.0199893], Background->None], StyleBox[" ", "Section", FontSize->16, FontSlant->"Italic", Background->None], StyleBox[" How can one approximate the signed area of the region between the \ graph of a continuous function ", FontSize->16, FontSlant->"Italic", Background->None], StyleBox["f", FontSize->16, FontWeight->"Bold", FontSlant->"Italic", Background->None], StyleBox[" and the horizontal axis from ", FontSize->16, FontSlant->"Italic", Background->None], StyleBox["a", FontSize->16, FontWeight->"Bold", FontSlant->"Italic", Background->None], StyleBox[" to ", FontSize->16, FontSlant->"Italic", Background->None], StyleBox["b", FontSize->16, FontWeight->"Bold", FontSlant->"Italic", Background->None], StyleBox[". ?\n \n\n", FontSize->16, FontSlant->"Italic", Background->None], StyleBox["II. Given a continuous function ", FontSize->16, FontSlant->"Italic", FontColor->RGBColor[0.209995, 0.419989, 0.0199893], Background->None], StyleBox["f", FontSize->16, FontWeight->"Bold", FontSlant->"Italic", FontColor->RGBColor[0.209995, 0.419989, 0.0199893], Background->None], StyleBox[" on an interval ", FontSize->16, FontSlant->"Italic", FontColor->RGBColor[0.209995, 0.419989, 0.0199893], Background->None], StyleBox["[a,b]", FontSize->16, FontWeight->"Bold", FontSlant->"Italic", FontColor->RGBColor[0.209995, 0.419989, 0.0199893], Background->None], StyleBox[", define the accumulation function ", FontSize->16, FontSlant->"Italic", FontColor->RGBColor[0.209995, 0.419989, 0.0199893], Background->None], StyleBox["A[x]", FontSize->16, FontWeight->"Bold", FontSlant->"Italic", FontColor->RGBColor[0.209995, 0.419989, 0.0199893], Background->None], StyleBox[" as the signed area of the region between the graph of f and the \ horizontal axis from ", FontSize->16, FontSlant->"Italic", FontColor->RGBColor[0.209995, 0.419989, 0.0199893], Background->None], StyleBox["a", FontSize->16, FontWeight->"Bold", FontSlant->"Italic", FontColor->RGBColor[0.209995, 0.419989, 0.0199893], Background->None], StyleBox[" to ", FontSize->16, FontSlant->"Italic", FontColor->RGBColor[0.209995, 0.419989, 0.0199893], Background->None], StyleBox["x", FontSize->16, FontWeight->"Bold", FontSlant->"Italic", FontColor->RGBColor[0.209995, 0.419989, 0.0199893], Background->None], StyleBox[". What is a key relationship between the functions ", FontSize->16, FontSlant->"Italic", FontColor->RGBColor[0.209995, 0.419989, 0.0199893], Background->None], StyleBox["A", FontSize->16, FontWeight->"Bold", FontSlant->"Italic", FontColor->RGBColor[0.209995, 0.419989, 0.0199893], Background->None], StyleBox[" and ", FontSize->16, FontSlant->"Italic", FontColor->RGBColor[0.209995, 0.419989, 0.0199893], Background->None], StyleBox["f ", FontSize->16, FontWeight->"Bold", FontSlant->"Italic", FontColor->RGBColor[0.209995, 0.419989, 0.0199893], Background->None], StyleBox["?\n", FontSize->16, FontSlant->"Italic", FontColor->RGBColor[0.209995, 0.419989, 0.0199893], Background->None], StyleBox["\n\n", FontSize->16, FontSlant->"Italic", Background->None], StyleBox[" ", FontSize->16, FontSlant->"Italic", FontColor->RGBColor[0.939986, 0.909987, 0], Background->None], StyleBox["III. How can the result in II be used to find the ", FontSize->16, FontSlant->"Italic", FontColor->RGBColor[0.879988, 0, 0], Background->None], StyleBox["exact", FontSize->16, FontWeight->"Bold", FontSlant->"Italic", FontColor->RGBColor[0.879988, 0, 0], Background->None], StyleBox[" signed area of the region between the graph of a continuous \ function ", FontSize->16, FontSlant->"Italic", FontColor->RGBColor[0.879988, 0, 0], Background->None], StyleBox["f", FontSize->16, FontWeight->"Bold", FontSlant->"Italic", FontColor->RGBColor[0.879988, 0, 0], Background->None], StyleBox[" and the horizontal axis from ", FontSize->16, FontSlant->"Italic", FontColor->RGBColor[0.879988, 0, 0], Background->None], StyleBox["a", FontSize->16, FontWeight->"Bold", FontSlant->"Italic", FontColor->RGBColor[0.879988, 0, 0], Background->None], StyleBox[" to ", FontSize->16, FontSlant->"Italic", FontColor->RGBColor[0.879988, 0, 0], Background->None], StyleBox["b", FontSize->16, FontWeight->"Bold", FontSlant->"Italic", FontColor->RGBColor[0.879988, 0, 0], Background->None], StyleBox[". ?\n", FontSize->16, FontSlant->"Italic", FontColor->RGBColor[0.879988, 0, 0], Background->None], StyleBox["\n", FontSize->16, FontColor->RGBColor[0.879988, 0, 0], Background->None], StyleBox["The following sections investigate these questions.", FontSize->16, FontSlant->"Italic", FontColor->GrayLevel[0], Background->None], StyleBox["\n", FontSize->14, FontColor->RGBColor[0.879988, 0, 0], Background->None] }], "Text", Editable->False, ImageRegion->{{0, 1}, {0, 1}}, FontFamily->"Times New Roman", FontSize->14, FontColor->RGBColor[0.209995, 0, 0.529992], Background->GrayLevel[0.900008]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox[" ", FontFamily->"Bookman Old Style Bold", FontColor->RGBColor[1, 0, 0]], StyleBox["Riemann Sums", FontFamily->"Bookman Old Style Bold", FontSize->24, FontColor->RGBColor[1, 0, 0]] }], "Section", Editable->False, ImageRegion->{{0, 1}, {0, 1}}, Background->GrayLevel[0.666651]], Cell[TextData[{ StyleBox["The command ", FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ FormBox[ StyleBox[ RowBox[{"RiemannSumPic", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "a", ",", "b"}], "}"}], ",", "n", ",", SubscriptBox["w", "k"]}], "]"}], FontWeight->"Bold"], TraditionalForm]]], StyleBox[" generates a graph of the function ", FontColor->RGBColor[0, 0, 1]], StyleBox["f", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox[" and the corresponding approximating rectangles over the interval \ ", FontColor->RGBColor[0, 0, 1]], StyleBox["[a,b]", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox[". \n(Note: A region below the x-axis is has a negative \"signed \ area\". )\n\nTo execute, input the following in the cell below:\n\n* The \ function ", FontColor->RGBColor[0, 0, 1]], StyleBox["f", FontFamily->"Courier", FontSize->12, FontWeight->"Bold", FontColor->RGBColor[1, 0, 0]], StyleBox["\n* The end points ", FontColor->RGBColor[0, 0, 1]], StyleBox["a", FontFamily->"Courier", FontSize->12, FontWeight->"Bold", FontColor->RGBColor[1, 0, 0]], StyleBox[" and ", FontColor->RGBColor[0, 0, 1]], StyleBox["b", FontFamily->"Courier", FontSize->12, FontWeight->"Bold", FontColor->RGBColor[1, 0, 0]], StyleBox["\n* The number of subintervals ", FontColor->RGBColor[0, 0, 1]], StyleBox["n", FontFamily->"Courier", FontSize->12, FontWeight->"Bold", FontColor->RGBColor[1, 0, 0]], StyleBox["\n* The method for selecting the sample points ", FontColor->RGBColor[0, 0, 1]], Cell[BoxData[ FormBox[ SubscriptBox["w", "k"], TraditionalForm]], FontWeight->"Bold", FontColor->RGBColor[1, 0, 0]], StyleBox[" \n (The variable ", FontColor->RGBColor[0, 0, 1]], StyleBox["k", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox[" is an integer which runs from ", FontColor->RGBColor[0, 0, 1]], StyleBox["1", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox[" to ", FontColor->RGBColor[0, 0, 1]], StyleBox["n", FontFamily->"Courier", FontSize->12, FontWeight->"Bold"], StyleBox[".)", FontColor->RGBColor[0, 0, 1]] }], "Text", Editable->False, ImageRegion->{{0, 1}, {0, 1}}, FontSize->14, Background->GrayLevel[0.900008]], Cell[BoxData[{ StyleBox[ RowBox[{"Clear", "[", RowBox[{"f", ",", "a", ",", "b", ",", "n", ",", "w"}], "]"}], FontSize->14], "\n", RowBox[{ StyleBox[ RowBox[{"f", "[", "x_", "]"}], FontSize->14, FontColor->RGBColor[1, 0, 0]], StyleBox[":=", FontSize->14, FontColor->RGBColor[1, 0, 0]], RowBox[{"Sin", "[", SuperscriptBox["x", "2"], "]"}]}], "\n", StyleBox[ RowBox[{ RowBox[{"a", "=", "0"}], ";"}], FontSize->14, FontColor->RGBColor[1, 0, 0]], "\n", StyleBox[ RowBox[{ RowBox[{"b", "=", "4"}], ";"}], FontSize->14, FontColor->RGBColor[1, 0, 0]], "\n", StyleBox[ RowBox[{ RowBox[{"n", "=", "50"}], ";"}], FontSize->14, FontColor->RGBColor[1, 0, 0]], "\n", StyleBox[ RowBox[{ RowBox[{"\[CapitalDelta]x", "=", FractionBox[ RowBox[{"b", "-", "a"}], "n"]}], ";"}], FontSize->14], "\n", StyleBox[ RowBox[{ SubscriptBox["X", "k_"], ":=", RowBox[{"a", "+", RowBox[{"k", "*", " ", "\[CapitalDelta]x"}]}]}], FontSize->14], "\[IndentingNewLine]", RowBox[{ RowBox[{ StyleBox[ SubscriptBox["w", "k_"], FontSize->14, FontColor->RGBColor[1, 0, 0]], StyleBox[":=", FontSize->14, FontColor->RGBColor[1, 0, 0]], RowBox[{ StyleBox[ SubscriptBox["X", RowBox[{"k", "-", "1"}]], FontSize->14, FontColor->RGBColor[1, 0, 0]], StyleBox["+", FontSize->14, FontColor->RGBColor[1, 0, 0]], RowBox[{"\[CapitalDelta]x", "/", "2"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ht1", "=", RowBox[{"Graphics", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["X", RowBox[{"k", "-", "1"}]], ",", RowBox[{"f", "[", SubscriptBox["w", "k"], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["X", "k"], ",", RowBox[{"f", "[", SubscriptBox["w", "k"], "]"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], "]"}]}], ";", RowBox[{"vt1", "=", RowBox[{"Graphics", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["X", RowBox[{"k", "-", "1"}]], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["X", RowBox[{"k", "-", "1"}]], ",", RowBox[{"f", "[", SubscriptBox["w", "k"], "]"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], "]"}]}], ";", RowBox[{"vt2", "=", RowBox[{"Graphics", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["X", "k"], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["X", "k"], ",", RowBox[{"f", "[", SubscriptBox["w", "k"], "]"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], "]"}]}], ";", RowBox[{"p", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "a", ",", "b"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0", ",", "1"}], "]"}]}], ",", RowBox[{"DisplayFunction", "\[Rule]", "Identity"}]}], "]"}]}], ";", RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{"ht1", ",", "vt1", ",", "vt2", ",", "p"}], "}"}], ",", RowBox[{"Axes", "\[Rule]", "True"}]}], "]"}]}], "\[IndentingNewLine]", "\n", StyleBox["\[IndentingNewLine]", FontSize->14, FontColor->RGBColor[1, 0, 0]]}], "\[IndentingNewLine]", RowBox[{ StyleBox[ RowBox[{ RowBox[{"RS", "=", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], RowBox[{ RowBox[{"f", "[", SubscriptBox["w", "k"], "]"}], "*", "\[CapitalDelta]x"}]}], "//", "N"}]}], ";"}], FontSize->14], "\[IndentingNewLine]"}], "\[IndentingNewLine]", StyleBox[ RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "RS"}], "]"}], FontSize->14]}], "Input", CellChangeTimes->{{3.4036085852696123`*^9, 3.4036086348521433`*^9}, 3.405093162258409*^9, 3.4050933631004543`*^9}, ImageRegion->{{0, 1}, {0, 1}}, FontSize->14, Background->RGBColor[1, 1, 0], CellLabel->"In[61]:="] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ " ", StyleBox["Accumulation Functions &\n Their Derivatives", FontFamily->"Bookman Old Style Bold", FontSize->24, FontColor->RGBColor[0, 0.519997, 0.239994]] }], "Section", Editable->False, ImageRegion->{{0, 1}, {0, 1}}, FontColor->RGBColor[0, 0.569986, 0.0999924], Background->GrayLevel[0.666667]], Cell[TextData[{ StyleBox["Finally, we consider the connection between a function ", FontSize->14, FontColor->RGBColor[0, 0.329992, 0.0699931]], StyleBox["f ", FontFamily->"Courier", FontWeight->"Bold", FontColor->RGBColor[0, 0.329992, 0.0699931]], StyleBox["and its accumulation function ", FontSize->14, FontColor->RGBColor[0, 0.329992, 0.0699931]], StyleBox["A. ", FontFamily->"Courier", FontWeight->"Bold", FontColor->RGBColor[0, 0.329992, 0.0699931]], StyleBox["The Accumulation function ", FontSize->14, FontColor->RGBColor[0, 0.329992, 0.0699931]], StyleBox["A", FontFamily->"Courier", FontWeight->"Bold", FontColor->RGBColor[0, 0.329992, 0.0699931]], StyleBox[" gives the net signed area between ", FontSize->14, FontColor->RGBColor[0, 0.329992, 0.0699931]], StyleBox["f", FontFamily->"Courier", FontWeight->"Bold", FontColor->RGBColor[0, 0.329992, 0.0699931]], StyleBox[" and the t-axis from t=", FontSize->14, FontColor->RGBColor[0, 0.329992, 0.0699931]], StyleBox["a", FontFamily->"Courier", FontWeight->"Bold", FontColor->RGBColor[0, 0.329992, 0.0699931]], StyleBox[" to t=", FontSize->14, FontColor->RGBColor[0, 0.329992, 0.0699931]], StyleBox["x.", FontFamily->"Courier", FontWeight->"Bold", FontColor->RGBColor[0, 0.329992, 0.0699931]], StyleBox[" \n", FontSize->14, FontColor->RGBColor[0, 0.329992, 0.0699931]] }], "Text", Editable->False, ImageRegion->{{0, 1}, {0, 1}}, FontSize->14, FontColor->RGBColor[0, 0.229999, 0], Background->GrayLevel[0.666667]], Cell[TextData[{ Cell[BoxData[{ RowBox[{"Clear", "[", RowBox[{"f", ",", "A", ",", "n", ",", "a"}], "]"}], "\n", RowBox[{ StyleBox[ RowBox[{"f", "[", StyleBox[ RowBox[{"t", "_"}]], "]"}], FontColor->RGBColor[0, 0, 1]], StyleBox[":=", FontColor->RGBColor[0, 0, 1]], RowBox[{ StyleBox["Sin", FontColor->RGBColor[0, 0, 1]], StyleBox["[", FontColor->RGBColor[0, 0, 1]], SuperscriptBox[ StyleBox["t", FontColor->RGBColor[0, 0, 1]], "2"], StyleBox["]", FontColor->RGBColor[0, 0, 1]]}]}], "\n", RowBox[{ RowBox[{ StyleBox[ RowBox[{"a", "=", "0"}], FontColor->RGBColor[0, 0, 1]], ";"}], "\n"}], "\n", RowBox[{ RowBox[{ StyleBox[ RowBox[{"A", "[", "x_", "]"}], FontColor->RGBColor[1, 0, 0]], StyleBox[":=", FontColor->RGBColor[1, 0, 0]], RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{"f", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "x"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "\n"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"A", "[", "x", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "4"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "1.25"}], ",", "1.25"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0", ",", "1"}], "]"}]}], "}"}]}]}], "]"}]}], "Input", ImageRegion->{{0, 1}, {0, 1}}, Background->RGBColor[1, 1, 0]], StyleBox["\n", FontSize->14, FontColor->RGBColor[0, 0, 1]] }], "Text", Evaluatable->True, CellChangeTimes->{{3.403608674549756*^9, 3.403608704219336*^9}, { 3.403608802944846*^9, 3.403608830194336*^9}, {3.405093033610915*^9, 3.4050930513651333`*^9}, {3.4050931166458073`*^9, 3.405093141326268*^9}, { 3.4050932163756037`*^9, 3.4050932303590717`*^9}, {3.40509326894803*^9, 3.405093307271649*^9}}, ImageRegion->{{0, 1}, {0, 1}}, FontSize->14, CellLabel->"In[56]:="], Cell[TextData[{ StyleBox[" FUNDAMENTAL QUESTIONS:", FontSize->18, FontVariations->{"Outline"->True, "Shadow"->True}, FontColor->RGBColor[1, 0, 0]], StyleBox[" \n What is a key relationship between \n \ the two functions", FontSize->18, FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontSize->18, FontColor->RGBColor[0, 0, 1]], StyleBox["f ", FontFamily->"Courier", FontSize->18, FontWeight->"Bold"], StyleBox[" and", FontSize->18, FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontSize->18, FontColor->RGBColor[0, 0, 1]], StyleBox["A", FontFamily->"Courier", FontSize->18, FontWeight->"Bold"], StyleBox["?\n \n How and when can this \ relationship be used to find \n the exact value of a \ definite integral?", FontSize->18, FontColor->RGBColor[1, 0, 0]], StyleBox["\n ", FontFamily->"Courier", FontWeight->"Bold"] }], "Text", Editable->False, ImageRegion->{{0, 1}, {0, 1}}, Background->GrayLevel[0.899992]], Cell[TextData[{ "\n", StyleBox["The End.", FontFamily->"Courier", FontSlant->"Italic", FontVariations->{"Outline"->True}, FontColor->RGBColor[0, 0, 1]], StyleBox["", FontFamily->"Courier", FontSlant->"Italic", FontVariations->{"Outline"->True}] }], "Text", Editable->False, ImageRegion->{{0, 1}, {0, 1}}, FontSize->18] }, Closed]] }, AutoGeneratedPackage->Automatic, WindowToolbars->{}, CellGrouping->Manual, WindowSize->{724, 728}, WindowMargins->{{50, Automatic}, {Automatic, 19}}, PrivateNotebookOptions->{"ColorPalette"->{RGBColor, -1}}, ShowCellLabel->True, ShowCellTags->False, RenderingOptions->{"ObjectDithering"->True, "RasterDithering"->False}, FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (April 20, 2007)", StyleDefinitions->"Textbook.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 244, 8, 109, "Title"], Cell[837, 33, 320, 12, 99, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[1194, 50, 239, 9, 62, "Section"], Cell[1436, 61, 5375, 207, 346, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[6848, 273, 316, 11, 62, "Section"], Cell[7167, 286, 2394, 87, 264, "Text"], Cell[9564, 375, 5370, 176, 521, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[14971, 556, 327, 10, 87, "Section"], Cell[15301, 568, 1555, 51, 76, "Text"], Cell[16859, 621, 2283, 74, 207, "Text", Evaluatable->True], Cell[19145, 697, 1047, 38, 202, "Text"], Cell[20195, 737, 338, 14, 55, "Text"] }, Closed]] } ] *) (* End of internal cache information *)