(* 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[     18961,        397]
NotebookOptionsPosition[     18337,        371]
NotebookOutlinePosition[     18675,        386]
CellTagsIndexPosition[     18632,        383]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{"Log", "[", 
   RowBox[{"1", " ", "+", " ", "x"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"p", "[", 
   RowBox[{"x_", ",", "n_"}], "]"}], " ", ":=", " ", 
  RowBox[{
   UnderoverscriptBox["\[Sum]", 
    RowBox[{"i", "=", "1"}], "n"], 
   FractionBox[
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"-", "1"}], ")"}], 
      RowBox[{"i", "-", "1"}]], 
     SuperscriptBox["x", "i"]}], "i"]}]}]}], "Input",
 CellChangeTimes->{{3.462097565821148*^9, 3.462097647854701*^9}, {
  3.462097819732067*^9, 3.462097819873995*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"f", "[", "x", "]"}], ",", 
       RowBox[{"p", "[", 
        RowBox[{"x", ",", "n"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", ".8"}], ",", "1.2"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.2"}], ",", "1.2"}], "}"}]}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", "Thick"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "1", ",", "40", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.462097662140326*^9, 3.462097799441124*^9}, {
  3.462097861605836*^9, 3.462097906805353*^9}, {3.462098059052725*^9, 
  3.462098086107203*^9}, {3.4620981630485573`*^9, 3.462098228935423*^9}}],

Cell[BoxData[
 FormBox[
  TagBox[
   FormBox[
    StyleBox[
     DynamicModuleBox[{$CellContext`n$$ = 29, Typeset`show$$ = True, 
      Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
      Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
      "\"untitled\"", Typeset`specs$$ = {{
        Hold[$CellContext`n$$], 1, 40, 1}}, Typeset`size$$ = {
      360., {109., 114.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
      Typeset`skipInitDone$$ = True, $CellContext`n$3772$$ = 0}, 
      DynamicBox[Manipulate`ManipulateBoxes[
       1, TraditionalForm, "Variables" :> {$CellContext`n$$ = 1}, 
        "ControllerVariables" :> {
          Hold[$CellContext`n$$, $CellContext`n$3772$$, 0]}, 
        "OtherVariables" :> {
         Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
          Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
          Typeset`specs$$, Typeset`size$$, Typeset`update$$, 
          Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot[{
           $CellContext`f[$CellContext`x], 
           $CellContext`p[$CellContext`x, $CellContext`n$$]}, \
{$CellContext`x, -0.8, 1.2}, PlotRange -> {-1.2, 1.2}, PlotStyle -> Thick], 
        "Specifications" :> {{$CellContext`n$$, 1, 40, 1}}, "Options" :> {}, 
        "DefaultOptions" :> {}],
       ImageSizeCache->{403., {153.40625, 159.59375}},
       SingleEvaluation->True],
      Deinitialization:>None,
      DynamicModuleValues:>{},
      SynchronousInitialization->True,
      UnsavedVariables:>{Typeset`initDone$$},
      UntrackedVariables:>{Typeset`size$$}], "Manipulate",
     Deployed->True,
     StripOnInput->False],
    TraditionalForm],
   Manipulate`InterpretManipulate[1]], TraditionalForm]], "Output",
 CellChangeTimes->{{3.462097804550455*^9, 3.4620978240480127`*^9}, 
   3.4620978679331408`*^9, 3.4620979082952414`*^9, 3.462098089548959*^9, 
   3.462098230421097*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"e", "[", "n_", "]"}], " ", ":=", " ", 
  FractionBox["1", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", "n"}], " ", "+", " ", "1"}], ")"}], "!"}]]}]], "Input",
 CellChangeTimes->{{3.462098719345067*^9, 3.46209876594388*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"e", "[", "n", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "0", ",", "15"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4620987693588448`*^9, 3.462098783175972*^9}}],

Cell[BoxData[
 FormBox[
  GraphicsBox[{{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVl3c81f8Xx8ve47ruvS6ukRWuysq4n/fnmFmRkqxEpRLJiKwysyvhmwgJ
KTPKyCiikKKMzJIZGqgoivz6/fM+j/PP63le5/F+n8d5Sx09u9+NacuWLf8/
/h8nnMms9RtMkPdK4vYBhaP4d3n1nAg2ZlBw/Gha/8EVr6gVn0gVYIaYx2mc
Y5ddcfrg0olHMszgnf9z774FF1yOlO67dS8zrAsrb42+eAQnp03Fp2YzQ4eO
3RtnbUecolQdvVrIDN8T+TfjWx1waktM2OEKZnChG6dnWTngtKXt/vKtzGDx
kMPO4Yw9Lmvh7dIwxwxn+vIZXk8O4XJTeo6S35mB6QyFzHXoEK4QLGR76Q8z
pHjkltt8s8WV79WYW/GxwBdf39ujira4GsuG5pQaC/wus69cr7DB1W927zLB
WOAAW8m4va0Nrqmaq1xmzAJ72QIs1TYO4DouBtLn7VkgQGDdzsDqAK7XGM/L
HcYCun+5+LVY9uNW50jTqp0ssI/JMcHL3grfxz03lt7HAs4mJ+9Edlvi+/Pq
htffsYCfz+eoGSNL3PaN0+u2RRagxss5+uruxQ8r59c7CLPCbM7b1hIwx51b
z1U30VhhzeflXq12M9zFwbhCRoEVjkTbP3plZYYfj5u/s6DDClbvd6h9OWGK
e0zvuBbpwgozLMcfyJbuwT1DtibNuv/Tc35nJaC/B/ci9MVY+LGCQs+Wn63D
xrgvBISSYlhBbFflNnc+Yzwoq/FkcQkrJM9evD6daIjH2pii3p+ssL1fQOFZ
jx5OreqmMm1lg9vtvHHmwXp4uZDNr13cbFDMeeyMt4wePtDrXHFNgg2EphKr
/S8ALmN9TtrahA20HZbG90ch/FHF2t/w/WxgW4lyyr9guIVA2GiFExt00q7q
DtphuN/r+DQBHzaYe8Mwd9Jm4C17b7G9yWAD3tuvOcZEdHDbMpmpzXw2iGDN
jdpzQxv/xFPctKOcDR5PhZeLi2jjgq+qAq+2sMHDWudnU1JauItZ5yfLz2xg
SryiXGKpiW8Yr3R3Mdjh9TWvU4d51PDkwuCSDWN2kF1xOd9UqorLsG2Jo1uz
w7Xb98y/WariFs+59C67scMJ1vbivBu78EwDyYcWV9ih6niKmD3sxFXy71wN
vcEOAQO6BsXvduAtTEqepXnsYD0u3d6iuwOff6ohy1PLDs76Qf1UZhVcC8zT
X35gh3PDuibvqpTwV7fe+P2ZZwfloFMJ5gpKuMvmwX1Ky+wwGO815ZmjiMc+
ceFM5OCA7wMMudSU7fgAIyDEbBcHoOpjTuQMedxP+/aRF5EcsLTsGLtGlMHN
cvmWzZM4YEpz/Mybqm24NHtoXPd/HHBrxuSim+02/E2/bWXfPQ6IWx8ULMmR
xlW8eZjHujlA6nj3dI++FM46GJTuMsQBfh8GuNoXJfF32KzS1AQHnDqdnYDn
SOKJ3C02c8sc8E2g4gfalMDnCs8XfqdywuoPq13theJ4E++Mjr8MJ0zbavgH
kMXx6+f2v/5F54S7/NKPnieI4Ub69NV14ATJV8ZzxCBRPO/9pCn7SU5gclVu
1/ATwZ2Ill9FH3JCbV6YAa1fGFcLaYjIaeSE913PXxe6C+NckwokqTZOCC5o
rZTfKozX3WfG5YY54Wu9Q9yCBhEnmdcl79z8x6vKjs6uJuBfK+VkH3JwQfGZ
woJlewL+jJJWp0HgApp1gtSWLQTc76PXpI4sF4QOf/lKtBbE30TIqBuZc4Fg
qKv3UTYB/O7ctY52Gy740tyhKXCWH79otelk5swFfV8usFv28+F08ZFLVj5c
sJHW33j6Li+e8OjqoH06F3TQdTnrvLhxw8XfwV5TXKCuvWdyNoAdDzJJU3z6
hQuMlu7JP2Jhx8tv00eEfnIBn2SS5p00Npxi46Jdx8ENa3cjBe/Xs+JfHj3/
xazCDZxGG1mhNBZcinDkru1ubrhUtG1YuZEZt/VYtS0CbtAxIL6tcGTGm8WV
aiwPcIP9vc3zhFwmPDUy+VxGIDc8K9171h7bineMbpf5EsENB1xe3Wqd24Kv
q7f2oURuWFCmC7f8twU/MbuiOp3NDR9Sfxo9nttEOhaO31RaueEJzWZfXswG
mhSW83rGywOHbDMVyg3XEPlskziZzAO3Q2N1q9tXkUWHXZe7JA8wD776Qtq7
imqCE5X51XggwqIJf+L8CyV8WPpkb8cDwYeu/fHLWkFNWgmZpa488OPo3i+y
u1bQ8rVtZpuneaD+SXTCh/Zl5GxoW1RwgQd88C1PDf78QKpFDScX83jgWLIC
3+vA7+gk00GyfikPrGp9kG8U+46yHBfa0qp5oLTGVdi95Rti45OS0+ngAYbh
rsAJwjc04hszHf2VBx6dv1I1emURRTCsXalavLDOrndofukTMnHO+b5bnxf2
tzVRdzt/Qnzhn6MOWvBCwru1xeTueZTVeqkw2YUXUtxXWBQfzaFHZvWf2eJ5
YS5SydK87CMK82S/IJPKC3GCAgP7dn1Exlds+PSzecFzxT31S+0M6u9Z2Hmh
khdad/0Vq3w1jZbstgX8GOYF+up+NjahKVQb7M0uOM0LxYVBs/uLJ9HFrMc3
VBZ4wXByJLjHYBLxjB9qcGfiA0pbHr/mhQkkfzJpy7giH7DKTPW5c4wjZ/+V
hFchfJDCFG4ttziCZNP1xT5d4gNCXOUzGYcR9OXR1TL2ZD4wO5wUZdoxjILX
t7/RL+CDyrD0utayIfRflLNw3Ss+iO6e3/7k5gByulNSODDAB3v29lXuoA0g
6fbV3cvjfIA3pISZ579FFVypDjtW+GCHyutS0+p+9Opa+6074vwg2pCm9vFn
L0p9SNzVKs8PYrJMT+iXe5HDW9eW8V38UCntoVAj24vmKOvTosb80FusPmB/
uAcx5+5UTPHih1K30xu2L18jnfKMqotN/KDHZNVgm9eJDAe7NxY6+EH4iNnM
PVInstzCsudILz9MrkzHd1x+gY7t9xrGZ/jhQfR+A63oDmQcIhUWzioAN7Iu
I5fkNvSSvzFfi0sAPpfuI+SLtKF9BbYdS3wC8FJ+nmx25zly7EoUdKUIAH94
xpO01mfIW+Jnvp6SADQcnbMfprailYfJHWs7BGCUtrGwWt2Cgk2UvlaqC0BC
UEWc9IEWdMnHRVMaCcAw5/ua06lPUWZrZweTtQBcc5w9Ua/YjJ6dvPW1NUAA
cvhOJmTYNSDTdW1CaIgA/ApyzEPt9ag7uV9TPVwAEi8LHhnWqkfDdZzhBfEC
8HslteKhTB1a4D5HuJQlAPZP72mfFK9Ffrl8u7HbAiDwWeuddF4NWlUvcly5
IwAfqznMj22vQczOYwVu9wWAsD91N45XI0qFyW7jFgGIKpLo5Ix9iLINpxz/
tglASER2YDLtIZIevhBe81IAWvV/J+s+eoDoTA9fyL3956d9h1Lft0qkbyPu
xD4nALzTI8IToRXIc/VbeAevIGS18x553VeCdHxOkD4SBEG93SAwYVcJ4vg0
UsJMEYT1HVZhH1OK0Z3R1n+XSBBuGug67XQpQmNP/lOu1hQEPqWEI1+k76LS
3VwtvbqCoPJxvSPpZiEKrrh4aAkEwbkneOtuciEi5Z2MVDIXhKJOm1fHyXeQ
1SXtodtHBGGfx0nfw9r5iPa37EzTcUF41PHeMqIjD30JkGZ+7y4INXOU3zsc
8lDcKW4VyjlBIJPeX16Ovo2azd9HXYkThIpoaq/m11voyjNrkdLLgpBqQvRS
2HULOWFt5S9SBMH7/hcHh6ActKZyf5glWxAWD2grSJCykSohYkdIpSAESB7e
W3QxE21JXHl2o0YQttusOJImM1A382mHmgZBGC/JbBIwzUAeK/svfXsuCKyR
YkyHpW6ggiGZ0ZMj//iSs6xaa/8hX+sM70sfBKHrog7lW8B/CDp52fKnBcH6
vITn7V9p6H3Dz51jC4LQ4xh1uGBrGiLd6oixYSYAx6ls17OaKWiajIn5chBA
sed3m2jnNfQgubLyKi8B1r+cua/ncg1ZRWa+6yQTIK/2xaWnqckozs1TVU+Z
AEwaxFS68hVkOzbe7ryLAOf721hkAy8jmUMHD4dqEkCAyecroyMJNZuguFog
gMbVtcSz5xLRmpLAGP0gAZrmm9JP/I5DP7OpEWoOBBBk+uNz42QcWuaXldE+
QoCgMWde0aFYtPBD+7ShOwEive7cbm+JQZMNx346XCCAfZPNqY7GaPSB7pXh
EkkAlq32gbH60ejdrUDGiVgC9P3kLeJ+GYUGoi5H+lwjwMCZE7ky05Go07yW
L+4OARIPtWksq0eg9sdPKy8XEyDriQdZ43U4erbjlU3qfQLUlx8TaPMIR0+E
JjJz6ggwk3/y4J5DYejBKJd8dRcB9om4bB+JD0X39wp31vf+4yts3XdjPASV
NkmcaR4kgLvD7VRV3RBUmK/+8OUEAZ7N9hzM/xOEMj2c8ckVAmRPG1bL3z2P
0t+fmpz9TYCwMAE5f+p5lGbld+nrJgG4n7Gm/U4OQFfU4l6ucgrBEJW5/Fis
P4r8U3mInyYEr8JH1Z+m+6GwM42/iduEIO/e+Nf30n4o9ENbNlVBCDgCt9sX
VfiigNbRKVlVIVitX8/l6/dBHoms3gxjIVDy0YYALW90aoNfSN9cCHSchot6
y8+iE2epNXv2CUGU41Dpzm9eyOXAjvX9DkLgMXxH62vkGWQjah/n7iUEj8RU
22oGTyPry8eUzvoJgXbS49k7mqeR5eaZ7nOBQiDoGCexN8MdmUxFEsMjhUB6
MbXjjPspxCgpzb1+XQhibQxUH6meQKOSJbeMbgrB06gKYZ4aNxR8vShn+ZYQ
lKrsnRBkuKHaiMKs/UVC4LDv8ctVq+NI1S73Bl+jENzO9V8v+e8o6unKSX/c
LAQ+yVtWWOhHkbdB9nXP50LQkPShNK/NFZWrZKZ1dguBiMUXnpAtrmg7a1py
zIQQZIS7HimiHkEdwSlXNT4KQUxibDOvhzM6sZR8ZfrTP38XxA8ZNB1GBaOX
k/SXhf79JyMXu32dkOSD2Li/bEQQlk4L0WZxQE3yMbFl3ETYyrLJ9NPbHjln
R8c4CRDh1K8547lxO3QzLiK6XoQIxFc3BuU7DyHSkZDwAGUixEzdtGQ0H0TV
/UFhsruIoLN5T7PL8CCyMQu82K9BhHD+m60Cr2xQioZ/qCpOhCM6d++cmzyA
eHnOBi5YEyHJYKhJmr4flUacOZ9tSwQtOeb6uufWyOyXR4CFIxF+X/X6kOZi
jeImT50rPk6ErtXtgzNZ+xBL3VHvE+eJ0J34KdTksCXKV3E9KxxKBMt3Lt2U
ir1Iv+CI17NwIux1vOBUy7YXhV118pROIEKQrIAhd5M5+u1me2osiwiZLluD
R+1NUcaozcnLt4mgHJdeMNthgrSsD5xgFBLB+eEDV1ldExTA2Hc88z4Rni08
XF5Q2IO+EcxcbFuIgJriv4/LG6EhT+k3p9uJMMgWmBtcYIia237jYa+IoFfV
HKUtY4iSg0sk7g0QYbI2x3lU2QDtnOT5sPaJCDuj9tfVuOghCmPGkm+JCLci
G5QvLgPacv3xE+kVIlhPU4vHEgC9NvXKMd8kwlOxt452F3HkVfn6cLaQMETa
9T0oj2MgW+57XZUUYeBaynoXPaCLkFs41iYuDJ7P+74WKOgiXpFd4ovywqBA
eivvOKyNSsNT3gFDGMTFBFc/u+9GaSOnLQ7qCYM0T9+s3aAmClU3aHQ3FgaZ
90ZpViaayHzux82UfcLguv3KyWh1DfTJ6qDj9HFheDiREvZaTQ31FtFfrroL
Q2zgqqJZgyqqZ2bT5T0rDLz8o9n3jVRRfG0NVTNIGHDDjys/ju5CChKUkdjL
whBa1GlMCNmBBIKWTLNShKELdTj9qVJBq70ddRXpwmD+3G7nwx901BETlDF8
WxjqzVRmRMKU0cmFETulGmF4+6bJtbpzO7I0ediBNwgDp6u70laF7UgzL1HL
plkY2A8+vaIfr4DYbBmUC53CwOceddjokDwqfJw92D0mDGIiUTrPabLoCjlg
z9SUMPB4TdWrZcigAB/L2l9zwpChbBY/TZJBRrKb1yV/CMNuMcrOx6Lb0HSS
i60vOwlWIx5maphKIa9PytI7eUhQVfe69O2kJPq1Z+3rVwES2IvJ3H11URJx
MadccqeS4MphVTWhEAm0M6i1yoVOAqWmT1n3i8RQ/cDVcJoqCZ7rXEhL2BRF
BupOFu80SRDN9e2Qub0osl1cnjoEJCBdyo6SoVDRBTc5IasDJKjxz3r+rpmM
2Fq/j/HYkSBz3aYjXo2MkiWbijudSDB9Nj3Vv4j07/0f0jc+QYLU1caMJznC
qNM63gcLIoHkHLuAVJkQsrl/EPtzgQQt89Sll7uF0Hseac66SBJcHlPWVHxO
QEvt9bnqSf9y/bt+LbOCiIS+vFa6RYIX5eEhTWYCKPfmo5vz+SQI/aEQ+bSX
H21fiz559x4JNLcyrCKJ/IhRJb4p/YAE2SND3qQ7vOiYopUK9fk/3mzV0de/
uNCXWNHfgy9I4O0fqmdsy4UCZmaf/9f9T7+4JzzoESdKyA0/LDhEAouvv7En
sRyogvQgieMzCXiOhfmFWLEhnXMX7doWScAhTw5PesGKWnvMZKKXSbDIcc7x
kTErGkiaatjcIMGRngeiFDMWtM4k/PmnABlsbZ6kCfkxoRiXiZoqYTIIalyd
F2JhQvxPyiJ9qWSYF5MNupe+FUkHGVMXtpFhryI/0/62Lch08bzpjCYZUOGG
unz4X0xsFy2Gg0EGbtnjjUJ1G9iC77MWJT0ylCsW8bP+WsfSfgowfM3J8Dxu
5UNAxB9sbKNIZfMIGWIuFl7f07WKVeD7PKTdyCB19ZoCq9IqFhXx867RaTIs
LZmFvUv6hSmwGkglnSNDQ1G8vrfTT8yX552QSDwZikVJ8/4Ky5ihZeQ+xhUy
yOpJlBsX/MDIyQqXj6SSwfPGTL33th9Yo5A/W2E2GR5yRBwKUfqOsYnyrak+
IMNolra1qssSNuRUpWFbS4bd94zNpOcXsZIcB9+gRjK8TFhxPURexPZJ3/3c
1EYGgfEm3ayor1jmdhizGCVDzjpetpD+CfP0+Ej1HidDwcKdmKa5eQwvSzqU
OkMG0aNGTGxoHpveOfxmeJEMdxjnSyJWZjEVLd/WEywUSHri7Kj73wy2JZiy
JYGTArY16bkNbDNYX8MTRhkfBYLLCxrHQqaxQJy75geFAuqmsRIV3lNYq3HB
vXA6BTrfECmEyAnsepzZTL4qBaZrg613801gpzqXpNp3U4BfnId2IHsc47PE
bvLqU+DVVpqjYdwHzO7gwOVM23/5dSMWo+PvMMX00M7HjhSIU3ju8PvuKLYx
JM0+4UKBT2pp3lFLI1ie09lweQ8KbJG5sC/t6jD25RiHX1UYBYK05recYxrE
FnIMHzdFU6Ds4Sl/Q88BbHE4nP1lPAW8Sb3kD8Nvse9WazcnUinQLilTQGju
x37pfnrGd48C4XRqxbfqXmw1QI6fWkYBdpoC5xXdXux35VF72QcUcKN/7dB/
1oOty49+1W2kwNW3Z8sLx95gTMRXJPc3FOAttvO5frobY7HicD33lgKqes3l
6vldGGuCYUnYyD993pHK8fFXGMeWx/j1aQpsnbQRnDj9EuP7UnaqdZUCrIIH
jirUdGAC8p8edG9QwCO1ULhfqAMTPCq3McwkAvLOlwJu+bdjxKGca0s8IuCs
kNumZNSGiTy7Wi8uJQK5b1/tcxJ8hlE3X7JslxOBdNhqoX+5FRPT4bBSVxKB
unlNw0s8rRitInzKTEMEOoOzvr8ktmAyWT48gaYiYHQwEdHMmjG5wTLbKEsR
6HoYaWzzuAmTJ3zKvXJABNQfmHbNfn6CKcYd1bhzWASe8kTSV+weYzvPHXDu
9REB5i97rTa96jHV+1fvvQ8QAV374GzD5jpM7dPL73MhInDWWezBVlIdpuli
GLt5SQRO4+9p3t21mK6FRoVypgiEqxvQJb2rMUasz+/dt0TgTKpzjORkFYZa
ygwNCkSAYPr+2LNDVdi/xWTYvlwE/CqeNd/Y+xAzliEzxbaIAOts2U8m10ps
/uiee7rtImAWHnzMaqUCS7p93nLp5b/69jZ83JlUgfXRhjLt34qASejof/OR
9zEXkQw15TkR0FlTH3ySXIox270YHv8iArEji+ePfijBCq+vhf337Z//tbvz
Jqol2Bchh1d/f4vAA0IH8fx0ERbEJ+rWw0sFJrZHLXfP38XE9ppzxxCo8KA4
pqx0phBrTgyp1CFTwXxwQFnjUCHGxvluI1+SCuFbku6GGN7BUpizrweoUUFh
QvPMHaN8TEO/i6GkRQXWhojtCV152FD4xuQHBhX427sDbezyMIm/h3eYGlMh
kyR0/EDAbax0ldYhak8FjbHhOpOCW5jVbiuvN4epoDpZL103loN99w8jXjpK
hUfSrx8uiudg2j8+uCx4UCEwh8SsW5yFtX3NXWu+SAXNiymK+r8yMHflnlv+
UVRINMm7MWCTgfF4bDVWjKOC/M+sR/Y1N7D9c64pqdeokFSfRHgVnY59mJRW
OlFAhZccv/PGLf7DIqUO9FCLqPCe22LarT0Nk3OJOv+6jAr5FyW5FIzSMM/3
U61atVSIGXHqEzJLxVYHC5y4O6nAoye7Enj+GnaT9JapuZsKXTaZoT2c1zB0
kLXoXB8VeB21UX9OMnap123l/TsqyI44GKrcvooRuuSuVCxSofHNi9OP85Kw
v4s773QuU6Etd1Or/EMi9omg2zi9RoWJsLmlVqlErMXO6hOFRRRKc6dd31bF
Y37T540jKKLgY0ivZxaKxVzYIw/fFBeFJx6Epjj/GMxCMelctbQotFb5iu9+
dwmT8c7Nm1cWhabLHHy3q6Ox/j8df631RMHjZqzZi/8isWZan7CnsSjMZ+62
e0iKxEr13ivHmIvCb407w78zI7BLsd8c6g+KQhCT7wmTsnBMU4haK31aFPwd
Cn8Jfr2ASWvKdDPOikJksuMhbskLGJ+9yoztOVHI2rDA/e1CsY85+kKJF0XB
eb5DkXM4GEtX9Dj7I0UUUnONuD2EA7Hovf4xvDdE4Zfb3z2i3ucxb++wbPls
UVAOr43Z+ToAM6lJfel4VxTqZHr0iZn+2Kpeo/yzBlHwFCOff3DED5s+3obG
mkVhyN5iMGDEF3sT++bg6nNROCelVtlu54sVdU1HKb8RhcSqnOj7R3wwB3ve
8bRpUZC5Nh+PKZzFjEPJv8rnRaFGUWEmxdoLU70lxfdiQRTIBm8H88LPYFwz
GoyNVVHYJ2DuYLfogTV4O99w4xWDpslFZSq3O3Yv9dT9MIIYKM8ayGLOp7C0
Gt+2DLIYqLWYHdusPol5rscsd0mJgeOTLP4Z3xOYWNz9fZqaYqC7JF+1RjuO
FZeXta7piEFgoqjn96xjmNbbEs3HuBjcpKyGKNOOYTbS98QMTcWgKN7Xg6B4
FEtqzJ2zdhIDrvNnuiLcXDDqVI6jsKsYJL//nN3w8wh2jzO7e8hNDPoWHiW0
yR/BntlmVB05KwbpFx+ftsw4jP1ZuhZ+JlIMOJ3UPxbUOGBx5OQfO2PFgNAv
3uDJ6YCR0JUTy4li4L6hXHjFxR5TTUywCPlPDDzf3ff0FbXDTstGUeLviYFS
CMfXkeaD2Kp5RKJFmRjwcLDmXlU7iMX4hv3lfyAGiWbfSnqLbLC8ppDp6w1i
8L4nIKwo9wA2Yn+uoqBbDOJHEm9BtTV2Ktx326k+MfBRC4jh0rfGfhZ6X1ca
EgOdoxdYGnv2YYRlz9AHE//0w12ayD+sMLMrbibNy//8vTnzcabHAhuqOtYQ
tSYGH3xW5IgkC+zEqKvKnr9iUHirumbLEXMsUsGZ2M0uDouhl8Zu/jXF6lps
x0ep4uCZsd+82mcPZjxvc+CWhDjM76cFlQwZY/38B9qOyohDoXZzZ7iBMbbk
ZFU6TxeHP+YGm24yRpjCrz2Bv0Ac7KcWwuMEDLAacePP9UbiEK2eT5lI1ccM
DQ2dL5qJg/T4HZejVH3M5RoYstqIg7uvjcaVnXrYDSVtAaGT4nAgKYh/8i/C
Dpp3JT/xEAfTt2XVvbsRRvBwFTztLQ6zCSsjtf4YllgcT3gaJA4e3jESU5u6
2MXtI8SzSeIQEeM3GWamjemaev1HvSYOJLl4jZ67WtjqKSZS23/i4Eho/7qT
UwvzuadIFr8lDuuxnOeqBzWx4/IhIi8rxUEl0j9Z8bY6JrWHPzOgRhzCTPIV
9MXUsbET+VTpBnE4teX9hZJMNexQ4UvRoGfiUHtNs1zitipmJitGkx/857da
K8WldyfGblSR0zsqDsdK8qr63XZiz44bSlwcF4c1ueX5zV87MFTgKfl2Xhym
X1wP8HJRwXZteywdtS4Oe5JyuJo9lbAFfet8la00uO6QaRDZoIgVH53ZNsJK
g3PjFx2r+RQxmTxe2V38NAjzeNi98VQBo0g5y3+QosHQgIObkr0c9ha+302Q
o0F43RnxqA5ZLMUlRkFTiQZN3dmqobqyGHdu+fbL6jTY5Xvd/6eSDPaXtqmk
u4cG0onEvEJ1aawBpZZ+NKfBwgvDQ7lPpLBAZ3l6yj4aaOSnX7pmLoV9y7ZS
mbenwR8R/S38XpLYtFjuznRPGuh+tx7celccu81Qr9T3oYG/7dNvwR/FMGen
jl0L/rR/87h59pWiGDZ4c0nVKIwGKd9SFMOfUrFOqp7Gj2s0uPuafmxxGwV7
Q7svx5JOg/PJesq9QWRsQFqcIpxFg2+aM0yO/SRsQnHtt2YhDbh2O94auy6M
repUNgfX00Dfy8LB0VIIYzG4nJ/1jAa8+7edT9QjYPzm7jFPuv/xtLLVwEAQ
k3OUsmCaosHSVbqG2RgfpnpsQ0XmKw1WuTPWX+7gxTCPYUHjXzTQMlSpT7/B
jdmEXBuM55aAnfH8x8RLODCXqDP1JcISkBuouTt+PzvmkWia3SUhAbXFBwRv
87BhkTe3HhNUlwCZWPT9fRUzdiX/vZEakoDH2u8ktt9mwjJK6hQOmkgAXclL
0yNrK1bR4LNww0kCIpkfPDEL2mQ0tu7tqT8hAfH9zSr6zRuM9pfbq955S8BK
mESTmsQ6Y2x0IkjykgTw2bfkzUusMT5NPXbSvyoBLlq8N8ybfjFWPmfgxzMk
QNx9m+iEz08Gz7o1670yCSh+kTd5mWeZsY2H6+XnpxLAZcdvZTL3jaEj1pK8
Y0ACjBy/7PZYX2QM6Zi1UeYloD5dXu5j+xfGefveP1vXJYCmfbmPODPP4GaU
3fBnlwTWn+lo0nyW4WDuo/ZJQBIsq6aLWVamGUUOGt3OVEm4nAhd88OTjFX3
tVN92yRBZlFuqmB5nLEn6DGzCV0SQhpXeB6HjTGux0XkNGpKQmNhgmzSmVHG
TLqR9i6QhJHrJZ84iocY6nc5+++YSsJUan6CC32AEVXT5UU9IAkvvtM5Ypb6
GL3Pr3FedZKEP6kPemlfexje0yJ44FlJECo8eK1o9RWDjznvnGukJMRGTNk5
nWxnvHlw7cz4dUmgOXixJSS3MFKORpw4UiIJDZJeg/w+jxkJdreMFsskITkM
U/bLaGREWj6WCauQhJN2liG/2hsYfjprkznVkiDtXMj3ULOeYUPwOTLWJAkk
P/lJd9taBqnFxe5wvySkJLKmCl98wOB7dHH31wFJmJXe3Qs/Kxls5VmkC8P/
+jH0Ktbct5LxK2OoP2tMEuqV+zuu+lcwhnz2Wb+b+1fPD/6bU+ZljEwpMHPc
kASpGKpyrepdBi1CgmEvJwVv2/fxXeHPZpT7cUi/V5CCm8ukrmpGFgOd+Mbu
qiQFucePbHSdvck4bN7ad2qnFIxrUu/IzWYwsoRPegTqSMHTikolKimdIVJc
npluKQXryqko7mAKg9iHrb0NkAIejTo7D2osg1PWqWZ/uxTQ3AICwo18GSqY
yP3zh6XhvUwj/VyiKcN3jNBqtmUbuFv3hQdo0xiLP5IOmt7YBsHpIQz69x+6
e3a0ZZrSZWDb4mB29ECn7pMfun9+dcuAjO96rWJojq6XsupIj5ssrEwSLxae
9tPFFo7323PKAWE8PDPzraGukQxlL2+eHPRkHD41sU1EVyE8IbBltzxcomzt
fsGxqKPopt0kOyIPepqkpi+UZh23J6eiq3wUQFyE9bDR+xSdptz+49+Et0NH
g8CoRcJRneV7/6Zw7XbYL+69yVyoqnNMtoQzc68irBxrizuxh1Xnm2Kq5oMl
RZDS+vxaw7pf+1HBn4mVOCV4UmvF+5K3UNvBcBvo0pSh4Man0neZgdqiZ2Lr
VJqVgeVuyMWfn421hbk8K/ceosN4SIEU52GKdoHBheAlezpwpXA1F0eTtVUv
XDFIdaJDj7NKV8dDkrblUsXbIVc6TPSWr/rJC2vHDKysHfOkA/HlafLAYYL2
al6YfnAEHZxZ3E4F3efWHtFN7SssoYNtPm9Wn9em1in/gizTcjqY81jS+2z/
av0sr3b7UkEH1v32fgkmG1oE6aFfu2rokHH39b3OPX+0zDnExR4306H2qbbd
u9JfWo39hcf73tLB6lLoR67+b1pmfI/oAUN0yExRzN5Q/6Y1tOfFT8ooHQYK
YjPO31zSWq7/HOc8ToebOmrFF5YWtOi3d5bNf6JDWtWsn8nQJ63GEb2ApK90
2C1mWp81N69lRjyA71iiw+jZY3p7ts5rnYj17zm3QgeDE6N+QWazWsvNMZnk
VToI/7W+fS74o1bk7/Rj9b/p4KO1e7a0ckZLQL1I+fAGHVgmJpcnFqe1cs7U
r2xu0sFe8vrDt+rTWv8DfPKrIQ==
      "]]}},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->True,
   AxesOrigin->{0, 0},
   PlotRange->{{0, 15}, {0., 0.002216494883208479}},
   PlotRangeClipping->True,
   PlotRangePadding->{
     Scaled[0.02], 
     Scaled[0.02]}], TraditionalForm]], "Output",
 CellChangeTimes->{3.462098784373803*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"e", "[", "3", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.462098811974718*^9, 3.4620988142327433`*^9}, {
  3.462099216193255*^9, 3.4620992203420753`*^9}}],

Cell[BoxData[
 FormBox["0.0001984126984126984`", TraditionalForm]], "Output",
 CellChangeTimes->{{3.4620992125818443`*^9, 3.4620992340645237`*^9}}]
}, Open  ]]
},
WindowSize->{640, 750},
WindowMargins->{{4, Automatic}, {Automatic, 4}},
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, 640, 19, 75, "Input"],
Cell[CellGroupData[{
Cell[1210, 43, 859, 22, 43, "Input"],
Cell[2072, 67, 1914, 39, 330, "Output"]
}, Open  ]],
Cell[4001, 109, 277, 8, 49, "Input"],
Cell[CellGroupData[{
Cell[4303, 121, 237, 6, 27, "Input"],
Cell[4543, 129, 13390, 226, 233, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17970, 360, 201, 4, 27, "Input"],
Cell[18174, 366, 147, 2, 27, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)