(* 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[ 15624, 460] NotebookOptionsPosition[ 14487, 417] NotebookOutlinePosition[ 14925, 434] CellTagsIndexPosition[ 14882, 431] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Maclaurin Series", "Title", CellChangeTimes->{{3.388695677772449*^9, 3.3886956789273643`*^9}, { 3.388695755173869*^9, 3.388695765053965*^9}, {3.3886958767998133`*^9, 3.3886958813869343`*^9}, {3.6934362332827387`*^9, 3.693436234069241*^9}}, TextAlignment->Center], Cell["\<\ by Ruth Dover Illinois Mathematics and Science Academy\ \>", "Subsubtitle", CellChangeTimes->{{3.693436262116078*^9, 3.693436272837287*^9}}], Cell["Just evaluate the cell in each section and use the slider!", "Text", CellChangeTimes->{{3.693436309119081*^9, 3.6934363232834044`*^9}}], Cell[CellGroupData[{ Cell["sin(x)", "Section", CellChangeTimes->{{3.388696148113955*^9, 3.388696150656672*^9}}], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Grid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], ",", " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "n"], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "k"], " ", FractionBox[ SuperscriptBox["x", RowBox[{ RowBox[{"2", "k"}], "+", "1"}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "k"}], "+", "1"}], ")"}], "!"}]]}]}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "14"}], ",", " ", "14"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", " ", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}]}], ",", " ", RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"Style", "[", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "n"], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "k"], " ", FractionBox[ SuperscriptBox["x", RowBox[{ RowBox[{"2", "k"}], "+", "1"}]], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "k"}], "+", "1"}], ")"}], "!"}]]}]}], ",", " ", "Purple", ",", RowBox[{"FontSize", "\[Rule]", "18"}]}], "]"}], "}"}]}], "}"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"n", ",", "0", ",", " ", "14", ",", " ", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.388696079861883*^9, 3.388696084493134*^9}, { 3.388696138744604*^9, 3.388696139139649*^9}, {3.388696227888083*^9, 3.388696376944003*^9}, {3.388752803822287*^9, 3.388752818099328*^9}, { 3.388754694882484*^9, 3.3887547116109247`*^9}, {3.388754760037979*^9, 3.3887547866269407`*^9}, {3.388754932246276*^9, 3.388754961826948*^9}, { 3.3887550867046947`*^9, 3.388755114822114*^9}, {3.476295474082464*^9, 3.476295487266255*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["cos(x)", "Section", CellChangeTimes->{{3.388696157802554*^9, 3.388696161637381*^9}}], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Grid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "x", "]"}], ",", " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "n"], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "k"], " ", FractionBox[ SuperscriptBox["x", RowBox[{"2", "k"}]], RowBox[{ RowBox[{"(", RowBox[{"2", "k"}], ")"}], "!"}]]}]}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "14"}], ",", " ", "14"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", " ", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", " ", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}]}], ",", " ", RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"Style", "[", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "n"], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "k"], " ", FractionBox[ SuperscriptBox["x", RowBox[{"2", "k"}]], RowBox[{ RowBox[{"(", RowBox[{"2", "k"}], ")"}], "!"}]]}]}], ",", " ", "Purple", ",", RowBox[{"FontSize", "\[Rule]", "18"}]}], "]"}], "}"}]}], "}"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"n", ",", " ", "0", ",", " ", "14", ",", " ", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.388696410146566*^9, 3.3886964924296417`*^9}, { 3.394919533972176*^9, 3.394919637835033*^9}, {3.3949199380698557`*^9, 3.3949199437021112`*^9}, {3.394919997561315*^9, 3.394920025470153*^9}, { 3.39492006283214*^9, 3.394920169208159*^9}, {3.394920582318671*^9, 3.394920600057938*^9}, {3.394920775342388*^9, 3.3949208346578712`*^9}, 3.394920876670404*^9, {3.476295496623598*^9, 3.476295515811348*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ SuperscriptBox["\[ExponentialE]", "x"]], "Section", CellChangeTimes->{{3.388696212652666*^9, 3.38869621593437*^9}}], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Grid", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ SuperscriptBox["\[ExponentialE]", "x"], ",", " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "n"], " ", FractionBox[ SuperscriptBox["x", "k"], RowBox[{"k", "!"}]]}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "3"}], ",", " ", "3"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", " ", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "20"}], "}"}]}], ",", " ", RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"Style", "[", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "n"], " ", FractionBox[ SuperscriptBox["x", "k"], RowBox[{"k", "!"}]]}], ",", " ", "Purple", ",", RowBox[{"FontSize", "\[Rule]", "18"}]}], "]"}], "}"}]}], "}"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"n", ",", " ", "0", ",", "7", ",", " ", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.388696536815669*^9, 3.388696578359886*^9}, { 3.388696655323537*^9, 3.3886967452390137`*^9}, {3.3949209032043943`*^9, 3.394920985523271*^9}, 3.394921023602295*^9, {3.4762955228324623`*^9, 3.4762955434112387`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FractionBox["1", RowBox[{"1", "-", "x"}]]], "Section", CellChangeTimes->{{3.3886961896954327`*^9, 3.388696194188223*^9}}], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Grid", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["1", RowBox[{"1", "-", "x"}]], ",", " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "n"], " ", SuperscriptBox["x", "k"]}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1.5"}], ",", "1", ",", " ", "1.5"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", " ", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", " ", "8"}], "}"}]}], ",", " ", RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"Style", "[", " ", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "n"], " ", SuperscriptBox["x", "k"]}], ",", " ", "Purple", ",", RowBox[{"FontSize", "\[Rule]", "18"}]}], "]"}], "}"}]}], "}"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"n", ",", " ", "0", ",", " ", "12", ",", " ", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.388696763009267*^9, 3.388696783115601*^9}, { 3.388696844667221*^9, 3.3886969006182747`*^9}, {3.3886973757917*^9, 3.3886973779041224`*^9}, {3.3949210489589653`*^9, 3.394921112426632*^9}, { 3.476295550545868*^9, 3.476295566429502*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["ln (1 + x)", "Section", CellChangeTimes->{{3.3886961757075653`*^9, 3.388696180204805*^9}}], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Grid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Log", "[", RowBox[{"1", "+", "x"}], "]"}], ",", " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"k", "+", "1"}]], " ", FractionBox[ SuperscriptBox["x", "k"], "k"]}]}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1.5"}], ",", " ", "1.5"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", " ", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "2.5"}], ",", " ", "2"}], "}"}]}], ",", " ", RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"Style", "[", " ", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"k", "+", "1"}]], " ", FractionBox[ SuperscriptBox["x", "k"], "k"]}]}], ",", " ", "Purple", ",", " ", RowBox[{"FontSize", "\[Rule]", "18"}]}], "]"}], "}"}]}], "}"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"n", ",", " ", "1", ",", " ", "10", ",", " ", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.388695733914707*^9, 3.3886957387658043`*^9}, { 3.388695778881987*^9, 3.3886958297503777`*^9}, {3.388695903267314*^9, 3.388696044434368*^9}, {3.394921152668064*^9, 3.3949212070999613`*^9}, { 3.476295577043725*^9, 3.4762955895927258`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["arctan (x)", "Section", CellChangeTimes->{{3.388696934193091*^9, 3.388696938952071*^9}}], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Grid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"ArcTan", "[", "x", "]"}], ",", " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "n"], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "k"], " ", FractionBox[ SuperscriptBox["x", RowBox[{ RowBox[{"2", "k"}], "+", "1"}]], RowBox[{ RowBox[{"2", "k"}], "+", "1"}]]}]}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "4"}], ",", " ", "4"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", " ", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "2.5"}], ",", " ", "2.5"}], "}"}]}], ",", " ", RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"Style", "[", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "n"], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "k"], " ", FractionBox[ SuperscriptBox["x", RowBox[{ RowBox[{"2", "k"}], "+", "1"}]], RowBox[{ RowBox[{"2", "k"}], "+", "1"}]]}]}], ",", " ", "Purple", ",", RowBox[{"FontSize", "\[Rule]", "18"}]}], "]"}], "}"}]}], "}"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"n", ",", " ", "0", ",", " ", "8", ",", " ", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.388695733914707*^9, 3.3886957387658043`*^9}, { 3.388695778881987*^9, 3.3886958297503777`*^9}, {3.388695903267314*^9, 3.388696044434368*^9}, {3.3886969902720327`*^9, 3.388697026003148*^9}, { 3.388697062882312*^9, 3.388697114895501*^9}, {3.394921221975368*^9, 3.394921274094002*^9}, {3.476295661304434*^9, 3.476295673013071*^9}}] }, Open ]] }, Open ]] }, WindowSize->{887, 728}, WindowMargins->{{214, Automatic}, {Automatic, 13}}, PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}}, 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[567, 22, 275, 4, 92, "Title"], Cell[845, 28, 151, 4, 49, "Subsubtitle"], Cell[999, 34, 142, 1, 30, "Text"], Cell[CellGroupData[{ Cell[1166, 39, 91, 1, 64, "Section"], Cell[1260, 42, 2541, 68, 200, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[3838, 115, 91, 1, 64, "Section"], Cell[3932, 118, 2374, 62, 201, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[6343, 185, 131, 2, 68, "Section"], Cell[6477, 189, 1676, 44, 144, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[8190, 238, 140, 3, 86, "Section"], Cell[8333, 243, 1620, 41, 142, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[9990, 289, 97, 1, 64, "Section"], Cell[10090, 292, 2001, 54, 172, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[12128, 351, 95, 1, 64, "Section"], Cell[12226, 354, 2233, 59, 172, "Input"] }, Open ]] }, Open ]] } ] *)