Cell[CellGroupData[{Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Column", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\\"", ",", "deg"}], "}"}], "]"}], ",", "\"\\"", ",", "12"}], "]"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "@", RowBox[{"{", RowBox[{ RowBox[{"func", "/.", RowBox[{"x", "->", "t"}]}], ",", RowBox[{"MakeSeriesFunction", "[", RowBox[{"func", ",", "x", ",", "deg", ",", "pt"}], "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", " ", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"PlotRange", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"GrayLevel", "[", RowBox[{".25", ",", ".85"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0", ",", ".9", ",", ".8"}], "]"}], "}"}]}], "}"}]}], ",", RowBox[{"Filling", "->", " ", RowBox[{"{", RowBox[{"1", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"{", "2", "}"}], ",", RowBox[{"Directive", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", ".1", "]"}], ",", "Green"}], "}"}], "]"}]}], "}"}]}], "}"}]}], ",", RowBox[{"Epilog", "->", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"PointSize", "[", ".02", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"pt", ",", RowBox[{"func", "/.", RowBox[{"x", "->", "pt"}]}]}], "}"}], "]"}], ",", "Blue", ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"pt", ",", "0"}], "}"}], "]"}], ",", RowBox[{"Dashing", "[", RowBox[{"{", ".01", "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"pt", ",", RowBox[{"func", "/.", RowBox[{"x", "->", "pt"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"pt", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}]}], ",", RowBox[{"ImageSize", "->", RowBox[{"{", RowBox[{"500", ",", "350"}], "}"}]}]}], "]"}]}], "}"}], ",", "Center"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"deg", ",", "10", ",", "\"\\""}], "}"}], ",", "1", ",", "24", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"pt", ",", "0", ",", "\"\\""}], "}"}], ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"func", ",", RowBox[{"Sin", "[", "x", "]"}], ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Sin", "[", "x", "]"}], "->", RowBox[{"TraditionalForm", "[", RowBox[{"Sin", "[", "x", "]"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"x", "*", "2"}], "]"}], "/", RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}]}], "->", RowBox[{"TraditionalForm", "[", RowBox[{ RowBox[{"Cos", "[", RowBox[{"x", "*", "2"}], "]"}], "/", RowBox[{"(", RowBox[{"x", "+", "1"}], ")"}]}], "]"}]}], ",", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}], "->", RowBox[{"TraditionalForm", "[", RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}]}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"E", "^", "x"}], "/", "100"}], "->", RowBox[{"TraditionalForm", "[", RowBox[{ RowBox[{"E", "^", "x"}], "/", "100"}], "]"}]}], ",", RowBox[{ RowBox[{"2", " ", SuperscriptBox["E", RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "x"}], ")"}], "2"]}]]}], "->", RowBox[{"TraditionalForm", "[", RowBox[{"2", " ", SuperscriptBox["E", RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "x"}], ")"}], "2"]}]]}], "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"SaveDefinitions", "->", "True"}], ",", RowBox[{"Initialization", ":>", RowBox[{"{", RowBox[{ RowBox[{"MakeSeriesFunction", "[", RowBox[{"fn_", ",", "var_", ",", "deg_", ",", "pt_"}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "wrkfn", "}"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"wrkfn", "[", "tt_", "]"}], "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Head", "[", "fn", "]"}], "===", "Symbol"}], "&&", RowBox[{"fn", "=!=", "var"}]}], ",", RowBox[{"fn", "[", "tt", "]"}], ",", RowBox[{"fn", "/.", RowBox[{"var", ":>", "tt"}]}]}], "]"}]}], ";", " ", " ", RowBox[{"Normal", "@", RowBox[{"Series", "[", RowBox[{ RowBox[{"wrkfn", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "pt", ",", "deg"}], "}"}]}], "]"}]}]}]}], " ", "]"}]}], "}"}]}]}], "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{ 3.35368165734581*^9, {3.35368171633732*^9, 3.35368175997859*^9}, { 3.35368192382756*^9, 3.3536819239556*^9}, {3.35368276459353*^9, 3.35368279510866*^9}, {3.35368321079056*^9, 3.35368324817325*^9}, { 3.35368328223037*^9, 3.35368328489484*^9}, {3.35385849180621*^9, 3.35385849712709*^9}, {3.35473160141523*^9, 3.35473160961735*^9}, { 3.35489447661358*^9, 3.35489448605697*^9}, {3.3555822207425*^9, 3.35558222139343*^9}, 3.35558298497141*^9, {3.3555830182793*^9, 3.35558311874376*^9}, 3.35575780172841*^9, 3.35575831281332*^9, 3.35575919569284*^9, {3.35810001968075*^9, 3.3581000943934*^9}, { 3.3585348070613*^9, 3.35853493921792*^9}, {3.36249715788866*^9, 3.36249715811841*^9}, {3.372782562485803*^9, 3.372782564338467*^9}, {3.3727826112859745`*^9, 3.3727826116064353`*^9}, {3.3727826456654096`*^9, 3.372782648629672*^9}, {3.379355684158656*^9, 3.3793557867461696`*^9}, {3.382458652349497*^9, 3.3824586562648625`*^9}, {3.3845311573625665`*^9, 3.384531157753128*^9}, {3.4136620021462126`*^9, 3.413662015536666*^9}, 3.760813889646298*^9}, CellID->1496021318], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`deg$$ = 10, $CellContext`func$$ = Sin[$CellContext`x], $CellContext`pt$$ = 0, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`deg$$], 10, "series degree"}, 1, 24, 1}, {{ Hold[$CellContext`pt$$], 0, "expansion point"}, 0, 2 Pi}, {{ Hold[$CellContext`func$$], Sin[$CellContext`x], "function"}, { Sin[$CellContext`x] -> TraditionalForm[ Sin[$CellContext`x]], (1 + $CellContext`x)^(-1) Cos[2 $CellContext`x] -> TraditionalForm[(1 + $CellContext`x)^(-1) Cos[2 $CellContext`x]], (1 + $CellContext`x)^(-1) -> TraditionalForm[(1 + $CellContext`x)^(-1)], Rational[1, 100] E^$CellContext`x -> TraditionalForm[Rational[1, 100] E^$CellContext`x], 2 E^(-(-3 + $CellContext`x)^2) -> TraditionalForm[2 E^(-(-3 + $CellContext`x)^2)]}}}, Typeset`size$$ = {500., {181., 186.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`deg$232555$$ = 0, $CellContext`pt$232556$$ = 0, $CellContext`func$232557$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`deg$$ = 10, $CellContext`func$$ = Sin[$CellContext`x], $CellContext`pt$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`deg$$, $CellContext`deg$232555$$, 0], Hold[$CellContext`pt$$, $CellContext`pt$232556$$, 0], Hold[$CellContext`func$$, $CellContext`func$232557$$, False]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Column[{ Style[ Row[{"series degree = ", $CellContext`deg$$}], "Label", 12], Plot[ Evaluate[{ ReplaceAll[$CellContext`func$$, $CellContext`x -> \ $CellContext`t], $CellContext`MakeSeriesFunction[$CellContext`func$$, \ $CellContext`x, $CellContext`deg$$, $CellContext`pt$$]}], \ {$CellContext`t, 0, 2 Pi}, PlotRange -> {{0, 2 Pi}, {-2, 2}}, PlotStyle -> {{ GrayLevel[0.25, 0.85]}, { RGBColor[0, 0, 0.9, 0.8]}}, Filling -> {1 -> {{2}, Directive[{ Opacity[0.1], Green}]}}, Epilog -> {Red, PointSize[0.02], Point[{$CellContext`pt$$, ReplaceAll[$CellContext`func$$, $CellContext`x -> \ $CellContext`pt$$]}], Blue, Point[{$CellContext`pt$$, 0}], Dashing[{0.01}], Line[{{$CellContext`pt$$, ReplaceAll[$CellContext`func$$, $CellContext`x -> \ $CellContext`pt$$]}, {$CellContext`pt$$, 0}}]}, ImageSize -> {500, 350}]}, Center], "Specifications" :> {{{$CellContext`deg$$, 10, "series degree"}, 1, 24, 1}, {{$CellContext`pt$$, 0, "expansion point"}, 0, 2 Pi}, {{$CellContext`func$$, Sin[$CellContext`x], "function"}, { Sin[$CellContext`x] -> TraditionalForm[ Sin[$CellContext`x]], (1 + $CellContext`x)^(-1) Cos[2 $CellContext`x] -> TraditionalForm[(1 + $CellContext`x)^(-1) Cos[2 $CellContext`x]], (1 + $CellContext`x)^(-1) -> TraditionalForm[(1 + $CellContext`x)^(-1)], Rational[1, 100] E^$CellContext`x -> TraditionalForm[Rational[1, 100] E^$CellContext`x], 2 E^(-(-3 + $CellContext`x)^2) -> TraditionalForm[2 E^(-(-3 + $CellContext`x)^2)]}}}, "Options" :> {}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{545., {259., 265.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({{$CellContext`MakeSeriesFunction[ Pattern[$CellContext`fn, Blank[]], Pattern[$CellContext`var, Blank[]], Pattern[$CellContext`deg, Blank[]], Pattern[$CellContext`pt, Blank[]]] := Module[{$CellContext`wrkfn}, $CellContext`wrkfn[ Pattern[$CellContext`tt, Blank[]]] = If[ And[ Head[$CellContext`fn] === Symbol, $CellContext`fn =!= $CellContext`var], $CellContext`fn[$CellContext`tt], ReplaceAll[$CellContext`fn, $CellContext`var :> \ $CellContext`tt]]; Normal[ Series[ $CellContext`wrkfn[$CellContext`t], {$CellContext`t, \ $CellContext`pt, $CellContext`deg}]]], Attributes[PlotRange] = { ReadProtected}}; {$CellContext`MakeSeriesFunction[ Pattern[$CellContext`fn, Blank[]], Pattern[$CellContext`var, Blank[]], Pattern[$CellContext`deg, Blank[]], Pattern[$CellContext`pt, Blank[]]] := Module[{$CellContext`wrkfn}, $CellContext`wrkfn[ Pattern[$CellContext`tt, Blank[]]] = If[ And[ Head[$CellContext`fn] === Symbol, $CellContext`fn =!= $CellContext`var], $CellContext`fn[$CellContext`tt], ReplaceAll[$CellContext`fn, $CellContext`var :> \ $CellContext`tt]]; Normal[ Series[ $CellContext`wrkfn[$CellContext`t], {$CellContext`t, \ $CellContext`pt, $CellContext`deg}]]]}}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{3.760813889646566*^9}, CellID->680073135] }, {2}]]