(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      5878,        182]
NotebookOptionsPosition[      5031,        148]
NotebookOutlinePosition[      5423,        165]
CellTagsIndexPosition[      5380,        162]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 StyleBox[
  RowBox[{"Error", " ", "in", " ", "Taylor", " ", "Approximations"}], 
  "Subsubtitle"]], "Input",
 CellChangeTimes->{{3.45976700042211*^9, 3.459767008704324*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
  SuperscriptBox["\[ExponentialE]", "x"]}]], "Input",
 CellChangeTimes->{{3.459767022247273*^9, 3.45976706521236*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"p", "[", 
   RowBox[{"n_", ",", "x_"}], "]"}], " ", ":=", " ", 
  RowBox[{"1", " ", "+", " ", 
   RowBox[{
    UnderoverscriptBox["\[Sum]", 
     RowBox[{"i", "=", "1"}], "n"], 
    FractionBox[
     SuperscriptBox["x", "i"], 
     RowBox[{"i", "!"}]]}]}]}]], "Input",
 CellChangeTimes->{{3.459767074348053*^9, 3.459767114294279*^9}, {
  3.459767191681061*^9, 3.459767197830935*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"e", "[", 
   RowBox[{"n_", ",", "x_"}], "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], " ", "-", " ", 
   RowBox[{"p", "[", 
    RowBox[{"n", ",", "x"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.4597671329462633`*^9, 3.459767158852942*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"e", "[", 
  RowBox[{"2", ",", "0"}], "]"}]], "Input",
 CellChangeTimes->{{3.4597671653089848`*^9, 3.4597671714849586`*^9}}],

Cell[BoxData[
 FormBox["0", TraditionalForm]], "Output",
 CellChangeTimes->{3.4597671726776123`*^9, 3.4597672150403967`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"e", "[", 
   RowBox[{"2", ",", "2"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.459767220165106*^9, 3.459767239743124*^9}}],

Cell[BoxData[
 FormBox["2.3890560989306504`", TraditionalForm]], "Output",
 CellChangeTimes->{{3.459767228614175*^9, 3.459767241925067*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"e", "[", 
    RowBox[{"n", ",", "2"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "2", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.45976724908885*^9, 3.459767285185207*^9}, {
  3.459767339261393*^9, 3.459767339331233*^9}}],

Cell[BoxData[
 FormBox[
  GraphicsBox[{{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxFynk41HkAx/HfzDQxVMZkxpEc49h11NTspoYyPzrRtMk4mo0ktm23Itls
crWIbKTS8RBN5dlKHmqT3VaOelpk0aEVUVZqQq1jq1mZaWz7z/fzx+d5P6/n
+dhGRK+LYlIUdfDj/u+D+kH+x9Abqi/uvGPJosu/F8tblPCBeXuPnPRiELu6
vOV7FjOJ+6V5r5r6WcR++R4To0I2sXJXm5Fj0lRieczFpVet9Ij1t6fH0/Ww
bPmOYWEHfGR2SBT7NVxylMdKHoOvcVqVajXckJLpGa2FO9959bxk6NORtrqc
Jc9HpRN9VaZd0+DZbS4BzabwheRJ+tBSWCxqnyuPhlflJRg8bYBDx2xVW6w4
xOEB4xLfZjjyWluO624D4uSjxZkdVYbEGdrArBzedOLTKfO6nYJnELM3OZxZ
oYa/9bbYsvmYEbFwW5zkYD3ceazN8Nor2Kjb3NFiDF5hE0WnqOGkqMuK5xpY
8WfSbyUUl/7rsSzHT9UpPWxx5yFnKty00WRkhyHsNlRqJxHA5+K8Qli2sKK4
0Nl1NWzc9E4rj4enPBOrexvhfzXRI9+YGRMHvAuN0muEs3Lb42NjecSNlYrP
1vJmEp917lzH3AonKgNjK+vgfFHwFyPtcFltiKvzALxof1fByn/g2zIFJ0oL
n0+ZiHytg7OvFNTvYpjQ9CdvRgflddLt/e6WGha8lt8d/8NUWLBnluiwIdzT
86XqNBeepglT8iWwh3mE4sdNcNAiIdf9OhwT/Oz3AS6fOHnBUKtJDXxcyUq5
Giogtr+fd7XT0JR4VBR+1j4UvpErOhxTDps5Xhf5dsBxNd5tdjp4KMjl6zOU
GZ26e3OlxvGMNHx0JtOaBXcc0BaeYsN+di8WWOjDbkFVW/nTYeGBzCIuD34/
7MTWs4TvyVu2fXCAk22MFw9J4DmvAw0fyWDlB2G2rAQ2MRrVvz0Bs+sKK+xO
mRNv+7y6i+NnQVzmE6GsVcPqVxZc1fFZxCq26qD/LbjD+gqn5m/YJM13j/Mb
eJ2qf+DEODx24rJyjQbO80kKYetgkcaHe4OypKmT2UXlJ1OlbWWCplgW7LvL
57xsBtwgSdz/qTlc29C37OlcuCpgJSt/GTxrzVf+Jcfg1FUZpytVsPCJb+e5
jNnEHgvT883FVsShVnffM9phdXPOs5h91sRhXYyVTqVw48vvLvU9gLXDFU+W
vITnqQeNCjSwYOH84w46WOexODeEsqEpek3629oN0tiejf7FDPhFYprJcybc
UtNcEM2Gf9YZ22r04JRU5RzedHg1U+TuxIMvjd9ezneHDUYU/owIOK2WLj31
K7xPXhG8k2NL7N76aAVnE9zLX5au/wtcuv7mBcEfcFyRZ6t9L7xemtTrMgh7
9lWPid/A88XdCW7jsH3aBMv9Axwe7K1K0MFFLtlN1ZPw48n7pVpKSFPU071L
092kgofmOUuYcF7iRf+6KTDHQSLw0oO1RVyqTgwPCwYGF4fBIXetebEVcEVw
YdaMSfjmrXv0jkA7/N/myvR+gnneBiWsdrjlUMbE5CT8H2Au6i8=
      "]]}},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->True,
   AxesOrigin->{2., 0},
   PlotRange->{{2, 10}, {0., 2.3890560989306504`}},
   PlotRangeClipping->True,
   PlotRangePadding->{
     Scaled[0.02], 
     Scaled[0.02]}], TraditionalForm]], "Output",
 CellChangeTimes->{{3.4597673332563667`*^9, 3.459767340684937*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"e", "[", 
   RowBox[{"10", ",", "2"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.459767369171534*^9, 3.459767379731935*^9}}],

Cell[BoxData[
 FormBox["0.00006138993594184683`", TraditionalForm]], "Output",
 CellChangeTimes->{3.459767380494926*^9}]
}, Open  ]]
},
WindowSize->{640, 750},
WindowMargins->{{4, Automatic}, {Automatic, 4}},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 188, 4, 31, "Input"],
Cell[736, 26, 192, 4, 29, "Input"],
Cell[931, 32, 418, 12, 58, "Input"],
Cell[1352, 46, 298, 8, 27, "Input"],
Cell[CellGroupData[{
Cell[1675, 58, 147, 3, 27, "Input"],
Cell[1825, 63, 124, 2, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1986, 70, 172, 4, 27, "Input"],
Cell[2161, 76, 140, 2, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2338, 83, 308, 8, 27, "Input"],
Cell[2649, 93, 2033, 39, 242, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4719, 137, 173, 4, 27, "Input"],
Cell[4895, 143, 120, 2, 27, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)