(* 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[     12317,        443]
NotebookOptionsPosition[     10550,        377]
NotebookOutlinePosition[     10929,        394]
CellTagsIndexPosition[     10886,        391]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Lesson 7  Answers -  Sums, Series, Products and Limits", "Section",
 CellChangeTimes->{
  3.4610864122323008`*^9, {3.461268729551034*^9, 3.4612687554944*^9}, {
   3.4651303620378027`*^9, 3.465130362914732*^9}}],

Cell[TextData[{
 "1) Use ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " to determine the following limits. Be careful to check whether the limits \
exist.\n(a) ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    UnderscriptBox["lim", 
     RowBox[{"x", "\[Rule]", "\[Infinity]"}]], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", 
       FractionBox["1", "x"]}], ")"}], "x"]}], TraditionalForm]]]
}], "Text",
 CellChangeTimes->{{3.449231336640122*^9, 3.4492313384541903`*^9}, {
  3.4611059994769783`*^9, 3.461106000755149*^9}},
 FontWeight->"Plain"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Limit", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"1", "/", "x"}]}], ")"}], "^", "x"}], ",", 
   RowBox[{"x", "\[Rule]", "Infinity"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.449231359895873*^9, 3.449231392390851*^9}},
 FontSlant->"Italic"],

Cell[BoxData[
 FractionBox["1", "\[ExponentialE]"]], "Output",
 CellChangeTimes->{{3.449231379160034*^9, 3.4492313931885147`*^9}},
 FontSlant->"Italic"]
}, Open  ]],

Cell[TextData[{
 "(b) ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    UnderscriptBox["lim", 
     RowBox[{"x", "\[Rule]", "0"}]], 
    FractionBox[
     RowBox[{
      SqrtBox[
       RowBox[{"4", "+", "x"}]], "-", "2"}], "x"]}], TraditionalForm]]]
}], "Text",
 CellDingbat->None,
 CellChangeTimes->{{3.4492313441181593`*^9, 3.449231347677897*^9}},
 FontWeight->"Plain"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Limit", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Sqrt", "[", 
       RowBox[{"4", "+", "x"}], "]"}], "-", "2"}], ")"}], "/", "x"}], ",", 
   RowBox[{"x", "\[Rule]", "0"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.449231404988851*^9, 3.4492314337751102`*^9}},
 FontSlant->"Italic"],

Cell[BoxData[
 FractionBox["1", "4"]], "Output",
 CellChangeTimes->{3.4492314349725637`*^9},
 FontSlant->"Italic"]
}, Open  ]],

Cell[TextData[{
 "2) Use ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " to calculate the following:\n(a) ",
 Cell[BoxData[
  FormBox[
   StyleBox[
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"n", "=", "1"}], "\[Infinity]"], 
     FractionBox["1", 
      SuperscriptBox["n", "3"]]}],
    FontSize->16], TraditionalForm]]]
}], "Text",
 CellChangeTimes->{{3.417733323845963*^9, 3.4177333306696243`*^9}, {
  3.449231465088401*^9, 3.449231465822597*^9}, {3.461106018022595*^9, 
  3.461106019106988*^9}},
 FontWeight->"Plain"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"first", "=", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"n", "^", "3"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"n", ",", "1", ",", "Infinity"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.449231514922411*^9, 3.449231536639516*^9}},
 FontSlant->"Italic"],

Cell[BoxData[
 RowBox[{"Zeta", "[", "3", "]"}]], "Output",
 CellChangeTimes->{3.449231538609779*^9},
 FontSlant->"Italic"]
}, Open  ]],

Cell[TextData[{
 StyleBox["Zeta", "Input"],
 " is the Riemann zeta function \[Zeta], a famous and important function in \
number theory. See the Documentation Center."
}], "Text",
 CellChangeTimes->{{3.449231595579927*^9, 3.4492316074228983`*^9}, {
   3.449231644937571*^9, 3.4492317014154387`*^9}, 3.461105920058*^9},
 FontSlant->"Italic"],

Cell[CellGroupData[{

Cell[TextData[{
 "(b) ",
 Cell[BoxData[
  FormBox[
   StyleBox[
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"n", "=", "1"}], "100"], 
     FractionBox["1", 
      SuperscriptBox["n", "3"]]}],
    FontSize->16], TraditionalForm]]]
}], "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{{3.417733323845963*^9, 3.4177333306696243`*^9}, {
  3.449231470575086*^9, 3.449231482462484*^9}},
 FontWeight->"Plain"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"second", "=", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"n", "^", "3"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"n", ",", "1", ",", "100"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.449231514922411*^9, 3.449231556399645*^9}},
 FontSlant->"Italic"],

Cell[BoxData[
 RowBox[{"81473483330743503583074181861672511931518122336172216406894149391331\
289704097519580221863303145356050828007873151451209887", "/", 
  "677811827830924958486563450918440215717341906309145902293321613799502571708\
28098031102950264769178652556660142954086400000"}]], "Output",
 CellChangeTimes->{{3.449231538609779*^9, 3.449231558406773*^9}},
 FontSlant->"Italic"]
}, Open  ]],

Cell["\<\
(c) What is the difference (in decimal representation) between the numbers \
calculated in (a) and (b)?\
\>", "Text",
 CellDingbat->None,
 CellChangeTimes->{{3.417733323845963*^9, 3.4177333306696243`*^9}, {
  3.449231486966992*^9, 3.449231495054565*^9}},
 FontWeight->"Plain"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"first", "-", "second"}], "]"}]], "Input",
 CellChangeTimes->{{3.449231564781255*^9, 3.449231570503302*^9}},
 FontSlant->"Italic"],

Cell[BoxData["0.00004950249991653166`"], "Output",
 CellChangeTimes->{3.44923157215106*^9},
 FontSlant->"Italic"]
}, Open  ]],

Cell[TextData[{
 "3) Use ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " to calculate the following:\n(a) ",
 Cell[BoxData[
  FormBox[
   StyleBox[
    RowBox[{
     FractionBox[
      StyleBox["1",
       FontSize->12], "2"], "\[Times]", 
     FractionBox["3", "4"], "\[Times]", 
     FractionBox["5", "6"], "\[Times]", 
     FractionBox["7", "8"], "\[Times]"}],
    FontSize->16], TraditionalForm]]],
 "...",
 Cell[BoxData[
  FormBox[
   StyleBox[
    RowBox[{"\[Times]", 
     FractionBox["97", "98"], "\[Times]", 
     FractionBox["99", "100"]}],
    FontSize->16], TraditionalForm]]]
}], "Text",
 CellChangeTimes->{{3.4492317398502407`*^9, 3.449231742048436*^9}, {
  3.4611060361453533`*^9, 3.461106037250887*^9}},
 FontWeight->"Plain"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"first", " ", "=", 
  RowBox[{"Product", "[", 
   RowBox[{
    RowBox[{"n", "/", 
     RowBox[{"(", 
      RowBox[{"n", "+", "1"}], ")"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"n", ",", "1", ",", "99", ",", "2"}], "}"}]}], "]"}]}]], "Input",\

 CellChangeTimes->{{3.449231774848055*^9, 3.449231886011821*^9}},
 FontSlant->"Italic"],

Cell[BoxData[
 FractionBox["12611418068195524166851562157", 
  "158456325028528675187087900672"]], "Output",
 CellChangeTimes->{
  3.449231800733884*^9, {3.449231834393462*^9, 3.4492318868191767`*^9}},
 FontSlant->"Italic"]
}, Open  ]],

Cell[TextData[{
 "(b) ",
 Cell[BoxData[
  FormBox[
   StyleBox[
    RowBox[{
     RowBox[{
      RowBox[{
       FractionBox[
        StyleBox["1",
         FontSize->12], "2"], "\[Times]", 
       FractionBox["3", "4"], "\[Times]", 
       FractionBox["5", "6"], "\[Times]", 
       FractionBox["7", "8"], "\[Times]"}], "..."}], 
     FormBox[
      StyleBox[
       RowBox[{"\[Times]", 
        FractionBox["997", "998"], "\[Times]", 
        FractionBox["999", "1000"]}],
       FontSize->16],
      TraditionalForm]}],
    FontSize->16], TraditionalForm]]]
}], "Text",
 CellDingbat->None,
 CellChangeTimes->{{3.44923174694471*^9, 3.4492317503842783`*^9}, 
   3.449231872514783*^9, 3.44923198706409*^9},
 FontWeight->"Plain"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"second", "=", 
  RowBox[{"Product", "[", 
   RowBox[{
    RowBox[{"n", "/", 
     RowBox[{"(", 
      RowBox[{"n", "+", "1"}], ")"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"n", ",", "1", ",", "999", ",", "2"}], "}"}]}], "]"}]}]], "Input",\

 CellChangeTimes->{{3.449231774848055*^9, 3.4492319037941732`*^9}},
 FontSlant->"Italic"],

Cell[BoxData[
 RowBox[{"42232537647724463986814795879058636796273751319773169844905136735410\
223235237842796658200613203495338337907200784616578875345273445418737117170971\
828049761784947731916211208336900385012459044897556964712674921500714225779024\
41998133040640534678543005733060259424013478163819189207764154121872206505", 
  "/", "1674232198728542688981914139156252829002195018289896261630859981828673\
517382712691395622466899524778324366676433676791914354914508894240693122590246\
046652313114776214816286091472042907040995490918430340961413511716184678323031\
05743111961624157454108040174944963852221369694216119572256044331338563584"}]]\
, "Output",
 CellChangeTimes->{3.449231904610632*^9},
 FontSlant->"Italic"]
}, Open  ]],

Cell["\<\
(c) What is the difference (in decimal representation) between the numbers \
calculated in (a) and (b)?\
\>", "Text",
 CellDingbat->None,
 CellChangeTimes->{{3.4492317541120768`*^9, 3.449231756624103*^9}},
 FontWeight->"Plain"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"first", "-", "second"}], "]"}]], "Input",
 FontSlant->"Italic"],

Cell[BoxData["0.05436421920881796`"], "Output",
 CellChangeTimes->{3.449231914281698*^9},
 FontSlant->"Italic"]
}, Open  ]],

Cell[TextData[{
 "4) Can ",
 StyleBox["Sum", "Input"],
 " be used to calculate the sum of a sequence of vectors? "
}], "Text",
 CellChangeTimes->{{3.461106195941146*^9, 3.4611062519476337`*^9}, {
   3.46110631672115*^9, 3.4611063509631577`*^9}, 3.461106417875456*^9}],

Cell["\<\
Yes. For example, the following calculates (1,0)+(2,1)+(3,2)+(4,3).\
\>", "Text",
 CellChangeTimes->{{3.461106423621437*^9, 3.4611065145863123`*^9}},
 FontSlant->"Italic"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sum", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"i", ",", 
     RowBox[{"i", "-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "1", ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.461106266592536*^9, 3.461106294104004*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"10", ",", "6"}], "}"}]], "Output",
 CellChangeTimes->{3.461106295376676*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{780, 681},
WindowMargins->{{117, Automatic}, {103, Automatic}},
ShowSelection->True,
Magnification->1.,
FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (April 20, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 216, 3, 67, "Section"],
Cell[809, 28, 566, 18, 53, "Text"],
Cell[CellGroupData[{
Cell[1400, 50, 308, 9, 27, "Input"],
Cell[1711, 61, 152, 3, 45, "Output"]
}, Open  ]],
Cell[1878, 67, 367, 14, 40, "Text"],
Cell[CellGroupData[{
Cell[2270, 85, 339, 10, 27, "Input"],
Cell[2612, 97, 114, 3, 44, "Output"]
}, Open  ]],
Cell[2741, 103, 546, 18, 55, "Text"],
Cell[CellGroupData[{
Cell[3312, 125, 314, 9, 27, "Input"],
Cell[3629, 136, 122, 3, 27, "Output"]
}, Open  ]],
Cell[3766, 142, 340, 7, 26, "Text"],
Cell[CellGroupData[{
Cell[4131, 153, 427, 15, 39, "Subsubsection"],
Cell[CellGroupData[{
Cell[4583, 172, 310, 9, 27, "Input"],
Cell[4896, 183, 387, 6, 73, "Output"]
}, Open  ]],
Cell[5298, 192, 286, 7, 26, "Text"],
Cell[CellGroupData[{
Cell[5609, 203, 174, 4, 27, "Input"],
Cell[5786, 209, 113, 2, 27, "Output"]
}, Open  ]],
Cell[5914, 214, 748, 27, 55, "Text"],
Cell[CellGroupData[{
Cell[6687, 245, 356, 11, 27, "Input"],
Cell[7046, 258, 223, 5, 45, "Output"]
}, Open  ]],
Cell[7284, 266, 728, 26, 40, "Text"],
Cell[CellGroupData[{
Cell[8037, 296, 355, 11, 27, "Input"],
Cell[8395, 309, 727, 11, 133, "Output"]
}, Open  ]],
Cell[9137, 323, 237, 6, 26, "Text"],
Cell[CellGroupData[{
Cell[9399, 333, 108, 3, 27, "Input"],
Cell[9510, 338, 111, 2, 27, "Output"]
}, Open  ]],
Cell[9636, 343, 267, 6, 26, "Text"],
Cell[9906, 351, 181, 4, 26, "Text"],
Cell[CellGroupData[{
Cell[10112, 359, 279, 8, 27, "Input"],
Cell[10394, 369, 116, 3, 27, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)